--- interfaces/win32/win32callback.inc (revision 13905)
+++ interfaces/win32/win32callback.inc (working copy)
@@ -504,7 +504,7 @@
if (ControlDC = 0) or not needParentPaint then
begin
DCIndex := Windows.SaveDC(PaintMsg.DC);
- MoveWindowOrgEx(PaintMsg.DC, ORect.Left, ORect.Top);
+ MoveWindowOrgEx(PaintMsg.DC, -ORect.Left, -ORect.Top);
{$ifdef DEBUG_DOUBLEBUFFER}
Windows.GetClipBox(PaintMsg.DC, ClipBox);
DebugLn('LCL Drawing in DC ', IntToHex(PaintMsg.DC, 8), '
with
clipping rect (',
I can provide application that's confirm my rightfulness.
But i don't wish to do it, until all child-control negative effects will
debugged (by me), it need to LazReport designer functionality.
If wished, try to place oversized TPaintBox on TScrollBox and try it to
scroll (with above patch applied).
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
