diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-10-31 10:09:11 +0000 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-10-31 10:09:11 +0000 |
commit | 7647df9e7d2778d05a5af538ec1fd2e2c12b5b3c (patch) | |
tree | deef0210d4e89e6318104c2e73bac9fa589338b6 /uidesigner/vfdpropeditgrid.pas | |
parent | a907a6a7599dbaabf040cad1c862912b769bddc6 (diff) | |
download | fpGUI-7647df9e7d2778d05a5af538ec1fd2e2c12b5b3c.tar.xz |
uidesigner: moving columns in grid property editor did not work
Diffstat (limited to 'uidesigner/vfdpropeditgrid.pas')
-rw-r--r-- | uidesigner/vfdpropeditgrid.pas | 4 |
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; |