Branch update for mygnokii2002_03_17_19_29nl

[gnokii.git] / win32_makefile / gui_delphi / smsedit.pas

diff --git a/win32_makefile/gui_delphi/smsedit.pas b/win32_makefile/gui_delphi/smsedit.pas
index 62a45d8..0961742 100644 (file)
--- a/win32_makefile/gui_delphi/smsedit.pas
+++ b/win32_makefile/gui_delphi/smsedit.pas
@@ -19,7 +19,6 @@ type
     CheckBox2: TCheckBox;\r
     Button3: TButton;\r
     Edit1: TEdit;\r
-    Edit2: TEdit;\r
     GroupBox2: TGroupBox;\r
     ComboBox2: TComboBox;\r
     Label4: TLabel;\r
@@ -58,6 +57,11 @@ type
     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
@@ -91,7 +95,7 @@ end;
 \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
@@ -140,6 +144,14 @@ begin
   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
@@ -165,8 +177,39 @@ begin
 \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