paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 05:38:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt5, Qt6: small optimization, mark vBrush,vPen and vBackroundBrush as shared.

Browse Source
This commit is contained in:
Željan Rikalo 2024-11-20 22:49:25 +01:00
parent a2bf3c8d58
commit 0201dd32c9
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/qt5/qtobjects.pas
View File

@ -2358,15 +2358,18 @@ begin
vBrush := TQtBrush.Create(False);
vBrush.Owner := Self;
vBrush.FShared := True;
vPen := TQtPen.Create(False);
vPen.Owner := Self;
vPen.FShared := True;
vRegion := TQtRegion.Create(False);
vRegion.Owner := Self;
vBackgroundBrush := TQtBrush.Create(False);
vBackgroundBrush.Owner := Self;
vBackgroundBrush.FShared := True;
vTextColor := ColorToRGB(clWindowText);
@ -2379,9 +2382,9 @@ begin
//vFont.Widget := nil;
FreeAndNil(vFont);
//WriteLn('Destroying brush: ', PtrUInt(vBrush), ' ', ClassName, ' ', PtrUInt(Self));
vBrush.FHandle := nil;
//vBrush.FHandle := nil;
FreeAndNil(vBrush);
vPen.FHandle := nil;
// vPen.FHandle := nil;
FreeAndNil(vPen);
if vRegion.FHandle <> nil then
begin
@ -2389,7 +2392,7 @@ begin
vRegion.FHandle := nil;
end;
FreeAndNil(vRegion);
vBackgroundBrush.FHandle := nil;
// vBackgroundBrush.FHandle := nil;
FreeAndNil(vBackgroundBrush);
end;

9
lcl/interfaces/qt6/qtobjects.pas
View File

@ -2423,15 +2423,18 @@ begin
vBrush := TQtBrush.Create(False);
vBrush.Owner := Self;
vBrush.FShared := True;
vPen := TQtPen.Create(False);
vPen.Owner := Self;
vPen.FShared := True;
vRegion := TQtRegion.Create(False);
vRegion.Owner := Self;
vBackgroundBrush := TQtBrush.Create(False);
vBackgroundBrush.Owner := Self;
vBackgroundBrush.FShared := True;
vTextColor := ColorToRGB(clWindowText);
@ -2444,9 +2447,9 @@ begin
//vFont.Widget := nil;
FreeAndNil(vFont);
//WriteLn('Destroying brush: ', PtrUInt(vBrush), ' ', ClassName, ' ', PtrUInt(Self));
vBrush.FHandle := nil;
//vBrush.FHandle := nil;
FreeAndNil(vBrush);
vPen.FHandle := nil;
// vPen.FHandle := nil;
FreeAndNil(vPen);
if vRegion.FHandle <> nil then
begin
@ -2454,7 +2457,7 @@ begin
vRegion.FHandle := nil;
end;
FreeAndNil(vRegion);
vBackgroundBrush.FHandle := nil;
// vBackgroundBrush.FHandle := nil;
FreeAndNil(vBackgroundBrush);
end;