fstate.pas

原版翎风(LF)引擎(M2)源码(Delphi)

   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};

   DBotMemo.SetImgIndex (g_WMainImages,DlgConf.DBotMemo.Image{532});
   DBotMemo.Left :=DlgConf.DBotMemo.Left{753};
   DBotMemo.Top :=DlgConf.DBotMemo.Top{204};

   DBotExit.SetImgIndex (g_WMainImages,DlgConf.DBotExit.Image{138});
   DBotExit.Left :=DlgConf.DBotExit.Left{560};
   DBotExit.Top :=DlgConf.DBotExit.Top{104};
   DBotLogout.SetImgIndex (g_WMainImages,DlgConf.DBotLogout.Image{136});
   DBotLogout.Left :=DlgConf.DBotLogout.Left{560 - 30};
   DBotLogout.Top :=DlgConf.DBotLogout.Top{104};


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

   //Belt 快捷栏
   DBelt1.Left := SCREENWIDTH div 2 - 115;//285;
   DBelt1.Width := 32;
   DBelt1.Top := 59;
   DBelt1.Height := 29;

   DBelt2.Left := DBelt1.Left + 43;//328;
   DBelt2.Width := 32;
   DBelt2.Top := 59;
   DBelt2.Height := 29;

   DBelt3.Left := DBelt2.Left + 43;//371;
   DBelt3.Width := 32;
   DBelt3.Top := 59;
   DBelt3.Height := 29;

   DBelt4.Left := DBelt3.Left + 43;//415;
   DBelt4.Width := 32;
   DBelt4.Top := 59;
   DBelt4.Height := 29;

   DBelt5.Left := DBelt4.Left + 43;//459;
   DBelt5.Width := 32;
   DBelt5.Top := 59;
   DBelt5.Height := 29;

   DBelt6.Left := DBelt5.Left + 43;//503;
   DBelt6.Width := 32;
   DBelt6.Top := 59;
   DBelt6.Height := 29;


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

   //黄金、修理物品、关闭包裹按钮
   DGold.SetImgIndex (g_WMainImages, 29); //包裹金钱
   DGold.Left := 133;
   DGold.Top  := 231;

   DRepairItem.SetImgIndex (g_WMainImages, 64);
   DRepairItem.Left := 10;
   DRepairItem.Top := 10;
   DRepairItem.Width := 48;
   DRepairItem.Height := 22;
   DClosebag.SetImgIndex (g_WMainImages, 371); //包裹关闭
   DCloseBag.Left := 314;
   DCloseBag.Top := 20;
   DCloseBag.Width := 14;
   DCloseBag.Height := 20;

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

   //商人对话框
   d := g_WMainImages.Images[384];
   if d <> nil then begin
      DMerchantDlg.Left := 0;
      DMerchantDlg.Top := 0;
      DMerchantDlg.SetImgIndex (g_WMainImages, 384);
   end;
   DMerchantDlgClose.Left := 372;
   DMerchantDlgClose.Top := 20;
   DMerchantDlgClose.SetImgIndex (g_WMainImages, 371);
   {-----------------------------------------------------------}
   //配置窗口
   d := g_WMainImages.Images[182];
   if d <> nil then begin
      DConfigDlg.SetImgIndex (g_WMainImages, 182);
      DConfigDlg.Left := (SCREENWIDTH - d.Width) div 2;
      DConfigDlg.Top := (SCREENHEIGHT - d.Height) div 2;
   end;
   DConfigDlgOk.SetImgIndex (g_WMainImages, 361);
   DConfigDlgOk.Left := 514;
   DConfigDlgOk.Top := 287;
   DConfigDlgClose.Left := 584;
   DConfigDlgClose.Top := 6;
   DConfigDlgClose.SetImgIndex (g_WMainImages, 64);

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

   //菜单对话框
   d := g_WMainImages.Images[385];
   if d <> nil then begin
      DMenuDlg.Left := 132;
      DMenuDlg.Top  := 163;
      DMenuDlg.SetImgIndex (g_WMainImages, 385);
   end;
   DMenuPrev.Left := 328;
   DMenuPrev.Top := 42;
   DMenuPrev.SetImgIndex (g_WMainImages, 387);
   DMenuNext.Left := 328;
   DMenuNext.Top := 162;
   DMenuNext.SetImgIndex (g_WMainImages, 388);
   DMenuBuy.Left := 100;
   DMenuBuy.Top := 230;
   DMenuBuy.SetImgIndex (g_WMainImages, 362);
   DMenuClose.Left := 175;
   DMenuClose.Top := 230;
   DMenuClose.SetImgIndex (g_WMainImages, 366);

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

   //出售
   d := g_WMainImages.Images[392];
   if d <> nil then begin
      DSellDlg.Left := 328;
      DSellDlg.Top  := 163;
      DSellDlg.SetImgIndex (g_WMainImages, 392);
   end;
   DSellDlgOk.Left := 28;
   DSellDlgOk.Top := 135;
   DSellDlgOk.SetImgIndex (g_WMainImages, 362);
   DSellDlgClose.Left := 81;
   DSellDlgClose.Top := 135;
   DSellDlgClose.SetImgIndex (g_WMainImages, 366);
   DSellDlgSpot.Left := 27;
   DSellDlgSpot.Top  := 67;
   DSellDlgSpot.Width := 61;
   DSellDlgSpot.Height := 52;

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

   //设置魔法快捷对话框
   { }
   d := g_WMainImages.Images[229];
   if d <> nil then begin
      DKeySelDlg.Left := (SCREENWIDTH - d.Width) div 2;
      DKeySelDlg.Top  := (SCREENHEIGHT - d.Height) div 2;
      DKeySelDlg.SetImgIndex (g_WMainImages, 229);
   end;
   DKsIcon.Left := 51;
   DKsIcon.Top := 30;
   DKsF1.SetImgIndex (g_WMainImages, 232);
   DKsF1.Left := 57;
   DKsF1.Top  := 78;
   DKsF2.SetImgIndex (g_WMainImages, 234);
   DKsF2.Left := 89;
   DKsF2.Top  := 78;
   DKsF3.SetImgIndex (g_WMainImages, 236);
   DKsF3.Left := 121;
   DKsF3.Top  := 78;
   DKsF4.SetImgIndex (g_WMainImages, 238);
   DKsF4.Left := 153;
   DKsF4.Top  := 78;
   DKsF5.SetImgIndex (g_WMainImages, 240);
   DKsF5.Left := 192;
   DKsF5.Top  := 78;
   DKsF6.SetImgIndex (g_WMainImages, 242);
   DKsF6.Left := 224;
   DKsF6.Top  := 78;
   DKsF7.SetImgIndex (g_WMainImages, 244);
   DKsF7.Left := 256;
   DKsF7.Top  := 78;
   DKsF8.SetImgIndex (g_WMainImages, 246);
   DKsF8.Left := 288;
   DKsF8.Top := 78;
   DKsNone.SetImgIndex (g_WMainImages, 231);
   DKsNone.Left := 277;
   DKsNone.Top  := 121;
   DKsOk.SetImgIndex (g_WMainImages, 230);
   DKsOk.Left := 213;
   DKsOk.Top  := 121;

  {
   DKsConF1.SetImgIndex (g_WMainImages, 626);
   DKsConF1.Left := 25;
   DKsConF1.Top  := 120;
   DKsConF2.SetImgIndex (g_WMainImages, 628);
   DKsConF2.Left := 57;
   DKsConF2.Top  := 120;
   DKsConF3.SetImgIndex (g_WMainImages, 630);
   DKsConF3.Left := 89;
   DKsConF3.Top  := 120;
   DKsConF4.SetImgIndex (g_WMainImages, 632);
   DKsConF4.Left := 121;
   DKsConF4.Top  := 120;
   DKsConF5.SetImgIndex (g_WMainImages, 634);
   DKsConF5.Left := 160;
   DKsConF5.Top  := 120;
   DKsConF6.SetImgIndex (g_WMainImages, 636);
   DKsConF6.Left := 192;
   DKsConF6.Top  := 120;
   DKsConF7.SetImgIndex (g_WMainImages, 638);
   DKsConF7.Left := 224;
   DKsConF7.Top  := 120;
   DKsConF8.SetImgIndex (g_WMainImages, 640);
   DKsConF8.Left := 256;
   DKsConF8.Top := 120;
  }

   {-----------------------------------------------------------}
   //组对话框
   d := g_WMainImages.Images[120];
   if d <> nil then begin
      DGroupDlg.Left := (SCREENWIDTH - d.Width) div 2;
      DGroupDlg.Top  := (SCREENHEIGHT - d.Height) div 2;
      DGroupDlg.SetImgIndex (g_WMainImages, 120);
   end;
   DGrpDlgClose.SetImgIndex (g_WMainImages, 371);
   DGrpDlgClose.Left := 296;
   DGrpDlgClose.Top := 21;
   DGrpAllowGroup.SetImgIndex (g_WMainImages, 347);
   DGrpAllowGroup.Left := 147;
   DGrpAllowGroup.Top := 30;
   DGrpCreate.SetImgIndex (g_WMainImages, 123);
   DGrpCreate.Left := 45+1;
   DGrpCreate.Top := 254+1;
   DGrpAddMem.SetImgIndex (g_WMainImages, 125);
   DGrpAddMem.Left := 122+1;
   DGrpAddMem.Top := 254+1;
   DGrpDelMem.SetImgIndex (g_WMainImages, 124);
   DGrpDelMem.Left := 201+1;
   DGrpDelMem.Top := 254+1;

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

   d := g_WMainImages.Images[390];  //买进方
   if d <> nil then begin
      DDealRemoteDlg.Left := DDealDlg.Left - d.Width;
      DDealRemoteDlg.Top  := 0;
      DDealRemoteDlg.SetImgIndex (g_WMainImages, 390);
   end;
   DDRGrid.Left := 21;
   DDRGrid.Top  := 56;
   DDRGrid.Width := 36 * 5;
   DDRGrid.Height := 33 * 2;
   DDRGold.SetImgIndex (g_WMainImages, 28);
   DDRGold.Left := 11;
   DDRGold.Top  := 202-65;

   {-----------------------------------------------------------}
   //行会
   d := g_WMainImages.Images[180];
   if d <> nil then begin
      DGuildDlg.Left := 0;
      DGuildDlg.Top := 0;
      DGuildDlg.SetImgIndex (g_WMainImages, 180);
   end;
   DGDClose.Left := 568;
   DGDClose.Top  := 20;
   DGDClose.SetImgIndex (g_WMainImages, 371);
   DGDHome.Left := 27;
   DGDHome.Top  := 387;
   DGDHome.SetImgIndex (g_WMainImages, 198);
   DGDList.Left := 27;
   DGDList.Top  := 407;
   DGDList.SetImgIndex (g_WMainImages, 200);
   DGDChat.Left := 112;
   DGDChat.Top  := 407;
   DGDChat.SetImgIndex (g_WMainImages, 190);
   DGDAddMem.Left := 235;
   DGDAddMem.Top  := 387;
   DGDAddMem.SetImgIndex (g_WMainImages, 182);
   DGDDelMem.Left := 235;
   DGDDelMem.Top  := 407;
   DGDDelMem.SetImgIndex (g_WMainImages, 192);
   DGDEditNotice.Left := 320;
   DGDEditNotice.Top  := 387;
   DGDEditNotice.SetImgIndex (g_WMainImages, 196);
   DGDEditGrade.Left := 320;
   DGDEditGrade.Top  := 407;
   DGDEditGrade.SetImgIndex (g_WMainImages, 194);
   DGDAlly.Left := 404;
   DGDAlly.Top  := 387;
   DGDAlly.SetImgIndex (g_WMainImages, 184);
   DGDBreakAlly.Left := 404;
   DGDBreakAlly.Top  := 407;
   DGDBreakAlly.SetImgIndex (g_WMainImages, 186);
   DGDWar.Left := 488;
   DGDWar.Top  := 387;
   DGDWar.SetImgIndex (g_WMainImages, 202);
   DGDCancelWar.Left := 488;
   DGDCancelWar.Top  := 407;
   DGDCancelWar.SetImgIndex (g_WMainImages, 188);

   DGDUp.Left := 567;
   DGDUp.Top  := 110;
   DGDUp.SetImgIndex (g_WMainImages, 372);
   DGDDown.Left := 567;
   DGDDown.Top  := 364;
   DGDDown.SetImgIndex (g_WMainImages, 373);

    //行会通告编辑框
   DGuildEditNotice.SetImgIndex (g_WMainImages, 204);
   DGEOk.SetImgIndex (g_WMainImages, 361);
   DGEOk.Left := 514;
   DGEOk.Top := 287;
   DGEClose.SetImgIndex (g_WMainImages, 64);
   DGEClose.Left := 584;
   DGEClose.Top := 6;


   {-----------------------------------------------------------}
   //属性调整对话框
   DAdjustAbility.SetImgIndex (g_WMainImages, 226);
   DAdjustAbilClose.SetImgIndex (g_WMainImages, 371);
   DAdjustAbilClose.Left := 282;
   DAdjustAbilClose.Top := 19;
   DAdjustAbilOk.SetImgIndex (g_WMainImages, 230);
   DAdjustAbilOk.Left := 255;
   DAdjustAbilOk.Top := 301;

   DPlusDC.SetImgIndex (g_WMainImages, 224);
   DPlusDC.Left := 217;
   DPlusDC.Top := 101;
   DPlusMC.SetImgIndex (g_WMainImages, 224);
   DPlusMC.Left := 217;
   DPlusMC.Top := 121;
   DPlusSC.SetImgIndex (g_WMainImages, 224);
   DPlusSC.Left := 217;
   DPlusSC.Top := 140;
   DPlusAC.SetImgIndex (g_WMainImages, 224);
   DPlusAC.Left := 217;
   DPlusAC.Top := 160;
   DPlusMAC.SetImgIndex (g_WMainImages, 224);
   DPlusMAC.Left := 217;
   DPlusMAC.Top := 181;
   DPlusHP.SetImgIndex (g_WMainImages, 224);
   DPlusHP.Left := 217;
   DPlusHP.Top := 201;
   DPlusMP.SetImgIndex (g_WMainImages, 224);
   DPlusMP.Left := 217;
   DPlusMP.Top := 220;
   DPlusHit.SetImgIndex (g_WMainImages, 224);
   DPlusHit.Left := 217;
   DPlusHit.Top := 240;
   DPlusSpeed.SetImgIndex (g_WMainImages, 224);
   DPlusSpeed.Left := 217;
   DPlusSpeed.Top := 261;

   DMinusDC.SetImgIndex (g_WMainImages, 225);
   DMinusDC.Left := 227;
   DMinusDC.Top := 101;
   DMinusMC.SetImgIndex (g_WMainImages, 225);
   DMinusMC.Left := 227;
   DMinusMC.Top := 121;
   DMinusSC.SetImgIndex (g_WMainImages, 225);
   DMinusSC.Left := 227;
   DMinusSC.Top := 140;
   DMinusAC.SetImgIndex (g_WMainImages, 225);
   DMinusAC.Left := 227;
   DMinusAC.Top := 160;
   DMinusMAC.SetImgIndex (g_WMainImages, 225);
   DMinusMAC.Left := 227;
   DMinusMAC.Top := 181;
   DMinusHP.SetImgIndex (g_WMainImages, 225);
   DMinusHP.Left := 227;
   DMinusHP.Top := 201;
   DMinusMP.SetImgIndex (g_WMainImages, 225);
   DMinusMP.Left := 227;
   DMinusMP.Top := 220;
   DMinusHit.SetImgIndex (g_WMainImages, 225);
   DMinusHit.Left := 227;
   DMinusHit.Top := 240;
   DMinusSpeed.SetImgIndex (g_WMainImages, 225);
   DMinusSpeed.Left := 227;
   DMinusSpeed.Top := 261;

   d := g_WMainImages.Images[456]; //V字地方
   if d <> nil then begin
      DFriendDlg.SetImgIndex (g_WMainImages, 456);
      DFriendDlg.Left := 0;
      DFriendDlg.Top := 0;
   end;
   DFrdClose.SetImgIndex(g_WMainImages, 371);
   DFrdClose.Left:=247;