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

(Qt): Completely fixed mem leaks (vFont on demand) with TQtDeviceContext.

Browse Source 
git-svn-id: trunk@11737 -
This commit is contained in:
zeljko 2007-08-04 12:28:53 +00:00
parent 3f1cae0b7b
commit bcc6d8567f
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1143,7 +1143,6 @@ begin
end else
begin
vFont := TQtFont(GetStockObject(SYSTEM_FONT));
vBrush := TQtBrush(GetStockObject(WHITE_BRUSH));
vBackgroundBrush := vBrush;
vPen := TQtPen(GetStockObject(BLACK_PEN));
@ -1367,6 +1366,12 @@ begin
Save;
translate(x, y);
{when Parent=nil we'll create vFont on demand, otherwise
we'll get 1 unfreed mem block}
if (Parent = nil) and (vFont = nil) then
vFont := TQtFont(GetStockObject(SYSTEM_FONT));
Rotate(-0.1 * vFont.Angle);
RestoreTextColor;
@ -1507,6 +1512,11 @@ begin
Write('TQtDeviceContext.font()');
{$endif}
{when Parent=nil we'll create vFont on demand, otherwise
we'll get 1 unfreed mem block}
if (Parent = nil) and (vFont = nil) then
vFont := TQtFont(GetStockObject(SYSTEM_FONT));
if vFont <> nil then
vFont.Widget := QPainter_font(Widget);
@ -1530,6 +1540,12 @@ begin
if (f.Widget <> nil) and (Widget <> nil) {and (Parent <> nil)} then
begin
QPainter_setFont(Widget, QFontH(f.Widget));
{when Parent=nil we'll create vFont on demand, otherwise
we'll get 1 unfreed mem block}
if (Parent = nil) and (vFont = nil) then
vFont := TQtFont(GetStockObject(SYSTEM_FONT));
vFont.Angle := f.Angle;
end;
end;