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

Gtk3: forgot commit.

Browse Source
This commit is contained in:
zeljan1 2025-02-12 11:22:14 +01:00
parent d33c56d5d4
commit 014ceebd7b
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk3/gtk3wscontrols.pp
View File

@ -443,9 +443,7 @@ class procedure TGtk3WSWinControl.SetShape(const AWinControl: TWinControl;
begin
if not WSCheckHandleAllocated(AWinControl, 'SetShape') then
Exit;
{$IFDEF GTK3DEBUGNOTIMPLEMENTED}
DebugLn('TGtk3WSWinControl.SetShape not implemented');
{$ENDIF}
TGtk3Widget(AWinControl.Handle).Shape := TGtk3Image(AShape).Handle^.copy;
end;
class procedure TGtk3WSWinControl.SetFont(const AWinControl: TWinControl; const AFont: TFont);