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

win32 interface: fixed compilation with -dDEBUG_DOUBLEBUFFER

Browse Source 
git-svn-id: trunk@19656 -
This commit is contained in:
vincents 2009-04-28 06:48:30 +00:00
parent 71f54ad658
commit 4d7acfea9e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/win32/win32callback.inc
View File

@ -460,9 +460,9 @@ var
{$ifdef DEBUG_DOUBLEBUFFER}
ORect.Left := 0;
ORect.Top := 0;
ORect.Right := DoubleBufferBitmapWidth;
ORect.Bottom := DoubleBufferBitmapHeight;
Windows.FillRect(DoubleBufferDC, ORect, GetSysColorBrush(COLOR_DESKTOP));
ORect.Right := CurDoubleBuffer.BitmapWidth;
ORect.Bottom := CurDoubleBuffer.BitmapHeight;
Windows.FillRect(CurDoubleBuffer.DC, ORect, GetSysColorBrush(COLOR_DESKTOP));
{$endif}
PaintRegion := CreateRectRgn(0, 0, 1, 1);
if GetRandomRgn(DC, PaintRegion, SYSRGN) = 1 then