实现的部分东西比较多,也比较乱,按顺序一个一个学习,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