6 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
\r
7 Dialogs, StdCtrls,MainUnit,GnokiiAPI, ExtCtrls, ComCtrls;
\r
10 TSMSEditForm = class(TForm)
\r
11 GroupBox1: TGroupBox;
\r
12 ComboBox1: TComboBox;
\r
17 CheckBox1: TCheckBox;
\r
19 CheckBox2: TCheckBox;
\r
23 GroupBox2: TGroupBox;
\r
24 ComboBox2: TComboBox;
\r
26 ComboBox3: TComboBox;
\r
29 ComboBox4: TComboBox;
\r
30 RadioGroup1: TRadioGroup;
\r
31 CheckBox3: TCheckBox;
\r
32 CheckBox4: TCheckBox;
\r
33 ComboBox5: TComboBox;
\r
34 SMSEditPageControl: TPageControl;
\r
35 TextSMSTabSheet: TTabSheet;
\r
37 BitmapSMSTabSheet: TTabSheet;
\r
38 CalendarSMSTabSheet: TTabSheet;
\r
39 RingtoneSMSTabSheet: TTabSheet;
\r
41 ComboBox6: TComboBox;
\r
42 GroupBox3: TGroupBox;
\r
44 ComboBox7: TComboBox;
\r
46 CheckBox5: TCheckBox;
\r
47 ScrollBox1: TScrollBox;
\r
49 GroupBox4: TGroupBox;
\r
51 CheckBox6: TCheckBox;
\r
52 GroupBox5: TGroupBox;
\r
53 PBKSMSTabSheet: TTabSheet;
\r
54 GroupBox6: TGroupBox;
\r
58 ComboBox8: TComboBox;
\r
61 procedure Button3Click(Sender: TObject);
\r
62 procedure Memo1Change(Sender: TObject);
\r
63 procedure Button1Click(Sender: TObject);
\r
64 procedure RadioGroup1Click(Sender: TObject);
\r
65 procedure FormShow(Sender: TObject);
\r
66 procedure ComboBox2Change(Sender: TObject);
\r
67 procedure ComboBox5Change(Sender: TObject);
\r
69 { Private declarations }
\r
71 { Public declarations }
\r
75 SMSEditForm: TSMSEditForm;
\r
82 procedure TSMSEditForm.Button3Click(Sender: TObject);
\r
87 procedure TSMSEditForm.Memo1Change(Sender: TObject);
\r
89 GroupBox1.Caption:='Text ' + inttostr(Memo1.GetTextLen)+'/'+inttostr(maxlength);
\r
92 procedure TSMSEditForm.Button1Click(Sender: TObject);
\r
97 unicode,screensaver:integer;
\r
98 smstext:array[1..500] of char;
\r
100 if (SMSEditPageControl.ActivePage=TextSMSTabSheet) then
\r
102 z:=GSM_Coding_Default;
\r
103 case combobox5.ItemIndex of
\r
104 0: z:=GSM_Coding_Default;
\r
105 1: z:=GSM_Coding_Unicode;
\r
109 smstext[i]:=chr(0);
\r
110 w:=strlen(pchar(SMSEditForm.Memo1.Text));
\r
112 smstext[i]:=SMSEditForm.Memo1.Text[i];
\r
114 GSM_MakeMultiPartSMS2(@setsms,@smstext,w,GSM_NoUDH,z);
\r
116 for i:=1 to setsms.number do
\r
118 if CheckBox1.Checked then
\r
119 setsms.sms[i].Class2 := 0
\r
121 setsms.sms[i].Class2 := -1;
\r
124 setsms.sms[1].location:=setsmslocation;
\r
126 if (SMSEditPageControl.ActivePage=BitmapSMSTabSheet) then
\r
130 if bitma.type2=GSM_PictureImage then
\r
133 bitma.text[i]:=chr(0);
\r
134 for i:=1 to strlen(pchar(Memo2.text)) do
\r
135 bitma.text[i]:=Memo2.Text[i];
\r
137 GSM_SaveBitmapToSMS(@setsms,@bitma,unicode,screensaver);
\r
139 if (SMSEditPageControl.ActivePage=RingtoneSMSTabSheet) then
\r
141 GSM_SaveRingtoneToSMS(@setsms,@rington,1);
\r
143 if (SMSEditPageControl.ActivePage=CalendarSMSTabSheet) then
\r
145 GSM_SaveCalendarNoteToSMS(@setsms,@calenda);
\r
147 if (SMSEditPageControl.ActivePage=PBKSMSTabSheet) then
\r
150 case ComboBox8.ItemIndex of
\r
154 GSM_SavePhonebookEntryToSMS(@setsms,@pbk,i);
\r
157 for z:=1 to setsms.number do
\r
160 setsms.sms[z].MessageCenter.number[i]:=chr(0);
\r
161 for i:=1 to strlen(pchar(Edit1.text)) do
\r
162 setsms.sms[z].MessageCenter.number[i]:=Edit1.Text[i];
\r
163 setsms.sms[z].MessageCenter.No := ComboBox2.ItemIndex;
\r
164 setsms.sms[z].Validity := 4320; //do it
\r
167 setsms.sms[z].destination[i]:=chr(0);
\r
168 for i:=1 to strlen(pchar(Edit2.text)) do
\r
169 setsms.sms[z].destination[i]:=Edit2.Text[i];
\r
171 setsms.sms[z].folder:=combobox1.ItemIndex;
\r
173 setsms.sms[z].Type2 := GST_SMS;
\r
175 if CheckBox2.Checked then
\r
177 if RadioGroup1.ItemIndex=1 then setsms.sms[z].Type2:= GST_DR;
\r
181 setsms.sms[z].name[i]:=chr(0);
\r
182 for i:=1 to strlen(pchar(SMSEditForm.edit3.Text)) do
\r
183 setsms.sms[z].name[i]:=SMSEditForm.edit3.Text[i];
\r
186 if Checkbox4.Checked then
\r
187 setsms.sms[z].status:=GSS_SENTREAD
\r
189 setsms.sms[z].status:=GSS_NOTSENTREAD;
\r
191 if CheckBox3.Checked then
\r
192 setsms.sms[z].ReplyViaSameSMSC := 1
\r
194 setsms.sms[z].ReplyViaSameSMSC := 0;
\r
197 if Application.MessageBox(pchar('Do you want to save/send '+inttostr(setsms.number)+' sms ?'),'question',MB_YESNO)=IDYES then
\r
199 if (RadioGroup1.itemindex=0) then
\r
201 for z:=1 to setsms.number do
\r
203 GSM_SaveSMSMessage(@setsms.sms[z]);
\r
207 for z:=1 to setsms.number do
\r
209 GSM_SendSMSMessage(@setsms.sms[z]);
\r
214 MainForm.SMSTabSheetShow(nil);
\r
219 procedure TSMSEditForm.RadioGroup1Click(Sender: TObject);
\r
221 case RadioGroup1.ItemIndex of
\r
223 ComboBox1.Enabled:=true;
\r
224 CheckBox2.Enabled:=false;
\r
225 CheckBox4.Enabled:=true;
\r
226 ComboBox3.Enabled:=false;
\r
227 ComboBox4.Enabled:=false;
\r
228 Label14.Enabled:=true;
\r
229 edit3.Enabled:=true;
\r
232 ComboBox1.Enabled:=false;
\r
233 CheckBox2.Enabled:=true;
\r
234 CheckBox4.Enabled:=false;
\r
235 Label14.Enabled:=false;
\r
236 edit3.Enabled:=false;
\r
237 if ComboBox2.ItemIndex<>0 then
\r
239 ComboBox3.Enabled:=false;
\r
240 ComboBox4.Enabled:=false;
\r
243 ComboBox3.Enabled:=true;
\r
244 ComboBox4.Enabled:=true;
\r
248 if ComboBox2.ItemIndex<>0 then
\r
250 Edit1.Enabled:=false;
\r
253 Edit1.Enabled:=true;
\r
257 procedure TSMSEditForm.FormShow(Sender: TObject);
\r
259 RadioGroup1Click(nil);
\r
260 ComboBox5Change(nil);
\r
261 // ScrollBox1.VertScrollBar.Visible:=true;
\r
262 ScrollBox1.VertScrollBar.Position:=80;
\r
263 // ScrollBox1.VertScrollBar.Visible:=false;
\r
266 procedure TSMSEditForm.ComboBox2Change(Sender: TObject);
\r
268 if ComboBox2.ItemIndex<>0 then
\r
270 SetSMSC(ComboBox2.ItemIndex);
\r
272 RadioGroup1Click(nil);
\r
275 procedure TSMSEditForm.ComboBox5Change(Sender: TObject);
\r
277 case ComboBox5.ItemIndex of
\r
281 Memo1.MaxLength:=maxlength;
\r