summaryrefslogtreecommitdiff
path: root/src/gui/fpg_editcombo.pas
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graeme@mastermaths.co.za>2013-04-17 10:31:17 +0100
committerDavid Laurence Emerson <dle3ab@angelbase.com>2013-05-28 00:42:52 -0700
commitc26553007573f4b460523c0672b22a80f9461172 (patch)
treef3d81b848537142af3b5b6cf4b8cb2072c79cc23 /src/gui/fpg_editcombo.pas
parent33c5d8cf5f14cadb89b2f82f3557fd9b0ab89348 (diff)
downloadfpGUI-c26553007573f4b460523c0672b22a80f9461172.tar.xz
Revert "Use dead key codes for special accentuated characters"
This reverts commit 5ee5b79db4825a3b2afa03dde72ddbe7e46b3c47.
Diffstat (limited to 'src/gui/fpg_editcombo.pas')
-rw-r--r--src/gui/fpg_editcombo.pas16
1 files changed, 8 insertions, 8 deletions
diff --git a/src/gui/fpg_editcombo.pas b/src/gui/fpg_editcombo.pas
index 72b804ef..311d452f 100644
--- a/src/gui/fpg_editcombo.pas
+++ b/src/gui/fpg_editcombo.pas
@@ -87,7 +87,7 @@ type
FSelStart: integer;
FSelOffset: integer;
FCursorPos: integer;
- FDeadKeyChar: integer;
+ FSpecialChar: integer;
procedure DoDropDown; override;
function GetText: string; virtual;
function HasText: boolean; virtual;
@@ -524,10 +524,10 @@ var
i: integer;
begin
prevval := FText;
- if FDeadKeyChar> -1 then
+ if FSpecialChar> -1 then
begin
- case FDeadKeyChar of
- keyDeadDiaeresis:
+ case FSpecialChar of
+ 58536:
case AText of
'a':
AText:= 'â';
@@ -540,7 +540,7 @@ begin
'u':
AText:= 'ü';
end;
- keyDeadCircumflex:
+ 58462:
case AText of
'a':
AText:= 'â';
@@ -554,7 +554,7 @@ begin
AText:= 'û';
end;
end;
- FDeadKeyChar:= -1;
+ FSpecialChar:= -1;
end;
s := AText;
consumed := False;
@@ -618,7 +618,7 @@ begin
hasChanged := False;
if (keycode= 58536) or (keycode= 58462) then
- FDeadKeyChar:= keycode;
+ FSpecialChar:= keycode;
if not Enabled then
consumed := False
@@ -919,7 +919,7 @@ begin
FDrawOffset := 0;
FSelectedItem := -1; // to allow typing if list is empty
FNewItem := False;
- FDeadKeyChar := -1;
+ FSpecialChar := -1;
CalculateInternalButtonRect;
end;