From c45bd45cd7ac99b2524cf339d0b8d4adfe7aab6c Mon Sep 17 00:00:00 2001
From: bart <9132501-flyingsheep@users.noreply.gitlab.com>
Date: Sat, 26 Apr 2014 13:17:04 +0000
Subject: [PATCH] EditButton: refactor setting focus.

git-svn-id: trunk@44811 -
---
 lcl/editbtn.pas | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/lcl/editbtn.pas b/lcl/editbtn.pas
index a99d8ddb76..b1b78e8cad 100644
--- a/lcl/editbtn.pas
+++ b/lcl/editbtn.pas
@@ -245,7 +245,6 @@ type
     procedure CutToClipboard; virtual;
     procedure PasteFromClipboard; virtual;
     procedure SelectAll;
-    procedure SetFocus; override;
     procedure Undo; virtual;
     procedure ValidateEdit; virtual;
 
@@ -1561,6 +1560,7 @@ begin
   FButton := TSpeedButton.Create(Self);
   FEdit := TEbEdit.Create(Self);
   inherited Create(AOwner);
+  ControlStyle := ControlStyle + [csNoFocus];
   ParentColor := False;
   FInitialColor := {$ifdef UseCLDefault}clDefault{$else}clWindow{$endif};
   BorderStyle := bsNone;
@@ -1661,11 +1661,6 @@ begin
   FEdit.SelectAll;
 end;
 
-procedure TCustomEditButton.SetFocus;
-begin
-  inherited SetFocus;
-  FEdit.SetFocus;
-end;
 
 procedure TCustomEditButton.Undo;
 begin