diff options
| -rw-r--r-- | src/gui/fpg_edit.pas | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/src/gui/fpg_edit.pas b/src/gui/fpg_edit.pas index 61c20808..72befedb 100644 --- a/src/gui/fpg_edit.pas +++ b/src/gui/fpg_edit.pas @@ -900,13 +900,14 @@ begin end; end; { if } - if consumed then - RePaint - else + if not consumed then inherited HandleKeyPress(keycode, shiftstate, consumed); if hasChanged then DoOnChange; + + if consumed then + RePaint; end; procedure TfpgBaseEdit.HandleLMouseDown(x, y: integer; shiftstate: TShiftState); @@ -1142,10 +1143,11 @@ begin FTextOffset := 0; Adjust; - RePaint; if prevval <> Text then DoOnChange; + + RePaint; end; procedure TfpgBaseEdit.SetSideMargin(const AValue: integer); @@ -1350,9 +1352,9 @@ begin FCursorPos := FCursorPos + UTF8Length(s); FSelStart := FCursorPos; Adjust; - Repaint; if prevval <> Text then DoOnChange; + Repaint; end; procedure TfpgBaseEdit.SetAutoSelect(const AValue: Boolean); |