uidesigner: moving columns in grid property editor did not work

1 files changed, 2 insertions, 2 deletions

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;