📄 fstate.pas
字号:
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 DFrdFriendDirectPaint(Sender: TObject;
dsurface: TDirectDrawSurface);
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);
private
DlgTemp: TList;
magcur, magtop: integer;
EdDlgEdit: TEdit;
Memo: TMemo;
ViewDlgEdit: Boolean;
msglx, msgly: integer;
MenuTop: 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;
procedure OpenSoundOption;
public
StatePage: 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_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
MenuIndex: integer;
CurDetailItem: string;
MenuTopLine: integer;
BoDetailMenu: Boolean;
BoStorageMenu: Boolean;
BoNoDisplayMaxDura: Boolean;
BoMakeDrugMenu: Boolean;
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;
procedure Initialize;
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;
procedure ShowMDlg (face: integer; mname, msgstr: string);
procedure ShowGuildDlg;
procedure ShowGuildEditNotice;
procedure ShowGuildEditGrade;
procedure ResetMenuDlg;
procedure ShowShopMenuDlg;
procedure ShowShopSellDlg;
procedure CloseDSellDlg;
procedure CloseMDlg;
procedure ToggleShowGroupDlg;
procedure OpenDealDlg;
procedure CloseDealDlg;
procedure OpenFriendDlg;
procedure SoldOutGoods (itemserverindex: integer);
procedure DelStorageItem (itemserverindex: integer);
procedure GetMouseItemInfo (var iname, line1, line2, line3: string; var useable: boolean);
procedure SetMagicKeyDlg (icon: integer; magname: string; var curkey: word);
procedure AddGuildChat (str: string);
end;
var
FrmDlg: TFrmDlg;
implementation
uses
ClMain, MShare, Share, SDK;
{$R *.DFM}
{
## MovingItem.Index
1~n : 啊规芒狼 酒捞袍 鉴辑
-1~-8 : 厘馒芒俊辑狼 酒捞袍 鉴辑
-97 : 背券芒狼 捣
-98 : 捣
-99 : 迫扁 芒俊辑狼 酒捞袍 鉴辑
-20~29: 背券芒俊辑狼 酒捞袍 鉴辑
}
procedure TFrmDlg.FormCreate(Sender: TObject);
begin
StatePage := 0;
DlgTemp := TList.Create;
DialogSize := 1; //扁夯 农扁
m_nDiceCount:=0;
m_boPlayDice:=False;
magcur := 0;
magtop := 0;
MDlgPoints := TList.Create;
SelectMenuStr := '';
MenuList := TList.Create;
MenuIndex := -1;
MenuTopLine := 0;
BoDetailMenu := FALSE;
BoStorageMenu := FALSE;
BoNoDisplayMaxDura := FALSE;
BoMakeDrugMenu := FALSE;
MagicPage := 0;
NAHelps := TStringList.Create;
BlinkTime := GetTickCount;
BlinkCount := 0;
g_SellDlgItem.S.Name := '';
Guild := '';
GuildFlag := '';
GuildCommanderMode := FALSE;
GuildStrs := TStringList.Create;
GuildStrs2 := TStringList.Create; //归诀侩
GuildNotice := TStringList.Create;
GuildMembers := TStringList.Create;
GuildChats := TStringList.Create;
EdDlgEdit := TEdit.Create (FrmMain.Owner);
with EdDlgEdit do begin
Parent := FrmMain;
Color := clBlack;
Font.Color := clWhite;
Font.Size := 10;
MaxLength := 30;
Height := 16;
Ctl3d := FALSE;
BorderStyle := bsSingle; {OnKeyPress := EdDlgEditKeyPress;}
Visible := FALSE;
end;
Memo := TMemo.Create (FrmMain.Owner);
with Memo do begin
Parent := FrmMain;
Color := clBlack;
Font.Color := clWhite;
Font.Size := 10;
Ctl3d := FALSE;
BorderStyle := bsSingle; {OnKeyPress := EdDlgEditKeyPress;}
Visible := FALSE;
end;
end;
procedure TFrmDlg.FormDestroy(Sender: TObject);
begin
DlgTemp.Free;
MDlgPoints.Free; //埃窜洒..
MenuList.Free;
NAHelps.Free;
GuildStrs.Free;
GuildStrs2.Free;
GuildNotice.Free;
GuildMembers.Free;
GuildChats.Free;
end;
procedure TFrmDlg.HideAllControls;
var
i: integer;
c: TControl;
begin
DlgTemp.Clear;
with FrmMain do
for i:=0 to ControlCount-11 do begin
c := Controls[i];
if c is TEdit then
if (c.Visible) and (c <> EdDlgEdit) then begin
DlgTemp.Add (c);
c.Visible := FALSE;
end;
end;
end;
procedure TFrmDlg.RestoreHideControls;
var
i: integer;
c: TControl;
begin
for i:=0 to DlgTemp.Count-1 do begin
TControl(DlgTemp[i]).Visible := TRUE;
end;
end;
procedure TFrmDlg.Initialize; //初始化所有对话框
var
i: integer;
d: TDirectDrawSurface;
begin
g_DWinMan.ClearAll;
DBackground.Left := 0;
DBackground.Top := 0;
DBackground.Width := SCREENWIDTH;
DBackground.Height := SCREENHEIGHT;
DBackground.Background := TRUE;
g_DWinMan.AddDControl (DBackground, TRUE);
{-----------------------------------------------------------}
//通用对话框
d := g_WMainImages.Images[360];
if d <> nil then begin
DMsgDlg.SetImgIndex (g_WMainImages, 360);
DMsgDlg.Left := (SCREENWIDTH - d.Width) div 2;
DMsgDlg.Top := (SCREENHEIGHT - d.Height) div 2;
end;
DMsgDlgOk.SetImgIndex (g_WMainImages, 361);
DMsgDlgYes.SetImgIndex (g_WMainImages, 363);
DMsgDlgCancel.SetImgIndex (g_WMainImages, 365);
DMsgDlgNo.SetImgIndex (g_WMainImages, 367);
DMsgDlgOk.Top := 126;
DMsgDlgYes.Top := 126;
DMsgDlgCancel.Top := 126;
DMsgDlgNo.Top := 126;
{-----------------------------------------------------------}
//登录对话框
d := g_WMainImages.Images[174];
if d <> nil then begin
// DLogIn.SetImgIndex (g_WMainImages, 174);
DLogIn.Left := 0;
DLogIn.Top := 0;
end;
DLoginNew.SetImgIndex (g_WMainImages, 61);
DLoginNew.Left := 447;
DLoginNew.Top := 558;
DLoginOk.SetImgIndex (g_WMainImages, 62);
DLoginOk.Left := 90;
DLoginOk.Top := 558;
DLoginChgPw.SetImgIndex (g_WMainImages, 53);
DLoginChgPw.Left := 268;
DLoginChgPw.Top := 558;
DLoginClose.SetImgIndex (g_WMainImages, 64);
DLoginClose.Left := 613;
DLoginClose.Top := 558;
{-----------------------------------------------------------}
//服务器选择窗口 韩文对话框
if not EnglishVersion then begin
d := g_WMainImages.Images[160]; //81];
if d <> nil then begin
DSelServerDlg.SetImgIndex (g_WMainImages, 160);
DSelServerDlg.Left := (SCREENWIDTH - d.Width) div 2;
DSelServerDlg.Top := (SCREENHEIGHT - d.Height) div 2;
end;
DSSrvClose.SetImgIndex (g_WMainImages, 64);
DSSrvClose.Left := 448;
DSSrvClose.Top := 33;
DSServer1.SetImgIndex (g_WMainImages, 161); //82);
DSServer1.Left := 134;
DSServer1.Top := 102;
DSServer2.SetImgIndex (g_WMainImages, 162); //83);
DSServer2.Left := 236;
DSServer2.Top := 101;
DSServer3.SetImgIndex (g_WMainImages, 163);
DSServer3.Left := 87;
DSServer3.Top := 190;
DSServer4.SetImgIndex (g_WMainImages, 164);
DSServer4.Left := 280;
DSServer4.Top := 190;
DSServer5.SetImgIndex (g_WMainImages, 165);
DSServer5.Left := 134;
DSServer5.Top := 280;
DSServer6.SetImgIndex (g_WMainImages, 166);
DSServer6.Left := 236;
DSServer6.Top := 280;
DEngServer1.Visible := FALSE;
end else begin
//英(中)文对话框：选择服务器
d := g_WMainImages.Images[256]; //81];
if d <> nil then begin
DSelServerDlg.SetImgIndex (g_WMainImages, 256);
DSelServerDlg.Left := (SCREENWIDTH - d.Width) div 2;
DSelServerDlg.Top := (SCREENHEIGHT - d.Height) div 2;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -