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

Gtk3: update should update only gtklayout of custom control.

Browse Source
This commit is contained in:
zeljan1 2025-03-26 10:04:37 +01:00
parent d750a3d027
commit 9ba82ba4e0
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -855,6 +855,7 @@ type
function CreateWidget(const {%H-}Params: TCreateParams):PGtkWidget; override;
function EatArrowKeys(const {%H-}AKey: Word): Boolean; override;
public
procedure Update(ARect: PRect); override;
procedure DoBeforeLCLPaint; override;
procedure InitializeWidget; override;
function getViewport: PGtkViewport; override;
@ -8806,6 +8807,22 @@ begin
Result := False;
end;
procedure TGtk3CustomControl.Update(ARect: PRect);
begin
if IsWidgetOK then
begin
if (ARect <> nil) then
begin
if (aRect^.Width > 0) and (ARect^.Height > 0) then
begin
with ARect^ do
GetContainerWidget^.queue_draw_area(Left, Top, Right - Left, Bottom - Top);
end;
end else
GetContainerWidget^.queue_draw;
end;
end;
procedure TGtk3CustomControl.DoBeforeLCLPaint;
var
DC: TGtk3DeviceContext;