X-Git-Url: http://git.jankratochvil.net/?p=gnokii.git;a=blobdiff_plain;f=win32_makefile%2Fgui_delphi%2FCalendar.pas;fp=win32_makefile%2Fgui_delphi%2FCalendar.pas;h=6b8a03bbc70e1028ed5d2c7dad7e852007da0b4b;hp=882d5d3368b7cec7052d02ddc788de15a5d356d2;hb=82bcbc2300f764bcb3551b152a0a961f4fef5e66;hpb=975a83d253eea8aa37bf3dfd7e026df3027db4ff

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