viewlist.pas

大名鼎鼎的BLUE M2源码,非了好大的劲搞来的,修改日期是080514,需要的朋友可以拿去研究,呵呵,M2界的领头老大.

unit ViewList;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TfrmViewList=class(TForm)
    PageControlGameManageList: TPageControl;
    TabSheet20: TTabSheet;
    PageControlGameManage: TPageControl;
    TabSheet22: TTabSheet;
    TabSheet23: TTabSheet;
    TabSheet24: TTabSheet;
    TabSheet25: TTabSheet;
    GroupBox12: TGroupBox;
    ListBoxAdminList: TListBox;
    GroupBox15: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    LabelAdminIPaddr: TLabel;
    EditAdminName: TEdit;
    EditAdminPremission: TSpinEdit;
    ButtonAdminListAdd: TButton;
    ButtonAdminListChange: TButton;
    ButtonAdminListDel: TButton;
    EditAdminIPaddr: TEdit;
    GroupBox5: TGroupBox;
    ListBoxDisableMoveMap: TListBox;
    GroupBox6: TGroupBox;
    ListBoxMapList: TListBox;
    ButtonDisableMoveMapAdd: TButton;
    ButtonDisableMoveMapDelete: TButton;
    ButtonDisableMoveMapAddAll: TButton;
    ButtonDisableMoveMapDeleteAll: TButton;
    ButtonDisableMoveMapSave: TButton;
    GridItemBindAccount: TStringGrid;
    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;
    ButtonAdminLitsSave: TButton;
    GroupBox8: TGroupBox;
    ListBoxGameLogList: TListBox;
    GroupBox9: TGroupBox;
    ListBoxLogItemList: TListBox;
    ButtonGameLogAdd: TButton;
    ButtonGameLogDel: TButton;
    ButtonGameLogAddAll: TButton;
    ButtonGameLogDelAll: TButton;
    ButtonGameLogSave: TButton;
    TabSheet3: TTabSheet;
    GridItemBindCharName: TStringGrid;
    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;
    TabSheet5: TTabSheet;
    GridItemBindIPaddr: TStringGrid;
    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;
    TabSheet6: TTabSheet;
    GroupBox13: TGroupBox;
    ListBoxNoClearMonList: TListBox;
    GroupBox14: TGroupBox;
    ListBoxMonList: TListBox;
    ButtonNoClearMonAdd: TButton;
    ButtonNoClearMonDel: TButton;
    ButtonNoClearMonAddAll: TButton;
    ButtonNoClearMonDelAll: TButton;
    ButtonNoClearMonSave: TButton;
    TabSheetMonDrop: TTabSheet;
    GroupBox7: TGroupBox;
    Label29: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label22: TLabel;
    ButtonMonDropLimitSave: TButton;
    EditDropCount: TSpinEdit;
    EditCountLimit: TSpinEdit;
    EditNoDropCount: TSpinEdit;
    EditItemName: TEdit;
    ButtonMonDropLimitAdd: TButton;
    ButtonMonDropLimitRef: TButton;
    ButtonMonDropLimitDel: TButton;
    EditClearTime: TSpinEdit;
    StringGridMonDropLimit: TStringGrid;
    TabSheet8: TTabSheet;
    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;
    GridItemNameList: TStringGrid;
    TabSheet7: TTabSheet;
    GroupBox2: TGroupBox;
    ListBoxServerItemList: TListBox;
    GroupBox4: TGroupBox;
    ListBoxLimitItemList: TListBox;
    GroupBox11: TGroupBox;
    EditLimitItemName: TEdit;
    Label24: TLabel;
    EditLimitItemIndex: TEdit;
    Label25: TLabel;
    GroupBoxLimitItem: TGroupBox;
    CheckBoxAllowMake: TCheckBox;
    CheckBoxDisableMake: TCheckBox;
    CheckBoxDisableDrop: TCheckBox;
    CheckBoxDisableDeal: TCheckBox;
    CheckBoxDisableUpgrade: TCheckBox;
    CheckBoxDisableStorage: TCheckBox;
    CheckBoxDispearOnLogon: TCheckBox;
    CheckBoxDisableTakeOff: TCheckBox;
    CheckBoxAllowSellOff: TCheckBox;
    CheckBoxDisableSell: TCheckBox;
    ButtonItemLimitAdd: TButton;
    ButtonItemLimitDelete: TButton;
    ButtonItemLimitSave: TButton;
    ButtonItemLimitChange: TButton;
    ButtonItemLimitAddAll: TButton;
    ButtonItemLimitDeleteAll: TButton;
    CheckBoxDisableRepair: TCheckBox;
    BitBtnSelectAll: TBitBtn;
    BitBtnUnSelectAll: TBitBtn;
    PopupMenuFindItemName: TPopupMenu;
    PopupMenu_FINDITEMBYNAME: TMenuItem;
    CheckBoxDieDropWithOutFail: TCheckBox;
    CheckBoxAbleDropInSafeZone: TCheckBox;
    CheckBox2: TCheckBox;
    TabSheetOther: TTabSheet;
    PageControl1: TPageControl;
    TabSheetQueryValeFilter: TTabSheet;
    GroupBox1: TGroupBox;
    ListBoxQueryValueFilter: TListBox;
    GroupBoxGuildRankNameFilter: TGroupBox;
    ListBoxGuildRankNameFilter: TListBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    CheckBox9: TCheckBox;
    CheckBoxdCustomName: TCheckBox;
    ButtonQVFilterAdd: TButton;
    ButtonQVFilterDel: TButton;
    ButtonQVFilterMod: TButton;
    ButtonQVFilterSave: TButton;
    ButtonGuildRankNameFilterAdd: TButton;
    ButtonGuildRankNameFilterDel: TButton;
    ButtonGuildRankNameFilterMob: TButton;
    ButtonGuildRankNameFilterSave: TButton;
    TabSheet2: TTabSheet;
    GroupBox3: TGroupBox;
    ListBoxItemList: TListBox;
    GroupBox10: TGroupBox;
    ListBoxPetPickUpItemList: TListBox;
    ButtonPetPickUpItemAdd: TButton;
    ButtonPetPickUpItemDel: TButton;
    ButtonPetPickUpItemAddAll: TButton;
    ButtonPetPickUpItemDelAll: TButton;
    ButtonPetPickUpItemSave: TButton;
    TabSheet4: TTabSheet;
    GroupBox20: TGroupBox;
    ListBoxUpgradeItemList: TListBox;
    GroupBox21: TGroupBox;
    ListBoxItemListAll: TListBox;
    ButtonUpgradeItemAdd: TButton;
    ButtonUpgradeItemDel: TButton;
    ButtonUpgradeItemAddAll: TButton;
    ButtonUpgradeItemDelAll: TButton;
    ButtonUpgradeItemSave: TButton;
    TabSheet9: TTabSheet;
    GroupBoxUserCmd: TGroupBox;
    Label26: TLabel;
    Label27: TLabel;
    ListBoxUserCmd: TListBox;
    EditUserCmd: TEdit;
    SpinEditUserCmd: TSpinEdit;
    ButtonUserCmdAdd: TButton;
    ButtonUserCmdDel: TButton;
    ButtonUserCmdSav: TButton;
    TabSheet1: TTabSheet;
    ListViewSaleItem: TListView;
    GroupBox22: TGroupBox;
    ListBoxSaleItemList: TListBox;
    EditSaleItemName: TEdit;
    Label28: TLabel;
    Label30: TLabel;
    EditSaleItemPrice: TSpinEdit;
    MemoItemDes: TEdit;
    Label31: TLabel;
    btnSaleItemAdd: TButton;
    btnSaleItemDel: TButton;
    btnSaleItemSave: TButton;
    btnReloadSaleItemList: TButton;
    Label23: TLabel;
    TabSheet10: TTabSheet;
    GroupBox23: TGroupBox;
    ListBoxShopItemList: TListBox;
    btnShopItemDel: TButton;
    btnReloadShopItemList: TButton;
    btnShopItemSave: TButton;
    btnShopItemAdd: TButton;
    EditShopItemName: TEdit;
    EditShopItemPrice: TSpinEdit;
    EditShopItemDetail: TEdit;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    SpinEditShopItemIdx1: TSpinEdit;
    Label35: TLabel;
    SpinEditShopItemIdx2: TSpinEdit;
    Label36: TLabel;
    SpinEditShopItemIdx3: TSpinEdit;
    Label37: TLabel;
    ListViewShopItemList: TListView;
    Label38: TLabel;
    SpinEditShopItemType: TSpinEdit;
    TabSheet11: TTabSheet;
    ListViewSuite: TListView;
    GroupBox24: TGroupBox;
    EditSuiteMaxHP: TSpinEdit;
    Label41: TLabel;
    EditSuiteMaxMP: TSpinEdit;
    Label42: TLabel;
    EditSubMCRate: TSpinEdit;
    EditSubDCRate: TSpinEdit;
    Label43: TLabel;
    Label44: TLabel;
    EditSubSCRate: TSpinEdit;
    Label45: TLabel;
    EditSubACRate: TSpinEdit;
    Label46: TLabel;
    Label47: TLabel;