anchor.diff:    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
  
positive.code:   Ed.OptMarginRight:= 2000;
    Ed.ModeReadOnly:= true;
  
    InitPopupBottomEditor(Popup, Ed);
    Ed.PopupText:= Popup;
  
    //support dlg_proc API, it needs PropsObject
  
negative.code:       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);
  