unitlineinfo.~dfm

此代码是关于mapgis的在

object Form_LineInfo: TForm_LineInfo
  Left = 365
  Top = 238
  BorderStyle = bsDialog
  Caption = #32447#36335#35774#32622
  ClientHeight = 274
  ClientWidth = 361
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 112
    Top = 241
    Width = 75
    Height = 25
    Caption = #30830#23450
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 192
    Top = 241
    Width = 75
    Height = 25
    Caption = #21462#28040
    TabOrder = 1
    OnClick = Button2Click
  end
  object PageControl1: TPageControl
    Left = 8
    Top = 8
    Width = 345
    Height = 225
    ActivePage = TabSheet1
    TabOrder = 2
    object TabSheet1: TTabSheet
      Caption = #19968#33324#23646#24615
      object GroupBox1: TGroupBox
        Left = 8
        Top = 8
        Width = 321
        Height = 177
        TabOrder = 0
        object Label1: TLabel
          Left = 16
          Top = 32
          Width = 36
          Height = 13
          Caption = #32534#21495#65306
        end
        object Label2: TLabel
          Left = 16
          Top = 64
          Width = 36
          Height = 13
          Caption = #21517#31216#65306
        end
        object Label3: TLabel
          Left = 16
          Top = 128
          Width = 36
          Height = 13
          Caption = #22791#27880#65306
        end
        object Label4: TLabel
          Left = 16
          Top = 96
          Width = 36
          Height = 13
          Caption = #38271#24230#65306
        end
        object Label5: TLabel
          Left = 176
          Top = 96
          Width = 24
          Height = 13
          Caption = #20844#37324
        end
        object edLineName: TEdit
          Left = 56
          Top = 56
          Width = 241
          Height = 21
          TabOrder = 0
        end
        object edScript: TEdit
          Left = 56
          Top = 120
          Width = 241
          Height = 21
          TabOrder = 1
        end
        object edLength: TSpinEdit
          Left = 56
          Top = 88
          Width = 113
          Height = 22
          MaxValue = 0
          MinValue = 0
          TabOrder = 2
          Value = 0
        end
        object edLineId: TEdit
          Left = 56
          Top = 24
          Width = 81
          Height = 21
          TabOrder = 3
          OnKeyPress = edLineIdKeyPress
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #24320#20851#35774#32622
      ImageIndex = 1
      object GroupBox2: TGroupBox
        Left = 8
        Top = 8
        Width = 321
        Height = 177
        TabOrder = 0
        object ListView1: TListView
          Left = 8
          Top = 16
          Width = 297
          Height = 153
          Columns = <
            item
              Caption = #32534#21495
            end
            item
              Caption = #21517#31216
              Width = 140
            end>
          GridLines = True
          RowSelect = True
          TabOrder = 0
          ViewStyle = vsReport
        end
      end
    end
  end
  object Button3: TButton
    Left = 272
    Top = 241
    Width = 75
    Height = 25
    Caption = #24110#21161
    Enabled = False
    TabOrder = 3
  end
end