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

fixed not using ClientWidth/ClientHeight during loading for Width/Height

Browse Source 
git-svn-id: trunk@7984 -
This commit is contained in:
mattias 2005-10-22 18:57:08 +00:00
parent 45e475f8c0
commit adcfb30dbe
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/include/control.inc
View File

@ -2006,8 +2006,12 @@ begin
if csLoading in ComponentState then begin
FLoadedClientSize.Y:=Value;
Include(FControlFlags,cfClientHeightLoaded);
end else begin
// during loading the ClientHeight is not used to set the Height of the
// control, but only to restore autosizing. For example Anchors=[akBottom]
// needs ClientHeight.
SetClientSize(Point(ClientWidth, Value));
end;
SetClientSize(Point(ClientWidth, Value));
end;
{------------------------------------------------------------------------------
@ -2030,8 +2034,12 @@ begin
if csLoading in ComponentState then begin
FLoadedClientSize.X:=Value;
Include(FControlFlags,cfClientWidthLoaded);
end else begin
// during loading the ClientWidth is not used to set the Width of the
// control, but only to restore autosizing. For example Anchors=[akRight]
// needs ClientWidth.
SetClientSize(Point(Value, ClientHeight));
end;
SetClientSize(Point(Value, ClientHeight));
end;
{------------------------------------------------------------------------------}