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

Qt: speedup paint a bit.

Browse Source 
git-svn-id: trunk@17243 -
This commit is contained in:
zeljko 2008-11-05 19:58:08 +00:00
parent dcf481736e
commit cf580efa08
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/interfaces/qt/qtwidgets.pas
View File

@ -2359,6 +2359,7 @@ procedure TQtWidget.SlotPaint(Sender: QObjectH; Event: QEventH); cdecl;
var
Msg: TLMPaint;
AStruct: PPaintStruct;
P: TPoint;
begin
{$ifdef VerboseQt}
WriteLn('TQtWidget.SlotPaint ', dbgsName(LCLObject));
@ -2390,8 +2391,10 @@ begin
if LCLObject is THintWindow then
Msg.DC := Msg.DC;
with getClientOffset do
SetWindowOrgEx(Msg.DC, -(X + FScrollX), -(Y + FScrollY), nil);
P := getClientOffset;
inc(P.X, FScrollX);
inc(P.Y, FScrollY);
TQtDeviceContext(Msg.DC).translate(P.X, P.Y);
// send paint message
try
@ -9149,6 +9152,7 @@ procedure TQtDesignWidget.SlotDesignControlPaint(Sender: QObjectH; Event: QEvent
var
Msg: TLMPaint;
AStruct: PPaintStruct;
P: TPoint;
begin
{$ifdef VerboseQt}
WriteLn('TQtWidget.SlotPaint ', dbgsName(LCLObject));
@ -9178,9 +9182,10 @@ begin
Msg.PaintStruct^.rcPaint := PaintData.ClipRect^;
Msg.PaintStruct^.hdc := FDesignContext;
with getClientOffset do
SetWindowOrgEx(Msg.DC, -(X + FScrollX), -(Y + FScrollY), nil);
P := getClientOffset;
inc(P.X, FScrollX);
inc(P.Y, FScrollY);
TQtDeviceContext(Msg.DC).translate(P.X, P.Y);
// send paint message
try