Igromania 1999 August/Igromania_1999-08.iso/DLH/dlh_8_99.exe/0599.DLM/wargasm/WargasmTrainerv1.0.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1998-02-26 | 11KB | 431 lines

object Form1: TForm1
  Left = 200
  Top = 108
  BorderStyle = bsDialog
  Caption = 'Wargasm Trainer V1.00'
  ClientHeight = 326
  ClientWidth = 289
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  TextHeight = 13
  object SpeedButton1: TSpeedButton
    Left = 136
    Top = 176
    Width = 17
    Height = 17
    Hint = 'Add Unit Type to list of available technology'
    Glyph.Data = {
      DE000000424DDE0000000000000076000000280000000D0000000D0000000100
      0400000000006800000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
      F000FFFFF00FFFF00000FFFF000FFF000000FFF000FFF000F000FF000FFF000F
      F000F000FFF000FFF000000FFF000FFFF000F000FFF000FFF000FF000FFF000F
      F000FFF000FFF000F000FFFF000FFF000000FFFFF00FFFF00000FFFFFFFFFFFF
      F000}
    ParentShowHint = False
    ShowHint = True
    OnClick = SpeedButton1Click
  end
  object SpeedButton4: TSpeedButton
    Left = 136
    Top = 280
    Width = 17
    Height = 17
    Hint = 'Remove Unit Type from list of available technology'
    Glyph.Data = {
      DE000000424DDE0000000000000076000000280000000D0000000D0000000100
      0400000000006800000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
      F00000FFFF00FFFFF000000FFF000FFFF000F000FFF000FFF000FF000FFF000F
      F000FFF000FFF000F000FFFF000FFF000000FFF000FFF000F000FF000FFF000F
      F000F000FFF000FFF000000FFF000FFFF00000FFFF00FFFFF000FFFFFFFFFFFF
      F000}
    ParentShowHint = False
    ShowHint = True
    OnClick = SpeedButton4Click
  end
  object camount: TLabel
    Left = 8
    Top = 304
    Width = 91
    Height = 13
    Caption = 'Current Amount = 0'
  end
  object SpeedButton2: TSpeedButton
    Left = 136
    Top = 200
    Width = 17
    Height = 17
    Hint = 'Add 1 unit'
    Glyph.Data = {
      DE000000424DDE0000000000000076000000280000000D0000000D0000000100
      0400000000006800000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
      F000FFFFF000FFFFF000FFFFF000FFFFF000FFFFF000FFFFF000FFFFF000FFFF
      F000F00000000000F000F00000000000F000F00000000000F000FFFFF000FFFF
      F000FFFFF000FFFFF000FFFFF000FFFFF000FFFFF000FFFFF000FFFFFFFFFFFF
      F000}
    ParentShowHint = False
    ShowHint = True
    OnClick = SpeedButton2Click
  end
  object SpeedButton5: TSpeedButton
    Left = 136
    Top = 216
    Width = 17
    Height = 17
    Hint = 'Add 10 units'
    Glyph.Data = {
      DE000000424DDE0000000000000076000000280000000D0000000D0000000100
      0400000000006800000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF0FF
      F000FFFFFFFFF0FFF000FFFFFFFFF0FFF000FFFFFF0000000000FFFFFFFFF0FF
      F000FFFFFFFFF0FFF000FFF0FFFFF0FFF000FFF0FFFFFFFFF000FFF0FFFFFFFF
      F0000000000FFFFFF000FFF0FFFFFFFFF000FFF0FFFFFFFFF000FFF0FFFFFFFF
      F000}
    ParentShowHint = False
    ShowHint = True
    OnClick = SpeedButton5Click
  end
  object SpeedButton3: TSpeedButton
    Left = 136
    Top = 240
    Width = 17
    Height = 17
    Hint = 'Subtract 1 unit'
    Glyph.Data = {
      DE000000424DDE0000000000000076000000280000000D0000000D0000000100
      0400000000006800000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
      F000FFFFFFFFFFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFF
      F000F00000000000F000F00000000000F000F00000000000F000FFFFFFFFFFFF
      F000FFFFFFFFFFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFF
      F000}
    ParentShowHint = False
    ShowHint = True
    OnClick = SpeedButton3Click
  end
  object SpeedButton6: TSpeedButton
    Left = 136
    Top = 256
    Width = 17
    Height = 17
    Hint = 'Subtract 10 units'
    Glyph.Data = {
      DE000000424DDE0000000000000076000000280000000D0000000D0000000100
      0400000000006800000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
      F000FFFFFFFFFFFFF000FFFFFFFFFFFFF000FFFFFF0000000000FFFFFFFFFFFF
      F000FFFFFFFFFFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFF
      F0000000000FFFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFF
      F000}
    ParentShowHint = False
    ShowHint = True
    OnClick = SpeedButton6Click
  end
  object Label1: TLabel
    Left = 136
    Top = 8
    Width = 148
    Height = 13
    Caption = '1998 - Jonathan '#39'Ash'#39' Gwilliams'
  end
  object Continents: TGroupBox
    Left = 8
    Top = 32
    Width = 121
    Height = 137
    Hint = 'Tick each continent you wish to Complete (don'#39't do them all!)'
    Caption = 'Continents Completed'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    object Cont1: TCheckBox
      Left = 8
      Top = 16
      Width = 97
      Height = 17
      Caption = 'Russia'
      TabOrder = 0
    end
    object Cont2: TCheckBox
      Left = 8
      Top = 32
      Width = 97
      Height = 17
      Caption = 'N. America'
      TabOrder = 1
    end
    object Cont3: TCheckBox
      Left = 8
      Top = 48
      Width = 97
      Height = 17
      Caption = 'China'
      TabOrder = 2
    end
    object Cont5: TCheckBox
      Left = 8
      Top = 80
      Width = 97
      Height = 17
      Caption = 'Australia'
      TabOrder = 3
    end
    object Cont6: TCheckBox
      Left = 8
      Top = 96
      Width = 97
      Height = 17
      Caption = 'S. America'
      TabOrder = 4
    end
    object Cont7: TCheckBox
      Left = 8
      Top = 112
      Width = 97
      Height = 17
      Caption = 'Europe'
      TabOrder = 5
    end
    object Cont4: TCheckBox
      Left = 8
      Top = 64
      Width = 97
      Height = 17
      Caption = 'Africa'
      TabOrder = 6
    end
  end
  object savename: TEdit
    Left = 8
    Top = 8
    Width = 121
    Height = 21
    Hint = 'Insert Save-file name here'
    MaxLength = 10
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    Text = 'savename'
  end
  object missions: TGroupBox
    Left = 136
    Top = 32
    Width = 145
    Height = 137
    Hint = 'Select each mission to see if it is complete or not'
    Caption = 'Missions Completed'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    object Label2: TLabel
      Left = 8
      Top = 40
      Width = 75
      Height = 13
      Caption = 'Mission Number'
    end
    object Label3: TLabel
      Left = 8
      Top = 80
      Width = 30
      Height = 13
      Caption = 'Status'
    end
    object CurrentC: TComboBox
      Left = 8
      Top = 16
      Width = 129
      Height = 21
      ItemHeight = 13
      Items.Strings = (
        'None'
        'Russia'
        'N. America'
        'China'
        'Africa'
        'Australia'
        'S. America'
        'Europe')
      TabOrder = 0
      Text = 'Current Continent'
      OnChange = CurrentCChange
    end
    object MList: TComboBox
      Left = 8
      Top = 56
      Width = 129
      Height = 21
      ItemHeight = 13
      TabOrder = 1
      Text = 'MList'
      OnChange = MListChange
    end
    object complete: TRadioButton
      Left = 8
      Top = 96
      Width = 113
      Height = 17
      Caption = 'complete'
      TabOrder = 2
      OnClick = completeClick
    end
    object incomplete: TRadioButton
      Left = 8
      Top = 112
      Width = 113
      Height = 17
      Caption = 'incomplete'
      TabOrder = 3
      OnClick = incompleteClick
    end
  end
  object Button1: TButton
    Left = 240
    Top = 304
    Width = 41
    Height = 17
    Hint = 'You need to ask?'
    Caption = 'Save'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    OnClick = Button1Click
  end
  object Load: TButton
    Left = 200
    Top = 304
    Width = 41
    Height = 17
    Hint = 'You need to ask?'
    Caption = 'Load'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    OnClick = LoadClick
  end
  object current: TListBox
    Left = 8
    Top = 176
    Width = 121
    Height = 121
    Hint = 'Your current inventory of units - select to see exact numbers'
    ItemHeight = 13
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
    OnClick = currentClick
  end
  object available: TListBox
    Left = 160
    Top = 176
    Width = 121
    Height = 121
    Hint = 'List of available units'
    ItemHeight = 13
    Items.Strings = (
      'trooper'
      'specialtrooper'
      'Warrior'
      'DARKSTAR'
      'PROTANK'
      'BMP3'
      'LVTP7'
      'FAPC'
      'Abrams'
      'tunguska'
      'vulcan'
      'T80'
      'LEOPARD'
      'Commanche'
      'hind'
      'chinook'
      'CHALLENGER'
      'FLBT'
      'B2'
      'ka50'
      'SU25'
      'A10'
      'Fcom'
      'FMBT')
    ParentShowHint = False
    ShowHint = True
    TabOrder = 7
  end
  object about: TButton
    Left = 160
    Top = 304
    Width = 41
    Height = 17
    Hint = 'About this program'
    Caption = 'About'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 11
    OnClick = aboutClick
  end
  object Button2: TButton
    Left = 128
    Top = 304
    Width = 33
    Height = 17
    Hint = 'Clear current inventory'
    Caption = 'Clear'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 10
    OnClick = Button2Click
  end
  object data: TListBox
    Left = 104
    Top = 160
    Width = 25
    Height = 25
    ItemHeight = 13
    TabOrder = 1
    Visible = False
  end
  object slist: TListBox
    Left = 136
    Top = 160
    Width = 25
    Height = 25
    ItemHeight = 13
    TabOrder = 9
    Visible = False
  end
  object amount: TListBox
    Left = 168
    Top = 160
    Width = 25
    Height = 25
    ItemHeight = 13
    TabOrder = 8
    Visible = False
  end
  object FileOpen: TOpenDialog
    DefaultExt = '.sav'
    FileEditStyle = fsEdit
    Filter = 'Wargasm Saves|*.SAV'
    Left = 40
    Top = 160
  end
  object FileSave: TSaveDialog
    DefaultExt = '.sav'
    FileEditStyle = fsEdit
    Filter = 'Wargasm Save|*.sav'
    Left = 72
    Top = 160
  end
end