?? fstate.pas
字號:
procedure DOptionsCloseClick(Sender: TObject; X, Y: Integer);
procedure DOptionsSoundOffClick(Sender: TObject; X, Y: Integer);
procedure DOptionsSoundOnClick(Sender: TObject; X, Y: Integer);
procedure DOptionsDropViewOnClick(Sender: TObject; X, Y: Integer);
procedure DOptionsDropViewOffClick(Sender: TObject; X, Y: Integer);
procedure DOptionsEffectOffClick(Sender: TObject; X, Y: Integer);
procedure DOptionsEffectOnClick(Sender: TObject; X, Y: Integer);
procedure DOptionsSkillBarOffClick(Sender: TObject; X, Y: Integer);
procedure DOptionsSkillBarOnClick(Sender: TObject; X, Y: Integer);
procedure DOptionsSkillMode1Click(Sender: TObject; X, Y: Integer);
procedure DOptionsSkillMode2Click(Sender: TObject; X, Y: Integer);
procedure DSkillBarDirectPaint(Sender: TObject;
dsurface: TDirectDrawSurface);
procedure DSkillBarMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure DUSGroupClick(Sender: TObject; X, Y: Integer);
procedure DUSFriendClick(Sender: TObject; X, Y: Integer);
procedure DUSMailClick(Sender: TObject; X, Y: Integer);
procedure DSalesMailClick(Sender: TObject; X, Y: Integer);
procedure DSelectChrClick(Sender: TObject; X, Y: Integer);
procedure DScrollTopClick(Sender: TObject; X, Y: Integer);
procedure DScrollUpClick(Sender: TObject; X, Y: Integer);
procedure DScrollDownClick(Sender: TObject; X, Y: Integer);
procedure DScrollBottomClick(Sender: TObject; X, Y: Integer);
procedure DInputKeyEscClick(Sender: TObject; X, Y: Integer);
procedure DLoginViewKeyClick(Sender: TObject; X, Y: Integer);
procedure DMsgSimpleDlgOkClick(Sender: TObject; X, Y: Integer);
procedure DMsgSimpleDlgDirectPaint(Sender: TObject;
dsurface: TDirectDrawSurface);
procedure DMsgSimpleDlgKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBotHelpDirectPaint(Sender: TObject;
dsurface: TDirectDrawSurface);
procedure DInputKeyEscDirectPaint(Sender: TObject;
dsurface: TDirectDrawSurface);
procedure DInputKeyEscMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure DInputKey0Click(Sender: TObject; X, Y: Integer);
procedure DInputKeyDelClick(Sender: TObject; X, Y: Integer);
procedure DInputKeyEnterClick(Sender: TObject; X, Y: Integer);
procedure DInputKeyRandClick(Sender: TObject; X, Y: Integer);
procedure DBotHelpClick(Sender: TObject; X, Y: Integer);
procedure DHelpCloseClick(Sender: TObject; X, Y: Integer);
procedure DHelpWinDirectPaint(Sender: TObject;
dsurface: TDirectDrawSurface);
procedure DOptionsNameAllViewOnClick(Sender: TObject; X, Y: Integer);
procedure DOptionsNameAllViewOffClick(Sender: TObject; X, Y: Integer);
procedure DOptionsHPView1Click(Sender: TObject; X, Y: Integer);
procedure DOptionsHPView2Click(Sender: TObject; X, Y: Integer);
procedure DHelpPrevClick(Sender: TObject; X, Y: Integer);
procedure DHelpNextClick(Sender: TObject; X, Y: Integer);
procedure DItemShopDlgDirectPaint(Sender: TObject;
dsurface: TDirectDrawSurface);
procedure DItemShopDlgKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DItemShopDlgMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure DItemShopDlgMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure DItemShopCloseClick(Sender: TObject; X, Y: Integer);
procedure DBotItemShopClick(Sender: TObject; X, Y: Integer);
procedure DItemShopJobAllDirectPaint(Sender: TObject;
dsurface: TDirectDrawSurface);
procedure DItemShopJobAllMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
procedure DItemShopJobAllClick(Sender: TObject; X, Y: Integer);
procedure DItemShopJobWarriorClick(Sender: TObject; X, Y: Integer);
procedure DItemShopJobWizardClick(Sender: TObject; X, Y: Integer);
procedure DItemShopJobMonkClick(Sender: TObject; X, Y: Integer);
procedure DItemShopJobCommonClick(Sender: TObject; X, Y: Integer);
procedure DGrpPgUpClick(Sender: TObject; X, Y: Integer);
procedure DGrpPgDnClick(Sender: TObject; X, Y: Integer);
procedure DGTListMailClick(Sender: TObject; X, Y: Integer);
procedure DItemShopDlgClick(Sender: TObject; X, Y: Integer);
procedure DItemShopCaAllDirectPaint(Sender: TObject;
dsurface: TDirectDrawSurface);
procedure DItemShopCaAllMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
procedure DCountDlgDirectPaint(Sender: TObject;
dsurface: TDirectDrawSurface);
procedure DCountDlgKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DCountDlgOkClick(Sender: TObject; X, Y: Integer);
procedure DCountDlgCloseClick(Sender: TObject; X, Y: Integer);
procedure DItemShopGetGiftDirectPaint(Sender: TObject;
dsurface: TDirectDrawSurface);
procedure DItemShopGetGiftMouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
procedure DShopMenuDlgClick(Sender: TObject; X, Y: Integer);
procedure DShopMenuDlgDirectPaint(Sender: TObject;
dsurface: TDirectDrawSurface);
procedure DShopMenuDlgMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure DShopMenuScrollUpClick(Sender: TObject; X, Y: Integer);
procedure DShopMenuScrollDownClick(Sender: TObject; X, Y: Integer);
procedure DShopMenuScrollBarMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure DShopMenuScrollBarMouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
procedure DShopScrollBarMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
procedure DShopScrollBarDirectPaint(Sender: TObject;
dsurface: TDirectDrawSurface);
procedure DShopScrollBarMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure DShopMenuOkClick(Sender: TObject; X, Y: Integer);
procedure DShopMenuCloseClick(Sender: TObject; X, Y: Integer);
procedure DWemadeBuffMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure DDcJunsaBuffDirectPaint(Sender: TObject;
dsurface: TDirectDrawSurface);
procedure DItemBagClick(Sender: TObject; X, Y: Integer);
procedure DItemStoreDirectPaint(Sender: TObject;
dsurface: TDirectDrawSurface);
procedure DStoreGridGridMouseMove(Sender: TObject; ACol, ARow: Integer;
Shift: TShiftState);
procedure DStoreGridGridPaint(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState; dsurface: TDirectDrawSurface);
procedure DStoreGridGridSelect(Sender: TObject; ACol, ARow: Integer;
Shift: TShiftState);
procedure DItemStoreCloseClick(Sender: TObject; X, Y: Integer);
procedure DSafeKeyStorageEscClick(Sender: TObject; X, Y: Integer);
procedure DSafeKeyStorage0Click(Sender: TObject; X, Y: Integer);
procedure DSafeKeyStorage0DirectPaint(Sender: TObject;
dsurface: TDirectDrawSurface);
procedure DSafeKeyStorageEnterClick(Sender: TObject; X, Y: Integer);
procedure DSafeKeyStorageDelClick(Sender: TObject; X, Y: Integer);
procedure DSafeKeyStorageDirectPaint(Sender: TObject;
dsurface: TDirectDrawSurface);
procedure DAddBag3DirectPaint(Sender: TObject;
dsurface: TDirectDrawSurface);
procedure DAddBag3GridDblClick(Sender: TObject);
procedure DAddBag3GridGridMouseMove(Sender: TObject; ACol,
ARow: Integer; Shift: TShiftState);
procedure DAddBag3GridGridPaint(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState; dsurface: TDirectDrawSurface);
procedure DAddBag3GridGridSelect(Sender: TObject; ACol, ARow: Integer;
Shift: TShiftState);
procedure DAddBag3CloseClick(Sender: TObject; X, Y: Integer);
procedure DAddBag3CloseDirectPaint(Sender: TObject;
dsurface: TDirectDrawSurface);
procedure DBotQuestClick(Sender: TObject; X, Y: Integer);
procedure DRefineDlgDirectPaint(Sender: TObject;
dsurface: TDirectDrawSurface);
procedure DRefineGridGridMouseMove(Sender: TObject; ACol,
ARow: Integer; Shift: TShiftState);
procedure DRefineGridGridPaint(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState; dsurface: TDirectDrawSurface);
procedure DRefineGridGridSelect(Sender: TObject; ACol, ARow: Integer;
Shift: TShiftState);
procedure DRefineDlgCloseClick(Sender: TObject; X, Y: Integer);
procedure DAddBag4GridGridPaint(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState; dsurface: TDirectDrawSurface);
procedure DAddBag7GridGridPaint(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState; dsurface: TDirectDrawSurface);
procedure DAddBag5GridGridPaint(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState; dsurface: TDirectDrawSurface);
procedure DAddBag6GridGridPaint(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState; dsurface: TDirectDrawSurface);
procedure DAddBag8GridGridPaint(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState; dsurface: TDirectDrawSurface);
procedure DItemShopFindClick(Sender: TObject; X, Y: Integer);
procedure DItemShopPayMoneyClick(Sender: TObject; X, Y: Integer);
procedure DStoragePassSetDirectPaint(Sender: TObject;
dsurface: TDirectDrawSurface);
procedure DStoragePassSetKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DStoragePassSetMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
procedure DStoragePassSetSafeClick(Sender: TObject; X, Y: Integer);
procedure DStoragePassSetOkClick(Sender: TObject; X, Y: Integer);
procedure DStoragePassSetDelClick(Sender: TObject; X, Y: Integer);
procedure DStoragePassDirectPaint(Sender: TObject;
dsurface: TDirectDrawSurface);
procedure DStoragePassKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DStoragePassSetCloseClick(Sender: TObject; X, Y: Integer);
procedure DStoragePassMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure DStoragePassOkClick(Sender: TObject; X, Y: Integer);
procedure DStoragePassDelClick(Sender: TObject; X, Y: Integer);
procedure DStoragePassCloseClick(Sender: TObject; X, Y: Integer);
procedure DStoragePassResetDirectPaint(Sender: TObject;
dsurface: TDirectDrawSurface);
procedure DStoragePassResetKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DStoragePassResetMouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
procedure DStoragePassResetOkClick(Sender: TObject; X, Y: Integer);
procedure DStoragePassResetDelClick(Sender: TObject; X, Y: Integer);
procedure DStoragePassResetCloseClick(Sender: TObject; X, Y: Integer);
procedure DItemStorePassResetClick(Sender: TObject; X, Y: Integer);
procedure DBankDirectPaint(Sender: TObject;
dsurface: TDirectDrawSurface);
procedure DBankGoldClick(Sender: TObject; X, Y: Integer);
procedure DBankSlotAddClick(Sender: TObject; X, Y: Integer);
procedure DBankCloseClick(Sender: TObject; X, Y: Integer);
procedure DBankPassSetClick(Sender: TObject; X, Y: Integer);
procedure DBankCell1DirectPaint(Sender: TObject;
dsurface: TDirectDrawSurface);
procedure DBankCell1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure DBankCell1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure DBankSlot1Click(Sender: TObject; X, Y: Integer);
procedure DBankSlot1DirectPaint(Sender: TObject;
dsurface: TDirectDrawSurface);
procedure DScrollBarDirectPaint(Sender: TObject;
dsurface: TDirectDrawSurface);
procedure DScrollBarMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure DScrollBarMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure DGDWarClick(Sender: TObject; X, Y: Integer);
procedure DGDCancelWarClick(Sender: TObject; X, Y: Integer);
procedure DAboutDirectPaint(Sender: TObject;
dsurface: TDirectDrawSurface);
procedure DAboutCloseClick(Sender: TObject; X, Y: Integer);
procedure DBotExpandClick(Sender: TObject; X, Y: Integer);
private
DlgTemp: TList;
magcur, magtop: integer;
EdDlgEdit: TEdit;
Memo: TMemo;
ViewDlgEdit: Boolean;
msglx, msgly: integer;
MenuTop: integer;
ShopMenuTop: integer;
MagKeyIcon, MagKeyCurKey: integer;
MagKeyMagName: string;
MagicPage: integer;
BlinkTime: longword;
BlinkCount: integer; //0..9
procedure HideAllControls;
procedure RestoreHideControls;
procedure PageChanged;
procedure DealItemReturnBag (mitem: TClientItem);
procedure DealZeroGold;
public
MaxLineHeight: Integer;
StatePage: integer;
HelpPage: integer;
MsgText: string;
DialogSize: integer;
{
m_n66C:Integer;
m_n688:Integer;
m_n6A4:Integer;
m_n6A8:Integer;
}
// m_Dicea:array[0..35] of Integer;
m_boMouseMove:Boolean;
m_nDiceCount:Integer;
m_boPlayDice:Boolean;
m_Dice:array[0..9] of TDiceInfo;
MerchantName: string;
MerchantFace: integer;
MDlgStr: string;
MDlgPoints: TList;
RequireAddPoints: Boolean;
SelectMenuStr: string;
LastestClickTime: longword;
SpotDlgMode: TSpotDlgMode;
MenuList: TList; //list of PTClientGoods
ShopMenuList: TList;
MenuIndex: integer;
ShopMenuIndex: integer;
GameShopMenuIndex: integer;
CurDetailItem: string;
AuctionMenuIndex: Integer;
GTListMenuIndex: Integer;
MenuTopLine: integer;
BoDetailMenu: Boolean;
BoStorageMenu: Boolean;
BoNoDisplayMaxDura: Boolean;
BoMakeDrugMenu: Boolean;
BoMakeGem:Boolean;
sMakeGemName:String;
NAHelps: TStringList;
NewAccountTitle: string;
DlgEditText: string;
UserState1: TUserStateInfo;
Guild: string;
GuildFlag: string;
GuildCommanderMode: Boolean;
GuildStrs: TStringList;
GuildStrs2: TStringList;
GuildNotice: TStringList;
GuildMembers: TStringList;
GuildTopLine: integer;
GuildEditHint: string;
GuildChats: TStringList;
BoGuildChat: Boolean;
FriendList: Array[0..1] of TList; //List of PTClientFriends
FriendIndex: Array[0..1] of Integer;
FriendPage: Integer;
FriendScreen: Byte; //0 = FriendList, 1 = BlackList
EdSalesEdit: TMemo;
EdMemo: TMemo;
EdMail: TMemo;
EdMailRead: TMemo;
BBSMemo: TMemo;
EdShopEdit: TMemo;
EnterPasswd: TEdit;
EdSetPasswd: TEdit;
EdSetConfirm: TEdit;
EdOldPasswd: TEdit;
EdNewPasswd: TEdit;
EdConfirm: TEdit;
MailList: TList; //List of pTMailItem
BlockList: TList; //List of pTBlockItem
MailIndex: Integer;
BlockIndex: Integer;
MailPage: Integer;
BlockPage: Integer;
BBSSticky: integer;
LastBeltDoubleClick: integer;
procedure Initialize;
procedure DoBeltSetup;
procedure OpenMyStatus;
procedure OpenUserState (UserState: TUserStateInfo);
procedure OpenItemBag;
procedure ViewBottomBox (visible: Boolean);
procedure CancelItemMoving;
procedure DropMovingItem;
procedure OpenAdjustAbility;
procedure ShowSelectServerDlg;
function DMessageDlg (msgstr: string; DlgButtons: TMsgDlgButtons): TModalResult;
function DSimpleMessageDlg (msgstr: string; DlgButtons: TMsgDlgButtons): TModalResult;
function DCountMessageDlg (msgstr: string; DlgButtons: TMsgDlgButtons): TModalResult;
procedure ShowMDlg (face: integer; mname, msgstr: string);
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -