anchor.diff:  end;
   
   
  +procedure TKMGamePlayInterface.MPChat_Show(Sender: TObject);
  +begin
  +  //Label_ChatText.Caption := fGame.fChat.GetAllMessages;
  +  MyControls.CtrlFocus := Edit_ChatMsg;
  +  Panel_Allies.Hide;
  +  Panel_Chat.Show;
  +  Panel_Message.Hide;
  +end;
  +
  +
  +procedure TKMGamePlayInterface.MPAllies_Show(Sender: TObject);
  +begin
  +  Panel_Allies.Show;
  +  Panel_Chat.Hide;
  +  Panel_Message.Hide;
  +end;
  +
  +
   procedure TKMGamePlayInterface.Message_Display(Sender: TObject);
   var i: integer;
   begin
  
positive.code:     with TKMShape.Create(Panel_Main, 0, 0, 1024, 768, $FF00FF00) do Hitable:=false;
  
    SwitchPage(nil); //Update
  end;
  
  
  
negative.code: end;
  
  
  procedure TKMGamePlayInterface.Allies_Close(Sender: TObject);
  begin
    Panel_Allies.Hide;
  end;
  
  
  procedure TKMGamePlayInterface.Chat_Post(Sender:TObject; Key:word);
  begin
    if (Key <> VK_RETURN) or (Trim(Edit_ChatMsg.Text) = '') then exit;
    fGame.Networking.PostMessage(Edit_ChatMsg.Text);
    Edit_ChatMsg.Text := '';
  end;
  
  
  procedure TKMGamePlayInterface.Chat_Close(Sender: TObject);
  begin
    Panel_Chat.Hide;
  end;
  
  
  