anchor.diff:    if (TreeViewUsers.Selected = nil) or (TreeViewUsers.Selected.Parent = nil) then
        Exit;
   
  -  PageControl.ActivePage := GetChannelTab(TreeViewUsers.Selected.Text) as TTabSheet;
  +  PageControl.ActivePage := GetTab(TreeViewUsers.Selected.Text) as TTabSheet;
   end;
   
   procedure TMainForm.SetFocusEditInput;
  
positive.code:   TreeViewUsers.BackgroundColor := LightColor;
  end;
  
  function TMainForm.GetChannelTab(const Channel: string): TObject;
  var
    ChannelName: string;
  begin
    ChannelName := TIRCUtils.RemoveOPVoicePrefix(Channel);
    Result := GetTabByName(ChannelName);
    if Result = nil then
      Result := NewChannelTab(ChannelName);
  
negative.code: 	 try
  	   Channel.Node := TreeViewUsers.Items.FindTopLvlNode(Channel.Name);
  	 for User in Channel.Users do
  	   User.Node := TreeViewUsers.Items.AddChild(TTreeNode(Channel.Node), User.NickNameInChannel);
  	 TreeViewUsers.AlphaSort;
  	 finally
  	   TreeViewUsers.EndUpdate;
  