fstate.~pas

在网上有很多传奇源程序DELPHI

      DCreateChr.SetImgIndex (FrmMain.WProgUse, 73);
      DCreateChr.Left := (SCREENWIDTH - d.Width) div 2;
      DCreateChr.Top := (SCREENHEIGHT - d.Height) div 2;
   end;
   DccWarrior.SetImgIndex (FrmMain.WProgUse, 74);
   DccWizzard.SetImgIndex (FrmMain.WProgUse, 75);
   DccMonk.SetImgIndex (FrmMain.WProgUse, 76);
   //DccReserved.SetImgIndex (FrmMain.WProgUse.Images[76], TRUE);
   DccMale.SetImgIndex (FrmMain.WProgUse, 77);
   DccFemale.SetImgIndex (FrmMain.WProgUse, 78);
   DccLeftHair.SetImgIndex (FrmMain.WProgUse, 79);
   DccRightHair.SetImgIndex (FrmMain.WProgUse, 80);
   DccOk.SetImgIndex (FrmMain.WProgUse, 62);
   DccClose.SetImgIndex (FrmMain.WProgUse, 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 := FrmMain.WProgUse.Images[370];  //惑怕
   if d <> nil then begin
      DStateWin.SetImgIndex (FrmMain.WProgUse, 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;

      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 (FrmMain.WProgUse, 398);
      DStPageDown.SetImgIndex (FrmMain.WProgUse, 396);
      DStPageUp.Left := 213;
      DStPageUp.Top  := 113;
      DStPageDown.Left := 213;
      DStPageDown.Top  := 143;

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

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

   //人物状态
   d := FrmMain.WProgUse.Images[370];  //惑怕
   if d <> nil then begin
      DUserState1.SetImgIndex (FrmMain.WProgUse, 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;
   DCloseUS1.SetImgIndex (FrmMain.WProgUse, 371);
   DCloseUS1.Left := 8;
   DCloseUS1.Top := 39;

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

   //物品包裹栏
   DItemBag.SetImgIndex (FrmMain.WProgUse, 3);
   DItemBag.Left := 0;
   DItemBag.Top := 0;
   DItemGrid.Left := 20;
   DItemGrid.Top  := 13;
   DItemGrid.Width := 286;
   DItemGrid.Height := 162;

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

   //底部对话框
   d := FrmMain.WProgUse.Images[BOTTOMBOARD];
   if d <> nil then begin
      DBottom.Left := 0;
      DBottom.Top  := SCREENHEIGHT - d.Height;
      DBottom.Width := d.Width;
      DBottom.Height := d.Height;
   end;

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

   //底部状态栏的4个快捷按钮
   DMyState.SetImgIndex (FrmMain.WProgUse, 8);
   DMyState.Left := 643;
   DMyState.Top := 61;
   DMyBag.SetImgIndex (FrmMain.WProgUse, 9);
   DMyBag.Left := 682;
   DMyBag.Top := 41;
   DMyMagic.SetImgIndex (FrmMain.WProgUse, 10);
   DMyMagic.Left := 722;
   DMyMagic.Top := 21;
   DOption.SetImgIndex (FrmMain.WProgUse, 11);
   DOption.Left := 764;
   DOption.Top := 11;

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

   //底部状态栏的小地图、交易、行会、组按钮
   DBotMiniMap.SetImgIndex (FrmMain.WProgUse, 130);
   DBotMiniMap.Left := 219;
   DBotMiniMap.Top := 104;
   DBotTrade.SetImgIndex (FrmMain.WProgUse, 132);
   DBotTrade.Left := 219 + 30; //560 - 30;
   DBotTrade.Top := 104;
   DBotGuild.SetImgIndex (FrmMain.WProgUse, 134);
   DBotGuild.Left := 219 + 30*2;
   DBotGuild.Top := 104;
   DBotGroup.SetImgIndex (FrmMain.WProgUse, 128);
   DBotGroup.Left := 219 + 30*3;
   DBotGroup.Top := 104;
   DBotPlusAbil.SetImgIndex (FrmMain.WProgUse, 140);
   DBotPlusAbil.Left := 219 + 30*4;
   DBotPlusAbil.Top := 104;

   DBotExit.SetImgIndex (FrmMain.WProgUse, 138);
   DBotExit.Left := 560;
   DBotExit.Top := 104;
   DBotLogout.SetImgIndex (FrmMain.WProgUse, 136);
   DBotLogout.Left := 560 - 30;
   DBotLogout.Top := 104;


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

   //Belt
   DBelt1.Left := 285;  DBelt1.Width := 32;
   DBelt1.Top := 59;    DBelt1.Height := 29;
   DBelt2.Left := 328;  DBelt2.Width := 32;
   DBelt2.Top := 59;    DBelt2.Height := 29;
   DBelt3.Left := 371;  DBelt3.Width := 32;
   DBelt3.Top := 59;    DBelt3.Height := 29;
   DBelt4.Left := 415;  DBelt4.Width := 32;
   DBelt4.Top := 59;    DBelt4.Height := 29;
   DBelt5.Left := 459;  DBelt5.Width := 32;
   DBelt5.Top := 59;    DBelt5.Height := 29;
   DBelt6.Left := 503;  DBelt6.Width := 32;
   DBelt6.Top := 59;    DBelt6.Height := 29;


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

   //黄金、修理物品、关闭包裹按钮
   DGold.SetImgIndex (FrmMain.WProgUse, 29); //捣农扁 3俺 鞍澜
   DGold.Left := 10;
   DGold.Top  := 190;
   DRepairItem.SetImgIndex (FrmMain.WProgUse, 26);
   DRepairItem.Left := 254;
   DRepairItem.Top := 183;
   DRepairItem.Width := 48;
   DRepairItem.Height := 22;
   DClosebag.SetImgIndex (FrmMain.WProgUse, 371);
   DCloseBag.Left := 309;
   DCloseBag.Top := 203;
   DCloseBag.Width := 14;
   DCloseBag.Height := 20;

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

   //商人对话框
   d := FrmMain.WProgUse.Images[384];
   if d <> nil then begin
      DMerchantDlg.Left := 0;
      DMerchantDlg.Top := 0;
      DMerchantDlg.SetImgIndex (FrmMain.WProgUse, 384);
   end;
   DMerchantDlgClose.Left := 399;
   DMerchantDlgClose.Top := 1;
   DMerchantDlgClose.SetImgIndex (FrmMain.WProgUse, 64);

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

   //菜单对话框
   d := FrmMain.WProgUse.Images[385];
   if d <> nil then begin
      DMenuDlg.Left := 138;
      DMenuDlg.Top  := 163;
      DMenuDlg.SetImgIndex (FrmMain.WProgUse, 385);
   end;
   DMenuPrev.Left := 43;
   DMenuPrev.Top := 175;
   DMenuPrev.SetImgIndex (FrmMain.WProgUse, 388);
   DMenuNext.Left := 90;
   DMenuNext.Top := 175;
   DMenuNext.SetImgIndex (FrmMain.WProgUse, 387);
   DMenuBuy.Left := 215;
   DMenuBuy.Top := 171;
   DMenuBuy.SetImgIndex (FrmMain.WProgUse, 386);
   DMenuClose.Left := 291;
   DMenuClose.Top := 0;
   DMenuClose.SetImgIndex (FrmMain.WProgUse, 64);

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

   //出售
   d := FrmMain.WProgUse.Images[392];
   if d <> nil then begin
      DSellDlg.Left := 328;
      DSellDlg.Top  := 163;
      DSellDlg.SetImgIndex (FrmMain.WProgUse, 392);
   end;
   DSellDlgOk.Left := 85;
   DSellDlgOk.Top := 150;
   DSellDlgOk.SetImgIndex (FrmMain.WProgUse, 393);
   DSellDlgClose.Left := 115;
   DSellDlgClose.Top := 0;
   DSellDlgClose.SetImgIndex (FrmMain.WProgUse, 64);
   DSellDlgSpot.Left := 27;
   DSellDlgSpot.Top  := 67;
   DSellDlgSpot.Width := 61;
   DSellDlgSpot.Height := 52;

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

   //功能键设置对话框
   d := FrmMain.WProgUse.Images[229];
   if d <> nil then begin
      DKeySelDlg.Left := (SCREENWIDTH - d.Width) div 2;
      DKeySelDlg.Top  := (SCREENHEIGHT - d.Height) div 2;
      DKeySelDlg.SetImgIndex (FrmMain.WProgUse, 229);
   end;
   DKsIcon.Left := 52;   //DMagIcon...
   DKsIcon.Top := 29;
   DKsF1.SetImgIndex (FrmMain.WProgUse, 232);
   DKsF1.Left := 34;
   DKsF1.Top  := 83;
   DKsF2.SetImgIndex (FrmMain.WProgUse, 234);
   DKsF2.Left := 66;
   DKsF2.Top  := 83;
   DKsF3.SetImgIndex (FrmMain.WProgUse, 236);
   DKsF3.Left := 98;
   DKsF3.Top  := 83;
   DKsF4.SetImgIndex (FrmMain.WProgUse, 238);
   DKsF4.Left := 130;
   DKsF4.Top  := 83;
   DKsF5.SetImgIndex (FrmMain.WProgUse, 240);
   DKsF5.Left := 171;
   DKsF5.Top  := 83;
   DKsF6.SetImgIndex (FrmMain.WProgUse, 242);
   DKsF6.Left := 203;
   DKsF6.Top  := 83;
   DKsF7.SetImgIndex (FrmMain.WProgUse, 244);
   DKsF7.Left := 235;
   DKsF7.Top  := 83;
   DKsF8.SetImgIndex (FrmMain.WProgUse, 246);
   DKsF8.Left := 267;
   DKsF8.Top  := 83;
   DKsNone.SetImgIndex (FrmMain.WProgUse, 230);
   DKsNone.Left := 299;
   DKsNone.Top  := 83;
   DKsOk.SetImgIndex (FrmMain.WProgUse, 62);
   DKsOk.Left := 222;
   DKsOk.Top  := 131;

   {-----------------------------------------------------------}
   //组对话框
   d := FrmMain.WProgUse.Images[120];
   if d <> nil then begin
      DGroupDlg.Left := (SCREENWIDTH - d.Width) div 2;
      DGroupDlg.Top  := (SCREENHEIGHT - d.Height) div 2;
      DGroupDlg.SetImgIndex (FrmMain.WProgUse, 120);
   end;
   DGrpDlgClose.SetImgIndex (FrmMain.WProgUse, 64);
   DGrpDlgClose.Left := 260;
   DGrpDlgClose.Top := 0;
   DGrpAllowGroup.SetImgIndex (FrmMain.WProgUse, 122);
   DGrpAllowGroup.Left := 20;
   DGrpAllowGroup.Top := 18;
   DGrpCreate.SetImgIndex (FrmMain.WProgUse, 123);
   DGrpCreate.Left := 21+1;
   DGrpCreate.Top := 202+1;
   DGrpAddMem.SetImgIndex (FrmMain.WProgUse, 124);
   DGrpAddMem.Left := 96+1;
   DGrpAddMem.Top := 202+1;
   DGrpDelMem.SetImgIndex (FrmMain.WProgUse, 125);
   DGrpDelMem.Left := 171+1;
   DGrpDelMem.Top := 202+1;

   {-----------------------------------------------------------}
    //交易对话框
   d := FrmMain.WProgUse.Images[389];  //卖出方
   if d <> nil then begin
      DDealDlg.Left := SCREENWIDTH - d.Width;
      DDealDlg.Top  := 0;
      DDealDlg.SetImgIndex (FrmMain.WProgUse, 389);
   end;
   DDGrid.Left := 21;
   DDGrid.Top  := 56;
   DDGrid.Width := 36 * 5;
   DDGrid.Height := 33 * 2;
   DDealOk.SetImgIndex (FrmMain.WProgUse, 391);
   DDealOk.Left := 155;
   DDealOk.Top := 193-65;
   DDealClose.SetImgIndex (FrmMain.WProgUse, 64);
   DDealClose.Left := 220;
   DDealClose.Top := 42;