📄 fstate.pas
字号:
end;
DSSrvClose.SetImgIndex (g_WMainImages, 83);
DSSrvClose.Left := 245;
DSSrvClose.Top := 31;
{
DEngServer1.SetImgIndex (g_WMainImages, 257);
DEngServer1.Left := 65;
DEngServer1.Top := 204;
}
DSServer1.SetImgIndex (g_WMainImages, 79);
DSServer1.Left := 65;
DSServer1.Top := 100;
DSServer2.SetImgIndex (g_WMainImages, 79);
DSServer2.Left := 65;
DSServer2.Top := 145;
DSServer3.SetImgIndex (g_WMainImages, 79);
DSServer3.Left := 65;
DSServer3.Top := 190;
DSServer4.SetImgIndex (g_WMainImages, 79);
DSServer4.Left := 65;
DSServer4.Top := 235;
DSServer5.SetImgIndex (g_WMainImages, 79);
DSServer5.Left := 65;
DSServer5.Top := 280;
DSServer6.SetImgIndex (g_WMainImages, 79);
DSServer6.Left := 65;
DSServer6.Top := 325;
DEngServer1.Visible := FALSE;
DSServer1.Visible := FALSE;
DSServer2.Visible := FALSE;
DSServer3.Visible := FALSE;
DSServer4.Visible := FALSE;
DSServer5.Visible := FALSE;
DSServer6.Visible := FALSE;
end;
{-----------------------------------------------------------}
//新用户对话框
d := g_WMainImages.Images[63];
if d <> nil then begin
DNewAccount.SetImgIndex (g_WMainImages, 63);
DNewAccount.Left := (SCREENWIDTH - d.Width) div 2;
DNewAccount.Top := (SCREENHEIGHT - d.Height) div 2;
end;
DNewAccountOk.SetImgIndex (g_WMainImages, 51);
DNewAccountOk.Left := 305;
DNewAccountOk.Top := 530;
DNewAccountCancel.SetImgIndex (g_WMainImages, 52);
DNewAccountCancel.Left := 445;
DNewAccountCancel.Top := 530;
DNewAccountClose.SetImgIndex (g_WMainImages, 83);
DNewAccountClose.Left := 587;
DNewAccountClose.Top := 33;
{-----------------------------------------------------------}
//修改密码窗口
d := g_WMainImages.Images[50];
if d <> nil then begin
DChgPw.SetImgIndex (g_WMainImages, 50);
DChgPw.Left := (SCREENWIDTH - d.Width) div 2;
DChgPw.Top := (SCREENHEIGHT - d.Height) div 2;
end;
DChgpwOk.SetImgIndex (g_WMainImages, 361);
DChgPwOk.Left := 81;
DChgPwOk.Top := 141;
DChgpwCancel.SetImgIndex (g_WMainImages, 365);
DChgPwCancel.Left := 160;
DChgPwCancel.Top := 141;
{-----------------------------------------------------------}
//选择角色窗口
DSelectChr.Left := 0;
DSelectChr.Top := 0;
DSelectChr.Width := SCREENWIDTH;
DSelectChr.Height := SCREENHEIGHT;
DscSelect1.SetImgIndex (g_WMainImages, 66);
DscSelect2.SetImgIndex (g_WMainImages, 67);
DscStart.SetImgIndex (g_WMainImages, 68);
DscNewChr.SetImgIndex (g_WMainImages, 69);
DscEraseChr.SetImgIndex (g_WMainImages, 70);
//DscCredits.SetImgIndex (g_WMainImages, 71);
DscExit.SetImgIndex (g_WMainImages, 72);
DscSelect1.Left := (SCREENWIDTH - 800) div 2 + 134{134};
DscSelect1.Top := (SCREENHEIGHT - 600) div 2 + 424{454};
DscSelect2.Left := (SCREENWIDTH - 800) div 2 + 602{685};
DscSelect2.Top := (SCREENHEIGHT - 600) div 2 + 424{454};
DscStart.Left := (SCREENWIDTH - 800) div 2 + 374{385};
DscStart.Top := (SCREENHEIGHT - 600) div 2 + 427{456};
DscNewChr.Left := (SCREENWIDTH - 800) div 2 + 349{348};
DscNewChr.Top := (SCREENHEIGHT - 600) div 2 + 467{486};
DscEraseChr.Left := (SCREENWIDTH - 800) div 2 + 349{347};
DscEraseChr.Top := (SCREENHEIGHT - 600) div 2 + 505{506};
// DscCredits.Left := (SCREENWIDTH - 800) div 2 + 362{362};
// DscCredits.Top := (SCREENHEIGHT - 600) div 2 + 529{527};
DscExit.Left := (SCREENWIDTH - 800) div 2 + 349{379};
DscExit.Top := (SCREENHEIGHT - 600) div 2 + 543{547};
{-----------------------------------------------------------}
//创建角色窗口
d := g_WMainImages.Images[73];
if d <> nil then begin
DCreateChr.SetImgIndex (g_WMainImages, 73);
DCreateChr.Left := (SCREENWIDTH - d.Width) div 2;
DCreateChr.Top := (SCREENHEIGHT - d.Height) div 2;
end;
DccWarrior.SetImgIndex (g_WMainImages, 74);
DccWizzard.SetImgIndex (g_WMainImages, 75);
DccMonk.SetImgIndex (g_WMainImages, 76);
//DccReserved.SetImgIndex (g_WMainImages.Images[76], TRUE);
DccMale.SetImgIndex (g_WMainImages, 77);
DccFemale.SetImgIndex (g_WMainImages, 78);
//DccLeftHair.SetImgIndex (g_WMainImages, 79);
// DccRightHair.SetImgIndex (g_WMainImages, 80);
DccOk.SetImgIndex (g_WMainImages, 51);
DccClose.SetImgIndex (g_WMainImages, 52);
DccWarrior.Left := 36;
DccWarrior.Top := 139;
DccWizzard.Left := 103;
DccWizzard.Top := 139;
DccMonk.Left := 168;
DccMonk.Top := 139;
//DccReserved.Left := 183;
//DccReserved.Top := 157;
DccMale.Left := 70;
DccMale.Top := 211;
DccFemale.Left := 137;
DccFemale.Top := 211;
//DccLeftHair.Left := 76;
// DccLeftHair.Top := 308;
//DccRightHair.Left := 170;
// DccRightHair.Top := 308;
DccOk.Left := 46;
DccOk.Top := 273;
DccClose.Left := 138;
DccClose.Top := 273;
{-----------------------------------------------------------}
d := g_WMainImages.Images[81];
if d <> nil then begin
DChgGamePwd.SetImgIndex (g_WMainImages, 81);
DChgGamePwd.Left := (SCREENWIDTH - d.Width) div 2;
DChgGamePwd.Top := (SCREENHEIGHT - d.Height) div 2;
end;
DChgGamePwdClose.Left := 291;// 399;
DChgGamePwdClose.Top := 8;
DChgGamePwdClose.SetImgIndex (g_WMainImages, 83);
//人物状态窗口
d := g_WMainImages.Images[370]; //惑怕
if d <> nil then begin
DStateWin.SetImgIndex (g_WMainImages, 370);
DStateWin.Left := SCREENWIDTH - d.Width;
DStateWin.Top := 0;
end;
DSWNecklace.Left := 38 + 144;
DSWNecklace.Top := 52 + 13; //项链
DSWNecklace.Width := 34;
DSWNecklace.Height := 31;
DSWHelmet.Left := 38 + 77; //头亏
DSWHelmet.Top := 52 + 21;
DSWHelmet.Width := 18;
DSWHelmet.Height := 18;
DSWLight.Left := 38 + 144;
DSWLight.Top := 52 + 53; //火把
DSWLight.Width := 34;
DSWLight.Height := 31;
DSWArmRingR.Left := 25 + 0; //左手镯
DSWArmRingR.Top := 52 + 89;
DSWArmRingR.Width := 34;
DSWArmRingR.Height := 31;
DSWArmRingL.Left := 38 + 144;
DSWArmRingL.Top := 52 + 89; //右手镯
DSWArmRingL.Width := 34;
DSWArmRingL.Height := 31;
DSWRingR.Left := 25 + 0;
DSWRingR.Top := 52 + 128; //左戒指
DSWRingR.Width := 34;
DSWRingR.Height := 31;
DSWRingL.Left := 38 + 144;
DSWRingL.Top := 52 + 128; //右戒指
DSWRingL.Width := 34;
DSWRingL.Height := 31;
DSWWeapon.Left := 38 + 9;
DSWWeapon.Top := 52 + 18; //武器
DSWWeapon.Width := 47;
DSWWeapon.Height := 87;
DSWDress.Left := 38 + 58;
DSWDress.Top := 52 + 70; //衣服
DSWDress.Width := 53;
DSWDress.Height := 112;
DSWBujuk.Left := 25;
DSWBujuk.Top := 232; //毒
DSWBujuk.Width := 34;
DSWBujuk.Height := 31;
DSWBelt.Left := 77;
DSWBelt.Top := 232; //腰带
DSWBelt.Width := 34;
DSWBelt.Height := 31;
DSWBoots.Left := 128;
DSWBoots.Top := 232; //鞋子
DSWBoots.Width := 34;
DSWBoots.Height := 31;
DSWCharm.Left := 182;
DSWCharm.Top := 232; //宝石
DSWCharm.Width := 34;
DSWCharm.Height := 31;
//下面是技能
DStMag1.Left := 30 + 0;
DStMag1.Top := 32 + 5;
DStMag1.Width := 31;
DStMag1.Height := 33;
DStMag2.Left := 30 + 0;
DStMag2.Top := 77 + 5;
DStMag2.Width := 31;
DStMag2.Height := 33;
DStMag3.Left := 30 + 0;
DStMag3.Top := 122 + 5;
DStMag3.Width := 31;
DStMag3.Height := 33;
DStMag4.Left := 30 + 0;
DStMag4.Top := 167 + 5;
DStMag4.Width := 31;
DStMag4.Height := 33;
DStMag5.Left := 30 + 0;
DStMag5.Top := 211 + 5;
DStMag5.Width := 31;
DStMag5.Height := 33;
DStPageUp.SetImgIndex (g_WMainImages, 372);
DStPageDown.SetImgIndex (g_WMainImages, 373);
DStPageUp.Left := 202;
DStPageUp.Top := 52;
DStPageDown.Left := 202;
DStPageDown.Top := 212;
DCloseState.SetImgIndex (g_WMainImages, 371);
DCloseState.Left := 223;
DCloseState.Top := 20;
DPrevState.SetImgIndex (g_WMainImages, 387);
DNextState.SetImgIndex (g_WMainImages, 388);
DPrevState.Left := 224;
DPrevState.Top := 65;
DNextState.Left := 224;
DNextState.Top := 190;
{-----------------------------------------------------------}
//人物状态窗口(查看别人信息)
d := g_WMainImages.Images[370]; //惑怕
if d <> nil then begin
DUserState1.SetImgIndex (g_WMainImages, 370);
DUserState1.Left := SCREENWIDTH - d.Width - d.Width;
DUserState1.Top := 0;
end;
DNecklaceUS1.Left := 38 + 130;
DNecklaceUS1.Top := 52 + 35;
DNecklaceUS1.Width := 34;
DNecklaceUS1.Height := 31;
DHelmetUS1.Left := 38 + 77;
DHelmetUS1.Top := 52 + 41;
DHelmetUS1.Width := 18;
DHelmetUS1.Height := 18;
DLightUS1.Left := 38 + 130;
DLightUS1.Top := 52 + 73;
DLightUS1.Width := 34;
DLightUS1.Height := 31;
DArmRingRUS1.Left := 38 + 4;
DArmRingRUS1.Top := 52 + 124;
DArmRingRUS1.Width := 34;
DArmRingRUS1.Height := 31;
DArmRingLUS1.Left := 38 + 130;
DArmRingLUS1.Top := 52 + 124;
DArmRingLUS1.Width := 34;
DArmRingLUS1.Height := 31;
DRingRUS1.Left := 38 + 4;
DRingRUS1.Top := 52 + 163;
DRingRUS1.Width := 34;
DRingRUS1.Height := 31;
DRingLUS1.Left := 38 + 130;
DRingLUS1.Top := 52 + 163;
DRingLUS1.Width := 34;
DRingLUS1.Height := 31;
DWeaponUS1.Left := 38 + 9;
DWeaponUS1.Top := 52 + 28;
DWeaponUS1.Width := 47;
DWeaponUS1.Height := 87;
DDressUS1.Left := 38 + 58;
DDressUS1.Top := 52 + 70;
DDressUS1.Width := 53;
DDressUS1.Height := 112;
DBujukUS1.Left := 42;
DBujukUS1.Top := 254;
DBujukUS1.Width := 34;
DBujukUS1.Height := 31;
DBeltUS1.Left := 84;
DBeltUS1.Top := 254;
DBeltUS1.Width := 34;
DBeltUS1.Height := 31;
DBootsUS1.Left := 126;
DBootsUS1.Top := 254;
DBootsUS1.Width := 34;
DBootsUS1.Height := 31;
DCharmUS1.Left := 168;
DCharmUS1.Top := 254;
DCharmUS1.Width := 34;
DCharmUS1.Height := 31;
DCloseUS1.SetImgIndex (g_WMainImages, 371);
DCloseUS1.Left := 20;
DCloseUS1.Top := 223;
{-------------------------------------------------------------}
//背包物品窗口
DItemBag.SetImgIndex (g_WMainImages, 3);
DItemBag.Left := 0;
DItemBag.Top := 0;
DItemGrid.Left := 33;
DItemGrid.Top := 43;
DItemGrid.Width := 286;
DItemGrid.Height := 162;
{-----------------------------------------------------------}
//主控面板
{$IF SWH = SWH800}
d := g_WMainImages.Images[BOTTOMBOARD800];
{$ELSEIF SWH = SWH1024}
d := g_WMainImages.Images[BOTTOMBOARD1024];
{$IFEND}
if d <> nil then begin
DBottom.Left := 0;
DBottom.Top := SCREENHEIGHT - d.Height;
DBottom.Width := d.Width;
DBottom.Height := d.Height;
end;
{-----------------------------------------------------------}
//功能按钮
DMyState.SetImgIndex (g_WMainImages, 8);
DMyState.Left := SCREENWIDTH div 2 + (SCREENWIDTH div 2 - (400 - 243)){643};
DMyState.Top := 61;
DMyBag.SetImgIndex (g_WMainImages, 9);
DMyBag.Left := SCREENWIDTH div 2 + (SCREENWIDTH div 2 - (400 - 282)){682};
DMyBag.Top := 41;
DMyMagic.SetImgIndex (g_WMainImages, 10);
DMyMagic.Left := SCREENWIDTH div 2 + (SCREENWIDTH div 2 - (400 - 322)){722};
DMyMagic.Top := 21;
DOption.SetImgIndex (g_WMainImages, 11);
DOption.Left := SCREENWIDTH div 2 + (SCREENWIDTH div 2 - (400 - 364)){764};
DOption.Top := 11;
{-----------------------------------------------------------}
//快捷按钮
DBotMiniMap.SetImgIndex (g_WMainImages, DlgConf.DBotMiniMap.Image{130});
DBotMiniMap.Left := DlgConf.DBotMiniMap.Left{219};
DBotMiniMap.Top := DlgConf.DBotMiniMap.Top{104};
DBotTrade.SetImgIndex (g_WMainImages,DlgConf.DBotTrade.Image{132});
DBotTrade.Left :=DlgConf.DBotTrade.Left{219 + 30}; //560 - 30;
DBotTrade.Top := DlgConf.DBotTrade.Top{104};
DBotGuild.SetImgIndex (g_WMainImages,DlgConf.DBotGuild.Image{134});
DBotGuild.Left := DlgConf.DBotGuild.Left{219 + 30*2};
DBotGuild.Top := DlgConf.DBotGuild.Top{104};
DBotGroup.SetImgIndex (g_WMainImages,DlgConf.DBotGroup.Image{128});
DBotGroup.Left :=DlgConf.DBotGroup.Left{219 + 30*3};
DBotGroup.Top :=DlgConf.DBotGroup.Top{104};
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -