Trailer Life - RV Campground Finder 2001/BIN+CUE.zip/TLUSAMAPS.bin/MAPPRO40.OC_/MAPPRO40.OC/0/RCDATA/TRTEDLG/TRTEDLG.txt

Text File | 2000-08-09 | 35KB | 1,086 lines

object Rtedlg: TRtedlg
  Left = 87
  Top = 29
  BorderStyle = bsNone
  Caption = 'Routing'
  ClientHeight = 408
  ClientWidth = 432
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  Position = poScreenCenter
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Nb1: TNotebook
    Left = 0
    Top = 0
    Width = 432
    Height = 408
    Align = alClient
    Color = clBtnFace
    PageIndex = 1
    ParentColor = False
    TabOrder = 0
    OnPageChanged = Nb1PageChanged
    object TPage
      Left = 0
      Top = 0
      Caption = 'a'
      object tsizer1: tsizer
        Left = 0
        Top = 0
        Width = 432
        Height = 408
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        Caption = 'Calculate'
        Bw = 1
        Bmp.Data = {
          D6000000424DD60000000000000076000000280000000C0000000C0000000100
          0400000000006000000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          0000777000000777000078000000008700008087700778080000077770077770
          0000777770077777000077777007777700007777800877770000777707707777
          0000777707707777000077778008777700007777777777770000}
        OnMouseDown = tsizer1MouseDown
        OnSpclose = tsizer1Spclose
        OnSpAnchor = SpA2Click
        Anchor = False
        object spQ: TSpeedButton
          Left = 380
          Top = 4
          Width = 18
          Height = 15
          Glyph.Data = {
            CE000000424DCE000000000000007600000028000000090000000B0000000100
            04000000000058000000CE0E0000C40E00001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777000
            0000777700777000000077770077700000007777777770000000777700777000
            0000777700777000000077777007700000007700770070000000770077007000
            000077700007700000007777777770000000}
          OnClick = spQClick
        end
        object PN1: TPanel
          Left = 2
          Top = 20
          Width = 428
          Height = 386
          Align = alClient
          BevelOuter = bvNone
          BorderWidth = 1
          Caption = 'PN1'
          TabOrder = 0
          object p3: TPanel
            Left = 1
            Top = 1
            Width = 426
            Height = 384
            Align = alClient
            BevelOuter = bvNone
            Caption = 'p3'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            object p5: TPanel
              Left = 0
              Top = 0
              Width = 426
              Height = 384
              Align = alClient
              BevelOuter = bvNone
              TabOrder = 0
              object p9: TPanel
                Left = 0
                Top = 0
                Width = 426
                Height = 79
                Align = alTop
                BevelOuter = bvNone
                BorderWidth = 2
                TabOrder = 0
                object sp1: TSpeedButton
                  Tag = 1
                  Left = 12
                  Top = 10
                  Width = 29
                  Height = 24
                  Hint = 'Select Start Location'
                  Glyph.Data = {
                    4E010000424D4E01000000000000760000002800000015000000120000000100
                    040000000000D800000000000000000000001000000000000000000000000000
                    80000080000000808000800000008000800080800000C0C0C000808080000000
                    FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
                    7777777770007888877777777777777770007808788877777777777770007700
                    7778888888888877700077700777788888888887700077780077778888888888
                    7000777780077778888888887000777778000088888888887000777770AA2200
                    88888888700077778A2A22220888888770007777A2A2A2222888887770007777
                    2A2A22222877777770007777AAAAA2222877777770007777AAAFFA2228777777
                    700077778AAFFA22A87777777000777778AAAAA287777777700077777782AA28
                    777777777000777777777777777777777000}
                  ParentShowHint = False
                  ShowHint = True
                  OnClick = sp1Click
                end
                object sp2: TSpeedButton
                  Tag = 2
                  Left = 12
                  Top = 48
                  Width = 29
                  Height = 24
                  Hint = 'Select Finish Location'
                  Glyph.Data = {
                    4E010000424D4E01000000000000760000002800000015000000120000000100
                    040000000000D800000000000000000000001000000000000000000000000000
                    80000080000000808000800000008000800080800000C0C0C000808080000000
                    FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
                    7777777770007888887777777777777770007808888877777777777770007700
                    7778888888888877700077700777788888888887700077780077778888888888
                    7000777780077778888888887000777770000087888888887000777770891110
                    8888888870007777899191110888888770007777191911111878887770007777
                    919191111877777770007777999F1111187777777000777719FFF91118777777
                    70007777899F9911987777777000777778999999877777777000777777819918
                    777777777000777777777777777777777000}
                  ParentShowHint = False
                  ShowHint = True
                  OnClick = sp1Click
                end
                object gb5: TGroupBox
                  Tag = 1
                  Left = 44
                  Top = 2
                  Width = 369
                  Height = 36
                  Caption = ' &Start Location'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'MS Sans Serif'
                  Font.Style = []
                  ParentFont = False
                  TabOrder = 0
                  OnMouseDown = gMD
                  object Label33: TLabel
                    Left = 8
                    Top = 16
                    Width = 121
                    Height = 13
                    Caption = 'Select Start Location'
                    Font.Charset = DEFAULT_CHARSET
                    Font.Color = clBlack
                    Font.Height = -11
                    Font.Name = 'MS Sans Serif'
                    Font.Style = [fsBold]
                    ParentFont = False
                    ParentShowHint = False
                    ShowHint = True
                  end
                  object ComboBox1: TComboBox
                    Tag = 1
                    Left = 248
                    Top = 10
                    Width = 117
                    Height = 21
                    Color = clBtnFace
                    Ctl3D = False
                    ItemHeight = 13
                    Items.Strings = (
                      '-87.99736,41.65673')
                    ParentCtl3D = False
                    TabOrder = 0
                    Text = '-88.13484,41.53351'
                    Visible = False
                    OnClick = ComboBox1Change
                    OnKeyPress = Cmb1KP
                  end
                end
                object gb6: TGroupBox
                  Tag = 2
                  Left = 44
                  Top = 40
                  Width = 369
                  Height = 36
                  Caption = ' &Finish Location'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'MS Sans Serif'
                  Font.Style = []
                  ParentFont = False
                  TabOrder = 1
                  OnMouseDown = gMD
                  object Label34: TLabel
                    Left = 8
                    Top = 16
                    Width = 127
                    Height = 13
                    Caption = 'Select Finish Location'
                    Font.Charset = DEFAULT_CHARSET
                    Font.Color = clBlack
                    Font.Height = -11
                    Font.Name = 'MS Sans Serif'
                    Font.Style = [fsBold]
                    ParentFont = False
                    ParentShowHint = False
                    ShowHint = True
                  end
                  object ComboBox2: TComboBox
                    Left = 248
                    Top = 10
                    Width = 117
                    Height = 21
                    Color = clBtnFace
                    Ctl3D = False
                    ItemHeight = 13
                    Items.Strings = (
                      '-87.93686,41.60168'
                      '-88.542,44.025')
                    ParentCtl3D = False
                    TabOrder = 0
                    Text = '-88.542,44.025'
                    Visible = False
                    OnClick = ComboBox2Change
                    OnKeyPress = Cmb1KP
                  end
                end
              end
              object Panel29: TPanel
                Left = 0
                Top = 294
                Width = 426
                Height = 90
                Align = alBottom
                BevelOuter = bvNone
                Caption = 'Panel29'
                TabOrder = 1
                object gb8: TGroupBox
                  Left = 188
                  Top = 4
                  Width = 161
                  Height = 77
                  Caption = ' Route Info'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'MS Sans Serif'
                  Font.Style = []
                  ParentFont = False
                  TabOrder = 1
                  object Label2: TLabel
                    Left = 6
                    Top = 32
                    Width = 67
                    Height = 13
                    Caption = 'Total Miles:'
                    Font.Charset = DEFAULT_CHARSET
                    Font.Color = clBlack
                    Font.Height = -11
                    Font.Name = 'MS Sans Serif'
                    Font.Style = [fsBold]
                    ParentFont = False
                  end
                  object Label29: TLabel
                    Left = 7
                    Top = 48
                    Width = 66
                    Height = 13
                    Caption = 'Drive Time:'
                    Font.Charset = DEFAULT_CHARSET
                    Font.Color = clBlack
                    Font.Height = -11
                    Font.Name = 'MS Sans Serif'
                    Font.Style = [fsBold]
                    ParentFont = False
                  end
                  object Label30: TLabel
                    Left = 80
                    Top = 32
                    Width = 49
                    Height = 13
                    AutoSize = False
                    Caption = '0'
                  end
                  object Label31: TLabel
                    Left = 80
                    Top = 48
                    Width = 65
                    Height = 25
                    AutoSize = False
                    Caption = '0'
                    WordWrap = True
                  end
                  object Label14: TLabel
                    Left = 32
                    Top = 16
                    Width = 41
                    Height = 13
                    Caption = 'Status:'
                    Font.Charset = DEFAULT_CHARSET
                    Font.Color = clBlack
                    Font.Height = -11
                    Font.Name = 'MS Sans Serif'
                    Font.Style = [fsBold]
                    ParentFont = False
                  end
                  object Label3: TLabel
                    Left = 80
                    Top = 17
                    Width = 20
                    Height = 13
                    Caption = 'Idle.'
                    Transparent = True
                  end
                end
                object gb7: TGroupBox
                  Left = 8
                  Top = 4
                  Width = 173
                  Height = 77
                  Caption = ' Route Settings '
                  Color = clBtnFace
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clBlack
                  Font.Height = -11
                  Font.Name = 'MS Sans Serif'
                  Font.Style = []
                  ParentColor = False
                  ParentFont = False
                  TabOrder = 0
                  object Label1: TLabel
                    Left = 8
                    Top = 18
                    Width = 29
                    Height = 13
                    Caption = 'Type'
                    Font.Charset = DEFAULT_CHARSET
                    Font.Color = clBlack
                    Font.Height = -11
                    Font.Name = 'MS Sans Serif'
                    Font.Style = [fsBold]
                    ParentFont = False
                  end
                  object PaintBox1: TPaintBox
                    Left = 8
                    Top = 59
                    Width = 157
                    Height = 14
                  end
                  object Image1: TImage
                    Left = 124
                    Top = 13
                    Width = 33
                    Height = 8
                    Picture.Data = {<image000.bmp>}
                    Visible = False
                  end
                  object BitBtn2: TBitBtn
                    Left = 108
                    Top = 32
                    Width = 57
                    Height = 25
                    Hint = 'Speed/Priority/Report'
                    Caption = '&Options...'
                    Font.Charset = DEFAULT_CHARSET
                    Font.Color = clBlack
                    Font.Height = -11
                    Font.Name = 'MS Sans Serif'
                    Font.Style = []
                    ParentFont = False
                    ParentShowHint = False
                    ShowHint = True
                    TabOrder = 0
                    OnClick = BitBtn2Click
                  end
                  object CbTp: TComboBox
                    Left = 8
                    Top = 34
                    Width = 93
                    Height = 21
                    Style = csDropDownList
                    Font.Charset = DEFAULT_CHARSET
                    Font.Color = clBlack
                    Font.Height = -11
                    Font.Name = 'MS Sans Serif'
                    Font.Style = []
                    ItemHeight = 13
                    Items.Strings = (
                      'Shortest (bias)'
                      'Fastest'
                      'Least Turns'
                      'User Defined'
                      'Shortest')
                    ParentFont = False
                    TabOrder = 1
                    OnChange = CbTpChange
                  end
                end
                object Button17: TButton
                  Left = 356
                  Top = 32
                  Width = 57
                  Height = 25
                  Hint = 'Print Route Maps/Directions'
                  Caption = '&Print ...'
                  ParentShowHint = False
                  ShowHint = True
                  TabOrder = 2
                  OnClick = Button17Click
                end
                object Button16: TButton
                  Left = 356
                  Top = 4
                  Width = 57
                  Height = 25
                  Hint = 'Perform Route Analysis'
                  Caption = '&Calculate'
                  ParentShowHint = False
                  ShowHint = True
                  TabOrder = 3
                  OnClick = Button16Click
                end
                object b3: TButton
                  Left = 356
                  Top = 60
                  Width = 57
                  Height = 25
                  Caption = 'C&ancel'
                  TabOrder = 4
                  OnClick = b3Click
                end
              end
              object Panel1: TPanel
                Left = 0
                Top = 79
                Width = 426
                Height = 215
                Align = alClient
                BevelOuter = bvNone
                BorderWidth = 8
                TabOrder = 2
                object Panel19: TPanel
                  Left = 8
                  Top = 8
                  Width = 410
                  Height = 199
                  Align = alClient
                  BevelOuter = bvNone
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clWindowText
                  Font.Height = -11
                  Font.Name = 'MS Sans Serif'
                  Font.Style = []
                  ParentFont = False
                  TabOrder = 0
                  object h1: THeader
                    Left = 0
                    Top = 37
                    Width = 410
                    Height = 17
                    Align = alTop
                    BorderStyle = bsNone
                    Sections.Sections = (
                      #0'18'#0' #'
                      #0'15'#0'T'
                      #0'58'#0' Directions'
                      #0'39'#0' Name'
                      #0'34'#0' Time'
                      #0'30'#0' Mile'
                      #0'32'#0' Mph'
                      #0'24'#0' Dir'
                      #0'48'#0' Position'
                      #0'14'#0' .')
                    TabOrder = 0
                    OnSizing = h1Sizing
                  end
                  object lb1: TListBox
                    Left = 0
                    Top = 54
                    Width = 410
                    Height = 128
                    Align = alClient
                    Ctl3D = True
                    ItemHeight = 13
                    ParentCtl3D = False
                    ParentShowHint = False
                    ShowHint = False
                    Style = lbOwnerDrawVariable
                    TabOrder = 1
                    OnClick = lb1Click
                    OnDblClick = lb1DblClick
                    OnDrawItem = lb1DrawItem
                    OnKeyPress = lb1KeyPress
                    OnMeasureItem = lb1MeasureItem
                    OnMouseMove = lb1MouseMove
                  end
                  object Panel4: TPanel
                    Left = 0
                    Top = 182
                    Width = 410
                    Height = 17
                    Align = alBottom
                    BevelOuter = bvLowered
                    Font.Charset = DEFAULT_CHARSET
                    Font.Color = clBlack
                    Font.Height = -11
                    Font.Name = 'MS Sans Serif'
                    Font.Style = []
                    ParentFont = False
                    TabOrder = 2
                    object Label35: TLabel
                      Left = 8
                      Top = 1
                      Width = 3
                      Height = 13
                    end
                    object PaintBox2: TPaintBox
                      Left = 1
                      Top = 1
                      Width = 408
                      Height = 15
                      Align = alClient
                    end
                  end
                  object Panel2: TPanel
                    Left = 0
                    Top = 0
                    Width = 410
                    Height = 37
                    Align = alTop
                    BevelOuter = bvLowered
                    TabOrder = 3
                    object Label6: TLabel
                      Left = 8
                      Top = 4
                      Width = 3
                      Height = 13
                      Caption = '.'
                    end
                    object Label7: TLabel
                      Left = 8
                      Top = 20
                      Width = 3
                      Height = 13
                      Caption = '.'
                    end
                  end
                end
              end
            end
          end
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'c'
      object tsizer3: tsizer
        Left = 0
        Top = 0
        Width = 432
        Height = 408
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Caption = 'Programmer Options'
        Bw = 1
        OnMouseDown = tsizer3MouseDown
        OnSpclose = tsizer3Spclose
        Anchor = False
        object tbn1: TTabbedNotebook
          Left = 2
          Top = 20
          Width = 428
          Height = 357
          Align = alClient
          PageIndex = 1
          TabFont.Charset = DEFAULT_CHARSET
          TabFont.Color = clBtnText
          TabFont.Height = -11
          TabFont.Name = 'MS Sans Serif'
          TabFont.Style = []
          TabOrder = 0
          object TTabPage
            Left = 4
            Top = 24
            Caption = 'Report'
            object Panel3: TPanel
              Left = 0
              Top = 29
              Width = 420
              Height = 300
              Align = alClient
              BorderWidth = 4
              Caption = 'Panel3'
              TabOrder = 0
              object lb6: TListBox
                Left = 5
                Top = 5
                Width = 410
                Height = 290
                Align = alClient
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clBlack
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                ItemHeight = 13
                ParentFont = False
                Style = lbOwnerDrawFixed
                TabOrder = 0
                OnDrawItem = lb6DrawItem
              end
            end
            object Panel5: TPanel
              Left = 0
              Top = 0
              Width = 420
              Height = 29
              Align = alTop
              BorderWidth = 2
              TabOrder = 1
              object Label4: TLabel
                Left = 3
                Top = 3
                Width = 414
                Height = 23
                Align = alClient
                Caption = ' Routing Process Report'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clBlack
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                ParentFont = False
              end
            end
          end
          object TTabPage
            Left = 4
            Top = 24
            Caption = 'Options'
            object Label24: TLabel
              Left = 8
              Top = 12
              Width = 69
              Height = 13
              Caption = 'Detail Radius :'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label25: TLabel
              Left = 12
              Top = 40
              Width = 65
              Height = 13
              Caption = 'Band Width : '
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label8: TLabel
              Left = 53
              Top = 68
              Width = 20
              Height = 13
              Caption = 'Dot:'
            end
            object Edit9: TEdit
              Left = 84
              Top = 12
              Width = 53
              Height = 21
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
              TabOrder = 0
              Text = 'Edit9'
              OnChange = Edit9Change
            end
            object Edit10: TEdit
              Left = 84
              Top = 36
              Width = 53
              Height = 21
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
              TabOrder = 1
              Text = 'Edit10'
              OnChange = Edit10Change
            end
            object Edit1: TEdit
              Left = 84
              Top = 64
              Width = 53
              Height = 21
              TabOrder = 2
              Text = 'Edit1'
              OnKeyPress = Edit1KeyPress
            end
            object gb4: TGroupBox
              Left = 20
              Top = 96
              Width = 109
              Height = 109
              Caption = ' Search Options '
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
              TabOrder = 3
              object CheckBox13: TCheckBox
                Left = 8
                Top = 16
                Width = 81
                Height = 17
                Caption = 'Show Net'
                State = cbChecked
                TabOrder = 0
                OnClick = CheckBox13Click
              end
              object CheckBox7: TCheckBox
                Left = 8
                Top = 48
                Width = 85
                Height = 17
                Caption = 'Dist. Approx.'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clBlack
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                ParentFont = False
                TabOrder = 1
                OnClick = CheckBox7Click
              end
              object CheckBox1: TCheckBox
                Left = 8
                Top = 64
                Width = 85
                Height = 17
                Caption = 'Extra Shape'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clBlack
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                ParentFont = False
                TabOrder = 2
                OnClick = CheckBox1Click
              end
              object CheckBox3: TCheckBox
                Left = 8
                Top = 80
                Width = 97
                Height = 17
                Caption = 'Dump Rte'
                TabOrder = 3
                OnClick = CheckBox3Click
              end
            end
            object CheckBox2: TCheckBox
              Left = 140
              Top = 104
              Width = 165
              Height = 17
              Caption = 'Link Streets with Same Name.'
              TabOrder = 4
            end
            object CheckBox4: TCheckBox
              Left = 140
              Top = 124
              Width = 77
              Height = 17
              Caption = 'Splay Tree'
              TabOrder = 5
              OnClick = CheckBox4Click
            end
            object CheckBox5: TCheckBox
              Left = 140
              Top = 144
              Width = 101
              Height = 17
              Caption = 'Pmap Interstate'
              TabOrder = 6
              OnClick = CheckBox5Click
            end
            object CheckBox6: TCheckBox
              Left = 140
              Top = 164
              Width = 137
              Height = 17
              Caption = 'Hmap Route ONLY'
              TabOrder = 7
              OnClick = CheckBox6Click
            end
            object CheckBox9: TCheckBox
              Left = 140
              Top = 184
              Width = 105
              Height = 17
              Caption = 'Suppress Names'
              TabOrder = 8
              OnClick = CheckBox9Click
            end
          end
          object TTabPage
            Left = 4
            Top = 24
            Caption = 'Routes'
            object Panel6: TPanel
              Left = 0
              Top = 0
              Width = 420
              Height = 33
              Align = alTop
              TabOrder = 0
              object Label10: TLabel
                Left = 148
                Top = 12
                Width = 56
                Height = 13
                Caption = 'Description:'
              end
              object edit2: TEdit
                Left = 208
                Top = 8
                Width = 165
                Height = 21
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clBlack
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                ParentFont = False
                TabOrder = 0
                OnKeyUp = Edit2KeyUp
              end
              object Button1: TButton
                Left = 92
                Top = 4
                Width = 49
                Height = 25
                Caption = 'Save &As'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clBlack
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                ParentFont = False
                TabOrder = 1
                OnClick = Button1Click
              end
              object Button3: TButton
                Left = 48
                Top = 4
                Width = 41
                Height = 25
                Caption = 'Save'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clBlack
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                ParentFont = False
                TabOrder = 2
                OnClick = Button3Click
              end
              object Button2: TButton
                Left = 4
                Top = 4
                Width = 41
                Height = 25
                Caption = 'Load'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clBlack
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                ParentFont = False
                TabOrder = 3
                OnClick = Button2Click
              end
            end
            object Header1: THeader
              Left = 0
              Top = 33
              Width = 420
              Height = 25
              Align = alTop
              BorderStyle = bsNone
              Sections.Sections = (
                #0'73'#0'Description'
                #0'40'#0'From '
                #0'24'#0'To')
              TabOrder = 1
              OnSizing = Header1Sizing
            end
            object ListBox2: TListBox
              Left = 0
              Top = 58
              Width = 420
              Height = 250
              Align = alClient
              BorderStyle = bsNone
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ItemHeight = 16
              ParentFont = False
              Style = lbOwnerDrawFixed
              TabOrder = 2
              OnClick = ListBox2Click
              OnDblClick = ListBox2DblClick
              OnDrawItem = ListBox2DrawItem
            end
            object Panel7: TPanel
              Left = 0
              Top = 308
              Width = 420
              Height = 21
              Align = alBottom
              BevelOuter = bvLowered
              BorderWidth = 2
              TabOrder = 3
              object Label5: TLabel
                Left = 3
                Top = 3
                Width = 414
                Height = 15
                Align = alClient
                Caption = '*.hst'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clBlack
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                ParentFont = False
              end
            end
          end
          object TTabPage
            Left = 4
            Top = 24
            Caption = 'Bitmap'
            object Panel9: TPanel
              Left = 0
              Top = 0
              Width = 420
              Height = 329
              Align = alClient
              BevelInner = bvLowered
              BevelOuter = bvNone
              BorderWidth = 8
              TabOrder = 0
              object PaintBox3: TPaintBox
                Left = 9
                Top = 9
                Width = 402
                Height = 311
                Align = alClient
                OnPaint = PaintBox3Paint
              end
            end
          end
        end
        object Panel8: TPanel
          Left = 2
          Top = 377
          Width = 428
          Height = 29
          Align = alBottom
          BevelOuter = bvNone
          TabOrder = 1
          object Label9: TLabel
            Left = 16
            Top = 12
            Width = 6
            Height = 13
            Caption = '..'
          end
          object Button8: TButton
            Left = 364
            Top = 2
            Width = 53
            Height = 25
            Caption = '&Ok'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            OnClick = Button8Click
          end
        end
      end
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 333
    Top = 21
    object Short1: TMenuItem
      Caption = '&Shortest'
      GroupIndex = 1
      RadioItem = True
    end
    object Fastest1: TMenuItem
      Caption = '&Fastest'
      GroupIndex = 1
      RadioItem = True
    end
    object Prefered1: TMenuItem
      Caption = '&Preferred'
      GroupIndex = 1
      RadioItem = True
    end
  end
  object OpenDialog1: TOpenDialog
    Left = 360
    Top = 20
  end
  object SaveDialog1: TSaveDialog
    Left = 388
    Top = 20
  end
end