object ArgosemaDlg: TArgosemaDlg Left = 21 Top = 109 HelpContext = 3 ActiveControl = OKBtn BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'ArgoNaut - Select Chart' ClientHeight = 247 ClientWidth = 593 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Position = poScreenCenter OnActivate = FormActivate OnClose = FormClose PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 16 Top = 48 Width = 65 Height = 13 Caption = 'File record:' end object Label3: TLabel Left = 16 Top = 16 Width = 54 Height = 13 Caption = 'File-path:' end object Image1: TImage Left = 400 Top = 78 Width = 185 Height = 163 Stretch = True end object OKBtn: TBitBtn Left = 504 Top = 8 Width = 81 Height = 25 Hint = 'Close window.' Caption = 'Close' ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = OKBtnClick Glyph.Data = { DE010000424DDE01000000000000760000002800000024000000120000000100 0400000000006801000000000000000000000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333330000333333333333333333333333F33333333333 00003333344333333333333333377F3333333333000033334224333333333333 337337F3333333330000333422224333333333333733337F3333333300003342 222224333333333373333337F3333333000034222A22224333333337F337F333 7F33333300003222A3A2224333333337F3737F337F33333300003A2A333A2224 33333337F73337F337F33333000033A33333A222433333337333337F337F3333 0000333333333A222433333333333337F337F33300003333333333A222433333 333333337F337F33000033333333333A222433333333333337F337F300003333 33333333A222433333333333337F337F00003333333333333A22433333333333 3337F37F000033333333333333A223333333333333337F730000333333333333 333A333333333333333337330000333333333333333333333333333333333333 0000} Margin = 2 NumGlyphs = 2 Spacing = -1 IsControl = True end object HelpBtn: TBitBtn Left = 504 Top = 40 Width = 81 Height = 25 TabOrder = 1 OnClick = HelpBtnClick Kind = bkHelp Margin = 2 Spacing = -1 IsControl = True end object OpenBtn: TBitBtn Left = 400 Top = 8 Width = 97 Height = 25 Hint = 'Open map-file' Caption = 'Open' ParentShowHint = False ShowHint = True TabOrder = 3 OnClick = OpenBtnClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333 333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000 0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF 07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF 07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF 0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0 33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333 3BB33773333773333773B333333B3333333B7333333733333337} NumGlyphs = 2 end object SpinFilePos: TSpinEdit Left = 88 Top = 40 Width = 73 Height = 24 Hint = 'Select record from map-file (1-25).' AutoSize = False EditorEnabled = False MaxLength = 2 MaxValue = 25 MinValue = 1 ParentShowHint = False ShowHint = True TabOrder = 4 Value = 1 OnChange = SpinFilePosChange end object FilePathEdit: TEdit Left = 88 Top = 8 Width = 305 Height = 21 Hint = 'Click open-button to select map-file' TabStop = False ParentShowHint = False ReadOnly = True ShowHint = True TabOrder = 2 end object GroupBox1: TGroupBox Left = 8 Top = 72 Width = 385 Height = 169 Caption = 'Map information' TabOrder = 7 object LabelNWLat: TLabel Left = 8 Top = 72 Width = 5 Height = 13 Caption = ' ' end object LabelNWLon: TLabel Left = 8 Top = 96 Width = 5 Height = 13 Caption = ' ' end object LabelSELat: TLabel Left = 8 Top = 120 Width = 5 Height = 13 Caption = ' ' end object LabelSELon: TLabel Left = 8 Top = 144 Width = 5 Height = 13 Caption = ' ' end object LabelFileName: TLabel Left = 8 Top = 24 Width = 5 Height = 13 Caption = ' ' end object LabelInfoText: TLabel Left = 8 Top = 48 Width = 5 Height = 13 Caption = ' ' end end object AutoSelectBtn: TBitBtn Left = 168 Top = 40 Width = 225 Height = 25 Hint = 'Auto-Select BMP-file' Caption = 'Auto Select: Off' ParentShowHint = False ShowHint = True TabOrder = 5 OnClick = AutoSelectBtnClick NumGlyphs = 2 end object Show1Btn: TBitBtn Left = 400 Top = 40 Width = 97 Height = 25 Hint = 'Show BMP-picture. (Toggle stretch.)' Caption = 'Show' ParentShowHint = False ShowHint = True TabOrder = 6 OnClick = Show1BtnClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000 033333777777777773333330777777703333333773F333773333333330888033 33333FFFF7FFF7FFFFFF0000000000000003777777777777777F0FFFFFFFFFF9 FF037F3333333337337F0F78888888887F037F33FFFFFFFFF37F0F7000000000 8F037F3777777777F37F0F70AAAAAAA08F037F37F3333337F37F0F70ADDDDDA0 8F037F37F3333337F37F0F70A99A99A08F037F37F3333337F37F0F70A99A99A0 8F037F37F3333337F37F0F70AAAAAAA08F037F37FFFFFFF7F37F0F7000000000 8F037F3777777777337F0F77777777777F037F3333333333337F0FFFFFFFFFFF FF037FFFFFFFFFFFFF7F000000000000000377777777777777730000} NumGlyphs = 2 end object OpenMapDialog: TOpenDialog DefaultExt = 'MAP' FileEditStyle = fsEdit Filter = 'MAP-files|*.MAP' Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist] Left = 224 Top = 8 end object Timer1: TTimer OnTimer = Timer1Timer Left = 184 Top = 8 end end