diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-02-09 09:58:03 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-02-09 09:58:03 +0000 |
commit | 7b9b9e179722c46e2e474fce31262b3f62036669 (patch) | |
tree | d8fcfbb560605712f83ff5863a7be01ea8537f8c /src/gui/gui_editcombo.pas | |
parent | c6d1516d6474a46c57fffb845ccef7d1bbfaab76 (diff) | |
download | fpGUI-7b9b9e179722c46e2e474fce31262b3f62036669.tar.xz |
* Introduced to new types: TfpgChar and TfpgString.
* HandleKeyChar has it's first parameter set to TfpgChar. The start of full unicode text input support. At a later date other paramaters will start changing to the new types introduced.
Diffstat (limited to 'src/gui/gui_editcombo.pas')
-rw-r--r-- | src/gui/gui_editcombo.pas | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/gui/gui_editcombo.pas b/src/gui/gui_editcombo.pas index ed0a6d2c..f03ac42e 100644 --- a/src/gui/gui_editcombo.pas +++ b/src/gui/gui_editcombo.pas @@ -100,7 +100,7 @@ type procedure SetText(const AValue: string); virtual; procedure SetHeight(const AValue: TfpgCoord); override; procedure SetWidth(const AValue: TfpgCoord); override; - procedure HandleKeyChar(var AText: String; var shiftstate: TShiftState; var consumed: Boolean); override; + procedure HandleKeyChar(var AText: TfpgChar; var shiftstate: TShiftState; var consumed: Boolean); override; procedure HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: Boolean); override; procedure HandleLMouseDown(x, y: integer; shiftstate: TShiftState); override; procedure HandleLMouseUp(x, y: integer; shiftstate: TShiftState); override; @@ -161,7 +161,7 @@ type FCallerWidget: TfpgWidget; protected procedure HandlePaint; override; - procedure HandleKeyChar(var AText: String; var shiftstate: TShiftState; var consumed: Boolean); override; + procedure HandleKeyChar(var AText: TfpgChar; var shiftstate: TShiftState; var consumed: Boolean); override; procedure HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override; procedure HandleShow; override; procedure HandleHide; override; @@ -182,7 +182,7 @@ begin Canvas.EndDraw; end; -procedure TDropDownWindow.HandleKeyChar(var AText: String; +procedure TDropDownWindow.HandleKeyChar(var AText: TfpgChar; var shiftstate: TShiftState; var consumed: Boolean); begin if TfpgEditCombo(FCallerWidget).FAutoCompletion then @@ -453,7 +453,7 @@ begin RePaint; end; -procedure TfpgAbstractEditCombo.HandleKeyChar(var AText: String; +procedure TfpgAbstractEditCombo.HandleKeyChar(var AText: TfpgChar; var shiftstate: TShiftState; var consumed: Boolean); var s: string; |