anchor.diff:  type
   
     TfpgOnDateSetEvent = procedure(Sender: TObject; const ADate: TDateTime) of object;
  -  
  +  TfpgOnCheckboxChangedEvent = procedure(Sender: TObject; const AIsChecked: Boolean) of object;
  +
   
     TfpgPopupCalendar = class(TfpgPopupWindow)
     private
  
positive.code:   InternalCheckBoxChanged(nil);
  end;
  
  procedure TfpgCalendarCheckCombo.DoDrawText(const ARect: TfpgRect);
  var
    lRect: TfpgRect;
  
negative.code: //    FCheckBox: TfpgCheckbox;
      FChecked: boolean;
      FCheckBoxRect: TfpgRect;
      FCheckboxChanged: TfpgOnCheckboxChangedEvent;
      procedure   InternalCheckBoxChanged(Sender: TObject);
      procedure   SetChecked(const AValue: Boolean);
      procedure   DoCheckboxChanged;
    protected
      procedure   DoDrawText(const ARect: TfpgRect); override;
      procedure   InternalOnValueSet(Sender: TObject; const ADate: TDateTime); override;
      procedure   HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override;
      procedure   HandlePaint; override;
      procedure   HandleResize(AWidth, AHeight: TfpgCoord); override;
      procedure   HandleLMouseDown(x, y: integer; shiftstate: TShiftState); override;
      procedure   HandleLMouseUp(x, y: integer; shiftstate: TShiftState); override;
    public
      constructor Create(AOwner: TComponent); override;
    published
      property    Checked: Boolean read FChecked write SetChecked;
      property    OnCheckboxChanged: TfpgOnCheckboxChangedEvent read FCheckboxChanged write FCheckboxChanged;
      property    OnKeyPress;
    end;
  
  