anchor.diff:          OffY := 60 + I * 24;
           Image_LobbyFlag[I] := TKMImage.Create(Panel_LobbyPlayers, 10, OffY, 20, 20, 0, rxGuiMain);
           Image_LobbyFlag[I].ImageCenter;
  +        Image_LobbyFlag[I].Tag := I+1; //Required for PlayerMenuShow
           Image_LobbyFlag[I].OnClick := PlayerMenuShow;
   
           Label_LobbyPlayer[I] := TKMLabel.Create(Panel_LobbyPlayers, C1, OffY+2, 150, 20, '', fnt_Grey, taLeft);
  
positive.code:   //        In any way banlist should be editable from within the lobby, so we will need methods to get the list
    //        from the server and allow to remove items from it.
  
    //Item picked - hide the menu
    Shape_PlayerMenuBG.Hide;
    ListBox_PlayerMenu.Hide;
  end;
  
  
  procedure TKMGUIMenuLobby.PlayerMenuHide(Sender: TObject);
  begin
    Shape_PlayerMenuBG.Hide;
    ListBox_PlayerMenu.Hide;
  end;
  
  
  procedure TKMGUIMenuLobby.PlayerMenuShow(Sender: TObject);
  var C: TKMControl;
  begin
    C := TKMControl(Sender);
  
    //Position the menu next to the icon, but do not overlap players name
    ListBox_PlayerMenu.Left := C.Left;
    ListBox_PlayerMenu.Top := C.Top + C.Height;
  
    //Reset previously selected item
    ListBox_PlayerMenu.ItemIndex := -1;
  
    Shape_PlayerMenuBG.Show;
    ListBox_PlayerMenu.Show;
  end;
  
  
  
negative.code:   Shape_PlayerMenuBG.OnClick := PlayerMenuHide;
    Shape_PlayerMenuBG.Hide;
  
    ListBox_PlayerMenuHost := TKMListBox.Create(aParent, 0, 0, 120, 120, fnt_Grey, bsMenu);
    ListBox_PlayerMenuHost.BackAlpha := 0.8;
    ListBox_PlayerMenuHost.Height := ListBox_PlayerMenuHost.ItemHeight * 4;
    ListBox_PlayerMenuHost.AutoHideScrollBar := True;
    ListBox_PlayerMenuHost.Focusable := False;
    ListBox_PlayerMenuHost.Add('Whisper');
    ListBox_PlayerMenuHost.Add('Kick');
    ListBox_PlayerMenuHost.Add('Ban');
    ListBox_PlayerMenuHost.Add('Set to host');
    ListBox_PlayerMenuHost.OnClick := PlayerMenuClick;
    ListBox_PlayerMenuHost.Hide;
  
    ListBox_PlayerMenuJoiner := TKMListBox.Create(aParent, 0, 0, 120, 120, fnt_Grey, bsMenu);
    ListBox_PlayerMenuJoiner.BackAlpha := 0.8;
    ListBox_PlayerMenuJoiner.Height := ListBox_PlayerMenuJoiner.ItemHeight * 1;
    ListBox_PlayerMenuJoiner.AutoHideScrollBar := True;
    ListBox_PlayerMenuJoiner.Focusable := False;
    ListBox_PlayerMenuJoiner.Add('Whisper');
    ListBox_PlayerMenuJoiner.OnClick := PlayerMenuClick;
    ListBox_PlayerMenuJoiner.Hide;
  end;
  
  
  