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

autosize calendarform (issue #1205)

Browse Source 
git-svn-id: trunk@7846 -
This commit is contained in:
vincents 2005-09-28 10:13:57 +00:00
parent 1592b3d7b3
commit 3761e86eeb
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/extdlgs.pas
View File

@ -1187,11 +1187,11 @@ begin
DF.Caption:=FDialogTitle;
DF.Position:=poMainFormCenter;
DF.BorderStyle:=bsDialog;
DF.AutoSize:=true;
FCalendar:=TCalendar.Create(Self);
with FCalendar do begin
Parent:=DF;
DF.Width:=Width;
Align:=alTop;
DateTime:=Self.Date;
DisplaySettings:=Self.DisplaySettings;
@ -1205,8 +1205,7 @@ begin
Parent:=DF;
Caption:='';
Height:=32;
DF.Height:=FCalendar.Height+Height;
Align:=alBottom;
AnchorToCompanion(akTop, 0, FCalendar);
BevelOuter:=bvLowered;
end;