diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-04-23 09:57:58 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-04-23 09:57:58 +0200 |
commit | e1baa176d5d5b974c585fa7960ad5f8aeb19b7e4 (patch) | |
tree | 0c6257207c8abb8e0f2353b760e23fb46d5d503d | |
parent | 0aabb27fa467e6fa0d98cb5512859d6966dbda91 (diff) | |
download | fpGUI-e1baa176d5d5b974c585fa7960ad5f8aeb19b7e4.tar.xz |
new TfpgEditButton component with ellipses glyph on the button.
-rw-r--r-- | src/gui/fpg_editbtn.pas | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/src/gui/fpg_editbtn.pas b/src/gui/fpg_editbtn.pas index a4d1c469..5167b393 100644 --- a/src/gui/fpg_editbtn.pas +++ b/src/gui/fpg_editbtn.pas @@ -126,6 +126,24 @@ type end; + TfpgEditButton = class(TfpgBaseEditButton) + protected + function GetText: TfpgString; + procedure SetText(const AValue: TfpgString); + public + constructor Create(AOwner: TComponent); override; + published + property Align; + property Enabled; + property ExtraHint; + property ReadOnly; + property TabOrder; + property Text: TfpgString read GetText write SetText; + property OnButtonClick; + property OnShowHint; + end; + + implementation uses @@ -134,6 +152,24 @@ uses ,fpg_utils ; +{ TfpgEditButton } + +function TfpgEditButton.GetText: TfpgString; +begin + Result := FEdit.Text; +end; + +procedure TfpgEditButton.SetText(const AValue: TfpgString); +begin + FEdit.Text := AValue; +end; + +constructor TfpgEditButton.Create(AOwner: TComponent); +begin + inherited Create(AOwner); + FButton.ImageName := 'stdimg.ellipse'; +end; + { TfpgBaseEditButton } |