new TfpgEditButton component with ellipses glyph on the button.

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 }