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 = {} ShowHint = True end object Image2: TImage Left = 120 Top = 112 Width = 31 Height = 28 Hint = 'Movement' AutoSize = True ParentShowHint = False Picture.Data = {} ShowHint = True end object Image3: TImage Left = 232 Top = 112 Width = 25 Height = 28 Hint = 'Fuel' AutoSize = True ParentShowHint = False Picture.Data = {} ShowHint = True end object Image4: TImage Left = 344 Top = 112 Width = 25 Height = 28 Hint = 'Ammo' AutoSize = True ParentShowHint = False Picture.Data = {} ShowHint = True end object Image5: TImage Left = 8 Top = 152 Width = 31 Height = 27 Hint = 'Range' AutoSize = True ParentShowHint = False Picture.Data = {} ShowHint = True end object Image6: TImage Left = 120 Top = 152 Width = 31 Height = 28 Hint = 'Initiative' AutoSize = True ParentShowHint = False Picture.Data = {} ShowHint = True end object Image7: TImage Left = 232 Top = 152 Width = 31 Height = 28 Hint = 'Spotting Range' AutoSize = True ParentShowHint = False Picture.Data = {} ShowHint = True end object Image8: TImage Left = 8 Top = 192 Width = 39 Height = 41 Hint = 'Hard Attack' AutoSize = True ParentShowHint = False Picture.Data = {} ShowHint = True end object Image9: TImage Left = 120 Top = 192 Width = 39 Height = 41 Hint = 'Soft Attack' AutoSize = True ParentShowHint = False Picture.Data = {} ShowHint = True end object Image10: TImage Left = 232 Top = 192 Width = 39 Height = 41 Hint = 'Air Attack' AutoSize = True ParentShowHint = False Picture.Data = {} ShowHint = True end object Image11: TImage Left = 344 Top = 192 Width = 39 Height = 41 Hint = 'Naval Attack' AutoSize = True ParentShowHint = False Picture.Data = {} ShowHint = True end object Image12: TImage Left = 8 Top = 240 Width = 33 Height = 39 Hint = 'Ground Defense' AutoSize = True ParentShowHint = False Picture.Data = {} ShowHint = True end object Image13: TImage Left = 120 Top = 240 Width = 33 Height = 39 Hint = 'Air Defense' AutoSize = True ParentShowHint = False Picture.Data = {} ShowHint = True end object Image14: TImage Left = 232 Top = 240 Width = 33 Height = 39 Hint = 'Close Defense' AutoSize = True ParentShowHint = False Picture.Data = {} ShowHint = True end object Image15: TImage Left = 344 Top = 240 Width = 33 Height = 39 Hint = 'Range Defense Modifier' AutoSize = True ParentShowHint = False Picture.Data = {} 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