From 3761e86eeb9a2749bef45403866f1ec98e7fe948 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Wed, 28 Sep 2005 10:13:57 +0000
Subject: [PATCH] autosize calendarform (issue #1205)

git-svn-id: trunk@7846 -
---
 lcl/extdlgs.pas | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/lcl/extdlgs.pas b/lcl/extdlgs.pas
index b6d6bd8fce..96f8c5736d 100644
--- a/lcl/extdlgs.pas
+++ b/lcl/extdlgs.pas
@@ -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;