anchor.diff:      procedure   btnMonthUpClicked(Sender: TObject);
       procedure   btnMonthDownClicked(Sender: TObject);
       procedure   btnTodayClicked(Sender: TObject);
  +    procedure   grdName1Clicked(Sender: TObject);
       procedure   grdName1DoubleClick(Sender: TObject; AButton: TMouseButton; AShift: TShiftState; const AMousePos: TPoint);
       procedure   grdName1KeyPress(Sender: TObject; var KeyCode: word; var ShiftState: TShiftState; var Consumed: boolean);
       procedure   grdName1DrawCell(Sender: TObject; const ARow, ACol: Integer; const ARect: TfpgRect; const AFlags: TfpgGridDrawState; var ADefaultDrawing: boolean);
       procedure   TearDown;
  +    procedure   SetSingleClickSelect(const AValue: boolean);
     protected
       FntNorm, FntBold: TfpgFont;
       FOrigFocusWin: TfpgWidget;
  
positive.code:     FHolidayColor: TfpgColor;
      FSelectedColor: TfpgColor;
      FCloseOnSelect: boolean;
      procedure   SetDateFormat(const AValue: string);
      procedure   SetDateValue(const AValue: TDateTime);
      procedure   SetMaxDate(const AValue: TDateTime);
  
negative.code:     procedure   SetHolidayColor(const AValue: TfpgColor);
      procedure   SetSelectedColor(const AValue: TfpgColor);
      procedure   SetCloseOnSelect(const AValue: boolean);
      procedure   SetSingleClickSelect(const AValue: boolean);
    protected
      function    GetText: string; override;
      procedure   SetText(const AValue: string); override;
  