From 9597a13137c3010fb07242a514f2a5ab3318a3e4 Mon Sep 17 00:00:00 2001
From: bart <9132501-flyingsheep@users.noreply.gitlab.com>
Date: Fri, 11 Apr 2014 17:38:37 +0000
Subject: [PATCH] EditBtn: implement Validateedit and Reset methods.

git-svn-id: trunk@44680 -
---
 lcl/editbtn.pas | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/lcl/editbtn.pas b/lcl/editbtn.pas
index 704bfa0938..f8c65c6921 100644
--- a/lcl/editbtn.pas
+++ b/lcl/editbtn.pas
@@ -198,6 +198,7 @@ type
 
 
     procedure Loaded; override;
+    procedure Reset; virtual;
     procedure SetAutoSize(AValue: Boolean); override;
     procedure SetColor(AValue: TColor); override;
     procedure SetCursor(AValue: TCursor); override;
@@ -249,6 +250,7 @@ type
     procedure SelectAll;
     procedure SetFocus; override;
     procedure Undo; virtual;
+    procedure ValidateEdit; virtual;
 
     property Autosize default True;
     property Alignment: TAlignment read GetAlignment write SetAlignment default taLeftJustify;
@@ -1444,6 +1446,11 @@ begin
   CheckButtonVisible;
 end;
 
+procedure TCustomEditButton.Reset;
+begin
+  FEdit.Reset;
+end;
+
 procedure TCustomEditButton.SetGlyph(AValue: TBitmap);
 begin
   FButton.Glyph := AValue;
@@ -1588,6 +1595,11 @@ begin
   FEdit.Undo;
 end;
 
+procedure TCustomEditButton.ValidateEdit;
+begin
+  FEdit.ValidateEdit;
+end;
+
 { TCustomControlFilterEdit }
 
 constructor TCustomControlFilterEdit.Create(AOwner: TComponent);