From 27409f30803320933527236738b915ec0267edf4 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Thu, 22 Mar 2007 19:10:10 +0000
Subject: [PATCH] gtk interface: made Rectangle winapi compatible (bug #8342)

git-svn-id: trunk@10782 -
---
 lcl/interfaces/gtk/gtkwinapi.inc | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lcl/interfaces/gtk/gtkwinapi.inc b/lcl/interfaces/gtk/gtkwinapi.inc
index ab44eb89f8..0089ddffbb 100644
--- a/lcl/interfaces/gtk/gtkwinapi.inc
+++ b/lcl/interfaces/gtk/gtkwinapi.inc
@@ -7416,6 +7416,9 @@ begin
     end
     else begin
       CalculateLeftTopWidthHeight(X1,Y1,X2,Y2,Left,Top,Width,Height);
+      // X2, Y2 is not part of the rectangle
+      dec(Width);
+      dec(Height);
       // first draw interior in brush color
       SelectGDKBrushProps(DC);
       DCOrigin:=GetDCOffset(TDeviceContext(DC));