diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/gui/fpg_animation.pas | 1 | ||||
-rw-r--r-- | src/gui/fpg_button.pas | 4 | ||||
-rw-r--r-- | src/gui/fpg_checkbox.pas | 1 | ||||
-rw-r--r-- | src/gui/fpg_combobox.pas | 1 | ||||
-rw-r--r-- | src/gui/fpg_edit.pas | 5 | ||||
-rw-r--r-- | src/gui/fpg_editcombo.pas | 6 | ||||
-rw-r--r-- | src/gui/fpg_form.pas | 1 | ||||
-rw-r--r-- | src/gui/fpg_gauge.pas | 1 | ||||
-rw-r--r-- | src/gui/fpg_grid.pas | 2 | ||||
-rw-r--r-- | src/gui/fpg_hyperlink.pas | 1 | ||||
-rw-r--r-- | src/gui/fpg_label.pas | 1 | ||||
-rw-r--r-- | src/gui/fpg_listbox.pas | 1 | ||||
-rw-r--r-- | src/gui/fpg_listview.pas | 1 | ||||
-rw-r--r-- | src/gui/fpg_memo.pas | 1 | ||||
-rw-r--r-- | src/gui/fpg_panel.pas | 3 | ||||
-rw-r--r-- | src/gui/fpg_popupcalendar.pas | 1 | ||||
-rw-r--r-- | src/gui/fpg_progressbar.pas | 1 | ||||
-rw-r--r-- | src/gui/fpg_radiobutton.pas | 1 | ||||
-rw-r--r-- | src/gui/fpg_spinedit.pas | 10 | ||||
-rw-r--r-- | src/gui/fpg_tab.pas | 1 | ||||
-rw-r--r-- | src/gui/fpg_trackbar.pas | 2 | ||||
-rw-r--r-- | src/gui/fpg_tree.pas | 1 |
22 files changed, 37 insertions, 10 deletions
diff --git a/src/gui/fpg_animation.pas b/src/gui/fpg_animation.pas index 0bace3f0..fedfa545 100644 --- a/src/gui/fpg_animation.pas +++ b/src/gui/fpg_animation.pas @@ -70,6 +70,7 @@ type property ImageFileName; property IsTransparent; property FrameCount; + property OnShowHint; end; diff --git a/src/gui/fpg_button.pas b/src/gui/fpg_button.pas index 8ebc0c6a..ebfa8b49 100644 --- a/src/gui/fpg_button.pas +++ b/src/gui/fpg_button.pas @@ -33,7 +33,6 @@ type TImageLayout = (ilImageLeft, ilImageTop, ilImageRight, ilImageBottom); - { TfpgBaseButton } TfpgBaseButton = class(TfpgWidget, ICommandHolder) private @@ -149,12 +148,13 @@ type property Text; property TextColor; property TabOrder; + property OnClick; property OnMouseDown; property OnMouseExit; property OnMouseEnter; property OnMouseMove; property OnMouseUp; - property OnClick; + property OnShowHint; end; diff --git a/src/gui/fpg_checkbox.pas b/src/gui/fpg_checkbox.pas index 71eaa572..e514da25 100644 --- a/src/gui/fpg_checkbox.pas +++ b/src/gui/fpg_checkbox.pas @@ -78,6 +78,7 @@ type property OnChange; property OnEnter; property OnExit; + property OnShowHint; end; diff --git a/src/gui/fpg_combobox.pas b/src/gui/fpg_combobox.pas index 2de546f5..2fc1432a 100644 --- a/src/gui/fpg_combobox.pas +++ b/src/gui/fpg_combobox.pas @@ -156,6 +156,7 @@ type property OnDropDown; property OnEnter; property OnExit; + property OnShowHint; end; diff --git a/src/gui/fpg_edit.pas b/src/gui/fpg_edit.pas index 4920fe05..78d6d8cb 100644 --- a/src/gui/fpg_edit.pas +++ b/src/gui/fpg_edit.pas @@ -185,6 +185,7 @@ type property OnMouseEnter; property OnMouseExit; property OnPaint; + property OnShowHint; end; @@ -232,6 +233,7 @@ type property OnMouseEnter; property OnMouseExit; property OnPaint; + property OnShowHint; public constructor Create(AOwner: TComponent); override; published @@ -269,6 +271,7 @@ type property OnMouseEnter; property OnMouseExit; property OnMouseMove; + property OnShowHint; end; @@ -309,6 +312,7 @@ type property OnMouseEnter; property OnMouseExit; property OnMouseMove; + property OnShowHint; end; @@ -344,6 +348,7 @@ type property OnKeyPress; property OnMouseEnter; property OnMouseExit; + property OnShowHint; end; diff --git a/src/gui/fpg_editcombo.pas b/src/gui/fpg_editcombo.pas index 2ad4e003..20b6ee8d 100644 --- a/src/gui/fpg_editcombo.pas +++ b/src/gui/fpg_editcombo.pas @@ -64,8 +64,6 @@ type TAllowNew = (anNo, anYes, anAsk); - { TfpgBaseEditCombo } - TfpgBaseEditCombo = class(TfpgBaseComboBox) private FAutoCompletion: Boolean; @@ -77,8 +75,7 @@ type procedure SetAllowNew(const AValue: TAllowNew); procedure InternalBtnClick(Sender: TObject); procedure InternalListBoxSelect(Sender: TObject); - procedure InternalListBoxKeyPress(Sender: TObject; var keycode: word; var shiftstate: TShiftState; - var consumed: Boolean); + procedure InternalListBoxKeyPress(Sender: TObject; var keycode: word; var shiftstate: TShiftState; var consumed: Boolean); protected FDropDown: TfpgPopupWindow; FDrawOffset: integer; @@ -132,6 +129,7 @@ type property OnEnter; property OnExit; property OnKeyPress; + property OnShowHint; end; diff --git a/src/gui/fpg_form.pas b/src/gui/fpg_form.pas index e93c04c6..270ceec7 100644 --- a/src/gui/fpg_form.pas +++ b/src/gui/fpg_form.pas @@ -124,6 +124,7 @@ type property OnPaint; property OnResize; property OnShow; + property OnShowHint; end; diff --git a/src/gui/fpg_gauge.pas b/src/gui/fpg_gauge.pas index 34b19a17..2236e912 100644 --- a/src/gui/fpg_gauge.pas +++ b/src/gui/fpg_gauge.pas @@ -97,6 +97,7 @@ type property ShowHint; property ShowText: Boolean read FShowText write SetShowText default True; property Visible; + property OnShowHint; end; diff --git a/src/gui/fpg_grid.pas b/src/gui/fpg_grid.pas index db087fae..0dbc96c4 100644 --- a/src/gui/fpg_grid.pas +++ b/src/gui/fpg_grid.pas @@ -67,6 +67,7 @@ type property TabOrder; property OnRowChange; property OnDoubleClick; + property OnShowHint; end; @@ -154,6 +155,7 @@ type property OnFocusChange; property OnKeyPress; property OnRowChange; + property OnShowHint; end; function CreateStringGrid(AOwner: TComponent; x, y, w, h: TfpgCoord; AColumnCount: integer = 0): TfpgStringGrid; diff --git a/src/gui/fpg_hyperlink.pas b/src/gui/fpg_hyperlink.pas index 25b7aebd..f0f9e4a9 100644 --- a/src/gui/fpg_hyperlink.pas +++ b/src/gui/fpg_hyperlink.pas @@ -60,6 +60,7 @@ type property ShowHint; property URL: TfpgString read FUrl write SetURL; property OnClick; + property OnShowHint; end; diff --git a/src/gui/fpg_label.pas b/src/gui/fpg_label.pas index 52c0d339..708a6204 100644 --- a/src/gui/fpg_label.pas +++ b/src/gui/fpg_label.pas @@ -88,6 +88,7 @@ type property OnMouseExit; property OnMouseMove; property OnMouseUp; + property OnShowHint; end; diff --git a/src/gui/fpg_listbox.pas b/src/gui/fpg_listbox.pas index 5ca37d10..3b668ded 100644 --- a/src/gui/fpg_listbox.pas +++ b/src/gui/fpg_listbox.pas @@ -146,6 +146,7 @@ type property TabOrder; property TextColor; property OnDoubleClick; + property OnShowHint; end; diff --git a/src/gui/fpg_listview.pas b/src/gui/fpg_listview.pas index ae3e1ac3..60698b2a 100644 --- a/src/gui/fpg_listview.pas +++ b/src/gui/fpg_listview.pas @@ -263,6 +263,7 @@ type property OnPaintColumn: TfpgLVPaintColumnEvent read FOnPaintColumn write FOnPaintColumn; property OnPaintItem: TfpgLVPaintItemEvent read FOnPaintItem write FOnPaintItem; property OnSelectionChanged: TfpgLVItemSelectEvent read FOnSelectionChanged write FOnSelectionChanged; + property OnShowHint; end; diff --git a/src/gui/fpg_memo.pas b/src/gui/fpg_memo.pas index bbc4b4ca..37f21a42 100644 --- a/src/gui/fpg_memo.pas +++ b/src/gui/fpg_memo.pas @@ -120,6 +120,7 @@ type property OnEnter; property OnExit; property OnKeyPress; + property OnShowHint; end; diff --git a/src/gui/fpg_panel.pas b/src/gui/fpg_panel.pas index 1d95167f..80226f62 100644 --- a/src/gui/fpg_panel.pas +++ b/src/gui/fpg_panel.pas @@ -79,6 +79,7 @@ type property OnMouseMove; property OnMouseUp; property OnPaint; + property OnShowHint; end; @@ -129,6 +130,7 @@ type property WrapText: boolean read GetWrapText write SetWrapText default False; property OnClick; property OnDoubleClick; + property OnShowHint; end; @@ -167,6 +169,7 @@ type property TextColor; property OnClick; property OnDoubleClick; + property OnShowHint; end; diff --git a/src/gui/fpg_popupcalendar.pas b/src/gui/fpg_popupcalendar.pas index fac10f4c..ede98881 100644 --- a/src/gui/fpg_popupcalendar.pas +++ b/src/gui/fpg_popupcalendar.pas @@ -191,6 +191,7 @@ type property OnDropDown; property OnEnter; property OnExit; + property OnShowHint; end; diff --git a/src/gui/fpg_progressbar.pas b/src/gui/fpg_progressbar.pas index 896785c3..ee6b2405 100644 --- a/src/gui/fpg_progressbar.pas +++ b/src/gui/fpg_progressbar.pas @@ -70,6 +70,7 @@ type property ShowHint; property Step; property TextColor; + property OnShowHint; end; diff --git a/src/gui/fpg_radiobutton.pas b/src/gui/fpg_radiobutton.pas index fa4b4322..9410a000 100644 --- a/src/gui/fpg_radiobutton.pas +++ b/src/gui/fpg_radiobutton.pas @@ -74,6 +74,7 @@ type property Text: string read FText write SetText; property TextColor; property OnChange: TNotifyEvent read FOnChange write FOnChange; + property OnShowHint; end; diff --git a/src/gui/fpg_spinedit.pas b/src/gui/fpg_spinedit.pas index 6ec93a9d..21548f97 100644 --- a/src/gui/fpg_spinedit.pas +++ b/src/gui/fpg_spinedit.pas @@ -120,7 +120,7 @@ type procedure SetValue(const AValue: extended); procedure SetDecimals(const AValue: integer); procedure SetFixedDecimals(const AValue: Boolean); - procedure SetHint(const AValue: string); override; + procedure SetHint(const AValue: TfpgString); override; procedure ButtonUpClick(Sender: TObject); procedure ButtonDownClick(Sender: TObject); procedure ButtonUpMouseDown(Sender: TObject; AButton: TMouseButton; AShift: TShiftState; const AMousePos: TPoint); @@ -160,6 +160,7 @@ type property OnMouseEnter; property OnMouseExit; property OnPaint; + property OnShowHint; end; @@ -190,7 +191,7 @@ type procedure SetIncrement(const AValue: integer); procedure SetLargeIncrement(const AValue: integer); procedure SetValue(const AValue: integer); - procedure SetHint(const AValue: string); override; + procedure SetHint(const AValue: TfpgString); override; procedure ButtonUpClick(Sender: TObject); procedure ButtonDownClick(Sender: TObject); procedure ButtonUpMouseDown(Sender: TObject; AButton: TMouseButton; AShift: TShiftState; const AMousePos: TPoint); @@ -228,6 +229,7 @@ type property OnMouseEnter; property OnMouseExit; property OnPaint; + property OnShowHint; end; @@ -620,7 +622,7 @@ begin end; end; -procedure TfpgSpinEditFloat.SetHint(const AValue: string); +procedure TfpgSpinEditFloat.SetHint(const AValue: TfpgString); begin inherited SetHint(AValue); // let child component use the same hint @@ -1034,7 +1036,7 @@ begin end; end; -procedure TfpgSpinEdit.SetHint(const AValue: string); +procedure TfpgSpinEdit.SetHint(const AValue: TfpgString); begin inherited SetHint(AValue); // let child component use the same hint diff --git a/src/gui/fpg_tab.pas b/src/gui/fpg_tab.pas index 69517217..9999fa83 100644 --- a/src/gui/fpg_tab.pas +++ b/src/gui/fpg_tab.pas @@ -156,6 +156,7 @@ type property TabOrder; property TabPosition: TfpgTabPosition read FTabPosition write SetTabPosition default tpTop; property TextColor; + property OnShowHint; end; diff --git a/src/gui/fpg_trackbar.pas b/src/gui/fpg_trackbar.pas index c072181b..524a4c4c 100644 --- a/src/gui/fpg_trackbar.pas +++ b/src/gui/fpg_trackbar.pas @@ -78,6 +78,7 @@ type property Orientation: TOrientation read FOrientation write FOrientation default orHorizontal; property TabOrder; property OnChange: TTrackBarChange read FOnChange write FOnChange; + property OnShowHint; end; @@ -129,6 +130,7 @@ type property OnChange: TTrackBarChange read FOnChange write FOnChange; property OnEnter; property OnExit; + property OnShowHint; end; diff --git a/src/gui/fpg_tree.pas b/src/gui/fpg_tree.pas index 19e6f7c7..b61b0c29 100644 --- a/src/gui/fpg_tree.pas +++ b/src/gui/fpg_tree.pas @@ -243,6 +243,7 @@ type property OnChange: TNotifyEvent read FOnChange write FOnChange; property OnExpand: TfpgTreeExpandEvent read FOnExpand write FOnExpand; property OnDoubleClick; + property OnShowHint; end; |