anchor.diff:      procedure   miEditCopyClicked(Sender: TObject);
       procedure   miEditPasteClicked(Sender: TObject);
       procedure   miFindClicked(Sender: TObject);
  +    procedure   miFindNextClicked(Sender: TObject);
  +    procedure   miFindPrevClicked(Sender: TObject);
       procedure   miSearchProcedureList(Sender: TObject);
       procedure   miAboutFPGuiClicked(Sender: TObject);
       procedure   miAboutIDE(Sender: TObject);
  
positive.code:     Name := 'mnuSearch';
      SetPosition(476, 98, 172, 20);
      AddMenuItem('Find...', rsKeyCtrl+'F', @miFindClicked);
      AddMenuItem('Find Next', 'F3', nil).Enabled := False;
      AddMenuItem('Find Previous', rsKeyShift+'F3', nil).Enabled := False;
      AddMenuItem('Find in Files...', rsKeyCtrl+rsKeyShift+'F', nil).Enabled := False;
      AddMenuItem('Replace...', rsKeyCtrl+'R', nil).Enabled := False;
      AddMenuItem('-', '', nil);
  
negative.code:     FRegex: TRegExpr;
      FKeywordFont: TfpgFont;
      FFileMonitor: TFileMonitor;
      FLastSearchText: TfpgString;
      FLastFindOptions: TfpgFindOptions;
      FLastFindBackward: Boolean;
      procedure   MonitoredFileChanged(Sender: TObject; AData: TFileMonitorEventData);
      procedure   FormShow(Sender: TObject);
      procedure   FormClose(Sender: TObject; var CloseAction: TCloseAction);
  