From d79ef4641efa5b3218c64075c9306e4bf1c6d3ea Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Sat, 6 Jul 2013 07:53:36 +0000
Subject: [PATCH] IDE: simplify code in build mode manager

git-svn-id: trunk@42004 -
---
 ide/buildmodesmanager.pas | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/ide/buildmodesmanager.pas b/ide/buildmodesmanager.pas
index 1e531a4555..7db914b511 100644
--- a/ide/buildmodesmanager.pas
+++ b/ide/buildmodesmanager.pas
@@ -542,15 +542,9 @@ end;
 
 procedure TBuildModesForm.BuildModesStringGridDrawCell(Sender: TObject; aCol,
   aRow: Integer; aRect: TRect; aState: TGridDrawState);
-var
-  Canv: TCanvas;
 begin
   if (aCol=1) and (aRow=1) then
-  begin
-    Canv := (Sender as TStringGrid).Canvas;
-//    Canv.Brush.Color := clWindow;
-    Canv.FillRect(aRect);
-  end;
+    (Sender as TStringGrid).Canvas.FillRect(aRect);
 end;
 
 function TBuildModesForm.GetActiveBuildMode: TProjectBuildMode;