fstate.pas

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

      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);
    procedure DccCloseClick(Sender: TObject; X, Y: Integer);
    procedure DChgpwOkClick(Sender: TObject; X, Y: Integer);
    procedure DscSelect1Click(Sender: TObject; X, Y: Integer);
    procedure DCloseStateClick(Sender: TObject; X, Y: Integer);
    procedure DPrevStateClick(Sender: TObject; X, Y: Integer);
    procedure DNextStateClick(Sender: TObject; X, Y: Integer);
    procedure DSWWeaponClick(Sender: TObject; X, Y: Integer);
    procedure DMsgDlgOkClick(Sender: TObject; X, Y: Integer);
    procedure DCloseBagClick(Sender: TObject; X, Y: Integer);
    procedure DBelt1Click(Sender: TObject; X, Y: Integer);
    procedure DMyStateClick(Sender: TObject; X, Y: Integer);
    procedure DStateWinClick(Sender: TObject; X, Y: Integer);
    procedure DSWWeaponMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DBelt1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DMerchantDlgDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DMerchantDlgCloseClick(Sender: TObject; X, Y: Integer);
    procedure DMerchantDlgClick(Sender: TObject; X, Y: Integer);
    procedure DMerchantDlgMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure DMerchantDlgMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure DMenuCloseClick(Sender: TObject; X, Y: Integer);
    procedure DMenuDlgDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DMenuDlgClick(Sender: TObject; X, Y: Integer);
    procedure DSellDlgDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DSellDlgCloseClick(Sender: TObject; X, Y: Integer);
    procedure DSellDlgSpotClick(Sender: TObject; X, Y: Integer);
    procedure DSellDlgSpotDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DSellDlgSpotMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DSellOk();
    procedure DMenuBuyClick(Sender: TObject; X, Y: Integer);
    procedure DMenuPrevClick(Sender: TObject; X, Y: Integer);
    procedure DMenuNextClick(Sender: TObject; X, Y: Integer);
    procedure DGoldClick(Sender: TObject; X, Y: Integer);
    procedure DSWLightDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DBackgroundMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure DStateWinMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DLoginNewClickSound(Sender: TObject;
      Clicksound: TClickSound);
    procedure DStMag1DirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DStMag1Click(Sender: TObject; X, Y: Integer);
    procedure DKsIconDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DKsF1DirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DKsOkClick(Sender: TObject; X, Y: Integer);
    procedure DKsF1Click(Sender: TObject; X, Y: Integer);
    procedure DKeySelDlgDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DBotGroupDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DGrpAllowGroupDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DGrpDlgCloseClick(Sender: TObject; X, Y: Integer);
    procedure DBotGroupClick(Sender: TObject; X, Y: Integer);
    procedure DGrpAllowGroupClick(Sender: TObject; X, Y: Integer);
    procedure DGrpCreateClick(Sender: TObject; X, Y: Integer);
    procedure DGroupDlgDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DGrpAddMemClick(Sender: TObject; X, Y: Integer);
    procedure DGrpDelMemClick(Sender: TObject; X, Y: Integer);
    procedure DBotLogoutClick(Sender: TObject; X, Y: Integer);
    procedure DBotExitClick(Sender: TObject; X, Y: Integer);
    procedure DStPageUpClick(Sender: TObject; X, Y: Integer);
    procedure DBottomMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure DDealOkClick(Sender: TObject; X, Y: Integer);
    procedure DDealCloseClick(Sender: TObject; X, Y: Integer);
    procedure DBotTradeClick(Sender: TObject; X, Y: Integer);
    procedure DDealRemoteDlgDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DDealDlgDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DDGridGridSelect(Sender: TObject; ACol, ARow: Integer;
      Shift: TShiftState);
    procedure DDGridGridPaint(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState; dsurface: TDirectDrawSurface);
    procedure DDGridGridMouseMove(Sender: TObject; ACol, ARow: Integer;
      Shift: TShiftState);
    procedure DDRGridGridPaint(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState; dsurface: TDirectDrawSurface);
    procedure DDRGridGridMouseMove(Sender: TObject; ACol, ARow: Integer;
      Shift: TShiftState);
    procedure DDGoldClick(Sender: TObject; X, Y: Integer);
    procedure DSServer1Click(Sender: TObject; X, Y: Integer);
    procedure DSSrvCloseClick(Sender: TObject; X, Y: Integer);
    procedure DBotMiniMapClick(Sender: TObject; X, Y: Integer);
    procedure DMenuDlgMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DUserState1DirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DUserState1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DWeaponUS1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DCloseUS1Click(Sender: TObject; X, Y: Integer);
    procedure DNecklaceUS1DirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DBotGuildClick(Sender: TObject; X, Y: Integer);
    procedure DGuildDlgDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DGDUpClick(Sender: TObject; X, Y: Integer);
    procedure DGDDownClick(Sender: TObject; X, Y: Integer);
    procedure DGDCloseClick(Sender: TObject; X, Y: Integer);
    procedure DGDHomeClick(Sender: TObject; X, Y: Integer);
    procedure DGDListClick(Sender: TObject; X, Y: Integer);
    procedure DGDAddMemClick(Sender: TObject; X, Y: Integer);
    procedure DGDDelMemClick(Sender: TObject; X, Y: Integer);
    procedure DGDEditNoticeClick(Sender: TObject; X, Y: Integer);
    procedure DGDEditGradeClick(Sender: TObject; X, Y: Integer);
    procedure DGECloseClick(Sender: TObject; X, Y: Integer);
    procedure DGEOkClick(Sender: TObject; X, Y: Integer);
    procedure DGuildEditNoticeDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DGDChatClick(Sender: TObject; X, Y: Integer);
    procedure DGoldDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DNewAccountDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DAdjustAbilCloseClick(Sender: TObject; X, Y: Integer);
    procedure DAdjustAbilityDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DBotPlusAbilClick(Sender: TObject; X, Y: Integer);
    procedure DPlusDCClick(Sender: TObject; X, Y: Integer);
    procedure DMinusDCClick(Sender: TObject; X, Y: Integer);
    procedure DAdjustAbilOkClick(Sender: TObject; X, Y: Integer);
    procedure DBotPlusAbilDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DAdjustAbilityMouseMove(Sender: TObject; Shift: TShiftState;
      X, Y: Integer);
    procedure DUserState1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure DEngServer1Click(Sender: TObject; X, Y: Integer);
    procedure DGDAllyClick(Sender: TObject; X, Y: Integer);
    procedure DGDBreakAllyClick(Sender: TObject; X, Y: Integer);
    procedure DSelServerDlgDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DBotMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DBotFriendClick(Sender: TObject; X, Y: Integer);
    procedure DFrdCloseClick(Sender: TObject; X, Y: Integer);
    procedure DChgGamePwdCloseClick(Sender: TObject; X, Y: Integer);
    procedure DChgGamePwdDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DGemMakeItemDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
(*    procedure int(Sender: TObject;
      dsurface: TDirectDrawSurface); *)
    procedure DGemMakeOKDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DGemMakeCancelDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DGemMakeCancelClick(Sender: TObject; X, Y: Integer);
    procedure DGemSlot1Click(Sender: TObject; X, Y: Integer);
    procedure DGemSlot1DirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DGemSlot1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DGemSlot2Click(Sender: TObject; X, Y: Integer);
    procedure DGemSlot2DirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DGemSlot2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DGemSlot3Click(Sender: TObject; X, Y: Integer);
    procedure DGemSlot3DirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DGemSlot3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DGemSlot4Click(Sender: TObject; X, Y: Integer);
    procedure DGemSlot4DirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DGemSlot4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DGemSlot5Click(Sender: TObject; X, Y: Integer);
    procedure DGemSlot5DirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DGemSlot5MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DGemSlot6Click(Sender: TObject; X, Y: Integer);
    procedure DGemSlot6DirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DGemSlot6MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DGemMakeOKClick(Sender: TObject; X, Y: Integer);
    procedure DFrdAddClick(Sender: TObject; X, Y: Integer);
    procedure DFriendDlgDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DFriendDlgClick(Sender: TObject; X, Y: Integer);
    procedure DFrdDelClick(Sender: TObject; X, Y: Integer);
    procedure DFrdMemoClick(Sender: TObject; X, Y: Integer);
    procedure DFriendDlgMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DMailReadPostDirectPaint(Sender: TObject; dsurface: TDirectDrawSurface);
    procedure DMemoPostDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DMemoB1DirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DMemoB2DirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DMemoB1Click(Sender: TObject; X, Y: Integer);
    procedure DSalesDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DSalesCancelDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DSalesCloseDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DSalesCloseClick(Sender: TObject; X, Y: Integer);
    procedure DSalesPrevPageClick(Sender: TObject; X, Y: Integer);
    procedure DSalesNextPageClick(Sender: TObject; X, Y: Integer);
    procedure DSalesRefreshClick(Sender: TObject; X, Y: Integer);
    procedure DSalesClick(Sender: TObject; X, Y: Integer);
    procedure DSalesBuyClick(Sender: TObject; X, Y: Integer);
    procedure DSalesCancelClick(Sender: TObject; X, Y: Integer);
    procedure ClearAuctionDlg;
    procedure DSalesFindClick(Sender: TObject; X, Y: Integer);
    procedure DFrdBlackListClick(Sender: TObject; X, Y: Integer);
    procedure DFrdFriendClick(Sender: TObject; X, Y: Integer);
    procedure DBotMemoClick(Sender: TObject; X, Y: Integer);
    procedure DMailDlgCloseClick(Sender: TObject; X, Y: Integer);
    procedure DMailDlgPostDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DMailListDlgMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DMailListDlgPostDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DBlockListDlgPostDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DRepairItemClick(Sender: TObject; X, Y: Integer);
    procedure DBeltSwapClick(Sender: TObject; X, Y: Integer);
    procedure DBeltCloseClick(Sender: TObject; X, Y: Integer);
    procedure DBotLoverClick(Sender: TObject; X, Y: Integer);
    procedure DBeltWindowMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DGroupDlgMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DMailListStatusDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DFrdPgDnClick(Sender: TObject; X, Y: Integer);
    procedure DFrdPgUpClick(Sender: TObject; X, Y: Integer);
    procedure DCreateChrDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure GetPageInfo(pList: Pointer; var PageNumber: Integer; var PageTotal: Integer; var PageRef: Integer);
    function FindFriend(Select: Boolean = False): PTClientFriends;
    function FindMail(Select: Boolean = False): ptMailItem;
    function FindBlock(Select: Boolean = False): PTBlockItem;
    procedure DMemoCloseClick(Sender: TObject; X, Y: Integer);
    procedure DGenericMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DBigMapDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DLoverWindowDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DLoverAvailableDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DLoverAskDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DLoverDivorceDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DLoverExitDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DLoverExitClick(Sender: TObject; X, Y: Integer);
    procedure DLoverAvailableClick(Sender: TObject; X, Y: Integer);
    procedure DLoverAskClick(Sender: TObject; X, Y: Integer);
    procedure DLoverDivorceClick(Sender: TObject; X, Y: Integer);
    procedure DLoverWindowMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DMailListDlgDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DMailListPgDnClick(Sender: TObject; X, Y: Integer);
    procedure DMailListPgUpClick(Sender: TObject; X, Y: Integer);
    procedure DMailListDlgClick(Sender: TObject; X, Y: Integer);
    procedure DMailListDlgDblClick(Sender: TObject);
    procedure DMLReplyClick(Sender: TObject; X, Y: Integer);
    procedure TextAreaNotify(Sender: TObject);
    procedure BBSTextNotify(Sender: TObject);
    procedure EdSalesEditKeyPress (Sender: TObject; var Key: Char);
    procedure SendMail(sTarget: String);
    procedure DMailDlgb1Click(Sender: TObject; X, Y: Integer);
    procedure DMailReadCloseClick(Sender: TObject; X, Y: Integer);
    procedure DMLReadClick(Sender: TObject; X, Y: Integer);
    procedure DMLDelClick(Sender: TObject; X, Y: Integer);
    procedure DMLLockClick(Sender: TObject; X, Y: Integer);
    procedure DMailReadDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DMailDlgDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DBeltWindowDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DBLAddClick(Sender: TObject; X, Y: Integer);
    procedure DBLDelClick(Sender: TObject; X, Y: Integer);
    procedure DBlockListDlgClick(Sender: TObject; X, Y: Integer);
    procedure DBlockListDlgDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DBLPgDnClick(Sender: TObject; X, Y: Integer);
    procedure DBLPgUpClick(Sender: TObject; X, Y: Integer);
    procedure DMLBlockClick(Sender: TObject; X, Y: Integer);
    procedure DBlockListDlgMouseMove(Sender: TObject; Shift: TShiftState;
      X, Y: Integer);
    procedure DBotMemoDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DFriendDlgPostDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DHoldClick(Sender: TObject; X, Y: Integer);
    procedure DSellDlgOkClick(Sender: TObject; X, Y: Integer);
    procedure DGTListDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DGTListCloseClick(Sender: TObject; X, Y: Integer);
    procedure ClearGTlist();
    procedure ClearDecolist();
    procedure ClearBBSList();
    procedure DGTListClick(Sender: TObject; X, Y: Integer);
    procedure DGTListPrevClick(Sender: TObject; X, Y: Integer);
    procedure DGTListNextClick(Sender: TObject; X, Y: Integer);
    procedure DGTListDblClick(Sender: TObject);
    procedure DDecoListNextClick(Sender: TObject; X, Y: Integer);
    procedure DDecoListPrevClick(Sender: TObject; X, Y: Integer);
    procedure DDecoListDlgClick(Sender: TObject; X, Y: Integer);
    procedure DDecoListExitClick(Sender: TObject; X, Y: Integer);
    procedure DDecoListDlgDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DDecoListBuyClick(Sender: TObject; X, Y: Integer);
    procedure DBBSListDlgDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DBBSListDlgClick(Sender: TObject; X, Y: Integer);
    procedure DBBSListPrevClick(Sender: TObject; X, Y: Integer);
    procedure DBBSListNextClick(Sender: TObject; X, Y: Integer);