diff options
| -rw-r--r-- | extras/tiopf/gui/tiMediators.pas | 3 | ||||
| -rw-r--r-- | src/gui/fpg_edit.pas | 4 |
2 files changed, 5 insertions, 2 deletions
diff --git a/extras/tiopf/gui/tiMediators.pas b/extras/tiopf/gui/tiMediators.pas index df6a6f5b..6cfb87ff 100644 --- a/extras/tiopf/gui/tiMediators.pas +++ b/extras/tiopf/gui/tiMediators.pas @@ -229,9 +229,10 @@ begin gMediatorManager.RegisterMediator(TMediatorEditView, TtiObject, [tkSString,tkAString,tkInteger,tkFloat]); gMediatorManager.RegisterMediator(TMediatorCheckBoxView, TtiObject, [tkBool]); gMediatorManager.RegisterMediator(TMediatorComboboxView, TtiObject, [tkSString,tkAString]); + gMediatorManager.RegisterMediator(TMediatorItemComboBoxView, TtiObject, [tkInteger, tkEnumeration]); + gMediatorManager.RegisterMediator(TMediatorDynamicComboBoxView, TtiObject, [tkClass]); gMediatorManager.RegisterMediator(TMediatorStaticTextView, TtiObject); gMediatorManager.RegisterMediator(TMediatorTrackBarView, TtiObject, [tkInteger]); - gMediatorManager.RegisterMediator(TMediatorDynamicComboBoxView, TtiObject, [tkClass]); gMediatorManager.RegisterMediator(TMediatorMemoView, TtiObject, [tkSString,tkAString]); gMediatorManager.RegisterMediator(TMediatorCalendarComboView, TtiObject, [tkFloat]); gMediatorManager.RegisterMediator(TMediatorSpinEditView, TtiObject, [tkInteger]); 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); |