anchor.diff:  end;
   
   
  -procedure TfmMain.FormCreate(Sender: TObject);
  -var
  -  NTick: QWord;
  -  i: integer;
  -begin
  -  OnEnter:= @FormEnter;
  -
  -  mnuHelpCheckUpd.Enabled:= UiOps.AllowProgramUpdates;
  -
  -  with AppPanels[cPaneSide] do
  -  begin
  -    PanelRoot:= Self.PanelMain;
  -    Toolbar:= ToolbarSideTop;
  -    DefaultPanel:= msgPanelTree_Init;
  -    OnCommand:= @DoSidebar_OnPythonCall;
  -    OnCloseFloatForm:= @DoSidebar_OnCloseFloatForm;
  -    OnGetTranslatedTitle:= @DoSidebar_GetFormTitle;
  -    Init(Self, alLeft);
  -    Splitter.OnPaint:= @SplitterOnPaintDummy;
  -  end;
  -
  -  with AppPanels[cPaneOut] do
  -  begin
  -    PanelRoot:= Self.PanelAll;
  -    Toolbar:= ToolbarSideLow;
  -    OnHide:= @DoBottom_OnHide;
  -    OnCommand:= @DoSidebar_OnPythonCall;
  -    OnCloseFloatForm:= @DoBottom_OnCloseFloatForm;
  -    OnGetTranslatedTitle:= @DoSidebar_GetFormTitle;
  -    Init(Self, alBottom);
  -    Splitter.OnPaint:= @SplitterOnPaintDummy;
  -  end;
  -
  -  {
  -  LexerProgress:= TATGauge.Create(Self);
  -  LexerProgress.Parent:= Status;
  -  }
  -
  -  OnLexerParseProgress:= @DoOnLexerParseProgress;
  -  CustomDialog_DoPyCallback:= @DoPyCallbackFromAPI;
  -  CustomDialog_OnEditorCommand:= @FrameOnEditorCommand;
  -  FFileNameLogDebug:= AppDir_Settings+DirectorySeparator+'app.log';
  -  FFileNameLogConsole:= AppDir_Settings+DirectorySeparator+'console.log';
  -
  -  DoMenuitemEllipsis(mnuOpThemeUi);
  -  DoMenuitemEllipsis(mnuOpThemeSyntax);
  -  //DoMenuitemEllipsis(mnuOpKeys);
  -  DoMenuitemEllipsis(mnuOpThemes);
  -  DoMenuitemEllipsis(mnuOpLangs);
  -
  -  PopupToolbarCase:= TPopupMenu.Create(Self);
  -  PopupToolbarCase.OnPopup:= @PopupToolbarCaseOnPopup;
  -
  -  PopupToolbarComment:= TPopupMenu.Create(Self);
  -  PopupToolbarComment.OnPopup:= @PopupToolbarCommentOnPopup;
  -
  -  {$ifdef windows}
  -  if not AppAlwaysNewInstance and IsSetToOneInstance then
  -    with TInstanceManage.GetInstance do
  -      case Status of
  -        isFirst:
  -          begin
  -            SetFormHandleForActivate(Self.Handle);
  -            OnSecondInstanceSentData := @SecondInstance;
  -          end;
  -      end;
  -  {$endif}
  -
  -  FBoundsMain:= Rect(100, 100, 900, 700);;
  -  AppPanels[cPaneSide].FormFloatBounds:= Rect(650, 50, 900, 700);
  -  AppPanels[cPaneOut].FormFloatBounds:= Rect(50, 480, 900, 700);
  -  FBoundsFloatGroups1:= Rect(300, 100, 800, 700);
  -  FBoundsFloatGroups2:= Rect(320, 120, 820, 720);
  -  FBoundsFloatGroups3:= Rect(340, 140, 840, 740);
  -
  -  InitAppleMenu;
  -  InitToolbar;
  -
  +procedure TfmMain.InitCodeTree;
  +begin
     PanelCodeTreeAll:= TFormDummy.Create(Self);
     PanelCodeTreeAll.Name:= 'PanelCodeTreeAll';
     PanelCodeTreeAll.BorderStyle:= bsNone;
  
positive.code:   CodeTreeFilterInput.Align:= alClient;
    CodeTreeFilterInput.OnChange:= @CodeTreeFilter_OnChange;
    CodeTreeFilterInput.OnCommand:= @CodeTreeFilter_OnCommand;
  
    InitBottomEditor(fmOutput);
    InitBottomEditor(fmValidate);
  
  
negative.code:     procedure InitSaveDlg;
      procedure InitSidebar;
      procedure InitToolbar;
      procedure InitCodeTree;
      function IsWindowMaximizedOrFullscreen: boolean;
      function IsAllowedToOpenFileNow: boolean;
      function IsThemeNameExist(const AName: string; AThemeUI: boolean): boolean;
  