paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 10:57:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

GTK3: Fixed handling of scroll event.

Browse Source 
Scrolling was not correctly handled due to error in the logic of
handling the scrolling event.

This fix is related to #21067.
This commit is contained in:
Abou Al Montacir 2024-02-10 19:51:58 +01:00
parent ad0f0b2083
commit aabe67dfd9
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk3/gtk3widgets.pas
View File

@ -5104,6 +5104,7 @@ var
Msg: TLMVScroll; Msg: TLMVScroll;
MaxValue: gdouble; MaxValue: gdouble;
Widget: PGtkWidget; Widget: PGtkWidget;
StateFlags: TGtkStateFlags;
begin begin
Result := False; Result := False;
@ -5141,7 +5142,8 @@ begin
if Msg.Scrollcode = SB_THUMBTRACK then if Msg.Scrollcode = SB_THUMBTRACK then
begin begin
if Widget^.get_state_flags = GTK_STATE_FLAG_NORMAL then StateFlags := Widget^.get_state_flags;
if not (GTK_STATE_FLAG_ACTIVE in StateFlags) then
begin begin
Msg.ScrollCode := SB_THUMBPOSITION; Msg.ScrollCode := SB_THUMBPOSITION;
DeliverMessage(AData.LCLObject, Msg); DeliverMessage(AData.LCLObject, Msg);