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

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

diff --git a/win32_makefile/gui_delphi/smscedit.pas b/win32_makefile/gui_delphi/smscedit.pas
deleted file mode 100644 (file)
index d5c9d21..0000000
--- a/win32_makefile/gui_delphi/smscedit.pas
+++ /dev/null
@@ -1,87 +0,0 @@
-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