frmmain.dfm

用于建筑的测斜数据处理!把测试设备的数据下载电脑,通过本系统进行分析,然后生成所需要的数据!

object main: Tmain
  Left = 192
  Top = 107
  Width = 696
  Height = 480
  Caption = #25968#23383#27979#26012#20202#22120#25968#25454#20998#26512#31995#32479' '#24191#24030#38081#36335#65288#38598#22242#65289#20844#21496#31185#23398#25216#26415#30740#31350#25152'  '#20813#27880#20876#29256'  '#31185#30740#25152#20869#37096#20351#29992
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  WindowState = wsMaximized
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label4: TLabel
    Left = 2
    Top = 312
    Width = 77
    Height = 14
    Caption = #22522#20934#20540#25991#20214':'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Memo_head: TMemo
    Left = 328
    Top = 63
    Width = 305
    Height = 239
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 0
  end
  object Button1: TButton
    Left = 542
    Top = 308
    Width = 89
    Height = 25
    Caption = #36873#21462#27604#36739#25991#20214
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = Button1Click
  end
  object ProgressBar1: TProgressBar
    Left = 2
    Top = 338
    Width = 631
    Height = 16
    Min = 0
    Max = 100
    TabOrder = 2
  end
  object cklistbox: TCheckListBox
    Left = 3
    Top = 360
    Width = 630
    Height = 305
    Columns = 2
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    TabOrder = 3
  end
  object btncldata: TBitBtn
    Left = 555
    Top = 672
    Width = 75
    Height = 25
    Caption = #25968#25454#22788#29702
    TabOrder = 4
    OnClick = btncldataClick
  end
  object ProgressBar2: TProgressBar
    Left = 5
    Top = 672
    Width = 548
    Height = 25
    Min = 0
    Max = 100
    Step = 20
    TabOrder = 5
  end
  object StringGrid: TStringGrid
    Left = 636
    Top = 64
    Width = 381
    Height = 634
    ColCount = 6
    DefaultColWidth = 50
    DefaultRowHeight = 14
    FixedColor = clSilver
    RowCount = 50
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    OnDrawCell = StringGridDrawCell
    ColWidths = (
      50
      36
      61
      66
      62
      64)
    RowHeights = (
      14
      14
      14
      14
      14
      14
      14
      15
      14
      14
      14
      14
      14
      14
      14
      14
      14
      14
      14
      14
      14
      14
      14
      14
      14
      14
      14
      14
      14
      14
      14
      14
      14
      14
      14
      14
      14
      14
      14
      14
      14
      14
      14
      14
      14
      14
      14
      14
      14
      14)
  end
  object GroupBox1: TGroupBox
    Left = 2
    Top = 31
    Width = 327
    Height = 273
    Caption = #35831#36873#25321#25991#20214
    TabOrder = 7
    object DriveComboBox1: TDriveComboBox
      Left = 4
      Top = 16
      Width = 180
      Height = 19
      DirList = DirectoryListBox1
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ParentFont = False
      TabOrder = 0
      TextCase = tcUpperCase
    end
    object DirectoryListBox1: TDirectoryListBox
      Left = 4
      Top = 38
      Width = 180
      Height = 230
      FileList = FileListBox1
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 16
      ParentFont = False
      TabOrder = 1
    end
    object FileListBox1: TFileListBox
      Left = 186
      Top = 8
      Width = 138
      Height = 261
      Cursor = crArrow
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ItemHeight = 13
      Mask = '*.CSV'
      ParentFont = False
      PopupMenu = PopupMenu1
      TabOrder = 2
      OnClick = FileListBox1Click
    end
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 1017
    Height = 29
    ButtonWidth = 75
    Caption = 'ToolBar1'
    HotImages = ImageList1
    Images = ImageList1
    List = True
    ShowCaptions = True
    TabOrder = 8
    object ToolButton3: TToolButton
      Left = 0
      Top = 2
      Caption = #25171#24320#25991#20214
      ImageIndex = 2
      OnClick = ToolButton3Click
    end
    object ToolButton1: TToolButton