paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 13:09:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt4: fixed build after removing of deprecated stuff

Browse Source 
(cherry picked from commit 3cc1bc02fb)

Co-authored-by: zeljan1 <zeljko@holobit.hr>
This commit is contained in:
Maxim Ganetsky 2025-02-01 22:47:27 +00:00 committed by Maxim Ganetsky
parent 58e99549ce
commit ca349787a4
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/qt/qtobjects.pas
View File

@ -2319,7 +2319,7 @@ begin
dispose(vClipRect);
if FMetrics <> nil then
FreeThenNil(FMetrics);
FreeAndNil(FMetrics);
DestroyObjects;

4
lcl/interfaces/qt/qtsystemtrayicon.pas
View File

@ -20,7 +20,7 @@ interface
{$i qtdefines.inc}
uses
Classes, types, Controls, ExtCtrls, Graphics, Forms, LCLType, LCLProc, LazUTF8,
Classes, types, SysUtils, Controls, ExtCtrls, Graphics, Forms, LCLType, LCLProc, LazUTF8,
qtobjects, qt4, qtint;
type
@ -224,7 +224,7 @@ begin
FTrayIcon.OnPaint(FTrayIcon);
EndPaintInternal(PaintData);
finally
FreeThenNil(FCanvas);
FreeAndNil(FCanvas);
end;
Result := True;
{$ELSE}