anchor.diff:        var PaintImages, DefaultDraw: Boolean);
       function IsTooManyTabsOpened: boolean;
       function GetUntitledNumberedCaption: string;
  +    procedure PopupBottomOnPopup(Sender: TObject);
       procedure PopupBottomClearClick(Sender: TObject);
       procedure PopupBottomCopyClick(Sender: TObject);
       procedure PopupBottomSelectAllClick(Sender: TObject);
  
positive.code:     procedure InitPaintTest;
      procedure InitPopupTree;
      procedure InitPopupPicScale;
      procedure InitPopupBottomEditor(var AMenu: TPopupMenu; AEditor: TATSynEdit);
      procedure InitPopupViewerMode;
      procedure InitPopupEnc;
      procedure InitPopupEnds;
  
negative.code:   end;
  end;
  
  procedure TfmMain.PopupBottomOnPopup(Sender: TObject);
  var
    Popup: TPopupMenu;
  begin
    Popup:= Sender as TPopupMenu;
    Popup.Items[0].Caption:= cStrMenuitemCopy;
    Popup.Items[1].Caption:= cStrMenuitemSelectAll;
    Popup.Items[2].Caption:= msgConsoleClear;
    Popup.Items[3].Caption:= msgConsoleToggleWrap;
  end;
  
  procedure TfmMain.PopupToolbarCaseOnPopup(Sender: TObject);
  begin
    if mnuToolbarCaseLow=nil then
  