unitd.dfm

TOxygenSMS控件允许你发送接受文本和图片消息

object Form1: TForm1
  Left = 190
  Top = 106
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Oxygen SMS Component - Demo'
  ClientHeight = 347
  ClientWidth = 533
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GBox4: TGroupBox
    Left = 200
    Top = 140
    Width = 333
    Height = 189
    Caption = 'Receiving'
    TabOrder = 4
    object Label3: TLabel
      Left = 237
      Top = 43
      Width = 32
      Height = 13
      Caption = 'Label3'
    end
    object Label4: TLabel
      Left = 237
      Top = 56
      Width = 32
      Height = 13
      Caption = 'Label4'
    end
    object Label6: TLabel
      Left = 237
      Top = 83
      Width = 32
      Height = 13
      Caption = 'Label6'
    end
    object Label7: TLabel
      Left = 237
      Top = 96
      Width = 32
      Height = 13
      Caption = 'Label7'
    end
    object Label2: TLabel
      Left = 237
      Top = 29
      Width = 32
      Height = 13
      Caption = 'Label2'
    end
    object Label5: TLabel
      Left = 237
      Top = 69
      Width = 32
      Height = 13
      Caption = 'Label5'
    end
    object Button7: TButton
      Left = 240
      Top = 124
      Width = 41
      Height = 25
      Caption = 'Info'
      TabOrder = 1
      OnClick = Button7Click
    end
    object MsgGrid: TStringGrid
      Left = 4
      Top = 16
      Width = 325
      Height = 169
      ColCount = 6
      DefaultRowHeight = 16
      FixedCols = 0
      RowCount = 2
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goRowSelect]
      TabOrder = 0
      OnClick = MsgGridClick
    end
  end
  object GBox2: TGroupBox
    Left = 200
    Top = 0
    Width = 333
    Height = 137
    Caption = 'Inbox'
    TabOrder = 1
    object TotalL: TLabel
      Left = 23
      Top = 56
      Width = 30
      Height = 13
      Caption = 'Total :'
    end
    object TotalMsgL: TLabel
      Left = 60
      Top = 56
      Width = 6
      Height = 13
      Caption = '0'
    end
    object BusyL: TLabel
      Left = 24
      Top = 78
      Width = 29
      Height = 13
      Caption = 'Busy :'
    end
    object BusyMsgL: TLabel
      Left = 60
      Top = 78
      Width = 6
      Height = 13
      Caption = '0'
    end
    object CurMsgL: TLabel
      Left = 13
      Top = 104
      Width = 40
      Height = 13
      Caption = 'Current :'
    end
    object TextL: TLabel
      Left = 140
      Top = 20
      Width = 27
      Height = 13
      Caption = 'Text :'
    end
    object MsgTextL: TLabel
      Left = 176
      Top = 20
      Width = 149
      Height = 37
      AutoSize = False
      WordWrap = True
    end
    object TimeL: TLabel
      Left = 138
      Top = 59
      Width = 29
      Height = 13
      Caption = 'Time :'
    end
    object MsgTimeL: TLabel
      Left = 176
      Top = 59
      Width = 3
      Height = 13
    end
    object FromL: TLabel
      Left = 138
      Top = 81
      Width = 29
      Height = 13
      Caption = 'From :'
    end
    object MsgFromL: TLabel
      Left = 176
      Top = 81
      Width = 3
      Height = 13
    end
    object PictureL: TLabel
      Left = 128
      Top = 104
      Width = 39
      Height = 13
      Caption = 'Picture :'
    end
    object NoPictureL: TLabel
      Left = 176
      Top = 104
      Width = 24
      Height = 13
      Caption = 'none'
    end
    object Image1: TImage
      Left = 177
      Top = 105
      Width = 72
      Height = 28
      Visible = False
      OnDblClick = Image1DblClick
    end
    object Bevel1: TBevel
      Left = 120
      Top = 12
      Width = 9
      Height = 117
      Shape = bsLeftLine
    end
    object DelMsg_Btn: TButton
      Left = 254
      Top = 108
      Width = 75
      Height = 25
      Caption = 'Delete'
      TabOrder = 2
      OnClick = DelMsg_BtnClick
    end
    object ReadMsg_Btn: TButton
      Left = 254
      Top = 36
      Width = 75
      Height = 25
      Caption = 'Read'
      TabOrder = 3
      Visible = False
      OnClick = ReadMsg_BtnClick
    end
    object GetInbox_Btn: TButton
      Left = 8
      Top = 20
      Width = 75
      Height = 25
      Caption = 'Get Inbox'
      TabOrder = 0
      OnClick = GetInbox_BtnClick
    end
    object MsgNumCB: TComboBox
      Left = 60
      Top = 100
      Width = 45
      Height = 21
      ItemHeight = 13
      TabOrder = 1
      OnChange = MsgNumCBChange
    end
  end
  object StBar: TStatusBar
    Left = 0
    Top = 328
    Width = 533
    Height = 19
    Panels = <
      item
        Text = 'Not Connected'
        Width = 82
      end
      item
        Text = 'Phone type: none'
        Width = 113
      end
      item
        Text = 'IMEI:'
        Width = 130
      end
      item
        Width = 100
      end>
    SimplePanel = False
  end
  object GBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 197
    Height = 137
    Caption = 'Connection'
    TabOrder = 0
    object PhoneML: TLabel
      Left = 20
      Top = 20
      Width = 68
      Height = 13
      Caption = 'Phone model :'
    end
    object PortL: TLabel
      Left = 39
      Top = 48
      Width = 49
      Height = 13
      Caption = 'Com Port :'
    end
    object ConnTypeL: TLabel
      Left = 25
      Top = 76
      Width = 63
      Height = 13
      Caption = 'Connect via :'
    end
    object PhoneMCB: TComboBox
      Left = 96
      Top = 16
      Width = 70
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 0
      OnChange = PhoneMCBChange
      Items.Strings = (
        '3***'
        '51**'
        '61**'
        '62**'
        '71**'
        '8***')
    end
    object PortE: TSpinEdit
      Left = 96
      Top = 44
      Width = 70
      Height = 22
      MaxLength = 2
      MaxValue = 99
      MinValue = 1
      TabOrder = 1
      Value = 2
      OnChange = PortEChange
    end
    object ConnTCB: TComboBox
      Left = 96
      Top = 72
      Width = 70
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 2
      OnChange = ConnTCBChange
      Items.Strings = (
        'DAU-9P'
        'DLR-3'
        'InfraRed')
    end
    object ConnBtn: TButton
      Left = 16
      Top = 104
      Width = 75
      Height = 25
      Caption = 'Connect'
      TabOrder = 3
      OnClick = ConnBtnClick
    end
    object DisConnBtn: TButton
      Left = 104
      Top = 104
      Width = 75
      Height = 25
      Caption = 'Disconnect'
      TabOrder = 4
      OnClick = DisConnBtnClick
    end
  end
  object GBox3: TGroupBox
    Left = 0
    Top = 140
    Width = 197
    Height = 189
    Caption = 'Sending'
    TabOrder = 2
    object Bevel2: TBevel
      Left = 15
      Top = 131
      Width = 74
      Height = 30
    end
    object SendToL: TLabel
      Left = 28
      Top = 24
      Width = 19
      Height = 13
      Caption = 'To :'
    end
    object SendTextL: TLabel
      Left = 20
      Top = 52
      Width = 27
      Height = 13
      Caption = 'Text :'
    end
    object SendValidL: TLabel
      Left = 8
      Top = 80
      Width = 39
      Height = 13
      Caption = 'Validity :'
    end
    object Picture_Btn: TSpeedButton
      Left = 16
      Top = 132
      Width = 72
      Height = 28
      Caption = 'No Picture'
      Flat = True
      OnClick = Picture_BtnClick
    end
    object SpeedButton1: TSpeedButton
      Left = 24
      Top = 164
      Width = 57
      Height = 17
      Caption = 'Clear'
      Flat = True
      OnClick = SpeedButton1Click
    end
    object NRepChB: TCheckBox
      Left = 12
      Top = 108
      Width = 97
      Height = 17
      Caption = 'Request report'
      TabOrder = 0
    end
    object UnicodeChB: TCheckBox
      Left = 120
      Top = 108
      Width = 65
      Height = 17
      Caption = 'Unicode'
      TabOrder = 1
    end
    object SendMsgBtn: TButton
      Left = 106
      Top = 132
      Width = 75
      Height = 25
      Caption = 'Send'
      TabOrder = 2
      OnClick = SendMsgBtnClick
    end
    object SendToE: TEdit
      Left = 56
      Top = 20
      Width = 132
      Height = 21
      TabOrder = 3
      Text = '[phone]'
    end
    object SendTextE: TEdit
      Left = 56
      Top = 48
      Width = 132
      Height = 21
      TabOrder = 4
      Text = 'www.oxygensoftware.com'
    end
    object SendValidE: TSpinEdit
      Left = 56
      Top = 76
      Width = 69
      Height = 22
      MaxLength = 1
      MaxValue = 255
      MinValue = 0
      TabOrder = 5
      Value = 2
    end
  end
  object SMS1: TOxygenSMS
    ComNumber = 0
    ConnectionMode = 0
    Model = 0
    SendTimeOut = 17
    OnSMSMessageReceived = SMSMSGReceived
    OnSMSReportReceived = SMSRepReceived
    Left = 348
    Top = 272
  end
  object OPD1: TOpenPictureDialog
    Title = 'Select a picture to send'
    Left = 240
    Top = 272
  end
  object PopupMenu1: TPopupMenu
    TrackButton = tbLeftButton
    Left = 276
    Top = 272
    object Load1: TMenuItem
      Caption = 'Load'
      OnClick = Load1Click
    end
    object Clear1: TMenuItem
      Caption = 'Clear'
      OnClick = Clear1Click
    end
  end
  object SPD: TSavePictureDialog
    Title = 'Save picture to file'
    Left = 312
    Top = 272
  end
end