diff options
Diffstat (limited to 'src/gui')
-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 } |