[Gambas-user] combobox scrolling

[Bruce Steers]

On Thu, 26 Oct 2023 at 07:01, BB <adamnt42 at gmail.com> wrote:

>
> On 23/10/23 7:18 pm, Fabien Bodard wrote:
>
> I think the problem come from ScrollArea
>
>   D = Desktop.Scale * 60
>   If Mouse.Orientation = Mouse.Horizontal Or If $H <= $hDrawingArea.H Then
>     Scroll($iScrollX - Mouse.Delta * D, $iScrollY)
>   Else
>     Scroll($iScrollX, $iScrollY - Mouse.Delta * D)
>   Endif
>
>
>
> and for me
> Print Desktop.Scale * 60 give 420 because Scale return 7
>
> Benoit ? :-)
>
>
>
> --
> Fabien Bodard
>
> @Fabien
>
> Where is that code, I can't find it (and I agree D is too big for vertical
> scrolling)
>
> b
>

I think it's in ScrollArea.class line 751
https://gitlab.com/gambas/gambas/-/blob/master/comp/src/gb.gui.base/.src/ScrollArea.class?ref_type=heads#L751

Respects
BruceS
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20231026/225fd100/attachment.htm>