softmodem1.dfm

软件实现(模拟)Modem操作. 使用C++ buider实现. 简单的例子.

object Form1: TForm1
  Left = 190
  Top = 113
  Width = 696
  Height = 480
  Caption = 'Software Modem'
  Color = clSkyBlue
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -21
  Font.Name = 'Microsoft Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 25
  object Label1: TLabel
    Left = 24
    Top = 104
    Width = 83
    Height = 16
    Caption = 'Send Window'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 24
    Top = 192
    Width = 102
    Height = 16
    Caption = 'Receive Window'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 200
    Top = 16
    Width = 241
    Height = 37
    Caption = 'Software Modem'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 264
    Top = 64
    Width = 109
    Height = 25
    Caption = 'Test Bench'
  end
  object Button1: TButton
    Left = 120
    Top = 288
    Width = 177
    Height = 73
    Caption = 'SEND'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 384
    Top = 288
    Width = 177
    Height = 73
    Caption = 'TEST'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = Button2Click
  end
  object RichEdit1: TRichEdit
    Left = 24
    Top = 120
    Width = 641
    Height = 33
    Lines.Strings = (
      '')
    PlainText = True
    TabOrder = 2
  end
  object RichEdit2: TRichEdit
    Left = 24
    Top = 208
    Width = 641
    Height = 25
    TabOrder = 3
  end
  object MainMenu1: TMainMenu
    Left = 24
    Top = 24
    object File1: TMenuItem
      Caption = '&File'
      object Exit1: TMenuItem
        Caption = 'E&xit'
        OnClick = Exit1Click
      end
    end
    object Help1: TMenuItem
      Caption = '&Information'
      object About1: TMenuItem
        Caption = '&About...'
        OnClick = About1Click
      end
    end
  end
end