From 3414e0ec244b65f51487d6979be63429bddde8f4 Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 23 Aug 2012 17:24:06 +0000
Subject: [PATCH] fix button width for ButtonEditor in rxdbgrid

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2490 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/rxdbgrid.pas | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/components/rx/rxdbgrid.pas b/components/rx/rxdbgrid.pas
index 25445f1a5..9609cac9f 100644
--- a/components/rx/rxdbgrid.pas
+++ b/components/rx/rxdbgrid.pas
@@ -3550,8 +3550,16 @@ begin
 
     if W>0 then
     begin
-      Editor.Width:=Editor.Width - W;
-      W:=Editor.Width + Editor.Left;
+      if Editor.Name = 'ButtonEditor' then
+      begin
+        Editor.Left:=Editor.Left - W;
+        W:=Editor.Width + Editor.Left;
+      end
+      else
+      begin
+        Editor.Width:=Editor.Width - W;
+        W:=Editor.Width + Editor.Left;
+      end;
 
       for i:=0 to R.EditButtons.Count-1 do
       if R.EditButtons[i].Visible then