cbmain1.dfm

wince下GPRS MODEM编程指南及参考源代码

object Form1: TForm1
  Left = 299
  Top = 117
  Width = 502
  Height = 475
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object ScrollBox1: TScrollBox
    Left = 0
    Top = 129
    Width = 494
    Height = 319
    Align = alClient
    BevelInner = bvNone
    BevelOuter = bvNone
    BorderStyle = bsNone
    TabOrder = 0
    object Splitter1: TSplitter
      Left = 177
      Top = 0
      Width = 3
      Height = 319
      Cursor = crHSplit
    end
    object lbMessage: TListBox
      Left = 0
      Top = 0
      Width = 177
      Height = 319
      Align = alLeft
      Color = clMoneyGreen
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
      ItemHeight = 16
      ParentFont = False
      TabOrder = 0
      OnClick = lbMessageClick
    end
    object meMessage: TMemo
      Left = 180
      Top = 0
      Width = 314
      Height = 319
      Align = alClient
      Color = 54528
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 494
    Height = 129
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object Label1: TLabel
      Left = 208
      Top = 10
      Width = 273
      Height = 31
      AutoSize = False
      Caption = 'SMS Sender / Receiver'
      Color = clBtnFace
      Font.Charset = GB2312_CHARSET
      Font.Color = 1878476
      Font.Height = -21
      Font.Name = #26999#20307'_GB2312'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object btStart: TButton
      Left = 32
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Start'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = btStartClick
    end
    object btStop: TButton
      Left = 112
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Stop'
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = btStopClick
    end
    object GroupBox1: TGroupBox
      Left = 0
      Top = 40
      Width = 494
      Height = 89
      Align = alBottom
      Caption = 'Message Info'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Courier New'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      object Label2: TLabel
        Left = 456
        Top = 61
        Width = 25
        Height = 22
        AutoSize = False
        Caption = #27425
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Courier New'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 24
        Top = 58
        Width = 41
        Height = 22
        AutoSize = False
        Caption = #20869#23481#65306
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Courier New'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 32
        Top = 20
        Width = 33
        Height = 22
        AutoSize = False
        Caption = 'MP'#65306
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Courier New'
        Font.Style = []
        ParentFont = False
      end
      object edSendText: TEdit
        Left = 72
        Top = 56
        Width = 329
        Height = 24
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Courier New'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        Text = #24685#36154#26032#31143' Happy New Year'
      end
      object csCount: TCSpinEdit
        Left = 408
        Top = 56
        Width = 41
        Height = 26
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxValue = 10
        MinValue = 1
        ParentFont = False
        TabOrder = 1
        Value = 1
      end
      object btSend: TButton
        Left = 240
        Top = 16
        Width = 137
        Height = 25
        Caption = 'Send Message'
        Enabled = False
        TabOrder = 2
        OnClick = btSendClick
      end
      object edTo: TEdit
        Left = 72
        Top = 16
        Width = 121
        Height = 24
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Courier New'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        Text = '13701803170'
      end
    end
  end
  object TimerQ: TTimer
    Enabled = False
    OnTimer = TimerQTimer
    Left = 424
    Top = 56
  end
end