fstate.pas

来自「2009最新 传奇汉化0599代码 传奇汉化」· PAS 代码 · 共 1,919 行 · 第 1/5 页

   DNextState.SetImgIndex (g_WMainImages, 372);
   DPrevState.Left := 5;
   DPrevState.Top := 138;
   DNextState.Left := 5;
   DNextState.Top := 197;

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

   //人物状态窗口(查看别人信息)
   d := g_WMainImages.Images[370];  //惑怕
   if d <> nil then begin
      DUserState1.SetImgIndex (g_WMainImages, 430);
      DUserState1.Left := SCREENWIDTH - d.Width - d.Width;
      DUserState1.Top := 0;
   end;
      DNecklaceUS1.Left := 38 + 130;
      DNecklaceUS1.Top  := 59 + 35;
      DNecklaceUS1.Width := 34;
      DNecklaceUS1.Height := 31;

      DHelmetUS1.Left := 38 + 77;
      DHelmetUS1.Top  := 59 + 41;
      DHelmetUS1.Width := 18;
      DHelmetUS1.Height := 18;

      DLightUS1.Left := 38 + 130;
      DLightUS1.Top  := 59 + 73;
      DLightUS1.Width := 34;
      DLightUS1.Height := 31;

      DArmRingRUS1.Left := 38 + 4;
      DArmRingRUS1.Top  := 59 + 124;
      DArmRingRUS1.Width := 34;
      DArmRingRUS1.Height := 31;

      DArmRingLUS1.Left := 38 + 130;
      DArmRingLUS1.Top  := 59 + 124;
      DArmRingLUS1.Width := 34;
      DArmRingLUS1.Height := 31;
      
      DRingRUS1.Left := 38 + 4;
      DRingRUS1.Top  := 59 + 163;
      DRingRUS1.Width := 34;
      DRingRUS1.Height := 31;

      DRingLUS1.Left := 38 + 130;
      DRingLUS1.Top  := 59 + 163;
      DRingLUS1.Width := 34;
      DRingLUS1.Height := 31;

      DWeaponUS1.Left := 38 + 9;
      DWeaponUS1.Top  := 59 + 28;
      DWeaponUS1.Width := 47;
      DWeaponUS1.Height := 87;

      DDressUS1.Left := 38 + 58;
      DDressUS1.Top  := 59 + 70;
      DDressUS1.Width := 53;
      DDressUS1.Height := 112;

      DBujukUS1.Left := 42;
      DBujukUS1.Top  := 261;
      DBujukUS1.Width := 34;
      DBujukUS1.Height := 31;

      DBeltUS1.Left := 84;
      DBeltUS1.Top  := 261;
      DBeltUS1.Width := 34;
      DBeltUS1.Height := 31;

      DBootsUS1.Left := 126;
      DBootsUS1.Top  := 261;
      DBootsUS1.Width := 34;
      DBootsUS1.Height := 31;

      DCharmUS1.Left := 168;
      DCharmUS1.Top  := 261;
      DCharmUS1.Width := 34;
      DCharmUS1.Height := 31;

   // friend, group and mail buttons
   DUSFriend.Left := 104;
   DUSFriend.Top := 303;
   DUSFriend.SetImgIndex (g_WMainImages, 432);

   DUSMail.Left := 137;
   DUSMail.Top := 303;
   DUSMail.SetImgIndex (g_WMainImages, 433);

   DUSGroup.Left := 71;
   DUSGroup.Top := 303;
   DUSGroup.SetImgIndex (g_WMainImages, 431);

   DCloseUS1.SetImgIndex (g_WMainImages, 86);
   DCloseUS1.Left := 208;
   DCloseUS1.Top := 5;

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

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

   DItemGrid.Left := 28;       //28
   DItemGrid.Top  := 25;
   DItemGrid.Width := 288;
   DItemGrid.Height := 162;

  {-------------------------------------------------------------}
  //guild territory
  DGTList.SetImgIndex(g_WMainImages, 680);
  DGTList.Left := 0;
  DGTList.Top := 209;

  DGTListClose.SetImgIndex(g_WMainImages, 86);
  DGTListClose.Left := 534;
  DGTListClose.Top := 5;

  DGTListPrev.SetImgIndex(g_WMainImages, 388);
  DGTListPrev.Left :=214;
  DGTListPrev.Top := 213;

  DGTListNext.SetImgIndex(g_WMainImages, 387);
  DGTListNext.Left :=317;
  DGTListNext.Top := 213;

  DDecoListDlg.SetImgIndex(g_WMainImages, 702);
  DDecoListDlg.Left := 0;
  DDecoListDlg.Top  := 20;

  DDecoListExit.SetImgIndex(g_WMainImages, 86);
  DDecoListExit.Left := 606;
  DDecoListExit.Top  := 5;

  DDecoListPrev.SetImgIndex(g_WMainImages, 388);
  DDecoListPrev.Left :=255;
  DDecoListPrev.Top  := 382;

  DDecoListNext.SetImgIndex(g_WMainImages, 387);
  DDecoListNext.Left :=358;
  DDecoListNext.Top  := 382;

  DDecoListBuy.SetImgIndex (g_WMainImages, 678);
  DDecoListBuy.Left := 220;
  DDecoListBuy.Top  := 320;

  DDecoListCancel.SetImgIndex (g_WMainImages, 652);
  DDecoListCancel.Left := 220;
  DDecoListCancel.Top  := 352;

  DBBSListDlg.SetImgIndex(g_WMainImages, 688);
  DBBSListDlg.Left := 0;
  DBBSListDlg.Top  := 40;

  DBBSListClose.SetImgIndex(g_WMainImages, 86);
  DBBSListClose.Left := 432;
  DBBSListClose.Top  := 5;

  DBBSListPrev.SetImgIndex(g_WMainImages, 388);
  DBBSListPrev.Left :=163;
  DBBSListPrev.Top  := 321;

  DBBSListNext.SetImgIndex(g_WMainImages, 387);
  DBBSListNext.Left :=266;
  DBBSListNext.Top  := 321;

  DBBSListRefresh.SetImgIndex(g_WMainImages, 665);
  DBBSListRefresh.Left :=214;
  DBBSListRefresh.Top  := 321;

  DBBSListOk.SetImgIndex(g_WMainImages, 650);
  DBBSListOk.Left :=223;
  DBBSListOk.Top  := 280;

  DBBSListWrite.SetImgIndex(g_WMainImages, 693);
  DBBSListWrite.Left :=291;
  DBBSListWrite.Top  := 280;

  DBBSListNotice.SetImgIndex(g_WMainImages, 695);
  DBBSListNotice.Left :=360;
  DBBSListNotice.Top  := 280;

  DBBSMsgDlg.SetImgIndex(g_WMainImages, 689);
  DBBSMsgDlg.Left := 200;
  DBBSMsgDlg.Top  := 150;

  DBBSMsgClose.SetImgIndex(g_WMainImages, 86);
  DBBSMsgClose.Left := 324;
  DBBSMsgClose.Top  := 5;

  DBBSMsgOk.SetImgIndex(g_WMainImages, 650);
  DBBSMsgOk.Left :=188;
  DBBSMsgOk.Top  := 210;

  DBBSMsgCancel.SetImgIndex(g_WMainImages, 652);
  DBBSMsgCancel.Left :=255;
  DBBSMsgCancel.Top  := 210;

  DBBSMsgReply.SetImgIndex(g_WMainImages, 699);
  DBBSMsgReply.Left :=125;
  DBBSMsgReply.Top  := 210;

  DBBSMsgMail.SetImgIndex(g_WMainImages, 666);
  DBBSMsgMail.Left :=102;
  DBBSMsgMail.Top  := 210;

  DBBSMsgDelete.SetImgIndex(g_WMainImages, 697);
  DBBSMsgDelete.Left :=38;
  DBBSMsgDelete.Top  := 210;
  {-------------------------------------------------------------}
  //sales

   DSales.SetImgIndex (g_WMainImages, 670);
   DSales.Left := 0;
   DSales.Top := 60;

   DSalesFind.SetImgIndex (g_WMainImages, 676);
   DSalesFind.Left := 180;
   DSalesFind.Top := 353;

   DSalesBuy.SetImgIndex (g_WMainImages, 678);
   DSalesBuy.Left := 346;
   DSalesBuy.Top := 353;

   DSalesCancel.SetImgIndex (g_WMainImages, 652);
   DSalesCancel.Left := 415;
   DSalesCancel.Top := 353;

   DSalesMail.SetImgIndex (g_WMainImages, 666);
   DSalesMail.Left := 317;
   DSalesMail.Top := 353;

   DSalesClose.SetImgIndex (g_WMainImages, 86);
   DSalesClose.Left := 491;
   DSalesClose.Top := 5;

   DSalesRefresh.SetImgIndex(g_WMainImages, 665);
   DSalesRefresh.Left := 248;
   DSalesRefresh.Top := 389;

   DSalesNextPage.SetImgIndex(g_WMainImages, 387);
   DSalesNextPage.Left := 301;
   DSalesNextPage.Top := 389;

   DSalesPrevPage.SetImgIndex(g_WMainImages, 388);
   DSalesPrevPage.Left := 198;
   DSalesPrevPage.Top := 389;

   DAuctionImg.Left := 253;
   DAuctionImg.Top := 304;
   DAuctionImg.Width := 36;
   DAuctionImg.Height := 45;

   {-----------------------------------------------------------}
   //options

   DOptions.SetImgIndex (g_WMainImages, 770);
   DOptions.Left := 0;
   DOptions.Top := 60;

   DOptionsClose.SetImgIndex (g_WMainImages, 86);
   DOptionsClose.Left := 274;
   DOptionsClose.Top := 5;

   DOptionsSkillMode1.Left := 166;
   DOptionsSkillMode1.Top := 77; 

   DOptionsSkillMode2.Left := 208;
   DOptionsSkillMode2.Top := 77;

   DOptionsSkillBarOn.Left := 166;
   DOptionsSkillBarOn.Top := 99;

   DOptionsSkillBarOff.Left := 208;
   DOptionsSkillBarOff.Top := 99;

   DOptionsEffectOn.Left := 166;
   DOptionsEffectOn.Top := 121;

   DOptionsEffectOff.Left := 208;
   DOptionsEffectOff.Top := 121;

   DOptionsSoundOn.Left := 166;
   DOptionsSoundOn.Top := 143;

   DOptionsSoundOff.Left := 208;
   DOptionsSoundOff.Top := 143;

   DOptionsDropViewOn.Left := 166;
   DOptionsDropViewOn.Top := 165;

   DOptionsDropViewOff.Left := 208;
   DOptionsDropViewOff.Top := 165;

   {-----------------------------------------------------------}
   // Skill Bar

   DSkillBar.Left := 0;
   DSkillBar.Top := 0;

   DSkillBar1.Left := 7;
   DSkillBar1.Top := 6;

   DSkillBar2.Left := 39;
   DSkillBar2.Top := 6;

   DSkillBar3.Left := 71;
   DSkillBar3.Top := 6;

   DSkillBar4.Left := 103;
   DSkillBar4.Top := 6;

   DSkillBar5.Left := 140;
   DSkillBar5.Top := 6;

   DSkillBar6.Left := 172;
   DSkillBar6.Top := 6;

   DSkillBar7.Left := 204;
   DSkillBar7.Top := 6;

   DSkillBar8.Left := 236;
   DSkillBar8.Top := 6;

   {-----------------------------------------------------------}
   
   //主控面板
{$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 - (409 - 243)){503};
   DMyState.Top := 65;
   DMyBag.SetImgIndex (g_WMainImages, 9);
   DMyBag.Left := SCREENWIDTH div 2 + (SCREENWIDTH div 2 - (407 - 282)){682};
   DMyBag.Top := 48;
   DMyMagic.SetImgIndex (g_WMainImages, 10);
   DMyMagic.Left := SCREENWIDTH div 2 + (SCREENWIDTH div 2 - (405 - 322)){722};
   DMyMagic.Top := 38;
   DOption.SetImgIndex (g_WMainImages, 11);
   DOption.Left := SCREENWIDTH div 2 + (SCREENWIDTH div 2 - (405 - 364)){764};
   DOption.Top := 31;


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

   //快捷按钮


   DBotMiniMap.SetImgIndex (g_WMainImages, DlgConf.DBotMiniMap.Image{130});
   DBotMiniMap.Left := DlgConf.DBotMiniMap.Left{219};
   DBotMiniMap.Top := DlgConf.DBotMiniMap.Top{104};
   DBotMiniMap.DontDrawUp := True;
   DBotTrade.SetImgIndex (g_WMainImages,DlgConf.DBotTrade.Image{132});
   DBotTrade.Left :=DlgConf.DBotTrade.Left{219 + 30}; //560 - 30;
   DBotTrade.Top := DlgConf.DBotTrade.Top{104};
   DBotTrade.DontDrawUp := True;
   DBotGuild.SetImgIndex (g_WMainImages,DlgConf.DBotGuild.Image{134});
   DBotGuild.Left := DlgConf.DBotGuild.Left{219 + 30*2};
   DBotGuild.Top := DlgConf.DBotGuild.Top{104};
   DBotGuild.DontDrawUp := True;
   DBotGroup.SetImgIndex (g_WMainImages,DlgConf.DBotGroup.Image{128});
   DBotGroup.Left :=DlgConf.DBotGroup.Left{219 + 30*3};
   DBotGroup.Top :=DlgConf.DBotGroup.Top{104};
   DBotGroup.DontDrawUp := True;
   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{