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

disable autosize for calendardialogform, because it doesn't work correctly

Browse Source 
git-svn-id: trunk@9350 -
This commit is contained in:
vincents 2006-05-24 21:14:32 +00:00
parent eadacf707a
commit cee4c76647
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/extdlgs.pas
View File

@ -1187,7 +1187,7 @@ begin
DF.Caption:=FDialogTitle; DF.Caption:=FDialogTitle;
DF.Position:=poMainFormCenter; DF.Position:=poMainFormCenter;
DF.BorderStyle:=bsDialog; DF.BorderStyle:=bsDialog;
DF.AutoSize:=true; //DF.AutoSize:=true;
FCalendar:=TCalendar.Create(Self); FCalendar:=TCalendar.Create(Self);
with FCalendar do begin with FCalendar do begin
@ -1233,6 +1233,8 @@ begin
Align:=alLeft; Align:=alLeft;
Cancel:=True; Cancel:=True;
end; end;
DF.ClientWidth := FCalendar.Width;
DF.ClientHeight := panel.Top+panel.Height;
Result:=DF.ShowModal=mrOK; Result:=DF.ShowModal=mrOK;
FreeAndNil(FCalendar); FreeAndNil(FCalendar);