calendar demo: added the TfpgCalendarCheckCombo as well.

1 files changed, 38 insertions, 5 deletions

diff --git a/examples/gui/calendar/calendartest.lpr b/examples/gui/calendar/calendartest.lpr
index 67e94651..51ea826d 100644
--- a/examples/gui/calendar/calendartest.lpr
+++ b/examples/gui/calendar/calendartest.lpr
@@ -36,6 +36,8 @@ type
     cbCloseOnSelect: TfpgCheckBox;
     lblName1: TfpgLabel;
     bvlName1: TfpgBevel;
+    CalendarCombo1: TfpgCalendarCheckCombo;
+    Label1: TfpgLabel;
     {@VFD_HEAD_END: MainForm}
     procedure   btnDateFormatClicked(Sender: TObject);
     procedure   btnTodayClicked(Sender: TObject);
@@ -181,8 +183,9 @@ begin
   inherited AfterCreate;
   {@VFD_BODY_BEGIN: MainForm}
   Name := 'MainForm';
-  SetPosition(286, 234, 372, 275);
+  SetPosition(362, 186, 372, 309);
   WindowTitle := 'fpGUI Calendar Test';
+  Hint := '';
   WindowPosition := wpUser;
 
   btnClear := TfpgButton.Create(self);
@@ -215,6 +218,7 @@ begin
     Name := 'cbWHoliday';
     SetPosition(132, 32, 120, 23);
     FontDesc := '#List';
+    Hint := '';
     Items.Add('Sun');
     Items.Add('Mon');
     Items.Add('Tue');
@@ -232,6 +236,7 @@ begin
     Name := 'cbName1';
     SetPosition(132, 64, 120, 23);
     FontDesc := '#List';
+    Hint := '';
     Items.Add('Sun');
     Items.Add('Mon');
     Items.Add('Tue');
@@ -249,9 +254,10 @@ begin
   begin
     Name := 'cal';
     SetPosition(132, 224, 120, 23);
+    DateFormat := 'dd mmm yyyy';
     FontDesc := '#List';
+    Hint := '';
     TabOrder := 5;
-    DateFormat := 'dd mmm yyyy';
     DayColor := clBlue;
     HolidayColor := clRed;
     SelectedColor:= clYellow;
@@ -274,7 +280,8 @@ begin
   with edtDateFormat do
   begin
     Name := 'edtDateFormat';
-    SetPosition(132, 116, 92, 22);
+    SetPosition(132, 116, 92, 24);
+    Hint := '';
     TabOrder := 7;
     Text := 'yy-mm-d';
     FontDesc := '#Edit1';
@@ -317,7 +324,8 @@ begin
   with edtMinDate do
   begin
     Name := 'edtMinDate';
-    SetPosition(132, 144, 92, 22);
+    SetPosition(132, 144, 92, 24);
+    Hint := '';
     TabOrder := 13;
     Text := '2005-01-01';
     FontDesc := '#Edit1';
@@ -327,7 +335,8 @@ begin
   with edtMaxDate do
   begin
     Name := 'edtMaxDate';
-    SetPosition(132, 172, 92, 22);
+    SetPosition(132, 172, 92, 24);
+    Hint := '';
     TabOrder := 14;
     Text := '2009-01-01';
     FontDesc := '#Edit1';
@@ -366,6 +375,7 @@ begin
     SetPosition(128, 92, 236, 20);
     Checked := True;
     FontDesc := '#Label1';
+    Hint := '';
     TabOrder := 17;
     Text := 'Close combo on date selection';
     OnChange := @cbCloseOnSelectChanged;
@@ -387,9 +397,32 @@ begin
     Name := 'bvlName1';
     SetPosition(8, 204, 350, 2);
     Anchors := [anLeft,anRight,anTop];
+    Hint := '';
     Style := bsLowered;
   end;
 
+  CalendarCombo1 := TfpgCalendarCheckCombo.Create(self);
+  with CalendarCombo1 do
+  begin
+    Name := 'CalendarCombo1';
+    SetPosition(132, 264, 120, 22);
+    Checked := True;
+    DateFormat := 'yyyy-mm-dd';
+    FontDesc := '#List';
+    Hint := '';
+    TabOrder := 18;
+  end;
+
+  Label1 := TfpgLabel.Create(self);
+  with Label1 do
+  begin
+    Name := 'Label1';
+    SetPosition(8, 268, 116, 16);
+    FontDesc := '#Label1';
+    Hint := '';
+    Text := 'Optional date:';
+  end;
+
   {@VFD_BODY_END: MainForm}
 end;