diff options
| -rw-r--r-- | src/gui/fpg_edit.pas | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/src/gui/fpg_edit.pas b/src/gui/fpg_edit.pas index f82bbf1f..23d33d88 100644 --- a/src/gui/fpg_edit.pas +++ b/src/gui/fpg_edit.pas @@ -843,8 +843,6 @@ begin if not Consumed then begin - consumed := True; - if not ReadOnly then begin case keycode of @@ -858,9 +856,9 @@ begin Dec(FCursorPos); hasChanged := True; end;// backspace + Consumed := True; end; - keyDelete: begin if FSelOffset <> 0 then @@ -868,10 +866,9 @@ begin else if FCursorPos < UTF8Length(FText) then UTF8Delete(FText, FCursorPos + 1, 1); hasChanged := True; + Consumed := True; end; - else - Consumed := False; - end; + end; { case } end; if Consumed then |