http://marcin-wiacek.fkn.pl/english/zips/mygnokii.tar.gz

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

diff --git a/win32_makefile/gui_delphi/smscedit.pas b/win32_makefile/gui_delphi/smscedit.pas
new file mode 100644 (file)
index 0000000..d5c9d21
--- /dev/null
+++ b/win32_makefile/gui_delphi/smscedit.pas
@@ -0,0 +1,87 @@
+unit smscedit;\r
+\r
+interface\r
+\r
+uses\r
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,\r
+  Dialogs, StdCtrls, GnokiiAPI,MainUnit;\r
+\r
+type\r
+  TSMSCEditForm = class(TForm)\r
+    Button1: TButton;\r
+    Button2: TButton;\r
+    Label1: TLabel;\r
+    Edit1: TEdit;\r
+    Label3: TLabel;\r
+    ComboBox1: TComboBox;\r
+    Label4: TLabel;\r
+    ComboBox2: TComboBox;\r
+    Label5: TLabel;\r
+    Edit3: TEdit;\r
+    Edit2: TEdit;\r
+    Label2: TLabel;\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
+  SMSCEditForm: TSMSCEditForm;\r
+\r
+implementation\r
+\r
+{$R *.dfm}\r
+\r
+procedure TSMSCEditForm.Button2Click(Sender: TObject);\r
+begin\r
+  SMSCEditForm.Close;\r
+end;\r
+\r
+procedure TSMSCEditForm.Button1Click(Sender: TObject);\r
+var\r
+  smsc:GSM_MessageCenter;\r
+  i:integer;\r
+begin\r
+  smsc.no:=smscselectitem;\r
+\r
+  for i:=1 to 20 do\r
+    smsc.name[i]:=chr(0);\r
+  for i:=1 to strlen(pchar(Edit1.text)) do\r
+    smsc.name[i]:=Edit1.Text[i];\r
+\r
+  for i:=1 to 40 do\r
+    smsc.number[i]:=chr(0);\r
+  for i:=1 to strlen(pchar(Edit2.text)) do\r
+    smsc.number[i]:=Edit2.Text[i];\r
+\r
+  for i:=1 to 40 do\r
+    smsc.defaultrecipient[i]:=chr(0);\r
+  for i:=1 to strlen(pchar(Edit3.text)) do\r
+    smsc.defaultrecipient[i]:=Edit3.Text[i];\r
+\r
+  case ComboBox1.ItemIndex of\r
+    0:smsc.Validity:=    GSMV_1_Hour  ;\r
+    1:smsc.Validity:=    GSMV_6_Hours ;\r
+    2:smsc.Validity:=    GSMV_24_Hours;\r
+    3:smsc.Validity:=    GSMV_72_Hours;\r
+    4:smsc.Validity:=    GSMV_1_Week  ;\r
+    5:smsc.Validity:=    GSMV_Max_Time;\r
+  end;\r
+\r
+  case combobox2.ItemIndex of\r
+    0:smsc.Format:=       GSMF_Text;\r
+    1:smsc.Format:=     GSMF_Fax   ;\r
+    3:smsc.Format:=     GSMF_Paging;\r
+  else\r
+    smsc.format:=GSMF_Email;\r
+  end;\r
+\r
+  GSM_SetSMSCenter(@smsc);\r
+  MainForm.SMSCTabSheetShow(nil);\r
+  SMSCEditForm.Close;\r
+end;\r
+\r
+end.\r