paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 21:19:24 +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; procedure TCalendarDialogForm.InitForm;
begin 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; Width:=200;
Position:=poScreenCenter; Position:=poScreenCenter;
BorderStyle:=bsDialog; BorderStyle:=bsDialog;
@ -1221,7 +1223,7 @@ begin
With FCalendar do With FCalendar do
begin begin
Parent:=Self; Parent:=Self;
SetBounds(0,0,Self.Width,98); SetBounds(0,0,Self.Width,118);
Align:=alClient; Align:=alClient;
//Anchors:=[akLeft,akRight,akTop,akBottom]; //Anchors:=[akLeft,akRight,akTop,akBottom];
end; end;
@ -1229,7 +1231,7 @@ begin
With FPanel do With FPanel do
begin begin
Parent:=Self; Parent:=Self;
Top:=99; Top:=109;
Height:=32; Height:=32;
Width:=200; Width:=200;
Align:=alBottom; Align:=alBottom;