gamecommand.dfm

来自「2009最新 传奇汉化0599代码 传奇汉化」· DFM 代码 · 共 392 行

object frmGameCmd: TfrmGameCmd
  Left = 175
  Top = 279
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Game Commands'
  ClientHeight = 386
  ClientWidth = 801
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '??'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 15
  object PageControl: TPageControl
    Left = 10
    Top = 10
    Width = 783
    Height = 371
    ActivePage = TabSheet3
    HotTrack = True
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Commands'
      object StringGridGameCmd: TStringGrid
        Left = 3
        Top = 10
        Width = 766
        Height = 201
        ColCount = 4
        DefaultRowHeight = 18
        FixedCols = 0
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goEditing, goRowSelect]
        TabOrder = 0
        OnClick = StringGridGameCmdClick
        ColWidths = (
          185
          90
          350
          620)
      end
      object GroupBox1: TGroupBox
        Left = 3
        Top = 220
        Width = 766
        Height = 111
        Caption = 'Details'
        TabOrder = 1
        object Label1: TLabel
          Left = 10
          Top = 25
          Width = 62
          Height = 15
          Caption = 'Command:'
        end
        object Label6: TLabel
          Left = 332
          Top = 23
          Width = 67
          Height = 15
          Caption = 'Permission:'
        end
        object LabelUserCmdFunc: TLabel
          Left = 80
          Top = 55
          Width = 561
          Height = 26
          AutoSize = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlue
          Font.Height = -15
          Font.Name = '??'
          Font.Style = []
          ParentFont = False
        end
        object LabelUserCmdParam: TLabel
          Left = 80
          Top = 85
          Width = 561
          Height = 20
          AutoSize = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlue
          Font.Height = -15
          Font.Name = '??'
          Font.Style = []
          ParentFont = False
        end
        object Label2: TLabel
          Left = 10
          Top = 55
          Width = 66
          Height = 15
          Caption = 'Description:'
        end
        object Label3: TLabel
          Left = 10
          Top = 85
          Width = 68
          Height = 15
          Caption = 'Parameters:'
        end
        object EditUserCmdName: TEdit
          Left = 80
          Top = 20
          Width = 201
          Height = 23
          TabOrder = 0
          OnChange = EditUserCmdNameChange
        end
        object EditUserCmdPerMission: TSpinEdit
          Left = 415
          Top = 19
          Width = 56
          Height = 24
          MaxValue = 10
          MinValue = 0
          TabOrder = 1
          Value = 10
          OnChange = EditUserCmdPerMissionChange
        end
        object EditUserCmdOK: TButton
          Left = 654
          Top = 20
          Width = 81
          Height = 31
          Caption = '&Ok'
          TabOrder = 2
          OnClick = EditUserCmdOKClick
        end
        object EditUserCmdSave: TButton
          Left = 654
          Top = 70
          Width = 81
          Height = 31
          Hint = 'Save settings'
          Caption = '&Save'
          TabOrder = 3
          OnClick = EditUserCmdSaveClick
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'GameMaster Commands'
      ImageIndex = 1
      object StringGridGameMasterCmd: TStringGrid
        Left = 3
        Top = 10
        Width = 766
        Height = 201
        ColCount = 4
        DefaultRowHeight = 18
        FixedCols = 0
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goEditing, goRowSelect]
        TabOrder = 0
        OnClick = StringGridGameMasterCmdClick
        ColWidths = (
          185
          90
          350
          620)
      end
      object GroupBox2: TGroupBox
        Left = 3
        Top = 220
        Width = 766
        Height = 111
        Caption = 'Details'
        TabOrder = 1
        object Label4: TLabel
          Left = 10
          Top = 25
          Width = 62
          Height = 15
          Caption = 'Command:'
        end
        object Label5: TLabel
          Left = 332
          Top = 23
          Width = 67
          Height = 15
          Caption = 'Permission:'
        end
        object LabelGameMasterCmdFunc: TLabel
          Left = 80
          Top = 55
          Width = 561
          Height = 26
          AutoSize = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlue
          Font.Height = -15
          Font.Name = '??'
          Font.Style = []
          ParentFont = False
        end
        object LabelGameMasterCmdParam: TLabel
          Left = 80
          Top = 85
          Width = 561
          Height = 20
          AutoSize = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlue
          Font.Height = -15
          Font.Name = '??'
          Font.Style = []
          ParentFont = False
        end
        object Label7: TLabel
          Left = 10
          Top = 55
          Width = 66
          Height = 15
          Caption = 'Description:'
        end
        object Label8: TLabel
          Left = 10
          Top = 85
          Width = 68
          Height = 15
          Caption = 'Parameters:'
        end
        object EditGameMasterCmdName: TEdit
          Left = 80
          Top = 20
          Width = 201
          Height = 23
          TabOrder = 0
          OnChange = EditGameMasterCmdNameChange
        end
        object EditGameMasterCmdPerMission: TSpinEdit
          Left = 415
          Top = 19
          Width = 56
          Height = 24
          MaxValue = 10
          MinValue = 0
          TabOrder = 1
          Value = 10
          OnChange = EditGameMasterCmdPerMissionChange
        end
        object EditGameMasterCmdOK: TButton
          Left = 654
          Top = 20
          Width = 81
          Height = 31
          Caption = '&Ok'
          TabOrder = 2
          OnClick = EditGameMasterCmdOKClick
        end
        object EditGameMasterCmdSave: TButton
          Left = 654
          Top = 70
          Width = 81
          Height = 31
          Hint = 'Save settings'
          Caption = '&Save'
          TabOrder = 3
          OnClick = EditGameMasterCmdSaveClick
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Game Debug Commands'
      ImageIndex = 2
      object StringGridGameDebugCmd: TStringGrid
        Left = 3
        Top = 10
        Width = 766
        Height = 201
        ColCount = 4
        DefaultRowHeight = 18
        FixedCols = 0
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goEditing, goRowSelect]
        TabOrder = 0
        OnClick = StringGridGameDebugCmdClick
        ColWidths = (
          185
          90
          350
          620)
      end
      object GroupBox3: TGroupBox
        Left = 3
        Top = 220
        Width = 766
        Height = 111
        Caption = 'Details'
        TabOrder = 1
        object Label9: TLabel
          Left = 10
          Top = 25
          Width = 62
          Height = 15
          Caption = 'Command:'
        end
        object Label10: TLabel
          Left = 332
          Top = 23
          Width = 67
          Height = 15
          Caption = 'Permission:'
        end
        object LabelGameDebugCmdFunc: TLabel
          Left = 80
          Top = 56
          Width = 561
          Height = 22
          AutoSize = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlue
          Font.Height = -15
          Font.Name = '??'
          Font.Style = []
          ParentFont = False
        end
        object LabelGameDebugCmdParam: TLabel
          Left = 80
          Top = 85
          Width = 561
          Height = 20
          AutoSize = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlue
          Font.Height = -15
          Font.Name = '??'
          Font.Style = []
          ParentFont = False
        end
        object Label11: TLabel
          Left = 10
          Top = 55
          Width = 66
          Height = 15
          Caption = 'Description:'
        end
        object Label12: TLabel
          Left = 10
          Top = 85
          Width = 68
          Height = 15
          Caption = 'Parameters:'
        end
        object EditGameDebugCmdName: TEdit
          Left = 80
          Top = 20
          Width = 201
          Height = 23
          TabOrder = 0
          OnChange = EditGameDebugCmdNameChange
        end
        object EditGameDebugCmdPerMission: TSpinEdit
          Left = 415
          Top = 19
          Width = 56
          Height = 24
          MaxValue = 10
          MinValue = 0
          TabOrder = 1
          Value = 10
          OnChange = EditGameDebugCmdPerMissionChange
        end
        object EditGameDebugCmdOK: TButton
          Left = 654
          Top = 20
          Width = 81
          Height = 31
          Caption = '&Ok'
          TabOrder = 2
          OnClick = EditGameDebugCmdOKClick
        end
        object EditGameDebugCmdSave: TButton
          Left = 654
          Top = 70
          Width = 81
          Height = 31
          Hint = 'Save settings'
          Caption = '&Save'
          TabOrder = 3
          OnClick = EditGameDebugCmdSaveClick
        end
      end
    end
  end
end