anchor.diff:      procedure MenuLangClick(Sender: TObject);
       procedure MenuThemesUiClick(Sender: TObject);
       procedure MsgStatusAlt(const AText: string; ASeconds: integer);
  +    procedure SetSidebarPanel(const ACaption: string);
       procedure SetFullScreen_Universal(AValue: boolean);
       procedure SetFullScreen_Win32(AValue: boolean);
       procedure SetThemeSyntax(const AValue: string);
  
positive.code:     PanelLeft.Visible:= AValue;
      SplitterVert.Visible:= AValue;
      SplitterVert.Left:= PanelLeft.Width;
    end;
  
    if AValue then
      UpdateTree(true);
    UpdateSidebarButtons;
  end;
  
  
negative.code:   TimerStatusAlt.Enabled:= true;
  end;
  
  procedure TfmMain.SetSidebarPanel(const ACaption: string);
  begin
    if (ACaption<>'-') and (ACaption<>'') then
      if ShowSidePanel then
        DoShowSidePanel(ACaption);
  end;
  
  procedure TfmMain.SetShowStatus(AValue: boolean);
  begin
    Status.Visible:= AValue;
  