X-Git-Url: http://git.jankratochvil.net/?p=gnokii.git;a=blobdiff_plain;f=win32_makefile%2Fgui_delphi%2Fpbkedit2.pas;fp=win32_makefile%2Fgui_delphi%2Fpbkedit2.pas;h=dc4969cf5b92cbe00d83cd0d3987194748f25689;hp=0000000000000000000000000000000000000000;hb=975a83d253eea8aa37bf3dfd7e026df3027db4ff;hpb=8ec00ff9eb42ae2367cf9798f2bc66299a0d24ca

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