From 7647df9e7d2778d05a5af538ec1fd2e2c12b5b3c Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Wed, 31 Oct 2012 10:09:11 +0000
Subject: uidesigner: moving columns in grid property editor did not work

---
 uidesigner/vfdpropeditgrid.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'uidesigner')

diff --git a/uidesigner/vfdpropeditgrid.pas b/uidesigner/vfdpropeditgrid.pas
index 1a6944cb..874b2b9f 100644
--- a/uidesigner/vfdpropeditgrid.pas
+++ b/uidesigner/vfdpropeditgrid.pas
@@ -366,14 +366,14 @@ begin
   begin
     if grid.FocusRow > 0 then
     begin
-      dbgrid.MoveColumn(grid.FocusRow - 1, grid.FocusRow - 2);
+      dbgrid.MoveColumn(grid.FocusRow, grid.FocusRow - 1);
       grid.FocusRow := grid.FocusRow - 1;
       grid.Update;
     end;
   end
   else if grid.FocusRow < grid.RowCount-1 then
   begin
-    dbgrid.MoveColumn(grid.FocusRow - 1, grid.FocusRow);
+    dbgrid.MoveColumn(grid.FocusRow, grid.FocusRow+1);
     grid.FocusRow := grid.FocusRow + 1;
     grid.Update;
   end;
-- 
cgit v1.2.3-70-g09d2