diff options
Diffstat (limited to 'examples/apps/ide')
| -rw-r--r-- | examples/apps/ide/src/fpg_textedit.pas | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/examples/apps/ide/src/fpg_textedit.pas b/examples/apps/ide/src/fpg_textedit.pas index 360c6164..27edbfa7 100644 --- a/examples/apps/ide/src/fpg_textedit.pas +++ b/examples/apps/ide/src/fpg_textedit.pas @@ -1341,17 +1341,17 @@ begin // if (keycode = keyEscape) or (ssCtrl in ShiftState) then // Exit; //==> - if FSelected then - begin - DeleteSelection; - if keycode = keyBackSpace then - Exit; //==> - end; SLine := FLines[CaretPos.Y]; case keycode of keyBackspace: begin + if FSelected then + begin + DeleteSelection; + consumed := True; + Exit; + end; if UTF8Length(SLine) >= CaretPos.X then X := CaretPos.X else |