summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graeme@mastermaths.co.za>2013-04-17 10:31:20 +0100
committerGraeme Geldenhuys <graeme@mastermaths.co.za>2013-04-17 10:31:20 +0100
commitde4594c457ce45a23e689b651323df3680073875 (patch)
treed55248cc76b352df20bf61c9374310c4d8653ce3
parentd305eb02807d90d94b3f0edac509e270ac582b7c (diff)
downloadfpGUI-de4594c457ce45a23e689b651323df3680073875.tar.xz
Revert "Make special characters known by editcombobox"
This reverts commit c7b3cdcd025e2f8cc8db7db0cf01fdacefbe2255.
-rw-r--r--src/gui/fpg_editcombo.pas37
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;