6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
\r
7 Dialogs, StdCtrls, MainUnit, GnokiiAPI;
\r
10 TPBKEditForm = class(TForm)
\r
11 GroupBox1: TGroupBox;
\r
14 ComboBox1: TComboBox;
\r
15 ComboBox2: TComboBox;
\r
16 ComboBox3: TComboBox;
\r
17 ComboBox4: TComboBox;
\r
18 ComboBox5: TComboBox;
\r
19 ComboBox6: TComboBox;
\r
20 ComboBox7: TComboBox;
\r
31 ComboBox8: TComboBox;
\r
32 procedure Button2Click(Sender: TObject);
\r
33 procedure Button1Click(Sender: TObject);
\r
35 { Private declarations }
\r
37 { Public declarations }
\r
41 PBKEditForm: TPBKEditForm;
\r
47 procedure TPBKEditForm.Button2Click(Sender: TObject);
\r
52 procedure AddOneNumber(Edit: TEdit; ComboBox:TComboBox);
\r
55 if Edit.Text<>'' then
\r
57 if not ComboBox.Enabled then
\r
60 pbk.Number[i]:=chr(0);
\r
61 for i:=1 to strlen(pchar(Edit.text)) do
\r
62 pbk.Number[i]:=Edit.Text[i];
\r
65 pbk.SubEntriesCount:=pbk.SubEntriesCount+1;
\r
66 case combobox.ItemIndex of
\r
67 0:pbk.SubEntries[pbk.SubEntriesCount].NumberType:=GSM_Fax;
\r
68 1:pbk.SubEntries[pbk.SubEntriesCount].NumberType:=GSM_General;
\r
69 2:pbk.SubEntries[pbk.SubEntriesCount].NumberType:=GSM_Home;
\r
70 3:pbk.SubEntries[pbk.SubEntriesCount].NumberType:=GSM_Mobile;
\r
71 4:pbk.SubEntries[pbk.SubEntriesCount].NumberType:=GSM_Work;
\r
73 pbk.SubEntries[pbk.SubEntriesCount].EntryType:=GSM_Number;
\r
75 pbk.SubEntries[pbk.SubEntriesCount].Number[i]:=chr(0);
\r
76 for i:=1 to strlen(pchar(Edit.text)) do
\r
77 pbk.SubEntries[pbk.SubEntriesCount].Number[i]:=Edit.Text[i];
\r
82 procedure AddOneText(Edit: TEdit; ComboBox:TComboBox);
\r
85 if Edit.Text<>'' then
\r
87 pbk.SubEntriesCount:=pbk.SubEntriesCount+1;
\r
88 case combobox.ItemIndex of
\r
89 0:pbk.SubEntries[pbk.SubEntriesCount].EntryType:=GSM_Email;
\r
90 1:pbk.SubEntries[pbk.SubEntriesCount].EntryType:=GSM_Note;
\r
91 2:pbk.SubEntries[pbk.SubEntriesCount].EntryType:=GSM_Postal;
\r
94 pbk.SubEntries[pbk.SubEntriesCount].Number[i]:=chr(0);
\r
95 for i:=1 to strlen(pchar(Edit.text)) do
\r
96 pbk.SubEntries[pbk.SubEntriesCount].Number[i]:=Edit.Text[i];
\r
100 procedure TPBKEditForm.Button1Click(Sender: TObject);
\r
104 pbk.SubEntriesCount:=0;
\r
107 pbk.Name[i]:=chr(0);
\r
108 for i:=1 to strlen(pchar(Edit1.text)) do
\r
109 pbk.Name[i]:=Edit1.Text[i];
\r
111 pbk.Number[1]:=chr(0);
\r
112 AddOneNumber(Edit2,ComboBox1);
\r
113 AddOneNumber(Edit3,ComboBox2);
\r
114 AddOneNumber(Edit4,ComboBox3);
\r
115 AddOneNumber(Edit5,ComboBox4);
\r
116 AddOneNumber(Edit6,ComboBox5);
\r
118 AddOneText(Edit7,ComboBox6);
\r
119 AddOneText(Edit8,ComboBox7);
\r
121 if (ComboBox8.ItemIndex=0) then
\r
126 pbk.Group:=ComboBox8.ItemIndex-1;
\r
129 MainForm.Timer2.Enabled:=false;
\r
130 GSM_WritePhonebookLocation(@pbk);
\r
131 MainForm.Timer2.Enabled:=true;
\r
133 MainForm.ComboBox1Change(nil);
\r