fstate.pas

传奇源代码的delphi版本

    DBBSListRefresh: TDButton;
    DBBSListOK: TDButton;
    DBBSListWrite: TDButton;
    DBBSListNotice: TDButton;
    DBBSMsgDlg: TDWindow;
    DBBSMsgClose: TDButton;
    DBBSMsgOk: TDButton;
    DBBSMsgMail: TDButton;
    DBBSMsgReply: TDButton;
    DBBSMsgCancel: TDButton;
    DBBSMsgDelete: TDButton;
    DOptions: TDWindow;
    DOptionsClose: TDButton;
    DOptionsSoundOn: TDButton;
    DOptionsSoundOff: TDButton;
    DOptionsEffectOn: TDButton;
    DOptionsEffectOff: TDButton;
    DOptionsSkillBarOn: TDButton;
    DOptionsSkillBarOff: TDButton;
    DOptionsDropViewOn: TDButton;
    DOptionsDropViewOff: TDButton;
    DOptionsSkillMode2: TDButton;
    DOptionsSkillMode1: TDButton;
    DSkillBar: TDWindow;
    DSkillBar1: TDButton;
    DSkillBar2: TDButton;
    DSkillBar3: TDButton;
    DSkillBar4: TDButton;
    DSkillBar5: TDButton;
    DSkillBar6: TDButton;
    DSkillBar7: TDButton;
    DSkillBar8: TDButton;
    DSalesMail: TDButton;
    DScrollUp: TDButton;
    DScrollTop: TDButton;
    DScrollBar: TDButton;
    DScrollDown: TDButton;
    DScrollBottom: TDButton;
    DInputKey: TDWindow;
    DInputKeyEsc: TDButton;
    DInputKey0: TDButton;
    DInputKey6: TDButton;
    DInputKeya: TDButton;
    DInputKeyg: TDButton;
    DInputKeym: TDButton;
    DInputKeys: TDButton;
    DInputKeyy: TDButton;
    DInputKeyz: TDButton;
    DInputKeyt: TDButton;
    DInputKeyn: TDButton;
    DInputKeyh: TDButton;
    DInputKeyb: TDButton;
    DInputKey7: TDButton;
    DInputKey1: TDButton;
    DInputKey2: TDButton;
    DInputKey8: TDButton;
    DInputKeyc: TDButton;
    DInputKeyi: TDButton;
    DInputKeyo: TDButton;
    DInputKeyu: TDButton;
    DInputKeyRand: TDButton;
    DInputKeyv: TDButton;
    DInputKeyEnter: TDButton;
    DInputKeyw: TDButton;
    DInputKeyx: TDButton;
    DInputKeyr: TDButton;
    DInputKeyq: TDButton;
    DInputKeyp: TDButton;
    DInputKeyj: TDButton;
    DInputKeyk: TDButton;
    DInputKeyl: TDButton;
    DInputKeyf: TDButton;
    DInputKeye: TDButton;
    DInputKeyd: TDButton;
    DInputKey9: TDButton;
    DInputKeyDel: TDButton;
    DInputKey3: TDButton;
    DInputKey4: TDButton;
    DInputKey5: TDButton;
    DHelpWin: TDWindow;
    DHelpClose: TDButton;
    DHelpPrev: TDButton;
    DHelpNext: TDButton;
    DMsgSimpleDlg: TDWindow;
    DMsgSimpleDlgOk: TDButton;
    DMsgSimpleDlgCancel: TDButton;
    DLoginViewKey: TDButton;
    DBotItemShop: TDButton;
    DBotHelp: TDButton;
    DBotGift: TDButton;
    DBotQuest: TDButton;
    DOptionsNameAllViewOn: TDButton;
    DOptionsNameAllViewOff: TDButton;
    DOptionsHPView2: TDButton;
    DOptionsHPView1: TDButton;
    DItemShopDlg: TDWindow;
    DItemShopFind: TDButton;
    DItemShopWear: TDButton;
    DItemShopInPackBack: TDButton;
    DItemShopWearLturn: TDButton;
    DItemShopCashRefresh: TDButton;
    DItemShopWearChange: TDButton;
    DItemShopWearRturn: TDButton;
    DItemShopClose: TDButton;
    DItemShopBye: TDButton;
    DItemShopGift: TDButton;
    DItemShopAddFav: TDButton;
    DItemShopPriceUp: TDButton;
    DItemShopPriceDn: TDButton;
    DItemShopJobAll: TDButton;
    DItemShopJobWarrior: TDButton;
    DItemShopJobWizard: TDButton;
    DItemShopJobMonk: TDButton;
    DItemShopJobCommon: TDButton;
    DItemShopCaFav: TDButton;
    DItemShopCheckSort: TDButton;
    DItemShopListPrev: TDButton;
    DItemShopListNext: TDButton;
    DItemShopGetGift: TDButton;
    DItemShopPayMoney: TDButton;
    DItemShopCaNew: TDButton;
    DShopScrollBar: TDButton;
    DShopScrollBarUp: TDButton;
    DShopScrollBarDown: TDButton;
    DItemShopCaAll: TDButton;
    DItemShopCaWeapon: TDButton;
    DItemShopCaArmor: TDButton;
    DItemShopCasSubitem: TDButton;
    DItemShopCaAcc: TDButton;
    DItemShopCaPackage: TDButton;
    DItemShopCaOther: TDButton;
    DItemShopCaSub1: TDButton;
    DItemShopCaSub2: TDButton;
    DItemShopCaSub3: TDButton;
    DItemShopCaSub4: TDButton;
    DItemShopCaSub5: TDButton;
    DItemShopCaSub6: TDButton;
    DItemShopCaSub7: TDButton;
    DItemShopPackSub8: TDButton;
    DItemShopPackSub7: TDButton;
    DItemShopPackSub6: TDButton;
    DItemShopPackSub5: TDButton;
    DItemShopPackSub4: TDButton;
    DItemShopPackSub3: TDButton;
    DItemShopPackSub2: TDButton;
    DItemShopPackSub1: TDButton;
    DItemShopFavDel1: TDButton;
    DItemShopFavDel2: TDButton;
    DItemShopFavDel3: TDButton;
    DItemShopFavDel4: TDButton;
    DItemShopFavDel5: TDButton;
    DItemShopFavDel6: TDButton;
    DItemShopFavDel7: TDButton;
    DItemShopFavDel8: TDButton;
    DAddBag8: TDWindow;
    DAddBag7: TDWindow;
    DAddBag6: TDWindow;
    DAddBag5: TDWindow;
    DAddBag4: TDWindow;
    DAddBag3: TDWindow;
    DAddBag3Grid: TDGrid;
    DAddBag3Close: TDButton;
    DAddBag4Close: TDButton;
    DAddBag4Grid: TDGrid;
    DAddBag5Grid: TDGrid;
    DAddBag5Close: TDButton;
    DAddBag6Grid: TDGrid;
    DAddBag6Close: TDButton;
    DAddBag7Grid: TDGrid;
    DAddBag7Close: TDButton;
    DAddBag8Grid: TDGrid;
    DAddBag8Close: TDButton;
    DItemStore: TDWindow;
    DItemStoreClose: TDButton;
    DStoreGrid: TDGrid;
    DShopMenuDlg: TDWindow;
    DShopMenuClose: TDButton;
    DShopMenuOk: TDButton;
    DShopMenuScrollBar: TDButton;
    DShopMenuScrollDown: TDButton;
    DShopMenuScrollUp: TDButton;
    DRefineDlg: TDWindow;
    DRefineGrid: TDGrid;
    DRefineOk: TDButton;
    DRefineDlgClose: TDButton;
    DQuestAccept: TDWindow;
    DBtnQuestAccept: TDButton;
    DBtnQuestFinish: TDButton;
    DQuestAcceptClose: TDButton;
    DStoragePassSet: TDWindow;
    DStoragePassReset: TDWindow;
    DStoragePass: TDWindow;
    DStoragePassSetSafe: TDButton;
    DStoragePassSetOk: TDButton;
    DStoragePassSetDel: TDButton;
    DStoragePassSetClose: TDButton;
    DStoragePassSafe: TDButton;
    DStoragePassOk: TDButton;
    DStoragePassDel: TDButton;
    DStoragePassClose: TDButton;
    DStoragePassResetSafe: TDButton;
    DStoragePassResetOk: TDButton;
    DStoragePassResetDel: TDButton;
    DStoragePassResetClose: TDButton;
    DBank: TDWindow;
    DBankCell1: TDButton;
    DBankSlot1: TDButton;
    DBankGold: TDButton;
    DBankSlot2: TDButton;
    DBankSlot3: TDButton;
    DBankSlotAdd: TDButton;
    DBankSlot4: TDButton;
    DBankSlot5: TDButton;
    DBankPassSet: TDButton;
    DBankWinSlot5: TDWindow;
    DBankWinSlot4: TDWindow;
    DBankWinSlot3: TDWindow;
    DBankWinSlot2: TDWindow;
    DBankWinSlot1: TDWindow;
    DBankCloseSlot1: TDButton;
    DBankCloseSlot2: TDButton;
    DBankCloseSlot3: TDButton;
    DBankCloseSlot4: TDButton;
    DBankCloseSlot5: TDButton;
    DBankGridSlot1: TDGrid;
    DBankGridSlot2: TDGrid;
    DBankGridSlot3: TDGrid;
    DBankGridSlot4: TDGrid;
    DBankGridSlot5: TDGrid;
    DSafeKeyStorage: TDWindow;
    DSafeKeyStorage0: TDButton;
    DSafeKeyStorage6: TDButton;
    DSafeKeyStorage1: TDButton;
    DSafeKeyStorage7: TDButton;
    DSafeKeyStorage2: TDButton;
    DSafeKeyStorage8: TDButton;
    DSafeKeyStorage3: TDButton;
    DSafeKeyStorage9: TDButton;
    DSafeKeyStorage4: TDButton;
    DSafeKeyStorage5: TDButton;
    DSafeKeyStorageDel: TDButton;
    DSafeKeyStorageEnter: TDButton;
    DSafeKeyStorageEsc: TDButton;
    DBankCell2: TDButton;
    DBankCell3: TDButton;
    DBankClose: TDButton;
    DDcJunsaBuff: TDWindow;
    DMcBuff: TDWindow;
    DExUpBuff: TDWindow;
    DAgilityBuff: TDWindow;
    DAccBuff: TDWindow;
    DLuckBuff: TDWindow;
    DScBuff: TDWindow;
    DAcJunsaBuff: TDWindow;
    DDcBuff: TDWindow;
    DAttSBuff: TDWindow;
    DHPUpBuff: TDWindow;
    DToxAvoidBuff: TDWindow;
    DBagWUpBuff: TDWindow;
    DAcBuff: TDWindow;
    DMPUpBuff: TDWindow;
    DHorseBuff: TDWindow;
    DMacBuff: TDWindow;
    DHandWUpBuff: TDWindow;
    DCashBuff: TDWindow;
    DPcBuff: TDWindow;
    DCashBuff2: TDWindow;
    DWemadeBuff: TDWindow;
    DCashBuff3: TDWindow;
    DWemadeBuff2: TDWindow;
    DCashBuff4: TDWindow;
    DRestBuff: TDWindow;
    DCashBuff5: TDWindow;
    DCashBuff7: TDWindow;
    DCashBuff6: TDWindow;
    DCountDlg: TDWindow;
    DCountDlgMax: TDButton;
    DCountDlgCancel: TDButton;
    DCountDlgOk: TDButton;
    DCountDlgClose: TDButton;
    DGetGiftDlg: TDWindow;
    DGetGift: TDButton;
    DGetGiftReply: TDButton;
    DGetGiftDel: TDButton;
    DGetGiftClose: TDButton;
    DGiftListDlg: TDWindow;
    DGiftListPrev: TDButton;
    DGiftListNext: TDButton;
    DGiftRead: TDButton;
    DGiftReply: TDButton;
    DGiftListClose: TDButton;
    DGrpPgUp: TDButton;
    DGrpPgDn: TDButton;
    DItemStorePassReset: TDButton;
    DBotExpand: TDButton;
    DAbout: TDWindow;
    DAboutClose: TDButton;


    procedure DBottomInRealArea(Sender: TObject; X, Y: Integer;
      var IsRealArea: Boolean);
    procedure DBottomDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DMyStateDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DOptionClick();
    procedure DItemBagDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DRepairItemDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DRepairItemInRealArea(Sender: TObject; X, Y: Integer;
      var IsRealArea: Boolean);
    procedure DStateWinDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure FormCreate(Sender: TObject);
    procedure DPrevStateDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DLoginNewDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DscSelect1DirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DSalesCancelDirectPaintt(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DItemGridGridSelect(Sender: TObject; ACol, ARow: Integer;
      Shift: TShiftState);
    procedure DItemGridGridPaint(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState; dsurface: TDirectDrawSurface);
    procedure DItemGridDblClick(Sender: TObject);
    procedure DMsgDlgOkDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DMsgDlgDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DMsgDlgKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DCloseBagDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DBackgroundBackgroundClick(Sender: TObject);
    procedure DItemGridGridMouseMove(Sender: TObject; ACol, ARow: Integer;
      Shift: TShiftState);
    procedure DBelt1DirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure FormDestroy(Sender: TObject);
    procedure DBelt1DblClick(Sender: TObject);
    procedure DLoginCloseClick(Sender: TObject; X, Y: Integer);
    procedure DLoginOkClick(Sender: TObject; X, Y: Integer);
    procedure DLoginNewClick(Sender: TObject; X, Y: Integer);
    procedure DLoginChgPwClick(Sender: TObject; X, Y: Integer);
    procedure DNewAccountOkClick(Sender: TObject; X, Y: Integer);
    procedure DNewAccountCloseClick(Sender: TObject; X, Y: Integer);