summaryrefslogtreecommitdiff
path: root/src/gui/fpg_edit.pas
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graemeg@gmail.com>2013-04-18 12:16:30 +0100
committerGraeme Geldenhuys <graemeg@gmail.com>2013-04-18 12:16:30 +0100
commit37a30285f054d78fb1403e501a7d30ab01584ad0 (patch)
treed385dad0f54d257bae50732c098aa4af54471809 /src/gui/fpg_edit.pas
parentcfa370eb864bb4e040321c47b5ee56476029cbf8 (diff)
parent75d8e848f6e599a477429c4ee95a95e2967b34a8 (diff)
downloadfpGUI-37a30285f054d78fb1403e501a7d30ab01584ad0.tar.xz
Merge branch 'hotfix-2' into develop
I found a problem with the deadkey support - it broke keyboard input under Windows. The original deadkey input issue seems to have been X11 specific, so should be fixed at widget level, but rather in the fpg_x11.pas unit.
Diffstat (limited to 'src/gui/fpg_edit.pas')
-rw-r--r--src/gui/fpg_edit.pas10
1 files changed, 0 insertions, 10 deletions
diff --git a/src/gui/fpg_edit.pas b/src/gui/fpg_edit.pas
index 21e6895e..f164ef76 100644
--- a/src/gui/fpg_edit.pas
+++ b/src/gui/fpg_edit.pas
@@ -94,7 +94,6 @@ type
FVisibleText: TfpgString;
FVisSelStartPx: integer;
FVisSelEndPx: integer;
- FDeadKeyChar: integer;
function GetMarginAdjustment: integer; virtual;
procedure DrawSelection; virtual;
procedure DoOnChange; virtual;
@@ -756,11 +755,6 @@ var
prevval: string;
begin
prevval := Text;
- if FDeadKeyChar> -1 then
- begin
- AText:= UseDeadKey(AText, FDeadKeyChar);
- FDeadKeyChar:= -1;
- end;
s := AText;
if (not consumed) and (not ReadOnly) then
@@ -804,9 +798,6 @@ begin
hasChanged := False;
fpgApplication.HideHint;
- if FDeadKeyChar = -1 then
- FDeadKeyChar:= ReadDeadKey(keycode);
-
Consumed := True;
case CheckClipBoardKey(keycode, shiftstate) of
ckCopy:
@@ -1079,7 +1070,6 @@ begin
FPopupMenu := nil;
FDefaultPopupMenu := nil;
FOnChange := nil;
- FDeadKeyChar := -1;
end;
destructor TfpgBaseEdit.Destroy;