设为首页 加入收藏

TOP

DELPHI版传奇引擎学习菜鸟篇(applem2)-03(二)
2017-10-10 12:07:27 】 浏览:6403
Tags:DELPHI 传奇 引擎 学习 菜鸟篇 applem2 -03

ations
} end;

实现的部分东西比较多,也比较乱,按顺序一个一个学习,RefGameConsole是重新加载所有配置,为引擎启动做准备.

procedure TfrmMain.RefGameConsole;
begin
  m_boOpen := False;
  CheckBoxM2Server.Checked := g_Config.M2Server.GetStart;
  CheckBoxDBServer.Checked := g_Config.DBServer.GetStart;
  CheckBoxLoginServer.Checked := g_Config.LoginSrv.GetStart;
  CheckBoxLogServer.Checked := g_Config.LogServer.GetStart;
  CheckBoxLoginGate.Checked := g_Config.LoginGate.GetStart;
  CheckBoxSelGate.Checked := g_Config.SelGate.GetStart1;
  CheckBoxSelGate1.Checked := g_Config.SelGate.GetStart2;
  CheckBoxRunGate.Checked := g_Config.RunGate.GetStart[0];
  CheckBoxRunGate1.Checked := g_Config.RunGate.GetStart[1];
  CheckBoxRunGate2.Checked := g_Config.RunGate.GetStart[2];
  CheckBoxRunGate3.Checked := g_Config.RunGate.GetStart[3];
  CheckBoxRunGate4.Checked := g_Config.RunGate.GetStart[4];
  CheckBoxRunGate5.Checked := g_Config.RunGate.GetStart[5];
  CheckBoxRunGate6.Checked := g_Config.RunGate.GetStart[6];
  CheckBoxRunGate7.Checked := g_Config.RunGate.GetStart[7];
  
  EditGameDir.Text := g_sGameDirectory;
  EditHeroDB.Text := g_sHeroDBName;
  EditGameName.Text := g_sGameName;
  EditGameExtIPaddr.Text := g_sExtIPaddr;
  EditGameExtIPAddr2.Text := g_sExtIPAddr2;
  CheckBoxIP2.Checked := g_boIP2;
  CheckBoxCloseWuXin.Checked := g_boCloseWuXin;

  EditDBServer_MainFormX.Value := g_Config.DBServer.MainFormX;
  EditDBServer_MainFormY.Value := g_Config.DBServer.MainFormY;
  EditDBServerGatePort.Text := IntToStr(g_Config.DBServer.GatePort);
  EditDBServerServerPort.Text := IntToStr(g_Config.DBServer.ServerPort);
  CheckBoxDBServerGetStart.Checked := g_Config.DBServer.GetStart;

  EditLoginServer_MainFormX.Value := g_Config.LoginSrv.MainFormX;
  EditLoginServer_MainFormY.Value := g_Config.LoginSrv.MainFormY;
  EditLoginServerGatePort.Text := IntToStr(g_Config.LoginSrv.GatePort);
  EditLoginServerServerPort.Text := IntToStr(g_Config.LoginSrv.ServerPort);
  EditLoginServerMonPort.Text := IntToStr(g_Config.LoginSrv.MonPort);
  CheckBoxboLoginServer_GetStart.Checked := g_Config.LoginSrv.GetStart;

  EditM2Server_MainFormX.Value := g_Config.M2Server.MainFormX;
  EditM2Server_MainFormY.Value := g_Config.M2Server.MainFormY;
  EditM2ServerGatePort.Text := IntToStr(g_Config.M2Server.GatePort);
  EditM2ServerMsgSrvPort.Text := IntToStr(g_Config.M2Server.MsgSrvPort);
  CheckBoxM2ServerGetStart.Checked := g_Config.M2Server.GetStart;

  EditLogServer_MainFormX.Value := g_Config.LogServer.MainFormX;
  EditLogServer_MainFormY.Value := g_Config.LogServer.MainFormY;
  EditLogServerPort.Text := IntToStr(g_Config.LogServer.Port);
  CheckBoxLogServerGetStart.Checked := g_Config.LogServer.GetStart;

  CheckBoxboRunGate_GetStart1.Checked := g_Config.RunGate.GetStart[0];
  CheckBoxboRunGate_GetStart2.Checked := g_Config.RunGate.GetStart[1];
  CheckBoxboRunGate_GetStart3.Checked := g_Config.RunGate.GetStart[2];
  CheckBoxboRunGate_GetStart4.Checked := g_Config.RunGate.GetStart[3];
  CheckBoxboRunGate_GetStart5.Checked := g_Config.RunGate.GetStart[4];
  CheckBoxboRunGate_GetStart6.Checked := g_Config.RunGate.GetStart[5];
  CheckBoxboRunGate_GetStart7.Checked := g_Config.Ru  
		
编程开发网
首页 上一页 1 2 3 4 5 6 下一页 尾页 2/6/6
】【打印繁体】【投稿】【收藏】 【推荐】【举报】【评论】 【关闭】 【返回顶部
上一篇DELPHI版传奇引擎学习菜鸟篇(appl.. 下一篇编写简单的C/S聊天程序