diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2009-02-10 09:20:13 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2009-02-10 09:20:13 +0000 |
| commit | 754372ffd47e5bac07324869a330013b71d39305 (patch) | |
| tree | 05cd8501ffba97172d966e486ee4399ad3577586 /src/gui/fpg_edit.pas | |
| parent | fa6745346420b9d4df1f5bbb32132e26cf0ce000 (diff) | |
| download | fpGUI-754372ffd47e5bac07324869a330013b71d39305.tar.xz | |
* Minor fix in fpg_edit and Backspace key handling.
* Registered the TMediatorItemComboBoxView in tiMediators.
Diffstat (limited to 'src/gui/fpg_edit.pas')
| -rw-r--r-- | src/gui/fpg_edit.pas | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/gui/fpg_edit.pas b/src/gui/fpg_edit.pas index 7325544e..0849797b 100644 --- a/src/gui/fpg_edit.pas +++ b/src/gui/fpg_edit.pas @@ -816,7 +816,9 @@ begin case keycode of keyBackSpace: begin - if FCursorPos > 0 then + if FSelOffset <> 0 then + DeleteSelection + else if FCursorPos > 0 then begin UTF8Delete(FText, FCursorPos, 1); Dec(FCursorPos); |