paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-21 22:59:27 +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}
if (AOwner<>nil) and (AOwner is TControl) then begin
Width:=(TControl(AOwner).ClientWidth);
Height:=(TControl(AOwner).ClientHeight);
SetInitialBounds(0,0,
TControl(AOwner).ClientWidth,TControl(AOwner).ClientHeight);
end else begin
Width:=120;
Height:=100;
SetInitialBounds(0,0,120,100);
end;
{create the control}
@ -158,6 +157,9 @@ end;
// included by extctrls.pp
{
$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
implemented tabstop