paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 13:59:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

Gtk3: fixed crash in TGtk3ScrolledWin.

Browse Source
This commit is contained in:
zeljan1 2025-01-15 22:33:07 +01:00
parent b90ac329b3
commit 318f3825b7
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

@ -1649,13 +1649,15 @@ begin
DebugLn('Gtk3ScrolledWindowScrollEvent: Use PGtkWidget^.set_events(GDK_DEFAULT_EVENTS_MASK) in CreateWidget to prevent GTK3 bug with GDK_SCROLL_SMOOTH')
else
DebugLn('Gtk3ScrolledWindowScrollEvent: Unknown scroll direction: ', dbgs(AEvent^.scroll.direction));
Exit;
end;
//Exit;
end;
case Msg.Msg of
LM_VSCROLL: Range := PGtkRange(AScrollWindow^.get_vscrollbar);
LM_HSCROLL: Range := PGtkRange(AScrollWindow^.get_hscrollbar);
else
raise Exception.CreateFmt('Gtk3ScrolledWindowScrollEvent: Untranslated event %d !',[Ord(AEvent^.scroll.direction)]);
end;
AValue := power(Range^.adjustment^.page_size, 2 / 3);