Secret Service 54a/SSERVCD_54A.bin/UTILS/CHEATS/PG2EDIT.ZIP/PG2UEdit.exe/0/RCDATA/TFRMPG2EDIT/TFRMPG2EDIT.txt

Text File | 1997-12-03 | 15KB | 727 lines

object frmPG2Edit: TfrmPG2Edit
  Left = 200
  Top = 108
  Width = 491
  Height = 454
  BorderIcons = [biMinimize, biMaximize]
  Caption = 'Panzer General 2 Unit Editor'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  Position = poScreenCenter
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 48
    Top = 216
    Width = 53
    Height = 13
    Caption = 'PG2Editors'
  end
  object dirList: TDirectoryListBox
    Left = 48
    Top = 232
    Width = 25
    Height = 17
    DirLabel = Label1
    ItemHeight = 16
    TabOrder = 0
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 483
    Height = 49
    Align = alTop
    Caption = 'System Options'
    TabOrder = 1
    object btnLoad: TBitBtn
      Left = 8
      Top = 16
      Width = 75
      Height = 25
      Hint = 'Load Data File'
      Caption = '&Load File'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = btnLoadClick
    end
    object btnSave: TBitBtn
      Left = 96
      Top = 16
      Width = 75
      Height = 25
      Hint = 'Save Data File'
      Caption = 'Sa&ve File'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = btnSaveClick
    end
    object BitBtn3: TBitBtn
      Left = 184
      Top = 16
      Width = 75
      Height = 25
      Hint = 'Reset all values to Default'
      Caption = '&Backup'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      Visible = False
      OnClick = BitBtn3Click
    end
    object btnExit: TBitBtn
      Left = 344
      Top = 16
      Width = 131
      Height = 25
      Hint = 'Exit Program'
      Caption = '&Return to Main Menu'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = btnExitClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 49
    Width = 483
    Height = 48
    Align = alTop
    Caption = 'Editor Options'
    Enabled = False
    TabOrder = 2
    object btnPrev: TBitBtn
      Left = 8
      Top = 16
      Width = 75
      Height = 25
      Hint = 'Previous Unit'
      Caption = '&Previous'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = btnPrevClick
    end
    object btnNext: TBitBtn
      Left = 96
      Top = 16
      Width = 75
      Height = 25
      Hint = 'Next Unit'
      Caption = '&Next'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = btnNextClick
    end
    object btnSearch: TBitBtn
      Left = 184
      Top = 16
      Width = 75
      Height = 25
      Hint = 'Search for a particular unit'
      Caption = '&Search'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = btnSearchClick
    end
    object btnCreate: TBitBtn
      Left = 400
      Top = 16
      Width = 75
      Height = 25
      Hint = 'Create a new unit'
      Caption = '&Create Unit'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = btnCreateClick
    end
    object btnUpdate: TBitBtn
      Left = 272
      Top = 16
      Width = 75
      Height = 25
      Hint = 'Update changes to unit information'
      Caption = '&Update'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnClick = btnUpdateClick
    end
  end
  object GroupBox3: TGroupBox
    Left = 0
    Top = 97
    Width = 483
    Height = 311
    Align = alClient
    Caption = 'Unit Attributes'
    Enabled = False
    TabOrder = 3
    object lblUnitName: TLabel
      Left = 136
      Top = 16
      Width = 50
      Height = 13
      Caption = 'Unit Name'
    end
    object Label2: TLabel
      Left = 8
      Top = 16
      Width = 47
      Height = 13
      Caption = 'Unit Code'
    end
    object Label3: TLabel
      Left = 72
      Top = 16
      Width = 47
      Height = 13
      Caption = 'Hex Code'
    end
    object Label4: TLabel
      Left = 8
      Top = 64
      Width = 46
      Height = 13
      Caption = 'Unit Type'
    end
    object Label5: TLabel
      Left = 144
      Top = 64
      Width = 36
      Height = 13
      Caption = 'Country'
    end
    object Label6: TLabel
      Left = 344
      Top = 64
      Width = 69
      Height = 13
      Caption = 'Date Available'
    end
    object Label7: TLabel
      Left = 304
      Top = 83
      Width = 30
      Height = 13
      Caption = 'Month'
    end
    object Label8: TLabel
      Left = 400
      Top = 83
      Width = 22
      Height = 13
      Caption = 'Year'
    end
    object Image1: TImage
      Left = 8
      Top = 112
      Width = 31
      Height = 28
      Hint = 'Prestige Cost'
      AutoSize = True
      ParentShowHint = False
      Picture.Data = {<image000.bmp>}
      ShowHint = True
    end
    object Image2: TImage
      Left = 120
      Top = 112
      Width = 31
      Height = 28
      Hint = 'Movement'
      AutoSize = True
      ParentShowHint = False
      Picture.Data = {<image001.bmp>}
      ShowHint = True
    end
    object Image3: TImage
      Left = 232
      Top = 112
      Width = 25
      Height = 28
      Hint = 'Fuel'
      AutoSize = True
      ParentShowHint = False
      Picture.Data = {<image002.bmp>}
      ShowHint = True
    end
    object Image4: TImage
      Left = 344
      Top = 112
      Width = 25
      Height = 28
      Hint = 'Ammo'
      AutoSize = True
      ParentShowHint = False
      Picture.Data = {<image003.bmp>}
      ShowHint = True
    end
    object Image5: TImage
      Left = 8
      Top = 152
      Width = 31
      Height = 27
      Hint = 'Range'
      AutoSize = True
      ParentShowHint = False
      Picture.Data = {<image004.bmp>}
      ShowHint = True
    end
    object Image6: TImage
      Left = 120
      Top = 152
      Width = 31
      Height = 28
      Hint = 'Initiative'
      AutoSize = True
      ParentShowHint = False
      Picture.Data = {<image005.bmp>}
      ShowHint = True
    end
    object Image7: TImage
      Left = 232
      Top = 152
      Width = 31
      Height = 28
      Hint = 'Spotting Range'
      AutoSize = True
      ParentShowHint = False
      Picture.Data = {<image006.bmp>}
      ShowHint = True
    end
    object Image8: TImage
      Left = 8
      Top = 192
      Width = 39
      Height = 41
      Hint = 'Hard Attack'
      AutoSize = True
      ParentShowHint = False
      Picture.Data = {<image007.bmp>}
      ShowHint = True
    end
    object Image9: TImage
      Left = 120
      Top = 192
      Width = 39
      Height = 41
      Hint = 'Soft Attack'
      AutoSize = True
      ParentShowHint = False
      Picture.Data = {<image008.bmp>}
      ShowHint = True
    end
    object Image10: TImage
      Left = 232
      Top = 192
      Width = 39
      Height = 41
      Hint = 'Air Attack'
      AutoSize = True
      ParentShowHint = False
      Picture.Data = {<image009.bmp>}
      ShowHint = True
    end
    object Image11: TImage
      Left = 344
      Top = 192
      Width = 39
      Height = 41
      Hint = 'Naval Attack'
      AutoSize = True
      ParentShowHint = False
      Picture.Data = {<image010.bmp>}
      ShowHint = True
    end
    object Image12: TImage
      Left = 8
      Top = 240
      Width = 33
      Height = 39
      Hint = 'Ground Defense'
      AutoSize = True
      ParentShowHint = False
      Picture.Data = {<image011.bmp>}
      ShowHint = True
    end
    object Image13: TImage
      Left = 120
      Top = 240
      Width = 33
      Height = 39
      Hint = 'Air Defense'
      AutoSize = True
      ParentShowHint = False
      Picture.Data = {<image012.bmp>}
      ShowHint = True
    end
    object Image14: TImage
      Left = 232
      Top = 240
      Width = 33
      Height = 39
      Hint = 'Close Defense'
      AutoSize = True
      ParentShowHint = False
      Picture.Data = {<image013.bmp>}
      ShowHint = True
    end
    object Image15: TImage
      Left = 344
      Top = 240
      Width = 33
      Height = 39
      Hint = 'Range Defense Modifier'
      AutoSize = True
      ParentShowHint = False
      Picture.Data = {<image014.bmp>}
      ShowHint = True
    end
    object edtUnitName: TEdit
      Left = 136
      Top = 32
      Width = 321
      Height = 21
      MaxLength = 28
      TabOrder = 0
      OnChange = edtUnitNameChange
    end
    object seUnitCode: TSpinEdit
      Left = 8
      Top = 32
      Width = 49
      Height = 22
      MaxLength = 4
      MaxValue = 585
      MinValue = 1
      TabOrder = 1
      Value = 1
      OnChange = seUnitCodeChange
    end
    object edtHexCode: TEdit
      Left = 72
      Top = 32
      Width = 49
      Height = 21
      ReadOnly = True
      TabOrder = 2
    end
    object edtUnitType: TEdit
      Left = 8
      Top = 80
      Width = 121
      Height = 21
      ReadOnly = True
      TabOrder = 3
    end
    object cbCountry: TComboBox
      Left = 144
      Top = 80
      Width = 145
      Height = 21
      ItemHeight = 13
      Items.Strings = (
        'Austria'
        'Belgium'
        'Bulgaria'
        'Czechoslovakia'
        'Denmark'
        'Finland'
        'France'
        'Germany'
        'Greece'
        'USA'
        'Hungary'
        'Turkey'
        'Italy'
        'Netherlands'
        'Norway'
        'Poland'
        'Portugal'
        'Romania'
        'Spain'
        'Russia'
        'Sweden'
        'Switzerland'
        'United Kingdom'
        'Yugoslavia'
        'Nationalist'
        'Republican')
      TabOrder = 4
      OnChange = edtUnitNameChange
    end
    object seMonth: TSpinEdit
      Left = 344
      Top = 80
      Width = 41
      Height = 22
      MaxValue = 12
      MinValue = 1
      TabOrder = 5
      Value = 1
      OnChange = edtUnitNameChange
    end
    object seYear: TSpinEdit
      Left = 432
      Top = 80
      Width = 41
      Height = 22
      MaxValue = 45
      MinValue = 16
      TabOrder = 6
      Value = 16
      OnChange = edtUnitNameChange
    end
    object seCost: TSpinEdit
      Left = 56
      Top = 115
      Width = 49
      Height = 22
      Increment = 12
      MaxLength = 4
      MaxValue = 3060
      MinValue = 12
      TabOrder = 7
      Value = 12
      OnChange = edtUnitNameChange
    end
    object seMove: TSpinEdit
      Left = 168
      Top = 115
      Width = 49
      Height = 22
      MaxLength = 3
      MaxValue = 255
      MinValue = 0
      TabOrder = 8
      Value = 0
      OnChange = edtUnitNameChange
    end
    object seFuel: TSpinEdit
      Left = 280
      Top = 115
      Width = 49
      Height = 22
      MaxLength = 3
      MaxValue = 255
      MinValue = 0
      TabOrder = 9
      Value = 0
      OnChange = edtUnitNameChange
    end
    object seAmmo: TSpinEdit
      Left = 392
      Top = 115
      Width = 49
      Height = 22
      MaxLength = 3
      MaxValue = 255
      MinValue = 0
      TabOrder = 10
      Value = 0
      OnChange = edtUnitNameChange
    end
    object seRange: TSpinEdit
      Left = 56
      Top = 155
      Width = 49
      Height = 22
      MaxLength = 3
      MaxValue = 255
      MinValue = 0
      TabOrder = 11
      Value = 0
      OnChange = edtUnitNameChange
    end
    object seInit: TSpinEdit
      Left = 168
      Top = 155
      Width = 49
      Height = 22
      MaxLength = 3
      MaxValue = 255
      MinValue = 0
      TabOrder = 12
      Value = 0
      OnChange = edtUnitNameChange
    end
    object seSpot: TSpinEdit
      Left = 280
      Top = 155
      Width = 49
      Height = 22
      MaxLength = 3
      MaxValue = 255
      MinValue = 0
      TabOrder = 13
      Value = 0
      OnChange = edtUnitNameChange
    end
    object seHAtt: TSpinEdit
      Left = 56
      Top = 202
      Width = 49
      Height = 22
      MaxLength = 3
      MaxValue = 255
      MinValue = 0
      TabOrder = 14
      Value = 0
      OnChange = edtUnitNameChange
    end
    object seSAtt: TSpinEdit
      Left = 168
      Top = 202
      Width = 49
      Height = 22
      MaxLength = 3
      MaxValue = 255
      MinValue = 0
      TabOrder = 15
      Value = 0
      OnChange = edtUnitNameChange
    end
    object seAAtt: TSpinEdit
      Left = 280
      Top = 202
      Width = 49
      Height = 22
      MaxLength = 3
      MaxValue = 255
      MinValue = 0
      TabOrder = 16
      Value = 0
      OnChange = edtUnitNameChange
    end
    object seNAtt: TSpinEdit
      Left = 392
      Top = 202
      Width = 49
      Height = 22
      MaxLength = 3
      MaxValue = 255
      MinValue = 0
      TabOrder = 17
      Value = 0
      OnChange = edtUnitNameChange
    end
    object seGDef: TSpinEdit
      Left = 56
      Top = 250
      Width = 49
      Height = 22
      MaxLength = 3
      MaxValue = 255
      MinValue = 0
      TabOrder = 18
      Value = 0
      OnChange = edtUnitNameChange
    end
    object seADef: TSpinEdit
      Left = 168
      Top = 250
      Width = 49
      Height = 22
      MaxLength = 3
      MaxValue = 255
      MinValue = 0
      TabOrder = 19
      Value = 0
      OnChange = edtUnitNameChange
    end
    object seCDef: TSpinEdit
      Left = 280
      Top = 250
      Width = 49
      Height = 22
      MaxLength = 3
      MaxValue = 255
      MinValue = 0
      TabOrder = 20
      Value = 0
      OnChange = edtUnitNameChange
    end
    object seRDM: TSpinEdit
      Left = 392
      Top = 250
      Width = 49
      Height = 22
      MaxLength = 3
      MaxValue = 255
      MinValue = 0
      TabOrder = 21
      Value = 0
      OnChange = edtUnitNameChange
    end
    object sbStatus: TStatusBar
      Left = 2
      Top = 287
      Width = 479
      Height = 22
      Panels = <
        item
          Width = 50
        end>
      SimplePanel = False
    end
  end
  object dlgLoad: TOpenDialog
    FileName = 'Equip97.eqp'
    Left = 272
    Top = 16
  end
  object MainMenu1: TMainMenu
    Left = 288
    Top = 16
    object mnuFile: TMenuItem
      Caption = 'S&ystem Options'
      object mnuLoad: TMenuItem
        Caption = '&Load File'
        OnClick = btnLoadClick
      end
      object SaveFile1: TMenuItem
        Caption = 'Sa&ve File'
        OnClick = btnSaveClick
      end
      object Backup1: TMenuItem
        Caption = '&Backup'
        OnClick = BitBtn3Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object mnuExit: TMenuItem
        Caption = 'Return to &Main Menu'
        OnClick = btnExitClick
      end
    end
    object EditorOptions1: TMenuItem
      Caption = '&Editor Options'
      object Search1: TMenuItem
        Caption = '&Search'
        OnClick = btnSearchClick
      end
      object Update1: TMenuItem
        Caption = '&Update'
        OnClick = btnUpdateClick
      end
      object mnuCreate: TMenuItem
        Caption = '&Create'
        OnClick = btnCreateClick
      end
    end
  end
end