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

Enlarged TCalendarDialogForm, so that it is large enough to contain the win32 calendar.

Browse Source 
git-svn-id: trunk@6259 -
This commit is contained in:
vincents 2004-11-17 12:22:38 +00:00
parent fec5cb234b
commit d864b6e663
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/extdlgs.pas
View File

@ -1213,7 +1213,9 @@ end;
procedure TCalendarDialogForm.InitForm;
begin
Height:=150;
// TODO: let the size of this dialog dependent on the prefered size of
// the calendar, because the gtk calendar is smaller than the win32 calendar.
Height:=170;
Width:=200;
Position:=poScreenCenter;
BorderStyle:=bsDialog;
@ -1221,7 +1223,7 @@ begin
With FCalendar do
begin
Parent:=Self;
SetBounds(0,0,Self.Width,98);
SetBounds(0,0,Self.Width,118);
Align:=alClient;
//Anchors:=[akLeft,akRight,akTop,akBottom];
end;
@ -1229,7 +1231,7 @@ begin
With FPanel do
begin
Parent:=Self;
Top:=99;
Top:=109;
Height:=32;
Width:=200;
Align:=alBottom;