diff --git a/lcl/buttonpanel.pas b/lcl/buttonpanel.pas index c22f8b7757..f7d44e74c4 100644 --- a/lcl/buttonpanel.pas +++ b/lcl/buttonpanel.pas @@ -117,6 +117,7 @@ type property OnMouseMove; property OnMouseUp; property OnResize; + property OnUTF8KeyPress; property ShowButtons; property ShowGlyphs; property Visible; diff --git a/lcl/buttons.pp b/lcl/buttons.pp index f296a77721..8688584733 100644 --- a/lcl/buttons.pp +++ b/lcl/buttons.pp @@ -207,6 +207,7 @@ type property OnMouseMove; property OnMouseUp; property OnResize; + property OnUTF8KeyPress; property ParentFont; property ParentShowHint; property PopupMenu; diff --git a/lcl/calendar.pp b/lcl/calendar.pp index 9747170020..84557a6410 100644 --- a/lcl/calendar.pp +++ b/lcl/calendar.pp @@ -122,6 +122,7 @@ Type property OnMouseMove; property OnMouseUp; property OnResize; + property OnUTF8KeyPress; property OnYearChanged; property PopupMenu; property ReadOnly; diff --git a/lcl/checklst.pas b/lcl/checklst.pas index 4807a57781..020a3d4da5 100644 --- a/lcl/checklst.pas +++ b/lcl/checklst.pas @@ -128,6 +128,7 @@ type property OnResize; property OnShowHint; property OnStartDrag; + property OnUTF8KeyPress; property ParentBidiMode; property ParentFont; property ParentShowHint; diff --git a/lcl/colorbox.pas b/lcl/colorbox.pas index aa7468ac3d..b0a9efd0ba 100644 --- a/lcl/colorbox.pas +++ b/lcl/colorbox.pas @@ -105,6 +105,7 @@ type property OnMouseUp; property OnStartDrag; property OnSelect; + property OnUTF8KeyPress; end; { TColorListBox } @@ -176,6 +177,7 @@ type property OnSelectionChange; property OnShowHint; property OnStartDrag; + property OnUTF8KeyPress; end; procedure Register; diff --git a/lcl/comctrls.pp b/lcl/comctrls.pp index e4a42c7a02..210e5b84ac 100644 --- a/lcl/comctrls.pp +++ b/lcl/comctrls.pp @@ -1128,6 +1128,7 @@ type property OnResize; property OnSelectItem; property OnStartDrag; + property OnUTF8KeyPress; end; TProgressBarOrientation = (pbHorizontal, pbVertical, pbRightToLeft, pbTopDown); @@ -1719,6 +1720,7 @@ type property OnKeyUp; property OnResize; property OnStartDrag; + property OnUTF8KeyPress; property Orientation; property PageSize; property ParentCtl3D; @@ -2520,6 +2522,7 @@ type property OnShowHint; //property OnStartDock; property OnStartDrag; + property OnUTF8KeyPress; property Options; property Items; property TreeLineColor; diff --git a/lcl/dbctrls.pp b/lcl/dbctrls.pp index 1efbe08388..8c389bb890 100644 --- a/lcl/dbctrls.pp +++ b/lcl/dbctrls.pp @@ -205,6 +205,7 @@ Type property OnMouseMove; property OnMouseUp; property OnStartDrag; + property OnUTF8KeyPress; end; @@ -328,6 +329,7 @@ Type property OnMouseUp; property OnResize; property OnStartDrag; + property OnUTF8KeyPress; property ParentShowHint; property ShowHint; property Sorted; @@ -550,6 +552,7 @@ Type property OnMouseUp; property OnSelect; property OnStartDrag; + property OnUTF8KeyPress; property ParentCtl3D; property ParentColor; property ParentFont; @@ -622,6 +625,7 @@ Type property OnKeyPress; property OnKeyUp; property OnStartDrag; + property OnUTF8KeyPress; property ParentFont; property PopupMenu; property ReadOnly: Boolean read GetReadOnly write SetReadOnly default False; @@ -683,6 +687,7 @@ Type property OnMouseUp; property OnResize; property OnStartDrag; + property OnUTF8KeyPress; property ParentColor; property ParentCtl3D; property ParentFont; diff --git a/lcl/dbgrids.pas b/lcl/dbgrids.pas index ef563cb7f9..18f3a9e2f9 100644 --- a/lcl/dbgrids.pas +++ b/lcl/dbgrids.pas @@ -545,6 +545,7 @@ type property OnStartDrag; property OnTitleClick; property OnUserCheckboxBitmap; + property OnUTF8KeyPress; end; procedure Register; diff --git a/lcl/editbtn.pas b/lcl/editbtn.pas index abc6535bd5..6a4ee0cdcd 100644 --- a/lcl/editbtn.pas +++ b/lcl/editbtn.pas @@ -133,6 +133,7 @@ type property OnMouseMove; property OnMouseUp; property OnStartDrag; + property OnUTF8KeyPress; property ParentColor; property ParentCtl3D; property ParentFont; @@ -233,6 +234,7 @@ type property OnMouseMove; property OnMouseUp; property OnStartDrag; + property OnUTF8KeyPress; end; @@ -307,6 +309,7 @@ type property OnMouseMove; property OnMouseUp; property OnStartDrag; + property OnUTF8KeyPress; end; @@ -384,6 +387,7 @@ type property OnMouseMove; property OnMouseUp; property OnResize; + property OnUTF8KeyPress; property ParentFont; property ParentShowHint; property PasswordChar; @@ -470,6 +474,7 @@ type property OnMouseMove; property OnMouseUp; property OnStartDrag; + property OnUTF8KeyPress; end; var diff --git a/lcl/extctrls.pp b/lcl/extctrls.pp index b5aa07d5dc..9b460f1cd5 100644 --- a/lcl/extctrls.pp +++ b/lcl/extctrls.pp @@ -775,6 +775,7 @@ type property OnMouseUp; property OnResize; property OnStartDrag; + property OnUTF8KeyPress; property ParentFont; property ParentColor; property ParentCtl3D; @@ -868,6 +869,7 @@ type property OnMouseMove; property OnMouseUp; property OnResize; + property OnUTF8KeyPress; property ParentFont; property ParentColor; property ParentCtl3D; @@ -990,6 +992,7 @@ type property OnMouseMove; property OnMouseUp; property OnStartDrag; + property OnUTF8KeyPress; end; diff --git a/lcl/filectrl.pp b/lcl/filectrl.pp index 623eb2b672..7f9efdfec0 100644 --- a/lcl/filectrl.pp +++ b/lcl/filectrl.pp @@ -121,6 +121,7 @@ Type property OnMouseWheelUp; property OnResize; property OnStartDrag; + property OnUTF8KeyPress; property ParentShowHint; property ParentFont; property PopupMenu; diff --git a/lcl/grids.pas b/lcl/grids.pas index 76ff5c2da8..0325a647bb 100644 --- a/lcl/grids.pas +++ b/lcl/grids.pas @@ -1145,9 +1145,14 @@ type property OnColRowInserted: TGridOperationEvent read FOnColRowInserted write FOnColRowInserted; property OnColRowMoved: TgridOperationEvent read FOnColRowMoved write FOnColRowMoved; property OnCompareCells; + property OnContextPopup; property OnDblClick; + property OnDragDrop; + property OnDragOver; property OnDrawCell; property OnEditButtonClick; + property OnEndDock; + property OnEndDrag; property OnEnter; property OnExit; property OnGetEditMask: TGetEditEvent read FOnGetEditMask write FOnGetEditMask; @@ -1168,17 +1173,10 @@ type property OnSelection; property OnSelectCell: TOnSelectCellEvent read FOnSelectCell write FOnSelectCell; property OnSetEditText: TSetEditEvent read FOnSetEditText write FOnSetEditText; - property OnTopleftChanged; - -{ - property OnContextPopup; - property OnDragDrop; - property OnDragOver; - property OnEndDock; - property OnEndDrag; property OnStartDock; property OnStartDrag; -} + property OnTopleftChanged; + property OnUTF8KeyPress; end; @@ -1219,9 +1217,9 @@ type property HeaderPushZones; property Options; //property ParentBiDiMode; - //property ParentColor; + property ParentColor; //property ParentCtl3D; // Deprecated - //property ParentFont; + property ParentFont; property ParentShowHint; property PopupMenu; property RowCount; @@ -1269,13 +1267,14 @@ type property OnSelectCell; property OnSetEditText; property OnTopleftChanged; - //property OnContextPopup; + property OnContextPopup; property OnDragDrop; property OnDragOver; property OnEndDock; property OnEndDrag; property OnStartDock; property OnStartDrag; + property OnUTF8KeyPress; end; TCustomStringGrid = class; @@ -1407,9 +1406,9 @@ type property HeaderPushZones; property Options; //property ParentBiDiMode; - //property ParentColor; + property ParentColor; //property ParentCtl3D; // Deprecated - //property ParentFont; + property ParentFont; property ParentShowHint; property PopupMenu; property RowCount; @@ -1466,10 +1465,8 @@ type property OnStartDock; property OnStartDrag; property OnTopLeftChanged; - -{ + property OnUTF8KeyPress; property OnContextPopup; -} end; diff --git a/lcl/interfaces/win32/win32callback.inc b/lcl/interfaces/win32/win32callback.inc index aa35c11fb9..12be5aad7c 100644 --- a/lcl/interfaces/win32/win32callback.inc +++ b/lcl/interfaces/win32/win32callback.inc @@ -1103,7 +1103,7 @@ var Result := false; UTF8Char := UTF8Encode(WideChar(AChar)); lWinControl := WindowInfo^.WinControl; - if assigned(lWinControl) then + if Assigned(lWinControl) then begin Result:= lWinControl.IntfUTF8KeyPress(UTF8Char, 1, False); diff --git a/lcl/maskedit.pp b/lcl/maskedit.pp index 618b7e7ad8..dbaf7fe0d9 100644 --- a/lcl/maskedit.pp +++ b/lcl/maskedit.pp @@ -173,6 +173,7 @@ type property OnMouseUp; property OnStartDock; property OnStartDrag; + property OnUTF8KeyPress; property EditMask; property isMasked; diff --git a/lcl/spin.pp b/lcl/spin.pp index 7bbf3561bf..8138e1ccfc 100644 --- a/lcl/spin.pp +++ b/lcl/spin.pp @@ -106,6 +106,7 @@ type property OnMouseMove; property OnMouseUp; property OnResize; + property OnUTF8KeyPress; property ParentFont; property ParentShowHint; property PopupMenu; @@ -170,6 +171,7 @@ type property OnMouseMove; property OnMouseUp; property OnResize; + property OnUTF8KeyPress; property ParentFont; property ParentShowHint; property PopupMenu; diff --git a/lcl/stdctrls.pp b/lcl/stdctrls.pp index beaf1daf46..d2cad005e1 100644 --- a/lcl/stdctrls.pp +++ b/lcl/stdctrls.pp @@ -154,6 +154,7 @@ type property OnKeyUp; property OnScroll; property OnStartDrag; + property OnUTF8KeyPress; end; @@ -222,6 +223,7 @@ type property OnStartDock; property OnStartDrag; property OnUnDock; + property OnUTF8KeyPress; end; { TCustomComboBox } @@ -441,6 +443,7 @@ type property OnMouseUp; property OnStartDrag; property OnSelect; + property OnUTF8KeyPress; property ParentBidiMode; property ParentColor; property ParentCtl3D; @@ -581,6 +584,7 @@ type property OnResize; property OnSelectionChange: TSelectionChangeEvent read FOnSelectionChange write FOnSelectionChange; + property OnUTF8KeyPress; property ParentFont; property ParentShowHint; property PopupMenu; @@ -645,6 +649,7 @@ type property OnSelectionChange; property OnShowHint; property OnStartDrag; + property OnUTF8KeyPress; property ParentBidiMode; property ParentShowHint; property ParentFont; @@ -850,6 +855,7 @@ type property OnMouseUp; property OnResize; property OnStartDrag; + property OnUTF8KeyPress; property ParentFont; property ParentShowHint; property PasswordChar; @@ -902,6 +908,7 @@ type property OnMouseWheelDown; property OnMouseWheelUp; property OnStartDrag; + property OnUTF8KeyPress; property ParentBidiMode; property ParentFont; property PopupMenu; @@ -1113,6 +1120,7 @@ type property OnMouseUp; property OnResize; property OnStartDrag; + property OnUTF8KeyPress; property ParentFont; property ParentShowHint; property PopupMenu; @@ -1202,6 +1210,7 @@ type property OnMouseUp; property OnResize; property OnStartDrag; + property OnUTF8KeyPress; property ParentColor; property ParentFont; property ParentShowHint; @@ -1284,6 +1293,7 @@ type property OnMouseDown; property OnMouseUp; property OnMouseMove; + property OnUTF8KeyPress; property Visible; property Caption; property Enabled;