anchor.diff:    InternalCheckBoxChanged(nil);
   end;
   
  +procedure TfpgCalendarCheckCombo.DoCheckboxChanged;
  +begin
  +  if Assigned(FCheckboxChanged) then
  +    FCheckboxChanged(self, FChecked);
  +end;
  +
   procedure TfpgCalendarCheckCombo.DoDrawText(const ARect: TfpgRect);
   var
     lRect: TfpgRect;
  
positive.code:   begin
      consumed := True;
      Checked := False;
    end;
    inherited HandleKeyPress(keycode, shiftstate, consumed);
  end;
  
  procedure TfpgCalendarCheckCombo.HandlePaint;
  var
    r: TfpgRect;
    img: TfpgImage;
    ix: integer;
  begin
    inherited HandlePaint;
  
    r := FCheckBoxRect;
    OffsetRect(r, 2, 2);
  //  r.SetRect(4, 4, 17, 17);
  //  PrintRect(r);
  
    // calculate which image to paint.
    if Enabled then
    begin
      ix := Ord(FChecked);
      //if FIsPressed then
        //Inc(ix, 2);
    end
    else
      ix := (2 + (Ord(FChecked) * 2)) - Ord(FChecked);
  
    // paint the check (in this case a X)
  //  tx := r.right + 8;
    img := fpgImages.GetImage('sys.checkboxes');    // Do NOT localize
    Canvas.DrawImagePart(r.Left, r.Top, img, ix*13, 0, 13, 13);
  end;
  
  constructor TfpgCalendarCheckCombo.Create(AOwner: TComponent);
  begin
    inherited Create(AOwner);
    FChecked := True;
    FCheckBoxRect.SetRect(2, 2, 17, 17);
  {
    FCheckBox := TfpgCheckBox.Create(self);
    with FCheckbox do
  
negative.code: type
  
    TfpgOnDateSetEvent = procedure(Sender: TObject; const ADate: TDateTime) of object;
    TfpgOnCheckboxChangedEvent = procedure(Sender: TObject; const AIsChecked: Boolean) of object;
  
  
    TfpgPopupCalendar = class(TfpgPopupWindow)
    private
  