--- /dev/null
+unit SMSEdit;\r
+\r
+interface\r
+\r
+uses\r
+ Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,\r
+ Dialogs, StdCtrls,MainUnit,GnokiiAPI, ExtCtrls, ComCtrls;\r
+\r
+type\r
+ TSMSEditForm = class(TForm)\r
+ GroupBox1: TGroupBox;\r
+ ComboBox1: TComboBox;\r
+ Label1: TLabel;\r
+ Memo1: TMemo;\r
+ Label2: TLabel;\r
+ Label3: TLabel;\r
+ CheckBox1: TCheckBox;\r
+ Button1: TButton;\r
+ CheckBox2: TCheckBox;\r
+ Button3: TButton;\r
+ Edit1: TEdit;\r
+ Edit2: TEdit;\r
+ GroupBox2: TGroupBox;\r
+ ComboBox2: TComboBox;\r
+ Label4: TLabel;\r
+ ComboBox3: TComboBox;\r
+ Label5: TLabel;\r
+ Label6: TLabel;\r
+ ComboBox4: TComboBox;\r
+ RadioGroup1: TRadioGroup;\r
+ CheckBox3: TCheckBox;\r
+ CheckBox4: TCheckBox;\r
+ ComboBox5: TComboBox;\r
+ SMSEditPageControl: TPageControl;\r
+ TextSMSTabSheet: TTabSheet;\r
+ Label7: TLabel;\r
+ BitmapSMSTabSheet: TTabSheet;\r
+ CalendarSMSTabSheet: TTabSheet;\r
+ RingtoneSMSTabSheet: TTabSheet;\r
+ Label8: TLabel;\r
+ ComboBox6: TComboBox;\r
+ GroupBox3: TGroupBox;\r
+ Label9: TLabel;\r
+ ComboBox7: TComboBox;\r
+ Label10: TLabel;\r
+ CheckBox5: TCheckBox;\r
+ ScrollBox1: TScrollBox;\r
+ Image1: TImage;\r
+ GroupBox4: TGroupBox;\r
+ Memo2: TMemo;\r
+ CheckBox6: TCheckBox;\r
+ GroupBox5: TGroupBox;\r
+ PBKSMSTabSheet: TTabSheet;\r
+ GroupBox6: TGroupBox;\r
+ Label11: TLabel;\r
+ Label12: TLabel;\r
+ Label13: TLabel;\r
+ ComboBox8: TComboBox;\r
+ Label14: TLabel;\r
+ Edit3: TEdit;\r
+ procedure Button3Click(Sender: TObject);\r
+ procedure Memo1Change(Sender: TObject);\r
+ procedure Button1Click(Sender: TObject);\r
+ procedure RadioGroup1Click(Sender: TObject);\r
+ procedure FormShow(Sender: TObject);\r
+ procedure ComboBox2Change(Sender: TObject);\r
+ procedure ComboBox5Change(Sender: TObject);\r
+ private\r
+ { Private declarations }\r
+ public\r
+ { Public declarations }\r
+ end;\r
+\r
+var\r
+ SMSEditForm: TSMSEditForm;\r
+ maxlength:integer;\r
+\r
+implementation\r
+\r
+{$R *.dfm}\r
+\r
+procedure TSMSEditForm.Button3Click(Sender: TObject);\r
+begin\r
+ SMSEditForm.Close;\r
+end;\r
+\r
+procedure TSMSEditForm.Memo1Change(Sender: TObject);\r
+begin\r
+ GroupBox1.Caption:='Text ' + inttostr(Memo1.GetTextLen)+'/'+inttostr(maxlength);\r
+end;\r
+\r
+procedure TSMSEditForm.Button1Click(Sender: TObject);\r
+var\r
+ i:integer;\r
+ z:integer;\r
+ w:word;\r
+ unicode,screensaver:integer;\r
+ smstext:array[1..500] of char;\r
+begin\r
+ if (SMSEditPageControl.ActivePage=TextSMSTabSheet) then\r
+ begin\r
+ z:=GSM_Coding_Default;\r
+ case combobox5.ItemIndex of\r
+ 0: z:=GSM_Coding_Default;\r
+ 1: z:=GSM_Coding_Unicode;\r
+ end;\r
+\r
+ for i:=1 to 500 do\r
+ smstext[i]:=chr(0);\r
+ w:=strlen(pchar(SMSEditForm.Memo1.Text));\r
+ for i:=1 to w do\r
+ smstext[i]:=SMSEditForm.Memo1.Text[i];\r
+\r
+ GSM_MakeMultiPartSMS2(@setsms,@smstext,w,GSM_NoUDH,z);\r
+\r
+ for i:=1 to setsms.number do\r
+ begin\r
+ if CheckBox1.Checked then\r
+ setsms.sms[i].Class2 := 0\r
+ else\r
+ setsms.sms[i].Class2 := -1;\r
+ end;\r
+\r
+ setsms.sms[1].location:=setsmslocation;\r
+ end;\r
+ if (SMSEditPageControl.ActivePage=BitmapSMSTabSheet) then\r
+ begin\r
+ unicode:=0;\r
+ screensaver:=0;\r
+ if bitma.type2=GSM_PictureImage then\r
+ begin\r
+ for i:=1 to 256 do\r
+ bitma.text[i]:=chr(0);\r
+ for i:=1 to strlen(pchar(Memo2.text)) do\r
+ bitma.text[i]:=Memo2.Text[i];\r
+ end;\r
+ GSM_SaveBitmapToSMS(@setsms,@bitma,unicode,screensaver);\r
+ end;\r
+ if (SMSEditPageControl.ActivePage=RingtoneSMSTabSheet) then\r
+ begin\r
+ GSM_SaveRingtoneToSMS(@setsms,@rington,1);\r
+ end;\r
+ if (SMSEditPageControl.ActivePage=CalendarSMSTabSheet) then\r
+ begin\r
+ GSM_SaveCalendarNoteToSMS(@setsms,@calenda);\r
+ end;\r
+ if (SMSEditPageControl.ActivePage=PBKSMSTabSheet) then\r
+ begin\r
+ i:=10;\r
+ case ComboBox8.ItemIndex of\r
+ 0:i:=10;\r
+ 1:i:=21;\r
+ end;\r
+ GSM_SavePhonebookEntryToSMS(@setsms,@pbk,i);\r
+ end;\r
+\r
+ for z:=1 to setsms.number do\r
+ begin\r
+ for i:=1 to 40 do\r
+ setsms.sms[z].MessageCenter.number[i]:=chr(0);\r
+ for i:=1 to strlen(pchar(Edit1.text)) do\r
+ setsms.sms[z].MessageCenter.number[i]:=Edit1.Text[i];\r
+ setsms.sms[z].MessageCenter.No := ComboBox2.ItemIndex;\r
+ setsms.sms[z].Validity := 4320; //do it\r
+\r
+ for i:=1 to 41 do\r
+ setsms.sms[z].destination[i]:=chr(0);\r
+ for i:=1 to strlen(pchar(Edit2.text)) do\r
+ setsms.sms[z].destination[i]:=Edit2.Text[i];\r
+\r
+ setsms.sms[z].folder:=combobox1.ItemIndex;\r
+\r
+ setsms.sms[z].Type2 := GST_SMS;\r
+ //delivery report\r
+ if CheckBox2.Checked then\r
+ begin\r
+ if RadioGroup1.ItemIndex=1 then setsms.sms[z].Type2:= GST_DR;\r
+ end;\r
+\r
+ for i:=1 to 26 do\r
+ setsms.sms[z].name[i]:=chr(0);\r
+ for i:=1 to strlen(pchar(SMSEditForm.edit3.Text)) do\r
+ setsms.sms[z].name[i]:=SMSEditForm.edit3.Text[i];\r
+\r
+ //read/unread\r
+ if Checkbox4.Checked then\r
+ setsms.sms[z].status:=GSS_SENTREAD\r
+ else\r
+ setsms.sms[z].status:=GSS_NOTSENTREAD;\r
+\r
+ if CheckBox3.Checked then\r
+ setsms.sms[z].ReplyViaSameSMSC := 1\r
+ else\r
+ setsms.sms[z].ReplyViaSameSMSC := 0;\r
+ end;\r
+\r
+ if Application.MessageBox(pchar('Do you want to save/send '+inttostr(setsms.number)+' sms ?'),'question',MB_YESNO)=IDYES then\r
+ begin\r
+ if (RadioGroup1.itemindex=0) then\r
+ begin\r
+ for z:=1 to setsms.number do\r
+ begin\r
+ GSM_SaveSMSMessage(@setsms.sms[z]);\r
+ end;\r
+ end else\r
+ begin\r
+ for z:=1 to setsms.number do\r
+ begin\r
+ GSM_SendSMSMessage(@setsms.sms[z]);\r
+ end;\r
+ end;\r
+ end;\r
+\r
+ MainForm.SMSTabSheetShow(nil);\r
+\r
+ SMSEditForm.Close;\r
+end;\r
+\r
+procedure TSMSEditForm.RadioGroup1Click(Sender: TObject);\r
+begin\r
+ case RadioGroup1.ItemIndex of\r
+ 0:begin\r
+ ComboBox1.Enabled:=true;\r
+ CheckBox2.Enabled:=false;\r
+ CheckBox4.Enabled:=true;\r
+ ComboBox3.Enabled:=false;\r
+ ComboBox4.Enabled:=false;\r
+ Label14.Enabled:=true;\r
+ edit3.Enabled:=true;\r
+ end;\r
+ 1:begin\r
+ ComboBox1.Enabled:=false;\r
+ CheckBox2.Enabled:=true;\r
+ CheckBox4.Enabled:=false;\r
+ Label14.Enabled:=false;\r
+ edit3.Enabled:=false;\r
+ if ComboBox2.ItemIndex<>0 then\r
+ begin\r
+ ComboBox3.Enabled:=false;\r
+ ComboBox4.Enabled:=false;\r
+ end else\r
+ begin\r
+ ComboBox3.Enabled:=true;\r
+ ComboBox4.Enabled:=true;\r
+ end;\r
+ end;\r
+ end;\r
+ if ComboBox2.ItemIndex<>0 then\r
+ begin\r
+ Edit1.Enabled:=false;\r
+ end else\r
+ begin\r
+ Edit1.Enabled:=true;\r
+ end;\r
+end;\r
+\r
+procedure TSMSEditForm.FormShow(Sender: TObject);\r
+begin\r
+ RadioGroup1Click(nil);\r
+ ComboBox5Change(nil);\r
+// ScrollBox1.VertScrollBar.Visible:=true;\r
+ ScrollBox1.VertScrollBar.Position:=80;\r
+// ScrollBox1.VertScrollBar.Visible:=false;\r
+end;\r
+\r
+procedure TSMSEditForm.ComboBox2Change(Sender: TObject);\r
+begin\r
+ if ComboBox2.ItemIndex<>0 then\r
+ begin\r
+ SetSMSC(ComboBox2.ItemIndex);\r
+ end;\r
+ RadioGroup1Click(nil);\r
+end;\r
+\r
+procedure TSMSEditForm.ComboBox5Change(Sender: TObject);\r
+begin\r
+ case ComboBox5.ItemIndex of\r
+ 0:maxlength:=160;\r
+ 1:maxlength:=70;\r
+ end;\r
+ Memo1.MaxLength:=maxlength;\r
+ Memo1Change(nil);\r
+end;\r
+\r
+end.\r
git://git.jankratochvil.net / gnokii.git / blobdiff