paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-20 12:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: added property TEditButton.ButtonHint from Alexs75

Browse Source 
git-svn-id: trunk@12261 -
This commit is contained in:
mattias 2007-10-01 08:45:20 +00:00
parent 12625a722d
commit 392fe94bbb
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/editbtn.pas
View File

@ -39,10 +39,12 @@ type
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 +72,7 @@ type
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 +94,7 @@ type
property BorderSpacing;
property ButtonOnlyWhenFocused;
property ButtonWidth;
property ButtonHint;
property CharCase;
property Color;
property Ctl3D;
@ -534,6 +538,11 @@ begin
Result:=FButton.Width;
end;
function TCustomEditButton.GetButtonHint: TTranslateString;
begin
Result:=FButton.Hint;
end;
function TCustomEditButton.GetDirectInput: Boolean;
begin
Result := not ReadOnly;
@ -554,6 +563,11 @@ begin
(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