paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 09:55:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

TButtonEdit: implement property AutoSelected.

Browse Source 
git-svn-id: trunk@44655 -
This commit is contained in:
bart 2014-04-08 21:28:03 +00:00
parent 02efbbf03e
commit 88a62d821b
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/buttonedit.pas
View File

@ -81,6 +81,7 @@ type
function GetAlignment: TAlignment;
function GetAutoSelect: Boolean;
function GetAutoSelected: Boolean;
function GetBtnCaption: TCaption;
function GetButtonHint: TTranslateString;
function GetButtonWidth: Integer;
@ -125,6 +126,7 @@ type
procedure SetAlignment(AValue: TAlignment);
procedure SetAutoSelect(AValue: Boolean);
procedure SetAutoSelected(AValue: Boolean);
procedure SetButtonAlign(AValue: TButtonAlign);
procedure SetBtnCaption(AValue: TCaption);
procedure SetButtonHint(AValue: TTranslateString);
@ -174,6 +176,7 @@ type
procedure SetCursor(AValue: TCursor); override;
property AutoSelect: Boolean read GetAutoSelect write SetAutoSelect default True;
property AutoSelected: Boolean read GetAutoSelected write SetAutoSelected;
property Button: TSpeedButton read FButton;
property ButtonAlign: TButtonAlign read FButtonAlign write SetButtonAlign default BaRight;
property ButtonCaption: TCaption read GetBtnCaption write SetBtnCaption;
@ -243,6 +246,7 @@ type
TButtonEdit = class(TCustomButtonEdit)
public
property AutoSelected;
property Button;
published
property NumbersOnly;
@ -453,6 +457,7 @@ type
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
property AutoSelected;
property DialogFiles: TStrings read FDialogFiles;
published
// TFileName properties.
@ -538,6 +543,7 @@ type
procedure DoButtonClick (Sender: TObject); override;
procedure RunDialog; virtual;
public
property AutoSelected;
published
// TDirectory properties.
property Directory: String read GetDirectory write SetDirectory;
@ -632,6 +638,7 @@ type
constructor Create(AOwner: TComponent); override;
procedure DateFormatChanged; virtual;
function GetDateFormat: string;
property AutoSelected;
property Date: TDateTime read GetDate write SetDate;
property Button;
property DroppedDown: Boolean read FDroppedDown;
@ -714,6 +721,7 @@ type
procedure RunDialog; virtual;
public
constructor Create(AOwner: TComponent); override;
property AutoSelected;
published
// CalcEdit properties
property CalculatorLayout : TCalculatorLayout read FLayout write Flayout;
@ -1035,6 +1043,11 @@ begin
Result := FEdit.AutoSelect;
end;
function TCustomButtonEdit.GetAutoSelected: Boolean;
begin
Result := FEdit.AutoSelected;
end;
function TCustomButtonEdit.GetButtonHint: TTranslateString;
begin
Result := FButton.Hint;
@ -1154,6 +1167,11 @@ begin
FEdit.AutoSelect := AValue;
end;
procedure TCustomButtonEdit.SetAutoSelected(AValue: Boolean);
begin
FEdit.AutoSelected := AValue;
end;
procedure TCustomButtonEdit.SetAutoSize(AValue: Boolean);
begin
if AutoSize = AValue then