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

fix clientrect in tnotebook (fixes #476 and #488)

Browse Source 
git-svn-id: trunk@6410 -
This commit is contained in:
micha 2004-12-23 11:42:17 +00:00
parent 03a3931754
commit 8360f8642c
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/custompage.inc
View File

@ -26,12 +26,8 @@ begin
fCompStyle := csPage;
ControlStyle := ControlStyle + [csAcceptsControls,csDesignFixedBounds];
// set the default height and width
if (Owner<>nil) and (Owner is TControl) then begin
Align:=alClient;
end else begin
SetInitialBounds(0,0,120,100);
end;
// height and width dependent on parent, align to client rect
Align := alClient;
Caption := '';
Visible := false;
end;