anchor.diff:    finally
       ShortDateFormat := old;
     end;
  +  }
  +  DrawCalendar(StrToInt(edtMaxDate.Text), 2008);
   end;
   
   procedure TMainForm.DoDropDown;
  
positive.code:   cal.CloseOnSelect := TfpgCheckBox(Sender).Checked;
  end;
  
  procedure TMainForm.btnDownClicked(Sender: TObject);
  begin
    DoDropDown;
  
negative.code:     procedure   btnMaxDateClicked(Sender: TObject);
      procedure   DoDropDown;
      procedure   cbCloseOnSelectChanged(Sender: TObject);
      procedure   DrawCalendar(month, year: integer);
    public
      {@VFD_HEAD_BEGIN: MainForm}
      edtName1: TfpgEdit;
  