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

Gtk3: do not invalidate whole area if rect is empty.

Browse Source
This commit is contained in:
zeljan1 2025-02-13 09:03:23 +01:00
parent 1024bbc9e4
commit 790e387825
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3455,13 +3455,16 @@ procedure TGtk3Widget.Update(ARect: PRect);
begin
if IsWidgetOK then
begin
if (ARect <> nil) and (aRect^.Width > 0) and (ARect^.Height > 0) then
if (ARect <> nil) then
begin
with ARect^ do
FWidget^.queue_draw_area(Left, Top, Right - Left, Bottom - Top);
if FWidget <> GetContainerWidget then
if (aRect^.Width > 0) and (ARect^.Height > 0) then
begin
with ARect^ do
GetContainerWidget^.queue_draw_area(Left, Top, Right - Left, Bottom - Top);
FWidget^.queue_draw_area(Left, Top, Right - Left, Bottom - Top);
if FWidget <> GetContainerWidget then
with ARect^ do
GetContainerWidget^.queue_draw_area(Left, Top, Right - Left, Bottom - Top);
end;
end else
begin
//FWidget^.queue_draw;