设为首页 加入收藏

TOP

DELPHI版传奇引擎学习菜鸟篇(applem2)-03(二)
2017-10-10 12:07:27 】 浏览:6215
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.GetStar
		    

t[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聊天程序

评论

帐  号: 密码: (新用户注册)
验 证 码:
表  情:
内  容:

array(4) { ["type"]=> int(8) ["message"]=> string(24) "Undefined variable: jobs" ["file"]=> string(32) "/mnt/wp/cppentry/do/bencandy.php" ["line"]=> int(217) }