object Form1: TForm1 Left = 237 Top = 148 Width = 552 Height = 497 Caption = 'MapServer SDK 2.0 - Windows 95 und Windows NT' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Menu = MainMenu1 Position = poScreenCenter OnClose = DestroyMap OnCreate = InitData OnDestroy = DestroyData OnShow = ShowMap PixelsPerInch = 96 TextHeight = 13 object SpeedButton1: TSpeedButton Left = 48 Top = 64 Width = 25 Height = 25 end object FilterView: TTreeView Left = 0 Top = 0 Width = 169 Height = 392 Indent = 19 OnGetImageIndex = FilterViewGetImageIndex OnGetSelectedIndex = FilterViewGetImageIndex Align = alLeft TabOrder = 0 OnMouseDown = FilterViewMouseDown OnMouseUp = FilterViewMouseUp OnKeyUp = FilterViewKeyUp end object ListBox1: TListBox Left = 0 Top = 392 Width = 544 Height = 59 Align = alBottom ItemHeight = 13 TabOrder = 1 end object BasePanel: TPanel Left = 169 Top = 0 Width = 375 Height = 392 Align = alClient BevelOuter = bvNone TabOrder = 2 object SpeedbarPanel: TPanel Left = 0 Top = 0 Width = 375 Height = 33 Align = alTop TabOrder = 0 object ZoomPlusButton: TSpeedButton Left = 0 Top = 0 Width = 32 Height = 32 Glyph.Data = { 06020000424D0602000000000000760000002800000019000000190000000100 0400000000009001000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 8888888888888000000088888888888887777888888880000000888888888888 0000788888888000000088888888888809907888888880000000888888888888 0990777788888000000088888888800009900007888880000000888888888099 9999990788888000000088888888809999999907888880000000888888888000 0990000888888000000081088888888809907888888880000000831088888888 0990788888888000000088310888888800008888888880000000888310888888 8888888888888000000088883108000088888888888880000000888883108888 0888888888888000000088888808888880888888888880000000888880888888 880888888888800000008888808F8888880888888888800000008888808FF888 880888888888800000008888808FFF888808888888888000000088888808FFFF 8088888888888000000088888800888800888888888880000000888888880000 8888888888888000000088888888888888888888888880000000888888888888 88888888888880000000} OnClick = ZoomPlusButtonClick end object ZommMinusButton: TSpeedButton Left = 32 Top = 0 Width = 32 Height = 32 Glyph.Data = { 06020000424D0602000000000000760000002800000019000000190000000100 0400000000009001000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 8888888888888000000088888888888888888888888880000000888888888888 8888888888888000000088888888888888888888888880000000888888888877 7777777788888000000088888888800000000007888880000000888888888099 9999990788888000000088888888809999999907888880000000888888888000 0000000888888000000081088888888888888888888880000000831088888888 8888888888888000000088310888888888888888888880000000888310888888 8888888888888000000088883108000088888888888880000000888883108888 0888888888888000000088888808888880888888888880000000888880888888 880888888888800000008888808F8888880888888888800000008888808FF888 880888888888800000008888808FFF888808888888888000000088888808FFFF 8088888888888000000088888800888800888888888880000000888888880000 8888888888888000000088888888888888888888888880000000888888888888 88888888888880000000} OnClick = ZommMinusButtonClick end object FullViewButton: TSpeedButton Left = 64 Top = 0 Width = 32 Height = 32 Glyph.Data = { 06020000424D0602000000000000760000002800000019000000190000000100 0400000000009001000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777778 7777777777777000000077777777770777777777777770000000777777777077 7777777777777000000077777777078888777777777770000000777777707999 9877777777777000000077777707799987777777777770000000777777777999 7877777777777000000077777777797797777777777770000000777777777777 7777777777777000000071077777777777777777777770000000731077777777 7777777777777000000077310777777777777777777770000000777310777777 7777777877877000000077773107000077777797898770000000777773107777 0077777999877000000077777707777770777779998700000000777770777777 770777999970700000007777707F7777770777777707700000007777707FF777 770777777077700000007777707FFF777707777707777000000077777707FFFF 7077777777777000000077777700777700777777777770000000777777770000 7777777777777000000077777777777777777777777770000000777777777777 77777777777770000000} OnClick = FullViewButtonClick end object RedrawButton: TSpeedButton Left = 96 Top = 0 Width = 32 Height = 32 Glyph.Data = { 06020000424D0602000000000000760000002800000019000000190000000100 0400000000009001000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 8888888888888000000088888888888888888888888880000000888888888888 8888888888888000000088888888888777777777788880000000888888888800 0000000078888000000088888888880999999990788880000000888888888800 0000000088888000000088888888888777777777788880000000888888888800 0000000078888000000081088888880999999990788880000000831088888800 0000000088888000000088310888888888888888888880000000888310888888 8888888888888000000088883108000088888888888880000000888883108888 0888888888888000000088888808888880888888888880000000888880888888 880888888888800000008888808F8888880888888888800000008888808FF888 880888888888800000008888808FFF888808888888888000000088888808FFFF 8088888888888000000088888800888800888888888880000000888888880000 8888888888888000000088888888888888888888888880000000888888888888 88888888888880000000} OnClick = RedrawButtonClick end object PreviousButton: TSpeedButton Left = 128 Top = 0 Width = 32 Height = 32 Glyph.Data = { 06020000424D0602000000000000760000002800000019000000190000000100 0400000000009001000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777000000077777777777777777778877770000000777777777888 8888770988777000000077777777099999977709988770000000777777770999 9977777099877000000077777777099998777777098770000000777777770999 9877777709877000000077777777090099877777098770000000777777770077 0998888099777000000071077777077770099999977770000000731077777777 7770000077777000000077310777777777777777777770000000777310777777 7777777777777000000077773107000077777777777770000000777773107777 0777777777777000000077777707777770777777777770000000777770777777 770777777777700000007777707F7777770777777777700000007777707FF777 770777777777700000007777707FFF777707777777777000000077777707FFFF 7077777777777000000077777700777700777777777770000000777777770000 7777777777777000000077777777777777777777777770000000777777777777 77777777777770000000} OnClick = PreviousButtonClick end object SearchButton: TSpeedButton Left = 160 Top = 0 Width = 32 Height = 32 Glyph.Data = { 06020000424D0602000000000000760000002800000019000000190000000100 0400000000009001000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 8888888888888000000088888888888888888888888880000000888888888888 8888888888888000000088888888000008888800000880000000888888880F00 0888880F000880000000888888880F000888880F000880000000888888880000 000800000008800000008888888800F000000F000008800000008888888800F0 00800F000008800000008108888800F000800F00000880000000831088888000 0000000000888000000088310888880F00080F00088880000000888310888800 0008000008888000000088883108000000888000888880000000888883108880 F08880F088888000000088888808888000888000888880000000888880888888 880888888888800000008888808F8888880888888888800000008888808FF888 880888888888800000008888808FFF888808888888888000000088888808FFFF 8088888888888000000088888800888800888888888880000000888888880000 8888888888888000000088888888888888888888888880000000888888888888 88888888888880000000} OnClick = SearchButtonClick end object PrintButton: TSpeedButton Left = 264 Top = 0 Width = 32 Height = 32 Hint = 'Einfacher Kartendruck' Glyph.Data = { 06020000424D0602000000000000760000002800000019000000190000000100 0400000000009001000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777000000077777778000000000000008770000000777777709888 98889888980770000000777777000000000000000000700000007777770F9F9F 9F9F9F9F9F907000000077777709F0F0F0F0F0F0F0F0700000007777770F9F9F 9F9F9F9F9F907000000077777707F7F7F7F7F7F7F7F070000000777777700000 0000000000077000000071077777090FFFFFFFF090777000000073107777000F FFFFFFF000777000000077310777770FFFFFFFF077777000000077731077770F FFFFFFF0777770000000777731070000FFFF0000777770000000777773107777 0FFF0F0777777000000077777707777770FF0077777770000000777770777777 770007777777700000007777707F7777770777777777700000007777707FF777 770777777777700000007777707FFF777707777777777000000077777707FFFF 7077777777777000000077777700777700777777777770000000777777770000 7777777777777000000077777777777777777777777770000000777777777777 77777777777770000000} OnClick = PrintButtonClick end object DetailButton: TSpeedButton Left = 192 Top = 0 Width = 32 Height = 32 Glyph.Data = { 06020000424D0602000000000000760000002800000019000000190000000100 0400000000009001000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777000000077777777777777777777777770000000777777777CCC CCCC77777777700000007777777CCCCCCCCCCC77777770000000777777CCCCCC CCCCCCC777777000000077777CCCCFFFFFFFCCCC7777700000007777CCCCCFFF FFFFCCCCC77770000000777CCCCCCCCFFFCCCCCCCC7770000000777CCCCCCCCF FFCCCCCCCC777000000077CCCCCCCCCFFFCCCCCCCCC77000000077CCCCCCCCCF FFCCCCCCCCC77000000077CCCCCCCCCFFFCCCCCCCCC77000000077CCCCCCCCCF FFCCCCCCCCC77000000077CCCCCCCCCFFFCCCCCCCCC77000000077CCCCCCCCCF FFCCCCCCCCC77000000077CCCCCCCFFFFFCCCCCCCCC770000000777CCCCCCFFF FFCCCCCCCC7770000000777CCCCCCCCCCCCCCCCCCC77700000007777CCCCCCC7 F7CCCCCCC7777000000077777CCCCCCFFFCCCCCC777770000000777777CCCCC7 F7CCCCC77777700000007777777CCCCCCCCCCC77777770000000777777777CCC CCCC777777777000000077777777777777777777777770000000777777777777 77777777777770000000} OnClick = DetailButtonClick end object SelectedButton: TSpeedButton Left = 224 Top = 0 Width = 32 Height = 32 Glyph.Data = { 06020000424D0602000000000000760000002800000019000000190000000100 0400000000009001000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777000000077777777777707777777777770000000777777777777 0777777777777000000077777777777707777777777770000000777777777700 0007777777777000000077777777777000777777777770000000777777777777 0777777777777000000077777777777777777777777770000000777777777788 8888877777777000000077777777700000008777777770000000777707777099 9990877707777000000077770077709999908770077770000000700000077099 9990870000007000000077770077709999908770077770000000777707777099 9990877707777000000077777777700000007777777770000000777777777777 7777777777777000000077777777777777777777777770000000777777777777 0777777777777000000077777777777000777777777770000000777777777700 0007777777777000000077777777777707777777777770000000777777777777 0777777777777000000077777777777707777777777770000000777777777777 77777777777770000000} OnClick = SelectedButtonClick end object DialogPrint: TSpeedButton Left = 296 Top = 0 Width = 32 Height = 32 Hint = 'Kartendruck mit Titel, Kopf- und Fu�zeile' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777770000000000077770777777777070770000000000000707077777799977 0007077777788877070700000000000007700777777777707070700000000007 0700770FFFFFFFF070707770F00000F000077770FFFFFFFF077777770F00000F 077777770FFFFFFFF07777777000000000777777777777777777} OnClick = DialogPrintClick end end object MapPanel: TPanel Left = 0 Top = 33 Width = 375 Height = 359 Align = alClient BevelOuter = bvLowered TabOrder = 1 OnResize = ResizeMap end end object MainMenu1: TMainMenu Left = 40 Top = 56 object Datei1: TMenuItem Caption = '&Datei' object ffnen1: TMenuItem Caption = '&�ffnen ...' OnClick = ffnen1Click end object ChooseMapItem: TMenuItem Caption = '&Karte w�hlen ...' OnClick = ChooseMapItemClick end object N1: TMenuItem Caption = '-' end object Ende1: TMenuItem Caption = '&Ende' OnClick = Ende1Click end end object GeoCheck1: TMenuItem Caption = '&Bearbeiten' object Ortsdaten1: TMenuItem Caption = '&Geocheck ...' OnClick = GeoCheck1Click end object TempData: TMenuItem Caption = '&Tempor�re Daten ...' OnClick = TempDataClick end object WeitereEinstellungen1: TMenuItem Caption = 'Weitere Einstellungen ...' OnClick = WeitereEinstellungen1Click end object N2: TMenuItem Caption = '-' end object Bitmaphinzufgen1: TMenuItem Caption = '&Bitmap hinzuf�gen ...' OnClick = Bitmaphinzufgen1Click end object Bitmapsentfernen1: TMenuItem Caption = 'Bit&maps entfernen' OnClick = Bitmapsentfernen1Click end object Bitmapspeichern: TMenuItem Caption = 'Karten-Screenshot speichern ...' OnClick = BitmapspeichernClick end object Kopieren1: TMenuItem Caption = 'Kopieren ...' OnClick = Kopieren1Click end object N3: TMenuItem Caption = '-' end object Selektion1: TMenuItem Caption = 'Selektion 1 ...' OnClick = Selektion1Click end object SelektionberMVSELECTOBJECT321: TMenuItem Caption = 'Selektion 2 ...' OnClick = SelektionberMVSELECTOBJECT321Click end object Datenbankoperationen1: TMenuItem Caption = 'Datenbankoperationen ...' OnClick = Datenbankoperationen1Click end object Navigation1: TMenuItem Caption = 'Navigation ...' OnClick = Navigation1Click end object N4: TMenuItem Caption = '-' end object Entfernungsrechnung1: TMenuItem Caption = 'Entfernungsrechnung' OnClick = Entfernungsrechnung1Click end object Koordinatenumrechnung1: TMenuItem Caption = 'Koordinatenumrechnung ...' OnClick = Koordinatenumrechnung1Click end object SuchenachPolygonen1: TMenuItem Caption = 'Suche nach Polygonen ...' OnClick = SuchenachPolygonen1Click end end end object OpenDataDialog: TOpenDialog DefaultExt = 'KEY' Filter = 'MapExplorer-Dateien (*.key)|*.key|Alle Dateien (*.*)|*.*' Left = 40 Top = 88 end object OpenBitmapDialog: TOpenDialog DefaultExt = 'BMP' Filter = 'Bitmaps (*.bmp)|*.bmp|Alle Dateien (*.*)|*.*' Options = [ofFileMustExist] Left = 72 Top = 88 end object MapOpenDialog: TOpenDialog DefaultExt = 'STA' FileName = 'standard.sta' Filter = 'Kartendaten|standard.sta' Options = [ofFileMustExist] Title = 'Karte w�hlen' Left = 72 Top = 56 end object SaveBitmapDialog: TSaveDialog DefaultExt = 'BMP' Filter = 'Bitmaps (*.bmp)|*.bmp' Options = [ofOverwritePrompt, ofCreatePrompt] Title = 'Karten-Screenshot als Bitmap speichern' Left = 104 Top = 88 end end