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

Patch from bug #17451, fixes wince window org (yet again)

Browse Source 
git-svn-id: trunk@27433 -
This commit is contained in:
sekelsenmat 2010-09-22 09:47:31 +00:00
parent cd8b4c2c15
commit b5904b902b
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/wince/wincewinapi.inc
View File

@ -148,9 +148,7 @@ var
// * Windows control y position inside group box is too highe
// See: http://wiki.lazarus.freepascal.org/Windows_CE_Development_Notes#Regressions
LCLIntf.GetWindowOrgEx(PaintMsg.DC, @Point);
LCLIntf.SetWindowOrgEx(PaintMsg.DC, 0, 0, nil);
// MoveWindowOrgEx(PaintMsg.DC,-ClientBoundRect.Left,-ClientBoundRect.Top);
MoveWindowOrgEx(PaintMsg.DC,-ClientBoundRect.Left,-ClientBoundRect.Top);
try
{$IFDEF DEBUG_WINCE_LABELS}
DebugLn('Before CallDefaultWindowProc WindowOrg Temporarely set to 0,0');
@ -159,8 +157,7 @@ var
CallDefaultWindowProc(Handle, WM_PAINT, PaintMsg.DC, 0);
finally
// restore DC origin
// MoveWindowOrgEx(PaintMsg.DC, ClientBoundRect.Left, ClientBoundRect.Top);
LCLIntf.SetWindowOrgEx(PaintMsg.DC, Point.X, Point.Y, nil);
MoveWindowOrgEx(PaintMsg.DC, ClientBoundRect.Left, ClientBoundRect.Top);
end;
{$IFDEF DEBUG_WINCE_LABELS}
DebugLn(Format('After CallDefaultWindowProc WindowOrg: %d,%d',