anchor.diff:      procedure OnInternalCustomDate (Sender : TObject; var ADate : string);
     protected
       property OnCustomDate; // hide the original event
  +    procedure ButtonClick; override;
     public
       constructor Create(AOwner: TComponent); override;
       destructor Destroy; override;
  
positive.code:     ADate:= DateToStr(tmpDate);
    if Assigned(OnExtCustomDate) then
      OnExtCustomDate(Sender, ADate);
  end;
  
  constructor TmDateEdit.Create(AOwner: TComponent);
  
negative.code:   Classes, EditBtn, Graphics,
    mUtility;
  
  resourcestring
    rsCalendarFormCaption = 'Select a date';
  
  type
  
    { TmDateEdit }
  