diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2013-03-12 16:04:25 +0000 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2013-03-12 16:04:25 +0000 |
commit | 46da80e11125fea2c05c783609c41fe13caa7441 (patch) | |
tree | 6c95e765290933bcf0cd929b6f4fd079a41f7330 /examples/apps | |
parent | 2ec6b508ab5b0921237361761aab328782d7f603 (diff) | |
download | fpGUI-46da80e11125fea2c05c783609c41fe13caa7441.tar.xz |
ide: Adds ability to delete rows in grids in Project Options.
Ctrl+Del now deletes the focused row. Ctrl+Ins was already implemented
to append a new row.
Diffstat (limited to 'examples/apps')
-rw-r--r-- | examples/apps/ide/src/frm_projectoptions.pas | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/examples/apps/ide/src/frm_projectoptions.pas b/examples/apps/ide/src/frm_projectoptions.pas index 0b991ed6..1f70d022 100644 --- a/examples/apps/ide/src/frm_projectoptions.pas +++ b/examples/apps/ide/src/frm_projectoptions.pas @@ -218,6 +218,14 @@ begin TfpgStringGrid(Sender).RowCount := TfpgStringGrid(Sender).RowCount + 1; Consumed := True; Exit; + end + else if (KeyCode = keyDelete) and (ssCtrl in ShiftState) then + begin + if TfpgStringGrid(Sender).RowCount = 0 then + Exit; + TfpgStringGrid(Sender).DeleteRow(TfpgStringGrid(Sender).FocusRow); + Consumed := True; + Exit; end; if TfpgStringGrid(Sender).FocusCol < 10 then @@ -247,6 +255,14 @@ begin TfpgStringGrid(Sender).RowCount := TfpgStringGrid(Sender).RowCount + 1; Consumed := True; Exit; + end + else if (KeyCode = keyDelete) and (ssCtrl in ShiftState) then + begin + if TfpgStringGrid(Sender).RowCount = 0 then + Exit; + TfpgStringGrid(Sender).DeleteRow(TfpgStringGrid(Sender).FocusRow); + Consumed := True; + Exit; end; if TfpgStringGrid(Sender).FocusCol < 6 then |