anchor.diff:          MessageDlg(E.Message, mtError, [mbOK], 0);
       end;
     end;
  -  {$ELSE}
  -  inherited;
  -  {$ENDIF}
   end;
   
   constructor TmDateEdit.Create(AOwner: TComponent);
  
positive.code: end;
  
  procedure TmDateEdit.ButtonClick;
  {$IFDEF WINDOWS}
  var
    dt : TDateTime;
    B: Boolean;
  {$ENDIF}
  begin
    {$IFDEF WINDOWS}
    dt := Self.Date;
    if TmCalendarDialog.ExecuteDialog(rsCalendarFormCaption, dt) then
    begin
  
negative.code: implementation
  
  uses
    SysUtils, LResources,Dialogs
    ,mCalendarDialog;
  
  { TmDateEdit }
  
  