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

Qt: fixed memleak in TQtWidgetSet.DCSetPixel.

Browse Source 
git-svn-id: trunk@51030 -
This commit is contained in:
zeljko 2015-12-25 11:54:06 +00:00
parent 39da734bec
commit 2f9f2db741
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/qt/qtobject.inc
View File

@ -1248,10 +1248,11 @@ begin
try
ColorRef := TColorRef(ColorToRGB(AColor));
QColor_fromRgb(@Color, Red(ColorRef), Green(ColorRef), Blue(ColorRef));
QPainter_setPen(Painter, @Color);
QPainter_setPen(Painter, PQColor(@Color));
QPainter_drawPoint(Painter, X,Y);
finally
QPainter_setPen(Painter, Pen);
QPen_destroy(Pen);
end;
end;
end;