paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 22:16:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

Gtk3: update scroll event, some code leaved inside debug define.

Browse Source
This commit is contained in:
zeljan1 2025-01-25 20:07:04 +01:00
parent 938a777f5a
commit 16be2ec0a6
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -8298,16 +8298,20 @@ begin
Control := TGtk3CustomControl(data);
{$IFDEF GTK3DEBUGSCROLL}
writeln('>TGtk3CustomControl.RangeValueChanged ', dbgsName(Control.LCLObject), ' InUpdate=', Control.InUpdate);
{$ENDIF}
if Control.InUpdate then
begin
{$IFDEF GTK3DEBUGSCROLL}
writeln('<TGtk3CustomControl.RangeValueChanged exiting because of InUpdate lock.');
{$ENDIF}
exit;
end else
begin
{$IFDEF GTK3DEBUGSCROLL}
writeln(' setting InUpdate lock.');
{$ENDIF}
Control.BeginUpdate;
end;
{$ENDIF}
Adjustment := gtk_range_get_adjustment(range);
CurrentValue := gtk_adjustment_get_value(Adjustment);
@ -8341,8 +8345,8 @@ begin
{$IFDEF GTK3DEBUGSCROLL}
WriteLn('<TGtk3CustomControl.RangeValueChanged: CurrentValue=', CurrentValue:0:2, ', PrevValue=', PrevValue:0:2,
', Delta=', Delta:0:2, ', InUpdate=', Control.InUpdate, ' releasing lock ...');
Control.EndUpdate;
{$ENDIF}
Control.EndUpdate;
end;
procedure TGtk3CustomControl.InitializeWidget;