From e43e72f41b8dc53a46d3dc4839006f6766bdab93 Mon Sep 17 00:00:00 2001
From: micha <micha@lazarus-ide.org>
Date: Fri, 14 May 2004 18:00:30 +0000
Subject: [PATCH] fix buttonrect to contain bounds

git-svn-id: trunk@5474 -
---
 ide/buildlazdialog.pas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/ide/buildlazdialog.pas b/ide/buildlazdialog.pas
index 7c9139876b..5974f8fc9b 100644
--- a/ide/buildlazdialog.pas
+++ b/ide/buildlazdialog.pas
@@ -651,8 +651,10 @@ begin
   ButtonHeight:=ButtonWidth;
   for mm:=Low(TMakeMode) to High(TMakeMode) do begin
     // draw button
-    ButtonRect:=Rect(x,ARect.Top+((ARect.Bottom-ARect.Top-ButtonWidth) div 2),
-                     x+ButtonWidth,ButtonHeight);
+    ButtonRect.Left:=x;
+    ButtonRect.Top:=ARect.Top+((ARect.Bottom-ARect.Top-ButtonWidth) div 2);
+    ButtonRect.Right:=x+ButtonWidth;
+    ButtonRect.Bottom:=ButtonRect.Top+ButtonHeight;
     ButtonState:=DFCS_BUTTONPUSH;
     if CurItem.MakeMode=mm then
       inc(ButtonState,DFCS_PUSHED);