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

(Qt): Fix for but #9367 - PaintStructure msg initialization.

Browse Source 
git-svn-id: trunk@11746 -
This commit is contained in:
zeljko 2007-08-06 11:56:03 +00:00
parent 990340aad8
commit 46f8083546
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1596,8 +1596,14 @@ begin
QPaintEvent_Rect(QPaintEventH(Event), ClipRect); QPaintEvent_Rect(QPaintEventH(Event), ClipRect);
end; end;
Msg.DC := BeginPaint(THandle(Self), AStruct^); Msg.DC := BeginPaint(THandle(Self), AStruct^);
FContext := Msg.DC; FContext := Msg.DC;
Msg.PaintStruct^.rcPaint := PaintData.ClipRect^;
Msg.PaintStruct^.hdc := FContext;
with getClientBounds do with getClientBounds do
SetWindowOrgEx(Msg.DC, -Left, -Top, nil); SetWindowOrgEx(Msg.DC, -Left, -Top, nil);