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

WinCE: Fixes Rectangle routine.

Browse Source 
git-svn-id: trunk@19092 -
This commit is contained in:
sekelsenmat 2009-03-24 14:19:06 +00:00
parent 5a3ce1a137
commit f676add39f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2037,7 +2037,7 @@ end;}
function TWinCEWidgetSet.Rectangle(DC: HDC; X1, Y1, X2, Y2: Integer): Boolean;
begin
Assert(False, Format('Trace:> [TWinCEWidgetSet.Rectangle] DC:0x%x, X1:%d, Y1:%d, X2:%d, Y2:%d', [DC, X1, Y1, X2, Y2]));
Result := Boolean(Windows.Rectangle(DC, X1, Y1, X2+1, Y2+1));
Result := Boolean(Windows.Rectangle(DC, X1, Y1, X2, Y2));
Assert(False, Format('Trace:< [TWinCEWidgetSet.Rectangle] DC:0x%x, X1:%d, Y1:%d, X2:%d, Y2:%d', [DC, X1, Y1, X2, Y2]));
end;