main.dfm

W78E516B在系统编程的上位机程序

object FormMain: TFormMain
  Left = 316
  Top = 120
  BorderStyle = bsSingle
  Caption = 'BTS'#26412#22320#35843#35797#21161#25163
  ClientHeight = 402
  ClientWidth = 514
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 514
    Height = 402
    ActivePage = TabSheet2
    Align = alClient
    BiDiMode = bdLeftToRight
    MultiLine = True
    ParentBiDiMode = False
    TabOrder = 0
    TabWidth = 80
    object TabSheet2: TTabSheet
      Caption = #30701#28040#24687#25805#20316
      ImageIndex = 1
      object MemoData: TMemo
        Left = 0
        Top = 0
        Width = 506
        Height = 313
        Align = alCustom
        ScrollBars = ssVertical
        TabOrder = 0
      end
      object Panel1: TPanel
        Left = 0
        Top = 317
        Width = 506
        Height = 57
        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 1
        object CheckBox1: TCheckBox
          Left = 8
          Top = 0
          Width = 89
          Height = 17
          Caption = 'ASCII'#26174#31034
          Checked = True
          State = cbChecked
          TabOrder = 0
          OnClick = CheckBox1Click
        end
        object ButtonAt: TButton
          Left = 408
          Top = 10
          Width = 75
          Height = 24
          Caption = #21457#36865
          Default = True
          TabOrder = 1
          OnClick = ButtonAtClick
        end
        object EditAt: TEdit
          Left = 8
          Top = 21
          Width = 385
          Height = 21
          TabOrder = 2
        end
        object Button2: TButton
          Left = 167
          Top = 1
          Width = 58
          Height = 18
          Caption = #28165#38500
          TabOrder = 3
          OnClick = Button2Click
        end
        object CheckBox2: TCheckBox
          Left = 410
          Top = 38
          Width = 78
          Height = 13
          Caption = '16'#36827#21046
          TabOrder = 4
        end
        object Button1: TButton
          Left = 312
          Top = 0
          Width = 58
          Height = 18
          Caption = 'unicode'
          TabOrder = 5
          OnClick = Button1Click
        end
      end
    end
    object TabSheet4: TTabSheet
      Caption = #35774#32622
      ImageIndex = 3
      object Label3: TLabel
        Left = 272
        Top = 64
        Width = 39
        Height = 13
        Caption = #27874#29305#29575
      end
      object Label4: TLabel
        Left = 272
        Top = 128
        Width = 52
        Height = 13
        Caption = #21457#36865#24310#26102
      end
      object Label5: TLabel
        Left = 341
        Top = 156
        Width = 14
        Height = 13
        Caption = 'ms'
      end
      object ButtonExit: TButton
        Left = 282
        Top = 292
        Width = 75
        Height = 25
        Caption = #36864#20986'(&X)'
        TabOrder = 0
        OnClick = ButtonExitClick
      end
      object RGCom: TRadioGroup
        Left = 40
        Top = 72
        Width = 209
        Height = 105
        Caption = #20018#21475#36873#25321
        Columns = 2
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ItemIndex = 0
        Items.Strings = (
          'COM1'
          'COM2'
          'COM3'
          'COM4')
        ParentFont = False
        TabOrder = 1
        OnClick = RGComClick
      end
      object ButtonCMGF: TButton
        Left = 48
        Top = 220
        Width = 75
        Height = 25
        Caption = 'TEXT'#26041#24335
        TabOrder = 2
        OnClick = ButtonCMGFClick
      end
      object EditBaudRate: TEdit
        Left = 272
        Top = 88
        Width = 65
        Height = 21
        MaxLength = 11
        TabOrder = 3
        Text = '9600'
        OnChange = EditBaudRateChange
      end
      object EditDelay: TEdit
        Left = 272
        Top = 152
        Width = 65
        Height = 21
        MaxLength = 11
        TabOrder = 4
        Text = '1'
        OnChange = EditBaudRateChange
      end
      object Button4: TButton
        Left = 132
        Top = 220
        Width = 75
        Height = 25
        Caption = #25171#24320#22238#26174
        TabOrder = 5
        OnClick = Button4Click
      end
      object Button5: TButton
        Left = 216
        Top = 220
        Width = 75
        Height = 25
        Caption = #20851#38381#22238#26174
        TabOrder = 6
        OnClick = Button5Click
      end
    end
    object TabSheet1: TTabSheet
      Caption = #31243#24207#19979#36733
      ImageIndex = 2
      object Label1: TLabel
        Left = 16
        Top = 30
        Width = 65
        Height = 13
        AutoSize = False
        Caption = #19979#36733#25991#20214
      end
      object LabelDelayLoop: TLabel
        Left = 152
        Top = 198
        Width = 7
        Height = 13
        Caption = '1'
      end
      object Label2: TLabel
        Left = 24
        Top = 198
        Width = 111
        Height = 13
        Caption = #19979#36733#24310#26102#24490#29615#27425#25968':'
      end
      object LabelSentNum: TLabel
        Left = 56
        Top = 296
        Width = 7
        Height = 13
      end
      object ButtonOpen: TButton
        Left = 384
        Top = 56
        Width = 75
        Height = 25
        Caption = #27983#35272
        TabOrder = 0
        OnClick = ButtonOpenClick
      end
      object EditFileName: TEdit
        Left = 72
        Top = 26
        Width = 401
        Height = 21
        Color = cl3DLight
        ReadOnly = True
        TabOrder = 1
      end
      object ButtonDownload: TButton
        Left = 216
        Top = 312
        Width = 75
        Height = 25
        Caption = #19979#36733
        TabOrder = 2
        OnClick = ButtonDownloadClick
      end
      object TrackBar: TTrackBar
        Left = 24
        Top = 226
        Width = 449
        Height = 25
        Max = 100
        Min = 1
        Frequency = 1000
        Position = 1
        TabOrder = 3
        OnChange = TrackBarChange
      end
    end
  end
  object Comm: TComm
    CommName = 'COM2'
    BaudRate = 115200
    ParityCheck = False
    Outx_CtsFlow = False
    Outx_DsrFlow = False
    DtrControl = DtrEnable
    DsrSensitivity = False
    TxContinueOnXoff = True
    Outx_XonXoffFlow = False
    Inx_XonXoffFlow = False
    ReplaceWhenParityError = False
    IgnoreNullChar = False
    RtsControl = RtsEnable
    XonLimit = 500
    XoffLimit = 500
    ByteSize = _8
    Parity = None
    StopBits = _1
    XonChar = #17
    XoffChar = #19
    ReplacedChar = #0
    ReadIntervalTimeout = 100
    ReadTotalTimeoutMultiplier = 0
    ReadTotalTimeoutConstant = 0
    WriteTotalTimeoutMultiplier = 0
    WriteTotalTimeoutConstant = 0
    OnReceiveData = CommReceiveData
    Left = 392
    Top = 200
  end
  object TimerOvertime: TTimer
    Enabled = False
    Interval = 8000
    OnTimer = TimerOvertimeTimer
    Left = 424
    Top = 200
  end
  object OpenDialog: TOpenDialog
    Filter = '*.bin|*.bin|*.*|*.*'
    Left = 360
    Top = 200
  end
end