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

Gtk3: implemented TGtk3WidgetSet.PaintRgn().

Browse Source
This commit is contained in:
zeljan1 2025-01-19 01:22:57 +01:00
parent 98f5b86bb3
commit 7a1413e616
1 changed files with 20 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lcl/interfaces/gtk3/gtk3winapi.inc
View File

@ -3179,11 +3179,27 @@ begin
end;
function TGtk3WidgetSet.PaintRgn(DC: HDC; RGN: HRGN): Boolean;
var
GtkDC: TGtk3DeviceContext absolute DC;
crRegion: Pcairo_region_t;
i: Integer;
R: Tcairo_rectangle_int_t;
begin
{$IFDEF GTK3DEBUGNOTIMPLEMENTED}
DebugLn('WARNING: TGtk3WidgetSet.PaintRgn not implemented ...');
{$ENDIF}
Result:=inherited PaintRgn(DC, RGN);
Result := False;
if not IsValidDC(DC) then
exit;
if not IsValidGDIObject(RGN) then
exit;
crRegion := TGtk3Region(RGN).Handle;
if crRegion = nil then
exit;
for i := 0 to cairo_region_num_rectangles(crRegion) - 1 do
begin
cairo_region_get_rectangle(crRegion, i, @R);
GtkDC.fillRect(R.x, R.y, R.Width, R.Height, HBRUSH(GtkDC.CurrentBrush));
end;
Result := True;
end;
function TGtk3WidgetSet.PeekMessage(var lpMsg: TMsg; Handle: HWND;