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 = {} 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