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

EditButton: make TabStop also set TabStop of FEdit and make it True by default.

Browse Source 
git-svn-id: trunk@44807 -
This commit is contained in:
bart 2014-04-26 10:16:45 +00:00
parent 05eb165133
commit 340635fea2
1 changed files with 15 additions and 0 deletions

15
lcl/editbtn.pas
View File

@ -111,6 +111,7 @@ type
function GetSelLength: Integer;
function GetSelStart: Integer;
function GetSelText: String;
function GetTabStop: Boolean;
function GetText: TCaption;
function IsCustomGlyph : Boolean;
@ -164,6 +165,7 @@ type
procedure SetSelLength(AValue: Integer);
procedure SetSelStart(AValue: Integer);
procedure SetSelText(AValue: String);
procedure SetTabStop(AValue: Boolean);
procedure SetText(AValue: TCaption);
protected
class function GetControlClassDefaultSize: TSize; override;
@ -264,6 +266,7 @@ type
property SelLength: Integer read GetSelLength write SetSelLength;
property SelStart: Integer read GetSelStart write SetSelStart;
property SelText: String read GetSelText write SetSelText;
property TabStop: Boolean read GetTabStop write SetTabStop default True;
property Text: TCaption read GetText write SetText;
property OnChange: TNotifyEvent read FOnEditChange write FOnEditChange;
@ -1022,6 +1025,11 @@ begin
Result := FEdit.SelText;
end;
function TCustomEditButton.GetTabStop: Boolean;
begin
Result := inherited TabStop;
end;
function TCustomEditButton.GetText: TCaption;
begin
Result := FEdit.Text;
@ -1540,6 +1548,12 @@ begin
FEdit.SelText := AValue;
end;
procedure TCustomEditButton.SetTabStop(AValue: Boolean);
begin
inherited TabStop := AValue;
FEdit.TabStop := AValue;
end;
constructor TCustomEditButton.Create(AOwner: TComponent);
var
B: TBitmap;
@ -1554,6 +1568,7 @@ begin
FButtonOnlyWhenFocused := False;
FDirectInput := True;
FIsReadOnly := False;
TabStop := True;
with GetControlClassDefaultSize do
SetInitialBounds(0, 0, CX, CY);