Chip: 25 Years Anniversary/CHIP_25Jahre_Jubilaeum.iso/system/data1.cab/MapServer/English.dll/0/RCDATA/TDISTTESTFORM/TDISTTESTFORM.txt

Text File | 2001-08-13 | 8KB | 343 lines

object DisttestForm: TDisttestForm
  Left = 287
  Top = 177
  BorderStyle = bsDialog
  Caption = 'Wegerechnung'
  ClientHeight = 256
  ClientWidth = 336
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object OK: TButton
    Left = 240
    Top = 224
    Width = 89
    Height = 25
    Caption = 'Schlie�en'
    ModalResult = 1
    TabOrder = 0
    OnClick = OKClick
  end
  object TabbedNotebook1: TTabbedNotebook
    Left = 8
    Top = 8
    Width = 321
    Height = 209
    PageIndex = 1
    TabFont.Charset = DEFAULT_CHARSET
    TabFont.Color = clBtnText
    TabFont.Height = -11
    TabFont.Name = 'MS Sans Serif'
    TabFont.Style = []
    TabOrder = 1
    object TTabPage
      Left = 4
      Top = 24
      Caption = 'Entfernungsrechnung'
      object Label1: TLabel
        Left = 16
        Top = 80
        Width = 11
        Height = 13
        Caption = 'x1'
      end
      object Label2: TLabel
        Left = 16
        Top = 104
        Width = 11
        Height = 13
        Caption = 'y1'
      end
      object Label3: TLabel
        Left = 16
        Top = 128
        Width = 11
        Height = 13
        Caption = 'x2'
      end
      object Label4: TLabel
        Left = 16
        Top = 152
        Width = 11
        Height = 13
        Caption = 'y2'
      end
      object Ergebnis: TLabel
        Left = 176
        Top = 48
        Width = 41
        Height = 13
        Caption = 'Ergebnis'
      end
      object Label11: TLabel
        Left = 280
        Top = 68
        Width = 14
        Height = 13
        Caption = 'km'
      end
      object Mode: TRadioGroup
        Left = 16
        Top = 8
        Width = 145
        Height = 57
        Caption = 'Berechnung nach'
        ItemIndex = 0
        Items.Strings = (
          'Luftlinie'
          'Stra�enkilometer')
        TabOrder = 0
      end
      object x1Edit: TEdit
        Left = 40
        Top = 76
        Width = 121
        Height = 21
        TabOrder = 1
        Text = '5000000'
      end
      object y1Edit: TEdit
        Left = 40
        Top = 100
        Width = 121
        Height = 21
        TabOrder = 2
        Text = '3400000'
      end
      object x2Edit: TEdit
        Left = 40
        Top = 124
        Width = 121
        Height = 21
        TabOrder = 3
        Text = '5300000'
      end
      object y2Edit: TEdit
        Left = 40
        Top = 148
        Width = 121
        Height = 21
        TabOrder = 4
        Text = '3800000'
      end
      object Button1: TButton
        Left = 176
        Top = 16
        Width = 121
        Height = 25
        Caption = 'Entfernung berechnen'
        TabOrder = 5
        OnClick = Button1Click
      end
      object ResultEdit: TEdit
        Left = 176
        Top = 64
        Width = 97
        Height = 21
        ReadOnly = True
        TabOrder = 6
        Text = '0'
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = 'Routenrechnung'
      object Label6: TLabel
        Left = 8
        Top = 8
        Width = 5
        Height = 13
        Caption = 'x'
      end
      object Label7: TLabel
        Left = 8
        Top = 24
        Width = 5
        Height = 13
        Caption = 'y'
      end
      object Label5: TLabel
        Left = 160
        Top = 155
        Width = 41
        Height = 13
        Caption = 'Ergebnis'
      end
      object Label8: TLabel
        Left = 40
        Top = 48
        Width = 56
        Height = 13
        Caption = 'Stationsliste'
      end
      object Label9: TLabel
        Left = 88
        Top = 8
        Width = 21
        Height = 13
        Caption = 'Text'
      end
      object AddButton: TSpeedButton
        Left = 8
        Top = 64
        Width = 25
        Height = 25
        Hint = 'Eingabedaten Zur Stzationsliste hinzuf�gen'
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          0400000000000001000000000000000000001000000010000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33333333FF33333333FF333993333333300033377F3333333777333993333333
          300033F77FFF3333377739999993333333333777777F3333333F399999933333
          33003777777333333377333993333333330033377F3333333377333993333333
          3333333773333333333F333333333333330033333333F33333773333333C3333
          330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
          993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
          333333333337733333FF3333333C333330003333333733333777333333333333
          3000333333333333377733333333333333333333333333333333}
        NumGlyphs = 2
        OnClick = AddButtonClick
      end
      object ClearButton: TSpeedButton
        Left = 8
        Top = 96
        Width = 25
        Height = 25
        Hint = 'Stationsliste l�schen'
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          0400000000000001000000000000000000001000000010000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
          555557777F777555F55500000000555055557777777755F75555005500055055
          555577F5777F57555555005550055555555577FF577F5FF55555500550050055
          5555577FF77577FF555555005050110555555577F757777FF555555505099910
          555555FF75777777FF555005550999910555577F5F77777775F5500505509990
          3055577F75F77777575F55005055090B030555775755777575755555555550B0
          B03055555F555757575755550555550B0B335555755555757555555555555550
          BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
          50BB555555555555575F555555555555550B5555555555555575}
        NumGlyphs = 2
        OnClick = ClearButtonClick
      end
      object Label10: TLabel
        Left = 264
        Top = 155
        Width = 43
        Height = 13
        Caption = 'Kilometer'
      end
      object xrEdit: TEdit
        Left = 24
        Top = 4
        Width = 57
        Height = 21
        TabOrder = 0
        Text = '5000000'
      end
      object yrEdit: TEdit
        Left = 24
        Top = 28
        Width = 57
        Height = 21
        TabOrder = 1
        Text = '3400000'
      end
      object CalcRouteButton: TButton
        Left = 40
        Top = 149
        Width = 113
        Height = 25
        Caption = 'Weg berechnen'
        TabOrder = 2
        OnClick = CalcRouteButtonClick
      end
      object ErgebnisEdit: TEdit
        Left = 208
        Top = 152
        Width = 49
        Height = 21
        ReadOnly = True
        TabOrder = 3
        Text = '0'
      end
      object ListBox1: TListBox
        Left = 40
        Top = 64
        Width = 265
        Height = 73
        ItemHeight = 13
        TabOrder = 4
      end
      object TextEdit: TEdit
        Left = 114
        Top = 4
        Width = 191
        Height = 21
        TabOrder = 5
        Text = '[Stationsname]'
      end
      object TownSearchButton: TButton
        Left = 216
        Top = 32
        Width = 89
        Height = 25
        Caption = 'Ortsuche ...'
        TabOrder = 6
        OnClick = TownSearchButtonClick
      end
      object Button2: TButton
        Left = 112
        Top = 32
        Width = 89
        Height = 25
        Caption = 'N�chster Ort'
        TabOrder = 7
        OnClick = Button2Click
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = 'Wegliste'
      object StringGrid: TStringGrid
        Left = 8
        Top = 8
        Width = 297
        Height = 169
        ColCount = 8
        DefaultRowHeight = 16
        FixedCols = 0
        RowCount = 10
        TabOrder = 0
        ColWidths = (
          37
          34
          107
          65
          101
          120
          64
          66)
      end
    end
  end
  object OptionButton: TButton
    Left = 8
    Top = 224
    Width = 105
    Height = 25
    Caption = 'Einstellungen ...'
    TabOrder = 2
    OnClick = OptionButtonClick
  end
end