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

Gtk3: create DC from window if possible.

Browse Source
This commit is contained in:
zeljan1 2025-01-14 10:25:44 +01:00
parent 4f51192d03
commit f59489a32a
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2031,6 +2031,9 @@ begin
Result := Widget.Context; Result := Widget.Context;
if (Result = 0) then if (Result = 0) then
begin begin
if Gtk3IsGdkWindow(Widget.GetWindow) then
Result := HDC(TGtk3DeviceContext.Create(Widget.GetWindow, True))
else
Result := HDC(TGtk3DeviceContext.Create(Widget.GetContainerWidget, False)); Result := HDC(TGtk3DeviceContext.Create(Widget.GetContainerWidget, False));
TGtk3DeviceContext(Result).CanRelease := True; TGtk3DeviceContext(Result).CanRelease := True;
end; end;