diff options
author | Graeme Geldenhuys <graemeg@gmail.com> | 2013-04-18 12:16:30 +0100 |
---|---|---|
committer | Graeme Geldenhuys <graemeg@gmail.com> | 2013-04-18 12:16:30 +0100 |
commit | 37a30285f054d78fb1403e501a7d30ab01584ad0 (patch) | |
tree | d385dad0f54d257bae50732c098aa4af54471809 /src/gui/fpg_edit.pas | |
parent | cfa370eb864bb4e040321c47b5ee56476029cbf8 (diff) | |
parent | 75d8e848f6e599a477429c4ee95a95e2967b34a8 (diff) | |
download | fpGUI-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.pas | 10 |
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; |