Branch update for mygnokii2002_03_17_19_29nl

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

diff --git a/win32_makefile/gui_delphi/Calendar.pas b/win32_makefile/gui_delphi/Calendar.pas
index 882d5d3..6b8a03b 100644 (file)
--- a/win32_makefile/gui_delphi/Calendar.pas
+++ b/win32_makefile/gui_delphi/Calendar.pas
@@ -22,13 +22,13 @@ type
     Button2: TButton;\r
     DateTimePicker3: TDateTimePicker;\r
     DateTimePicker4: TDateTimePicker;\r
-    Edit1: TEdit;\r
     Label5: TLabel;\r
     Label6: TLabel;\r
     CheckBox2: TCheckBox;\r
     ComboBox2: TComboBox;\r
     RadioButton1: TRadioButton;\r
     RadioButton2: TRadioButton;\r
+    ComboBox3: TComboBox;\r
     procedure Button1Click(Sender: TObject);\r
     procedure Button2Click(Sender: TObject);\r
     procedure CheckBox1Click(Sender: TObject);\r
@@ -52,7 +52,7 @@ implementation
 \r
 procedure TCalendarForm.Button1Click(Sender: TObject);\r
 var\r
-  i:integer;\r
+  i,j,z:integer;\r
   s:string;\r
 begin\r
   case ComboBox1.ItemIndex of\r
@@ -69,8 +69,39 @@ begin
 \r
   for i:=1 to 37 do\r
     setcalendarnote.Phone[i]:=chr(0);\r
-  for i:=1 to strlen(pchar(Edit1.text)) do\r
-    setcalendarnote.Phone[i]:=Edit1.Text[i];\r
+  if (ComboBox3.ItemIndex=-1) then\r
+  begin\r
+    for i:=1 to strlen(pchar(ComboBox3.text)) do\r
+      setcalendarnote.Phone[i]:=ComboBox3.Text[i];\r
+  end else\r
+  begin\r
+    ReadPBKOffline;\r
+    for z:=1 to PBKOfflineNumber do\r
+    begin\r
+      MainForm.Label16.Caption:=PhoneBackup.PhonePhonebook[z].Name;\r
+      if (MainForm.Label16.Caption=ComboBox3.Text) then\r
+      begin\r
+        if (PhoneBackup.PhonePhonebook[z].Number[1]<>chr(0)) then\r
+        begin\r
+          MainForm.Label14.Caption:=PhoneBackup.PhonePhonebook[z].Number;\r
+          for i:=1 to strlen(pchar(MainForm.Label14.Caption)) do\r
+            setcalendarnote.Phone[i]:=PhoneBackup.PhonePhonebook[z].Number[i];\r
+        end else\r
+        begin\r
+          for j:=1 to PhoneBackup.PhonePhonebook[z].SubEntriesCount do\r
+          begin\r
+            if PhoneBackup.PhonePhonebook[z].SubEntries[j].EntryType=GSM_Number then\r
+            begin\r
+              MainForm.Label14.Caption:=PhoneBackup.PhonePhonebook[z].SubEntries[j].Number;\r
+              for i:=1 to strlen(pchar(MainForm.Label14.Caption)) do\r
+                setcalendarnote.Phone[i]:=PhoneBackup.PhonePhonebook[z].SubEntries[j].Number[i];\r
+              break;\r
+            end;\r
+          end;\r
+        end;\r
+      end;\r
+    end;\r
+  end;\r
 \r
   DateTimeToString(s, 'yyyy',CalendarForm.DateTimePicker1.Date);\r
   setcalendarnote.Time.Year:=strtoint(s);\r
@@ -203,11 +234,11 @@ begin
   end;\r
   if ComboBox1.ItemIndex=1 then //call\r
   begin\r
-    CalendarForm.Edit1.Enabled:=True;\r
+    CalendarForm.ComboBox3.Enabled:=True;\r
     CalendarForm.Label4.Enabled:=True;\r
   end else\r
   begin\r
-    CalendarForm.Edit1.Enabled:=False;\r
+    CalendarForm.ComboBox3.Enabled:=False;\r
     CalendarForm.Label4.Enabled:=False;\r
   end;\r
 end;\r