diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2013-04-17 10:31:20 +0100 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2013-04-17 10:31:20 +0100 |
commit | de4594c457ce45a23e689b651323df3680073875 (patch) | |
tree | d55248cc76b352df20bf61c9374310c4d8653ce3 | |
parent | d305eb02807d90d94b3f0edac509e270ac582b7c (diff) | |
download | fpGUI-de4594c457ce45a23e689b651323df3680073875.tar.xz |
Revert "Make special characters known by editcombobox"
This reverts commit c7b3cdcd025e2f8cc8db7db0cf01fdacefbe2255.
-rw-r--r-- | src/gui/fpg_editcombo.pas | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/src/gui/fpg_editcombo.pas b/src/gui/fpg_editcombo.pas index 311d452f..3887cd13 100644 --- a/src/gui/fpg_editcombo.pas +++ b/src/gui/fpg_editcombo.pas @@ -87,7 +87,6 @@ type FSelStart: integer; FSelOffset: integer; FCursorPos: integer; - FSpecialChar: integer; procedure DoDropDown; override; function GetText: string; virtual; function HasText: boolean; virtual; @@ -524,38 +523,6 @@ var i: integer; begin prevval := FText; - if FSpecialChar> -1 then - begin - case FSpecialChar of - 58536: - case AText of - 'a': - AText:= 'â'; - 'e': - AText:= 'ë'; - 'i': - AText:= 'ï'; - 'o': - AText:= 'ö'; - 'u': - AText:= 'ü'; - end; - 58462: - case AText of - 'a': - AText:= 'â'; - 'e': - AText:= 'ê'; - 'i': - AText:= 'î'; - 'o': - AText:= 'ô'; - 'u': - AText:= 'û'; - end; - end; - FSpecialChar:= -1; - end; s := AText; consumed := False; if FText = '' then @@ -617,9 +584,6 @@ var begin hasChanged := False; - if (keycode= 58536) or (keycode= 58462) then - FSpecialChar:= keycode; - if not Enabled then consumed := False else @@ -919,7 +883,6 @@ begin FDrawOffset := 0; FSelectedItem := -1; // to allow typing if list is empty FNewItem := False; - FSpecialChar := -1; CalculateInternalButtonRect; end; |