paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-24 07:19:34 +01: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 // * Windows control y position inside group box is too highe
// See: http://wiki.lazarus.freepascal.org/Windows_CE_Development_Notes#Regressions // See: http://wiki.lazarus.freepascal.org/Windows_CE_Development_Notes#Regressions
LCLIntf.GetWindowOrgEx(PaintMsg.DC, @Point); MoveWindowOrgEx(PaintMsg.DC,-ClientBoundRect.Left,-ClientBoundRect.Top);
LCLIntf.SetWindowOrgEx(PaintMsg.DC, 0, 0, nil);
// MoveWindowOrgEx(PaintMsg.DC,-ClientBoundRect.Left,-ClientBoundRect.Top);
try try
{$IFDEF DEBUG_WINCE_LABELS} {$IFDEF DEBUG_WINCE_LABELS}
DebugLn('Before CallDefaultWindowProc WindowOrg Temporarely set to 0,0'); DebugLn('Before CallDefaultWindowProc WindowOrg Temporarely set to 0,0');
@ -159,8 +157,7 @@ var
CallDefaultWindowProc(Handle, WM_PAINT, PaintMsg.DC, 0); CallDefaultWindowProc(Handle, WM_PAINT, PaintMsg.DC, 0);
finally finally
// restore DC origin // restore DC origin
// MoveWindowOrgEx(PaintMsg.DC, ClientBoundRect.Left, ClientBoundRect.Top); MoveWindowOrgEx(PaintMsg.DC, ClientBoundRect.Left, ClientBoundRect.Top);
LCLIntf.SetWindowOrgEx(PaintMsg.DC, Point.X, Point.Y, nil);
end; end;
{$IFDEF DEBUG_WINCE_LABELS} {$IFDEF DEBUG_WINCE_LABELS}
DebugLn(Format('After CallDefaultWindowProc WindowOrg: %d,%d', DebugLn(Format('After CallDefaultWindowProc WindowOrg: %d,%d',