X-Git-Url: http://git.jankratochvil.net/?p=gnokii.git;a=blobdiff_plain;f=win32_makefile%2Fgui_delphi%2Fsmsedit.pas;fp=win32_makefile%2Fgui_delphi%2Fsmsedit.pas;h=096174224051f2e49e09909c372e9858868468be;hp=62a45d8faaada3f3a67b142fde9b1794fd059758;hb=82bcbc2300f764bcb3551b152a0a961f4fef5e66;hpb=975a83d253eea8aa37bf3dfd7e026df3027db4ff

diff --git a/win32_makefile/gui_delphi/smsedit.pas b/win32_makefile/gui_delphi/smsedit.pas
index 62a45d8..0961742 100644
--- a/win32_makefile/gui_delphi/smsedit.pas
+++ b/win32_makefile/gui_delphi/smsedit.pas
@@ -19,7 +19,6 @@ type
     CheckBox2: TCheckBox;
     Button3: TButton;
     Edit1: TEdit;
-    Edit2: TEdit;
     GroupBox2: TGroupBox;
     ComboBox2: TComboBox;
     Label4: TLabel;
@@ -58,6 +57,11 @@ type
     ComboBox8: TComboBox;
     Label14: TLabel;
     Edit3: TEdit;
+    WAPBookTabSheet: TTabSheet;
+    WAPSettTabSheet: TTabSheet;
+    GroupBox7: TGroupBox;
+    GroupBox8: TGroupBox;
+    ComboBox9: TComboBox;
     procedure Button3Click(Sender: TObject);
     procedure Memo1Change(Sender: TObject);
     procedure Button1Click(Sender: TObject);
@@ -91,7 +95,7 @@ end;
 
 procedure TSMSEditForm.Button1Click(Sender: TObject);
 var
-  i:integer;
+  p,i,j:integer;
   z:integer;
   w:word;
   unicode,screensaver:integer;
@@ -140,6 +144,14 @@ begin
   begin
     GSM_SaveRingtoneToSMS(@setsms,@rington,1);
   end;
+  if (SMSEditPageControl.ActivePage=WAPBookTabSheet) then
+  begin
+    GSM_SaveWAPBookmarkToSMS(@setsms,@bookma);
+  end;
+  if (SMSEditPageControl.ActivePage=WAPSettTabSheet) then
+  begin
+    GSM_SaveWAPSettingsToSMS(@setsms,@wapset);
+  end;
   if (SMSEditPageControl.ActivePage=CalendarSMSTabSheet) then
   begin
     GSM_SaveCalendarNoteToSMS(@setsms,@calenda);
@@ -165,8 +177,39 @@ begin
 
     for i:=1 to 41 do
       setsms.sms[z].destination[i]:=chr(0);
-    for i:=1 to strlen(pchar(Edit2.text)) do
-      setsms.sms[z].destination[i]:=Edit2.Text[i];
+    if (ComboBox9.ItemIndex=-1) then
+    begin
+      for i:=1 to strlen(pchar(ComboBox9.text)) do
+        setsms.sms[z].destination[i]:=ComboBox9.Text[i];
+    end else
+    begin
+      ReadPBKOffline;
+      for p:=1 to PBKOfflineNumber do
+      begin
+        MainForm.Label16.Caption:=PhoneBackup.PhonePhonebook[p].Name;
+        if (MainForm.Label16.Caption=ComboBox9.Text) then
+        begin
+          if (PhoneBackup.PhonePhonebook[p].Number[1]<>chr(0)) then
+          begin
+            MainForm.Label14.Caption:=PhoneBackup.PhonePhonebook[p].Number;
+            for i:=1 to strlen(pchar(MainForm.Label14.Caption)) do
+              setsms.sms[z].destination[i]:=PhoneBackup.PhonePhonebook[p].Number[i];
+          end else
+          begin
+            for j:=1 to PhoneBackup.PhonePhonebook[p].SubEntriesCount do
+            begin
+              if PhoneBackup.PhonePhonebook[p].SubEntries[j].EntryType=GSM_Number then
+              begin
+                MainForm.Label14.Caption:=PhoneBackup.PhonePhonebook[p].SubEntries[j].Number;
+                for i:=1 to strlen(pchar(MainForm.Label14.Caption)) do
+                  setsms.sms[z].destination[i]:=PhoneBackup.PhonePhonebook[p].SubEntries[j].Number[i];
+                break;
+              end;
+            end;
+          end;
+        end;
+      end;
+    end;
 
     setsms.sms[z].folder:=combobox1.ItemIndex;