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:   if AnimateTrayIcon then
  	  TrayIcon.Animate := True; //Should not toggle, more messages may have triggered this
  
    Tab := GetChannelTab(Channel) as TTabSheet;
  
    Memo := Tab.Components[0] as TMemo;
    Memo.Lines.Add(Message);
  
negative.code:   TreeViewUsers.BackgroundColor := LightColor;
  end;
  
  function TMainForm.GetTab(const ACaption: string): TObject;
  var
    ChannelName: string;
  begin
    ChannelName := TIRCUtils.RemoveOPVoicePrefix(ACaption);
    Result := GetTabByName(ChannelName);
    if Result = nil then
      Result := NewChannelTab(ChannelName);
  