fstate.pas

传奇客户端

      DEngServer1.SetImgIndex (g_WMainImages, 257);
      DEngServer1.Left := 65;
      DEngServer1.Top  := 204;
}

      DSServer1.SetImgIndex (g_WMain2Images, 2);
      DSServer1.Left := 65;
      DSServer1.Top  := 100;

      DSServer2.SetImgIndex (g_WMain2Images, 2);
      DSServer2.Left := 65;
      DSServer2.Top  := 145;

      DSServer3.SetImgIndex (g_WMain2Images, 2);
      DSServer3.Left := 65;
      DSServer3.Top  := 190;

      DSServer4.SetImgIndex (g_WMain2Images, 2);
      DSServer4.Left := 65;
      DSServer4.Top  := 235;

      DSServer5.SetImgIndex (g_WMain2Images, 2);
      DSServer5.Left := 65;
      DSServer5.Top  := 280;

      DSServer6.SetImgIndex (g_WMain2Images, 2);
      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, 62);
   DNewAccountOk.Left := 160;
   DNewAccountOk.Top := 417;
   DNewAccountCancel.SetImgIndex (g_WMainImages, 52);
   DNewAccountCancel.Left := 448;
   DNewAccountCancel.Top := 419;
   DNewAccountClose.SetImgIndex (g_WMainImages, 64);
   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, 62);
   DChgPwOk.Left := 182;
   DChgPwOk.Top := 252;
   DChgpwCancel.SetImgIndex (g_WMainImages, 52);
   DChgPwCancel.Left := 277;
   DChgPwCancel.Top := 251;




   {-----------------------------------------------------------}

   //选择角色窗口
   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 + 454{454};
      DscSelect2.Left := (SCREENWIDTH - 800) div 2 + 685{685};
      DscSelect2.Top := (SCREENHEIGHT - 600) div 2 + 454{454};
      DscStart.Left := (SCREENWIDTH - 800) div 2 + 367{385};
      DscStart.Top := (SCREENHEIGHT - 600) div 2 + 457{456};
      DscNewChr.Left := (SCREENWIDTH - 800) div 2 + 321{348};
      DscNewChr.Top := (SCREENHEIGHT - 600) div 2 + 488{486};
      DscEraseChr.Left := (SCREENWIDTH - 800) div 2 + 311{347};
      DscEraseChr.Top := (SCREENHEIGHT - 600) div 2 + 509{506};
      DscCredits.Left := (SCREENWIDTH - 800) div 2 + 362{362};
      DscCredits.Top := (SCREENHEIGHT - 600) div 2 + 529{527};
      DscExit.Left := (SCREENWIDTH - 800) div 2 + 379{379};
      DscExit.Top := (SCREENHEIGHT - 600) div 2 + 559{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, 62);
   DccClose.SetImgIndex (g_WMainImages, 64);
      DccWarrior.Left := 48;
      DccWarrior.Top := 157;
      DccWizzard.Left := 93;
      DccWizzard.Top := 157;
      DccMonk.Left := 138;
      DccMonk.Top := 157;
      //DccReserved.Left := 183;
      //DccReserved.Top := 157;
      DccMale.Left := 93;
      DccMale.Top := 231;
      DccFemale.Left := 138;
      DccFemale.Top := 231;
      DccLeftHair.Left := 76;
      DccLeftHair.Top := 308;
      DccRightHair.Left := 170;
      DccRightHair.Top := 308;
      DccOk.Left := 104;
      DccOk.Top := 361;
      DccClose.Left := 248;
      DccClose.Top := 31;


   {-----------------------------------------------------------}
   d := g_WMainImages.Images[50];
   if d <> nil then begin
      DChgGamePwd.SetImgIndex (g_WMainImages, 689);
      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, 64);


   //人物状态窗口
   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 + 130;
      DSWNecklace.Top  := 52 + 35;
      DSWNecklace.Width := 34;
      DSWNecklace.Height := 31;
      DSWHelmet.Left := 38 + 77;
      DSWHelmet.Top  := 52 + 41;
      DSWHelmet.Width := 18;
      DSWHelmet.Height := 18;
      DSWLight.Left := 38 + 130;
      DSWLight.Top  := 52 + 73;
      DSWLight.Width := 34;
      DSWLight.Height := 31;
      DSWArmRingR.Left := 38 + 4;
      DSWArmRingR.Top  := 52 + 124;
      DSWArmRingR.Width := 34;
      DSWArmRingR.Height := 31;
      DSWArmRingL.Left := 38 + 130;
      DSWArmRingL.Top  := 52 + 124;
      DSWArmRingL.Width := 34;
      DSWArmRingL.Height := 31;
      DSWRingR.Left := 38 + 4;
      DSWRingR.Top  := 52 + 163;
      DSWRingR.Width := 34;
      DSWRingR.Height := 31;
      DSWRingL.Left := 38 + 130;
      DSWRingL.Top  := 52 + 163;
      DSWRingL.Width := 34;
      DSWRingL.Height := 31;
      DSWWeapon.Left := 38 + 9;
      DSWWeapon.Top  := 52 + 28;
      DSWWeapon.Width := 47;
      DSWWeapon.Height := 87;
      DSWDress.Left := 38 + 58;
      DSWDress.Top  := 52 + 70;
      DSWDress.Width := 53;
      DSWDress.Height := 112;

      DSWBujuk.Left := 42;
      DSWBujuk.Top  := 254;
      DSWBujuk.Width := 34;
      DSWBujuk.Height := 31;

      DSWBelt.Left := 84;
      DSWBelt.Top  := 254;
      DSWBelt.Width := 34;
      DSWBelt.Height := 31;

      DSWBoots.Left := 126;
      DSWBoots.Top  := 254;
      DSWBoots.Width := 34;
      DSWBoots.Height := 31;

      DSWCharm.Left := 168;
      DSWCharm.Top  := 254;
      DSWCharm.Width := 34;
      DSWCharm.Height := 31;

      DStMag1.Left := 38 + 8;
      DStMag1.Top := 52 + 7;
      DStMag1.Width := 31;
      DStMag1.Height := 33;

      DStMag2.Left := 38 + 8;
      DStMag2.Top := 52 + 44;
      DStMag2.Width := 31;
      DStMag2.Height := 33;

      DStMag3.Left := 38 + 8;
      DStMag3.Top := 52 + 82;
      DStMag3.Width := 31;
      DStMag3.Height := 33;
      
      DStMag4.Left := 38 + 8;
      DStMag4.Top := 52 + 119;
      DStMag4.Width := 31;
      DStMag4.Height := 33;

      DStMag5.Left := 38 + 8;
      DStMag5.Top := 52 + 156;
      DStMag5.Width := 31;
      DStMag5.Height := 33;

      DStPageUp.SetImgIndex (g_WMainImages, 398);
      DStPageDown.SetImgIndex (g_WMainImages, 396);
      DStPageUp.Left := 213;
      DStPageUp.Top  := 113;
      DStPageDown.Left := 213;
      DStPageDown.Top  := 143;

   DCloseState.SetImgIndex (g_WMainImages, 371);
   DCloseState.Left := 8;
   DCloseState.Top := 39;
   DPrevState.SetImgIndex (g_WMainImages, 373);
   DNextState.SetImgIndex (g_WMainImages, 372);
   DPrevState.Left := 7;
   DPrevState.Top := 128;
   DNextState.Left := 7;
   DNextState.Top := 187;

   {-----------------------------------------------------------}

   //人物状态窗口(查看别人信息)
   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 := 8;
   DCloseUS1.Top := 39;

  {-------------------------------------------------------------}

   //背包物品窗口
   DItemBag.SetImgIndex (g_WMainImages, 3);
   DItemBag.Left := 0;
   DItemBag.Top := 0;

   DItemGrid.Left := 20;
   DItemGrid.Top  := 13;
   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};
   DBotPlusAbil.SetImgIndex (g_WMainImages,DlgConf.DBotPlusAbil.Image{140});
   DBotPlusAbil.Left :=DlgConf.DBotPlusAbil.Left{219 + 30*4};
   DBotPlusAbil.Top :=DlgConf.DBotPlusAbil.Top{104};

   DBotFriend.SetImgIndex (g_WMainImages,DlgConf.DBotFriend.Image{530});
   DBotFriend.Left :=DlgConf.DBotFriend.Left{219 + 30*5};
   DBotFriend.Top :=DlgConf.DBotFriend.Top{104};