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

Gtk3: fixed crash - wrong cast.

Browse Source
This commit is contained in:
zeljan1 2025-01-14 23:39:49 +01:00
parent f3573ad638
commit 3b3556640e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk3/gtk3lclintf.inc
View File

@ -1305,7 +1305,7 @@ function TGtk3WidgetSet.IsDesignerDC(WindowHandle: HWND; DC: HDC): Boolean;
begin
Result := IsValidHandle(WindowHandle) and (TGtk3Widget(WindowHandle) is TGtk3DesignWidget);
if Result then
Result := TGtk3DesignWidget(DC).DesignContext = DC;
Result := TGtk3DesignWidget(WindowHandle).DesignContext = DC;
end;
function TGtk3WidgetSet.ReleaseDesignerDC(Window: HWND; DC: HDC): Integer;