paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 01:29:08 +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; end;
function TGtk3WidgetSet.PaintRgn(DC: HDC; RGN: HRGN): Boolean; 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 begin
{$IFDEF GTK3DEBUGNOTIMPLEMENTED} Result := False;
DebugLn('WARNING: TGtk3WidgetSet.PaintRgn not implemented ...'); if not IsValidDC(DC) then
{$ENDIF} exit;
Result:=inherited PaintRgn(DC, RGN); 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; end;
function TGtk3WidgetSet.PeekMessage(var lpMsg: TMsg; Handle: HWND; function TGtk3WidgetSet.PeekMessage(var lpMsg: TMsg; Handle: HWND;