gameconfig.dfm

翎风世界..传奇服务端..DELPHI源代码 包括DBServer,LogDataServer,LoginGate,LoginSrv,M2Server等..内容齐全.

object frmGameConfig: TfrmGameConfig
  Left = 279
  Top = 318
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Game Configurations'
  ClientHeight = 361
  ClientWidth = 629
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '??'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  ShowHint = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 15
  object GameConfigControl: TPageControl
    Left = 10
    Top = 2
    Width = 611
    Height = 321
    ActivePage = GeneralSheet
    MultiLine = True
    TabOrder = 0
    OnChanging = GameConfigControlChanging
    object GeneralSheet: TTabSheet
      Caption = 'General'
      ImageIndex = 2
      object GroupBoxInfo: TGroupBox
        Left = 210
        Top = 66
        Width = 181
        Height = 55
        Caption = 'Version:'
        TabOrder = 0
        object Label16: TLabel
          Left = 10
          Top = 25
          Width = 48
          Height = 15
          Caption = 'Number:'
        end
        object EditSoftVersionDate: TEdit
          Left = 80
          Top = 20
          Width = 91
          Height = 23
          Hint = '?????????,???????????????????,????????????????????????'
          TabOrder = 0
          Text = '20020522'
          OnChange = EditSoftVersionDateChange
        end
      end
      object GroupBox5: TGroupBox
        Left = 210
        Top = 6
        Width = 181
        Height = 55
        Caption = 'Console show user count'
        TabOrder = 1
        object Label17: TLabel
          Left = 10
          Top = 25
          Width = 31
          Height = 15
          Caption = 'Time:'
        end
        object EditConsoleShowUserCountTime: TSpinEdit
          Left = 85
          Top = 20
          Width = 76
          Height = 24
          Hint = '????????????????'
          EditorEnabled = False
          Increment = 10
          MaxValue = 2000
          MinValue = 10
          TabOrder = 0
          Value = 10
          OnChange = EditConsoleShowUserCountTimeChange
        end
      end
      object GroupBox6: TGroupBox
        Left = 10
        Top = 126
        Width = 191
        Height = 125
        Caption = 'Line info notices'
        TabOrder = 2
        object Label18: TLabel
          Left = 10
          Top = 25
          Width = 31
          Height = 15
          Caption = 'Time:'
        end
        object Label19: TLabel
          Left = 10
          Top = 55
          Width = 33
          Height = 15
          Caption = 'Color:'
        end
        object Label21: TLabel
          Left = 10
          Top = 85
          Width = 33
          Height = 15
          Caption = 'Prefix:'
        end
        object EditShowLineNoticeTime: TSpinEdit
          Left = 80
          Top = 19
          Width = 71
          Height = 24
          Hint = '????????????????'
          EditorEnabled = False
          Increment = 10
          MaxValue = 2000
          MinValue = 10
          TabOrder = 0
          Value = 10
          OnChange = EditShowLineNoticeTimeChange
        end
        object ComboBoxLineNoticeColor: TComboBox
          Left = 80
          Top = 50
          Width = 71
          Height = 23
          Hint = '???????????'
          Style = csDropDownList
          ItemHeight = 15
          TabOrder = 1
          OnChange = ComboBoxLineNoticeColorChange
        end
        object EditLineNoticePreFix: TEdit
          Left = 80
          Top = 80
          Width = 91
          Height = 23
          MaxLength = 20
          TabOrder = 2
          Text = '????'
          OnChange = EditLineNoticePreFixChange
        end
      end
      object ButtonGeneralSave: TButton
        Left = 460
        Top = 206
        Width = 81
        Height = 32
        Caption = '&Save'
        TabOrder = 3
        OnClick = ButtonGeneralSaveClick
      end
      object GroupBox35: TGroupBox
        Left = 400
        Top = 0
        Width = 181
        Height = 111
        Caption = 'Messages'
        TabOrder = 4
        object CheckBoxShowMakeItemMsg: TCheckBox
          Left = 10
          Top = 18
          Width = 121
          Height = 21
          Caption = 'Show GM @Make'
          TabOrder = 0
          OnClick = CheckBoxShowMakeItemMsgClick
        end
        object CbViewHack: TCheckBox
          Left = 10
          Top = 38
          Width = 151
          Height = 21
          Caption = 'View hack attempts'
          TabOrder = 1
          OnClick = CbViewHackClick
        end
        object CkViewAdmfail: TCheckBox
          Left = 10
          Top = 58
          Width = 121
          Height = 21
          Caption = 'View admin fail'
          TabOrder = 2
          OnClick = CkViewAdmfailClick
        end
        object CheckBoxShowExceptionMsg: TCheckBox
          Left = 10
          Top = 78
          Width = 151
          Height = 21
          Caption = 'Show exception msgs'
          TabOrder = 3
          OnClick = CheckBoxShowExceptionMsgClick
        end
      end
      object GroupBox51: TGroupBox
        Left = 10
        Top = 6
        Width = 191
        Height = 115
        Caption = 'Online count'
        TabOrder = 5
        object Label98: TLabel
          Left = 10
          Top = 45
          Width = 29
          Height = 15
          Caption = 'Rate:'
        end
        object Label99: TLabel
          Left = 10
          Top = 75
          Width = 42
          Height = 15
          Caption = 'Interval:'
        end
        object Label100: TLabel
          Left = 170
          Top = 75
          Width = 9
          Height = 15
          Caption = 'M'
        end
        object EditSendOnlineCountRate: TSpinEdit
          Left = 55
          Top = 40
          Width = 66
          Height = 24
          Hint = '????????????,???????10,???10????,11 ??1.1??'
          EditorEnabled = False
          MaxValue = 2000
          MinValue = 10
          TabOrder = 0
          Value = 10
          OnChange = EditSendOnlineCountRateChange
        end
        object EditSendOnlineTime: TSpinEdit
          Left = 85
          Top = 70
          Width = 76
          Height = 24
          Hint = '???????????'
          EditorEnabled = False
          Increment = 10
          MaxValue = 200000
          MinValue = 5
          TabOrder = 1
          Value = 10
          OnChange = EditSendOnlineTimeChange
        end
        object CheckBoxSendOnlineCount: TCheckBox
          Left = 10
          Top = 18
          Width = 111
          Height = 21
          Hint = '??????????????,???????????????????????'
          Caption = 'Send'
          TabOrder = 2
          OnClick = CheckBoxSendOnlineCountClick
        end
      end
      object GroupBox52: TGroupBox
        Left = 210
        Top = 130
        Width = 181
        Height = 121
        Caption = 'Power rates'
        TabOrder = 6
        object Label101: TLabel
          Left = 10
          Top = 25
          Width = 54
          Height = 15
          Caption = 'Monsters:'
        end
        object Label102: TLabel
          Left = 10
          Top = 55
          Width = 34
          Height = 15
          Caption = 'items:'
        end
        object Label103: TLabel
          Left = 10
          Top = 85
          Width = 19
          Height = 15
          Caption = 'AC:'
        end
        object EditMonsterPowerRate: TSpinEdit
          Left = 85
          Top = 20
          Width = 86
          Height = 24
          Hint = '??????(HP?MP?DC?MC?SC),???????????10?'
          EditorEnabled = False
          MaxValue = 20000
          MinValue = 1
          TabOrder = 0
          Value = 10
          OnChange = EditMonsterPowerRateChange
        end
        object EditEditItemsPowerRate: TSpinEdit
          Left = 85
          Top = 50
          Width = 86
          Height = 24
          Hint = '??????(DC?MC?SC),???????????10?'
          EditorEnabled = False
          MaxValue = 20000000
          MinValue = 1
          TabOrder = 1
          Value = 10
          OnChange = EditEditItemsPowerRateChange
        end
        object EditItemsACPowerRate: TSpinEdit
          Left = 85
          Top = 80
          Width = 86
          Height = 24
          Hint = '??????(AC?MAC??),???????????10?'
          EditorEnabled = False
          MaxValue = 2000
          MinValue = 1
          TabOrder = 2
          Value = 10
          OnChange = EditItemsACPowerRateChange
        end
      end
      object GroupBox73: TGroupBox
        Left = 400
        Top = 120
        Width = 181
        Height = 61
        Caption = 'Clients'
        TabOrder = 7
        object CheckBoxCanOldClientLogon: TCheckBox
          Left = 10
          Top = 20
          Width = 161
          Height = 21
          Hint = '??????????????,?????,???????,??????????????'
          Caption = 'Allow old clients'
          TabOrder = 0
          OnClick = CheckBoxCanOldClientLogonClick
        end
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'Options(1)'
      ImageIndex = 7
      object GroupBox28: TGroupBox
        Left = 10
        Top = 10
        Width = 151
        Height = 111
        Caption = 'Server modes'
        TabOrder = 0
        object CheckBoxTestServer: TCheckBox
          Left = 10
          Top = 18
          Width = 91
          Height = 21
          Hint = '????,?????,?????????????????'
          Caption = 'TestServer'
          TabOrder = 0
          OnClick = CheckBoxTestServerClick
        end
        object CheckBoxServiceMode: TCheckBox
          Left = 10
          Top = 38
          Width = 91
          Height = 21
          Hint = '????,?????????????'
          Caption = 'ServiceMode'
          TabOrder = 1
          OnClick = CheckBoxServiceModeClick
        end
        object CheckBoxVentureMode: TCheckBox
          Left = 10
          Top = 58
          Width = 101
          Height = 21
          Caption = 'VentureMode'
          TabOrder = 2
          OnClick = CheckBoxVentureModeClick
        end
        object CheckBoxNonPKMode: TCheckBox
          Left = 10
          Top = 78
          Width = 101
          Height = 21
          Caption = 'No pking'
          TabOrder = 3
          OnClick = CheckBoxNonPKModeClick
        end
      end
      object GroupBox29: TGroupBox
        Left = 10
        Top = 130
        Width = 181
        Height = 121
        Caption = 'TestServer mode:'
        TabOrder = 1
        object Label61: TLabel
          Left = 10
          Top = 25
          Width = 32
          Height = 15
          Caption = 'Level:'
        end
        object Label62: TLabel
          Left = 10
          Top = 55
          Width = 29
          Height = 15
          Caption = 'Gold:'
        end
        object Label63: TLabel
          Left = 10
          Top = 85
          Width = 57
          Height = 15
          Caption = 'UserLimit:'
        end
        object EditTestLevel: TSpinEdit
          Left = 85
          Top = 20
          Width = 86
          Height = 24
          Hint = '???????'
          MaxValue = 20000
          MinValue = 0
          TabOrder = 0
          Value = 10
          OnChange = EditTestLevelChange
          OnKeyDown = EditTestLevelKeyDown
        end
        object EditTestGold: TSpinEdit
          Left = 85
          Top = 50
          Width = 86
          Height = 24
          Hint = '????????????'
          Increment = 1000
          MaxValue = 20000000
          MinValue = 0
          TabOrder = 1
          Value = 10
          OnChange = EditTestGoldChange
        end
        object EditTestUserLimit: TSpinEdit
          Left = 85
          Top = 80
          Width = 86
          Height = 24
          Hint = '??????????????'
          Increment = 10
          MaxValue = 2000
          MinValue = 0
          TabOrder = 2
          Value = 10
          OnChange = EditTestUserLimitChange
        end
      end
      object GroupBox30: TGroupBox
        Left = 380
        Top = 10
        Width = 161
        Height = 171
        Caption = 'Start permission'
        TabOrder = 2
        object Label60: TLabel
          Left = 10
          Top = 25
          Width = 10
          Height = 15
          Caption = '#:'
        end
        object EditStartPermission: TSpinEdit
          Left = 85
          Top = 20
          Width = 66
          Height = 24
          Hint = '????????,???0?'
          EditorEnabled = False
          MaxValue = 10
          MinValue = 0
          TabOrder = 0
          Value = 10
          OnChange = EditStartPermissionChange
        end
      end
      object ButtonOptionSave0: TButton
        Left = 460
        Top = 226
        Width = 81
        Height = 32
        Caption = '&Save'
        TabOrder = 3
        OnClick = ButtonOptionSave0Click
      end
      object GroupBox31: TGroupBox
        Left = 200
        Top = 190
        Width = 131
        Height = 61
        Caption = 'User full:'
        TabOrder = 4
        object Label64: TLabel
          Left = 10
          Top = 25
          Width = 10
          Height = 15
          Caption = '#:'
        end
        object EditUserFull: TSpinEdit
          Left = 55
          Top = 20
          Width = 66
          Height = 24
          Hint = '?????????,??????????????'
          MaxValue = 10000
          MinValue = 0
          TabOrder = 0
          Value = 1000
          OnChange = EditUserFullChange
        end
      end
      object GroupBox33: TGroupBox
        Left = 170
        Top = 10
        Width = 201