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

- fixed qt widgetset compilation with fpc 2.3.1

Browse Source 
git-svn-id: trunk@11090 -
This commit is contained in:
paul 2007-05-07 04:35:38 +00:00
parent 3dfa28e3e5
commit c1437bbc76
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1009,7 +1009,8 @@ begin
try
// Saving clip rect and clip region
with PaintData do begin
with PaintData do
begin
ClipRegion := QPaintEvent_Region(QPaintEventH(Event));
if ClipRect=nil then
New(ClipRect);
@ -1020,7 +1021,7 @@ begin
LCLObject.WindowProc(TLMessage(Msg));
finally
Dispose(PaintData.ClipRect);
Fillchar(PaintData, SizeOf(PaintData), 0);
Fillchar(FPaintData, SizeOf(FPaintData), 0);
end;
except
Application.HandleException(nil);