paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-22 13:09:51 +01:00
Code Issues Packages Projects Releases Wiki Activity

EditButton: refactor setting focus.

Browse Source 
git-svn-id: trunk@44811 -
This commit is contained in:
bart 2014-04-26 13:17:04 +00:00
parent b07ae15e65
commit c45bd45cd7
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/editbtn.pas
View File

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