From e8a85989c61c294ea1e752e489df8d0ca9ddd540 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Tue, 20 Feb 2007 23:18:34 +0000
Subject: [PATCH] win32 interface: made LCLIntf.Rectangle and TCanvas.Rectangle
 compatible with Windows.Rectangle winapi function (bug #8342)

git-svn-id: trunk@10665 -
---
 lcl/interfaces/win32/win32winapi.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/interfaces/win32/win32winapi.inc b/lcl/interfaces/win32/win32winapi.inc
index f962742bf7..b0e8ca3509 100644
--- a/lcl/interfaces/win32/win32winapi.inc
+++ b/lcl/interfaces/win32/win32winapi.inc
@@ -2687,7 +2687,7 @@ End;
 Function TWin32WidgetSet.Rectangle(DC: HDC; X1, Y1, X2, Y2: Integer): Boolean;
 Begin
   Assert(False, Format('Trace:> [TWin32WidgetSet.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:< [TWin32WidgetSet.Rectangle] DC:0x%x, X1:%d, Y1:%d, X2:%d, Y2:%d', [DC, X1, Y1, X2, Y2]));
 End;