+procedure TMainForm.Savebackuptofile1Click(Sender: TObject);\r
+begin\r
+ PhoneBackup.PhonePhonebookUsed:=0;\r
+ PhoneBackup.SIMPhonebookUsed:=0;\r
+ PhoneBackup.CallerAvailable:=0;\r
+ PhoneBackup.StartupLogoAvailable:=0;\r
+ PhoneBackup.StartupText.text[1]:=chr(0);\r
+ PhoneBackup.OperatorLogoAvailable:=0;\r
+ PhoneBackup.SpeedAvailable:=0;\r
+\r
+ BackupForm.CheckBox3.Enabled:=true;\r
+ BackupForm.CheckBox4.Enabled:=true;\r
+ BackupForm.CheckBox2.Enabled:=true;\r
+ BackupForm.CheckBox1.Enabled:=true;\r
+ BackupForm.CheckBox5.Enabled:=true;\r
+\r
+ BackupForm.GroupBox1.Caption:=' What do you want to backup ? ';\r
+ PhoneBackupAvailable:=True;\r
+ BackupForm.ListBox1.ItemIndex:=0;\r
+ BackupForm.GroupBox2.Visible:=true;\r
+ BackupForm.ShowModal;\r
+ if PhoneBackupAvailable then\r
+ begin\r
+ BackupProgressForm.ShowModal;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.Restorebackupfromfile1Click(Sender: TObject);\r
+begin\r
+ if OpenDialog1.Execute then\r
+ begin\r
+ if GSM_ReadBackupFile(PChar(OpenDialog1.FileName),@phonebackup)=0 then\r
+ begin\r
+ BackupForm.CheckBox3.Enabled:=true;\r
+ if PhoneBackup.CallerAvailable=0 then\r
+ BackupForm.CheckBox3.Enabled:=false;\r
+\r
+ BackupForm.CheckBox4.Enabled:=true;\r
+ if PhoneBackup.OperatorLogoAvailable=0 then\r
+ BackupForm.CheckBox4.Enabled:=false;\r
+\r
+ BackupForm.CheckBox2.Enabled:=true;\r
+ if PhoneBackup.PhonePhonebookUsed=0 then\r
+ BackupForm.CheckBox2.Enabled:=false;\r
+\r
+ BackupForm.CheckBox1.Enabled:=true;\r
+ if PhoneBackup.SIMPhonebookUsed=0 then\r
+ BackupForm.CheckBox1.Enabled:=false;\r
+\r
+ BackupForm.CheckBox5.Enabled:=true;\r
+\r
+ BackupForm.GroupBox1.Caption:=' What do you want to restore ? ';\r
+ PhoneBackupAvailable:=true;\r
+ BackupForm.GroupBox2.Visible:=false;\r
+ BackupForm.ShowModal;\r
+ if PhoneBackupAvailable then\r
+ begin\r
+ PhoneBackupAvailable:=false;\r
+ BackupProgressForm.ShowModal;\r
+ end;\r
+ end;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.PBKPopupMenuPopup(Sender: TObject);\r
+begin\r
+ Savephonebooktofileanotherapplication1.enabled:=false;\r
+ Delete4.enabled:=false;\r
+ Edit19.Enabled:=false;\r
+ Edit7.Enabled:=false;\r
+ SMSSendSave1.Enabled:=false;\r
+ copyphonebooktopc1.Enabled:=false;\r
+ if GSMPhoneConnected then\r
+ begin\r
+ if (pbkofflinenumber<>0) then copyphonebooktopc1.Enabled:=true;\r
+ if (ComboBox1.ItemIndex=4) or (ComboBox1.ItemIndex=5) then\r
+ begin\r
+ Savephonebooktofileanotherapplication1.enabled:=true;\r
+ if listview1.Selected<>nil then\r
+ begin\r
+ Delete4.enabled:=true;\r
+ Edit19.Enabled:=true;\r
+ end;\r
+ end;\r
+ if listview1.Selected<>nil then\r
+ begin\r
+ SMSSendSave1.Enabled:=true;\r
+ Edit7.Enabled:=true;\r
+ end;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.Savephonebooktofileanotherapplication1Click(\r
+ Sender: TObject);\r
+begin\r
+ PhoneBackup.CallerAvailable:=0;\r
+ PhoneBackup.StartupLogoAvailable:=0;\r
+ PhoneBackup.StartupText.text[1]:=chr(0);\r
+ PhoneBackup.OperatorLogoAvailable:=0;\r
+\r
+ BackupForm.CheckBox3.Enabled:=false;\r
+ BackupForm.CheckBox4.Enabled:=false;\r
+\r
+ BackupForm.CheckBox2.Enabled:=true;\r
+ if PhoneBackup.PhonePhonebookUsed=0 then\r
+ BackupForm.CheckBox2.Enabled:=false;\r
+\r
+ BackupForm.CheckBox1.Enabled:=true;\r
+ if PhoneBackup.SIMPhonebookUsed=0 then\r
+ BackupForm.CheckBox1.Enabled:=false;\r
+\r
+ BackupForm.CheckBox5.Enabled:=false;\r
+\r
+ BackupForm.GroupBox1.Caption:=' What do you want to backup ? ';\r
+ PhoneBackupAvailable:=True;\r
+ BackupForm.ListBox1.ItemIndex:=0;\r
+ BackupForm.GroupBox2.Visible:=true;\r
+ BackupForm.ShowModal;\r
+ if PhoneBackupAvailable then\r
+ begin\r
+ if MainForm.SaveDialog1.Execute then\r
+ begin\r
+ GSM_SaveBackupFile(PChar(MainForm.SaveDialog1.FileName),@phonebackup);\r
+ end;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.ListView4DblClick(Sender: TObject);\r
+begin\r
+// if (GSMPhoneConnected) and (ListView4.Selected<>nil) then\r
+// Edit3Click(Sender);\r
+end;\r
+\r
+procedure TMainForm.Edit19Click(Sender: TObject);\r
+var\r
+ i,j:integer;\r
+ num_num,text_num:integer;\r
+begin\r
+ if listview1.Selected<>nil then\r
+ begin\r
+ PBKEditForm.ComboBox1.ItemIndex:=1;\r
+ PBKEditForm.COmboBox2.Items:=PBKEditForm.COmboBox1.Items;\r
+ PBKEditForm.ComboBox2.ItemIndex:=1;\r
+ PBKEditForm.COmboBox3.Items:=PBKEditForm.COmboBox1.Items;\r
+ PBKEditForm.ComboBox3.ItemIndex:=1;\r
+ PBKEditForm.COmboBox4.Items:=PBKEditForm.COmboBox1.Items;\r
+ PBKEditForm.ComboBox4.ItemIndex:=1;\r
+ PBKEditForm.COmboBox5.Items:=PBKEditForm.COmboBox1.Items;\r
+ PBKEditForm.ComboBox5.ItemIndex:=1;\r
+ PBKEditForm.ComboBox6.ItemIndex:=0;\r
+ PBKEditForm.COmboBox7.Items:=PBKEditForm.COmboBox6.Items;\r
+ PBKEditForm.ComboBox7.ItemIndex:=0;\r
+ PbkEditForm.Edit2.Text:='';\r
+\r
+ num_num:=1;\r
+ text_num:=1;\r
+ pbk.Location:=pbknumberentry;\r
+ case ComboBox1.ItemIndex of\r
+ 4:pbk.MemoryType:=GMT_ME;\r
+ 5:pbk.MemoryType:=GMT_SM;\r
+ end;\r
+ GSM_GetMemoryLocation(@pbk);\r
+\r
+ pbkeditform.ComboBox1.enabled:=false;\r
+ pbkeditform.ComboBox2.enabled:=false;\r
+ pbkeditform.ComboBox3.enabled:=false;\r
+ pbkeditform.ComboBox4.enabled:=false;\r
+ pbkeditform.ComboBox5.enabled:=false;\r
+ pbkeditform.ComboBox6.enabled:=false;\r
+ pbkeditform.ComboBox7.enabled:=false;\r
+ pbkeditform.Edit3.enabled:=false;\r
+ pbkeditform.Edit4.enabled:=false;\r
+ pbkeditform.Edit5.enabled:=false;\r
+ pbkeditform.Edit6.enabled:=false;\r
+ pbkeditform.Edit7.enabled:=false;\r
+ pbkeditform.Edit8.enabled:=false;\r
+ PbkEditForm.Edit3.Text:='Not available';\r
+ PbkEditForm.Edit4.Text:='Not available';\r
+ PbkEditForm.Edit5.Text:='Not available';\r
+ PbkEditForm.Edit6.Text:='Not available';\r
+ PbkEditForm.Edit7.Text:='Not available';\r
+ PbkEditForm.Edit8.Text:='Not available';\r
+ if (pbk.MemoryType=GMT_ME) and\r
+ (GSM_GetModelFeature(FN_PHONEBOOK)=F_PBK71INT) then\r
+ begin\r
+ pbkeditform.ComboBox1.enabled:=true;\r
+ pbkeditform.ComboBox2.enabled:=true;\r
+ pbkeditform.ComboBox3.enabled:=true;\r
+ pbkeditform.ComboBox4.enabled:=true;\r
+ pbkeditform.ComboBox5.enabled:=true;\r
+ pbkeditform.ComboBox6.enabled:=true;\r
+ pbkeditform.ComboBox7.enabled:=true;\r
+ pbkeditform.Edit3.enabled:=true;\r
+ pbkeditform.Edit4.enabled:=true;\r
+ pbkeditform.Edit5.enabled:=true;\r
+ pbkeditform.Edit6.enabled:=true;\r
+ pbkeditform.Edit7.enabled:=true;\r
+ pbkeditform.Edit8.enabled:=true;\r
+ PbkEditForm.Edit3.Text:='';\r
+ PbkEditForm.Edit4.Text:='';\r
+ PbkEditForm.Edit5.Text:='';\r
+ PbkEditForm.Edit6.Text:='';\r
+ PbkEditForm.Edit7.Text:='';\r
+ PbkEditForm.Edit8.Text:='';\r
+ end;\r
+\r
+ pbkeditform.Label2.Enabled:=true;\r
+ pbkeditform.ComboBox8.Enabled:=true;\r
+ if (GSM_GetModelFeature(FN_CALLERGROUPS)=0) then\r
+ begin\r
+ pbkeditform.Label2.Enabled:=false;\r
+ pbkeditform.ComboBox8.Enabled:=false;\r
+ end;\r
+\r
+ pbkeditform.Edit1.Text:=pbk.name;\r
+ if (pbk.Number[1]<>chr(0)) then\r
+ begin\r
+ pbkeditform.ComboBox1.ItemIndex:=1;\r
+ pbkeditform.Edit2.Text:=pbk.number;\r
+ num_num:=num_num+1;\r
+ end;\r
+ for i:=1 to pbk.SubEntriesCount do\r
+ begin\r
+ case pbk.SubEntries[i].EntryType of\r
+ GSM_Number:\r
+ begin\r
+ j:=1;\r
+ case pbk.SubEntries[i].NumberType of\r
+ GSM_General :j:=1;\r
+ GSM_General2:j:=1;\r
+ GSM_Mobile :j:=3;\r
+ GSM_Work :j:=4;\r
+ GSM_Fax :j:=0;\r
+ GSM_Home :j:=2;\r
+ end;\r
+ case num_num of\r
+ 1:begin\r
+ pbkeditform.ComboBox1.ItemIndex:=j;\r
+ pbkeditform.edit2.text:=pbk.SubEntries[i].Number;\r
+ end;\r
+ 2:begin\r
+ pbkeditform.ComboBox2.ItemIndex:=j;\r
+ pbkeditform.edit3.text:=pbk.SubEntries[i].Number;\r
+ end;\r
+ 3:begin\r
+ pbkeditform.ComboBox3.ItemIndex:=j;\r
+ pbkeditform.edit4.text:=pbk.SubEntries[i].Number;\r
+ end;\r
+ 4:begin\r
+ pbkeditform.ComboBox4.ItemIndex:=j;\r
+ pbkeditform.edit5.text:=pbk.SubEntries[i].Number;\r
+ end;\r
+ 5:begin\r
+ pbkeditform.ComboBox5.ItemIndex:=j;\r
+ pbkeditform.edit6.text:=pbk.SubEntries[i].Number;\r
+ end;\r
+ end;\r
+ num_num:=num_num+1;\r
+ end;\r
+ GSM_Note :\r
+ begin\r
+ j:=1;\r
+ case text_num of\r
+ 1:begin\r
+ pbkeditform.ComboBox6.ItemIndex:=j;\r
+ pbkeditform.edit7.text:=pbk.SubEntries[i].Number;\r
+ end;\r
+ 2:begin\r
+ pbkeditform.ComboBox7.ItemIndex:=j;\r
+ pbkeditform.edit8.text:=pbk.SubEntries[i].Number;\r
+ end;\r
+ end;\r
+ text_num:=text_num+1;\r
+ end;\r
+ GSM_Postal:\r
+ begin\r
+ j:=2;\r
+ case text_num of\r
+ 1:begin\r
+ pbkeditform.ComboBox6.ItemIndex:=j;\r
+ pbkeditform.edit7.text:=pbk.SubEntries[i].Number;\r
+ end;\r
+ 2:begin\r
+ pbkeditform.ComboBox7.ItemIndex:=j;\r
+ pbkeditform.edit8.text:=pbk.SubEntries[i].Number;\r
+ end;\r
+ end;\r
+ text_num:=text_num+1;\r
+ end;\r
+ GSM_Email :\r
+ begin\r
+ j:=0;\r
+ case text_num of\r
+ 1:begin\r
+ pbkeditform.ComboBox6.ItemIndex:=j;\r
+ pbkeditform.edit7.text:=pbk.SubEntries[i].Number;\r
+ end;\r
+ 2:begin\r
+ pbkeditform.ComboBox7.ItemIndex:=j;\r
+ pbkeditform.edit8.text:=pbk.SubEntries[i].Number;\r
+ end;\r
+ end;\r
+ text_num:=text_num+1;\r
+ end;\r
+\r
+ end;\r
+ end;\r
+\r
+ pbkeditform.ComboBox8.items.clear;\r
+ pbkeditform.ComboBox8.items.add('Not assigned');\r
+ for i:=1 to 5 do\r
+ begin\r
+ pbkeditform.ComboBox8.items.add(caller[i].text);\r
+ end;\r
+ pbkeditform.ComboBox8.itemindex:=0;\r
+ if (GSM_GetModelFeature(FN_CALLERGROUPS)<>0) then\r
+ begin\r
+ if (pbk.Group>=0) and (pbk.Group<=4) then\r
+ begin\r
+ pbkeditform.ComboBox8.itemindex:=pbk.Group+1;\r
+ end;\r
+ end;\r
+ \r
+ PbkEditForm.ShowModal;\r
+ end;\r
+\r
+end;\r
+\r
+procedure TMainForm.Delete4Click(Sender: TObject);\r
+begin\r
+ if Application.MessageBox('Do you want to delete this phonebook entry ?','Question',MB_YESNO)=IDYES then\r
+ begin\r
+\r
+ pbk.Location:=pbknumberentry;\r
+ case ComboBox1.ItemIndex of\r
+ 4:pbk.MemoryType:=GMT_ME;\r
+ 5:pbk.MemoryType:=GMT_SM;\r
+ end;\r
+\r
+ MainForm.Timer2.Enabled:=false;\r
+ GSM_GetMemoryLocation(@pbk);\r
+\r
+ pbk.SubEntriesCount:=0;\r
+ pbk.Name[1]:=chr(0);\r
+ pbk.Number[1]:=chr(0);\r
+ GSM_WritePhonebookLocation(@pbk);\r
+ MainForm.Timer2.Enabled:=true;\r
+ MainForm.ComboBox1Change(nil);\r
+ end;\r
+end;\r
+\r
+\r
+procedure TMainForm.Button22Click(Sender: TObject);\r
+var\r
+ i:integer;\r
+ mybinring:GSM_BinRingtone;\r
+ myring:GSM_Ringtone;\r
+begin\r
+ LogosRingForm.Label1.Caption:='Do you want to get ringtone ?';\r
+ LogosRingForm.ComboBox3.Visible:=true;\r
+ LogosRingForm.ComboBox3.Items.Clear();\r
+ MainForm.Timer2.Enabled:=false;\r
+ for i:=1 to GSM_GetModelFeature(FN_RINGNUMBER) do\r
+ begin\r
+ mybinring.location:=i;\r
+ if (GSM_GetPhoneRingtone(@mybinring,@myring)=0) then\r
+ begin\r
+ if GSM_GetModelFeature(FN_RINGTONES)=F_RING_SM then\r
+ begin\r
+ LogosRingForm.ComboBox3.Items.Add(myring.name);\r
+ end else\r
+ begin\r
+ LogosRingForm.ComboBox3.Items.Add(mybinring.name);\r
+ end;\r
+ end else\r
+ LogosRingForm.ComboBox3.Items.Add('Location '+inttostr(i));\r
+ end;\r
+ MainForm.Timer2.Enabled:=true;\r
+ LogosRingForm.ComboBox3.ItemIndex:=0;\r
+ LogosRingForm.ShowModal;\r
+ if LogosRingForm.ComboBox3.Visible then\r
+ begin\r
+ mybinring.location:=LogosRingForm.ComboBox3.ItemIndex+1;\r
+ MainForm.Timer2.Enabled:=false;\r
+ if (GSM_GetPhoneRingtone(@mybinring,@myring)=0) then\r
+ begin\r
+ MainForm.Timer2.Enabled:=true;\r
+ if GSM_GetModelFeature(FN_RINGTONES)=F_RING_SM then\r
+ begin\r
+ application.MessageBox('Smart Messaging format','',0);\r
+ if SaveDialog1.Execute then\r
+ begin\r
+ GSM_SaveRingtoneFile(PChar(SaveDialog1.FileName),@myring);\r
+ end;\r
+ end else\r
+ begin\r
+ application.MessageBox('Binary format','',0);\r
+ if SaveDialog1.Execute then\r
+ begin\r
+ GSM_SaveBinRingtoneFile(PChar(SaveDialog1.FileName),@mybinring);\r
+ end;\r
+ end;\r
+ end;\r
+\r
+ MainForm.Timer2.Enabled:=true;\r
+ end;\r
+\r
+end;\r
+\r
+procedure TMainForm.New20Click(Sender: TObject);\r
+begin\r
+ bookmarknum:=65535;\r
+ WAPBookForm.Edit1.Text:='';\r
+ WAPBookForm.Edit2.Text:='';\r
+ WAPBookForm.ShowModal;\r
+end;\r
+\r
+procedure TMainForm.ListView9SelectItem(Sender: TObject; Item: TListItem;\r
+ Selected: Boolean);\r
+begin\r
+ if Selected then bookmarknum2:=item.Index+1;\r
+end;\r
+\r
+procedure TMainForm.Edit20Click(Sender: TObject);\r
+var\r
+ bookmark:GSM_WAPBookmark;\r
+begin\r
+ bookmark.location:=bookmarknum2;\r
+ mainform.Timer2.Enabled:=false;\r
+ GSM_GetWAPBookmark(@bookmark);\r
+ mainform.Timer2.Enabled:=true;\r
+ WAPBookForm.Edit1.Text:=bookmark.title;\r
+ WAPBookForm.Edit2.Text:=bookmark.adress;\r
+ WAPBookForm.ShowModal;\r
+end;\r
+\r
+procedure TMainForm.WAPBookPopupMenuPopup(Sender: TObject);\r
+begin\r
+ New20.Enabled:=false;\r
+ Edit20.Enabled:=false;\r
+ SMSSendSave2.Enabled:=false;\r
+ if (WAPBookmarkThread=nil) and (GSMPhoneConnected) then\r
+ begin\r
+ New20.Enabled:=true;\r
+ if (ListView9.Selected<>nil) and\r
+ (ListView9.Selected.SubItems[0]<>'') then\r
+ begin\r
+ Edit20.Enabled:=true;\r
+ SMSSendSave2.Enabled:=true;\r
+ end;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.SMSSendSave2Click(Sender: TObject);\r
+var\r
+ i:integer;\r
+begin\r
+ if smscinit=false then\r
+ begin\r
+ MainForm.ListView6.Items.Clear;\r
+ smscnum:=1;\r
+ while true do\r
+ begin\r
+ ReadSMSC;\r
+ if smscinit then break;\r
+ end;\r
+ end;\r
+\r
+ //sms text\r
+ SMSEditForm.Memo1.Text:='';\r
+\r
+ //number\r
+ SMSEditForm.ComboBox9.Text:='';\r
+ AddSMSEditSenderList;\r
+ \r
+ //folders\r
+ GSM_GetSMSFolders(@SMSfolders);\r
+ SMSEditForm.ComboBox1.Items.Clear;\r
+ for i:=1 to SMSFolders.number do\r
+ begin\r
+ SMSEditForm.ComboBox1.Items.Add(SMSfolders.folder[i].Name);\r
+ end;\r
+ SMSEditForm.ComboBox1.ItemIndex:=0;\r
+\r
+ //smsc\r
+ SetSMSC(1);\r
+ SMSEditForm.ComboBox2.Items.Clear;\r
+ SMSEditForm.ComboBox2.Items.Add('custom');\r
+ for i:=1 to smscnum-1 do\r
+ begin\r
+ if SMSC2[i].Name[1]<>chr(0) then\r
+ SMSEditForm.ComboBox2.Items.Add('set '+inttostr(i)+' - '+SMSC2[i].Name)\r
+ else\r
+ SMSEditForm.ComboBox2.Items.Add('set '+inttostr(i));\r
+ end;\r
+ SMSEditForm.ComboBox2.ItemIndex:=1;\r
+\r
+ SMSEditForm.TextSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.BitmapSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.RingtoneSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.CalendarSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.WAPBookTabSheet.TabVisible:=false;\r
+ SMSEditForm.WAPSettTabSheet.TabVisible:=false;\r
+ SMSEditForm.PBKSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.SMSEditPageControl.ActivePage:=Smseditform.WAPBookTabSheet;\r
+\r
+ bookma.location:=bookmarknum2;\r
+ mainform.Timer2.Enabled:=false;\r
+ GSM_GetWAPBookmark(@bookma);\r
+ mainform.Timer2.Enabled:=true;\r
+\r
+ if (GSM_GetModelFeature(FN_SMS)=F_SMS71) then\r
+ begin\r
+ SMSEditForm.edit3.Visible:=true;\r
+ SMSEditForm.label14.Visible:=true;\r
+ end else\r
+ begin\r
+ SMSEditForm.edit3.Visible:=false;\r
+ SMSEditForm.label14.Visible:=false;\r
+ end;\r
+\r
+ SMSEditForm.ShowModal;\r
+end;\r
+\r
+procedure TMainForm.Button23Click(Sender: TObject);\r
+var\r
+ i:integer;\r
+begin\r
+ if smscinit=false then\r
+ begin\r
+ MainForm.ListView6.Items.Clear;\r
+ smscnum:=1;\r
+ while true do\r
+ begin\r
+ ReadSMSC;\r
+ if smscinit then break;\r
+ end;\r
+ end;\r
+\r
+ //sms text\r
+ SMSEditForm.Memo1.Text:='';\r
+\r
+ //number\r
+ SMSEditForm.ComboBox9.Text:='';\r
+ AddSMSEditSenderList;\r
+ \r
+ //folders\r
+ GSM_GetSMSFolders(@SMSfolders);\r
+ SMSEditForm.ComboBox1.Items.Clear;\r
+ for i:=1 to SMSFolders.number do\r
+ begin\r
+ SMSEditForm.ComboBox1.Items.Add(SMSfolders.folder[i].Name);\r
+ end;\r
+ SMSEditForm.ComboBox1.ItemIndex:=0;\r
+\r
+ //smsc\r
+ SetSMSC(1);\r
+ SMSEditForm.ComboBox2.Items.Clear;\r
+ SMSEditForm.ComboBox2.Items.Add('custom');\r
+ for i:=1 to smscnum-1 do\r
+ begin\r
+ if SMSC2[i].Name[1]<>chr(0) then\r
+ SMSEditForm.ComboBox2.Items.Add('set '+inttostr(i)+' - '+SMSC2[i].Name)\r
+ else\r
+ SMSEditForm.ComboBox2.Items.Add('set '+inttostr(i));\r
+ end;\r
+ SMSEditForm.ComboBox2.ItemIndex:=1;\r
+\r
+ SMSEditForm.TextSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.BitmapSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.RingtoneSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.CalendarSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.WAPBookTabSheet.TabVisible:=false;\r
+ SMSEditForm.WAPSettTabSheet.TabVisible:=false;\r
+ SMSEditForm.PBKSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.SMSEditPageControl.ActivePage:=Smseditform.WAPSettTabSheet;\r
+\r
+ Wapset.location:=combobox7.ItemIndex;\r
+ MainForm.Timer2.Enabled:=false;\r
+ GSM_GetWAPSettings(@wapset);\r
+ MainForm.Timer2.Enabled:=true;\r
+\r
+ if (GSM_GetModelFeature(FN_SMS)=F_SMS71) then\r
+ begin\r
+ SMSEditForm.edit3.Visible:=true;\r
+ SMSEditForm.label14.Visible:=true;\r
+ end else\r
+ begin\r
+ SMSEditForm.edit3.Visible:=false;\r
+ SMSEditForm.label14.Visible:=false;\r
+ end;\r
+\r
+ SMSEditForm.ShowModal;\r
+end;\r
+\r
+procedure TMainForm.CopyphonebooktoPC1Click(Sender: TObject);\r
+begin\r
+ SavePBKOffline;\r
+end;\r
+\r
+procedure TMainForm.PCPBKTabSheetShow(Sender: TObject);\r
+var i:integer;\r
+begin\r
+ ReadPBKOffline;\r
+ ListView12.Items.Clear;\r
+ for i:=1 to PBKOfflineNumber do\r
+ begin\r
+ MainForm.ListView12.Items.Add;\r
+ MainForm.ListView12.Items.Item[i-1].Caption:=inttostr(PhoneBackup.PhonePhonebook[i].Location);\r
+ AddPBKEntry(ListView12,PhoneBackup.PhonePhonebook[i],i-1);\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.FormShow(Sender: TObject);\r
+var\r
+ MyIniFile: TIniFile;\r
+ x:string;\r
+begin\r
+ MyIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'\gnokiirc');\r
+\r
+ x:=MyInifile.ReadString('win32gui', 'x', '100');\r
+ MainForm.Left:=strtoint(x);\r
+\r
+ x:=MyInifile.ReadString('win32gui', 'y', '100');\r
+ MainForm.Top:=strtoint(x);\r
+\r
+ x:=MyInifile.ReadString('win32gui', 'treewidth', '93');\r
+ MainForm.TreeView1.Width:=strtoint(x);\r
+\r
+ x:=MyInifile.ReadString('win32gui', 'width', '655');\r
+ MainForm.Width:=strtoint(x);\r
+\r
+ x:=MyInifile.ReadString('win32gui', 'height', '431');\r
+ MainForm.Height:=strtoint(x);\r
+\r
+ MyIniFile.Free;\r
+\r
+end;\r
+\r
+procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);\r
+begin\r
+ SaveMainConfig;\r
+end;\r
+\r