www.pudn.com > CommSettings.rar > UnitMain.dfm

object Form1: TForm1 
  Left = 348 
  Top = 371 
  Width = 500 
  Height = 350 
  Caption = 'Form1' 
  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 
  PixelsPerInch = 96 
  TextHeight = 13 
  object Panel2: TPanel 
    Left = 393 
    Top = 0 
    Width = 99 
    Height = 304 
    Align = alRight 
    BevelOuter = bvNone 
    TabOrder = 1 
    object Panel1: TPanel 
      Left = 0 
      Top = 170 
      Width = 99 
      Height = 134 
      Align = alBottom 
      BevelOuter = bvNone 
      TabOrder = 0 
      object BitBtn3: TBitBtn 
        Left = 6 
        Top = 72 
        Width = 87 
        Height = 25 
        Action = ActionLanguage 
        Caption = 'Language' 
        TabOrder = 2 
      end 
      object BitBtn1: TBitBtn 
        Left = 6 
        Top = 8 
        Width = 87 
        Height = 25 
        Action = ActionSend 
        Caption = 'Send' 
        TabOrder = 0 
      end 
      object BitBtn2: TBitBtn 
        Left = 6 
        Top = 40 
        Width = 87 
        Height = 25 
        Action = ActionCommSet 
        Caption = 'Comm Set' 
        TabOrder = 1 
      end 
      object BitBtn4: TBitBtn 
        Left = 6 
        Top = 104 
        Width = 87 
        Height = 25 
        Action = ActionExit 
        Caption = 'Exit' 
        TabOrder = 3 
      end 
    end 
  end 
  object Panel4: TPanel 
    Left = 0 
    Top = 0 
    Width = 393 
    Height = 304 
    Align = alClient 
    BevelOuter = bvNone 
    Caption = 'Panel4' 
    TabOrder = 0 
    OnResize = Panel4Resize 
    object Panel3: TPanel 
      Left = 0 
      Top = 0 
      Width = 393 
      Height = 25 
      Align = alTop 
      BevelOuter = bvNone 
      TabOrder = 0 
      object Edit1: TEdit 
        Left = 0 
        Top = 2 
        Width = 393 
        Height = 21 
        TabOrder = 0 
        Text = '02 FB AA 3F 2F 1A 33' 
      end 
    end 
    object Memo1: TMemo 
      Left = 0 
      Top = 25 
      Width = 393 
      Height = 279 
      Align = alClient 
      Lines.Strings = ( 
        'Memo1') 
      ScrollBars = ssBoth 
      TabOrder = 1 
      WordWrap = False 
    end 
  end 
  object YbCommDevice1: TYbCommDevice 
    PortNo = 2 
    Baud = br115200 
    ByteSize = 8 
    InBufSize = 8192 
    OutBufSize = 8192 
    HwInSize = 1200 
    HwOutSize = 1200 
    QueueSize = 16 
    PackageSize = 4096 
    Left = 128 
    Top = 72 
  end 
  object ActionList1: TActionList 
    Left = 64 
    Top = 72 
    object ActionCommSet: TAction 
      Category = 'File' 
      Caption = 'Comm Set' 
      OnExecute = ActionCommSetExecute 
    end 
    object ActionLanguage: TAction 
      Category = 'File' 
      Caption = 'Language' 
      OnExecute = ActionLanguageExecute 
    end 
    object ActionExit: TAction 
      Category = 'File' 
      Caption = 'Exit' 
      OnExecute = ActionExitExecute 
    end 
    object ActionHelp: TAction 
      Category = 'Help' 
      Caption = 'Help' 
    end 
    object ActionAbout: TAction 
      Category = 'Help' 
      Caption = 'About' 
      OnExecute = ActionAboutExecute 
    end 
    object ActionSend: TAction 
      Category = 'Data' 
      Caption = 'Send' 
      OnExecute = ActionSendExecute 
    end 
  end 
  object MainMenu1: TMainMenu 
    Left = 96 
    Top = 72 
    object MenuFile: TMenuItem 
      Caption = '&File' 
      object CommSet1: TMenuItem 
        Action = ActionCommSet 
      end 
      object Language1: TMenuItem 
        Action = ActionLanguage 
      end 
      object N1: TMenuItem 
        Caption = '-' 
      end 
      object Exit1: TMenuItem 
        Action = ActionExit 
      end 
    end 
    object MenuData: TMenuItem 
      Caption = '&Data' 
      object Send1: TMenuItem 
        Action = ActionSend 
      end 
    end 
    object MenuHelp: TMenuItem 
      Caption = '&Help' 
      object About1: TMenuItem 
        Action = ActionHelp 
      end 
      object About2: TMenuItem 
        Action = ActionAbout 
      end 
    end 
  end 
  object Timer1: TTimer 
    Interval = 200 
    OnTimer = Timer1Timer 
    Left = 160 
    Top = 72 
  end 
end