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

Gtk3: fixed loop with paint, stalled code.

Browse Source
This commit is contained in:
zeljan1 2025-01-25 21:31:21 +01:00
parent 16be2ec0a6
commit 5eded0d07e
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1362,12 +1362,7 @@ begin
if Data <> nil then if Data <> nil then
begin begin
gdk_cairo_get_clip_rectangle(AContext, @ARect); gdk_cairo_get_clip_rectangle(AContext, @ARect);
// DebugLn('**** Sending paint event to ',dbgsName(TGtk3Widget(Data).LCLObject),' clip ',dbgs(RectFromGdkRect(ARect)),' w=',dbgs(ARect.Width),' h=',dbgs(ARect.height));
Result := TGtk3Widget(Data).GtkEventPaint(AWidget, AContext); Result := TGtk3Widget(Data).GtkEventPaint(AWidget, AContext);
// workaround for lcl painted widgets until we found why gtk3 sends wrong rect
if (TGtk3Widget(Data).FHasPaint) and
(ARect.height < (TGtk3Widget(Data).GetContainerWidget^.get_allocated_height div 4) ) then
AWidget^.queue_draw;
end; end;
end; end;