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

fixed realizing bounds after loading form

Browse Source 
git-svn-id: trunk@3224 -
This commit is contained in:
mattias 2002-08-19 15:15:22 +00:00
parent f89844ce46
commit b027a05a07
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/page.inc
View File

@ -36,11 +36,10 @@ begin
{set the default height and width} {set the default height and width}
if (AOwner<>nil) and (AOwner is TControl) then begin if (AOwner<>nil) and (AOwner is TControl) then begin
Width:=(TControl(AOwner).ClientWidth); SetInitialBounds(0,0,
Height:=(TControl(AOwner).ClientHeight); TControl(AOwner).ClientWidth,TControl(AOwner).ClientHeight);
end else begin end else begin
Width:=120; SetInitialBounds(0,0,120,100);
Height:=100;
end; end;
{create the control} {create the control}
@ -158,6 +157,9 @@ end;
// included by extctrls.pp // included by extctrls.pp
{ {
$Log$ $Log$
Revision 1.14 2003/06/11 22:29:42 mattias
fixed realizing bounds after loading form
Revision 1.13 2003/06/10 17:23:35 mattias Revision 1.13 2003/06/10 17:23:35 mattias
implemented tabstop implemented tabstop