This commit was manufactured by cvs2svn to create branch 'uc'.

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

diff --git a/win32_makefile/gui_delphi/pbkedit2.pas b/win32_makefile/gui_delphi/pbkedit2.pas
new file mode 100644 (file)
index 0000000..dc4969c
--- /dev/null
+++ b/win32_makefile/gui_delphi/pbkedit2.pas
@@ -0,0 +1,138 @@
+unit pbkedit2;\r
+\r
+interface\r
+\r
+uses\r
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,\r
+  Dialogs, StdCtrls, MainUnit, GnokiiAPI;\r
+\r
+type\r
+  TPBKEditForm = class(TForm)\r
+    GroupBox1: TGroupBox;\r
+    Label1: TLabel;\r
+    Edit1: TEdit;\r
+    ComboBox1: TComboBox;\r
+    ComboBox2: TComboBox;\r
+    ComboBox3: TComboBox;\r
+    ComboBox4: TComboBox;\r
+    ComboBox5: TComboBox;\r
+    ComboBox6: TComboBox;\r
+    ComboBox7: TComboBox;\r
+    Edit2: TEdit;\r
+    Edit3: TEdit;\r
+    Edit4: TEdit;\r
+    Edit5: TEdit;\r
+    Edit6: TEdit;\r
+    Edit7: TEdit;\r
+    Edit8: TEdit;\r
+    Button1: TButton;\r
+    Button2: TButton;\r
+    Label2: TLabel;\r
+    ComboBox8: TComboBox;\r
+    procedure Button2Click(Sender: TObject);\r
+    procedure Button1Click(Sender: TObject);\r
+  private\r
+    { Private declarations }\r
+  public\r
+    { Public declarations }\r
+  end;\r
+\r
+var\r
+  PBKEditForm: TPBKEditForm;\r
+\r
+implementation\r
+\r
+{$R *.dfm}\r
+\r
+procedure TPBKEditForm.Button2Click(Sender: TObject);\r
+begin\r
+  PBKEditForm.Close;\r
+end;\r
+\r
+procedure AddOneNumber(Edit: TEdit; ComboBox:TComboBox);\r
+var i:integer;\r
+begin\r
+  if Edit.Text<>'' then\r
+  begin\r
+    if not ComboBox.Enabled then\r
+    begin\r
+      for i:=1 to 49 do\r
+        pbk.Number[i]:=chr(0);\r
+      for i:=1 to strlen(pchar(Edit.text)) do\r
+        pbk.Number[i]:=Edit.Text[i];\r
+    end else\r
+    begin\r
+      pbk.SubEntriesCount:=pbk.SubEntriesCount+1;\r
+      case combobox.ItemIndex of\r
+        0:pbk.SubEntries[pbk.SubEntriesCount].NumberType:=GSM_Fax;\r
+        1:pbk.SubEntries[pbk.SubEntriesCount].NumberType:=GSM_General;\r
+        2:pbk.SubEntries[pbk.SubEntriesCount].NumberType:=GSM_Home;\r
+        3:pbk.SubEntries[pbk.SubEntriesCount].NumberType:=GSM_Mobile;\r
+        4:pbk.SubEntries[pbk.SubEntriesCount].NumberType:=GSM_Work;\r
+      end;\r
+      pbk.SubEntries[pbk.SubEntriesCount].EntryType:=GSM_Number;\r
+      for i:=1 to 61 do\r
+        pbk.SubEntries[pbk.SubEntriesCount].Number[i]:=chr(0);\r
+      for i:=1 to strlen(pchar(Edit.text)) do\r
+        pbk.SubEntries[pbk.SubEntriesCount].Number[i]:=Edit.Text[i];\r
+    end;\r
+  end;\r
+end;\r
+\r
+procedure AddOneText(Edit: TEdit; ComboBox:TComboBox);\r
+var i:integer;\r
+begin\r
+  if Edit.Text<>'' then\r
+  begin\r
+    pbk.SubEntriesCount:=pbk.SubEntriesCount+1;\r
+    case combobox.ItemIndex of\r
+      0:pbk.SubEntries[pbk.SubEntriesCount].EntryType:=GSM_Email;\r
+      1:pbk.SubEntries[pbk.SubEntriesCount].EntryType:=GSM_Note;\r
+      2:pbk.SubEntries[pbk.SubEntriesCount].EntryType:=GSM_Postal;\r
+    end;\r
+    for i:=1 to 61 do\r
+      pbk.SubEntries[pbk.SubEntriesCount].Number[i]:=chr(0);\r
+    for i:=1 to strlen(pchar(Edit.text)) do\r
+      pbk.SubEntries[pbk.SubEntriesCount].Number[i]:=Edit.Text[i];\r
+  end;\r
+end;\r
+\r
+procedure TPBKEditForm.Button1Click(Sender: TObject);\r
+var i:integer;\r
+begin\r
+\r
+  pbk.SubEntriesCount:=0;\r
+\r
+  for i:=1 to 51 do\r
+    pbk.Name[i]:=chr(0);\r
+  for i:=1 to strlen(pchar(Edit1.text)) do\r
+    pbk.Name[i]:=Edit1.Text[i];\r
+\r
+  pbk.Number[1]:=chr(0);\r
+  AddOneNumber(Edit2,ComboBox1);\r
+  AddOneNumber(Edit3,ComboBox2);\r
+  AddOneNumber(Edit4,ComboBox3);\r
+  AddOneNumber(Edit5,ComboBox4);\r
+  AddOneNumber(Edit6,ComboBox5);\r
+\r
+  AddOneText(Edit7,ComboBox6);\r
+  AddOneText(Edit8,ComboBox7);\r
+\r
+  if (ComboBox8.ItemIndex=0) then\r
+  begin\r
+    pbk.Group:=5;\r
+  end else\r
+  begin\r
+    pbk.Group:=ComboBox8.ItemIndex-1;\r
+  end;\r
+\r
+  MainForm.Timer2.Enabled:=false;\r
+  GSM_WritePhonebookLocation(@pbk);\r
+  MainForm.Timer2.Enabled:=true;\r
+\r
+  MainForm.ComboBox1Change(nil);\r
+\r
+  PBKEditForm.Close;\r
+end;\r
+\r
+end.\r