lcl: publish OnUTF8KeyPress

git-svn-id: trunk@16520 -

lcl/buttonpanel.pas

@@ -117,6 +117,7 @@ type
     property OnMouseMove;
     property OnMouseUp;
     property OnResize;
+    property OnUTF8KeyPress;
     property ShowButtons;
     property ShowGlyphs;
     property Visible;

lcl/buttons.pp

@@ -207,6 +207,7 @@ type
     property OnMouseMove;
     property OnMouseUp;
     property OnResize;
+    property OnUTF8KeyPress;
     property ParentFont;
     property ParentShowHint;
     property PopupMenu;

lcl/calendar.pp

@@ -122,6 +122,7 @@ Type
     property OnMouseMove;
     property OnMouseUp;
     property OnResize;
+    property OnUTF8KeyPress;
     property OnYearChanged;
     property PopupMenu;
     property ReadOnly;

lcl/checklst.pas

@@ -128,6 +128,7 @@ type
     property OnResize;
     property OnShowHint;
     property OnStartDrag;
+    property OnUTF8KeyPress;
     property ParentBidiMode;
     property ParentFont;
     property ParentShowHint;

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;

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;

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;

lcl/dbgrids.pas

@@ -545,6 +545,7 @@ type
     property OnStartDrag;
     property OnTitleClick;
     property OnUserCheckboxBitmap;
+    property OnUTF8KeyPress;
   end;
 
 procedure Register;

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

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;
 
 

lcl/filectrl.pp

@@ -121,6 +121,7 @@ Type
     property OnMouseWheelUp;
     property OnResize;
     property OnStartDrag;
+    property OnUTF8KeyPress;
     property ParentShowHint;
     property ParentFont;
     property PopupMenu;

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;
 
 

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);
 

lcl/maskedit.pp

@@ -173,6 +173,7 @@ type
     property OnMouseUp;
     property OnStartDock;
     property OnStartDrag;
+    property OnUTF8KeyPress;
 
     property EditMask;
     property isMasked;

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;

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;