anchor.diff:      RowSelect := False;
       TabOrder := 8;
       ScrollBarStyle := ssNone;
  +    OnClick  := @grdName1Clicked;
       OnDoubleClick := @grdName1DoubleClick;
       OnKeyPress := @grdName1KeyPress;
       OnDrawCell := @grdName1DrawCell;
  
positive.code: 
    TfpgCalendarCheckCombo = class(TfpgCalendarCombo)
    private
  //    FCheckBox: TfpgCheckbox;
      FChecked: boolean;
      FCheckBoxRect: TfpgRect;
      FCheckboxChanged: TfpgOnCheckboxChangedEvent;
      procedure   InternalCheckBoxChanged(Sender: TObject);
      procedure   SetChecked(const AValue: Boolean);
      procedure   DoCheckboxChanged;
    protected
  
negative.code:   end;
  end;
  
  procedure TfpgPopupCalendar.SetSingleClickSelect(const AValue: boolean);
  begin
    if FSingleClickSelect = AValue then exit;
    FSingleClickSelect := AValue;
  end;
  
  function TfpgPopupCalendar.GetDateElement(Index: integer): Word;
  var
    lD, lM, lY: Word;
  