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
22 GroupBox2: TGroupBox;
\r
23 ComboBox2: TComboBox;
\r
25 ComboBox3: TComboBox;
\r
28 ComboBox4: TComboBox;
\r
29 RadioGroup1: TRadioGroup;
\r
30 CheckBox3: TCheckBox;
\r
31 CheckBox4: TCheckBox;
\r
32 ComboBox5: TComboBox;
\r
33 SMSEditPageControl: TPageControl;
\r
34 TextSMSTabSheet: TTabSheet;
\r
36 BitmapSMSTabSheet: TTabSheet;
\r
37 CalendarSMSTabSheet: TTabSheet;
\r
38 RingtoneSMSTabSheet: TTabSheet;
\r
40 ComboBox6: TComboBox;
\r
41 GroupBox3: TGroupBox;
\r
43 ComboBox7: TComboBox;
\r
45 CheckBox5: TCheckBox;
\r
46 ScrollBox1: TScrollBox;
\r
48 GroupBox4: TGroupBox;
\r
50 CheckBox6: TCheckBox;
\r
51 GroupBox5: TGroupBox;
\r
52 PBKSMSTabSheet: TTabSheet;
\r
53 GroupBox6: TGroupBox;
\r
57 ComboBox8: TComboBox;
\r
60 WAPBookTabSheet: TTabSheet;
\r
61 WAPSettTabSheet: TTabSheet;
\r
62 GroupBox7: TGroupBox;
\r
63 GroupBox8: TGroupBox;
\r
64 ComboBox9: TComboBox;
\r
65 procedure Button3Click(Sender: TObject);
\r
66 procedure Memo1Change(Sender: TObject);
\r
67 procedure Button1Click(Sender: TObject);
\r
68 procedure RadioGroup1Click(Sender: TObject);
\r
69 procedure FormShow(Sender: TObject);
\r
70 procedure ComboBox2Change(Sender: TObject);
\r
71 procedure ComboBox5Change(Sender: TObject);
\r
73 { Private declarations }
\r
75 { Public declarations }
\r
79 SMSEditForm: TSMSEditForm;
\r
86 procedure TSMSEditForm.Button3Click(Sender: TObject);
\r
91 procedure TSMSEditForm.Memo1Change(Sender: TObject);
\r
93 GroupBox1.Caption:='Text ' + inttostr(Memo1.GetTextLen)+'/'+inttostr(maxlength);
\r
96 procedure TSMSEditForm.Button1Click(Sender: TObject);
\r
101 unicode,screensaver:integer;
\r
102 smstext:array[1..500] of char;
\r
104 if (SMSEditPageControl.ActivePage=TextSMSTabSheet) then
\r
106 z:=GSM_Coding_Default;
\r
107 case combobox5.ItemIndex of
\r
108 0: z:=GSM_Coding_Default;
\r
109 1: z:=GSM_Coding_Unicode;
\r
113 smstext[i]:=chr(0);
\r
114 w:=strlen(pchar(SMSEditForm.Memo1.Text));
\r
116 smstext[i]:=SMSEditForm.Memo1.Text[i];
\r
118 GSM_MakeMultiPartSMS2(@setsms,@smstext,w,GSM_NoUDH,z);
\r
120 for i:=1 to setsms.number do
\r
122 if CheckBox1.Checked then
\r
123 setsms.sms[i].Class2 := 0
\r
125 setsms.sms[i].Class2 := -1;
\r
128 setsms.sms[1].location:=setsmslocation;
\r
130 if (SMSEditPageControl.ActivePage=BitmapSMSTabSheet) then
\r
134 if bitma.type2=GSM_PictureImage then
\r
137 bitma.text[i]:=chr(0);
\r
138 for i:=1 to strlen(pchar(Memo2.text)) do
\r
139 bitma.text[i]:=Memo2.Text[i];
\r
141 GSM_SaveBitmapToSMS(@setsms,@bitma,unicode,screensaver);
\r
143 if (SMSEditPageControl.ActivePage=RingtoneSMSTabSheet) then
\r
145 GSM_SaveRingtoneToSMS(@setsms,@rington,1);
\r
147 if (SMSEditPageControl.ActivePage=WAPBookTabSheet) then
\r
149 GSM_SaveWAPBookmarkToSMS(@setsms,@bookma);
\r
151 if (SMSEditPageControl.ActivePage=WAPSettTabSheet) then
\r
153 GSM_SaveWAPSettingsToSMS(@setsms,@wapset);
\r
155 if (SMSEditPageControl.ActivePage=CalendarSMSTabSheet) then
\r
157 GSM_SaveCalendarNoteToSMS(@setsms,@calenda);
\r
159 if (SMSEditPageControl.ActivePage=PBKSMSTabSheet) then
\r
162 case ComboBox8.ItemIndex of
\r
166 GSM_SavePhonebookEntryToSMS(@setsms,@pbk,i);
\r
169 for z:=1 to setsms.number do
\r
172 setsms.sms[z].MessageCenter.number[i]:=chr(0);
\r
173 for i:=1 to strlen(pchar(Edit1.text)) do
\r
174 setsms.sms[z].MessageCenter.number[i]:=Edit1.Text[i];
\r
175 setsms.sms[z].MessageCenter.No := ComboBox2.ItemIndex;
\r
176 setsms.sms[z].Validity := 4320; //do it
\r
179 setsms.sms[z].destination[i]:=chr(0);
\r
180 if (ComboBox9.ItemIndex=-1) then
\r
182 for i:=1 to strlen(pchar(ComboBox9.text)) do
\r
183 setsms.sms[z].destination[i]:=ComboBox9.Text[i];
\r
187 for p:=1 to PBKOfflineNumber do
\r
189 MainForm.Label16.Caption:=PhoneBackup.PhonePhonebook[p].Name;
\r
190 if (MainForm.Label16.Caption=ComboBox9.Text) then
\r
192 if (PhoneBackup.PhonePhonebook[p].Number[1]<>chr(0)) then
\r
194 MainForm.Label14.Caption:=PhoneBackup.PhonePhonebook[p].Number;
\r
195 for i:=1 to strlen(pchar(MainForm.Label14.Caption)) do
\r
196 setsms.sms[z].destination[i]:=PhoneBackup.PhonePhonebook[p].Number[i];
\r
199 for j:=1 to PhoneBackup.PhonePhonebook[p].SubEntriesCount do
\r
201 if PhoneBackup.PhonePhonebook[p].SubEntries[j].EntryType=GSM_Number then
\r
203 MainForm.Label14.Caption:=PhoneBackup.PhonePhonebook[p].SubEntries[j].Number;
\r
204 for i:=1 to strlen(pchar(MainForm.Label14.Caption)) do
\r
205 setsms.sms[z].destination[i]:=PhoneBackup.PhonePhonebook[p].SubEntries[j].Number[i];
\r
214 setsms.sms[z].folder:=combobox1.ItemIndex;
\r
216 setsms.sms[z].Type2 := GST_SMS;
\r
218 if CheckBox2.Checked then
\r
220 if RadioGroup1.ItemIndex=1 then setsms.sms[z].Type2:= GST_DR;
\r
224 setsms.sms[z].name[i]:=chr(0);
\r
225 for i:=1 to strlen(pchar(SMSEditForm.edit3.Text)) do
\r
226 setsms.sms[z].name[i]:=SMSEditForm.edit3.Text[i];
\r
229 if Checkbox4.Checked then
\r
230 setsms.sms[z].status:=GSS_SENTREAD
\r
232 setsms.sms[z].status:=GSS_NOTSENTREAD;
\r
234 if CheckBox3.Checked then
\r
235 setsms.sms[z].ReplyViaSameSMSC := 1
\r
237 setsms.sms[z].ReplyViaSameSMSC := 0;
\r
240 if Application.MessageBox(pchar('Do you want to save/send '+inttostr(setsms.number)+' sms ?'),'question',MB_YESNO)=IDYES then
\r
242 if (RadioGroup1.itemindex=0) then
\r
244 for z:=1 to setsms.number do
\r
246 GSM_SaveSMSMessage(@setsms.sms[z]);
\r
250 for z:=1 to setsms.number do
\r
252 GSM_SendSMSMessage(@setsms.sms[z]);
\r
257 MainForm.SMSTabSheetShow(nil);
\r
262 procedure TSMSEditForm.RadioGroup1Click(Sender: TObject);
\r
264 case RadioGroup1.ItemIndex of
\r
266 ComboBox1.Enabled:=true;
\r
267 CheckBox2.Enabled:=false;
\r
268 CheckBox4.Enabled:=true;
\r
269 ComboBox3.Enabled:=false;
\r
270 ComboBox4.Enabled:=false;
\r
271 Label14.Enabled:=true;
\r
272 edit3.Enabled:=true;
\r
275 ComboBox1.Enabled:=false;
\r
276 CheckBox2.Enabled:=true;
\r
277 CheckBox4.Enabled:=false;
\r
278 Label14.Enabled:=false;
\r
279 edit3.Enabled:=false;
\r
280 if ComboBox2.ItemIndex<>0 then
\r
282 ComboBox3.Enabled:=false;
\r
283 ComboBox4.Enabled:=false;
\r
286 ComboBox3.Enabled:=true;
\r
287 ComboBox4.Enabled:=true;
\r
291 if ComboBox2.ItemIndex<>0 then
\r
293 Edit1.Enabled:=false;
\r
296 Edit1.Enabled:=true;
\r
300 procedure TSMSEditForm.FormShow(Sender: TObject);
\r
302 RadioGroup1Click(nil);
\r
303 ComboBox5Change(nil);
\r
304 // ScrollBox1.VertScrollBar.Visible:=true;
\r
305 ScrollBox1.VertScrollBar.Position:=80;
\r
306 // ScrollBox1.VertScrollBar.Visible:=false;
\r
309 procedure TSMSEditForm.ComboBox2Change(Sender: TObject);
\r
311 if ComboBox2.ItemIndex<>0 then
\r
313 SetSMSC(ComboBox2.ItemIndex);
\r
315 RadioGroup1Click(nil);
\r
318 procedure TSMSEditForm.ComboBox5Change(Sender: TObject);
\r
320 case ComboBox5.ItemIndex of
\r
324 Memo1.MaxLength:=maxlength;
\r