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

* BUGFIX: CPU eating while modal forms running.

Browse Source 
* Speed up TQtWidgetSet.DCSetPixel(), also pen color is correct now.

git-svn-id: trunk@11503 -
This commit is contained in:
zeljko 2007-07-14 12:48:41 +00:00
parent 5425eb6b9b
commit 80600b5d57
1 changed files with 9 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -125,7 +125,9 @@ end;
------------------------------------------------------------------------------}
procedure TQtWidgetSet.AppProcessMessages;
begin
QCoreApplication_processEvents();
if QCoreApplication_hasPendingEvents
then
QCoreApplication_processEvents();
end;
{------------------------------------------------------------------------------
@ -198,29 +200,23 @@ end;
procedure TQtWidgetSet.DCSetPixel(CanvasHandle: HDC; X, Y: integer; AColor: TGraphicsColor);
var
ASavedColor: TQColor;
Color: TQColor;
Pen, APen: QPenH;
Pen: QPenH;
Painter: QPainterH;
begin
if IsValidDC(CanvasHandle) then
begin
//WriteLn('TQtWidgetSet.DCSetPixel X=',X,' Y=',Y, ' AColor=',dbghex(AColor));
//TODO: First compare color if same, draw point with current pen
Painter :=TQtDeviceContext(CanvasHandle).Widget;
Pen := QPainter_Pen(Painter);
APen := QPen_Create(Pen);
QPen_color(APen,@Color);
QPen_color(Pen, @ASavedColor);
QPen_color(Pen, @Color);
ColorRefToTQColor(AColor, Color);
QPen_setColor(Apen, @Color);
Qpainter_SetPen(Painter, APen);
QPen_setColor(Pen, @Color);
QPainter_DrawPoint(Painter, X,Y);
QPainter_SetPen(Painter, Pen);
QPen_Destroy(APen);
QPen_setColor(Pen, @ASavedColor);
end;
end;