diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2009-10-26 11:25:17 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2009-10-26 11:25:17 +0200 |
commit | 41e8d27bda235c35ac2c3b92ea14fe2deb6b0f7e (patch) | |
tree | 6762df3236db29ed3b272ce65402723a53ba7f37 /src/corelib/fpg_widget.pas | |
parent | c59f3ee981c2c4ee4b6cfce73a92db759db9c3b2 (diff) | |
download | fpGUI-41e8d27bda235c35ac2c3b92ea14fe2deb6b0f7e.tar.xz |
Minor fixes to properties in fpg_spinedit unit.
Signed-off-by: Graeme Geldenhuys <graeme@mastermaths.co.za>
Diffstat (limited to 'src/corelib/fpg_widget.pas')
-rw-r--r-- | src/corelib/fpg_widget.pas | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/corelib/fpg_widget.pas b/src/corelib/fpg_widget.pas index 4f00f41d..3e786aca 100644 --- a/src/corelib/fpg_widget.pas +++ b/src/corelib/fpg_widget.pas @@ -90,6 +90,7 @@ type procedure SetVisible(const AValue: boolean); virtual; procedure SetShowHint(const AValue: boolean); virtual; procedure SetParentShowHint(const AValue: boolean); virtual; + procedure SetHint(const AValue: string); virtual; procedure DoUpdateWindowPosition; override; procedure DoAlign(AAlign: TAlign); procedure DoResize; @@ -152,7 +153,7 @@ type property Focused: boolean read FFocused write FFocused default False; property Anchors: TAnchors read FAnchors write FAnchors; property Align: TAlign read FAlign write FAlign; - property Hint: string read FHint write FHint; + property Hint: string read FHint write SetHint; property ShowHint: boolean read FShowHint write SetShowHint stored IsShowHintStored; property ParentShowHint: boolean read FParentShowHint write SetParentShowHint default True; property BackgroundColor: TfpgColor read FBackgroundColor write SetBackgroundColor default clWindowBackground; @@ -271,6 +272,11 @@ begin FShowHint := False; end; +procedure TfpgWidget.SetHint(const AValue: string); +begin + FHint := AValue; +end; + procedure TfpgWidget.DoUpdateWindowPosition; var dw: integer; |