anchor.diff:      cbCloseOnSelect: TfpgCheckBox;
       lblName1: TfpgLabel;
       bvlName1: TfpgBevel;
  +    CalendarCombo1: TfpgCalendarCheckCombo;
  +    Label1: TfpgLabel;
       {@VFD_HEAD_END: MainForm}
       procedure   btnDateFormatClicked(Sender: TObject);
       procedure   btnTodayClicked(Sender: TObject);
  
positive.code:   begin
      Name := 'cal';
      SetPosition(132, 224, 120, 23);
      FontDesc := '#List';
      TabOrder := 5;
      DateFormat := 'dd mmm yyyy';
      DayColor := clBlue;
      HolidayColor := clRed;
      SelectedColor:= clYellow;
  
negative.code:     Name := 'cbName1';
      SetPosition(132, 64, 120, 23);
      FontDesc := '#List';
      Hint := '';
      Items.Add('Sun');
      Items.Add('Mon');
      Items.Add('Tue');
  