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
\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
\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
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