win32_makefile/gui_delphi/pbkedit2.pas

   1 unit pbkedit2;\r
   2 \r
   3 interface\r
   4 \r
   5 uses\r
   6   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,\r
   7   Dialogs, StdCtrls, MainUnit, GnokiiAPI;\r
   8 \r
   9 type\r
  10   TPBKEditForm = class(TForm)\r
  11     GroupBox1: TGroupBox;\r
  12     Label1: TLabel;\r
  13     Edit1: TEdit;\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
  21     Edit2: TEdit;\r
  22     Edit3: TEdit;\r
  23     Edit4: TEdit;\r
  24     Edit5: TEdit;\r
  25     Edit6: TEdit;\r
  26     Edit7: TEdit;\r
  27     Edit8: TEdit;\r
  28     Button1: TButton;\r
  29     Button2: TButton;\r
  30     Label2: TLabel;\r
  31     ComboBox8: TComboBox;\r
  32     procedure Button2Click(Sender: TObject);\r
  33     procedure Button1Click(Sender: TObject);\r
  34   private\r
  35     { Private declarations }\r
  36   public\r
  37     { Public declarations }\r
  38   end;\r
  39 \r
  40 var\r
  41   PBKEditForm: TPBKEditForm;\r
  42 \r
  43 implementation\r
  44 \r
  45 {$R *.dfm}\r
  46 \r
  47 procedure TPBKEditForm.Button2Click(Sender: TObject);\r
  48 begin\r
  49   PBKEditForm.Close;\r
  50 end;\r
  51 \r
  52 procedure AddOneNumber(Edit: TEdit; ComboBox:TComboBox);\r
  53 var i:integer;\r
  54 begin\r
  55   if Edit.Text<>'' then\r
  56   begin\r
  57     if not ComboBox.Enabled then\r
  58     begin\r
  59       for i:=1 to 49 do\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
  63     end else\r
  64     begin\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
  72       end;\r
  73       pbk.SubEntries[pbk.SubEntriesCount].EntryType:=GSM_Number;\r
  74       for i:=1 to 61 do\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
  78     end;\r
  79   end;\r
  80 end;\r
  81 \r
  82 procedure AddOneText(Edit: TEdit; ComboBox:TComboBox);\r
  83 var i:integer;\r
  84 begin\r
  85   if Edit.Text<>'' then\r
  86   begin\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
  92     end;\r
  93     for i:=1 to 61 do\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
  97   end;\r
  98 end;\r
  99 \r
 100 procedure TPBKEditForm.Button1Click(Sender: TObject);\r
 101 var i:integer;\r
 102 begin\r
 103 \r
 104   pbk.SubEntriesCount:=0;\r
 105 \r
 106   for i:=1 to 51 do\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
 110 \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
 117 \r
 118   AddOneText(Edit7,ComboBox6);\r
 119   AddOneText(Edit8,ComboBox7);\r
 120 \r
 121   if (ComboBox8.ItemIndex=0) then\r
 122   begin\r
 123     pbk.Group:=5;\r
 124   end else\r
 125   begin\r
 126     pbk.Group:=ComboBox8.ItemIndex-1;\r
 127   end;\r
 128 \r
 129   MainForm.Timer2.Enabled:=false;\r
 130   GSM_WritePhonebookLocation(@pbk);\r
 131   MainForm.Timer2.Enabled:=true;\r
 132 \r
 133   MainForm.ComboBox1Change(nil);\r
 134 \r
 135   PBKEditForm.Close;\r
 136 end;\r
 137 \r
 138 end.\r