anchor.diff:  uses
     dateutils
     ,fpg_dialogs
  +  ,fpg_constants
     ;
   
   
  
positive.code:     procedure   ShowMessageWindow;
      procedure   miPauseClicked(Sender: TObject);
      procedure   miFileQuit(Sender: TObject);
      procedure   miHelpAboutFPGui(Sender: TObject);
      procedure   miHelpProductInformation(Sender: TObject);
      procedure   btnClearClicked(Sender: TObject);
  
negative.code:   begin
      Name := 'mnuEdit';
      SetPosition(260, 126, 120, 24);
  //    AddMenuItem('Cut', '', nil).Enabled := False;
      AddMenuItem('Copy selected message to clipboard', rsKeyCtrl+'C', @miEditCopy);
  //    AddMenuItem('Paste', '', nil).Enabled := False;
      AddMenuItem('-', '', nil);
      AddMenuItem('Preferences...', '', nil).Enabled := False;
    end;
  