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

Qt: fixed range check error introduced in r33401 #290ebf51b6

Browse Source 
git-svn-id: trunk@33412 -
This commit is contained in:
zeljko 2011-11-08 11:30:24 +00:00
parent b949305af6
commit 7a2204aa2d
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -837,6 +837,7 @@ procedure TQtWidgetSet.DCSetPixel(CanvasHandle: HDC; X, Y: integer; AColor: TGra
var
ASavedColor: TQColor;
Color: TQColor;
ColorRef: TColorRef;
Pen: QPenH;
Painter: QPainterH;
begin
@ -846,7 +847,8 @@ begin
Painter := TQtDeviceContext(CanvasHandle).Widget;
Pen := QPainter_pen(Painter);
QPen_color(Pen, @ASavedColor);
QColor_fromRgb(@Color, Red(AColor), Green(AColor), Blue(AColor));
ColorRef := TColorRef(ColorToRGB(AColor));
QColor_fromRgb(@Color, Red(ColorRef), Green(ColorRef), Blue(ColorRef));
QPainter_setPen(Painter, @Color);
QPainter_drawPoint(Painter, X,Y);
QPainter_setPen(Painter, @ASavedColor);