anchor.diff:  implementation
   
   uses
  -  SysUtils, LResources
  -  {$IFDEF WINDOWS}
  -  ,Dialogs ,mCalendarDialog
  -  {$ENDIF}
  -  ;
  +  SysUtils, LResources,Dialogs
  +  ,mCalendarDialog;
   
   { TmDateEdit }
   
  
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:         MessageDlg(E.Message, mtError, [mbOK], 0);
      end;
    end;
  end;
  
  constructor TmDateEdit.Create(AOwner: TComponent);
  