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

LCL: added TWinContro.AutoSizeCanStart deprecated till next release

Browse Source 
git-svn-id: trunk@26568 -
This commit is contained in:
mattias 2010-07-10 07:59:44 +00:00
parent 42463c684d
commit 7effe1cd59
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/controls.pp
View File

@ -1723,6 +1723,7 @@ type
procedure DoSetBounds(ALeft, ATop, AWidth, AHeight: integer); override;
procedure DoAutoSize; override;
procedure DoAllAutoSize; override;
function AutoSizeCanStart: boolean; deprecated;
procedure AllAutoSized; virtual; // called by DoAllAutoSize after all bounds are computed, see TCustomForm.AllAutoSized
procedure CalculatePreferredSize(var PreferredWidth,
PreferredHeight: integer;

5
lcl/include/wincontrol.inc
View File

@ -3510,6 +3510,11 @@ begin
end;
end;
function TWinControl.AutoSizeCanStart: boolean;
begin
Result:=true;
end;
procedure TWinControl.AllAutoSized;
begin
// see TCustomForm.AllAutoSized