anchor.diff:  begin
     inherited InternalOnValueSet(Sender, ADate);
     Checked := True;
  -//  InternalCheckBoxChanged(nil);
   end;
   
   procedure TfpgCalendarCheckCombo.HandleKeyPress(var keycode: word;
  
positive.code:     RowSelect := False;
      TabOrder := 8;
      ScrollBarStyle := ssNone;
      OnDoubleClick := @grdName1DoubleClick;
      OnKeyPress := @grdName1KeyPress;
      OnDrawCell := @grdName1DrawCell;
  
negative.code:   FCloseOnSelect := AValue;
  end;
  
  procedure TfpgCalendarCombo.SetSingleClickSelect(const AValue: boolean);
  begin
    if FSingleClickSelect = AValue then exit;
    FSingleClickSelect := AValue;
  end;
  
  function TfpgCalendarCombo.HasText: boolean;
  begin
    Result := FDate >= FMinDate;
  