CheckBox2: TCheckBox;\r
Button3: TButton;\r
Edit1: TEdit;\r
- Edit2: TEdit;\r
GroupBox2: TGroupBox;\r
ComboBox2: TComboBox;\r
Label4: TLabel;\r
ComboBox8: TComboBox;\r
Label14: TLabel;\r
Edit3: TEdit;\r
+ WAPBookTabSheet: TTabSheet;\r
+ WAPSettTabSheet: TTabSheet;\r
+ GroupBox7: TGroupBox;\r
+ GroupBox8: TGroupBox;\r
+ ComboBox9: TComboBox;\r
procedure Button3Click(Sender: TObject);\r
procedure Memo1Change(Sender: TObject);\r
procedure Button1Click(Sender: TObject);\r
\r
procedure TSMSEditForm.Button1Click(Sender: TObject);\r
var\r
- i:integer;\r
+ p,i,j:integer;\r
z:integer;\r
w:word;\r
unicode,screensaver:integer;\r
begin\r
GSM_SaveRingtoneToSMS(@setsms,@rington,1);\r
end;\r
+ if (SMSEditPageControl.ActivePage=WAPBookTabSheet) then\r
+ begin\r
+ GSM_SaveWAPBookmarkToSMS(@setsms,@bookma);\r
+ end;\r
+ if (SMSEditPageControl.ActivePage=WAPSettTabSheet) then\r
+ begin\r
+ GSM_SaveWAPSettingsToSMS(@setsms,@wapset);\r
+ end;\r
if (SMSEditPageControl.ActivePage=CalendarSMSTabSheet) then\r
begin\r
GSM_SaveCalendarNoteToSMS(@setsms,@calenda);\r
\r
for i:=1 to 41 do\r
setsms.sms[z].destination[i]:=chr(0);\r
- for i:=1 to strlen(pchar(Edit2.text)) do\r
- setsms.sms[z].destination[i]:=Edit2.Text[i];\r
+ if (ComboBox9.ItemIndex=-1) then\r
+ begin\r
+ for i:=1 to strlen(pchar(ComboBox9.text)) do\r
+ setsms.sms[z].destination[i]:=ComboBox9.Text[i];\r
+ end else\r
+ begin\r
+ ReadPBKOffline;\r
+ for p:=1 to PBKOfflineNumber do\r
+ begin\r
+ MainForm.Label16.Caption:=PhoneBackup.PhonePhonebook[p].Name;\r
+ if (MainForm.Label16.Caption=ComboBox9.Text) then\r
+ begin\r
+ if (PhoneBackup.PhonePhonebook[p].Number[1]<>chr(0)) then\r
+ begin\r
+ MainForm.Label14.Caption:=PhoneBackup.PhonePhonebook[p].Number;\r
+ for i:=1 to strlen(pchar(MainForm.Label14.Caption)) do\r
+ setsms.sms[z].destination[i]:=PhoneBackup.PhonePhonebook[p].Number[i];\r
+ end else\r
+ begin\r
+ for j:=1 to PhoneBackup.PhonePhonebook[p].SubEntriesCount do\r
+ begin\r
+ if PhoneBackup.PhonePhonebook[p].SubEntries[j].EntryType=GSM_Number then\r
+ begin\r
+ MainForm.Label14.Caption:=PhoneBackup.PhonePhonebook[p].SubEntries[j].Number;\r
+ for i:=1 to strlen(pchar(MainForm.Label14.Caption)) do\r
+ setsms.sms[z].destination[i]:=PhoneBackup.PhonePhonebook[p].SubEntries[j].Number[i];\r
+ break;\r
+ end;\r
+ end;\r
+ end;\r
+ end;\r
+ end;\r
+ end;\r
\r
setsms.sms[z].folder:=combobox1.ItemIndex;\r
\r