[lazarus] patch for editbtn.pas

[Алексей Лагунов]

this path add property ButtonHint to TEditButton for set custom hint 
message for button of TEditButton control
Index: editbtn.pas
===================================================================
--- editbtn.pas (revision 12206)
+++ editbtn.pas (working copy)
@@ -39,10 +42,12 @@
     FButton: TSpeedButton;
     FButtonNeedsFocus: Boolean;
     FOnButtonClick : TNotifyEvent;
+    function GetButtonHint: TTranslateString;
     function GetButtonWidth: Integer;
     function GetDirectInput: Boolean;
     function GetFlat: Boolean;
     Procedure CheckButtonVisible;
+    procedure SetButtonHint(const AValue: TTranslateString);
     procedure SetButtonNeedsFocus(const AValue: Boolean);
     procedure SetButtonWidth(const AValue: Integer);
     procedure SetDirectInput(const AValue: Boolean);
@@ -70,6 +75,7 @@
     property NumGlyphs : Integer read GetNumGlyphs write SetNumGlyphs;
     property OnButtonClick : TNotifyEvent read FOnButtonClick write 
FOnButtonClick;
     property Button: TSpeedButton read FButton;
+    property ButtonHint: TTranslateString read GetButtonHint write 
SetButtonHint;
   public
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -91,6 +97,7 @@
     property BorderSpacing;
     property ButtonOnlyWhenFocused;
     property ButtonWidth;
+    property ButtonHint;
     property CharCase;
     property Color;
     property Ctl3D;
@@ -534,6 +545,11 @@
   Result:=FButton.Width;
 end;
 
+function TCustomEditButton.GetButtonHint: TTranslateString;
+begin
+  Result:=FButton.Hint;
+end;
+
 function TCustomEditButton.GetDirectInput: Boolean;
 begin
   Result := not ReadOnly;
@@ -554,6 +570,11 @@
                      (Visible and (Focused or not FButtonNeedsFocus));
 end;
 
+procedure TCustomEditButton.SetButtonHint(const AValue: TTranslateString);
+begin
+  FButton.Hint:=AValue;
+end;
+
 procedure TCustomEditButton.SetButtonNeedsFocus(const AValue: Boolean);
 begin
   If FButtonNeedsFocus<>AValue then