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

LCL/all units with controls: stream events at the end.

Browse Source
This commit is contained in:
wp_xyz 2023-08-12 14:55:46 +02:00
parent 44d7786c19
commit 0cbb6646f7
21 changed files with 550 additions and 493 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/actnlist.pas
View File

@ -237,12 +237,13 @@ type
property HelpType;
property Hint;
property ImageIndex;
property OnExecute;
property OnHint;
property OnUpdate;
property SecondaryShortCuts;
property ShortCut;
property Visible;
property OnExecute;
property OnHint;
property OnUpdate;
end;

15
lcl/arrow.pp
View File

@ -61,6 +61,14 @@ type
property Constraints;
property Enabled;
property Hint;
property ParentColor;
property ParentShowHint;
property PopupMenu;
property ShadowType: TShadowType read FShadowType write SetShadowType default stEtchedIn;
property ShadowColor: TColor read FShadowColor write SetShadowColor default cl3DShadow;
property ShowHint;
property Visible;
property OnChangeBounds;
property OnClick;
property OnContextPopup;
@ -82,13 +90,6 @@ type
property OnPaint;
property OnResize;
property OnStartDrag;
property ParentColor;
property ParentShowHint;
property PopupMenu;
property ShadowType: TShadowType read FShadowType write SetShadowType default stEtchedIn;
property ShadowColor: TColor read FShadowColor write SetShadowColor default cl3DShadow;
property ShowHint;
property Visible;
end;
procedure Register;

9
lcl/buttonpanel.pas
View File

@ -134,6 +134,11 @@ type
property TabOrder;
property DefaultButton;
property Spacing;
property ShowButtons;
property ShowGlyphs;
property ShowBevel;
property Visible;
property OnClick;
property OnDblClick;
property OnDragDrop;
@ -152,10 +157,6 @@ type
property OnMouseWheelUp;
property OnResize;
property OnUTF8KeyPress;
property ShowButtons;
property ShowGlyphs;
property ShowBevel;
property Visible;
end;
procedure Register;

36
lcl/buttons.pp
View File

@ -266,6 +266,18 @@ type
property Images;
property ImageIndex;
property ImageWidth;
property ParentBidiMode;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property PressedImageIndex;
// property SelectedImageIndex;
property ShowHint;
property Spacing;
property TabOrder;
property TabStop;
property Visible;
property OnChangeBounds;
property OnClick;
property OnContextPopup;
@ -288,17 +300,6 @@ type
property OnResize;
property OnStartDrag;
property OnUTF8KeyPress;
property ParentBidiMode;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property PressedImageIndex;
// property SelectedImageIndex;
property ShowHint;
property Spacing;
property TabOrder;
property TabStop;
property Visible;
end;
@ -471,6 +472,13 @@ type
property Spacing;
property Transparent;
property Visible;
property ShowCaption;
property ShowHint;
property ParentBidiMode;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property OnClick;
property OnContextPopup;
property OnDblClick;
@ -489,12 +497,6 @@ type
property OnResize;
property OnStartDrag;
property OnChangeBounds;
property ShowCaption;
property ShowHint;
property ParentBidiMode;
property ParentFont;
property ParentShowHint;
property PopupMenu;
end;
{ To override the default TBitBtn glyphs set GetDefaultBitBtnGlyph below.

13
lcl/calendar.pp
View File

@ -149,6 +149,13 @@ type
property Hint;
property MinDate;
property MaxDate;
property ParentDoubleBuffered;
property PopupMenu;
property ShowHint;
property TabOrder;
property TabStop;
property Visible;
property OnChange;
property OnChangeBounds;
property OnClick;
@ -174,12 +181,6 @@ type
property OnResize;
property OnUTF8KeyPress;
property OnYearChanged;
property ParentDoubleBuffered;
property PopupMenu;
property ShowHint;
property TabOrder;
property TabStop;
property Visible;
end;
procedure Register;

25
lcl/checklst.pas
View File

@ -113,6 +113,19 @@ type
property ItemHeight;
property ItemIndex;
property MultiSelect;
property ParentBidiMode;
property ParentColor;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property Sorted;
property Style;
property TabOrder;
property TabStop;
property TopIndex;
property Visible;
property OnChangeBounds;
property OnClick;
property OnClickCheck;
@ -145,18 +158,6 @@ type
property OnShowHint;
property OnStartDrag;
property OnUTF8KeyPress;
property ParentBidiMode;
property ParentColor;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property Sorted;
property Style;
property TabOrder;
property TabStop;
property TopIndex;
property Visible;
end;

19
lcl/colorbox.pas
View File

@ -123,6 +123,16 @@ type
property Font;
property ItemHeight;
property ItemWidth;
property ParentBidiMode;
property ParentColor;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property TabOrder;
property TabStop;
property Visible;
property OnChange;
property OnChangeBounds;
property OnClick;
@ -150,15 +160,6 @@ type
property OnStartDrag;
property OnSelect;
property OnUTF8KeyPress;
property ParentBidiMode;
property ParentColor;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property TabOrder;
property TabStop;
property Visible;
end;
{ TCustomColorListBox }

50
lcl/comboex.pas
View File

@ -214,6 +214,19 @@ type
property ItemIndex;
property ItemWidth;
property MaxLength;
property ParentBidiMode;
property ParentColor;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property Style;
property StyleEx;
property TabOrder;
property TabStop;
property Text;
property TextHint;
property Visible;
property OnChange;
property OnChangeBounds;
property OnClick;
@ -244,19 +257,6 @@ type
property OnStartDock;
property OnStartDrag;
property OnUTF8KeyPress;
property ParentBidiMode;
property ParentColor;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property Style;
property StyleEx;
property TabOrder;
property TabStop;
property Text;
property TextHint;
property Visible;
end;
{ TCheckComboItemState }
@ -355,6 +355,18 @@ type
property Items;
property ItemWidth;
property MaxLength;
property ParentBidiMode;
property ParentColor;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property Sorted;
property TabOrder;
property TabStop;
property Text;
property TextHint;
property Visible;
property OnChange;
property OnChangeBounds;
property OnClick;
@ -384,18 +396,6 @@ type
property OnStartDrag;
property OnSelect;
property OnUTF8KeyPress;
property ParentBidiMode;
property ParentColor;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property Sorted;
property TabOrder;
property TabStop;
property Text;
property TextHint;
property Visible;
end;
procedure Register;

159
lcl/comctrls.pp
View File

@ -541,6 +541,16 @@ type
property Height stored False;
property ImageIndex;
property Left stored False;
property PageIndex stored False;
property ParentBiDiMode;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property TabVisible default True;
property Top stored False;
property Width stored False;
property OnContextPopup;
property OnDragDrop;
property OnDragOver;
@ -559,15 +569,6 @@ type
property OnResize;
property OnShow;
property OnStartDrag;
property PageIndex stored False;
property ParentBiDiMode;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property TabVisible default True;
property Top stored False;
property Width stored False;
end;
{ TPageControl }
@ -624,6 +625,7 @@ type
property Images;
property ImagesWidth;
property MultiLine;
property Options;
//property OwnerDraw;
property ParentBiDiMode;
property ParentFont;
@ -641,6 +643,7 @@ type
property TabStop;
property TabWidth;
property Visible;
property OnChange;
property OnChanging;
property OnCloseTabClicked;
@ -668,7 +671,6 @@ type
property OnStartDock;
property OnStartDrag;
property OnUnDock;
property Options;
end;
TTabControl = class;
@ -896,6 +898,15 @@ type
property DragMode;
property Enabled;
property Font;
property Options;
property ParentBiDiMode;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property TabOrder;
property Visible;
property OnChangeBounds;
property OnContextPopup;
property OnDockDrop;
@ -919,14 +930,6 @@ type
property OnStartDock;
property OnStartDrag;
property OnUnDock;
property Options;
property ParentBiDiMode;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property TabOrder;
property Visible;
end;
{ Custom draw }
@ -1733,6 +1736,7 @@ type
property ToolTips;
property Visible;
property ViewStyle;
property OnAdvancedCustomDraw;
property OnAdvancedCustomDrawItem;
property OnAdvancedCustomDrawSubItem;
@ -1857,6 +1861,21 @@ type
property Hint;
property Max;
property Min;
property Orientation;
property ParentColor;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property Position;
property ShowHint;
property Smooth;
property Step;
property Style;
property TabOrder;
property TabStop;
property Visible;
property BarShowText;
property OnContextPopup;
property OnDragDrop;
property OnDragOver;
@ -1873,20 +1892,6 @@ type
property OnMouseWheelUp;
property OnStartDock;
property OnStartDrag;
property Orientation;
property ParentColor;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property Position;
property ShowHint;
property Smooth;
property Step;
property Style;
property TabOrder;
property TabStop;
property Visible;
property BarShowText;
end;
@ -2009,6 +2014,18 @@ type
property Max;
property Min;
property MinRepeatInterval;
property Orientation;
property ParentColor;
property ParentShowHint;
property PopupMenu;
property Position;
property ShowHint;
property TabOrder;
property TabStop;
property Thousands;
property Flat;
property Visible;
property Wrap;
property OnChanging;
property OnChangingEx;
property OnClick;
@ -2026,18 +2043,6 @@ type
property OnMouseWheelHorz;
property OnMouseWheelLeft;
property OnMouseWheelRight;
property Orientation;
property ParentColor;
property ParentShowHint;
property PopupMenu;
property Position;
property ShowHint;
property TabOrder;
property TabStop;
property Thousands;
property Flat;
property Visible;
property Wrap;
end;
@ -2190,6 +2195,14 @@ type
property Indeterminate: Boolean read FIndeterminate write SetIndeterminate default False;
property Marked: Boolean read FMarked write SetMarked default False;
property MenuItem: TMenuItem read FMenuItem write SetMenuItem;
property ParentShowHint;
property PopupMenu;
property ShowCaption: boolean read FShowCaption write SetShowCaption default true;
property ShowHint;
property Style: TToolButtonStyle read FStyle write SetStyle default tbsButton;
property Visible;
property Width stored IsWidthStored;
property Wrap: Boolean read FWrap write SetWrap default False;
property OnArrowClick: TNotifyEvent read FOnArrowClick write FOnArrowClick;
property OnClick;
property OnContextPopup;
@ -2207,14 +2220,6 @@ type
property OnMouseWheelUp;
property OnStartDock;
property OnStartDrag;
property ParentShowHint;
property PopupMenu;
property ShowCaption: boolean read FShowCaption write SetShowCaption default true;
property ShowHint;
property Style: TToolButtonStyle read FStyle write SetStyle default tbsButton;
property Visible;
property Width stored IsWidthStored;
property Wrap: Boolean read FWrap write SetWrap default False;
end;
{ TToolBarEnumerator }
@ -2765,7 +2770,6 @@ type
property LineSize: Integer read FLineSize write SetLineSize default 1;
property Max: Integer read FMax write SetMax default 10;
property Min: Integer read FMin write SetMin default 0;
property OnChange: TNotifyEvent read FOnChange write FOnChange;
property Orientation: TTrackBarOrientation read FOrientation write SetOrientation default trHorizontal;
property PageSize: Integer read FPageSize write SetPageSize default 2;
property Position: Integer read FPosition write SetPosition;
@ -2777,6 +2781,8 @@ type
property TabStop default True;
property TickMarks: TTickMark read FTickMarks write SetTickMarks default tmBottomRight;
property TickStyle: TTickStyle read FTickStyle write SetTickStyle default tsAuto;
property OnChange: TNotifyEvent read FOnChange write FOnChange;
end;
@ -2798,6 +2804,25 @@ type
property LineSize;
property Max;
property Min;
property Orientation;
property PageSize;
property ParentColor;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property Position;
property Reversed;
property ScalePos;
property SelEnd;
property SelStart;
property ShowHint;
property ShowSelRange;
property TabOrder;
property TabStop;
property TickMarks;
property TickStyle;
property Visible;
property OnChange;
property OnChangeBounds;
property OnClick;
@ -2824,24 +2849,6 @@ type
property OnResize;
property OnStartDrag;
property OnUTF8KeyPress;
property Orientation;
property PageSize;
property ParentColor;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property Position;
property Reversed;
property ScalePos;
property SelEnd;
property SelStart;
property ShowHint;
property ShowSelRange;
property TabOrder;
property TabStop;
property TickMarks;
property TickStyle;
property Visible;
end;
{ TTreeNode }
@ -3826,6 +3833,11 @@ type
property Tag;
property ToolTips;
property Visible;
property Options;
property Items;
property TreeLineColor;
property TreeLinePenStyle;
property OnAddition;
property OnAdvancedCustomDraw;
property OnAdvancedCustomDrawItem;
@ -3876,13 +3888,8 @@ type
property OnShowHint;
property OnStartDrag;
property OnUTF8KeyPress;
property Options;
property Items;
property TreeLineColor;
property TreeLinePenStyle;
end;
TTVGetNodeText = function(Node: TTreeNode): string of object;
{ TTreeNodeExpandedState }

267
lcl/dbctrls.pp
View File

@ -247,6 +247,7 @@ Type
property TabStop;
property TextHint;
property Visible;
property OnChange;
property OnClick;
property OnContextPopup;
@ -315,6 +316,7 @@ Type
property FocusControl;
property Font;
property Layout;
property OptimalFill;
property ParentBidiMode;
property ParentColor;
property ParentFont;
@ -325,6 +327,7 @@ Type
property Transparent;
property Visible;
property WordWrap;
property OnClick;
property OnDblClick;
property OnDragDrop;
@ -342,7 +345,6 @@ Type
property OnContextPopup;
property OnResize;
property OnStartDrag;
property OptimalFill;
end;
{ TCustomDBListBox }
@ -410,6 +412,20 @@ Type
property ItemHeight;
property Items;
property MultiSelect;
property Options;
property ParentBiDiMode;
property ParentDoubleBuffered;
property ParentShowHint;
property PopupMenu;
property ReadOnly;
property ShowHint;
property Sorted;
property Style;
property TabOrder;
property TabStop;
property TopIndex;
property Visible;
property OnClick;
property OnContextPopup;
property OnDblClick;
@ -433,19 +449,6 @@ Type
property OnResize;
property OnStartDrag;
property OnUTF8KeyPress;
property Options;
property ParentBiDiMode;
property ParentDoubleBuffered;
property ParentShowHint;
property PopupMenu;
property ReadOnly;
property ShowHint;
property Sorted;
property Style;
property TabOrder;
property TabStop;
property TopIndex;
property Visible;
end;
@ -515,6 +518,21 @@ Type
property EmptyValue: String read GetEmptyValue write SetEmptyValue;
property DisplayEmpty: String read GetDisplayEmpty write SetDisplayEmpty;
// property MultiSelect;
property Options;
property ParentBiDiMode;
property ParentDoubleBuffered;
property ParentShowHint;
property PopupMenu;
property ReadOnly;
property ScrollListDataset: Boolean read GetScrollListDataset write SetScrollListDataset default False;
property ShowHint;
property Sorted;
// property Style;
property TabOrder;
property TabStop;
property TopIndex;
property Visible;
property OnClick;
property OnContextPopup;
property OnDblClick;
@ -539,20 +557,6 @@ Type
property OnResize;
property OnStartDrag;
property OnUTF8KeyPress;
property Options;
property ParentBiDiMode;
property ParentDoubleBuffered;
property ParentShowHint;
property PopupMenu;
property ReadOnly;
property ScrollListDataset: Boolean read GetScrollListDataset write SetScrollListDataset default False;
property ShowHint;
property Sorted;
// property Style;
property TabOrder;
property TabStop;
property TopIndex;
property Visible;
end;
@ -614,6 +618,19 @@ Type
property Enabled;
property Font;
property Items write SetItems;
property ParentBiDiMode;
property ParentColor;
property ParentDoubleBuffered;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ReadOnly: Boolean read GetReadOnly write SetReadOnly default False;
property ShowHint;
property TabOrder;
property TabStop;
property Values: TStrings read FValues write SetValues;
property Visible;
property OnChange: TNotifyEvent read FOnChange write FOnChange;
property OnChangeBounds;
property OnClick;
@ -631,18 +648,6 @@ Type
property OnMouseWheelUp;
property OnResize;
property OnStartDrag;
property ParentBiDiMode;
property ParentColor;
property ParentDoubleBuffered;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ReadOnly: Boolean read GetReadOnly write SetReadOnly default False;
property ShowHint;
property TabOrder;
property TabStop;
property Values: TStrings read FValues write SetValues;
property Visible;
end;
@ -700,6 +705,20 @@ Type
property Enabled;
property Font;
property Hint;
property ParentBiDiMode;
property ParentColor;
property ParentDoubleBuffered;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ReadOnly: Boolean read GetReadOnly write SetReadOnly default False;
property ShowHint;
property TabOrder;
property TabStop;
property ValueChecked: string read FValueChecked write SetValueChecked stored NonDefaultValueChecked;
property ValueUnchecked: string read FValueUnchecked write SetValueUnchecked stored NonDefaultValueUnchecked;
property Visible;
property OnChange;
property OnClick;
property OnContextPopup;
@ -717,19 +736,6 @@ Type
property OnMouseWheelDown;
property OnMouseWheelUp;
property OnStartDrag;
property ParentBiDiMode;
property ParentColor;
property ParentDoubleBuffered;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ReadOnly: Boolean read GetReadOnly write SetReadOnly default False;
property ShowHint;
property TabOrder;
property TabStop;
property ValueChecked: string read FValueChecked write SetValueChecked stored NonDefaultValueChecked;
property ValueUnchecked: string read FValueUnchecked write SetValueUnchecked stored NonDefaultValueUnchecked;
property Visible;
end;
@ -815,6 +821,19 @@ Type
property Items;
property ItemWidth;
property MaxLength default -1;
property ParentBiDiMode;
property ParentColor;
property ParentDoubleBuffered;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ReadOnly;
property ShowHint;
property Sorted;
property Style;
property TabOrder;
property TabStop;
property Visible;
property OnChange;
property OnChangeBounds;
property OnClick;
@ -843,19 +862,6 @@ Type
property OnSelect;
property OnStartDrag;
property OnUTF8KeyPress;
property ParentBiDiMode;
property ParentColor;
property ParentDoubleBuffered;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ReadOnly;
property ShowHint;
property Sorted;
property Style;
property TabOrder;
property TabStop;
property Visible;
end;
@ -943,6 +949,20 @@ Type
property NullValueKey: TShortCut read GetNullValueKey write SetNullValueKey default 0;
property EmptyValue: String read GetEmptyValue write SetEmptyValue;
property DisplayEmpty: String read GetDisplayEmpty write SetDisplayEmpty;
property ParentBiDiMode;
property ParentColor;
property ParentDoubleBuffered;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ReadOnly;
property ScrollListDataset: Boolean read GetScrollListDataset write SetScrollListDataset default False;
property ShowHint;
property Sorted;
property Style;
property TabOrder;
property TabStop;
property Visible;
property OnChange;
property OnChangeBounds;
property OnClick;
@ -971,20 +991,6 @@ Type
property OnSelect;
property OnStartDrag;
property OnUTF8KeyPress;
property ParentBiDiMode;
property ParentColor;
property ParentDoubleBuffered;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ReadOnly;
property ScrollListDataset: Boolean read GetScrollListDataset write SetScrollListDataset default False;
property ShowHint;
property Sorted;
property Style;
property TabOrder;
property TabStop;
property Visible;
end;
{ TDBMemo }
@ -1041,6 +1047,21 @@ Type
property Enabled;
property Font;
property MaxLength;
property ParentBiDiMode;
property ParentDoubleBuffered;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ReadOnly: Boolean read GetReadOnly write SetReadOnly default False;
property ScrollBars;
property ShowHint;
property TabOrder;
property Tabstop;
property Visible;
property WantReturns;
property WantTabs;
property WordWrap;
property OnChange;
property OnClick;
property OnContextPopup;
@ -1065,20 +1086,6 @@ Type
property OnResize;
property OnStartDrag;
property OnUTF8KeyPress;
property ParentBiDiMode;
property ParentDoubleBuffered;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ReadOnly: Boolean read GetReadOnly write SetReadOnly default False;
property ScrollBars;
property ShowHint;
property TabOrder;
property Tabstop;
property Visible;
property WantReturns;
property WantTabs;
property WordWrap;
end;
@ -1121,6 +1128,17 @@ Type
property DragMode;
property Enabled;
property Font;
property ParentBiDiMode;
property ParentColor;
property ParentDoubleBuffered;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property TabOrder;
property TabStop;
property Visible;
property OnClick;
property OnContextPopup;
property OnDblClick;
@ -1143,16 +1161,6 @@ Type
property OnResize;
property OnStartDrag;
property OnUTF8KeyPress;
property ParentBiDiMode;
property ParentColor;
property ParentDoubleBuffered;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property TabOrder;
property TabStop;
property Visible;
end;
@ -1216,6 +1224,18 @@ Type
property DragMode;
property KeepOriginXWhenClipped;
property KeepOriginYWhenClipped;
property ParentShowHint;
property Proportional;
property QuickDraw: Boolean read FQuickDraw write FQuickDraw default True;
property ReadOnly: Boolean read GetReadOnly write SetReadOnly default False;
property ShowHint;
property Stretch;
property StretchInEnabled;
property StretchOutEnabled;
property Transparent;
property Visible;
property WriteHeader: Boolean read FWriteHeader write FWriteHeader default True;
property OnClick;
property OnContextPopup;
property OnDblClick;
@ -1235,17 +1255,6 @@ Type
property OnMouseWheelUp;
property OnResize;
property OnStartDrag;
property ParentShowHint;
property Proportional;
property QuickDraw: Boolean read FQuickDraw write FQuickDraw default True;
property ReadOnly: Boolean read GetReadOnly write SetReadOnly default False;
property ShowHint;
property Stretch;
property StretchInEnabled;
property StretchOutEnabled;
property Transparent;
property Visible;
property WriteHeader: Boolean read FWriteHeader write FWriteHeader default True;
end;
{ TDBCalendar }
@ -1294,6 +1303,7 @@ Type
property DragMode;
property ParentDoubleBuffered;
property Visible;
property OnClick;
property OnContextPopup;
property OnDragDrop;
@ -1488,6 +1498,20 @@ type
property Flat;
property Font;
property Hints;
property Options;
property ParentBidiMode;
property ParentColor;
property ParentDoubleBuffered;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property TabOrder;
property TabStop default False;
property Visible;
property VisibleButtons;
property Images;
property OnClick;
property OnContextPopup;
property OnDblClick;
@ -1506,19 +1530,6 @@ type
property OnMouseWheelUp;
property OnResize;
property OnStartDrag;
property Options;
property ParentBidiMode;
property ParentColor;
property ParentDoubleBuffered;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property TabOrder;
property TabStop default False;
property Visible;
property VisibleButtons;
property Images;
end;
procedure ChangeDataSource(AControl: TControl; Link: TDataLink;

1
lcl/dbgrids.pas
View File

@ -634,6 +634,7 @@ type
property TitleStyle;
property UseXORFeatures;
property Visible;
property OnCellClick;
property OnColEnter;
property OnColExit;

101
lcl/editbtn.pas
View File

@ -166,6 +166,21 @@ type
property Layout;
property MaxLength;
property NumGlyphs;
property ParentBiDiMode;
property ParentColor;
property ParentFont;
property ParentShowHint;
property PasswordChar;
property PopupMenu;
property ReadOnly;
property ShowHint;
property Spacing;
property TabOrder;
property TabStop;
property Text;
property TextHint;
property Visible;
property OnButtonClick;
property OnChange;
property OnClick;
@ -190,20 +205,6 @@ type
property OnMouseWheelUp;
property OnStartDrag;
property OnUTF8KeyPress;
property ParentBiDiMode;
property ParentColor;
property ParentFont;
property ParentShowHint;
property PasswordChar;
property PopupMenu;
property ReadOnly;
property ShowHint;
property Spacing;
property TabOrder;
property TabStop;
property Text;
property TextHint;
property Visible;
end;
TFilterStringOption = (fsoCaseSensitive, fsoMatchOnlyAtStart);
@ -329,7 +330,10 @@ type
property Spacing;
property TabOrder;
property TabStop;
property Text;
property TextHint stored IsTextHintStored;
property Visible;
property OnButtonClick;
property OnChange;
property OnClick;
@ -354,8 +358,6 @@ type
property OnMouseWheelUp;
property OnStartDrag;
property OnUTF8KeyPress;
property Text;
property TextHint stored IsTextHintStored;
end;
{ TFileNameEdit }
@ -446,7 +448,10 @@ type
property Spacing;
property TabOrder;
property TabStop;
property Text;
property TextHint;
property Visible;
property OnButtonClick;
property OnChange;
property OnClick;
@ -471,8 +476,6 @@ type
property OnMouseWheelUp;
property OnStartDrag;
property OnUTF8KeyPress;
property Text;
property TextHint;
end;
@ -545,7 +548,10 @@ type
property TabOrder;
property Spacing;
property TabStop;
property Text;
property TextHint;
property Visible;
property OnButtonClick;
property OnChange;
property OnClick;
@ -570,8 +576,6 @@ type
property OnMouseWheelUp;
property OnStartDrag;
property OnUTF8KeyPress;
property Text;
property TextHint;
end;
@ -673,6 +677,19 @@ type
property Font;
property Layout;
property MaxLength;
property ParentBidiMode;
property ParentColor;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property TabStop;
property TabOrder;
property Spacing;
property Visible;
property Text;
property TextHint;
property OnButtonClick;
property OnChange;
property OnChangeBounds;
@ -695,18 +712,6 @@ type
property OnMouseWheelUp;
property OnResize;
property OnUTF8KeyPress;
property ParentBidiMode;
property ParentColor;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property TabStop;
property TabOrder;
property Spacing;
property Visible;
property Text;
property TextHint;
end;
{ TTimeEdit }
@ -778,6 +783,20 @@ type
property FocusOnButtonClick;
property Font;
property MaxLength;
property ParentBidiMode;
property ParentColor;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property SimpleLayout: Boolean read GetLayout write SetLayout default True;
property Spacing;
property TabStop;
property TabOrder;
property Visible;
property Text;
property TextHint;
property OnButtonClick;
property OnChange;
property OnChangeBounds;
@ -800,19 +819,6 @@ type
property OnMouseWheelUp;
property OnResize;
property OnUTF8KeyPress;
property ParentBidiMode;
property ParentColor;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property SimpleLayout: Boolean read GetLayout write SetLayout default True;
property Spacing;
property TabStop;
property TabOrder;
property Visible;
property Text;
property TextHint;
end;
@ -892,7 +898,10 @@ type
property Spacing;
property TabOrder;
property TabStop;
property Text;
property TextHint;
property Visible;
property OnButtonClick;
property OnChange;
property OnClick;
@ -917,8 +926,6 @@ type
property OnMouseWheelUp;
property OnStartDrag;
property OnUTF8KeyPress;
property Text;
property TextHint;
end;
const

124
lcl/extctrls.pp
View File

@ -68,6 +68,13 @@ type
property Top stored False;
property Width stored False;
property Height stored False;
property ParentBiDiMode;
property ParentShowHint;
property PopupMenu;
property TabOrder stored False;
property TabStop;
property Visible stored False;
property OnContextPopup;
property OnEnter;
property OnExit;
@ -80,12 +87,6 @@ type
property OnMouseWheelDown;
property OnMouseWheelUp;
property OnResize;
property ParentBiDiMode;
property ParentShowHint;
property PopupMenu;
property TabOrder stored False;
property TabStop;
property Visible stored False;
end;
{ TUNBPages }
@ -161,7 +162,14 @@ type
property DragCursor;
property DragMode;
property Enabled;
// property OnChange;
// property Options;
// property PageIndex;
property ParentBiDiMode;
property PopupMenu;
property TabOrder;
property TabStop;
// property OnChange;
property OnChangeBounds;
// property OnChanging;
property OnContextPopup;
@ -180,12 +188,6 @@ type
property OnMouseWheelUp;
property OnResize;
property OnStartDrag;
// property Options;
// property PageIndex;
property ParentBiDiMode;
property PopupMenu;
property TabOrder;
property TabStop;
end;
{ Timer }
@ -294,6 +296,10 @@ type
property Enabled;
property ParentShowHint;
property Pen: TPen read FPen write SetPen;
property Shape: TShapeType read FShape write SetShape default stRectangle;
property ShowHint;
property Visible;
property OnChangeBounds;
property OnDragDrop;
property OnDragOver;
@ -314,9 +320,6 @@ type
property OnResize;
property OnStartDock;
property OnStartDrag;
property Shape: TShapeType read FShape write SetShape default stRectangle;
property ShowHint;
property Visible;
end;
@ -421,6 +424,16 @@ type
property DoubleBuffered;
property Height;
property MinSize;
property ParentColor;
property ParentDoubleBuffered;
property ParentShowHint;
property PopupMenu;
property ResizeAnchor;
property ResizeStyle;
property ShowHint;
property Visible;
property Width;
property OnCanOffset;
property OnCanResize;
property OnChangeBounds;
@ -432,15 +445,6 @@ type
property OnMouseWheelLeft;
property OnMouseWheelRight;
property OnPaint;
property ParentColor;
property ParentDoubleBuffered;
property ParentShowHint;
property PopupMenu;
property ResizeAnchor;
property ResizeStyle;
property ShowHint;
property Visible;
property Width;
end;
@ -600,6 +604,17 @@ type
property ImageIndex;
property ImageWidth;
property Images;
property ParentShowHint;
property Picture;
property PopupMenu;
property Proportional;
property ShowHint;
property Stretch;
property StretchOutEnabled;
property StretchInEnabled;
property Transparent;
property Visible;
property OnChangeBounds;
property OnClick;
property OnContextPopup;
@ -623,16 +638,6 @@ type
property OnPaintBackground;
property OnResize;
property OnStartDrag;
property ParentShowHint;
property Picture;
property PopupMenu;
property Proportional;
property ShowHint;
property Stretch;
property StretchOutEnabled;
property StretchInEnabled;
property Transparent;
property Visible;
end;
@ -665,6 +670,7 @@ type
property ShowHint;
property Style: TBevelStyle read FStyle write SetStyle default bsLowered;
property Visible;
property OnChangeBounds;
property OnResize;
property OnMouseDown;
@ -777,6 +783,18 @@ type
property Font;
property ItemIndex;
property Items;
property ParentBackground;
property ParentBidiMode;
property ParentFont;
property ParentColor;
property ParentDoubleBuffered;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property TabOrder;
property TabStop;
property Visible;
property OnChangeBounds;
property OnClick;
property OnDblClick;
@ -802,17 +820,6 @@ type
property OnSelectionChanged;
property OnStartDrag;
property OnUTF8KeyPress;
property ParentBackground;
property ParentBidiMode;
property ParentFont;
property ParentColor;
property ParentDoubleBuffered;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property TabOrder;
property TabStop;
property Visible;
end;
@ -899,6 +906,18 @@ type
property Enabled;
property Font;
property Items;
property ParentBackground;
property ParentBiDiMode;
property ParentFont;
property ParentColor;
property ParentDoubleBuffered;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property TabOrder;
property TabStop;
property Visible;
property OnChangeBounds;
property OnClick;
property OnDblClick;
@ -922,17 +941,6 @@ type
property OnResize;
property OnStartDrag;
property OnUTF8KeyPress;
property ParentBackground;
property ParentBiDiMode;
property ParentFont;
property ParentColor;
property ParentDoubleBuffered;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property TabOrder;
property TabStop;
property Visible;
end;
@ -1052,6 +1060,7 @@ type
property Text;
property TextHint;
property Visible;
property OnChange;
property OnClick;
property OnDblClick;
@ -1176,6 +1185,7 @@ type
property VerticalAlignment;
property Visible;
property Wordwrap;
property OnChangeBounds;
property OnClick;
property OnContextPopup;

5
lcl/extdlgs.pas
View File

@ -221,12 +221,13 @@ type
published
property Date: TDateTime read FDate write FDate;
property DisplaySettings: TDisplaySettings read FDisplaySettings write FDisplaySettings default DefaultDisplaySettings;
property OKCaption: TCaption read FOKCaption write FOKCaption;
property CancelCaption: TCaption read FCancelCaption write FCancelCaption;
property OnDayChanged: TNotifyEvent read FDayChanged write FDayChanged;
property OnMonthChanged: TNotifyEvent read FMonthChanged write FMonthChanged;
property OnYearChanged: TNotifyEvent read FYearChanged write FYearChanged;
property OnChange: TNotifyEvent read FOnChange write FOnChange;
property OKCaption: TCaption read FOKCaption write FOKCaption;
property CancelCaption: TCaption read FCancelCaption write FCancelCaption;
end;
procedure Register;

25
lcl/filectrl.pp
View File

@ -102,6 +102,19 @@ Type
property ItemHeight;
property Mask;
property MultiSelect;
property ParentBiDiMode;
property ParentColor;
property ParentShowHint;
property ParentFont;
property PopupMenu;
property ShowHint;
property Sorted;
property Style;
property TabOrder;
property TabStop;
property TopIndex;
property Visible;
{ events }
property OnChange;
property OnChangeBounds;
property OnClick;
@ -127,18 +140,6 @@ Type
property OnSelectionChange;
property OnStartDrag;
property OnUTF8KeyPress;
property ParentBiDiMode;
property ParentColor;
property ParentShowHint;
property ParentFont;
property PopupMenu;
property ShowHint;
property Sorted;
property Style;
property TabOrder;
property TabStop;
property TopIndex;
property Visible;
end;
{ TCustomFilterComboBox }

62
lcl/forms.pp
View File

@ -367,6 +367,18 @@ type
property Enabled;
property Font;
property LCLVersion: string read FLCLVersion write FLCLVersion stored LCLVersionIsStored;
property ParentBackground;
property ParentBiDiMode;
property ParentColor;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property Scaled;
property ShowHint;
property TabOrder;
property TabStop;
property Visible;
property OnClick;
property OnConstrainedResize;
property OnContextPopup;
@ -395,17 +407,6 @@ type
property OnStartDock;
property OnStartDrag;
property OnUnDock;
property ParentBackground;
property ParentBiDiMode;
property ParentColor;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property Scaled;
property ShowHint;
property TabOrder;
property TabStop;
property Visible;
end;
@ -882,6 +883,26 @@ type
property Icon;
property KeyPreview;
property Menu;
property ParentBiDiMode;
property ParentDoubleBuffered;
property ParentFont;
property PixelsPerInch;
property PopupMenu;
property PopupMode;
property PopupParent;
property Position;
property SessionProperties;
property ScreenSnap;
property ShowHint;
property ShowInTaskBar;
property SnapBuffer;
property SnapOptions;
property UseDockManager;
property LCLVersion: string read FLCLVersion write FLCLVersion stored LCLVersionIsStored;
property Scaled;
property Visible;
property WindowState;
property OnActivate;
property OnChangeBounds;
property OnClick;
@ -925,25 +946,6 @@ type
property OnUnDock;
property OnUTF8KeyPress;
property OnWindowStateChange;
property ParentBiDiMode;
property ParentDoubleBuffered;
property ParentFont;
property PixelsPerInch;
property PopupMenu;
property PopupMode;
property PopupParent;
property Position;
property SessionProperties;
property ScreenSnap;
property ShowHint;
property ShowInTaskBar;
property SnapBuffer;
property SnapOptions;
property UseDockManager;
property LCLVersion: string read FLCLVersion write FLCLVersion stored LCLVersionIsStored;
property Scaled;
property Visible;
property WindowState;
end;
TFormClass = class of TForm;

29
lcl/groupededit.pp
View File

@ -365,6 +365,21 @@ type
property Hint;
property Layout;
property MaxLength;
property ParentBiDiMode;
property ParentColor;
property ParentFont;
property ParentShowHint;
property PasswordChar;
property PopupMenu;
property ReadOnly;
property ShowHint;
property Spacing;
property TabOrder;
property TabStop;
property Text;
property TextHint;
property Visible;
{events }
//property OnBuddyClick;
property OnChange;
property OnClick;
@ -389,20 +404,6 @@ type
property OnMouseWheelUp;
property OnStartDrag;
property OnUTF8KeyPress;
property ParentBiDiMode;
property ParentColor;
property ParentFont;
property ParentShowHint;
property PasswordChar;
property PopupMenu;
property ReadOnly;
property ShowHint;
property Spacing;
property TabOrder;
property TabStop;
property Text;
property TextHint;
property Visible;
end;

10
lcl/maskedit.pp
View File

@ -356,6 +356,12 @@ const
property TabOrder;
property TabStop;
property Visible;
property EditMask;
property Text;
property TextHint;
property SpaceChar;
property OnChange;
property OnClick;
property OnDblClick;
@ -380,10 +386,6 @@ const
property OnStartDock;
property OnStartDrag;
property OnUTF8KeyPress;
property EditMask;
property Text;
property TextHint;
property SpaceChar;
end;
function FormatMaskText(const AEditMask: string; const Value: string ): string;

20
lcl/pairsplitter.pas
View File

@ -67,6 +67,10 @@ type
property Constraints;
property Cursor;
property Enabled;
property ShowHint;
property ParentShowHint;
property PopupMenu;
property OnMouseDown;
property OnMouseEnter;
property OnMouseLeave;
@ -76,9 +80,6 @@ type
property OnMouseWheelDown;
property OnMouseWheelUp;
property OnResize;
property ShowHint;
property ParentShowHint;
property PopupMenu;
end;
{ TCustomPairSplitter }
@ -134,6 +135,13 @@ type
property Color;
property Cursor;
property Enabled;
property ParentShowHint;
property PopupMenu;
property Position;
property ShowHint;
property SplitterType;
property Visible;
property OnMouseDown;
property OnMouseEnter;
property OnMouseLeave;
@ -144,12 +152,6 @@ type
property OnMouseWheelUp;
property OnResize;
property OnChangeBounds;
property ParentShowHint;
property PopupMenu;
property Position;
property ShowHint;
property SplitterType;
property Visible;
end;
procedure Register;

24
lcl/shellctrls.pas
View File

@ -185,6 +185,14 @@ type
property Tag;
property ToolTips;
property Visible;
property Options;
property TreeLineColor;
property TreeLinePenStyle;
property ExpandSignColor;
{ TCustomShellTreeView properties }
property ObjectTypes;
property ShellListView;
property OnAddItem;
property OnAdvancedCustomDraw;
property OnAdvancedCustomDrawItem;
@ -223,13 +231,6 @@ type
property OnShowHint;
property OnSortCompare;
property OnUTF8KeyPress;
property Options;
property TreeLineColor;
property TreeLinePenStyle;
property ExpandSignColor;
{ TCustomShellTreeView properties }
property ObjectTypes;
property ShellListView;
end;
{ TCustomShellListView }
@ -352,6 +353,11 @@ type
property ToolTips;
property Visible;
property ViewStyle default vsReport;
{ TCustomShellListView properties }
property ObjectTypes;
property Root;
property ShellTreeView;
// property OnAdvancedCustomDraw;
// property OnAdvancedCustomDrawItem;
// property OnAdvancedCustomDrawSubItem;
@ -390,10 +396,6 @@ type
property OnUTF8KeyPress;
property OnAddItem;
property OnFileAdded;
{ TCustomShellListView properties }
property ObjectTypes;
property Root;
property ShellTreeView;
end;
{ TShellTreeNode }

42
lcl/spin.pp
View File

@ -105,6 +105,17 @@ type
property Increment;
property MaxValue;
property MinValue;
property ParentColor;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ReadOnly;
property ShowHint;
property TabStop;
property TabOrder;
property Value;
property Visible;
property OnChange;
property OnChangeBounds;
property OnClick;
@ -127,16 +138,6 @@ type
property OnMouseWheelRight;
property OnResize;
property OnUTF8KeyPress;
property ParentColor;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ReadOnly;
property ShowHint;
property TabStop;
property TabOrder;
property Value;
property Visible;
end;
@ -184,6 +185,17 @@ type
property Increment;
property MaxValue;
property MinValue;
property ParentColor;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ReadOnly;
property ShowHint;
property TabStop;
property TabOrder;
property Value;
property Visible;
property OnChange;
property OnChangeBounds;
property OnClick;
@ -206,16 +218,6 @@ type
property OnMouseWheelRight;
property OnResize;
property OnUTF8KeyPress;
property ParentColor;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ReadOnly;
property ShowHint;
property TabStop;
property TabOrder;
property Value;
property Visible;
end;