www.pudn.com > SMSDemoALL.zip > Main.dfm
object FormMain: TFormMain
Left = 116
Top = 80
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'MobileSMSDemo'
ClientHeight = 583
ClientWidth = 802
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Label5: TLabel
Left = 16
Top = 200
Width = 32
Height = 13
Caption = 'Label3'
end
object Label6: TLabel
Left = 16
Top = 232
Width = 32
Height = 13
Caption = 'Label3'
end
object GroupBox1: TGroupBox
Left = 8
Top = 8
Width = 210
Height = 145
Caption = 'Connection'
TabOrder = 0
object Label1: TLabel
Left = 23
Top = 20
Width = 27
Height = 13
Caption = 'Mode'
end
object Label2: TLabel
Left = 16
Top = 51
Width = 40
Height = 13
Caption = 'ComPort'
end
object Label4: TLabel
Left = 4
Top = 84
Width = 64
Height = 13
Caption = 'ComBaudrate'
end
object CmbConnectionMode: TComboBox
Left = 80
Top = 16
Width = 98
Height = 21
Hint = 'Connection Mode'
ItemHeight = 13
ItemIndex = 1
TabOrder = 0
Text = 'SERIAL PORT'
Items.Strings = (
'INFRARED'
'SERIAL PORT')
end
object CmbComBaudrate: TComboBox
Left = 80
Top = 80
Width = 98
Height = 21
ItemHeight = 13
ItemIndex = 1
TabOrder = 1
Text = '9600'
Items.Strings = (
'2400'
'9600'
'19200'
'38400'
'57600'
'115200')
end
object ComPort: TEdit
Left = 80
Top = 48
Width = 97
Height = 21
TabOrder = 2
Text = '1'
end
object BtnConnect: TButton
Left = 24
Top = 112
Width = 65
Height = 21
Caption = 'Connect'
TabOrder = 3
OnClick = BtnConnectClick
end
object BtnDisconnect: TButton
Left = 112
Top = 112
Width = 65
Height = 21
Caption = 'Disconnect'
Enabled = False
TabOrder = 4
OnClick = BtnDisconnectClick
end
end
object GroupBox2: TGroupBox
Left = 8
Top = 160
Width = 210
Height = 281
Caption = 'Information'
TabOrder = 1
object Label3: TLabel
Left = 10
Top = 26
Width = 63
Height = 13
Caption = 'Manufacturer'
end
object Label7: TLabel
Left = 21
Top = 58
Width = 29
Height = 13
Caption = 'Model'
end
object Label8: TLabel
Left = 25
Top = 91
Width = 22
Height = 13
Caption = 'IMEI'
end
object Label9: TLabel
Left = 17
Top = 122
Width = 38
Height = 13
Caption = 'Net Info'
end
object Label10: TLabel
Left = 18
Top = 154
Width = 33
Height = 13
Caption = 'Battery'
end
object Label11: TLabel
Left = 18
Top = 186
Width = 35
Height = 13
Caption = 'Version'
end
object Label12: TLabel
Left = 25
Top = 217
Width = 23
Height = 13
Caption = 'Time'
end
object Manufacturer: TEdit
Left = 80
Top = 24
Width = 114
Height = 21
TabOrder = 0
end
object BtnInfoRrefresh: TButton
Left = 8
Top = 248
Width = 58
Height = 21
Caption = 'Refresh'
TabOrder = 1
OnClick = BtnInfoRrefreshClick
end
object BtnSetTime: TButton
Left = 76
Top = 248
Width = 58
Height = 21
Caption = 'SetTime'
TabOrder = 2
OnClick = BtnSetTimeClick
end
object BtnCall: TButton
Left = 144
Top = 248
Width = 57
Height = 21
Caption = 'Call'
TabOrder = 3
OnClick = BtnCallClick
end
object NetInfo: TEdit
Left = 80
Top = 120
Width = 114
Height = 21
TabOrder = 4
end
end
object Model: TEdit
Left = 88
Top = 216
Width = 114
Height = 21
TabOrder = 2
end
object IMEI: TEdit
Left = 88
Top = 248
Width = 114
Height = 21
TabOrder = 3
end
object Battery: TEdit
Left = 88
Top = 312
Width = 114
Height = 21
TabOrder = 4
end
object Version: TEdit
Left = 88
Top = 344
Width = 114
Height = 21
TabOrder = 5
end
object Time: TEdit
Left = 88
Top = 376
Width = 114
Height = 21
TabOrder = 6
end
object GroupBox3: TGroupBox
Left = 224
Top = 8
Width = 354
Height = 433
Caption = 'SMS'
TabOrder = 7
object Label13: TLabel
Left = 19
Top = 18
Width = 31
Height = 13
Caption = 'Phone'
end
object Label14: TLabel
Left = 239
Top = 18
Width = 33
Height = 13
Caption = 'Validity'
end
object Label16: TLabel
Left = 22
Top = 40
Width = 21
Height = 13
Caption = 'Text'
end
object Label15: TLabel
Left = 16
Top = 203
Width = 43
Height = 13
Caption = 'Ringtone'
end
object Label17: TLabel
Left = 17
Top = 235
Width = 40
Height = 13
Caption = 'LogoFile'
end
object Label18: TLabel
Left = 24
Top = 268
Width = 23
Height = 13
Caption = 'MCC'
end
object Label19: TLabel
Left = 197
Top = 268
Width = 24
Height = 13
Caption = 'MNC'
end
object Label20: TLabel
Left = 22
Top = 299
Width = 30
Height = 13
Caption = 'SMSC'
end
object Label21: TLabel
Left = 24
Top = 331
Width = 24
Height = 13
Caption = 'Type'
end
object Label22: TLabel
Left = 23
Top = 362
Width = 26
Height = 13
Caption = 'Index'
end
object Phone: TEdit
Left = 64
Top = 16
Width = 161
Height = 21
TabOrder = 0
end
object Validity: TEdit
Left = 280
Top = 16
Width = 58
Height = 21
TabOrder = 1
Text = '2880'
end
object SMSText: TMemo
Left = 16
Top = 56
Width = 322
Height = 129
Lines.Strings = (
'Text')
TabOrder = 2
end
object Ringtone: TEdit
Left = 72
Top = 200
Width = 193
Height = 21
TabOrder = 3
end
object LogoFile: TEdit
Left = 72
Top = 232
Width = 193
Height = 21
TabOrder = 4
end
object BtnRintone: TButton
Left = 280
Top = 200
Width = 58
Height = 21
Caption = 'Browse'
TabOrder = 5
OnClick = BtnRintoneClick
end
object BtnLogo: TButton
Left = 280
Top = 232
Width = 58
Height = 21
Caption = 'Browse'
TabOrder = 6
OnClick = BtnLogoClick
end
object MCC: TEdit
Left = 72
Top = 264
Width = 105
Height = 21
TabOrder = 7
end
object MNC: TEdit
Left = 232
Top = 264
Width = 105
Height = 21
TabOrder = 8
end
object SMSC: TEdit
Left = 72
Top = 296
Width = 145
Height = 21
TabOrder = 9
end
object BtnGetSMSC: TButton
Left = 232
Top = 296
Width = 50
Height = 21
Caption = 'Get'
TabOrder = 10
OnClick = BtnGetSMSCClick
end
object BtnSetSMSC: TButton
Left = 288
Top = 296
Width = 50
Height = 21
Caption = 'Set'
TabOrder = 11
OnClick = BtnSetSMSCClick
end
object CmbOptType: TComboBox
Left = 72
Top = 328
Width = 266
Height = 21
ItemHeight = 13
TabOrder = 12
Text = 'TEXT MESSAGE'
Items.Strings = (
'TEXT MESSAGE'
'LONG TEXT MESSAGE'
'AUTOSHOW TEXT MESSAGE'
'FLASH TEXT MESSAGE'
''
'NOKIA RINGTONE'
'SIEMENS RINGTONE'
'ALCATEL RINGTONE'
'MOTOROLA RINGTONE'
'EMS RINGTONE'
'SAMSUNG RINGTONE'
''
'NOKIA CLI LOGO'
'NOKIA OPERATOR LOGO'
'NOKIA PICTURE'
'SIEMENS LOGO'
'ALCATEL LOGO'
'MOTOROLA LOGO'
'EMS LOGO'
'SAMSUNG LOGO')
end
object SMSIndex: TEdit
Left = 72
Top = 360
Width = 49
Height = 21
TabOrder = 13
Text = '0'
end
object BtnSMSDelete: TButton
Left = 136
Top = 360
Width = 58
Height = 21
Caption = 'Delete'
TabOrder = 14
OnClick = BtnSMSDeleteClick
end
object ChkNeedReport: TCheckBox
Left = 224
Top = 360
Width = 106
Height = 18
Alignment = taLeftJustify
Caption = 'NeedSentReport'
TabOrder = 15
end
object BtnSMSRefresh: TButton
Left = 16
Top = 400
Width = 66
Height = 21
Caption = 'Refresh'
TabOrder = 16
OnClick = BtnSMSRefreshClick
end
object BtnSMSSend: TButton
Left = 101
Top = 400
Width = 66
Height = 21
Caption = 'Send'
TabOrder = 17
OnClick = BtnSMSSendClick
end
object BtnSMSSave: TButton
Left = 188
Top = 400
Width = 66
Height = 21
Caption = 'Save'
TabOrder = 18
OnClick = BtnSMSSaveClick
end
object BtnSMSReset: TButton
Left = 272
Top = 400
Width = 65
Height = 21
Caption = 'Reset'
TabOrder = 19
OnClick = BtnSMSResetClick
end
end
object GroupBox4: TGroupBox
Left = 584
Top = 8
Width = 210
Height = 433
Caption = 'PhoneBook'
TabOrder = 8
object Label23: TLabel
Left = 12
Top = 340
Width = 26
Height = 13
Caption = 'Index'
end
object Label24: TLabel
Left = 10
Top = 371
Width = 31
Height = 13
Caption = 'Phone'
end
object Label25: TLabel
Left = 12
Top = 403
Width = 28
Height = 13
Caption = 'Name'
end
object PBResult: TMemo
Left = 8
Top = 16
Width = 194
Height = 313
Lines.Strings = (
'PBResult')
ScrollBars = ssVertical
TabOrder = 0
end
object PBName: TEdit
Left = 48
Top = 400
Width = 73
Height = 21
TabOrder = 1
end
object BtnPBRefresh: TButton
Left = 136
Top = 400
Width = 65
Height = 21
Caption = 'Refresh'
TabOrder = 2
OnClick = BtnPBRefreshClick
end
object PBPhone: TEdit
Left = 48
Top = 368
Width = 73
Height = 21
TabOrder = 3
end
object BtnPBSave: TButton
Left = 136
Top = 368
Width = 65
Height = 21
Caption = 'Save(SIM)'
TabOrder = 4
OnClick = BtnPBSaveClick
end
object PBIndex: TEdit
Left = 48
Top = 336
Width = 73
Height = 21
TabOrder = 5
end
object BtnPBDelete: TButton
Left = 136
Top = 336
Width = 65
Height = 21
Caption = 'Delete(SIM)'
TabOrder = 6
OnClick = BtnPBDeleteClick
end
end
object SMSResult: TMemo
Left = 8
Top = 448
Width = 786
Height = 129
Lines.Strings = (
'SMSResult')
ScrollBars = ssVertical
TabOrder = 9
end
object MobileSMS: TMobileSMS
Left = 184
Top = 0
Width = 32
Height = 32
TabOrder = 10
OnNewMsg = MobileSMSNewMsg
OnNewReport = MobileSMSNewReport
OnNewIncommingCall = MobileSMSNewIncommingCall
ControlData = {010002004F0300004F03000000000000}
end
object ODRingtone: TOpenDialog
Left = 80
end
object OPDLogo: TOpenPictureDialog
Left = 120
end
end