?? viewlist.~pas
字號:
unit ViewList;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, Grids, Spin,Grobal2;
type
TfrmViewList = class(TForm)
PageControlViewList: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
TabSheet5: TTabSheet;
TabSheet6: TTabSheet;
TabSheet7: TTabSheet;
GroupBox2: TGroupBox;
ListBoxItemList: TListBox;
GroupBox1: TGroupBox;
ListBoxEnableMakeList: TListBox;
ButtonEnableMakeAdd: TButton;
ButtonEnableMakeDelete: TButton;
ButtonEnableMakeSave: TButton;
GroupBox3: TGroupBox;
ListBoxDisableMakeList: TListBox;
GroupBox4: TGroupBox;
ListBoxitemList1: TListBox;
ButtonDisableMakeAdd: TButton;
ButtonDisableMakeDelete: TButton;
ButtonDisableMakeSave: TButton;
ButtonEnableMakeAddAll: TButton;
ButtonEnableMakeDeleteAll: TButton;
ButtonDisableMakeAddAll: TButton;
ButtonDisableMakeDeleteAll: TButton;
GridItemBindAccount: TStringGrid;
GridItemBindCharName: TStringGrid;
GridItemBindIPaddr: TStringGrid;
GroupBox5: TGroupBox;
ListBoxDisableMoveMap: TListBox;
ButtonDisableMoveMapAdd: TButton;
ButtonDisableMoveMapDelete: TButton;
ButtonDisableMoveMapAddAll: TButton;
ButtonDisableMoveMapDeleteAll: TButton;
ButtonDisableMoveMapSave: TButton;
GroupBox6: TGroupBox;
ListBoxMapList: TListBox;
TabSheetMonDrop: TTabSheet;
StringGridMonDropLimit: TStringGrid;
GroupBox7: TGroupBox;
ButtonMonDropLimitSave: TButton;
Label29: TLabel;
EditDropCount: TSpinEdit;
Label1: TLabel;
EditCountLimit: TSpinEdit;
EditNoDropCount: TSpinEdit;
Label2: TLabel;
Label3: TLabel;
EditItemName: TEdit;
TabSheet8: TTabSheet;
GroupBox8: TGroupBox;
ListBoxGameLogList: TListBox;
ButtonGameLogAdd: TButton;
ButtonGameLogDel: TButton;
ButtonGameLogAddAll: TButton;
ButtonGameLogDelAll: TButton;
ButtonGameLogSave: TButton;
GroupBox9: TGroupBox;
ListBoxitemList2: TListBox;
TabSheet9: TTabSheet;
GroupBox10: TGroupBox;
ListBoxDisableTakeOffList: TListBox;
ButtonDisableTakeOffAdd: TButton;
ButtonDisableTakeOffDel: TButton;
ButtonDisableTakeOffAddAll: TButton;
ButtonDisableTakeOffDelAll: TButton;
ButtonDisableTakeOffSave: TButton;
GroupBox11: TGroupBox;
ListBoxitemList3: TListBox;
TabSheet10: TTabSheet;
GroupBox12: TGroupBox;
ListBoxAdminList: TListBox;
TabSheet11: TTabSheet;
GroupBox13: TGroupBox;
ListBoxNoClearMonList: TListBox;
ButtonNoClearMonAdd: TButton;
ButtonNoClearMonDel: TButton;
ButtonNoClearMonAddAll: TButton;
ButtonNoClearMonDelAll: TButton;
ButtonNoClearMonSave: TButton;
GroupBox14: TGroupBox;
ListBoxMonList: TListBox;
GroupBox15: TGroupBox;
Label4: TLabel;
EditAdminName: TEdit;
EditAdminPremission: TSpinEdit;
Label5: TLabel;
ButtonAdminListAdd: TButton;
ButtonAdminListChange: TButton;
ButtonAdminListDel: TButton;
ButtonAdminLitsSave: TButton;
ButtonMonDropLimitAdd: TButton;
ButtonMonDropLimitRef: TButton;
ButtonMonDropLimitDel: TButton;
GroupBox16: TGroupBox;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
ButtonItemBindAcountMod: TButton;
EditItemBindAccountItemIdx: TSpinEdit;
EditItemBindAccountItemMakeIdx: TSpinEdit;
EditItemBindAccountItemName: TEdit;
ButtonItemBindAcountAdd: TButton;
ButtonItemBindAcountRef: TButton;
ButtonItemBindAcountDel: TButton;
EditItemBindAccountName: TEdit;
GroupBox17: TGroupBox;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
ButtonItemBindCharNameMod: TButton;
EditItemBindCharNameItemIdx: TSpinEdit;
EditItemBindCharNameItemMakeIdx: TSpinEdit;
EditItemBindCharNameItemName: TEdit;
ButtonItemBindCharNameAdd: TButton;
ButtonItemBindCharNameRef: TButton;
ButtonItemBindCharNameDel: TButton;
EditItemBindCharNameName: TEdit;
GroupBox18: TGroupBox;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
ButtonItemBindIPaddrMod: TButton;
EditItemBindIPaddrItemIdx: TSpinEdit;
EditItemBindIPaddrItemMakeIdx: TSpinEdit;
EditItemBindIPaddrItemName: TEdit;
ButtonItemBindIPaddrAdd: TButton;
ButtonItemBindIPaddrRef: TButton;
ButtonItemBindIPaddrDel: TButton;
EditItemBindIPaddrName: TEdit;
TabSheet12: TTabSheet;
GridItemNameList: TStringGrid;
GroupBox19: TGroupBox;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
ButtonItemNameMod: TButton;
EditItemNameIdx: TSpinEdit;
EditItemNameMakeIndex: TSpinEdit;
EditItemNameOldName: TEdit;
ButtonItemNameAdd: TButton;
ButtonItemNameRef: TButton;
ButtonItemNameDel: TButton;
EditItemNameNewName: TEdit;
LabelAdminIPaddr: TLabel;
EditAdminIPaddr: TEdit;
procedure FormCreate(Sender: TObject);
procedure ListBoxItemListClick(Sender: TObject);
procedure ListBoxEnableMakeListClick(Sender: TObject);
procedure ButtonEnableMakeAddClick(Sender: TObject);
procedure ButtonEnableMakeDeleteClick(Sender: TObject);
procedure ButtonEnableMakeSaveClick(Sender: TObject);
procedure ButtonDisableMakeAddAllClick(Sender: TObject);
procedure ButtonDisableMakeDeleteAllClick(Sender: TObject);
procedure ButtonEnableMakeAddAllClick(Sender: TObject);
procedure ButtonEnableMakeDeleteAllClick(Sender: TObject);
procedure ListBoxitemList1Click(Sender: TObject);
procedure ListBoxDisableMakeListClick(Sender: TObject);
procedure ButtonDisableMakeAddClick(Sender: TObject);
procedure ButtonDisableMakeDeleteClick(Sender: TObject);
procedure ButtonDisableMakeSaveClick(Sender: TObject);
procedure ButtonDisableMoveMapAddClick(Sender: TObject);
procedure ButtonDisableMoveMapDeleteClick(Sender: TObject);
procedure ButtonDisableMoveMapAddAllClick(Sender: TObject);
procedure ButtonDisableMoveMapSaveClick(Sender: TObject);
procedure ButtonDisableMoveMapDeleteAllClick(Sender: TObject);
procedure ListBoxMapListClick(Sender: TObject);
procedure ListBoxDisableMoveMapClick(Sender: TObject);
procedure ButtonMonDropLimitRefClick(Sender: TObject);
procedure StringGridMonDropLimitClick(Sender: TObject);
procedure EditDropCountChange(Sender: TObject);
procedure EditCountLimitChange(Sender: TObject);
procedure EditNoDropCountChange(Sender: TObject);
procedure ButtonMonDropLimitSaveClick(Sender: TObject);
procedure ListBoxGameLogListClick(Sender: TObject);
procedure ListBoxitemList2Click(Sender: TObject);
procedure ButtonGameLogAddClick(Sender: TObject);
procedure ButtonGameLogDelClick(Sender: TObject);
procedure ButtonGameLogAddAllClick(Sender: TObject);
procedure ButtonGameLogDelAllClick(Sender: TObject);
procedure ButtonGameLogSaveClick(Sender: TObject);
procedure ButtonDisableTakeOffAddClick(Sender: TObject);
procedure ButtonDisableTakeOffDelClick(Sender: TObject);
procedure ListBoxDisableTakeOffListClick(Sender: TObject);
procedure ListBoxitemList3Click(Sender: TObject);
procedure ButtonDisableTakeOffAddAllClick(Sender: TObject);
procedure ButtonDisableTakeOffDelAllClick(Sender: TObject);
procedure ButtonDisableTakeOffSaveClick(Sender: TObject);
procedure ButtonNoClearMonAddClick(Sender: TObject);
procedure ButtonNoClearMonDelClick(Sender: TObject);
procedure ButtonNoClearMonAddAllClick(Sender: TObject);
procedure ButtonNoClearMonDelAllClick(Sender: TObject);
procedure ButtonNoClearMonSaveClick(Sender: TObject);
procedure ListBoxNoClearMonListClick(Sender: TObject);
procedure ListBoxMonListClick(Sender: TObject);
procedure ButtonAdminLitsSaveClick(Sender: TObject);
procedure ListBoxAdminListClick(Sender: TObject);
procedure ButtonAdminListChangeClick(Sender: TObject);
procedure ButtonAdminListAddClick(Sender: TObject);
procedure ButtonAdminListDelClick(Sender: TObject);
procedure ButtonMonDropLimitAddClick(Sender: TObject);
procedure ButtonMonDropLimitDelClick(Sender: TObject);
procedure GridItemBindAccountClick(Sender: TObject);
procedure EditItemBindAccountItemIdxChange(Sender: TObject);
procedure EditItemBindAccountItemMakeIdxChange(Sender: TObject);
procedure ButtonItemBindAcountModClick(Sender: TObject);
procedure EditItemBindAccountNameChange(Sender: TObject);
procedure ButtonItemBindAcountRefClick(Sender: TObject);
procedure ButtonItemBindAcountAddClick(Sender: TObject);
procedure ButtonItemBindAcountDelClick(Sender: TObject);
procedure GridItemBindCharNameClick(Sender: TObject);
procedure EditItemBindCharNameItemIdxChange(Sender: TObject);
procedure EditItemBindCharNameItemMakeIdxChange(Sender: TObject);
procedure EditItemBindCharNameNameChange(Sender: TObject);
procedure ButtonItemBindCharNameAddClick(Sender: TObject);
procedure ButtonItemBindCharNameModClick(Sender: TObject);
procedure ButtonItemBindCharNameDelClick(Sender: TObject);
procedure ButtonItemBindCharNameRefClick(Sender: TObject);
procedure GridItemBindIPaddrClick(Sender: TObject);
procedure EditItemBindIPaddrItemIdxChange(Sender: TObject);
procedure EditItemBindIPaddrItemMakeIdxChange(Sender: TObject);
procedure EditItemBindIPaddrNameChange(Sender: TObject);
procedure ButtonItemBindIPaddrAddClick(Sender: TObject);
procedure ButtonItemBindIPaddrModClick(Sender: TObject);
procedure ButtonItemBindIPaddrDelClick(Sender: TObject);
procedure ButtonItemBindIPaddrRefClick(Sender: TObject);
procedure EditItemNameIdxChange(Sender: TObject);
procedure EditItemNameMakeIndexChange(Sender: TObject);
procedure EditItemNameNewNameChange(Sender: TObject);
procedure ButtonItemNameAddClick(Sender: TObject);
procedure ButtonItemNameModClick(Sender: TObject);
procedure ButtonItemNameDelClick(Sender: TObject);
procedure GridItemNameListClick(Sender: TObject);
procedure ButtonItemNameRefClick(Sender: TObject);
private
boOpened:Boolean;
boModValued:Boolean;
procedure ModValue();
procedure uModValue();
procedure RefMonDropLimit();
procedure RefAdminList;
procedure RefNoClearMonList();
procedure RefItemBindAccount();
procedure RefItemBindCharName();
procedure RefItemBindIPaddr();
procedure RefItemCustomNameList();
{ Private declarations }
public
procedure Open();
{ Public declarations }
end;
var
frmViewList: TfrmViewList;
implementation
uses M2Share, UsrEngn, Envir, HUtil32, LocalDB;
{$R *.dfm}
{ TfrmViewList }
procedure TfrmViewList.ModValue;
begin
boModValued:=True;
ButtonEnableMakeSave.Enabled:=True;
ButtonDisableMakeSave.Enabled:=True;
ButtonDisableMoveMapSave.Enabled:=True;
ButtonGameLogSave.Enabled:=True;
ButtonDisableTakeOffSave.Enabled:=True;
ButtonNoClearMonSave.Enabled:=True;
end;
procedure TfrmViewList.uModValue;
begin
boModValued:=False;
ButtonEnableMakeSave.Enabled:=False;
ButtonDisableMakeSave.Enabled:=False;
ButtonDisableMoveMapSave.Enabled:=False;
ButtonGameLogSave.Enabled:=False;
ButtonDisableTakeOffSave.Enabled:=False;
ButtonNoClearMonSave.Enabled:=False;
end;
procedure TfrmViewList.Open;
var
I: Integer;
StdItem:pTStdItem;
Envir:TEnvirnoment;
begin
boOpened:=False;
uModValue();
ListBoxDisableMakeList.Items.Clear;
ListBoxEnableMakeList.Items.Clear;
ListBoxItemList.Items.Clear;
ListBoxItemList1.Items.Clear;
EnterCriticalSection(ProcessHumanCriticalSection);
try
ListBoxitemList2.Items.AddObject(g_sHumanDieEvent,TObject(nil));
ListBoxitemList2.Items.AddObject(sSTRING_GOLDNAME,TObject(nil));
ListBoxitemList2.Items.AddObject(g_Config.sGameGoldName,TObject(nil));
ListBoxitemList2.Items.AddObject(g_Config.sGamePointName,TObject(nil));
for I := 0 to UserEngine.StdItemList.Count - 1 do begin
StdItem:=UserEngine.StdItemList.Items[I];
ListBoxItemList.Items.AddObject(StdItem.Name,TObject(StdItem));
ListBoxitemList1.Items.AddObject(StdItem.Name,TObject(StdItem));
ListBoxitemList2.Items.AddObject(StdItem.Name,TObject(StdItem));
ListBoxitemList3.Items.AddObject(StdItem.Name,TObject(I));
end;
finally
LeaveCriticalSection(ProcessHumanCriticalSection);
end;
for I := 0 to g_MapManager.Count - 1 do begin
Envir:=TEnvirnoment(g_MapManager.Items[I]);
ListBoxMapList.Items.Add(Envir.sMapName);
end;
g_EnableMakeItemList.Lock;
try
for I := 0 to g_EnableMakeItemList.Count - 1 do begin
ListBoxEnableMakeList.Items.Add(g_EnableMakeItemList.Strings[I]);
end;
finally
g_EnableMakeItemList.UnLock;
end;
g_DisableMakeItemList.Lock;
try
for I := 0 to g_DisableMakeItemList.Count - 1 do begin
ListBoxDisableMakeList.Items.Add(g_DisableMakeItemList.Strings[I]);
end;
finally
g_DisableMakeItemList.UnLock;
end;
g_GameLogItemNameList.Lock;
try
for I := 0 to g_GameLogItemNameList.Count - 1 do begin
ListBoxGameLogList.Items.Add(g_GameLogItemNameList.Strings[I]);
end;
finally
g_GameLogItemNameList.UnLock;
end;
g_DisableTakeOffList.Lock;
try
for I := 0 to g_DisableTakeOffList.Count - 1 do begin
ListBoxDisableTakeOffList.Items.AddObject(IntToStr(Integer(g_DisableTakeOffList.Objects[I])) + ' ' + g_DisableTakeOffList.Strings[I],g_DisableTakeOffList.Objects[I]);
end;
finally
g_DisableTakeOffList.UnLock;
end;
g_DisableMoveMapList.Lock;
try
for I := 0 to g_DisableMoveMapList.Count - 1 do begin
ListBoxDisableMoveMap.Items.Add(g_DisableMoveMapList.Strings[I]);
end;
finally
g_DisableMoveMapList.UnLock;
end;
RefItemBindAccount();
RefItemBindCharName();
RefItemBindIPaddr();
RefMonDropLimit();
RefAdminList();
RefNoClearMonList();
RefItemCustomNameList();
boOpened:=True;
PageControlViewList.ActivePageIndex:=0;
ShowModal;
end;
procedure TfrmViewList.FormCreate(Sender: TObject);
begin
GridItemBindAccount.Cells[0,0]:='物品名稱';
GridItemBindAccount.Cells[1,0]:='物品IDX';
GridItemBindAccount.Cells[2,0]:='物品系列號';
GridItemBindAccount.Cells[3,0]:='綁定帳號';
GridItemBindCharName.Cells[0,0]:='物品名稱';
GridItemBindCharName.Cells[1,0]:='物品IDX';
GridItemBindCharName.Cells[2,0]:='物品系列號';
GridItemBindCharName.Cells[3,0]:='綁定人物';
GridItemBindIPaddr.Cells[0,0]:='物品名稱';
GridItemBindIPaddr.Cells[1,0]:='物品IDX';
GridItemBindIPaddr.Cells[2,0]:='物品系列號';
GridItemBindIPaddr.Cells[3,0]:='綁定IP';
StringGridMonDropLimit.Cells[0,0]:='物品名稱';
StringGridMonDropLimit.Cells[1,0]:='爆數量';
StringGridMonDropLimit.Cells[2,0]:='限制數量';
StringGridMonDropLimit.Cells[3,0]:='未爆數量';
GridItemNameList.Cells[0,0]:='原始名稱';
GridItemNameList.Cells[1,0]:='物品編號';
GridItemNameList.Cells[2,0]:='自定義名稱';
TabSheetMonDrop.TabVisible:=True;
ButtonEnableMakeAdd.Enabled:=False;
ButtonEnableMakeDelete.Enabled:=False;
ButtonDisableMakeAdd.Enabled:=False;
ButtonDisableMakeDelete.Enabled:=False;
ButtonDisableMoveMapAdd.Enabled:=False;
ButtonDisableMoveMapDelete.Enabled:=False;
ButtonGameLogAdd.Enabled:=False;
ButtonGameLogDel.Enabled:=False;
ButtonNoClearMonAdd.Enabled:=False;
ButtonDisableTakeOffDel.Enabled:=False;
ButtonDisableTakeOffAdd.Enabled:=False;
ButtonNoClearMonDel.Enabled:=False;
{$IF SoftVersion = VERDEMO}
Caption:='查看列表信息[演示版本，所有設置調整有效，但不能保存]';
{$IFEND}
{$IF VEROWNER = WL}
EditAdminIPaddr.Visible := True;
LabelAdminIPaddr.Visible := True;
{$ELSE}
EditAdminIPaddr.Visible := False;
LabelAdminIPaddr.Visible := False;
{$IFEND}
end;
procedure TfrmViewList.ListBoxItemListClick(Sender: TObject);
begin
if not boOpened then exit;
if ListBoxItemList.ItemIndex >=0 then
ButtonEnableMakeAdd.Enabled:=True;
end;
procedure TfrmViewList.ListBoxEnableMakeListClick(Sender: TObject);
begin
if not boOpened then exit;
if ListBoxEnableMakeList.ItemIndex >=0 then
ButtonEnableMakeDelete.Enabled:=True;
end;
procedure TfrmViewList.ButtonEnableMakeAddClick(Sender: TObject);
var
I: Integer;
begin
if ListBoxItemList.ItemIndex >=0 then begin
for I := 0 to ListBoxEnableMakeList.Items.Count - 1 do begin
if ListBoxEnableMakeList.Items.Strings[I] = ListBoxItemList.Items.Strings[ListBoxItemList.ItemIndex] then begin
Application.MessageBox('此物品已在列表中！?。?#039;,'錯誤信息',MB_OK + MB_ICONERROR);
exit;
end;
end;
ListBoxEnableMakeList.Items.Add(ListBoxItemList.Items.Strings[ListBoxItemList.ItemIndex]);
ModValue();
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -