8 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
\r
9 Dialogs, ComCtrls, GnokiiAPI, ExtCtrls, Menus, StdCtrls, Spin, IniFiles;
\r
12 TMainForm = class(TForm)
\r
13 StatusBar1: TStatusBar;
\r
14 TreeView1: TTreeView;
\r
15 Splitter1: TSplitter;
\r
16 MainMenu1: TMainMenu;
\r
22 OpenDialog1: TOpenDialog;
\r
23 SaveDialog1: TSaveDialog;
\r
24 PageControl1: TPageControl;
\r
25 NetmonitorTabSheet: TTabSheet;
\r
26 GroupBox1: TGroupBox;
\r
28 NetmonGroupBox: TGroupBox;
\r
29 NetmonLabel: TLabel;
\r
30 SpinEdit1: TSpinEdit;
\r
32 PhonebookTabSheet: TTabSheet;
\r
33 GroupBox2: TGroupBox;
\r
36 ComboBox1: TComboBox;
\r
37 ListView1: TListView;
\r
38 PhoneTabSheet: TTabSheet;
\r
39 GroupBox3: TGroupBox;
\r
40 GroupBox12: TGroupBox;
\r
48 GroupBox14: TGroupBox;
\r
49 ListView8: TListView;
\r
50 GroupBox11: TGroupBox;
\r
51 CheckBox1: TCheckBox;
\r
52 LogosTabSheet: TTabSheet;
\r
53 GroupBox4: TGroupBox;
\r
57 ComboBox2: TComboBox;
\r
64 RingtonesTabSheet: TTabSheet;
\r
65 GroupBox5: TGroupBox;
\r
70 SMSTabSheet: TTabSheet;
\r
71 GroupBox6: TGroupBox;
\r
74 ComboBox3: TComboBox;
\r
75 ListView2: TListView;
\r
76 SpeedTabSheet: TTabSheet;
\r
77 GroupBox7: TGroupBox;
\r
78 ListView3: TListView;
\r
79 CalendarTabSheet: TTabSheet;
\r
80 GroupBox8: TGroupBox;
\r
81 ListView4: TListView;
\r
82 SMSCTabSheet: TTabSheet;
\r
83 GroupBox9: TGroupBox;
\r
84 ListView6: TListView;
\r
85 CallerTabSheet: TTabSheet;
\r
86 GroupBox10: TGroupBox;
\r
87 ListView5: TListView;
\r
88 ProfileTabSheet: TTabSheet;
\r
89 GroupBox13: TGroupBox;
\r
90 ListView7: TListView;
\r
92 Splitter2: TSplitter;
\r
93 GroupBox15: TGroupBox;
\r
94 GroupBox16: TGroupBox;
\r
101 CalendarPopupMenu: TPopupMenu;
\r
104 Delete1: TMenuItem;
\r
105 SMSPopupMenu: TPopupMenu;
\r
112 WapBookTabSheet: TTabSheet;
\r
113 GroupBox17: TGroupBox;
\r
114 DateTimePicker1: TDateTimePicker;
\r
115 ConfigTabSheet: TTabSheet;
\r
116 GroupBox18: TGroupBox;
\r
117 Configuration1: TMenuItem;
\r
119 Delete2: TMenuItem;
\r
120 SMSCPopupMenu: TPopupMenu;
\r
123 ComboBox4: TComboBox;
\r
125 ComboBox5: TComboBox;
\r
127 CheckBox2: TCheckBox;
\r
130 PBKPopupMenu: TPopupMenu;
\r
135 SMSSendSave1: TMenuItem;
\r
136 ComboBox6: TComboBox;
\r
137 WAPSettTabSheet: TTabSheet;
\r
138 DivertTabSheet: TTabSheet;
\r
139 GroupBox19: TGroupBox;
\r
140 GroupBox20: TGroupBox;
\r
142 ListView9: TListView;
\r
143 AboutTabSheet: TTabSheet;
\r
144 GroupBox21: TGroupBox;
\r
147 PCSMSTabSheet: TTabSheet;
\r
148 GroupBox22: TGroupBox;
\r
150 Splitter3: TSplitter;
\r
152 ListView10: TListView;
\r
153 CopytoPC1: TMenuItem;
\r
157 PCSMSPopupMenu: TPopupMenu;
\r
158 SendSave1: TMenuItem;
\r
160 Delete3: TMenuItem;
\r
162 ComboBox7: TComboBox;
\r
168 ComboBox8: TComboBox;
\r
170 ComboBox9: TComboBox;
\r
172 ComboBox10: TComboBox;
\r
182 ComboBox11: TComboBox;
\r
184 ComboBox12: TComboBox;
\r
186 ComboBox13: TComboBox;
\r
194 ComboBox14: TComboBox;
\r
196 PageControl2: TPageControl;
\r
197 TabSheet1: TTabSheet;
\r
204 ComboBox15: TComboBox;
\r
208 PCCalendarTabSheet: TTabSheet;
\r
209 GroupBox23: TGroupBox;
\r
210 ListView11: TListView;
\r
212 CopytoPC2: TMenuItem;
\r
213 PCCalendarPopupMenu: TPopupMenu;
\r
214 Copytocalendar1: TMenuItem;
\r
216 Delete5: TMenuItem;
\r
217 PCOfflineTabSheet: TTabSheet;
\r
218 GroupBox24: TGroupBox;
\r
223 TabSheet2: TTabSheet;
\r
224 TabSheet3: TTabSheet;
\r
226 Savebackuptofile1: TMenuItem;
\r
227 Restorebackupfromfile1: TMenuItem;
\r
229 Savephonebooktofileanotherapplication1: TMenuItem;
\r
230 PCPBKTabSheet: TTabSheet;
\r
231 GroupBox25: TGroupBox;
\r
232 ListView12: TListView;
\r
235 Delete4: TMenuItem;
\r
237 WAPBookPopupMenu: TPopupMenu;
\r
239 SMSSendSave2: TMenuItem;
\r
243 CopyphonebooktoPC1: TMenuItem;
\r
244 GroupBox26: TGroupBox;
\r
245 CheckBox3: TCheckBox;
\r
246 TrackBar1: TTrackBar;
\r
248 CheckBox4: TCheckBox;
\r
249 CheckBox5: TCheckBox;
\r
250 procedure TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
\r
251 Shift: TShiftState; X, Y: Integer);
\r
252 procedure FormCreate(Sender: TObject);
\r
253 procedure Timer1Timer(Sender: TObject);
\r
254 procedure NetmonitorTabSheetShow(Sender: TObject);
\r
255 procedure NetmonitorTabSheetHide(Sender: TObject);
\r
256 procedure SpinEdit1Change(Sender: TObject);
\r
257 procedure ComboBox1Change(Sender: TObject);
\r
258 procedure PhonebookTabSheetHide(Sender: TObject);
\r
259 procedure Quit1Click(Sender: TObject);
\r
260 procedure FormResize(Sender: TObject);
\r
261 procedure About1Click(Sender: TObject);
\r
262 procedure LogosImageMouseMove(Sender: TObject; Shift: TShiftState; X,
\r
264 procedure Button1Click(Sender: TObject);
\r
265 procedure Button4Click(Sender: TObject);
\r
266 procedure Button3Click(Sender: TObject);
\r
267 procedure PhoneTabSheetShow(Sender: TObject);
\r
268 procedure Button2Click(Sender: TObject);
\r
269 procedure LogosTabSheetShow(Sender: TObject);
\r
270 procedure ComboBox2Select(Sender: TObject);
\r
271 procedure Button7Click(Sender: TObject);
\r
272 procedure LogosImageMouseDown(Sender: TObject; Button: TMouseButton;
\r
273 Shift: TShiftState; X, Y: Integer);
\r
274 procedure Button6Click(Sender: TObject);
\r
275 procedure Button5Click(Sender: TObject);
\r
276 procedure Button8Click(Sender: TObject);
\r
277 procedure SpeedTabSheetShow(Sender: TObject);
\r
278 procedure Button9Click(Sender: TObject);
\r
279 procedure SpeedTabSheetHide(Sender: TObject);
\r
280 procedure Button11Click(Sender: TObject);
\r
281 procedure Button12Click(Sender: TObject);
\r
282 procedure CalendarTabSheetShow(Sender: TObject);
\r
283 procedure CallerTabSheetShow(Sender: TObject);
\r
284 procedure SMSCTabSheetShow(Sender: TObject);
\r
285 procedure Button10Click(Sender: TObject);
\r
286 procedure ProfileTabSheetShow(Sender: TObject);
\r
287 procedure SMSCTabSheetHide(Sender: TObject);
\r
288 procedure CalendarTabSheetHide(Sender: TObject);
\r
289 procedure CallerTabSheetHide(Sender: TObject);
\r
290 procedure ProfileTabSheetHide(Sender: TObject);
\r
291 procedure PhonebookTabSheetShow(Sender: TObject);
\r
292 procedure SMSTabSheetShow(Sender: TObject);
\r
293 procedure ComboBox3Change(Sender: TObject);
\r
294 procedure ListView2SelectItem(Sender: TObject; Item: TListItem;
\r
295 Selected: Boolean);
\r
296 procedure New1Click(Sender: TObject);
\r
297 procedure Edit3Click(Sender: TObject);
\r
298 procedure ListView4SelectItem(Sender: TObject; Item: TListItem;
\r
299 Selected: Boolean);
\r
300 procedure Delete1Click(Sender: TObject);
\r
301 procedure Button16Click(Sender: TObject);
\r
302 procedure Edit4Click(Sender: TObject);
\r
303 procedure New2Click(Sender: TObject);
\r
304 procedure Configuration1Click(Sender: TObject);
\r
305 procedure TreeView1KeyUp(Sender: TObject; var Key: Word;
\r
306 Shift: TShiftState);
\r
307 procedure SMSTabSheetHide(Sender: TObject);
\r
308 procedure SMSPopupMenuPopup(Sender: TObject);
\r
309 procedure CalendarPopupMenuPopup(Sender: TObject);
\r
310 procedure Edit1Change(Sender: TObject);
\r
311 procedure Delete2Click(Sender: TObject);
\r
312 procedure Edit5Click(Sender: TObject);
\r
313 procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
\r
314 Shift: TShiftState; X, Y: Integer);
\r
315 procedure SMSCPopupMenuPopup(Sender: TObject);
\r
316 procedure ListView6SelectItem(Sender: TObject; Item: TListItem;
\r
317 Selected: Boolean);
\r
318 procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
\r
319 Selected: Boolean);
\r
320 procedure Edit7Click(Sender: TObject);
\r
321 procedure Button18Click(Sender: TObject);
\r
322 procedure Button17Click(Sender: TObject);
\r
323 procedure SMS1Click(Sender: TObject);
\r
324 procedure SMSSendSave1Click(Sender: TObject);
\r
325 procedure Button13Click(Sender: TObject);
\r
326 procedure Button14Click(Sender: TObject);
\r
327 procedure ConfigTabSheetHide(Sender: TObject);
\r
328 procedure ConfigTabSheetShow(Sender: TObject);
\r
329 procedure Timer2Timer(Sender: TObject);
\r
330 procedure AboutTabSheetShow(Sender: TObject);
\r
331 procedure PCSMSTabSheetShow(Sender: TObject);
\r
332 procedure CopytoPC1Click(Sender: TObject);
\r
333 procedure ListView10SelectItem(Sender: TObject; Item: TListItem;
\r
334 Selected: Boolean);
\r
335 procedure PCSMSPopupMenuPopup(Sender: TObject);
\r
336 procedure Delete3Click(Sender: TObject);
\r
337 procedure SendSave1Click(Sender: TObject);
\r
338 procedure WapBookTabSheetHide(Sender: TObject);
\r
339 procedure WapBookTabSheetShow(Sender: TObject);
\r
340 procedure ComboBox7Change(Sender: TObject);
\r
341 procedure Button19Click(Sender: TObject);
\r
342 procedure Button20Click(Sender: TObject);
\r
343 procedure PCOfflineTabSheetShow(Sender: TObject);
\r
344 procedure PCCalendarTabSheetShow(Sender: TObject);
\r
345 procedure CopytoPC2Click(Sender: TObject);
\r
346 procedure Delete5Click(Sender: TObject);
\r
347 procedure Copytocalendar1Click(Sender: TObject);
\r
348 procedure PCCalendarPopupMenuPopup(Sender: TObject);
\r
349 procedure Savebackuptofile1Click(Sender: TObject);
\r
350 procedure Restorebackupfromfile1Click(Sender: TObject);
\r
351 procedure PBKPopupMenuPopup(Sender: TObject);
\r
352 procedure Savephonebooktofileanotherapplication1Click(Sender: TObject);
\r
353 procedure ListView4DblClick(Sender: TObject);
\r
354 procedure Edit19Click(Sender: TObject);
\r
355 procedure Delete4Click(Sender: TObject);
\r
356 procedure Button22Click(Sender: TObject);
\r
357 procedure New20Click(Sender: TObject);
\r
358 procedure ListView9SelectItem(Sender: TObject; Item: TListItem;
\r
359 Selected: Boolean);
\r
360 procedure Edit20Click(Sender: TObject);
\r
361 procedure WAPBookPopupMenuPopup(Sender: TObject);
\r
362 procedure SMSSendSave2Click(Sender: TObject);
\r
363 procedure Button23Click(Sender: TObject);
\r
364 procedure CopyphonebooktoPC1Click(Sender: TObject);
\r
365 procedure PCPBKTabSheetShow(Sender: TObject);
\r
366 procedure FormShow(Sender: TObject);
\r
367 procedure FormClose(Sender: TObject; var Action: TCloseAction);
\r
369 { Private declarations }
\r
371 { Public declarations }
\r
375 MainForm: TMainForm;
\r
376 setcalendarnote:GSM_CalendarNote;
\r
377 setsms:GSM_MultiSMSMessage;
\r
378 setsmslocation:integer;
\r
379 smscselectitem:integer;
\r
381 rington:GSM_Ringtone;
\r
382 calenda:GSM_CalendarNote;
\r
383 pbk:GSM_PhonebookEntry;
\r
384 previewcolor:TColor;
\r
385 bookmarknum2:integer;
\r
386 bookma:GSM_WAPBookmark;
\r
387 wapset:GSM_WAPSettings;
\r
388 pbkofflinenumber:integer;
\r
390 PhoneBackup: GSM_Backup;
\r
391 PhoneBackupAvailable:boolean;
\r
393 procedure AddCalendarNote(note:GSM_CalendarNote;myview:TListView);
\r
394 function DayOFweek3(date:TDateTime):string;
\r
395 procedure SetSMSC(num:integer);
\r
396 procedure ReadPBKOffline;
\r
400 uses Calendar, SMSEdit, LogosRing, Netmon, smscedit, pbkedit, backup,
\r
401 backup2, pbkedit2, wapbook;
\r
406 TNetmonThread = class(TThread)
\r
408 procedure Execute; override;
\r
410 TPhonebookThread = class(TThread)
\r
412 procedure Execute; override;
\r
414 TSpeedThread = class(TThread)
\r
416 procedure Execute; override;
\r
418 TSMSCThread = class(TThread)
\r
420 procedure Execute; override;
\r
422 TSMSThread = class(TThread)
\r
424 procedure Execute; override;
\r
426 TCalendarThread = class(TThread)
\r
428 procedure Execute; override;
\r
430 TCallerThread = class(TThread)
\r
432 procedure Execute; override;
\r
434 TProfileThread = class(TThread)
\r
436 procedure Execute; override;
\r
438 TPlayRingtoneThread = class(TThread)
\r
440 procedure Execute; override;
\r
442 TWAPBookmarkThread = class(TThread)
\r
444 procedure Execute; override;
\r
451 //reading netmonitor variables
\r
452 netmonnum: integer; //number of netmon screen
\r
453 NetmonThread: TNetmonThread;
\r
455 //reading phonebook memories variables
\r
456 phonebookstatus:GSM_MemoryStatus;
\r
457 phonebookcur:integer;
\r
458 phonebookfound:integer;
\r
459 PhonebookThread: TPhonebookThread;
\r
460 pbknumberentry:integer;
\r
465 logofilename:string='xxx';
\r
468 PlayRingtoneThread: TPlayRingtoneThread;
\r
470 binring:GSM_BinRingtone;
\r
474 SpeedThread: TSpeedThread;
\r
477 caller:array[1..5] of GSM_Bitmap;
\r
478 callerinit:boolean;
\r
480 CallerThread: TCallerThread;
\r
484 SMSCThread: TSMSCThread;
\r
486 SMSC2:array[1..10] of GSM_MessageCenter;
\r
489 calendarnum:integer;
\r
490 CalendarThread: TCalendarThread;
\r
491 calendarselect:integer;
\r
492 readcalendar:boolean;
\r
494 CalendarOffline:array[1..300] of GSM_CalendarNote;
\r
495 CalendarOfflineNumber:integer;
\r
498 profilenum:integer;
\r
499 ProfileThread: TProfileThread;
\r
501 SMS:array[1..200] of GSM_SMSMessage;
\r
503 SMSfolders:GSM_SMSFolders;
\r
504 SMSstatus:GSM_SMSStatus;
\r
505 smsnumindex:integer;
\r
506 SMSThread: TSMSThread;
\r
509 SMSOffline:array[1..300] of GSM_SMSMessage;
\r
510 SMSOfflineNumber:integer;
\r
513 WAPBookmarkThread: TWAPBookmarkThread;
\r
514 bookmarknum:integer;
\r
516 function Inttostr2(I: Longint;digits:integer): string;
\r
518 { Convert any integer type to a string }
\r
526 if s[j]<>' ' then break;
\r
532 procedure SaveMainConfig;
\r
534 MyIniFile: TIniFile;
\r
536 MyIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'\gnokiirc');
\r
537 MyIniFile.WriteString('win32gui', 'x', inttostr(MainForm.Left));
\r
538 MyIniFile.WriteString('win32gui', 'y', inttostr(MainForm.Top));
\r
539 MyIniFile.WriteString('win32gui', 'width', inttostr(MainForm.Width));
\r
540 MyIniFile.WriteString('win32gui', 'height', inttostr(MainForm.Height));
\r
541 MyIniFile.WriteString('win32gui', 'treewidth', inttostr(MainForm.Treeview1.Width));
\r
545 function DayOFweek3(date:TDateTime):string;
\r
547 days: array[1..7] of string;
\r
556 DayOfWeek3:= days[DayOfWeek(date)];
\r
559 function DayOFweek2(day:integer;month:integer;year:integer):string;
\r
563 Date:=EncodeDate(Year,Month,Day);
\r
564 DayOfWeek2:= DayOfWeek3(Date);
\r
567 procedure SetSMSC(num:integer);
\r
569 SMSEditForm.Edit1.Text:=SMSC2[num].Number;
\r
570 case SMSC2[num].Validity of
\r
571 GSMV_1_Hour : SMSEditForm.ComboBox3.ItemIndex:=0;
\r
572 GSMV_6_Hours : SMSEditForm.ComboBox3.ItemIndex:=1;
\r
573 GSMV_24_Hours : SMSEditForm.ComboBox3.ItemIndex:=2;
\r
574 GSMV_72_Hours : SMSEditForm.ComboBox3.ItemIndex:=3;
\r
575 GSMV_1_Week : SMSEditForm.ComboBox3.ItemIndex:=4;
\r
577 SMSEditForm.ComboBox3.ItemIndex:=5;
\r
580 case SMSC2[num].Format of
\r
581 GSMF_Text : SMSEditForm.ComboBox4.ItemIndex:=0;
\r
582 GSMF_Fax : SMSEditForm.ComboBox4.ItemIndex:=1;
\r
583 GSMF_Email : SMSEditForm.ComboBox4.ItemIndex:=2;
\r
585 SMSEditForm.ComboBox4.ItemIndex:=3;
\r
589 procedure ReadPBKOffline;
\r
590 var F:file of GSM_PhonebookEntry;
\r
592 AssignFile(F, 'gnokiipbk');
\r
594 if (ioresult=0) then
\r
596 phonebackup.PhonePhonebookUsed:=0;
\r
597 pbkofflinenumber:=0;
\r
598 while not eof(f) do
\r
600 pbkofflinenumber:=pbkofflinenumber+1;
\r
601 read(f,PhoneBackup.PhonePhonebook[pbkofflinenumber]);
\r
607 procedure SavePBKOffline;
\r
608 var F:file of GSM_PhonebookEntry;
\r
611 AssignFile(F, 'gnokiipbk');
\r
613 for i:=1 to PBKOfflineNumber do
\r
615 Write(f,PhoneBackup.PhonePhonebook[i]);
\r
620 procedure AddSMSEditSenderList;
\r
624 SMSEditForm.ComboBox9.Items.Clear;
\r
625 SMSEditForm.ComboBox9.Sorted:=false;
\r
626 for i:=1 to PBKOfflineNumber do
\r
628 if (PhoneBackup.PhonePhonebook[i].Number[1]<>chr(0)) then
\r
630 SMSEditForm.ComboBox9.Items.Add(PhoneBackup.PhonePhonebook[i].Name);
\r
633 for j:=1 to PhoneBackup.PhonePhonebook[i].SubEntriesCount do
\r
635 if PhoneBackup.PhonePhonebook[i].SubEntries[j].EntryType=GSM_Number then
\r
637 SMSEditForm.ComboBox9.Items.Add(PhoneBackup.PhonePhonebook[i].Name);
\r
643 SMSEditForm.ComboBox9.Sorted:=true;
\r
646 procedure ReadCallerGroup();
\r
652 if callernum<6 then
\r
657 logo.type2:=GSM_CallerLogo;
\r
658 logo.number:=callernum-1;
\r
659 MainForm.Timer2.Enabled:=false;
\r
660 i:=GSM_GetBitmap(@logo);
\r
661 MainForm.Timer2.Enabled:=true;
\r
663 caller[callernum]:=logo;
\r
664 MainForm.ListView5.Items.Add;
\r
665 MainForm.ListView5.Items.Item[callernum-1].Caption:=inttostr(callernum);
\r
666 if logo.text[1]=chr(0) then
\r
673 4:name:='Colleagues';
\r
678 caller[callernum].text[i]:=chr(0);
\r
680 for i:=1 to strlen(name) do
\r
682 caller[callernum].text[i]:=name[i-1];
\r
685 MainForm.ListView5.Items.Item[callernum-1].Subitems.Add(caller[callernum].text);
\r
686 if logo.ringtone=16 then
\r
687 MainForm.ListView5.Items.Item[callernum-1].Subitems.Add('default')
\r
689 MainForm.ListView5.Items.Item[callernum-1].Subitems.Add(inttostr(logo.ringtone));
\r
690 if logo.enabled<>0 then
\r
691 MainForm.ListView5.Items.Item[callernum-1].Subitems.Add('logo enabled')
\r
693 MainForm.ListView5.Items.Item[callernum-1].Subitems.Add('logo disabled');
\r
694 end else callerinit:=true;
\r
695 callernum:=callernum+1;
\r
698 procedure ReadAllCallerGroups();
\r
700 if (GSM_GetModelFeature(FN_CALLERGROUPS)<>0) then
\r
702 if callerinit=false then
\r
704 MainForm.ListView5.Items.Clear;
\r
706 while callerinit=false do
\r
709 if callerinit then break;
\r
718 procedure UpdatePointBitmap(i,j:integer);
\r
720 if GSM_IsPointBitmap(@bitma,i,j)<>0 then
\r
722 MainForm.LogosImage.Canvas.Brush.Color := clBlack;
\r
723 MainForm.Image1.Canvas.Pen.Color := clBlack;
\r
726 MainForm.LogosImage.Canvas.Brush.Color := PreviewColor;//$0063cf63
\r
727 MainForm.Image1.Canvas.Pen.Color := PreviewColor;
\r
729 MainForm.LogosImage.Canvas.FillRect(Rect(i*pointsize+i,j*pointsize+j,(i+1)*pointsize+i,(j+1)*pointsize+j));
\r
730 MainForm.Image1.Canvas.Polyline([Point(28+i, 145+j), Point(29+i,146+j)]);
\r
733 procedure DrawBitmap();
\r
739 MainForm.StatusBar1.Panels[0].Text:=inttostr(bitma.width);
\r
740 xsize:=bitma.width;
\r
741 ysize:=bitma.heigh;
\r
743 MainForm.LogosImage.Canvas.Brush.Style := bsSolid;
\r
744 MainForm.LogosImage.Canvas.Brush.Color := clScrollBar;
\r
746 MainForm.LogosImage.Canvas.Pen.Mode := pmCopy;
\r
748 MainForm.LogosImage.Canvas.Pen.Color := clScrollBar;
\r
749 MainForm.LogosImage.Canvas.Rectangle(0,0,MainForm.LogosImage.Width,MainForm.LogosImage.Height);
\r
751 MainForm.LogosImage.Canvas.Pen.Color := PreviewColor;
\r
752 MainForm.LogosImage.Canvas.Rectangle(0,0,xsize*pointsize+xsize-1,ysize*pointsize+ysize-1);
\r
754 MainForm.LogosImage.Canvas.Brush.Color := PreviewColor;
\r
755 MainForm.LogosImage.Canvas.FloodFill(2,2,PreviewColor,fsBorder);
\r
757 MainForm.LogosImage.Canvas.Pen.Color := clBlack;
\r
759 for i:=0 to xsize do
\r
761 MainForm.LogosImage.Canvas.MoveTo(i*pointsize+i-1,0);
\r
762 MainForm.LogosImage.Canvas.LineTo(i*pointsize+i-1,ysize*pointsize+ysize-1);
\r
764 for i:=0 to ysize do
\r
766 MainForm.LogosImage.Canvas.MoveTo(0,i*pointsize+i-1);
\r
767 MainForm.LogosImage.Canvas.LineTo(xsize*pointsize+xsize-1,i*pointsize+i-1);
\r
770 MainForm.Image1.Picture.Assign(MainForm.Image2.Picture);
\r
771 MainForm.Image1.Canvas.Pen.Mode := pmCopy;
\r
772 for i:=0 to xsize-1 do
\r
774 for j:=0 to ysize-1 do
\r
776 UpdatePointBitmap(i,j);
\r
781 procedure TMainForm.Image1MouseDown(Sender: TObject; Button: TMouseButton;
\r
782 Shift: TShiftState; X, Y: Integer);
\r
788 if FindFirst(ExtractFilePath(Application.ExeName)+'\*bmp', faAnyFile, sr) = 0 then
\r
791 if (sr.Attr and faAnyFile) = sr.Attr then
\r
793 if sr.Size=57814 then
\r
797 Image2.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\'+sr.name);
\r
798 PreviewColor:=Image2.Canvas.Pixels[70,170];
\r
801 logofilename:=sr.name;
\r
803 0:if logofilename=sr.Name then filefound:=1;
\r
805 if filefound=2 then break;
\r
808 until FindNext(sr) <> 0;
\r
811 if filefound<>2 then
\r
813 if FindFirst(ExtractFilePath(Application.ExeName)+'\*bmp', faAnyFile, sr) = 0 then
\r
815 Image2.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\'+sr.name);
\r
817 logofilename:=sr.name;
\r
822 procedure LogosMousePos(x,y:integer);
\r
840 procedure TMainForm.ComboBox2Select(Sender: TObject);
\r
844 case ComboBox2.ItemIndex of
\r
845 0:bittype:=GSM_CallerLogo;
\r
847 bittype:=GSM_OperatorLogo;
\r
848 if GSMPhoneConnected then
\r
850 case GSM_GetModelFeature(FN_STARTUP) of
\r
851 F_STA62:bittype:=GSM_7110OperatorLogo;
\r
852 F_STA71:bittype:=GSM_7110OperatorLogo;
\r
856 2:bittype:=GSM_PictureImage;
\r
858 bittype:=GSM_StartupLogo;
\r
859 if GSMPhoneConnected then
\r
861 case GSM_GetModelFeature(FN_STARTUP) of
\r
862 F_STA62:bittype:=GSM_6210StartupLogo;
\r
863 F_STA71:bittype:=GSM_7110StartupLogo;
\r
868 bittype:=GSM_StartupLogo;
\r
869 if GSMPhoneConnected then
\r
871 case GSM_GetModelFeature(FN_STARTUP) of
\r
872 F_STA62:bittype:=GSM_6210StartupLogo;
\r
873 F_STA71:bittype:=GSM_7110StartupLogo;
\r
877 GSM_ResizeBitmap(@bitma,bittype);
\r
879 if (bitma.type2<>GSM_OperatorLogo) and
\r
880 (bitma.type2<>GSM_7110OperatorLogo) then
\r
881 Button8.Enabled:=false
\r
883 Button8.Enabled:=true;
\r
886 procedure TMainForm.LogosImageMouseMove(Sender: TObject; Shift: TShiftState;
\r
889 LogosMousePos(x,y);
\r
890 if x2<=bitma.width then
\r
892 if y2<=bitma.heigh then
\r
893 MainForm.StatusBar1.Panels[0].Text:=inttostr(x2)+','+inttostr(y2)
\r
895 MainForm.StatusBar1.Panels[0].Text:='';
\r
897 MainForm.StatusBar1.Panels[0].Text:='';
\r
900 procedure TMainForm.LogosTabSheetShow(Sender: TObject);
\r
905 procedure TMainForm.Button7Click(Sender: TObject);
\r
909 LogosRingForm.Label1.Caption:='What logo do you want to get ?';
\r
910 LogosRingForm.ComboBox3.Items.Clear;
\r
911 case bitma.type2 of
\r
914 LogosRingForm.ComboBox3.Visible:=true;
\r
915 ReadAllCallerGroups();
\r
918 LogosRingForm.ComboBox3.Items.Add(caller[i].text);
\r
920 LogosRingForm.ComboBox3.ItemIndex:=0;
\r
921 LogosRingForm.ShowModal();
\r
922 if (LogosRingForm.ComboBox3.Visible) then
\r
924 bitma.number:=LogosRingForm.ComboBox3.ItemIndex;
\r
925 MainForm.Timer2.Enabled:=false;
\r
926 GSM_GetBitmap(@bitma);
\r
927 MainForm.Timer2.Enabled:=true;
\r
933 LogosRingForm.ComboBox3.Visible:=true;
\r
936 LogosRingForm.ComboBox3.Items.Add('Location '+inttostr(i));
\r
938 LogosRingForm.ComboBox3.ItemIndex:=0;
\r
939 LogosRingForm.ShowModal();
\r
940 if (LogosRingForm.ComboBox3.Visible) then
\r
942 bitma.number:=LogosRingForm.ComboBox3.ItemIndex;
\r
943 MainForm.Timer2.Enabled:=false;
\r
944 GSM_GetBitmap(@bitma);
\r
945 MainForm.Timer2.Enabled:=true;
\r
951 MainForm.Timer2.Enabled:=false;
\r
952 GSM_GetBitmap(@bitma);
\r
953 MainForm.Timer2.Enabled:=true;
\r
959 procedure TMainForm.Button4Click(Sender: TObject);
\r
963 if OpenDialog1.Execute then
\r
965 if GSM_ReadBitmapFile(PChar(OpenDialog1.FileName),@bit)=0 then
\r
969 case bitma.type2 of
\r
970 GSM_CallerLogo :ComboBox2.ItemIndex:=0;
\r
971 GSM_OperatorLogo:ComboBox2.ItemIndex:=1;
\r
972 GSM_7110OperatorLogo:ComboBox2.ItemIndex:=1;
\r
973 GSM_PictureImage:ComboBox2.ItemIndex:=2;
\r
974 GSM_StartupLogo :ComboBox2.ItemIndex:=3;
\r
975 GSM_7110StartupLogo :ComboBox2.ItemIndex:=3;
\r
976 GSM_6210StartupLogo :ComboBox2.ItemIndex:=3;
\r
982 procedure TMainForm.LogosImageMouseDown(Sender: TObject; Button: TMouseButton;
\r
983 Shift: TShiftState; X, Y: Integer);
\r
985 LogosMousePos(x,y);
\r
986 if x2<=bitma.width then
\r
988 if y2<=bitma.heigh then
\r
990 if ssLeft in Shift then
\r
991 GSM_SetPointBitmap(@bitma,x2-1,y2-1)
\r
993 GSM_ClearPointBitmap(@bitma,x2-1,y2-1);
\r
995 UpdatePointBitmap(x2-1,y2-1);
\r
1000 procedure TMainForm.Button6Click(Sender: TObject);
\r
1003 Name,Data:array[1..255] of char;
\r
1004 oldbitma:GSM_Bitmap;
\r
1006 LogosRingForm.Label1.Caption:='Do you want to set logo ?';
\r
1007 LogosRingForm.ComboBox3.Items.Clear;
\r
1008 case bitma.type2 of
\r
1011 LogosRingForm.ComboBox3.Visible:=false;
\r
1012 LogosRingForm.ShowModal();
\r
1013 if (LogosRingForm.ComboBox3.Visible) then
\r
1014 GSM_SetBitmap(@bitma);
\r
1016 GSM_7110OperatorLogo:
\r
1018 LogosRingForm.ComboBox3.Visible:=true;
\r
1019 LogosRingForm.ComboBox3.Items.Add('Preview');
\r
1020 //preparing network names
\r
1024 GSM_GetNetworkData(i,@Name,@Data);
\r
1026 // conversion problems
\r
1027 Label14.Caption:=Name;
\r
1028 if strcomp(PChar(Label14.Caption),PChar('unknown'))=0 then break;
\r
1030 // conversion problems
\r
1031 Label14.Caption:=' - '+Label14.Caption;
\r
1032 for j:=6 downto 1 do
\r
1034 Label14.Caption:=Data[j]+Label14.Caption;
\r
1037 LogosRingForm.ComboBox3.Items.Add(Pchar(Label14.Caption));
\r
1040 //looking for current network
\r
1041 if GSMPhoneConnected then
\r
1043 // conversion problems
\r
1044 Label14.Caption:=MainForm.StatusBar1.Panels[1].Text;
\r
1045 Label14.Caption:=' - '+Label14.Caption;
\r
1046 for j:=6 downto 1 do
\r
1048 Label14.Caption:=GSMNetworkInfo.NetworkCode[j]+Label14.Caption;
\r
1054 if strcomp(pchar(LogosRingForm.ComboBox3.Items[i]),pchar(Label14.Caption))=0
\r
1058 LogosRingForm.ComboBox3.ItemIndex:=i;
\r
1060 LogosRingForm.ShowModal();
\r
1061 if (LogosRingForm.ComboBox3.Visible) then
\r
1063 if LogosRingForm.ComboBox3.ItemIndex=0 then
\r
1065 bitma.number:=255;
\r
1068 bitma.netcode[i]:=GSMNetworkInfo.NetworkCode[i];
\r
1070 bitma.netcode[7]:=chr(0);
\r
1073 GSM_GetNetworkData(LogosRingForm.ComboBox3.ItemIndex-1,@Name,@bitma.netcode);
\r
1075 GSM_SetBitmap(@bitma);
\r
1080 LogosRingForm.ComboBox3.Visible:=true;
\r
1081 LogosRingForm.ComboBox3.Items.Add('Preview');
\r
1082 //preparing network names
\r
1086 GSM_GetNetworkData(i,@Name,@Data);
\r
1088 // conversion problems
\r
1089 Label14.Caption:=Name;
\r
1090 if strcomp(PChar(Label14.Caption),PChar('unknown'))=0 then break;
\r
1092 // conversion problems
\r
1093 Label14.Caption:=' - '+Label14.Caption;
\r
1094 for j:=6 downto 1 do
\r
1096 Label14.Caption:=Data[j]+Label14.Caption;
\r
1099 LogosRingForm.ComboBox3.Items.Add(Pchar(Label14.Caption));
\r
1102 //looking for current network
\r
1103 if GSMPhoneConnected then
\r
1105 // conversion problems
\r
1106 Label14.Caption:=MainForm.StatusBar1.Panels[1].Text;
\r
1107 Label14.Caption:=' - '+Label14.Caption;
\r
1108 for j:=6 downto 1 do
\r
1110 Label14.Caption:=GSMNetworkInfo.NetworkCode[j]+Label14.Caption;
\r
1116 if strcomp(pchar(LogosRingForm.ComboBox3.Items[i]),pchar(Label14.Caption))=0
\r
1120 LogosRingForm.ComboBox3.ItemIndex:=i;
\r
1122 LogosRingForm.ShowModal();
\r
1123 if (LogosRingForm.ComboBox3.Visible) then
\r
1125 if LogosRingForm.ComboBox3.ItemIndex=0 then
\r
1127 bitma.number:=255;
\r
1130 bitma.netcode[i]:=GSMNetworkInfo.NetworkCode[i];
\r
1132 bitma.netcode[7]:=chr(0);
\r
1135 GSM_GetNetworkData(LogosRingForm.ComboBox3.ItemIndex-1,@Name,@bitma.netcode);
\r
1137 GSM_SetBitmap(@bitma);
\r
1142 LogosRingForm.ComboBox3.Visible:=true;
\r
1145 LogosRingForm.ComboBox3.Items.Add('Location '+inttostr(i));
\r
1147 LogosRingForm.ComboBox3.ItemIndex:=0;
\r
1148 LogosRingForm.ShowModal();
\r
1149 if (LogosRingForm.ComboBox3.Visible) then
\r
1151 if LogosRingForm.ComboBox3.ItemIndex=0 then
\r
1153 bitma.number:=255;
\r
1156 bitma.number:=LogosRingForm.ComboBox3.ItemIndex;
\r
1158 GSM_SetBitmap(@bitma);
\r
1163 LogosRingForm.ComboBox3.Visible:=true;
\r
1164 LogosRingForm.ComboBox3.Items.Add('Preview');
\r
1165 ReadAllCallerGroups();
\r
1168 LogosRingForm.ComboBox3.Items.Add(caller[i].text);
\r
1170 LogosRingForm.ComboBox3.ItemIndex:=1;
\r
1171 LogosRingForm.ShowModal();
\r
1172 if (LogosRingForm.ComboBox3.Visible) then
\r
1174 if LogosRingForm.ComboBox3.ItemIndex=0 then
\r
1176 bitma.number:=255;
\r
1179 bitma.number:=LogosRingForm.ComboBox3.ItemIndex-1;
\r
1180 //we need to get old caller group datas
\r
1181 oldbitma.type2:=bitma.type2;
\r
1182 oldbitma.number:=bitma.number;
\r
1183 GSM_GetBitmap(@oldbitma);
\r
1184 bitma.ringtone:=oldbitma.ringtone;
\r
1185 bitma.text:=oldbitma.text;
\r
1187 GSM_SetBitmap(@bitma);
\r
1193 procedure TMainForm.Button5Click(Sender: TObject);
\r
1195 if SaveDialog1.Execute then
\r
1197 GSM_SaveBitmapFile(PChar(SaveDialog1.FileName),@bitma);
\r
1201 procedure TMainForm.Button8Click(Sender: TObject);
\r
1203 bitma2:GSM_Bitmap;
\r
1205 if MessageDlg('Restore logo to default ?',
\r
1206 mtConfirmation, [mbYes, mbNo], 0) = mrYes then
\r
1209 bitma2.netcode[1]:='0';
\r
1210 bitma2.netcode[2]:='0';
\r
1211 bitma2.netcode[3]:='0';
\r
1212 bitma2.netcode[4]:=' ';
\r
1213 bitma2.netcode[5]:='0';
\r
1214 bitma2.netcode[6]:='0';
\r
1215 bitma2.netcode[7]:=chr(0);
\r
1216 GSM_ClearBitmap(@bitma2);
\r
1217 GSM_SetBitmap(@bitma2);
\r
1221 procedure TMainForm.Button12Click(Sender: TObject);
\r
1223 GSM_ClearBitmap(@bitma);
\r
1227 //MainForm main functions
\r
1228 procedure TMainForm.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
\r
1229 Shift: TShiftState; X, Y: Integer);
\r
1231 MainForm.TreeView1.FullExpand;
\r
1232 case MainForm.TreeView1.Selected.ImageIndex of
\r
1233 0: MainForm.PageControl1.ActivePage:=PhoneTabSheet;
\r
1234 1: MainForm.PageControl1.ActivePage:=CalendarTabSheet;
\r
1235 2: MainForm.PageControl1.ActivePage:=DivertTabSheet;
\r
1236 3: MainForm.PageControl1.ActivePage:=CallerTabSheet;
\r
1237 4: MainForm.PageControl1.ActivePage:=LogosTabSheet;
\r
1238 5: MainForm.PageControl1.ActivePage:=NetmonitorTabSheet;
\r
1239 6: MainForm.PageControl1.ActivePage:=PhonebookTabSheet;
\r
1240 7: MainForm.PageControl1.ActivePage:=ProfileTabSheet;
\r
1241 8: MainForm.PageControl1.ActivePage:=RingtonesTabSheet;
\r
1242 9: MainForm.PageControl1.ActivePage:=SMSTabSheet;
\r
1243 10: MainForm.PageControl1.ActivePage:=SMSCTabSheet;
\r
1244 11: MainForm.PageControl1.ActivePage:=SpeedTabSheet;
\r
1245 12: MainForm.PageControl1.ActivePage:=WAPBookTabSheet;
\r
1246 13: MainForm.PageControl1.ActivePage:=WAPSettTabSheet;
\r
1247 14: MainForm.PageControl1.ActivePage:=PCOfflineTabSheet;
\r
1248 15: MainForm.PageControl1.ActivePage:=PCCalendarTabSheet;
\r
1249 16: MainForm.PageControl1.ActivePage:=PCPBKTabSheet;
\r
1250 17: MainForm.PageControl1.ActivePage:=PCSMSTabSheet;
\r
1254 procedure TMainForm.Configuration1Click(Sender: TObject);
\r
1256 MainForm.PageControl1.ActivePage:=ConfigTabSheet;
\r
1259 procedure TMainForm.TreeView1KeyUp(Sender: TObject; var Key: Word;
\r
1260 Shift: TShiftState);
\r
1262 MainForm.TreeView1.FullExpand;
\r
1265 procedure TMainForm.FormCreate(Sender: TObject);
\r
1267 MainForm.PhonebookTabSheet.TabVisible:=false;
\r
1268 MainForm.NetmonitorTabSheet.TabVisible:=false;
\r
1269 MainForm.LogosTabSheet.TabVisible:=false;
\r
1270 MainForm.PhoneTabSheet.TabVisible:=false;
\r
1271 MainForm.RingtonesTabSheet.TabVisible:=false;
\r
1272 MainForm.SMSTabSheet.TabVisible:=false;
\r
1273 MainForm.SMSCTabSheet.TabVisible:=false;
\r
1274 MainForm.SpeedTabSheet.TabVisible:=false;
\r
1275 MainForm.CalendarTabSheet.TabVisible:=false;
\r
1276 MainForm.CallerTabSheet.TabVisible:=false;
\r
1277 MainForm.ProfileTabSheet.TabVisible:=false;
\r
1278 MainForm.WAPBookTabSheet.TabVisible:=false;
\r
1279 MainForm.WAPSettTabSheet.TabVisible:=false;
\r
1280 MainForm.DivertTabSheet.TabVisible:=false;
\r
1281 MainForm.ConfigTabSheet.TabVisible:=false;
\r
1282 MainForm.AboutTabSheet.TabVisible:=false;
\r
1283 MainForm.PCSMSTabSheet.TabVisible:=false;
\r
1284 MainForm.PCCalendarTabSheet.TabVisible:=false;
\r
1285 MainForm.PCOfflineTabSheet.TabVisible:=false;
\r
1286 MainForm.PCPBKTabSheet.TabVisible:=false;
\r
1287 MainForm.PageControl1.ActivePage:=PhoneTabSheet;
\r
1289 PreviewColor:=Image2.Canvas.Pixels[70,170];
\r
1294 bitma.type2:=GSM_OperatorLogo;
\r
1295 GSM_ClearBitmap(@bitma);
\r
1298 MainForm.LogosImage.Width:=96*pointsize+96-1;
\r
1299 MainForm.LogosImage.Height:=65*pointsize+65-1;
\r
1303 MainForm.Width:=660;
\r
1304 MainForm.Height:=470;
\r
1306 callerinit:=false;
\r
1310 smsofflinenumber:=0;
\r
1311 calendarofflinenumber:=0;
\r
1312 pbkofflinenumber:=0;
\r
1314 readcalendar:=false;
\r
1317 procedure TMainForm.Timer1Timer(Sender: TObject);
\r
1319 NetworkName:array[1..255] of char;
\r
1321 if GSMPhoneConnected then
\r
1323 // Here we should enable interface
\r
1324 GSM_GetNetworkName(@NetworkName,@GSMNetworkInfo.NetworkCode);
\r
1325 MainForm.StatusBar1.Panels[1].Text:=NetworkName;
\r
1326 if PhonebookThread=nil then
\r
1327 ComboBox1.Enabled:=true;
\r
1329 SaveBackupTofile1.Enabled:=true;
\r
1330 Restorebackupfromfile1.Enabled:=true;
\r
1332 ListView1.Enabled:=true;
\r
1333 NetmonGroupBox.Enabled:=true;
\r
1334 SpinEdit1.Enabled:=true;
\r
1335 Button2.Enabled:=true;
\r
1336 Button3.Enabled:=true;
\r
1337 Button6.Enabled:=true;
\r
1338 Button7.Enabled:=true;
\r
1339 Button9.Enabled:=true;
\r
1340 Button11.Enabled:=true;
\r
1343 Button16.Enabled:=true;
\r
1344 if Edit1.Text<>'' then Edit1.Enabled:=true;
\r
1345 if Edit2.Text<>'' then Edit2.Enabled:=true;
\r
1346 Button22.Enabled:=true;
\r
1348 If MainForm.PageControl1.ActivePage=MainForm.NetmonitorTabSheet then
\r
1349 NetmonitorTabSheetShow(Sender);
\r
1351 If MainForm.PageControl1.ActivePage=MainForm.PhoneTabSheet then
\r
1353 if not phoneinfo then
\r
1354 PhoneTabSheetShow(Sender);
\r
1357 If MainForm.PageControl1.ActivePage=MainForm.SpeedTabSheet then
\r
1359 if speednum<>10 then
\r
1360 SpeedTabSheetShow(Sender);
\r
1363 if (bitma.type2<>GSM_OperatorLogo) and
\r
1364 (bitma.type2<>GSM_7110OperatorLogo) then
\r
1365 Button8.Enabled:=false
\r
1367 Button8.Enabled:=true;
\r
1369 if Edit2.Text<>'' then
\r
1370 Button14.Enabled:=true
\r
1372 Button14.Enabled:=false;
\r
1374 if Edit1.Text<>'' then
\r
1376 Button2.Enabled:=true;
\r
1377 Button17.Enabled:=true;
\r
1378 if PlayRingtoneThread<>nil then
\r
1380 Button3.Enabled:=false;
\r
1381 Button16.Enabled:=true;
\r
1385 Button3.Enabled:=true;
\r
1386 Button16.Enabled:=false;
\r
1390 Button2.Enabled:=false;
\r
1391 Button17.Enabled:=false;
\r
1392 Button16.Enabled:=false;
\r
1393 Button3.Enabled:=false;
\r
1396 Button18.Enabled:=false;
\r
1397 if bitma.type2=GSM_PictureImage then
\r
1398 Button18.Enabled:=true;
\r
1399 if (bitma.type2=GSM_OperatorLogo) or
\r
1400 (bitma.type2=GSM_7110OperatorLogo) then
\r
1401 Button18.Enabled:=true;
\r
1402 if bitma.type2=GSM_CallerLogo then
\r
1403 Button18.Enabled:=true;
\r
1406 WAPSettTabSheet.Enabled:=true;
\r
1407 if GSM_GetModelFeature(FN_WAP)=0 then
\r
1409 Button23.Enabled:=false;
\r
1410 GroupBox19.Enabled:=false;
\r
1411 groupbox19.Ctl3D:=false;
\r
1412 ComboBox7.enabled:=false;
\r
1413 ComboBox8.enabled:=false;
\r
1414 ComboBox9.enabled:=false;
\r
1415 ComboBox10.enabled:=false;
\r
1416 ComboBox11.enabled:=false;
\r
1417 ComboBox12.enabled:=false;
\r
1418 ComboBox13.enabled:=false;
\r
1419 ComboBox14.enabled:=false;
\r
1420 Edit6.Enabled:=false;
\r
1421 Edit8.Enabled:=false;
\r
1422 Edit9.Enabled:=false;
\r
1423 Edit10.Enabled:=false;
\r
1424 Edit11.Enabled:=false;
\r
1425 Edit12.Enabled:=false;
\r
1426 Edit13.Enabled:=false;
\r
1427 Edit14.Enabled:=false;
\r
1428 Edit15.Enabled:=false;
\r
1431 GroupBox19.Enabled:=true;
\r
1432 groupbox19.Ctl3D:=true;
\r
1433 ComboBox7.enabled:=true;
\r
1434 ComboBox8.enabled:=true;
\r
1435 ComboBox9.enabled:=true;
\r
1436 ComboBox10.enabled:=true;
\r
1437 ComboBox11.enabled:=true;
\r
1438 ComboBox12.enabled:=true;
\r
1439 ComboBox13.enabled:=true;
\r
1440 ComboBox14.enabled:=true;
\r
1441 Edit6.Enabled:=true;
\r
1442 Edit8.Enabled:=true;
\r
1443 Edit9.Enabled:=true;
\r
1444 Edit10.Enabled:=true;
\r
1445 Edit11.Enabled:=true;
\r
1446 Edit12.Enabled:=true;
\r
1447 Edit13.Enabled:=true;
\r
1448 Edit14.Enabled:=true;
\r
1449 Edit15.Enabled:=true;
\r
1450 Button23.Enabled:=false;
\r
1451 if ComboBox7.ItemIndex<>0 then Button23.Enabled:=true;
\r
1454 button19.Enabled:=true;
\r
1455 button20.Enabled:=true;
\r
1458 // Here we should disabled interface
\r
1459 MainForm.StatusBar1.Panels[1].Text:='Not connected';
\r
1461 SaveBackupTofile1.Enabled:=false;
\r
1462 Restorebackupfromfile1.Enabled:=false;
\r
1464 callerinit:=false;
\r
1466 MainForm.ComboBox1.Enabled:=false;
\r
1467 MainForm.ListView1.Enabled:=false;
\r
1468 MainForm.NetmonGroupBox.Enabled:=false;
\r
1469 MainForm.SpinEdit1.Enabled:=false;
\r
1470 MainForm.Button2.Enabled:=false;
\r
1471 MainForm.Button3.Enabled:=false;
\r
1472 MainForm.Button6.Enabled:=false;
\r
1473 MainForm.Button7.Enabled:=false;
\r
1474 MainForm.Button8.Enabled:=false;
\r
1475 MainForm.Button9.Enabled:=false;
\r
1476 MainForm.Button11.Enabled:=false;
\r
1477 Button18.Enabled:=false;
\r
1480 Button16.Enabled:=false;
\r
1481 Button14.Enabled:=false;
\r
1482 Button17.Enabled:=false;
\r
1483 Edit1.Enabled:=false;
\r
1484 Edit2.Enabled:=false;
\r
1485 Button22.Enabled:=false;
\r
1487 MainForm.NetmonitorTabSheetHide(Sender);
\r
1488 MainForm.PhonebookTabSheetHide(Sender);
\r
1489 MainForm.SpeedTabSheetHide(Sender);
\r
1492 ComboBox7.enabled:=false;
\r
1493 ComboBox8.enabled:=false;
\r
1494 ComboBox9.enabled:=false;
\r
1495 ComboBox10.enabled:=false;
\r
1496 ComboBox11.enabled:=false;
\r
1497 ComboBox12.enabled:=false;
\r
1498 ComboBox13.enabled:=false;
\r
1499 ComboBox14.enabled:=false;
\r
1500 Edit6.Enabled:=false;
\r
1501 Edit8.Enabled:=false;
\r
1502 Edit9.Enabled:=false;
\r
1503 Edit10.Enabled:=false;
\r
1504 Edit11.Enabled:=false;
\r
1505 Edit12.Enabled:=false;
\r
1506 Edit13.Enabled:=false;
\r
1507 Edit14.Enabled:=false;
\r
1508 Edit15.Enabled:=false;
\r
1509 Button23.Enabled:=false;
\r
1511 button19.Enabled:=false;
\r
1512 button20.Enabled:=false;
\r
1518 procedure TMainForm.Quit1Click(Sender: TObject);
\r
1520 if GSMPhoneConnected then GSM_Terminate();
\r
1525 procedure TMainForm.FormResize(Sender: TObject);
\r
1527 MainForm.StatusBar1.Panels[0].Width:=MainForm.Width-150;
\r
1530 procedure TMainForm.About1Click(Sender: TObject);
\r
1532 AboutTabSheet.Show;
\r
1535 //netmonitor sheet functions
\r
1537 procedure TNetmonThread.Execute;
\r
1539 netmon:array[1..255] of char;
\r
1541 while not Terminated do
\r
1543 GSM_Netmonitor(netmonnum,@netmon);
\r
1544 MainForm.NetmonLabel.Caption:=netmon;
\r
1545 MainForm.NetmonGroupBox.Caption:=' Screen ' + IntToStr(netmonnum) + ' ';
\r
1549 procedure TMainForm.NetmonitorTabSheetShow(Sender: TObject);
\r
1551 if NetmonThread<>nil then
\r
1553 if GSMPhoneConnected then
\r
1555 MainForm.Timer2.Enabled:=false;
\r
1556 NetmonThread:=TNetmonThread.Create(false);
\r
1561 procedure TMainForm.NetmonitorTabSheetHide(Sender: TObject);
\r
1563 if (NetmonThread<>nil) then
\r
1565 NetmonThread.Terminate();
\r
1566 MainForm.Timer2.Enabled:=true;
\r
1567 NetmonThread:=nil;
\r
1571 procedure TMainForm.SpinEdit1Change(Sender: TObject);
\r
1573 netmonnum:=SpinEdit1.Value;
\r
1576 procedure TMainForm.Button11Click(Sender: TObject);
\r
1578 netmon:array[1..255] of char;
\r
1580 NetmonForm.ShowModal;
\r
1581 if NetmonForm.RadioGroup1.ItemIndex<>-1 then
\r
1583 GSM_Netmonitor(241+NetmonForm.RadioGroup1.ItemIndex,@netmon);
\r
1587 //phonebook sheet functions
\r
1589 procedure EndPhonebookThread;
\r
1591 if (PhonebookThread<>nil) then
\r
1593 PhonebookThread.Terminate();
\r
1594 MainForm.Timer2.Enabled:=true;
\r
1595 PhonebookThread:=nil;
\r
1596 MainForm.ComboBox1.Enabled:=true;
\r
1600 procedure AddPBKEntry(MyListView:TListView;x:GSM_PhonebookEntry;number:integer);
\r
1603 MyListView.Items.Item[number].Subitems.Add(x.Name);
\r
1605 if (x.Number[1]<>chr(0)) then
\r
1606 MyListView.Items.Item[number].Subitems.Add(x.Number)
\r
1608 for j:=1 to x.SubEntriesCount do
\r
1610 if x.SubEntries[j].EntryType=GSM_Number then
\r
1612 MyListView.Items.Item[number].Subitems.Add(x.subentries[j].Number);
\r
1619 0:MyListView.Items.Item[number].Subitems.Add(caller[x.Group+1].text);
\r
1620 1:MyListView.Items.Item[number].Subitems.Add(caller[x.Group+1].text);
\r
1621 2:MyListView.Items.Item[number].Subitems.Add(caller[x.Group+1].text);
\r
1622 3:MyListView.Items.Item[number].Subitems.Add(caller[x.Group+1].text);
\r
1623 4:MyListView.Items.Item[number].Subitems.Add(caller[x.Group+1].text);
\r
1625 MyListView.Items.Item[number].Subitems.Add('not set');
\r
1628 for j:=1 to x.SubEntriesCount do
\r
1630 if x.SubEntries[j].EntryType=GSM_Date then
\r
1632 MyListView.Items.Item[number].Subitems.Add(
\r
1633 DayOfweek2(x.SubEntries[j].Date.Day,x.SubEntries[j].Date.Month,x.SubEntries[j].Date.Year)+' '+
\r
1634 inttostr2(x.SubEntries[j].Date.Day,2)+'-'+inttostr2(x.SubEntries[j].Date.Month,2)+'-'+
\r
1635 inttostr(x.SubEntries[j].Date.Year));
\r
1636 MyListView.Items.Item[number].Subitems.Add(
\r
1637 inttostr2(x.SubEntries[j].Date.Hour,2)+':'+inttostr2(x.SubEntries[j].Date.Minute,2)+':'+
\r
1638 inttostr2(x.SubEntries[j].Date.Second,2));
\r
1644 procedure TPhonebookThread.Execute;
\r
1646 x:GSM_PhonebookEntry;
\r
1648 while not Terminated do
\r
1650 if (phonebookcur<phonebookstatus.Used+phonebookstatus.Free) then
\r
1652 phonebookcur:=phonebookcur+1;
\r
1653 MainForm.StatusBar1.Panels[0].Text:='Reading '+inttostr(phonebookcur)+'/'+inttostr(phonebookstatus.Free+phonebookstatus.Used);
\r
1654 MainForm.ListView1.Items.Add;
\r
1655 MainForm.ListView1.Items.Item[phonebookcur-1].Caption:=inttostr(phonebookcur);
\r
1656 if (phonebookfound<phonebookstatus.Used) then
\r
1658 x.MemoryType:=phonebookstatus.MemoryType;
\r
1659 x.Location:=phonebookcur;
\r
1660 if (x.MemoryType=GMT_ON) then x.Location:=x.Location-1;
\r
1661 if (x.MemoryType=GMT_DC) then x.Location:=x.Location-1;
\r
1662 if (x.MemoryType=GMT_MC) then x.Location:=x.Location-1;
\r
1663 if (x.MemoryType=GMT_RC) then x.Location:=x.Location-1;
\r
1664 if GSM_GetMemoryLocation(@x)=0 then
\r
1667 if (x.MemoryType=GMT_ME) then
\r
1669 PhoneBackup.PhonePhonebookUsed:=PhoneBackup.PhonePhonebookUsed+1;
\r
1672 PBKOfflineNumber:=PBKOfflineNumber+1;
\r
1673 PhoneBackup.PhonePhonebook[PBKOfflineNumber]:=x;
\r
1675 if (x.MemoryType=GMT_SM) then
\r
1677 PhoneBackup.SIMPhonebookUsed:=PhoneBackup.SIMPhonebookUsed+1;
\r
1678 PhoneBackup.SIMPhonebook[PhoneBackup.SIMPhonebookUsed]:=x;
\r
1680 AddPBKEntry(MainForm.ListView1,x,phonebookcur-1);
\r
1681 if (x.Name[1]<>chr(0)) then phonebookfound:=phonebookfound+1;
\r
1686 MainForm.StatusBar1.Panels[0].Text:=inttostr(phonebookstatus.Used)+'/'+inttostr(phonebookstatus.Free+phonebookstatus.Used)+' entries';
\r
1687 EndPhonebookThread;
\r
1692 procedure TMainForm.PhonebookTabSheetShow(Sender: TObject);
\r
1694 if GSMPhoneConnected then ComboBox1.Enabled:=true;
\r
1697 procedure TMainForm.Button10Click(Sender: TObject);
\r
1700 FileHandle:integer;
\r
1702 if SaveDialog1.Execute then
\r
1704 FileHandle := FileCreate(SaveDialog1.FileName);
\r
1705 for i:=1 to ListView1.Items.Count do
\r
1707 FileWrite(FileHandle,ListView1.Items.Item[i].Caption, SizeOf(ListView1.Items.Item[i].Caption));
\r
1709 FileClose(FileHandle);
\r
1713 procedure TMainForm.ComboBox1Change(Sender: TObject);
\r
1715 if (ComboBox1.ItemIndex<>0) then
\r
1717 case ComboBox1.ItemIndex of
\r
1718 1:phonebookstatus.MemoryType:=GMT_DC;
\r
1719 2:phonebookstatus.MemoryType:=GMT_MC;
\r
1720 3:phonebookstatus.MemoryType:=GMT_ON;
\r
1721 4:phonebookstatus.MemoryType:=GMT_ME;
\r
1722 5:phonebookstatus.MemoryType:=GMT_SM;
\r
1723 6:phonebookstatus.MemoryType:=GMT_RC;
\r
1725 if GSM_GetMemoryStatus(@phonebookstatus)<>0 then
\r
1727 phonebookstatus.Free:=0;
\r
1728 phonebookstatus.Used:=30;
\r
1731 phonebookfound:=0;
\r
1733 PBKOfflineNumber:=0;
\r
1734 PhoneBackup.PhonePhonebookUsed:=0;
\r
1735 PhoneBackup.SIMPhonebookUsed:=0;
\r
1736 if (phonebookstatus.MemoryType=GMT_ME) then
\r
1738 PhoneBackup.PhonePhonebookSize:=phonebookstatus.Free+phonebookstatus.Used;
\r
1740 if (phonebookstatus.MemoryType=GMT_SM) then
\r
1742 PhoneBackup.SIMPhonebookSize:=phonebookstatus.Free+phonebookstatus.Used;
\r
1745 ComboBox1.Enabled:=false;
\r
1747 ReadAllCallerGroups();
\r
1749 MainForm.ListView1.Items.Clear;
\r
1751 MainForm.Timer2.Enabled:=false;
\r
1752 PhonebookThread:=TPhonebookThread.Create(false);
\r
1756 procedure TMainForm.PhonebookTabSheetHide(Sender: TObject);
\r
1758 EndPhonebookThread;
\r
1762 procedure TMainForm.Button1Click(Sender: TObject);
\r
1764 ring:GSM_Ringtone;
\r
1766 if OpenDialog1.Execute then
\r
1768 if GSM_ReadRingtoneFile(PChar(OpenDialog1.FileName),@ring)=0 then
\r
1770 Edit1.Text:=ring.Name;
\r
1776 procedure EndPlayRingtoneThread;
\r
1778 if (PlayRingtoneThread<>nil) then
\r
1780 PlayRingtoneThread.Terminate();
\r
1781 GSM_PlayTone(255*255,0);
\r
1782 MainForm.Timer2.Enabled:=true;
\r
1783 PlayRingtoneThread:=nil;
\r
1787 procedure TPlayRingtoneThread.Execute;
\r
1789 while not Terminated do
\r
1791 GSM_PlayNote(rington.notes[ringindex]);
\r
1792 ringindex:=ringindex+1;
\r
1793 if ringindex>rington.NrNotes then
\r
1794 EndPlayRingtoneThread;
\r
1798 procedure TMainForm.Button16Click(Sender: TObject);
\r
1800 EndPlayRingtoneThread;
\r
1803 procedure TMainForm.Button3Click(Sender: TObject);
\r
1806 MainForm.Timer2.Enabled:=false;
\r
1807 PlayRingtoneThread:=TPlayRingtoneThread.Create(false);
\r
1810 procedure TMainForm.Button2Click(Sender: TObject);
\r
1813 mybinring:GSM_BinRingtone;
\r
1814 myring:GSM_Ringtone;
\r
1816 LogosRingForm.Label1.Caption:='Do you want to set ringtone ?';
\r
1817 LogosRingForm.ComboBox3.Visible:=true;
\r
1818 LogosRingForm.ComboBox3.Items.Clear();
\r
1819 LogosRingForm.ComboBox3.Items.Add('Preview');
\r
1820 MainForm.Timer2.Enabled:=false;
\r
1821 for i:=1 to GSM_GetModelFeature(FN_RINGNUMBER) do
\r
1823 mybinring.location:=i;
\r
1824 if (GSM_GetPhoneRingtone(@mybinring,@myring)=0) then
\r
1826 if GSM_GetModelFeature(FN_RINGTONES)=F_RING_SM then
\r
1828 LogosRingForm.ComboBox3.Items.Add(myring.name);
\r
1831 LogosRingForm.ComboBox3.Items.Add(mybinring.name);
\r
1834 LogosRingForm.ComboBox3.Items.Add('Location '+inttostr(i));
\r
1836 MainForm.Timer2.Enabled:=true;
\r
1837 LogosRingForm.ComboBox3.ItemIndex:=1;
\r
1838 LogosRingForm.ShowModal;
\r
1839 if LogosRingForm.ComboBox3.Visible then
\r
1841 if LogosRingForm.ComboBox3.ItemIndex=0 then
\r
1842 rington.location:=255
\r
1844 rington.location:=LogosRingForm.ComboBox3.ItemIndex;
\r
1845 MainForm.Timer2.Enabled:=false;
\r
1846 GSM_SetRingtone(@rington,@i);
\r
1847 MainForm.Timer2.Enabled:=true;
\r
1852 procedure TMainForm.PhoneTabSheetShow(Sender: TObject);
\r
1854 xxxx,xxx:array[1..256] of char;
\r
1855 time:GSM_DateTime;
\r
1856 siml:GSM_AllSimlocks;
\r
1858 code:GSM_SecurityCode;
\r
1860 if GSMPhoneConnected then
\r
1862 GSM_GetRevision(@xxx);
\r
1863 Label9.Caption:=xxx;
\r
1864 GSM_GetImei(@xxx);
\r
1865 Label7.Caption:=xxx;
\r
1866 GSM_GetModel(@xxx);
\r
1867 GSM_GetModelNumber(@xxx,@xxxx);
\r
1868 Label5.Caption:=xxx;
\r
1869 Label5.Caption:=Label5.Caption+' ('+xxxx;
\r
1870 Label5.Caption:=Label5.Caption+')';
\r
1871 GSM_GetAlarm(1,@time);
\r
1872 if time.isSet<>0 then
\r
1873 CheckBox1.Checked:=true
\r
1875 CheckBox1.Checked:=false;
\r
1876 DateTimePicker1.Time:=EncodeTime(time.Hour,time.Minute,0,0);
\r
1877 ListView8.Items.Clear();
\r
1878 GSM_GetSimlock(@siml);
\r
1881 MainForm.ListView8.Items.Add;
\r
1882 MainForm.ListView8.Items.Item[i-1].Caption:=inttostr(i);
\r
1883 MainForm.ListView8.Items.Item[i-1].Subitems.Add(siml.simlocks[i].data);
\r
1884 if siml.simlocks[i].enabled=0 then
\r
1885 MainForm.ListView8.Items.Item[i-1].Subitems.Add('disabled')
\r
1888 if siml.simlocks[i].factory<>0 then
\r
1889 MainForm.ListView8.Items.Item[i-1].Subitems.Add('factory')
\r
1891 MainForm.ListView8.Items.Item[i-1].Subitems.Add('user');
\r
1893 MainForm.ListView8.Items.Item[i-1].Subitems.Add(inttostr(siml.simlocks[i].counter));
\r
1895 code.Type2:=GSCT_SecurityCode;
\r
1896 GSM_GetSecurityCode(@code);
\r
1897 Label18.Caption:=code.Code;
\r
1903 procedure TMainForm.Button9Click(Sender: TObject);
\r
1905 GSM_Reset(GSM_SoftReset);
\r
1909 procedure TMainForm.SpeedTabSheetShow(Sender: TObject);
\r
1911 if SpeedThread<>nil then
\r
1913 if GSMPhoneConnected then
\r
1915 MainForm.ListView3.Items.Clear;
\r
1917 MainForm.Timer2.Enabled:=false;
\r
1918 SpeedThread:=TSpeedThread.Create(false);
\r
1923 procedure EndSpeedThread();
\r
1925 if (SpeedThread<>nil) then
\r
1927 SpeedThread.Terminate();
\r
1928 MainForm.Timer2.Enabled:=true;
\r
1933 procedure TMainForm.SpeedTabSheetHide(Sender: TObject);
\r
1938 procedure TSpeedThread.Execute;
\r
1940 entry1:GSM_SpeedDial;
\r
1941 entry2:GSM_PhonebookEntry;
\r
1944 while not Terminated do
\r
1946 entry1.Number:=speednum;
\r
1947 if GSM_GetSpeedDial(@entry1)=0 then
\r
1949 entry2.Location:=entry1.Location;
\r
1950 entry2.MemoryType:=entry1.MemoryType;
\r
1951 if entry2.Location=0 then
\r
1952 entry2.Location:=speednum;
\r
1953 GSM_GetMemoryLocation(@entry2);
\r
1954 MainForm.ListView3.Items.Add;
\r
1955 MainForm.ListView3.Items.Item[speednum-1].Caption:=inttostr(speednum);
\r
1956 MainForm.ListView3.Items.Item[speednum-1].Subitems.Add(entry2.Name);
\r
1957 if entry2.Number[1]<>chr(0) then
\r
1958 MainForm.ListView3.Items.Item[speednum-1].Subitems.Add(entry2.Number)
\r
1960 for i:=1 to entry2.SubEntriesCount do
\r
1962 if entry2.SubEntries[i].EntryType=GSM_Number then
\r
1964 MainForm.ListView3.Items.Item[speednum-1].Subitems.Add(entry2.SubEntries[i].Number);
\r
1969 speednum:=speednum+1;
\r
1971 if speednum=10 then
\r
1977 procedure EndCalendarThread();
\r
1979 if (CalendarThread<>nil) then
\r
1981 CalendarThread.Terminate();
\r
1982 MainForm.Timer2.Enabled:=true;
\r
1983 CalendarThread:=nil;
\r
1987 procedure AddCalendarNote(note:GSM_CalendarNote;myview:TListView);
\r
1993 myview.Items.Item[myview.Items.Count-1].Caption:=inttostr(myview.Items.Count);
\r
1994 case note.Type2 of
\r
1995 GCN_Reminder:myview.Items.Item[myview.Items.Count-1].Subitems.Add('Reminder');
\r
1996 GCN_Call :myview.Items.Item[myview.Items.Count-1].Subitems.Add('Call');
\r
1997 GCN_Meeting :myview.Items.Item[myview.Items.Count-1].Subitems.Add('Meeting');
\r
1998 GCN_Birthday:myview.Items.Item[myview.Items.Count-1].Subitems.Add('Birthday');
\r
2000 myview.Items.Item[myview.Items.Count-1].Subitems.Add(note.Text);
\r
2003 if note.Type2=GCN_Call then
\r
2005 MainForm.Label14.Caption:=note.Phone;
\r
2006 for z:=1 to PBKOfflineNumber do
\r
2008 if (PhoneBackup.PhonePhonebook[z].Number[1]<>chr(0)) then
\r
2010 MainForm.Label16.Caption:=PhoneBackup.PhonePhonebook[z].Number;
\r
2011 if (MainForm.Label14.Caption=MainForm.Label16.Caption) then
\r
2013 myview.Items.Item[myview.Items.Count-1].Subitems.Add(PhoneBackup.PhonePhonebook[z].Name);
\r
2018 for j:=1 to PhoneBackup.PhonePhonebook[z].SubEntriesCount do
\r
2020 MainForm.Label16.Caption:=PhoneBackup.PhonePhonebook[z].SubEntries[j].Number;
\r
2021 if (MainForm.Label14.Caption=MainForm.Label16.Caption) then
\r
2023 myview.Items.Item[myview.Items.Count-1].Subitems.Add(PhoneBackup.PhonePhonebook[z].Name);
\r
2031 myview.Items.Item[myview.Items.Count-1].Subitems.Add(note.Phone);
\r
2033 myview.Items.Item[myview.Items.Count-1].Subitems.Add(DayOfweek2(note.Time.Day,note.Time.Month,note.Time.Year)+' '+inttostr2(note.Time.Day,2)+'-'+inttostr2(note.Time.Month,2)+'-'+inttostr(note.Time.Year)+' '+inttostr2(note.Time.Hour,2)+':'+inttostr2(note.Time.Minute,2)+':'+inttostr2(note.Time.Second,2));
\r
2034 if note.Alarm.Year<>0 then
\r
2035 myview.Items.Item[myview.Items.Count-1].Subitems.Add(DayOfweek2(note.Alarm.Day,note.Alarm.Month,note.Alarm.Year)+' '+inttostr2(note.Alarm.Day,2)+'-'+inttostr2(note.Alarm.Month,2)+'-'+inttostr(note.Alarm.Year)+' '+inttostr2(note.Alarm.Hour,2)+':'+inttostr2(note.Alarm.Minute,2)+':'+inttostr2(note.Alarm.Second,2))
\r
2037 myview.Items.Item[myview.Items.Count-1].Subitems.Add('');
\r
2040 procedure TCalendarThread.Execute;
\r
2042 note:GSM_CalendarNote;
\r
2044 while not Terminated do
\r
2046 note.Location:=calendarnum;
\r
2047 if GSM_GetCalendarNote(@note)=0 then
\r
2049 AddCalendarNote(note,MainForm.ListView4);
\r
2050 calendarnum:=calendarnum+1;
\r
2052 readcalendar:=true;
\r
2053 EndCalendarThread();
\r
2058 procedure TMainForm.CalendarTabSheetShow(Sender: TObject);
\r
2060 if CalendarThread=nil then
\r
2062 if GSMPhoneConnected then
\r
2064 if (GSM_GetModelFeature(FN_Calendar)<>0) then
\r
2066 ListView4.Enabled:=true;
\r
2067 ListView4.Ctl3D:=true;
\r
2068 GroupBox8.Ctl3D:=true;
\r
2070 MainForm.ListView4.Items.Clear;
\r
2072 MainForm.Timer2.Enabled:=false;
\r
2073 readcalendar:=false;
\r
2077 CalendarThread:=TCalendarThread.Create(false);
\r
2080 ListView4.Enabled:=false;
\r
2081 ListView4.Ctl3D:=false;
\r
2082 GroupBox8.Ctl3D:=false;
\r
2088 procedure TMainForm.CalendarTabSheetHide(Sender: TObject);
\r
2090 EndCalendarThread();
\r
2093 procedure TMainForm.New1Click(Sender: TObject);
\r
2096 setcalendarnote.Location:=MainForm.ListView4.Items.Count+1;
\r
2097 CalendarForm.ComboBox1.ItemIndex:=0;
\r
2098 CalendarForm.ComboBox1.OnSelect(nil);
\r
2099 CalendarForm.Edit2.Text:='';
\r
2100 CalendarForm.ComboBox3.Text:='';
\r
2101 CalendarForm.DateTimePicker1.DateTime:=Date;
\r
2102 CalendarForm.DateTimePicker3.Time:=Time;
\r
2103 CalendarForm.DateTimePicker2.DateTime:=Date;
\r
2104 CalendarForm.DateTimePicker4.Time:=Time;
\r
2107 CalendarForm.ComboBox3.Items.Clear;
\r
2108 CalendarForm.ComboBox3.Sorted:=false;
\r
2109 for i:=1 to PBKOfflineNumber do
\r
2111 if (PhoneBackup.PhonePhonebook[i].Number[1]<>chr(0)) then
\r
2113 CalendarForm.ComboBox3.Items.Add(PhoneBackup.PhonePhonebook[i].Name);
\r
2116 for j:=1 to PhoneBackup.PhonePhonebook[i].SubEntriesCount do
\r
2118 if PhoneBackup.PhonePhonebook[i].SubEntries[j].EntryType=GSM_Number then
\r
2120 CalendarForm.ComboBox3.Items.Add(PhoneBackup.PhonePhonebook[i].Name);
\r
2126 CalendarForm.ComboBox3.Sorted:=true;
\r
2128 CalendarForm.ShowModal;
\r
2131 procedure EditCalendarNote;
\r
2132 var i,j,z:integer;
\r
2136 CalendarForm.DateTimePicker1.Date:=EncodeDate(setcalendarnote.Time.Year,
\r
2137 setcalendarnote.Time.Month,
\r
2138 setcalendarnote.Time.Day);
\r
2139 CalendarForm.DateTimePicker3.Time:=EncodeTime(setcalendarnote.Time.Hour,
\r
2140 setcalendarnote.Time.Minute,
\r
2141 setcalendarnote.Time.Second,i);
\r
2142 case setcalendarnote.Type2 of
\r
2143 GCN_BIRTHDAY: CalendarForm.ComboBox1.ItemIndex:=0;
\r
2144 GCN_CALL: CalendarForm.ComboBox1.ItemIndex:=1;
\r
2145 GCN_MEETING: CalendarForm.ComboBox1.ItemIndex:=2;
\r
2146 GCN_REMINDER: CalendarForm.ComboBox1.ItemIndex:=3;
\r
2149 CalendarForm.Edit2.Text:=setcalendarnote.Text;
\r
2150 CalendarForm.ComboBox3.Text:=setcalendarnote.Phone;
\r
2152 if setcalendarnote.Alarm.Year<>0 then
\r
2154 CalendarForm.CheckBox1.checked:=true;
\r
2155 CalendarForm.DateTimePicker2.Date:=EncodeDate(setcalendarnote.Alarm.Year,
\r
2156 setcalendarnote.Alarm.Month,
\r
2157 setcalendarnote.Alarm.Day);
\r
2158 CalendarForm.DateTimePicker4.Time:=EncodeTime(setcalendarnote.Alarm.Hour,
\r
2159 setcalendarnote.Alarm.Minute,
\r
2160 setcalendarnote.Alarm.Second,i);
\r
2163 CalendarForm.CheckBox1.checked:=false;
\r
2164 CalendarForm.DateTimePicker2.Date:=CalendarForm.DateTimePicker1.Date;
\r
2165 CalendarForm.DateTimePicker4.Time:=CalendarForm.DateTimePicker3.Time;
\r
2168 if GSM_GetModelFeature(FN_CALENDAR)=F_CAL71 then
\r
2170 if setcalendarnote.Type2<>GCN_BIRTHDAY then
\r
2172 CalendarForm.CheckBox2.Checked:=True;
\r
2173 case setcalendarnote.Recurrance of
\r
2175 CalendarForm.CheckBox2.Checked:=False;
\r
2176 CalendarForm.ComboBox2.Enabled:=False;
\r
2178 1*24 :CalendarForm.ComboBox2.ItemIndex:=0;
\r
2179 7*24 :CalendarForm.ComboBox2.ItemIndex:=1;
\r
2180 14*24 :CalendarForm.ComboBox2.ItemIndex:=2;
\r
2181 365*24:CalendarForm.ComboBox2.ItemIndex:=3;
\r
2183 CalendarForm.RadioButton1.Enabled:=False;
\r
2184 CalendarForm.RadioButton2.Enabled:=False;
\r
2186 CalendarForm.ComboBox2.ItemIndex:=0;
\r
2187 CalendarForm.CheckBox2.Checked:=False;
\r
2188 CalendarForm.ComboBox2.Enabled:=False;
\r
2189 CalendarForm.RadioButton1.Enabled:=True;
\r
2190 CalendarForm.RadioButton2.Enabled:=True;
\r
2191 if setcalendarnote.AlarmType=1 then
\r
2192 CalendarForm.RadioButton1.Checked:=True
\r
2194 CalendarForm.RadioButton2.Checked:=True;
\r
2197 CalendarForm.ComboBox1.OnSelect(nil);
\r
2200 CalendarForm.ComboBox3.Items.Clear;
\r
2201 CalendarForm.ComboBox3.Sorted:=false;
\r
2202 for i:=1 to PBKOfflineNumber do
\r
2204 if (PhoneBackup.PhonePhonebook[i].Number[1]<>chr(0)) then
\r
2206 CalendarForm.ComboBox3.Items.Add(PhoneBackup.PhonePhonebook[i].Name);
\r
2209 for j:=1 to PhoneBackup.PhonePhonebook[i].SubEntriesCount do
\r
2211 if PhoneBackup.PhonePhonebook[i].SubEntries[j].EntryType=GSM_Number then
\r
2213 CalendarForm.ComboBox3.Items.Add(PhoneBackup.PhonePhonebook[i].Name);
\r
2219 CalendarForm.ComboBox3.Sorted:=true;
\r
2221 if setcalendarnote.Type2=GCN_Call then
\r
2223 MainForm.Label14.Caption:=setcalendarnote.Phone;
\r
2224 for i:=1 to PBKOfflineNumber do
\r
2226 if (PhoneBackup.PhonePhonebook[i].Number[1]<>chr(0)) then
\r
2228 MainForm.Label16.Caption:=PhoneBackup.PhonePhonebook[i].Number;
\r
2229 if (MainForm.Label14.Caption=MainForm.Label16.Caption) then
\r
2231 MainForm.Label14.Caption:=PhoneBackup.PhonePhonebook[i].Name;
\r
2232 for z:=0 to CalendarForm.ComboBox3.Items.Count do
\r
2234 if (MainForm.Label14.Caption=CalendarForm.ComboBox3.Items[z]) then
\r
2236 CalendarForm.ComboBox3.ItemIndex:=z;
\r
2243 for j:=1 to PhoneBackup.PhonePhonebook[i].SubEntriesCount do
\r
2245 MainForm.Label16.Caption:=PhoneBackup.PhonePhonebook[i].SubEntries[j].Number;
\r
2246 if (MainForm.Label14.Caption=MainForm.Label16.Caption) then
\r
2248 MainForm.Label14.Caption:=PhoneBackup.PhonePhonebook[i].Name;
\r
2249 for z:=0 to CalendarForm.ComboBox3.Items.Count do
\r
2251 if (MainForm.Label14.Caption=CalendarForm.ComboBox3.Items[z]) then
\r
2253 CalendarForm.ComboBox3.ItemIndex:=z;
\r
2263 CalendarForm.ShowModal;
\r
2266 procedure TMainForm.Edit3Click(Sender: TObject);
\r
2268 setcalendarnote.Location:=calendarselect;
\r
2270 mainform.Timer2.Enabled:=false;
\r
2271 GSM_GetCalendarNote(@setcalendarnote);
\r
2272 mainform.Timer2.Enabled:=true;
\r
2277 procedure TMainForm.ListView4SelectItem(Sender: TObject; Item: TListItem;
\r
2278 Selected: Boolean);
\r
2282 calendarselect:=Item.Index+1;
\r
2286 procedure TMainForm.Delete1Click(Sender: TObject);
\r
2288 // if listview4.selected<>nil then
\r
2290 if MessageDlg('Do you want to delete this calendar note ?',
\r
2291 mtConfirmation, [mbYes, mbNo], 0) = mrYes then
\r
2293 setcalendarnote.Location:=calendarselect;
\r
2294 GSM_DeleteCalendarNote(@setcalendarnote);
\r
2295 MainForm.CalendarTabSheetShow(nil);
\r
2301 procedure EndCallerThread();
\r
2303 if (CallerThread<>nil) then
\r
2305 CallerThread.Terminate();
\r
2306 CallerThread:=nil;
\r
2310 procedure TCallerThread.Execute;
\r
2312 while not Terminated do
\r
2314 ReadCallerGroup();
\r
2315 if callerinit then EndCallerThread();
\r
2319 procedure TMainForm.CallerTabSheetShow(Sender: TObject);
\r
2321 if CallerThread=nil then
\r
2323 if GSMPhoneConnected then
\r
2325 MainForm.ListView5.Items.Clear;
\r
2326 callerinit:=false;
\r
2328 CallerThread:=TCallerThread.Create(false);
\r
2333 procedure TMainForm.CallerTabSheetHide(Sender: TObject);
\r
2335 EndCallerThread();
\r
2339 procedure TMainForm.SMSCTabSheetShow(Sender: TObject);
\r
2341 if SMSCThread<>nil then
\r
2343 if GSMPhoneConnected then
\r
2345 MainForm.ListView6.Items.Clear;
\r
2348 MainForm.Timer2.Enabled:=false;
\r
2349 SMSCThread:=TSMSCThread.Create(false);
\r
2354 procedure SMSCTabHide();
\r
2356 if (SMSCThread<>nil) then
\r
2358 SMSCThread.Terminate();
\r
2359 MainForm.Timer2.Enabled:=true;
\r
2364 procedure TMainForm.SMSCTabSheetHide(Sender: TObject);
\r
2369 procedure ReadSMSC();
\r
2371 smsc:GSM_MessageCenter;
\r
2374 MainForm.StatusBar1.Panels[0].Text:='Reading SMSC '+inttostr(smscnum);
\r
2375 if GSM_GetSMSCenter(@smsc)=0 then
\r
2377 SMSC2[smscnum]:=smsc;
\r
2378 MainForm.ListView6.Items.Add;
\r
2379 MainForm.ListView6.Items.Item[smscnum-1].Caption:=inttostr(smscnum);
\r
2380 MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add(smsc.name);
\r
2381 MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add(smsc.number);
\r
2382 case smsc.Validity of
\r
2383 GSMV_1_Hour : MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add('1 hour');
\r
2384 GSMV_6_Hours : MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add('6 hours');
\r
2385 GSMV_24_Hours : MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add('1 day');
\r
2386 GSMV_72_Hours : MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add('3 days');
\r
2387 GSMV_1_Week : MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add('1 week');
\r
2388 GSMV_Max_Time : MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add('max. time');
\r
2390 MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add('unknown');
\r
2392 case smsc.Format of
\r
2393 GSMF_Text : MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add('text');
\r
2394 GSMF_Fax : MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add('fax');
\r
2395 GSMF_Voice : MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add('voice');
\r
2396 GSMF_ERMES : MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add('ERMES');
\r
2397 GSMF_Paging : MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add('paging');
\r
2398 GSMF_UCI : MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add('UCI');
\r
2399 GSMF_Email : MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add('email');
\r
2400 GSMF_X400 : MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add('X400');
\r
2402 MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add('unknown');
\r
2404 MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add(smsc.defaultrecipient);
\r
2405 smscnum:=smscnum+1;
\r
2408 MainForm.StatusBar1.Panels[0].Text:='';
\r
2413 procedure TSMSCThread.Execute;
\r
2415 while not Terminated do
\r
2418 if smscinit then SMSCTabHide();
\r
2423 procedure ProfileTabHide();
\r
2425 if (ProfileThread<>nil) then
\r
2427 ProfileThread.Terminate();
\r
2428 MainForm.Timer2.Enabled:=true;
\r
2429 ProfileThread:=nil;
\r
2433 procedure TProfileThread.Execute;
\r
2435 profile:GSM_Profile;
\r
2437 while not Terminated do
\r
2439 profile.number:=profilenum-1;
\r
2440 GSM_GetProfile(@profile);
\r
2441 MainForm.ListView7.Items.Add;
\r
2442 MainForm.ListView7.Items.Item[profilenum-1].Caption:=inttostr(profilenum);
\r
2443 MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add(profile.name);
\r
2444 case profile.CallAlert of
\r
2445 PROFILE_CALLALERT_RINGING :MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('ringing');
\r
2446 PROFILE_CALLALERT_BEEPONCE :MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('beep once');
\r
2447 PROFILE_CALLALERT_OFF :MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('off');
\r
2448 PROFILE_CALLALERT_RINGONCE :MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('ring once');
\r
2449 PROFILE_CALLALERT_ASCENDING:MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('ascending');
\r
2450 PROFILE_CALLALERT_CALLERGROUPS:MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('caller groups');
\r
2452 MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add(inttostr(profile.Ringtone));
\r
2453 case profile.Volume of
\r
2454 PROFILE_VOLUME_LEVEL1:MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('volume 1');
\r
2455 PROFILE_VOLUME_LEVEL2:MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('volume 2');
\r
2456 PROFILE_VOLUME_LEVEL3:MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('volume 3');
\r
2457 PROFILE_VOLUME_LEVEL4:MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('volume 4');
\r
2458 PROFILE_VOLUME_LEVEL5:MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('volume 5');
\r
2460 case profile.Vibration of
\r
2461 PROFILE_VIBRATION_OFF :MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('off');
\r
2462 PROFILE_VIBRATION_ON :MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('on');
\r
2463 PROFILE_VIBRATION_FIRST:MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('vibrate first');
\r
2465 case profile.MessageTone of
\r
2466 PROFILE_MESSAGE_NOTONE :MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('no tone');
\r
2467 PROFILE_MESSAGE_STANDARD :MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('standard');
\r
2468 PROFILE_MESSAGE_SPECIAL :MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('special');
\r
2469 PROFILE_MESSAGE_BEEPONCE :MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('beep once');
\r
2470 PROFILE_MESSAGE_ASCENDING:MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('ascending');
\r
2472 case profile.KeypadTone of
\r
2473 PROFILE_KEYPAD_OFF :MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('off');
\r
2474 PROFILE_KEYPAD_LEVEL1:MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('volume 1');
\r
2475 PROFILE_KEYPAD_LEVEL2:MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('volume 2');
\r
2476 PROFILE_KEYPAD_LEVEL3:MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('volume 3');
\r
2478 case profile.WarningTone of
\r
2479 PROFILE_WARNING_OFF:MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('off');
\r
2480 PROFILE_WARNING_ON :MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('on');
\r
2482 MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add(inttostr(profile.CallerGroups));
\r
2483 profilenum:=profilenum+1;
\r
2484 case GSM_GetModelFeature(FN_PROFILES) of
\r
2485 F_PROF61:if profilenum=8 then ProfileTabHide();
\r
2486 F_PROF51:if profilenum=3 then ProfileTabHide();
\r
2487 F_PROF33:if profilenum=7 then ProfileTabHide();
\r
2492 procedure TMainForm.ProfileTabSheetShow(Sender: TObject);
\r
2494 if ProfileThread<>nil then
\r
2496 if GSMPhoneConnected then
\r
2498 MainForm.ListView7.Items.Clear;
\r
2500 MainForm.Timer2.Enabled:=false;
\r
2501 ProfileThread:=TProfileThread.Create(false);
\r
2506 procedure TMainForm.ProfileTabSheetHide(Sender: TObject);
\r
2512 procedure AddSMSInfo(myobject:TListView;mysms:GSM_SMSMessage);
\r
2513 var number,i,z:integer;
\r
2516 number:=myobject.Items.Count;
\r
2518 myobject.Items.Add;
\r
2519 myobject.Items.Item[number].Caption:=inttostr(number+1);
\r
2520 myobject.Items.Item[number].Subitems.Add(mysms.MessageText);
\r
2523 for z:=1 to PBKOfflineNumber do
\r
2525 mainform.Label14.Caption:=mysms.Sender;
\r
2526 mainform.Label16.Caption:=PhoneBackup.PhonePhonebook[z].Number;
\r
2527 if (PhoneBackup.PhonePhonebook[z].Number[1]<>chr(0)) then
\r
2529 if (mainform.Label14.Caption=mainform.Label16.Caption) then
\r
2531 myobject.Items.Item[number].Subitems.Add(PhoneBackup.PhonePhonebook[z].Name);
\r
2536 for i:=1 to PhoneBackup.PhonePhonebook[z].SubEntriesCount do
\r
2538 mainform.Label16.Caption:=PhoneBackup.PhonePhonebook[z].SubEntries[i].Number;
\r
2539 if (PhoneBackup.PhonePhonebook[z].SubEntries[i].EntryType=GSM_Number)
\r
2540 and (mainform.Label14.Caption=mainform.Label16.Caption) then
\r
2542 myobject.Items.Item[number].Subitems.Add(PhoneBackup.PhonePhonebook[z].Name);
\r
2547 if found then break;
\r
2549 if not found then myobject.Items.Item[number].Subitems.Add(mysms.Sender);
\r
2551 if mysms.SMSData=1 then
\r
2553 myobject.Items.Item[number].Subitems.Add(DayOfweek2(mysms.Time.Day,mysms.Time.Month,mysms.Time.Year)+' '+inttostr2(mysms.Time.Day,2)+'-'+inttostr2(mysms.Time.Month,2)+'-'+inttostr(mysms.Time.Year));
\r
2554 myobject.Items.Item[number].Subitems.Add(inttostr2(mysms.Time.Hour,2)+':'+inttostr2(mysms.Time.Minute,2)+':'+inttostr2(mysms.Time.Second,2));
\r
2558 procedure DisplaySMSfolder();
\r
2562 MainForm.ListView2.Items.Clear();
\r
2564 while i<>SMSstatus.Number do
\r
2567 if (SMSfolders.Folder[SMS[i].folder].Name=
\r
2568 SMSfolders.Folder[MainForm.ComboBox3.ItemIndex].Name) then
\r
2570 AddSMSInfo(MainForm.ListView2,SMS[i]);
\r
2575 procedure SendSaveSMS(mysms:GSM_SMSMessage);
\r
2576 var i,j,z:integer;
\r
2579 SMSEditForm.Memo1.Text:=mysms.MessageText;
\r
2582 SMSEditForm.ComboBox9.Text:=mysms.sender;
\r
2583 AddSMSEditSenderList;
\r
2584 MainForm.Label14.Caption:=mysms.sender;
\r
2585 for i:=1 to PBKOfflineNumber do
\r
2587 if (PhoneBackup.PhonePhonebook[i].Number[1]<>chr(0)) then
\r
2589 MainForm.Label16.Caption:=PhoneBackup.PhonePhonebook[i].Number;
\r
2590 if (MainForm.Label14.Caption=MainForm.Label16.Caption) then
\r
2592 MainForm.Label14.Caption:=PhoneBackup.PhonePhonebook[i].Name;
\r
2593 for z:=0 to SMSEditForm.ComboBox9.Items.Count do
\r
2595 if (MainForm.Label14.Caption=SMSEditForm.ComboBox9.Items[z]) then
\r
2597 SMSEditForm.ComboBox9.ItemIndex:=z;
\r
2604 for j:=1 to PhoneBackup.PhonePhonebook[i].SubEntriesCount do
\r
2606 MainForm.Label16.Caption:=PhoneBackup.PhonePhonebook[i].SubEntries[j].Number;
\r
2607 if (MainForm.Label14.Caption=MainForm.Label16.Caption) then
\r
2609 MainForm.Label14.Caption:=PhoneBackup.PhonePhonebook[i].Name;
\r
2610 for z:=0 to SMSEditForm.ComboBox9.Items.Count do
\r
2612 if (MainForm.Label14.Caption=SMSEditForm.ComboBox9.Items[z]) then
\r
2614 SMSEditForm.ComboBox9.ItemIndex:=z;
\r
2624 SMSEditForm.ComboBox1.Items.Clear;
\r
2625 for i:=0 to MainForm.ComboBox3.items.count-1 do
\r
2627 SMSEditForm.ComboBox1.Items.Add(MainForm.ComboBox3.Items.Strings[i]);
\r
2629 SMSEditForm.ComboBox1.ItemIndex:=MainForm.ComboBox3.ItemIndex;
\r
2633 SMSEditForm.ComboBox2.Items.Clear;
\r
2634 SMSEditForm.ComboBox2.Items.Add('custom');
\r
2635 for i:=1 to smscnum-1 do
\r
2637 if SMSC2[i].Name[1]<>chr(0) then
\r
2638 SMSEditForm.ComboBox2.Items.Add('set '+inttostr(i)+' - '+SMSC2[i].Name)
\r
2640 SMSEditForm.ComboBox2.Items.Add('set '+inttostr(i));
\r
2642 SMSEditForm.ComboBox2.ItemIndex:=0;
\r
2644 if mysms.ReplyViaSameSMSC<>0 then
\r
2645 SMSEditForm.CheckBox3.Checked:=true
\r
2647 SMSEditForm.CheckBox3.Checked:=false;
\r
2649 if mysms.Class2=1 then
\r
2650 SMSEditForm.CheckBox1.Checked:=true
\r
2652 SMSEditForm.CheckBox1.Checked:=false;
\r
2654 if mysms.status=GSS_SENTREAD then
\r
2655 SMSEditForm.CheckBox4.Checked:=true
\r
2657 SMSEditForm.CheckBox4.Checked:=false;
\r
2659 SMSEditForm.TextSMSTabSheet.TabVisible:=false;
\r
2660 SMSEditForm.BitmapSMSTabSheet.TabVisible:=false;
\r
2661 SMSEditForm.RingtoneSMSTabSheet.TabVisible:=false;
\r
2662 SMSEditForm.CalendarSMSTabSheet.TabVisible:=false;
\r
2663 SMSEditForm.WAPBookTabSheet.TabVisible:=false;
\r
2664 SMSEditForm.WAPSettTabSheet.TabVisible:=false;
\r
2665 SMSEditForm.PbkSMSTabSheet.TabVisible:=false;
\r
2666 SMSEditForm.SMSEditPageControl.ActivePage:=Smseditform.TextSMSTabSheet;
\r
2668 if (GSM_GetModelFeature(FN_SMS)=F_SMS71) then
\r
2670 SMSEditForm.edit3.Visible:=true;
\r
2671 SMSEditForm.label14.Visible:=true;
\r
2674 SMSEditForm.edit3.Visible:=false;
\r
2675 SMSEditForm.label14.Visible:=false;
\r
2678 SMSEditForm.ShowModal;
\r
2681 procedure TMainForm.Edit4Click(Sender: TObject);
\r
2683 setsmslocation:=SMS[smsnumindex].Location;
\r
2684 SendSaveSMS(SMS[smsnumindex]);
\r
2687 procedure TMainForm.New2Click(Sender: TObject);
\r
2690 setsmslocation:=0;
\r
2693 SMSEditForm.Memo1.Text:='';
\r
2696 SMSEditForm.ComboBox9.Text:='';
\r
2697 AddSMSEditSenderList;
\r
2700 SMSEditForm.ComboBox1.Items.Clear;
\r
2701 for i:=0 to ComboBox3.items.count-1 do
\r
2703 SMSEditForm.ComboBox1.Items.Add(ComboBox3.Items.Strings[i]);
\r
2705 SMSEditForm.ComboBox1.ItemIndex:=ComboBox3.ItemIndex;
\r
2709 SMSEditForm.ComboBox2.Items.Clear;
\r
2710 SMSEditForm.ComboBox2.Items.Add('custom');
\r
2711 for i:=1 to smscnum-1 do
\r
2713 if SMSC2[i].Name[1]<>chr(0) then
\r
2714 SMSEditForm.ComboBox2.Items.Add('set '+inttostr(i)+' - '+SMSC2[i].Name)
\r
2716 SMSEditForm.ComboBox2.Items.Add('set '+inttostr(i));
\r
2718 SMSEditForm.ComboBox2.ItemIndex:=1;
\r
2720 SMSEditForm.TextSMSTabSheet.TabVisible:=false;
\r
2721 SMSEditForm.BitmapSMSTabSheet.TabVisible:=false;
\r
2722 SMSEditForm.RingtoneSMSTabSheet.TabVisible:=false;
\r
2723 SMSEditForm.CalendarSMSTabSheet.TabVisible:=false;
\r
2724 SMSEditForm.WAPBookTabSheet.TabVisible:=false;
\r
2725 SMSEditForm.WAPSettTabSheet.TabVisible:=false;
\r
2726 SMSEditForm.PBKSMSTabSheet.TabVisible:=false;
\r
2727 SMSEditForm.SMSEditPageControl.ActivePage:=Smseditform.TextSMSTabSheet;
\r
2729 if (GSM_GetModelFeature(FN_SMS)=F_SMS71) then
\r
2731 SMSEditForm.edit3.Visible:=true;
\r
2732 SMSEditForm.label14.Visible:=true;
\r
2735 SMSEditForm.edit3.Visible:=false;
\r
2736 SMSEditForm.label14.Visible:=false;
\r
2739 SMSEditForm.ShowModal;
\r
2742 procedure EndSMSThread;
\r
2744 if (SMSThread<>nil) then
\r
2746 SMSThread.Terminate();
\r
2747 MainForm.Timer2.Enabled:=true;
\r
2752 procedure TSMSThread.Execute;
\r
2756 while not Terminated do
\r
2758 if SMSnum<>SMSstatus.Number then
\r
2760 if GSM_GetModelFeature(FN_SMS)=F_SMS71 then
\r
2761 SMS[SMSnum+1].Location:=0
\r
2763 SMS[SMSnum+1].Location:=smsnum2;
\r
2764 error:=GSM_GetSMSMessage(@SMS[SMSnum+1]);
\r
2767 if SMS[SMSnum+1].Time.year<1900 then
\r
2769 SMS[SMSnum+1].Time.year:=SMS[SMSnum+1].Time.year+2000;
\r
2771 if (SMSfolders.Folder[SMS[SMSnum+1].folder].Name=
\r
2772 SMSfolders.Folder[MainForm.ComboBox3.ItemIndex].Name) then
\r
2774 AddSMSInfo(MainForm.ListView2,SMS[SMSnum+1]);
\r
2778 if error=GE_SMSTOOLONG then
\r
2780 SMSstatus.Number:=SMSstatus.Number-1;
\r
2783 smsnum2:=smsnum2+1;
\r
2786 MainForm.ComboBox3.Enabled:=true;
\r
2792 procedure TMainForm.SMSTabSheetShow(Sender: TObject);
\r
2796 MainForm.ComboBox3.Enabled:=false;
\r
2797 if GSMPhoneConnected then
\r
2799 if smscinit=false then
\r
2801 MainForm.ListView6.Items.Clear;
\r
2806 if smscinit then break;
\r
2810 MainForm.Memo1.Lines.Clear;
\r
2811 MainForm.Memo2.Lines.Clear;
\r
2812 GSM_GetSMSFolders(@SMSfolders);
\r
2813 MainForm.ComboBox3.Items.Clear();
\r
2814 for i:=1 to SMSfolders.number do
\r
2816 MainForm.ComboBox3.Items.Add(SMSfolders.folder[i].Name);
\r
2818 MainForm.ComboBox3.ItemIndex:=0;
\r
2821 GSM_GetSMSStatus(@SMSstatus);
\r
2823 MainForm.ListView2.Items.Clear;
\r
2824 MainForm.Timer2.Enabled:=false;
\r
2826 SMSThread:=TSMSThread.Create(false);
\r
2830 procedure TMainForm.ComboBox3Change(Sender: TObject);
\r
2833 DisplaySMSfolder();
\r
2836 procedure AddSMSDescription(mysms:GSM_SMSMessage;firstmemo:TMemo;secondmemo:TMemo);
\r
2841 firstmemo.Lines.Clear;
\r
2842 firstmemo.Lines.Add(pchar('Sender: '+mysms.Sender));
\r
2844 if mysms.SMSData=1 then
\r
2846 ch:=mysms.MessageCenter.Number;
\r
2847 MainForm.Label14.Caption:=mysms.MessageCenter.Number;
\r
2848 if (smscinit) and (GSMPhoneConnected) then
\r
2850 for z:=1 to smscnum-1 do
\r
2852 MainForm.Label16.Caption:=SMSC2[z].Number;
\r
2853 if MainForm.Label14.Caption=MainForm.Label16.caption then
\r
2854 ch:=SMSC2[z].Name;
\r
2857 if mysms.ReplyViaSameSMSC<>0 then
\r
2858 ch:=' (reply via the same SMSC) '+ch;
\r
2859 firstmemo.Lines.Add('SMSC: '+ch);
\r
2861 if (mysms.type2=GST_DR) and (mysms.MessageText[1]='D') then
\r
2863 firstmemo.Lines.Add(pchar('Date & time: '+
\r
2864 DayOfweek2(mysms.Time.Day,mysms.Time.Month,mysms.Time.Year)+' '+inttostr2(mysms.Time.Day,2)+'-'+inttostr2(mysms.Time.Month,2)+'-'+inttostr(mysms.Time.Year)+' '+
\r
2865 inttostr2(mysms.Time.Hour,2)+':'+inttostr2(mysms.Time.Minute,2)+':'+inttostr2(mysms.Time.Second,2))+
\r
2866 ' SMSC response date & time: '+
\r
2867 DayOfweek2(mysms.SMSCTime.Day,mysms.SMSCTime.Month,mysms.SMSCTime.Year)+' '+inttostr2(mysms.SMSCTime.Day,2)+'-'+inttostr2(mysms.SMSCTime.Month,2)+'-'+inttostr(mysms.SMSCTime.Year)+' '+
\r
2868 inttostr2(mysms.SMSCTime.Hour,2)+':'+inttostr2(mysms.SMSCTime.Minute,2)+':'+inttostr2(mysms.SMSCTime.Second,2));
\r
2871 firstmemo.Lines.Add(pchar('Date & time: '+
\r
2872 DayOfweek2(mysms.Time.Day,mysms.Time.Month,mysms.Time.Year)+' '+inttostr2(mysms.Time.Day,2)+'-'+inttostr2(mysms.Time.Month,2)+'-'+inttostr(mysms.Time.Year)+' '+
\r
2873 inttostr2(mysms.Time.Hour,2)+':'+inttostr2(mysms.Time.Minute,2)+':'+inttostr2(mysms.Time.Second,2)));
\r
2877 secondmemo.Lines.Clear;
\r
2878 secondmemo.Lines.Add(pchar(''+mysms.MessageText));
\r
2881 procedure TMainForm.ListView2SelectItem(Sender: TObject; Item: TListItem;
\r
2882 Selected: Boolean);
\r
2889 while i<>SMSstatus.Number do
\r
2892 if (SMSfolders.Folder[SMS[i].folder].Name=
\r
2893 SMSfolders.Folder[MainForm.ComboBox3.ItemIndex].Name) then
\r
2895 if (j=MainForm.ListView2.ItemIndex) then
\r
2898 AddSMSDescription(SMS[i],MainForm.Memo1,MainForm.Memo2);
\r
2905 procedure TMainForm.SMSTabSheetHide(Sender: TObject);
\r
2910 procedure TMainForm.SMSPopupMenuPopup(Sender: TObject);
\r
2912 New2.Enabled:=false;
\r
2913 Edit4.Enabled:=false;
\r
2914 CopyToPC1.Enabled:=false;
\r
2915 Delete2.Enabled:=false;
\r
2916 if GSMPhoneConnected then
\r
2918 New2.Enabled:=true;
\r
2919 if listview2.selected<>nil then
\r
2921 Edit4.Enabled:=true;
\r
2922 CopyToPC1.Enabled:=true;
\r
2923 Delete2.Enabled:=true;
\r
2928 procedure TMainForm.CalendarPopupMenuPopup(Sender: TObject);
\r
2930 if GSMPhoneConnected then
\r
2932 New1.Enabled:=true;
\r
2933 if listview4.selected<>nil then
\r
2935 Edit3.Enabled:=true;
\r
2936 Delete1.Enabled:=true;
\r
2937 SMS1.Enabled:=true;
\r
2938 CopyToPC2.Enabled:=true;
\r
2941 Edit3.Enabled:=false;
\r
2942 Delete1.Enabled:=false;
\r
2943 SMS1.Enabled:=false;
\r
2944 CopyToPC2.Enabled:=false;
\r
2948 New1.Enabled:=false;
\r
2949 Delete1.Enabled:=false;
\r
2950 Edit3.Enabled:=false;
\r
2951 SMS1.Enabled:=false;
\r
2952 CopyToPC2.Enabled:=false;
\r
2956 procedure TMainForm.Edit1Change(Sender: TObject);
\r
2961 rington.name[i]:=chr(0);
\r
2962 for i:=1 to strlen(pchar(edit1.text)) do
\r
2963 rington.name[i]:=edit1.text[i];
\r
2966 procedure TMainForm.Delete2Click(Sender: TObject);
\r
2968 mysms:GSM_SMSMessage;
\r
2970 if MessageDlg('Do you want to delete this SMS ?',
\r
2971 mtConfirmation, [mbYes, mbNo], 0) = mrYes then
\r
2973 mysms.Location:=SMS[smsnumindex].Location;
\r
2974 MainForm.Timer2.Enabled:=false;
\r
2975 GSM_DeleteSMSMessage(@mysms);
\r
2976 MainForm.Timer2.Enabled:=true;
\r
2977 MainForm.SMSTabSheetShow(nil);
\r
2981 procedure TMainForm.Edit5Click(Sender: TObject);
\r
2983 // if listview6.selected<>nil then
\r
2985 smsceditform.edit1.Text:=smsc2[smscselectitem].name;
\r
2986 smsceditform.edit2.Text:=smsc2[smscselectitem].number;
\r
2987 smsceditform.edit3.Text:=smsc2[smscselectitem].DefaultRecipient;
\r
2988 case smsc2[smscselectitem].Validity of
\r
2989 GSMV_1_Hour : SMSCEditForm.combobox1.itemindex:=0;
\r
2990 GSMV_6_Hours : SMSCEditForm.combobox1.itemindex:=1;
\r
2991 GSMV_24_Hours : SMSCEditForm.combobox1.itemindex:=2;
\r
2992 GSMV_72_Hours : SMSCEditForm.combobox1.itemindex:=3;
\r
2993 GSMV_1_Week : SMSCEditForm.combobox1.itemindex:=4;
\r
2995 SMSCEditForm.combobox1.itemindex:=5;
\r
2997 case smsc2[smscselectitem].Format of
\r
2998 GSMF_Text : SMSCEditForm.combobox2.itemindex:=0;
\r
2999 GSMF_Fax : SMSCEditForm.combobox2.itemindex:=1;
\r
3000 GSMF_Email : SMSCEditForm.combobox2.itemindex:=2;
\r
3002 SMSCEditForm.combobox2.itemindex:=3;
\r
3004 SMSCEditForm.ShowModal;
\r
3008 procedure TMainForm.SMSCPopupMenuPopup(Sender: TObject);
\r
3010 if GSMPhoneConnected then
\r
3012 if listview6.selected<>nil then
\r
3013 Edit5.Enabled:=true
\r
3015 Edit5.Enabled:=false;
\r
3018 Edit5.Enabled:=false;
\r
3023 procedure TMainForm.ListView6SelectItem(Sender: TObject; Item: TListItem;
\r
3024 Selected: Boolean);
\r
3028 smscselectitem:=Item.Index+1;
\r
3032 procedure TMainForm.ListView1SelectItem(Sender: TObject; Item: TListItem;
\r
3033 Selected: Boolean);
\r
3037 pbknumberentry:=Item.Index+1;
\r
3041 procedure TMainForm.Edit7Click(Sender: TObject);
\r
3046 // if listview1.Selected<>nil then
\r
3048 pbk.Location:=pbknumberentry;
\r
3049 case ComboBox1.ItemIndex of
\r
3050 1:begin pbk.MemoryType:=GMT_DC;pbk.Location:=pbk.Location-1;end;
\r
3051 2:begin pbk.MemoryType:=GMT_MC;pbk.Location:=pbk.Location-1;end;
\r
3052 3:begin pbk.MemoryType:=GMT_ON;pbk.Location:=pbk.Location-1;end;
\r
3053 4:pbk.MemoryType:=GMT_ME;
\r
3054 5:pbk.MemoryType:=GMT_SM;
\r
3055 6:begin pbk.MemoryType:=GMT_RC;pbk.Location:=pbk.Location-1;end;
\r
3057 GSM_GetMemoryLocation(@pbk);
\r
3059 pbkform.ListView1.Items.Clear;
\r
3060 pbkform.ListView1.Items.Add;
\r
3061 pbkform.ListView1.Items.Item[0].Caption:='Name';
\r
3062 pbkform.ListView1.Items.Item[0].SubItems.Add(pbk.name);
\r
3063 if (pbk.Number[1]<>chr(0)) then
\r
3065 current:=current+1;
\r
3066 pbkform.ListView1.Items.Add;
\r
3067 pbkform.ListView1.Items.Item[current].Caption:='Number';
\r
3068 pbkform.ListView1.Items.Item[current].SubItems.Add(pbk.number);
\r
3070 for i:=1 to pbk.SubEntriesCount do
\r
3072 current:=current+1;
\r
3073 pbkform.ListView1.Items.Add;
\r
3074 case pbk.SubEntries[i].EntryType of
\r
3075 GSM_Number:case pbk.SubEntries[i].NumberType of
\r
3076 GSM_General :pbkform.ListView1.Items.Item[current].Caption:='General number';
\r
3077 GSM_General2:pbkform.ListView1.Items.Item[current].Caption:='General number';
\r
3078 GSM_Mobile :pbkform.ListView1.Items.Item[current].Caption:='Mobile';
\r
3079 GSM_Work :pbkform.ListView1.Items.Item[current].Caption:='Work';
\r
3080 GSM_Fax :pbkform.ListView1.Items.Item[current].Caption:='Fax';
\r
3081 GSM_Home :pbkform.ListView1.Items.Item[current].Caption:='Home';
\r
3083 pbkform.ListView1.Items.Item[current].Caption:=inttostr(pbk.SubEntries[i].NumberType);
\r
3085 GSM_Note :pbkform.ListView1.Items.Item[current].Caption:='Note';
\r
3086 GSM_Postal:pbkform.ListView1.Items.Item[current].Caption:='Address';
\r
3087 GSM_Email :pbkform.ListView1.Items.Item[current].Caption:='Email';
\r
3089 pbkform.ListView1.Items.Item[current].Caption:='Date';
\r
3090 pbkform.ListView1.Items.Item[current].SubItems.Add(DayOfweek2(pbk.SubEntries[i].Date.Day,pbk.SubEntries[i].Date.Month,pbk.SubEntries[i].Date.Year)+' '+inttostr2(pbk.SubEntries[i].Date.Day,2)+'-'+inttostr2(pbk.SubEntries[i].Date.Month,2)+'-'+inttostr(pbk.SubEntries[i].Date.Year)+' '+inttostr2(pbk.SubEntries[i].Date.Hour,2)+':'+inttostr2(pbk.SubEntries[i].Date.Minute,2)+':'+inttostr2(pbk.SubEntries[i].Date.Second,2));
\r
3093 if (pbk.SubEntries[i].EntryType<>GSM_Date) then
\r
3094 pbkform.ListView1.Items.Item[current].SubItems.Add(pbk.SubEntries[i].Number);
\r
3097 if (pbk.Group>=0) and (pbk.Group<=4) then
\r
3099 current:=current+1;
\r
3100 pbkform.ListView1.Items.Add;
\r
3101 pbkform.ListView1.Items.Item[current].Caption:='Caller group';
\r
3102 pbkform.ListView1.Items.Item[current].SubItems.Add(caller[pbk.Group+1].text);
\r
3104 pbkform.showmodal;
\r
3108 procedure TMainForm.Button18Click(Sender: TObject);
\r
3111 Name,Data:array[1..255] of char;
\r
3113 if smscinit=false then
\r
3115 MainForm.ListView6.Items.Clear;
\r
3120 if smscinit then break;
\r
3125 SMSEditForm.Memo1.Text:='';
\r
3128 SMSEditForm.ComboBox9.Text:='';
\r
3129 AddSMSEditSenderList;
\r
3132 GSM_GetSMSFolders(@SMSfolders);
\r
3133 SMSEditForm.ComboBox1.Items.Clear;
\r
3134 for i:=1 to SMSFolders.number do
\r
3136 SMSEditForm.ComboBox1.Items.Add(SMSfolders.folder[i].Name);
\r
3138 SMSEditForm.ComboBox1.ItemIndex:=0;
\r
3142 SMSEditForm.ComboBox2.Items.Clear;
\r
3143 SMSEditForm.ComboBox2.Items.Add('custom');
\r
3144 for i:=1 to smscnum-1 do
\r
3146 if SMSC2[i].Name[1]<>chr(0) then
\r
3147 SMSEditForm.ComboBox2.Items.Add('set '+inttostr(i)+' - '+SMSC2[i].Name)
\r
3149 SMSEditForm.ComboBox2.Items.Add('set '+inttostr(i));
\r
3151 SMSEditForm.ComboBox2.ItemIndex:=1;
\r
3153 SMSEditForm.TextSMSTabSheet.TabVisible:=false;
\r
3154 SMSEditForm.BitmapSMSTabSheet.TabVisible:=false;
\r
3155 SMSEditForm.RingtoneSMSTabSheet.TabVisible:=false;
\r
3156 SMSEditForm.CalendarSMSTabSheet.TabVisible:=false;
\r
3157 SMSEditForm.WAPBookTabSheet.TabVisible:=false;
\r
3158 SMSEditForm.WAPSettTabSheet.TabVisible:=false;
\r
3159 SMSEditForm.PBKSMSTabSheet.TabVisible:=false;
\r
3160 SMSEditForm.SMSEditPageControl.ActivePage:=Smseditform.BitmapSMSTabSheet;
\r
3162 SMSEditForm.Image1.Picture:=Image1.Picture;
\r
3164 SMSEditForm.Memo2.Text:='';
\r
3165 SMSEditForm.CheckBox5.Checked:=false;
\r
3166 if bitma.type2<>GSM_PictureImage then
\r
3168 SMSEditForm.Memo2.Visible:=false;
\r
3169 SMSEditForm.Label10.Visible:=false;
\r
3170 SMSEditForm.CheckBox5.Visible:=false;
\r
3171 SMSEditForm.CheckBox6.Visible:=false;
\r
3174 SMSEditForm.Memo2.Visible:=true;
\r
3175 SMSEditForm.Label10.Visible:=true;
\r
3176 SMSEditForm.CheckBox5.Visible:=true;
\r
3177 SMSEditForm.CheckBox6.Visible:=true;
\r
3180 SMSEditForm.Label9.Visible:=false;
\r
3181 SMSEditForm.ComboBox7.Visible:=false;
\r
3182 if bitma.type2=GSM_OperatorLogo then
\r
3184 SMSEditForm.Label9.Visible:=true;
\r
3185 SMSEditForm.ComboBox7.Visible:=true;
\r
3186 //preparing network names
\r
3190 GSM_GetNetworkData(i,@Name,@Data);
\r
3192 // conversion problems
\r
3193 Label14.Caption:=Name;
\r
3194 if strcomp(PChar(Label14.Caption),PChar('unknown'))=0 then break;
\r
3196 // conversion problems
\r
3197 Label14.Caption:=' - '+Label14.Caption;
\r
3198 for j:=6 downto 1 do
\r
3200 Label14.Caption:=Data[j]+Label14.Caption;
\r
3203 SMSEditForm.ComboBox7.Items.Add(Pchar(Label14.Caption));
\r
3206 //looking for current network
\r
3207 if GSMPhoneConnected then
\r
3209 // conversion problems
\r
3210 Label14.Caption:=MainForm.StatusBar1.Panels[1].Text;
\r
3211 Label14.Caption:=' - '+Label14.Caption;
\r
3212 for j:=6 downto 1 do
\r
3214 Label14.Caption:=GSMNetworkInfo.NetworkCode[j]+Label14.Caption;
\r
3220 if strcomp(pchar(SMSEditForm.ComboBox7.Items[i]),pchar(Label14.Caption))=0
\r
3224 SMSEditForm.ComboBox7.ItemIndex:=i;
\r
3228 if (GSM_GetModelFeature(FN_SMS)=F_SMS71) then
\r
3230 SMSEditForm.edit3.Visible:=true;
\r
3231 SMSEditForm.label14.Visible:=true;
\r
3234 SMSEditForm.edit3.Visible:=false;
\r
3235 SMSEditForm.label14.Visible:=false;
\r
3238 SMSEditForm.ShowModal;
\r
3241 procedure TMainForm.Button17Click(Sender: TObject);
\r
3245 if smscinit=false then
\r
3247 MainForm.ListView6.Items.Clear;
\r
3252 if smscinit then break;
\r
3257 SMSEditForm.Memo1.Text:='';
\r
3260 SMSEditForm.ComboBox9.Text:='';
\r
3261 AddSMSEditSenderList;
\r
3264 GSM_GetSMSFolders(@SMSfolders);
\r
3265 SMSEditForm.ComboBox1.Items.Clear;
\r
3266 for i:=1 to SMSFolders.number do
\r
3268 SMSEditForm.ComboBox1.Items.Add(SMSfolders.folder[i].Name);
\r
3270 SMSEditForm.ComboBox1.ItemIndex:=0;
\r
3274 SMSEditForm.ComboBox2.Items.Clear;
\r
3275 SMSEditForm.ComboBox2.Items.Add('custom');
\r
3276 for i:=1 to smscnum-1 do
\r
3278 if SMSC2[i].Name[1]<>chr(0) then
\r
3279 SMSEditForm.ComboBox2.Items.Add('set '+inttostr(i)+' - '+SMSC2[i].Name)
\r
3281 SMSEditForm.ComboBox2.Items.Add('set '+inttostr(i));
\r
3283 SMSEditForm.ComboBox2.ItemIndex:=1;
\r
3285 SMSEditForm.TextSMSTabSheet.TabVisible:=false;
\r
3286 SMSEditForm.BitmapSMSTabSheet.TabVisible:=false;
\r
3287 SMSEditForm.RingtoneSMSTabSheet.TabVisible:=false;
\r
3288 SMSEditForm.CalendarSMSTabSheet.TabVisible:=false;
\r
3289 SMSEditForm.WAPBookTabSheet.TabVisible:=false;
\r
3290 SMSEditForm.WAPSettTabSheet.TabVisible:=false;
\r
3291 SMSEditForm.PBKSMSTabSheet.TabVisible:=false;
\r
3292 SMSEditForm.SMSEditPageControl.ActivePage:=Smseditform.RingtoneSMSTabSheet;
\r
3294 if (GSM_GetModelFeature(FN_SMS)=F_SMS71) then
\r
3296 SMSEditForm.edit3.Visible:=true;
\r
3297 SMSEditForm.label14.Visible:=true;
\r
3300 SMSEditForm.edit3.Visible:=false;
\r
3301 SMSEditForm.label14.Visible:=false;
\r
3304 SMSEditForm.ShowModal;
\r
3307 procedure TMainForm.SMS1Click(Sender: TObject);
\r
3311 if smscinit=false then
\r
3313 MainForm.ListView6.Items.Clear;
\r
3318 if smscinit then break;
\r
3323 SMSEditForm.Memo1.Text:='';
\r
3326 SMSEditForm.ComboBox9.Text:='';
\r
3327 AddSMSEditSenderList;
\r
3330 GSM_GetSMSFolders(@SMSfolders);
\r
3331 SMSEditForm.ComboBox1.Items.Clear;
\r
3332 for i:=1 to SMSFolders.number do
\r
3334 SMSEditForm.ComboBox1.Items.Add(SMSfolders.folder[i].Name);
\r
3336 SMSEditForm.ComboBox1.ItemIndex:=0;
\r
3340 SMSEditForm.ComboBox2.Items.Clear;
\r
3341 SMSEditForm.ComboBox2.Items.Add('custom');
\r
3342 for i:=1 to smscnum-1 do
\r
3344 if SMSC2[i].Name[1]<>chr(0) then
\r
3345 SMSEditForm.ComboBox2.Items.Add('set '+inttostr(i)+' - '+SMSC2[i].Name)
\r
3347 SMSEditForm.ComboBox2.Items.Add('set '+inttostr(i));
\r
3349 SMSEditForm.ComboBox2.ItemIndex:=1;
\r
3351 SMSEditForm.TextSMSTabSheet.TabVisible:=false;
\r
3352 SMSEditForm.BitmapSMSTabSheet.TabVisible:=false;
\r
3353 SMSEditForm.RingtoneSMSTabSheet.TabVisible:=false;
\r
3354 SMSEditForm.CalendarSMSTabSheet.TabVisible:=false;
\r
3355 SMSEditForm.WAPBookTabSheet.TabVisible:=false;
\r
3356 SMSEditForm.WAPSettTabSheet.TabVisible:=false;
\r
3357 SMSEditForm.PBKSMSTabSheet.TabVisible:=false;
\r
3358 SMSEditForm.SMSEditPageControl.ActivePage:=Smseditform.CalendarSMSTabSheet;
\r
3360 calenda.Location:=calendarselect;
\r
3361 MainForm.Timer2.Enabled:=false;
\r
3362 GSM_GetCalendarNote(@calenda);
\r
3363 MainForm.Timer2.Enabled:=true;
\r
3365 if (GSM_GetModelFeature(FN_SMS)=F_SMS71) then
\r
3367 SMSEditForm.edit3.Visible:=true;
\r
3368 SMSEditForm.label14.Visible:=true;
\r
3371 SMSEditForm.edit3.Visible:=false;
\r
3372 SMSEditForm.label14.Visible:=false;
\r
3375 SMSEditForm.ShowModal;
\r
3378 procedure TMainForm.SMSSendSave1Click(Sender: TObject);
\r
3382 if smscinit=false then
\r
3384 MainForm.ListView6.Items.Clear;
\r
3389 if smscinit then break;
\r
3394 SMSEditForm.Memo1.Text:='';
\r
3397 SMSEditForm.ComboBox9.Text:='';
\r
3398 AddSMSEditSenderList;
\r
3401 GSM_GetSMSFolders(@SMSfolders);
\r
3402 SMSEditForm.ComboBox1.Items.Clear;
\r
3403 for i:=1 to SMSFolders.number do
\r
3405 SMSEditForm.ComboBox1.Items.Add(SMSfolders.folder[i].Name);
\r
3407 SMSEditForm.ComboBox1.ItemIndex:=0;
\r
3411 SMSEditForm.ComboBox2.Items.Clear;
\r
3412 SMSEditForm.ComboBox2.Items.Add('custom');
\r
3413 for i:=1 to smscnum-1 do
\r
3415 if SMSC2[i].Name[1]<>chr(0) then
\r
3416 SMSEditForm.ComboBox2.Items.Add('set '+inttostr(i)+' - '+SMSC2[i].Name)
\r
3418 SMSEditForm.ComboBox2.Items.Add('set '+inttostr(i));
\r
3420 SMSEditForm.ComboBox2.ItemIndex:=1;
\r
3422 SMSEditForm.TextSMSTabSheet.TabVisible:=false;
\r
3423 SMSEditForm.BitmapSMSTabSheet.TabVisible:=false;
\r
3424 SMSEditForm.RingtoneSMSTabSheet.TabVisible:=false;
\r
3425 SMSEditForm.CalendarSMSTabSheet.TabVisible:=false;
\r
3426 SMSEditForm.WAPBookTabSheet.TabVisible:=false;
\r
3427 SMSEditForm.WAPSettTabSheet.TabVisible:=false;
\r
3428 SMSEditForm.PBKSMSTabSheet.TabVisible:=false;
\r
3429 SMSEditForm.SMSEditPageControl.ActivePage:=Smseditform.PBKSMSTabSheet;
\r
3431 pbk.Location:=pbknumberentry-1;
\r
3432 case ComboBox1.ItemIndex of
\r
3433 1:pbk.MemoryType:=GMT_DC;
\r
3434 2:pbk.MemoryType:=GMT_MC;
\r
3435 3:pbk.MemoryType:=GMT_ON;
\r
3436 4:pbk.MemoryType:=GMT_ME;
\r
3437 5:pbk.MemoryType:=GMT_SM;
\r
3438 6:pbk.MemoryType:=GMT_RC;
\r
3440 MainForm.Timer2.Enabled:=false;
\r
3441 GSM_GetMemoryLocation(@pbk);
\r
3442 MainForm.Timer2.Enabled:=true;
\r
3444 if (GSM_GetModelFeature(FN_SMS)=F_SMS71) then
\r
3446 SMSEditForm.edit3.Visible:=true;
\r
3447 SMSEditForm.label14.Visible:=true;
\r
3450 SMSEditForm.edit3.Visible:=false;
\r
3451 SMSEditForm.label14.Visible:=false;
\r
3454 SMSEditForm.ShowModal;
\r
3457 procedure TMainForm.Button13Click(Sender: TObject);
\r
3459 ring:GSM_BinRingtone;
\r
3461 if OpenDialog1.Execute then
\r
3463 if GSM_ReadBinRingtoneFile(PChar(OpenDialog1.FileName),@ring)=0 then
\r
3465 Edit2.Text:=ring.Name;
\r
3472 procedure TMainForm.Button14Click(Sender: TObject);
\r
3475 mybinring:GSM_BinRingtone;
\r
3476 myring:GSM_Ringtone;
\r
3478 LogosRingForm.Label1.Caption:='Do you want to set ringtone ?';
\r
3479 LogosRingForm.ComboBox3.Visible:=true;
\r
3480 LogosRingForm.ComboBox3.Items.Clear();
\r
3481 MainForm.Timer2.Enabled:=false;
\r
3482 for i:=1 to GSM_GetModelFeature(FN_RINGNUMBER) do
\r
3484 mybinring.location:=i;
\r
3485 if (GSM_GetPhoneRingtone(@mybinring,@myring)=0) then
\r
3487 if GSM_GetModelFeature(FN_RINGTONES)=F_RING_SM then
\r
3489 LogosRingForm.ComboBox3.Items.Add(myring.name);
\r
3492 LogosRingForm.ComboBox3.Items.Add(mybinring.name);
\r
3495 LogosRingForm.ComboBox3.Items.Add('Location '+inttostr(i));
\r
3497 MainForm.Timer2.Enabled:=true;
\r
3498 LogosRingForm.ComboBox3.ItemIndex:=0;
\r
3499 LogosRingForm.ShowModal;
\r
3500 if LogosRingForm.ComboBox3.Visible then
\r
3502 binring.location:=LogosRingForm.ComboBox3.ItemIndex+1;
\r
3503 MainForm.Timer2.Enabled:=false;
\r
3504 GSM_SetBinRingtone(@binring);
\r
3505 MainForm.Timer2.Enabled:=true;
\r
3509 procedure TMainForm.ConfigTabSheetHide(Sender: TObject);
\r
3511 MyIniFile: TIniFile;
\r
3513 if MessageDlg('Do you want to save config ?',
\r
3514 mtConfirmation, [mbYes, mbNo], 0) = mrYes then
\r
3516 MyIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'\gnokiirc');
\r
3517 case MainForm.ComboBox4.ItemIndex of
\r
3518 0:MyIniFile.WriteString('global', 'connection', 'mbus');
\r
3519 1:MyIniFile.WriteString('global', 'connection', 'fbus');
\r
3520 2:MyIniFile.WriteString('global', 'connection', 'dlr3');
\r
3521 3:MyIniFile.WriteString('global', 'connection', 'infrared');
\r
3523 MyIniFile.WriteString('global', 'model', MainForm.ComboBox6.Text);
\r
3524 MyIniFile.WriteString('global', 'port', MainForm.ComboBox5.Text);
\r
3525 if MainForm.CheckBox2.Checked then
\r
3526 MyIniFile.WriteString('global', 'synchronizetime', 'yes')
\r
3528 MyIniFile.WriteString('global', 'synchronizetime', 'no');
\r
3533 procedure TMainForm.ConfigTabSheetShow(Sender: TObject);
\r
3535 MyIniFile: TIniFile;
\r
3539 MyIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'\gnokiirc');
\r
3541 x:=MyInifile.ReadString('global', 'connection', 'fbus');
\r
3542 MainForm.ComboBox4.ItemIndex:=0;
\r
3543 if x='fbus' then MainForm.ComboBox4.ItemIndex:=1;
\r
3544 if x='dlr3' then MainForm.ComboBox4.ItemIndex:=2;
\r
3545 if x='infrared' then MainForm.ComboBox4.ItemIndex:=3;
\r
3547 x:=MyInifile.ReadString('global', 'port', 'com2:');
\r
3548 MainForm.ComboBox5.ItemIndex:=0;
\r
3549 for i:=1 to MainForm.ComboBox5.Items.Count do
\r
3551 if MainForm.ComboBox5.Items.Strings[i-1]=x then
\r
3552 MainForm.ComboBox5.ItemIndex:=i-1;
\r
3555 x:=MyInifile.ReadString('global', 'model', 'auto');
\r
3556 MainForm.ComboBox6.ItemIndex:=0;
\r
3557 for i:=1 to MainForm.ComboBox6.Items.Count do
\r
3559 if MainForm.ComboBox6.Items.Strings[i-1]=x then
\r
3560 MainForm.ComboBox6.ItemIndex:=i-1;
\r
3563 x:=MyInifile.ReadString('global', 'synchronizetime', 'no');
\r
3565 MainForm.CheckBox2.Checked:=True
\r
3567 MainForm.CheckBox2.Checked:=False;
\r
3571 procedure TMainForm.Timer2Timer(Sender: TObject);
\r
3573 if SparkyThread.Suspended then SparkyThread.Resume;
\r
3574 Timer2.Interval:=2000;
\r
3577 procedure TMainForm.AboutTabSheetShow(Sender: TObject);
\r
3579 xxx:array[1..256] of char;
\r
3581 GSM_GetDLLVersion(@xxx);
\r
3582 Label20.Caption:=xxx;
\r
3585 procedure SaveSMSOffline;
\r
3586 var F:file of GSM_SMSMessage;
\r
3589 AssignFile(F, 'gnokiisms');
\r
3591 for i:=1 to SMSOfflineNumber do
\r
3593 Write(f,SMSOffline[i]);
\r
3598 procedure ReadSMSOffline;
\r
3599 var F:file of GSM_SMSMessage;
\r
3601 MainForm.ListView10.items.Clear;
\r
3602 AssignFile(F, 'gnokiisms');
\r
3604 if (ioresult=0) then
\r
3607 smsofflinenumber:=0;
\r
3608 while not eof(f) do
\r
3610 smsofflinenumber:=smsofflinenumber+1;
\r
3611 read(f,smsoffline[smsofflinenumber]);
\r
3612 AddSMSInfo(MainForm.ListView10,smsoffline[smsofflinenumber]);
\r
3618 procedure TMainForm.PCSMSTabSheetShow(Sender: TObject);
\r
3623 procedure TMainForm.CopytoPC1Click(Sender: TObject);
\r
3625 SMSofflinenumber:=smsofflinenumber+1;
\r
3626 SMSoffline[SMSofflinenumber]:=SMS[smsnumindex];
\r
3630 procedure TMainForm.ListView10SelectItem(Sender: TObject; Item: TListItem;
\r
3631 Selected: Boolean);
\r
3633 AddSMSDescription(SMSOffline[Item.Index+1],MainForm.Memo4,MainForm.Memo5);
\r
3636 procedure TMainForm.PCSMSPopupMenuPopup(Sender: TObject);
\r
3638 SendSave1.Enabled:=False;
\r
3639 if GSMPhoneConnected then SendSave1.Enabled:=True;
\r
3641 Delete3.Enabled:=false;
\r
3642 if listview10.selected<>nil then Delete3.Enabled:=True;
\r
3645 procedure TMainForm.Delete3Click(Sender: TObject);
\r
3649 if Application.MessageBox('Do you want to delete this SMS ?','Question',MB_YESNO)=IDYES then
\r
3651 for i:=MainForm.ListView10.ItemIndex to smsofflinenumber-1 do
\r
3653 SMSOffline[i]:=SMSOffline[i+1];
\r
3655 Smsofflinenumber:=smsofflinenumber-1;
\r
3661 procedure TMainForm.SendSave1Click(Sender: TObject);
\r
3664 GSM_GetSMSFolders(@SMSfolders);
\r
3665 MainForm.ComboBox3.Items.Clear();
\r
3666 for i:=1 to SMSfolders.number do
\r
3668 MainForm.ComboBox3.Items.Add(SMSfolders.folder[i].Name);
\r
3670 MainForm.ComboBox3.ItemIndex:=0;
\r
3671 setsmslocation:=0;
\r
3672 SendSaveSMS(SMSOffline[MainForm.ListView10.ItemIndex+1]);
\r
3676 procedure EndWAPBookmarkThread;
\r
3678 if (WAPBookmarkThread<>nil) then
\r
3680 WAPBookmarkThread.Terminate();
\r
3681 MainForm.Timer2.Enabled:=true;
\r
3682 WAPBookmarkThread:=nil;
\r
3686 procedure TWAPBookmarkThread.Execute;
\r
3688 bookmark:GSM_WAPBookmark;
\r
3691 while not Terminated do
\r
3693 bookmark.location:=bookmarknum;
\r
3694 i:=GSM_GetWAPBookmark(@bookmark);
\r
3695 MainForm.ListView9.Items.Add;
\r
3696 MainForm.ListView9.Items.Item[bookmarknum-1].Caption:=inttostr(bookmarknum);
\r
3699 MainForm.ListView9.Items.Item[bookmarknum-1].Subitems.Add(bookmark.title);
\r
3700 MainForm.ListView9.Items.Item[bookmarknum-1].Subitems.Add(bookmark.adress);
\r
3703 MainForm.ListView9.Items.Item[bookmarknum-1].Subitems.Add('');
\r
3705 bookmarknum:=bookmarknum+1;
\r
3706 if bookmarknum=15 then EndWAPBookmarkThread;
\r
3710 procedure TMainForm.WapBookTabSheetHide(Sender: TObject);
\r
3712 EndWAPBookmarkThread;
\r
3715 procedure TMainForm.WapBookTabSheetShow(Sender: TObject);
\r
3717 if GSMPhoneConnected then
\r
3719 if GSM_GetModelFeature(FN_WAP)<>0 then
\r
3721 GroupBox17.Ctl3D:=true;
\r
3722 ListView9.Ctl3D:=true;
\r
3723 ListView9.Enabled:=true;
\r
3725 MainForm.ListView9.Items.Clear;
\r
3726 MainForm.Timer2.Enabled:=false;
\r
3727 WAPBookmarkThread:=TWAPBookmarkThread.Create(false);
\r
3730 GroupBox17.Ctl3D:=false;
\r
3731 ListView9.Ctl3D:=false;
\r
3732 ListView9.Enabled:=false;
\r
3737 procedure TMainForm.ComboBox7Change(Sender: TObject);
\r
3739 settings:GSM_WAPSettings;
\r
3741 if combobox7.ItemIndex>0 then
\r
3743 settings.location:=combobox7.ItemIndex;
\r
3744 MainForm.Timer2.Enabled:=false;
\r
3745 GSM_GetWAPSettings(@settings);
\r
3746 MainForm.Timer2.Enabled:=true;
\r
3748 if (settings.title[1]<>chr(0)) then
\r
3749 Edit6.Text:=settings.title
\r
3751 edit6.Text:='set '+inttostr(combobox7.ItemIndex);
\r
3753 edit8.Text:=settings.homepage;
\r
3755 combobox10.itemindex:=1;
\r
3756 if settings.iscontinuous<>0 then combobox10.Itemindex:=0;
\r
3758 combobox9.itemindex:=1;
\r
3759 if settings.issecurity<>0 then combobox9.Itemindex:=0;
\r
3761 if (settings.bearer>=0) and (settings.bearer<3) then
\r
3763 combobox8.ItemIndex:=settings.bearer;
\r
3765 Label27.enabled:=false;
\r
3766 Label28.enabled:=false;
\r
3767 Label29.enabled:=false;
\r
3768 label30.enabled:=false;
\r
3769 label31.enabled:=false;
\r
3770 label32.enabled:=false;
\r
3771 label33.enabled:=false;
\r
3772 label34.enabled:=false;
\r
3773 label35.enabled:=false;
\r
3774 label36.enabled:=false;
\r
3775 label37.enabled:=false;
\r
3776 edit9.enabled:=false;
\r
3777 edit10.enabled:=false;
\r
3778 edit11.enabled:=false;
\r
3779 edit12.enabled:=false;
\r
3780 edit13.enabled:=false;
\r
3781 edit14.enabled:=false;
\r
3782 edit15.enabled:=false;
\r
3783 combobox11.enabled:=false;
\r
3784 combobox12.enabled:=false;
\r
3785 combobox13.enabled:=false;
\r
3786 combobox14.enabled:=false;
\r
3788 case settings.bearer of
\r
3789 WAPSETTINGS_BEARER_SMS:
\r
3791 label27.enabled:=true;
\r
3792 edit9.text:=settings.server;
\r
3793 edit9.enabled:=true;
\r
3795 label28.enabled:=true;
\r
3796 edit10.text:=settings.service;
\r
3797 edit10.enabled:=true;
\r
3799 WAPSETTINGS_BEARER_DATA:
\r
3801 label29.enabled:=true;
\r
3802 edit11.text:=settings.dialup;
\r
3803 edit11.enabled:=true;
\r
3805 label34.enabled:=true;
\r
3806 edit13.text:=settings.user;
\r
3807 edit13.enabled:=true;
\r
3809 label35.enabled:=true;
\r
3810 edit14.text:=settings.password;
\r
3811 edit14.enabled:=true;
\r
3813 label30.enabled:=true;
\r
3814 edit12.text:=settings.ipaddress;
\r
3815 edit12.enabled:=true;
\r
3817 label31.enabled:=true;
\r
3818 combobox11.enabled:=true;
\r
3819 combobox11.ItemIndex:=0;
\r
3820 if settings.isnormalauthentication=0 then
\r
3821 combobox11.ItemIndex:=1;
\r
3823 label32.enabled:=true;
\r
3824 combobox12.enabled:=true;
\r
3825 combobox12.ItemIndex:=0;
\r
3826 if settings.isISDNcall=0 then
\r
3827 combobox12.ItemIndex:=1;
\r
3829 label33.enabled:=true;
\r
3830 combobox13.enabled:=true;
\r
3831 combobox13.ItemIndex:=1;
\r
3832 if settings.isspeed14400=0 then
\r
3833 combobox13.ItemIndex:=0;
\r
3835 WAPSETTINGS_BEARER_USSD:
\r
3837 label36.enabled:=true;
\r
3838 edit15.text:=settings.code;
\r
3839 edit15.enabled:=true;
\r
3841 label37.enabled:=true;
\r
3842 combobox14.Enabled:=true;
\r
3843 combobox14.ItemIndex:=1;
\r
3844 if settings.isIP=0 then
\r
3846 combobox14.ItemIndex:=1;
\r
3848 label28.enabled:=true;
\r
3849 edit10.text:=settings.service;
\r
3850 edit10.enabled:=true;
\r
3853 label30.enabled:=true;
\r
3854 edit12.text:=settings.ipaddress;
\r
3855 edit12.enabled:=true;
\r
3863 procedure TMainForm.Button19Click(Sender: TObject);
\r
3865 Divert:GSM_CallDivert;
\r
3867 MainForm.Timer2.Enabled:=false;
\r
3869 divert.DType:=GSM_CDV_Busy;
\r
3870 divert.ctype:=GSM_CDV_VoiceCalls;
\r
3871 divert.Operation:=GSM_CDV_Query;
\r
3872 if gsm_calldivertoperation(@divert)=0 then
\r
3874 if divert.enabled=0 then
\r
3876 Label38.enabled:=false;
\r
3877 edit16.enabled:=false;
\r
3878 edit16.Text:='Not active';
\r
3881 Label38.enabled:=true;
\r
3882 edit16.enabled:=true;
\r
3883 edit16.Text:=divert.Number;
\r
3887 divert.DType:=GSM_CDV_NoAnswer;
\r
3888 divert.ctype:=GSM_CDV_VoiceCalls;
\r
3889 divert.Operation:=GSM_CDV_Query;
\r
3890 if gsm_calldivertoperation(@divert)=0 then
\r
3892 if divert.enabled=0 then
\r
3894 Label39.enabled:=false;
\r
3895 edit17.enabled:=false;
\r
3896 edit17.Text:='Not active';
\r
3897 label40.Enabled:=false;
\r
3898 combobox15.Enabled:=false;
\r
3901 Label39.enabled:=true;
\r
3902 edit17.enabled:=true;
\r
3903 edit17.Text:=divert.Number;
\r
3904 label40.Enabled:=true;
\r
3905 combobox15.Enabled:=true;
\r
3906 case divert.timeout of
\r
3907 5:combobox15.ItemIndex:=0;
\r
3908 10:combobox15.ItemIndex:=1;
\r
3909 15:combobox15.ItemIndex:=2;
\r
3910 20:combobox15.ItemIndex:=3;
\r
3911 25:combobox15.ItemIndex:=4;
\r
3912 30:combobox15.ItemIndex:=5;
\r
3917 divert.DType:=GSM_CDV_OutOfreach;
\r
3918 divert.ctype:=GSM_CDV_VoiceCalls;
\r
3919 divert.Operation:=GSM_CDV_Query;
\r
3920 if gsm_calldivertoperation(@divert)=0 then
\r
3922 if divert.enabled=0 then
\r
3924 Label41.enabled:=false;
\r
3925 edit18.enabled:=false;
\r
3926 edit18.Text:='Not active';
\r
3929 Label41.enabled:=true;
\r
3930 edit18.enabled:=true;
\r
3931 edit18.Text:=divert.Number;
\r
3935 MainForm.Timer2.Enabled:=true;
\r
3938 procedure TMainForm.Button20Click(Sender: TObject);
\r
3940 Divert:GSM_CallDivert;
\r
3942 MainForm.Timer2.Enabled:=false;
\r
3944 divert.DType:=GSM_CDV_AllTypes;
\r
3945 divert.ctype:=GSM_CDV_AllCalls;
\r
3946 divert.Operation:=GSM_CDV_Erasure;
\r
3947 gsm_calldivertoperation(@divert);
\r
3949 MainForm.Timer2.Enabled:=true;
\r
3953 procedure ReadCalendarOffline;
\r
3954 var F:file of GSM_calendarnote;
\r
3956 MainForm.ListView11.items.Clear;
\r
3957 AssignFile(F, 'gnokiicalendar');
\r
3959 if (ioresult=0) then
\r
3961 calendarofflinenumber:=0;
\r
3962 while not eof(f) do
\r
3964 calendarofflinenumber:=calendarofflinenumber+1;
\r
3965 read(f,calendaroffline[calendarofflinenumber]);
\r
3966 AddCalendarNote(calendaroffline[calendarofflinenumber],mainform.ListView11);
\r
3972 procedure TMainForm.PCOfflineTabSheetShow(Sender: TObject);
\r
3975 Label43.Caption:=inttostr(smsofflinenumber);
\r
3976 ReadCalendarOffline;
\r
3977 Label45.Caption:=inttostr(calendarofflinenumber);
\r
3980 procedure SaveCalendarOffline;
\r
3981 var F:file of GSM_CalendarNote;
\r
3984 AssignFile(F, 'gnokiicalendar');
\r
3986 for i:=1 to CalendarOfflineNumber do
\r
3988 Write(f,CalendarOffline[i]);
\r
3993 procedure TMainForm.PCCalendarTabSheetShow(Sender: TObject);
\r
3995 ReadCalendarOffline;
\r
3998 procedure TMainForm.CopytoPC2Click(Sender: TObject);
\r
4000 setcalendarnote.Location:=calendarselect;
\r
4001 mainform.Timer2.Enabled:=false;
\r
4002 GSM_GetCalendarNote(@setcalendarnote);
\r
4003 mainform.Timer2.Enabled:=true;
\r
4004 Calendarofflinenumber:=calendarofflinenumber+1;
\r
4005 Calendaroffline[Calendarofflinenumber]:=setcalendarnote;
\r
4006 SaveCalendarOffline;
\r
4009 procedure TMainForm.Delete5Click(Sender: TObject);
\r
4013 if Application.MessageBox('Do you want to delete this note ?','Question',MB_YESNO)=IDYES then
\r
4015 for i:=MainForm.ListView11.ItemIndex to calendarofflinenumber-1 do
\r
4017 CalendarOffline[i]:=CalendarOffline[i+1];
\r
4019 Calendarofflinenumber:=calendarofflinenumber-1;
\r
4020 SaveCalendarOffline;
\r
4021 ReadCalendarOffline;
\r
4025 procedure TMainForm.Copytocalendar1Click(Sender: TObject);
\r
4027 if not readcalendar then
\r
4029 application.MessageBox('Please read first calendar notes from phone','info',mb_ok);
\r
4031 setcalendarnote:=calendaroffline[mainform.listview11.itemindex+1];
\r
4032 setcalendarnote.Location:=MainForm.ListView4.Items.Count+1;
\r
4038 procedure TMainForm.PCCalendarPopupMenuPopup(Sender: TObject);
\r
4040 CopyTocalendar1.Enabled:=False;
\r
4041 if (GSMPhoneConnected) and (GSM_GetModelFeature(FN_Calendar)<>0)
\r
4042 and (listview11.selected<>nil) then copytocalendar1.Enabled:=True;
\r
4044 Delete5.Enabled:=false;
\r
4045 if listview11.selected<>nil then Delete5.Enabled:=True;
\r
4048 procedure TMainForm.Savebackuptofile1Click(Sender: TObject);
\r
4050 PhoneBackup.PhonePhonebookUsed:=0;
\r
4051 PhoneBackup.SIMPhonebookUsed:=0;
\r
4052 PhoneBackup.CallerAvailable:=0;
\r
4053 PhoneBackup.StartupLogoAvailable:=0;
\r
4054 PhoneBackup.StartupText.text[1]:=chr(0);
\r
4055 PhoneBackup.OperatorLogoAvailable:=0;
\r
4056 PhoneBackup.SpeedAvailable:=0;
\r
4058 BackupForm.CheckBox3.Enabled:=true;
\r
4059 BackupForm.CheckBox4.Enabled:=true;
\r
4060 BackupForm.CheckBox2.Enabled:=true;
\r
4061 BackupForm.CheckBox1.Enabled:=true;
\r
4062 BackupForm.CheckBox5.Enabled:=true;
\r
4064 BackupForm.GroupBox1.Caption:=' What do you want to backup ? ';
\r
4065 PhoneBackupAvailable:=True;
\r
4066 BackupForm.ListBox1.ItemIndex:=0;
\r
4067 BackupForm.GroupBox2.Visible:=true;
\r
4068 BackupForm.ShowModal;
\r
4069 if PhoneBackupAvailable then
\r
4071 BackupProgressForm.ShowModal;
\r
4075 procedure TMainForm.Restorebackupfromfile1Click(Sender: TObject);
\r
4077 if OpenDialog1.Execute then
\r
4079 if GSM_ReadBackupFile(PChar(OpenDialog1.FileName),@phonebackup)=0 then
\r
4081 BackupForm.CheckBox3.Enabled:=true;
\r
4082 if PhoneBackup.CallerAvailable=0 then
\r
4083 BackupForm.CheckBox3.Enabled:=false;
\r
4085 BackupForm.CheckBox4.Enabled:=true;
\r
4086 if PhoneBackup.OperatorLogoAvailable=0 then
\r
4087 BackupForm.CheckBox4.Enabled:=false;
\r
4089 BackupForm.CheckBox2.Enabled:=true;
\r
4090 if PhoneBackup.PhonePhonebookUsed=0 then
\r
4091 BackupForm.CheckBox2.Enabled:=false;
\r
4093 BackupForm.CheckBox1.Enabled:=true;
\r
4094 if PhoneBackup.SIMPhonebookUsed=0 then
\r
4095 BackupForm.CheckBox1.Enabled:=false;
\r
4097 BackupForm.CheckBox5.Enabled:=true;
\r
4099 BackupForm.GroupBox1.Caption:=' What do you want to restore ? ';
\r
4100 PhoneBackupAvailable:=true;
\r
4101 BackupForm.GroupBox2.Visible:=false;
\r
4102 BackupForm.ShowModal;
\r
4103 if PhoneBackupAvailable then
\r
4105 PhoneBackupAvailable:=false;
\r
4106 BackupProgressForm.ShowModal;
\r
4112 procedure TMainForm.PBKPopupMenuPopup(Sender: TObject);
\r
4114 Savephonebooktofileanotherapplication1.enabled:=false;
\r
4115 Delete4.enabled:=false;
\r
4116 Edit19.Enabled:=false;
\r
4117 Edit7.Enabled:=false;
\r
4118 SMSSendSave1.Enabled:=false;
\r
4119 copyphonebooktopc1.Enabled:=false;
\r
4120 if GSMPhoneConnected then
\r
4122 if (pbkofflinenumber<>0) then copyphonebooktopc1.Enabled:=true;
\r
4123 if (ComboBox1.ItemIndex=4) or (ComboBox1.ItemIndex=5) then
\r
4125 Savephonebooktofileanotherapplication1.enabled:=true;
\r
4126 if listview1.Selected<>nil then
\r
4128 Delete4.enabled:=true;
\r
4129 Edit19.Enabled:=true;
\r
4132 if listview1.Selected<>nil then
\r
4134 SMSSendSave1.Enabled:=true;
\r
4135 Edit7.Enabled:=true;
\r
4140 procedure TMainForm.Savephonebooktofileanotherapplication1Click(
\r
4143 PhoneBackup.CallerAvailable:=0;
\r
4144 PhoneBackup.StartupLogoAvailable:=0;
\r
4145 PhoneBackup.StartupText.text[1]:=chr(0);
\r
4146 PhoneBackup.OperatorLogoAvailable:=0;
\r
4148 BackupForm.CheckBox3.Enabled:=false;
\r
4149 BackupForm.CheckBox4.Enabled:=false;
\r
4151 BackupForm.CheckBox2.Enabled:=true;
\r
4152 if PhoneBackup.PhonePhonebookUsed=0 then
\r
4153 BackupForm.CheckBox2.Enabled:=false;
\r
4155 BackupForm.CheckBox1.Enabled:=true;
\r
4156 if PhoneBackup.SIMPhonebookUsed=0 then
\r
4157 BackupForm.CheckBox1.Enabled:=false;
\r
4159 BackupForm.CheckBox5.Enabled:=false;
\r
4161 BackupForm.GroupBox1.Caption:=' What do you want to backup ? ';
\r
4162 PhoneBackupAvailable:=True;
\r
4163 BackupForm.ListBox1.ItemIndex:=0;
\r
4164 BackupForm.GroupBox2.Visible:=true;
\r
4165 BackupForm.ShowModal;
\r
4166 if PhoneBackupAvailable then
\r
4168 if MainForm.SaveDialog1.Execute then
\r
4170 GSM_SaveBackupFile(PChar(MainForm.SaveDialog1.FileName),@phonebackup);
\r
4175 procedure TMainForm.ListView4DblClick(Sender: TObject);
\r
4177 // if (GSMPhoneConnected) and (ListView4.Selected<>nil) then
\r
4178 // Edit3Click(Sender);
\r
4181 procedure TMainForm.Edit19Click(Sender: TObject);
\r
4184 num_num,text_num:integer;
\r
4186 if listview1.Selected<>nil then
\r
4188 PBKEditForm.ComboBox1.ItemIndex:=1;
\r
4189 PBKEditForm.COmboBox2.Items:=PBKEditForm.COmboBox1.Items;
\r
4190 PBKEditForm.ComboBox2.ItemIndex:=1;
\r
4191 PBKEditForm.COmboBox3.Items:=PBKEditForm.COmboBox1.Items;
\r
4192 PBKEditForm.ComboBox3.ItemIndex:=1;
\r
4193 PBKEditForm.COmboBox4.Items:=PBKEditForm.COmboBox1.Items;
\r
4194 PBKEditForm.ComboBox4.ItemIndex:=1;
\r
4195 PBKEditForm.COmboBox5.Items:=PBKEditForm.COmboBox1.Items;
\r
4196 PBKEditForm.ComboBox5.ItemIndex:=1;
\r
4197 PBKEditForm.ComboBox6.ItemIndex:=0;
\r
4198 PBKEditForm.COmboBox7.Items:=PBKEditForm.COmboBox6.Items;
\r
4199 PBKEditForm.ComboBox7.ItemIndex:=0;
\r
4200 PbkEditForm.Edit2.Text:='';
\r
4204 pbk.Location:=pbknumberentry;
\r
4205 case ComboBox1.ItemIndex of
\r
4206 4:pbk.MemoryType:=GMT_ME;
\r
4207 5:pbk.MemoryType:=GMT_SM;
\r
4209 GSM_GetMemoryLocation(@pbk);
\r
4211 pbkeditform.ComboBox1.enabled:=false;
\r
4212 pbkeditform.ComboBox2.enabled:=false;
\r
4213 pbkeditform.ComboBox3.enabled:=false;
\r
4214 pbkeditform.ComboBox4.enabled:=false;
\r
4215 pbkeditform.ComboBox5.enabled:=false;
\r
4216 pbkeditform.ComboBox6.enabled:=false;
\r
4217 pbkeditform.ComboBox7.enabled:=false;
\r
4218 pbkeditform.Edit3.enabled:=false;
\r
4219 pbkeditform.Edit4.enabled:=false;
\r
4220 pbkeditform.Edit5.enabled:=false;
\r
4221 pbkeditform.Edit6.enabled:=false;
\r
4222 pbkeditform.Edit7.enabled:=false;
\r
4223 pbkeditform.Edit8.enabled:=false;
\r
4224 PbkEditForm.Edit3.Text:='Not available';
\r
4225 PbkEditForm.Edit4.Text:='Not available';
\r
4226 PbkEditForm.Edit5.Text:='Not available';
\r
4227 PbkEditForm.Edit6.Text:='Not available';
\r
4228 PbkEditForm.Edit7.Text:='Not available';
\r
4229 PbkEditForm.Edit8.Text:='Not available';
\r
4230 if (pbk.MemoryType=GMT_ME) and
\r
4231 (GSM_GetModelFeature(FN_PHONEBOOK)=F_PBK71INT) then
\r
4233 pbkeditform.ComboBox1.enabled:=true;
\r
4234 pbkeditform.ComboBox2.enabled:=true;
\r
4235 pbkeditform.ComboBox3.enabled:=true;
\r
4236 pbkeditform.ComboBox4.enabled:=true;
\r
4237 pbkeditform.ComboBox5.enabled:=true;
\r
4238 pbkeditform.ComboBox6.enabled:=true;
\r
4239 pbkeditform.ComboBox7.enabled:=true;
\r
4240 pbkeditform.Edit3.enabled:=true;
\r
4241 pbkeditform.Edit4.enabled:=true;
\r
4242 pbkeditform.Edit5.enabled:=true;
\r
4243 pbkeditform.Edit6.enabled:=true;
\r
4244 pbkeditform.Edit7.enabled:=true;
\r
4245 pbkeditform.Edit8.enabled:=true;
\r
4246 PbkEditForm.Edit3.Text:='';
\r
4247 PbkEditForm.Edit4.Text:='';
\r
4248 PbkEditForm.Edit5.Text:='';
\r
4249 PbkEditForm.Edit6.Text:='';
\r
4250 PbkEditForm.Edit7.Text:='';
\r
4251 PbkEditForm.Edit8.Text:='';
\r
4254 pbkeditform.Label2.Enabled:=true;
\r
4255 pbkeditform.ComboBox8.Enabled:=true;
\r
4256 if (GSM_GetModelFeature(FN_CALLERGROUPS)=0) then
\r
4258 pbkeditform.Label2.Enabled:=false;
\r
4259 pbkeditform.ComboBox8.Enabled:=false;
\r
4262 pbkeditform.Edit1.Text:=pbk.name;
\r
4263 if (pbk.Number[1]<>chr(0)) then
\r
4265 pbkeditform.ComboBox1.ItemIndex:=1;
\r
4266 pbkeditform.Edit2.Text:=pbk.number;
\r
4267 num_num:=num_num+1;
\r
4269 for i:=1 to pbk.SubEntriesCount do
\r
4271 case pbk.SubEntries[i].EntryType of
\r
4275 case pbk.SubEntries[i].NumberType of
\r
4276 GSM_General :j:=1;
\r
4277 GSM_General2:j:=1;
\r
4285 pbkeditform.ComboBox1.ItemIndex:=j;
\r
4286 pbkeditform.edit2.text:=pbk.SubEntries[i].Number;
\r
4289 pbkeditform.ComboBox2.ItemIndex:=j;
\r
4290 pbkeditform.edit3.text:=pbk.SubEntries[i].Number;
\r
4293 pbkeditform.ComboBox3.ItemIndex:=j;
\r
4294 pbkeditform.edit4.text:=pbk.SubEntries[i].Number;
\r
4297 pbkeditform.ComboBox4.ItemIndex:=j;
\r
4298 pbkeditform.edit5.text:=pbk.SubEntries[i].Number;
\r
4301 pbkeditform.ComboBox5.ItemIndex:=j;
\r
4302 pbkeditform.edit6.text:=pbk.SubEntries[i].Number;
\r
4305 num_num:=num_num+1;
\r
4312 pbkeditform.ComboBox6.ItemIndex:=j;
\r
4313 pbkeditform.edit7.text:=pbk.SubEntries[i].Number;
\r
4316 pbkeditform.ComboBox7.ItemIndex:=j;
\r
4317 pbkeditform.edit8.text:=pbk.SubEntries[i].Number;
\r
4320 text_num:=text_num+1;
\r
4327 pbkeditform.ComboBox6.ItemIndex:=j;
\r
4328 pbkeditform.edit7.text:=pbk.SubEntries[i].Number;
\r
4331 pbkeditform.ComboBox7.ItemIndex:=j;
\r
4332 pbkeditform.edit8.text:=pbk.SubEntries[i].Number;
\r
4335 text_num:=text_num+1;
\r
4342 pbkeditform.ComboBox6.ItemIndex:=j;
\r
4343 pbkeditform.edit7.text:=pbk.SubEntries[i].Number;
\r
4346 pbkeditform.ComboBox7.ItemIndex:=j;
\r
4347 pbkeditform.edit8.text:=pbk.SubEntries[i].Number;
\r
4350 text_num:=text_num+1;
\r
4356 pbkeditform.ComboBox8.items.clear;
\r
4357 pbkeditform.ComboBox8.items.add('Not assigned');
\r
4360 pbkeditform.ComboBox8.items.add(caller[i].text);
\r
4362 pbkeditform.ComboBox8.itemindex:=0;
\r
4363 if (GSM_GetModelFeature(FN_CALLERGROUPS)<>0) then
\r
4365 if (pbk.Group>=0) and (pbk.Group<=4) then
\r
4367 pbkeditform.ComboBox8.itemindex:=pbk.Group+1;
\r
4371 PbkEditForm.ShowModal;
\r
4376 procedure TMainForm.Delete4Click(Sender: TObject);
\r
4378 if Application.MessageBox('Do you want to delete this phonebook entry ?','Question',MB_YESNO)=IDYES then
\r
4381 pbk.Location:=pbknumberentry;
\r
4382 case ComboBox1.ItemIndex of
\r
4383 4:pbk.MemoryType:=GMT_ME;
\r
4384 5:pbk.MemoryType:=GMT_SM;
\r
4387 MainForm.Timer2.Enabled:=false;
\r
4388 GSM_GetMemoryLocation(@pbk);
\r
4390 pbk.SubEntriesCount:=0;
\r
4391 pbk.Name[1]:=chr(0);
\r
4392 pbk.Number[1]:=chr(0);
\r
4393 GSM_WritePhonebookLocation(@pbk);
\r
4394 MainForm.Timer2.Enabled:=true;
\r
4395 MainForm.ComboBox1Change(nil);
\r
4400 procedure TMainForm.Button22Click(Sender: TObject);
\r
4403 mybinring:GSM_BinRingtone;
\r
4404 myring:GSM_Ringtone;
\r
4406 LogosRingForm.Label1.Caption:='Do you want to get ringtone ?';
\r
4407 LogosRingForm.ComboBox3.Visible:=true;
\r
4408 LogosRingForm.ComboBox3.Items.Clear();
\r
4409 MainForm.Timer2.Enabled:=false;
\r
4410 for i:=1 to GSM_GetModelFeature(FN_RINGNUMBER) do
\r
4412 mybinring.location:=i;
\r
4413 if (GSM_GetPhoneRingtone(@mybinring,@myring)=0) then
\r
4415 if GSM_GetModelFeature(FN_RINGTONES)=F_RING_SM then
\r
4417 LogosRingForm.ComboBox3.Items.Add(myring.name);
\r
4420 LogosRingForm.ComboBox3.Items.Add(mybinring.name);
\r
4423 LogosRingForm.ComboBox3.Items.Add('Location '+inttostr(i));
\r
4425 MainForm.Timer2.Enabled:=true;
\r
4426 LogosRingForm.ComboBox3.ItemIndex:=0;
\r
4427 LogosRingForm.ShowModal;
\r
4428 if LogosRingForm.ComboBox3.Visible then
\r
4430 mybinring.location:=LogosRingForm.ComboBox3.ItemIndex+1;
\r
4431 MainForm.Timer2.Enabled:=false;
\r
4432 if (GSM_GetPhoneRingtone(@mybinring,@myring)=0) then
\r
4434 MainForm.Timer2.Enabled:=true;
\r
4435 if GSM_GetModelFeature(FN_RINGTONES)=F_RING_SM then
\r
4437 application.MessageBox('Smart Messaging format','',0);
\r
4438 if SaveDialog1.Execute then
\r
4440 GSM_SaveRingtoneFile(PChar(SaveDialog1.FileName),@myring);
\r
4444 application.MessageBox('Binary format','',0);
\r
4445 if SaveDialog1.Execute then
\r
4447 GSM_SaveBinRingtoneFile(PChar(SaveDialog1.FileName),@mybinring);
\r
4452 MainForm.Timer2.Enabled:=true;
\r
4457 procedure TMainForm.New20Click(Sender: TObject);
\r
4459 bookmarknum:=65535;
\r
4460 WAPBookForm.Edit1.Text:='';
\r
4461 WAPBookForm.Edit2.Text:='';
\r
4462 WAPBookForm.ShowModal;
\r
4465 procedure TMainForm.ListView9SelectItem(Sender: TObject; Item: TListItem;
\r
4466 Selected: Boolean);
\r
4468 if Selected then bookmarknum2:=item.Index+1;
\r
4471 procedure TMainForm.Edit20Click(Sender: TObject);
\r
4473 bookmark:GSM_WAPBookmark;
\r
4475 bookmark.location:=bookmarknum2;
\r
4476 mainform.Timer2.Enabled:=false;
\r
4477 GSM_GetWAPBookmark(@bookmark);
\r
4478 mainform.Timer2.Enabled:=true;
\r
4479 WAPBookForm.Edit1.Text:=bookmark.title;
\r
4480 WAPBookForm.Edit2.Text:=bookmark.adress;
\r
4481 WAPBookForm.ShowModal;
\r
4484 procedure TMainForm.WAPBookPopupMenuPopup(Sender: TObject);
\r
4486 New20.Enabled:=false;
\r
4487 Edit20.Enabled:=false;
\r
4488 SMSSendSave2.Enabled:=false;
\r
4489 if (WAPBookmarkThread=nil) and (GSMPhoneConnected) then
\r
4491 New20.Enabled:=true;
\r
4492 if (ListView9.Selected<>nil) and
\r
4493 (ListView9.Selected.SubItems[0]<>'') then
\r
4495 Edit20.Enabled:=true;
\r
4496 SMSSendSave2.Enabled:=true;
\r
4501 procedure TMainForm.SMSSendSave2Click(Sender: TObject);
\r
4505 if smscinit=false then
\r
4507 MainForm.ListView6.Items.Clear;
\r
4512 if smscinit then break;
\r
4517 SMSEditForm.Memo1.Text:='';
\r
4520 SMSEditForm.ComboBox9.Text:='';
\r
4521 AddSMSEditSenderList;
\r
4524 GSM_GetSMSFolders(@SMSfolders);
\r
4525 SMSEditForm.ComboBox1.Items.Clear;
\r
4526 for i:=1 to SMSFolders.number do
\r
4528 SMSEditForm.ComboBox1.Items.Add(SMSfolders.folder[i].Name);
\r
4530 SMSEditForm.ComboBox1.ItemIndex:=0;
\r
4534 SMSEditForm.ComboBox2.Items.Clear;
\r
4535 SMSEditForm.ComboBox2.Items.Add('custom');
\r
4536 for i:=1 to smscnum-1 do
\r
4538 if SMSC2[i].Name[1]<>chr(0) then
\r
4539 SMSEditForm.ComboBox2.Items.Add('set '+inttostr(i)+' - '+SMSC2[i].Name)
\r
4541 SMSEditForm.ComboBox2.Items.Add('set '+inttostr(i));
\r
4543 SMSEditForm.ComboBox2.ItemIndex:=1;
\r
4545 SMSEditForm.TextSMSTabSheet.TabVisible:=false;
\r
4546 SMSEditForm.BitmapSMSTabSheet.TabVisible:=false;
\r
4547 SMSEditForm.RingtoneSMSTabSheet.TabVisible:=false;
\r
4548 SMSEditForm.CalendarSMSTabSheet.TabVisible:=false;
\r
4549 SMSEditForm.WAPBookTabSheet.TabVisible:=false;
\r
4550 SMSEditForm.WAPSettTabSheet.TabVisible:=false;
\r
4551 SMSEditForm.PBKSMSTabSheet.TabVisible:=false;
\r
4552 SMSEditForm.SMSEditPageControl.ActivePage:=Smseditform.WAPBookTabSheet;
\r
4554 bookma.location:=bookmarknum2;
\r
4555 mainform.Timer2.Enabled:=false;
\r
4556 GSM_GetWAPBookmark(@bookma);
\r
4557 mainform.Timer2.Enabled:=true;
\r
4559 if (GSM_GetModelFeature(FN_SMS)=F_SMS71) then
\r
4561 SMSEditForm.edit3.Visible:=true;
\r
4562 SMSEditForm.label14.Visible:=true;
\r
4565 SMSEditForm.edit3.Visible:=false;
\r
4566 SMSEditForm.label14.Visible:=false;
\r
4569 SMSEditForm.ShowModal;
\r
4572 procedure TMainForm.Button23Click(Sender: TObject);
\r
4576 if smscinit=false then
\r
4578 MainForm.ListView6.Items.Clear;
\r
4583 if smscinit then break;
\r
4588 SMSEditForm.Memo1.Text:='';
\r
4591 SMSEditForm.ComboBox9.Text:='';
\r
4592 AddSMSEditSenderList;
\r
4595 GSM_GetSMSFolders(@SMSfolders);
\r
4596 SMSEditForm.ComboBox1.Items.Clear;
\r
4597 for i:=1 to SMSFolders.number do
\r
4599 SMSEditForm.ComboBox1.Items.Add(SMSfolders.folder[i].Name);
\r
4601 SMSEditForm.ComboBox1.ItemIndex:=0;
\r
4605 SMSEditForm.ComboBox2.Items.Clear;
\r
4606 SMSEditForm.ComboBox2.Items.Add('custom');
\r
4607 for i:=1 to smscnum-1 do
\r
4609 if SMSC2[i].Name[1]<>chr(0) then
\r
4610 SMSEditForm.ComboBox2.Items.Add('set '+inttostr(i)+' - '+SMSC2[i].Name)
\r
4612 SMSEditForm.ComboBox2.Items.Add('set '+inttostr(i));
\r
4614 SMSEditForm.ComboBox2.ItemIndex:=1;
\r
4616 SMSEditForm.TextSMSTabSheet.TabVisible:=false;
\r
4617 SMSEditForm.BitmapSMSTabSheet.TabVisible:=false;
\r
4618 SMSEditForm.RingtoneSMSTabSheet.TabVisible:=false;
\r
4619 SMSEditForm.CalendarSMSTabSheet.TabVisible:=false;
\r
4620 SMSEditForm.WAPBookTabSheet.TabVisible:=false;
\r
4621 SMSEditForm.WAPSettTabSheet.TabVisible:=false;
\r
4622 SMSEditForm.PBKSMSTabSheet.TabVisible:=false;
\r
4623 SMSEditForm.SMSEditPageControl.ActivePage:=Smseditform.WAPSettTabSheet;
\r
4625 Wapset.location:=combobox7.ItemIndex;
\r
4626 MainForm.Timer2.Enabled:=false;
\r
4627 GSM_GetWAPSettings(@wapset);
\r
4628 MainForm.Timer2.Enabled:=true;
\r
4630 if (GSM_GetModelFeature(FN_SMS)=F_SMS71) then
\r
4632 SMSEditForm.edit3.Visible:=true;
\r
4633 SMSEditForm.label14.Visible:=true;
\r
4636 SMSEditForm.edit3.Visible:=false;
\r
4637 SMSEditForm.label14.Visible:=false;
\r
4640 SMSEditForm.ShowModal;
\r
4643 procedure TMainForm.CopyphonebooktoPC1Click(Sender: TObject);
\r
4648 procedure TMainForm.PCPBKTabSheetShow(Sender: TObject);
\r
4652 ListView12.Items.Clear;
\r
4653 for i:=1 to PBKOfflineNumber do
\r
4655 MainForm.ListView12.Items.Add;
\r
4656 MainForm.ListView12.Items.Item[i-1].Caption:=inttostr(PhoneBackup.PhonePhonebook[i].Location);
\r
4657 AddPBKEntry(ListView12,PhoneBackup.PhonePhonebook[i],i-1);
\r
4661 procedure TMainForm.FormShow(Sender: TObject);
\r
4663 MyIniFile: TIniFile;
\r
4666 MyIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'\gnokiirc');
\r
4668 x:=MyInifile.ReadString('win32gui', 'x', '100');
\r
4669 MainForm.Left:=strtoint(x);
\r
4671 x:=MyInifile.ReadString('win32gui', 'y', '100');
\r
4672 MainForm.Top:=strtoint(x);
\r
4674 x:=MyInifile.ReadString('win32gui', 'treewidth', '93');
\r
4675 MainForm.TreeView1.Width:=strtoint(x);
\r
4677 x:=MyInifile.ReadString('win32gui', 'width', '655');
\r
4678 MainForm.Width:=strtoint(x);
\r
4680 x:=MyInifile.ReadString('win32gui', 'height', '431');
\r
4681 MainForm.Height:=strtoint(x);
\r
4687 procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
\r