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

TButtonEdit: AutoSize default True.

Browse Source 
git-svn-id: trunk@44661 -
This commit is contained in:
bart 2014-04-09 14:24:24 +00:00
parent aa10eb3cea
commit ada8e45a6d
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/buttonedit.pas
View File

@ -242,6 +242,7 @@ type
procedure SetFocus; override; procedure SetFocus; override;
procedure Undo; virtual; procedure Undo; virtual;
property Autosize default True;
property Alignment: TAlignment read GetAlignment write SetAlignment default taLeftJustify; property Alignment: TAlignment read GetAlignment write SetAlignment default taLeftJustify;
property CanUndo: Boolean read GetCanUndo; property CanUndo: Boolean read GetCanUndo;
property CaretPos: TPoint read GetCaretPos write SetCaretPos; property CaretPos: TPoint read GetCaretPos write SetCaretPos;
@ -1514,6 +1515,7 @@ begin
Parent := Self; Parent := Self;
end; end;
AutoSize := True;
end; end;
destructor TCustomButtonEdit.Destroy; destructor TCustomButtonEdit.Destroy;