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

Gtk3: cleanup.

Browse Source
This commit is contained in:
zeljan1 2025-01-14 12:00:32 +01:00
parent 0cf93bfab9
commit e0ae1a927a
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/gtk3/gtk3objects.pas
View File

@ -2638,11 +2638,8 @@ end;
procedure TGtk3DeviceContext.SetImage(AImage: TGtk3Image);
var
APixBuf: PGdkPixbuf;
AXor: PCairo_t;
begin
FCurrentImage := AImage;
//See what cairo is destroyed !
AXor := FXorCairo;
cairo_destroy(pcr);
APixBuf := AImage.Handle;
if not Gtk3IsGdkPixbuf(APixBuf) then