paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 11:58:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: publish OnUTF8KeyPress

Browse Source 
git-svn-id: trunk@16520 -
This commit is contained in:
paul 2008-09-10 09:22:59 +00:00
parent 44bad2e31d
commit 3374c666b8
16 changed files with 52 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/buttonpanel.pas
View File

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

1
lcl/buttons.pp
View File

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

1
lcl/calendar.pp
View File

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

1
lcl/checklst.pas
View File

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

2
lcl/colorbox.pas
View File

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

3
lcl/comctrls.pp
View File

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

5
lcl/dbctrls.pp
View File

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

1
lcl/dbgrids.pas
View File

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

5
lcl/editbtn.pas
View File

@ -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

3
lcl/extctrls.pp
View File

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

1
lcl/filectrl.pp
View File

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

31
lcl/grids.pas
View File

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

2
lcl/interfaces/win32/win32callback.inc
View File

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

1
lcl/maskedit.pp
View File

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

2
lcl/spin.pp
View File

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

10
lcl/stdctrls.pp
View File

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