diff options
| -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; |