diff options
Diffstat (limited to 'examples')
| -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 |