--- /dev/null
+unit MainUnit;\r
+\r
+interface\r
+\r
+{$I-}\r
+\r
+uses\r
+ Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,\r
+ Dialogs, ComCtrls, GnokiiAPI, ExtCtrls, Menus, StdCtrls, Spin, IniFiles;\r
+\r
+type\r
+ TMainForm = class(TForm)\r
+ StatusBar1: TStatusBar;\r
+ TreeView1: TTreeView;\r
+ Splitter1: TSplitter;\r
+ MainMenu1: TMainMenu;\r
+ File1: TMenuItem;\r
+ Quit1: TMenuItem;\r
+ Help1: TMenuItem;\r
+ About1: TMenuItem;\r
+ Timer1: TTimer;\r
+ OpenDialog1: TOpenDialog;\r
+ SaveDialog1: TSaveDialog;\r
+ PageControl1: TPageControl;\r
+ NetmonitorTabSheet: TTabSheet;\r
+ GroupBox1: TGroupBox;\r
+ Label1: TLabel;\r
+ NetmonGroupBox: TGroupBox;\r
+ NetmonLabel: TLabel;\r
+ SpinEdit1: TSpinEdit;\r
+ Button11: TButton;\r
+ PhonebookTabSheet: TTabSheet;\r
+ GroupBox2: TGroupBox;\r
+ Panel1: TPanel;\r
+ Label2: TLabel;\r
+ ComboBox1: TComboBox;\r
+ ListView1: TListView;\r
+ PhoneTabSheet: TTabSheet;\r
+ GroupBox3: TGroupBox;\r
+ GroupBox12: TGroupBox;\r
+ Label4: TLabel;\r
+ Label5: TLabel;\r
+ Label7: TLabel;\r
+ Label8: TLabel;\r
+ Label9: TLabel;\r
+ Label6: TLabel;\r
+ Button9: TButton;\r
+ GroupBox14: TGroupBox;\r
+ ListView8: TListView;\r
+ GroupBox11: TGroupBox;\r
+ CheckBox1: TCheckBox;\r
+ LogosTabSheet: TTabSheet;\r
+ GroupBox4: TGroupBox;\r
+ LogosImage: TImage;\r
+ Image1: TImage;\r
+ Image2: TImage;\r
+ ComboBox2: TComboBox;\r
+ Button6: TButton;\r
+ Button7: TButton;\r
+ Button8: TButton;\r
+ Button12: TButton;\r
+ Button4: TButton;\r
+ Button5: TButton;\r
+ RingtonesTabSheet: TTabSheet;\r
+ GroupBox5: TGroupBox;\r
+ Label11: TLabel;\r
+ Button1: TButton;\r
+ Button2: TButton;\r
+ Button3: TButton;\r
+ SMSTabSheet: TTabSheet;\r
+ GroupBox6: TGroupBox;\r
+ Panel2: TPanel;\r
+ Label10: TLabel;\r
+ ComboBox3: TComboBox;\r
+ ListView2: TListView;\r
+ SpeedTabSheet: TTabSheet;\r
+ GroupBox7: TGroupBox;\r
+ ListView3: TListView;\r
+ CalendarTabSheet: TTabSheet;\r
+ GroupBox8: TGroupBox;\r
+ ListView4: TListView;\r
+ SMSCTabSheet: TTabSheet;\r
+ GroupBox9: TGroupBox;\r
+ ListView6: TListView;\r
+ CallerTabSheet: TTabSheet;\r
+ GroupBox10: TGroupBox;\r
+ ListView5: TListView;\r
+ ProfileTabSheet: TTabSheet;\r
+ GroupBox13: TGroupBox;\r
+ ListView7: TListView;\r
+ Panel3: TPanel;\r
+ Splitter2: TSplitter;\r
+ GroupBox15: TGroupBox;\r
+ GroupBox16: TGroupBox;\r
+ Button13: TButton;\r
+ Button14: TButton;\r
+ Label15: TLabel;\r
+ Edit1: TEdit;\r
+ Edit2: TEdit;\r
+ Button16: TButton;\r
+ CalendarPopupMenu: TPopupMenu;\r
+ New1: TMenuItem;\r
+ Edit3: TMenuItem;\r
+ Delete1: TMenuItem;\r
+ SMSPopupMenu: TPopupMenu;\r
+ Edit4: TMenuItem;\r
+ Memo1: TMemo;\r
+ Memo2: TMemo;\r
+ New2: TMenuItem;\r
+ Label14: TLabel;\r
+ Label16: TLabel;\r
+ WapBookTabSheet: TTabSheet;\r
+ GroupBox17: TGroupBox;\r
+ DateTimePicker1: TDateTimePicker;\r
+ ConfigTabSheet: TTabSheet;\r
+ GroupBox18: TGroupBox;\r
+ Configuration1: TMenuItem;\r
+ N1: TMenuItem;\r
+ Delete2: TMenuItem;\r
+ SMSCPopupMenu: TPopupMenu;\r
+ Edit5: TMenuItem;\r
+ Label3: TLabel;\r
+ ComboBox4: TComboBox;\r
+ Label12: TLabel;\r
+ ComboBox5: TComboBox;\r
+ Label13: TLabel;\r
+ CheckBox2: TCheckBox;\r
+ Label17: TLabel;\r
+ Label18: TLabel;\r
+ PBKPopupMenu: TPopupMenu;\r
+ Edit7: TMenuItem;\r
+ Button17: TButton;\r
+ SMS1: TMenuItem;\r
+ Button18: TButton;\r
+ SMSSendSave1: TMenuItem;\r
+ ComboBox6: TComboBox;\r
+ WAPSettTabSheet: TTabSheet;\r
+ DivertTabSheet: TTabSheet;\r
+ GroupBox19: TGroupBox;\r
+ GroupBox20: TGroupBox;\r
+ Timer2: TTimer;\r
+ ListView9: TListView;\r
+ AboutTabSheet: TTabSheet;\r
+ GroupBox21: TGroupBox;\r
+ Label19: TLabel;\r
+ Label20: TLabel;\r
+ PCSMSTabSheet: TTabSheet;\r
+ GroupBox22: TGroupBox;\r
+ Panel4: TPanel;\r
+ Splitter3: TSplitter;\r
+ Panel5: TPanel;\r
+ ListView10: TListView;\r
+ CopytoPC1: TMenuItem;\r
+ N2: TMenuItem;\r
+ Memo4: TMemo;\r
+ Memo5: TMemo;\r
+ PCSMSPopupMenu: TPopupMenu;\r
+ SendSave1: TMenuItem;\r
+ N3: TMenuItem;\r
+ Delete3: TMenuItem;\r
+ Label21: TLabel;\r
+ ComboBox7: TComboBox;\r
+ Label22: TLabel;\r
+ Edit6: TEdit;\r
+ Label23: TLabel;\r
+ Edit8: TEdit;\r
+ Label24: TLabel;\r
+ ComboBox8: TComboBox;\r
+ Label25: TLabel;\r
+ ComboBox9: TComboBox;\r
+ Label26: TLabel;\r
+ ComboBox10: TComboBox;\r
+ Label27: TLabel;\r
+ Edit9: TEdit;\r
+ Label28: TLabel;\r
+ Edit10: TEdit;\r
+ Label29: TLabel;\r
+ Edit11: TEdit;\r
+ Label30: TLabel;\r
+ Edit12: TEdit;\r
+ Label31: TLabel;\r
+ ComboBox11: TComboBox;\r
+ Label32: TLabel;\r
+ ComboBox12: TComboBox;\r
+ Label33: TLabel;\r
+ ComboBox13: TComboBox;\r
+ Label34: TLabel;\r
+ Edit13: TEdit;\r
+ Label35: TLabel;\r
+ Edit14: TEdit;\r
+ Label36: TLabel;\r
+ Edit15: TEdit;\r
+ Label37: TLabel;\r
+ ComboBox14: TComboBox;\r
+ Memo3: TMemo;\r
+ PageControl2: TPageControl;\r
+ TabSheet1: TTabSheet;\r
+ Button19: TButton;\r
+ Label38: TLabel;\r
+ Edit16: TEdit;\r
+ Label39: TLabel;\r
+ Edit17: TEdit;\r
+ Label40: TLabel;\r
+ ComboBox15: TComboBox;\r
+ Label41: TLabel;\r
+ Edit18: TEdit;\r
+ Button20: TButton;\r
+ PCCalendarTabSheet: TTabSheet;\r
+ GroupBox23: TGroupBox;\r
+ ListView11: TListView;\r
+ N4: TMenuItem;\r
+ CopytoPC2: TMenuItem;\r
+ PCCalendarPopupMenu: TPopupMenu;\r
+ Copytocalendar1: TMenuItem;\r
+ N5: TMenuItem;\r
+ Delete5: TMenuItem;\r
+ PCOfflineTabSheet: TTabSheet;\r
+ GroupBox24: TGroupBox;\r
+ Label42: TLabel;\r
+ Label43: TLabel;\r
+ Label44: TLabel;\r
+ Label45: TLabel;\r
+ TabSheet2: TTabSheet;\r
+ TabSheet3: TTabSheet;\r
+ procedure TreeView1MouseDown(Sender: TObject; Button: TMouseButton;\r
+ Shift: TShiftState; X, Y: Integer);\r
+ procedure FormCreate(Sender: TObject);\r
+ procedure Timer1Timer(Sender: TObject);\r
+ procedure NetmonitorTabSheetShow(Sender: TObject);\r
+ procedure NetmonitorTabSheetHide(Sender: TObject);\r
+ procedure SpinEdit1Change(Sender: TObject);\r
+ procedure ComboBox1Change(Sender: TObject);\r
+ procedure PhonebookTabSheetHide(Sender: TObject);\r
+ procedure Quit1Click(Sender: TObject);\r
+ procedure FormResize(Sender: TObject);\r
+ procedure About1Click(Sender: TObject);\r
+ procedure LogosImageMouseMove(Sender: TObject; Shift: TShiftState; X,\r
+ Y: Integer);\r
+ procedure Button1Click(Sender: TObject);\r
+ procedure Button4Click(Sender: TObject);\r
+ procedure Button3Click(Sender: TObject);\r
+ procedure PhoneTabSheetShow(Sender: TObject);\r
+ procedure Button2Click(Sender: TObject);\r
+ procedure LogosTabSheetShow(Sender: TObject);\r
+ procedure ComboBox2Select(Sender: TObject);\r
+ procedure Button7Click(Sender: TObject);\r
+ procedure LogosImageMouseDown(Sender: TObject; Button: TMouseButton;\r
+ Shift: TShiftState; X, Y: Integer);\r
+ procedure Button6Click(Sender: TObject);\r
+ procedure Button5Click(Sender: TObject);\r
+ procedure Button8Click(Sender: TObject);\r
+ procedure SpeedTabSheetShow(Sender: TObject);\r
+ procedure Button9Click(Sender: TObject);\r
+ procedure SpeedTabSheetHide(Sender: TObject);\r
+ procedure Button11Click(Sender: TObject);\r
+ procedure Button12Click(Sender: TObject);\r
+ procedure CalendarTabSheetShow(Sender: TObject);\r
+ procedure CallerTabSheetShow(Sender: TObject);\r
+ procedure SMSCTabSheetShow(Sender: TObject);\r
+ procedure Button10Click(Sender: TObject);\r
+ procedure ProfileTabSheetShow(Sender: TObject);\r
+ procedure SMSCTabSheetHide(Sender: TObject);\r
+ procedure CalendarTabSheetHide(Sender: TObject);\r
+ procedure CallerTabSheetHide(Sender: TObject);\r
+ procedure ProfileTabSheetHide(Sender: TObject);\r
+ procedure PhonebookTabSheetShow(Sender: TObject);\r
+ procedure SMSTabSheetShow(Sender: TObject);\r
+ procedure ComboBox3Change(Sender: TObject);\r
+ procedure ListView2SelectItem(Sender: TObject; Item: TListItem;\r
+ Selected: Boolean);\r
+ procedure New1Click(Sender: TObject);\r
+ procedure Edit3Click(Sender: TObject);\r
+ procedure ListView4SelectItem(Sender: TObject; Item: TListItem;\r
+ Selected: Boolean);\r
+ procedure Delete1Click(Sender: TObject);\r
+ procedure Button16Click(Sender: TObject);\r
+ procedure Edit4Click(Sender: TObject);\r
+ procedure New2Click(Sender: TObject);\r
+ procedure Configuration1Click(Sender: TObject);\r
+ procedure TreeView1KeyUp(Sender: TObject; var Key: Word;\r
+ Shift: TShiftState);\r
+ procedure SMSTabSheetHide(Sender: TObject);\r
+ procedure SMSPopupMenuPopup(Sender: TObject);\r
+ procedure CalendarPopupMenuPopup(Sender: TObject);\r
+ procedure Edit1Change(Sender: TObject);\r
+ procedure Delete2Click(Sender: TObject);\r
+ procedure Edit5Click(Sender: TObject);\r
+ procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;\r
+ Shift: TShiftState; X, Y: Integer);\r
+ procedure SMSCPopupMenuPopup(Sender: TObject);\r
+ procedure ListView6SelectItem(Sender: TObject; Item: TListItem;\r
+ Selected: Boolean);\r
+ procedure ListView1SelectItem(Sender: TObject; Item: TListItem;\r
+ Selected: Boolean);\r
+ procedure Edit7Click(Sender: TObject);\r
+ procedure Button18Click(Sender: TObject);\r
+ procedure Button17Click(Sender: TObject);\r
+ procedure SMS1Click(Sender: TObject);\r
+ procedure SMSSendSave1Click(Sender: TObject);\r
+ procedure Button13Click(Sender: TObject);\r
+ procedure Button14Click(Sender: TObject);\r
+ procedure ConfigTabSheetHide(Sender: TObject);\r
+ procedure ConfigTabSheetShow(Sender: TObject);\r
+ procedure Timer2Timer(Sender: TObject);\r
+ procedure AboutTabSheetShow(Sender: TObject);\r
+ procedure PCSMSTabSheetShow(Sender: TObject);\r
+ procedure CopytoPC1Click(Sender: TObject);\r
+ procedure ListView10SelectItem(Sender: TObject; Item: TListItem;\r
+ Selected: Boolean);\r
+ procedure PCSMSPopupMenuPopup(Sender: TObject);\r
+ procedure Delete3Click(Sender: TObject);\r
+ procedure SendSave1Click(Sender: TObject);\r
+ procedure WapBookTabSheetHide(Sender: TObject);\r
+ procedure WapBookTabSheetShow(Sender: TObject);\r
+ procedure ComboBox7Change(Sender: TObject);\r
+ procedure Button19Click(Sender: TObject);\r
+ procedure Button20Click(Sender: TObject);\r
+ procedure PCOfflineTabSheetShow(Sender: TObject);\r
+ procedure PCCalendarTabSheetShow(Sender: TObject);\r
+ procedure CopytoPC2Click(Sender: TObject);\r
+ procedure Delete5Click(Sender: TObject);\r
+ procedure Copytocalendar1Click(Sender: TObject);\r
+ procedure PCCalendarPopupMenuPopup(Sender: TObject);\r
+ private\r
+ { Private declarations }\r
+ public\r
+ { Public declarations }\r
+ end;\r
+\r
+var\r
+ MainForm: TMainForm;\r
+ setcalendarnote:GSM_CalendarNote;\r
+ setsms:GSM_MultiSMSMessage;\r
+ setsmslocation:integer;\r
+ smscselectitem:integer;\r
+ bitma:GSM_Bitmap;\r
+ rington:GSM_Ringtone;\r
+ calenda:GSM_CalendarNote;\r
+ pbk:GSM_PhonebookEntry;\r
+ previewcolor:TColor;\r
+\r
+procedure AddCalendarNote(note:GSM_CalendarNote;myview:TListView);\r
+function DayOFweek3(date:TDateTime):string;\r
+procedure SetSMSC(num:integer);\r
+\r
+implementation\r
+\r
+uses Calendar, SMSEdit, LogosRing, Netmon, smscedit, pbkedit;\r
+\r
+{$R *.dfm}\r
+\r
+type\r
+ TNetmonThread = class(TThread)\r
+ public\r
+ procedure Execute; override;\r
+ end;\r
+ TPhonebookThread = class(TThread)\r
+ public\r
+ procedure Execute; override;\r
+ end;\r
+ TSpeedThread = class(TThread)\r
+ public\r
+ procedure Execute; override;\r
+ end;\r
+ TSMSCThread = class(TThread)\r
+ public\r
+ procedure Execute; override;\r
+ end;\r
+ TSMSThread = class(TThread)\r
+ public\r
+ procedure Execute; override;\r
+ end;\r
+ TCalendarThread = class(TThread)\r
+ public\r
+ procedure Execute; override;\r
+ end;\r
+ TCallerThread = class(TThread)\r
+ public\r
+ procedure Execute; override;\r
+ end;\r
+ TProfileThread = class(TThread)\r
+ public\r
+ procedure Execute; override;\r
+ end;\r
+ TPlayRingtoneThread = class(TThread)\r
+ public\r
+ procedure Execute; override;\r
+ end;\r
+ TWAPBookmarkThread = class(TThread)\r
+ public\r
+ procedure Execute; override;\r
+ end;\r
+\r
+var\r
+ //phone sheet\r
+ phoneinfo:boolean;\r
+\r
+ //reading netmonitor variables\r
+ netmonnum: integer; //number of netmon screen\r
+ NetmonThread: TNetmonThread;\r
+\r
+ //reading phonebook memories variables\r
+ phonebookstatus:GSM_MemoryStatus;\r
+ phonebookcur:integer;\r
+ phonebookfound:integer;\r
+ PhonebookThread: TPhonebookThread;\r
+ pbknumberentry:integer;\r
+\r
+ //logos\r
+ pointsize:integer;\r
+ x2,y2:byte;\r
+ logofilename:string='xxx';\r
+\r
+ //ringtones\r
+ PlayRingtoneThread: TPlayRingtoneThread;\r
+ ringindex:integer;\r
+ binring:GSM_BinRingtone;\r
+\r
+ //speeddials\r
+ speednum:integer;\r
+ SpeedThread: TSpeedThread;\r
+\r
+ //caller groups\r
+ caller:array[1..5] of GSM_Bitmap;\r
+ callerinit:boolean;\r
+ callernum:integer;\r
+ CallerThread: TCallerThread;\r
+\r
+ //smsc\r
+ smscnum:integer;\r
+ SMSCThread: TSMSCThread;\r
+ smscinit: boolean;\r
+ SMSC2:array[1..10] of GSM_MessageCenter;\r
+\r
+ //calendar\r
+ calendarnum:integer;\r
+ CalendarThread: TCalendarThread;\r
+ calendarselect:integer;\r
+ readcalendar:boolean;\r
+\r
+ //profiles\r
+ profilenum:integer;\r
+ ProfileThread: TProfileThread;\r
+\r
+ SMS:array[1..200] of GSM_SMSMessage;\r
+ SMSnum:integer;\r
+ SMSfolders:GSM_SMSFolders;\r
+ SMSstatus:GSM_SMSStatus;\r
+ smsnumindex:integer;\r
+ SMSThread: TSMSThread;\r
+ smsnum2:integer;\r
+\r
+ SMSOffline:array[1..300] of GSM_SMSMessage;\r
+ SMSOfflineNumber:integer;\r
+\r
+ //wap bookmarks\r
+ WAPBookmarkThread: TWAPBookmarkThread;\r
+ bookmarknum:integer;\r
+\r
+ CalendarOffline:array[1..300] of GSM_CalendarNote;\r
+ CalendarOfflineNumber:integer;\r
+\r
+function Inttostr2(I: Longint;digits:integer): string;\r
+\r
+{ Convert any integer type to a string }\r
+var\r
+ S: string[11];\r
+ j:integer;\r
+begin\r
+ Str(I:digits, S);\r
+ for j:=1 to 11 do\r
+ begin\r
+ if s[j]<>' ' then break;\r
+ s[j]:='0';\r
+ end;\r
+ Result:= S;\r
+end;\r
+\r
+function DayOFweek3(date:TDateTime):string;\r
+var\r
+ days: array[1..7] of string;\r
+begin\r
+ days[1] := 'Sun';\r
+ days[2] := 'Mon';\r
+ days[3] := 'Tue';\r
+ days[4] := 'Wed';\r
+ days[5] := 'Thu';\r
+ days[6] := 'Fri';\r
+ days[7] := 'Sat';\r
+ DayOfWeek3:= days[DayOfWeek(date)];\r
+end;\r
+\r
+function DayOFweek2(day:integer;month:integer;year:integer):string;\r
+var\r
+ date:TDateTime;\r
+begin\r
+ Date:=EncodeDate(Year,Month,Day);\r
+ DayOfWeek2:= DayOfWeek3(Date);\r
+end;\r
+\r
+procedure SetSMSC(num:integer);\r
+begin\r
+ SMSEditForm.Edit1.Text:=SMSC2[num].Number;\r
+ case SMSC2[num].Validity of\r
+ GSMV_1_Hour : SMSEditForm.ComboBox3.ItemIndex:=0;\r
+ GSMV_6_Hours : SMSEditForm.ComboBox3.ItemIndex:=1;\r
+ GSMV_24_Hours : SMSEditForm.ComboBox3.ItemIndex:=2;\r
+ GSMV_72_Hours : SMSEditForm.ComboBox3.ItemIndex:=3;\r
+ GSMV_1_Week : SMSEditForm.ComboBox3.ItemIndex:=4;\r
+ else\r
+ SMSEditForm.ComboBox3.ItemIndex:=5;\r
+\r
+ end;\r
+ case SMSC2[num].Format of\r
+ GSMF_Text : SMSEditForm.ComboBox4.ItemIndex:=0;\r
+ GSMF_Fax : SMSEditForm.ComboBox4.ItemIndex:=1;\r
+ GSMF_Email : SMSEditForm.ComboBox4.ItemIndex:=2;\r
+ else\r
+ SMSEditForm.ComboBox4.ItemIndex:=3;\r
+ end;\r
+end;\r
+\r
+procedure ReadCallerGroup();\r
+var\r
+ logo:GSM_Bitmap;\r
+ name:Pchar;\r
+ i:integer;\r
+begin\r
+ if callernum<6 then\r
+ begin\r
+ i:=1;\r
+ while i<>0 do\r
+ begin\r
+ logo.type2:=GSM_CallerLogo;\r
+ logo.number:=callernum-1;\r
+ MainForm.Timer2.Enabled:=false;\r
+ i:=GSM_GetBitmap(@logo);\r
+ MainForm.Timer2.Enabled:=true;\r
+ end;\r
+ caller[callernum]:=logo;\r
+ MainForm.ListView5.Items.Add;\r
+ MainForm.ListView5.Items.Item[callernum-1].Caption:=inttostr(callernum);\r
+ if logo.text[1]=chr(0) then\r
+ begin\r
+ name:='';\r
+ case callernum of\r
+ 1:name:='Family';\r
+ 2:name:='VIP';\r
+ 3:name:='Friends';\r
+ 4:name:='Colleagues';\r
+ 5:name:='Other';\r
+ end;\r
+ for i:=1 to 255 do\r
+ begin\r
+ caller[callernum].text[i]:=chr(0);\r
+ end;\r
+ for i:=1 to strlen(name) do\r
+ begin\r
+ caller[callernum].text[i]:=name[i-1];\r
+ end;\r
+ end;\r
+ MainForm.ListView5.Items.Item[callernum-1].Subitems.Add(caller[callernum].text);\r
+ if logo.ringtone=16 then\r
+ MainForm.ListView5.Items.Item[callernum-1].Subitems.Add('default')\r
+ else\r
+ MainForm.ListView5.Items.Item[callernum-1].Subitems.Add(inttostr(logo.ringtone));\r
+ if logo.enabled<>0 then\r
+ MainForm.ListView5.Items.Item[callernum-1].Subitems.Add('logo enabled')\r
+ else\r
+ MainForm.ListView5.Items.Item[callernum-1].Subitems.Add('logo disabled');\r
+ end else callerinit:=true;\r
+ callernum:=callernum+1;\r
+end;\r
+\r
+procedure ReadAllCallerGroups();\r
+begin\r
+ if callerinit=false then\r
+ begin\r
+ MainForm.ListView5.Items.Clear;\r
+ callernum:=1;\r
+ while callerinit=false do\r
+ begin\r
+ ReadCallerGroup();\r
+ if callerinit then break;\r
+ end;\r
+ end;\r
+end;\r
+\r
+//logos sheet\r
+procedure UpdatePointBitmap(i,j:integer);\r
+begin\r
+ if GSM_IsPointBitmap(@bitma,i,j)<>0 then\r
+ begin\r
+ MainForm.LogosImage.Canvas.Brush.Color := clBlack;\r
+ MainForm.Image1.Canvas.Pen.Color := clBlack;\r
+ end else\r
+ begin\r
+ MainForm.LogosImage.Canvas.Brush.Color := PreviewColor;//$0063cf63\r
+ MainForm.Image1.Canvas.Pen.Color := PreviewColor;\r
+ end;\r
+ MainForm.LogosImage.Canvas.FillRect(Rect(i*pointsize+i,j*pointsize+j,(i+1)*pointsize+i,(j+1)*pointsize+j));\r
+ MainForm.Image1.Canvas.Polyline([Point(28+i, 145+j), Point(29+i,146+j)]);\r
+end;\r
+\r
+procedure DrawBitmap();\r
+var\r
+ xsize:integer;\r
+ ysize:integer;\r
+ i,j:integer;\r
+begin\r
+ MainForm.StatusBar1.Panels[0].Text:=inttostr(bitma.width);\r
+ xsize:=bitma.width;\r
+ ysize:=bitma.heigh;\r
+\r
+ MainForm.LogosImage.Canvas.Brush.Style := bsSolid;\r
+ MainForm.LogosImage.Canvas.Brush.Color := clScrollBar;\r
+\r
+ MainForm.LogosImage.Canvas.Pen.Mode := pmCopy;\r
+\r
+ MainForm.LogosImage.Canvas.Pen.Color := clScrollBar;\r
+ MainForm.LogosImage.Canvas.Rectangle(0,0,MainForm.LogosImage.Width,MainForm.LogosImage.Height);\r
+\r
+ MainForm.LogosImage.Canvas.Pen.Color := PreviewColor;\r
+ MainForm.LogosImage.Canvas.Rectangle(0,0,xsize*pointsize+xsize-1,ysize*pointsize+ysize-1);\r
+\r
+ MainForm.LogosImage.Canvas.Brush.Color := PreviewColor;\r
+ MainForm.LogosImage.Canvas.FloodFill(2,2,PreviewColor,fsBorder);\r
+\r
+ MainForm.LogosImage.Canvas.Pen.Color := clBlack;\r
+\r
+ for i:=0 to xsize do\r
+ begin\r
+ MainForm.LogosImage.Canvas.MoveTo(i*pointsize+i-1,0);\r
+ MainForm.LogosImage.Canvas.LineTo(i*pointsize+i-1,ysize*pointsize+ysize-1);\r
+ end;\r
+ for i:=0 to ysize do\r
+ begin\r
+ MainForm.LogosImage.Canvas.MoveTo(0,i*pointsize+i-1);\r
+ MainForm.LogosImage.Canvas.LineTo(xsize*pointsize+xsize-1,i*pointsize+i-1);\r
+ end;\r
+\r
+ MainForm.Image1.Picture.Assign(MainForm.Image2.Picture);\r
+ MainForm.Image1.Canvas.Pen.Mode := pmCopy;\r
+ for i:=0 to xsize-1 do\r
+ begin\r
+ for j:=0 to ysize-1 do\r
+ begin\r
+ UpdatePointBitmap(i,j);\r
+ end;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.Image1MouseDown(Sender: TObject; Button: TMouseButton;\r
+ Shift: TShiftState; X, Y: Integer);\r
+var\r
+ sr: TSearchRec;\r
+ filefound:integer;\r
+begin\r
+ filefound:=0;\r
+ if FindFirst(ExtractFilePath(Application.ExeName)+'\*bmp', faAnyFile, sr) = 0 then\r
+ begin\r
+ repeat\r
+ if (sr.Attr and faAnyFile) = sr.Attr then\r
+ begin\r
+ if sr.Size=57814 then\r
+ begin\r
+ case filefound of\r
+ 1:begin\r
+ Image2.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\'+sr.name);\r
+ PreviewColor:=Image2.Canvas.Pixels[70,170];\r
+ DrawBitmap;\r
+ filefound:=2;\r
+ logofilename:=sr.name;\r
+ end;\r
+ 0:if logofilename=sr.Name then filefound:=1;\r
+ end;\r
+ if filefound=2 then break;\r
+ end;\r
+ end;\r
+ until FindNext(sr) <> 0;\r
+ FindClose(sr);\r
+ end;\r
+ if filefound<>2 then\r
+ begin\r
+ if FindFirst(ExtractFilePath(Application.ExeName)+'\*bmp', faAnyFile, sr) = 0 then\r
+ begin\r
+ Image2.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\'+sr.name);\r
+ DrawBitmap;\r
+ logofilename:=sr.name;\r
+ end;\r
+ end;\r
+end;\r
+\r
+procedure LogosMousePos(x,y:integer);\r
+var\r
+ i:integer;\r
+begin\r
+ i:=0;x2:=0;\r
+ while i<=x do\r
+ begin\r
+ i:=i+pointsize+1;\r
+ x2:=x2+1;\r
+ end;\r
+ i:=0;y2:=0;\r
+ while i<=y do\r
+ begin\r
+ i:=i+pointsize+1;\r
+ y2:=y2+1;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.ComboBox2Select(Sender: TObject);\r
+var\r
+ bittype:integer;\r
+begin\r
+ case ComboBox2.ItemIndex of\r
+ 0:bittype:=GSM_CallerLogo;\r
+ 1:bittype:=GSM_OperatorLogo;\r
+ 2:bittype:=GSM_PictureImage;\r
+ 3:bittype:=GSM_StartupLogo;\r
+ else\r
+ bittype:=GSM_StartupLogo;\r
+ end;\r
+ GSM_ResizeBitmap(@bitma,bittype);\r
+ DrawBitmap();\r
+ if bitma.type2<>GSM_OperatorLogo then\r
+ Button8.Enabled:=false\r
+ else\r
+ Button8.Enabled:=true;\r
+end;\r
+\r
+procedure TMainForm.LogosImageMouseMove(Sender: TObject; Shift: TShiftState;\r
+ X, Y: Integer);\r
+begin\r
+ LogosMousePos(x,y);\r
+ if x2<=bitma.width then\r
+ begin\r
+ if y2<=bitma.heigh then\r
+ MainForm.StatusBar1.Panels[0].Text:=inttostr(x2)+','+inttostr(y2)\r
+ else\r
+ MainForm.StatusBar1.Panels[0].Text:='';\r
+ end else\r
+ MainForm.StatusBar1.Panels[0].Text:='';\r
+end;\r
+\r
+procedure TMainForm.LogosTabSheetShow(Sender: TObject);\r
+begin\r
+ DrawBitmap();\r
+end;\r
+\r
+procedure TMainForm.Button7Click(Sender: TObject);\r
+var\r
+ i:integer;\r
+begin\r
+ LogosRingForm.Label1.Caption:='What logo do you want to get ?';\r
+ LogosRingForm.ComboBox3.Items.Clear;\r
+ case bitma.type2 of\r
+ GSM_CallerLogo:\r
+ begin\r
+ LogosRingForm.ComboBox3.Visible:=true;\r
+ ReadAllCallerGroups();\r
+ for i:=1 to 5 do\r
+ begin\r
+ LogosRingForm.ComboBox3.Items.Add(caller[i].text);\r
+ end;\r
+ LogosRingForm.ComboBox3.ItemIndex:=0;\r
+ LogosRingForm.ShowModal();\r
+ if (LogosRingForm.ComboBox3.Visible) then\r
+ begin\r
+ bitma.number:=LogosRingForm.ComboBox3.ItemIndex;\r
+ MainForm.Timer2.Enabled:=false;\r
+ GSM_GetBitmap(@bitma);\r
+ MainForm.Timer2.Enabled:=true;\r
+ DrawBitmap();\r
+ end;\r
+ end;\r
+ GSM_PictureImage:\r
+ begin\r
+ LogosRingForm.ComboBox3.Visible:=true;\r
+ for i:=1 to 20 do\r
+ begin\r
+ LogosRingForm.ComboBox3.Items.Add('Location '+inttostr(i));\r
+ end;\r
+ LogosRingForm.ComboBox3.ItemIndex:=0;\r
+ LogosRingForm.ShowModal();\r
+ if (LogosRingForm.ComboBox3.Visible) then\r
+ begin\r
+ bitma.number:=LogosRingForm.ComboBox3.ItemIndex;\r
+ MainForm.Timer2.Enabled:=false;\r
+ GSM_GetBitmap(@bitma);\r
+ MainForm.Timer2.Enabled:=true;\r
+ DrawBitmap();\r
+ end;\r
+ end;\r
+ else\r
+ begin\r
+ MainForm.Timer2.Enabled:=false;\r
+ GSM_GetBitmap(@bitma);\r
+ MainForm.Timer2.Enabled:=true;\r
+ DrawBitmap();\r
+ end;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.Button4Click(Sender: TObject);\r
+var\r
+ bit:GSM_Bitmap;\r
+begin\r
+ if OpenDialog1.Execute then\r
+ begin\r
+ if GSM_ReadBitmapFile(PChar(OpenDialog1.FileName),@bit)=0 then\r
+ begin\r
+ bitma:=bit;\r
+ DrawBitmap();\r
+ case bitma.type2 of\r
+ GSM_CallerLogo :ComboBox2.ItemIndex:=0;\r
+ GSM_OperatorLogo:ComboBox2.ItemIndex:=1;\r
+ GSM_PictureImage:ComboBox2.ItemIndex:=2;\r
+ GSM_StartupLogo :ComboBox2.ItemIndex:=3;\r
+ end;\r
+ end;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.LogosImageMouseDown(Sender: TObject; Button: TMouseButton;\r
+ Shift: TShiftState; X, Y: Integer);\r
+begin\r
+ LogosMousePos(x,y);\r
+ if x2<=bitma.width then\r
+ begin\r
+ if y2<=bitma.heigh then\r
+ begin\r
+ if ssLeft in Shift then\r
+ GSM_SetPointBitmap(@bitma,x2-1,y2-1)\r
+ else\r
+ GSM_ClearPointBitmap(@bitma,x2-1,y2-1);\r
+\r
+ UpdatePointBitmap(x2-1,y2-1);\r
+ end;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.Button6Click(Sender: TObject);\r
+var\r
+ i,j:integer;\r
+ Name,Data:array[1..255] of char;\r
+ oldbitma:GSM_Bitmap;\r
+begin\r
+ LogosRingForm.Label1.Caption:='Do you want to set logo ?';\r
+ LogosRingForm.ComboBox3.Items.Clear;\r
+ case bitma.type2 of\r
+ GSM_StartupLogo:\r
+ begin\r
+ LogosRingForm.ComboBox3.Visible:=false;\r
+ LogosRingForm.ShowModal();\r
+ if (LogosRingForm.ComboBox3.Visible) then\r
+ GSM_SetBitmap(@bitma);\r
+ end;\r
+ GSM_OperatorLogo:\r
+ begin\r
+ LogosRingForm.ComboBox3.Visible:=true;\r
+ LogosRingForm.ComboBox3.Items.Add('Preview');\r
+ //preparing network names\r
+ i:=0;\r
+ while true do\r
+ begin\r
+ GSM_GetNetworkData(i,@Name,@Data);\r
+\r
+ // conversion problems\r
+ Label14.Caption:=Name;\r
+ if strcomp(PChar(Label14.Caption),PChar('unknown'))=0 then break;\r
+\r
+ // conversion problems\r
+ Label14.Caption:=' - '+Label14.Caption;\r
+ for j:=6 downto 1 do\r
+ begin\r
+ Label14.Caption:=Data[j]+Label14.Caption;\r
+ end;\r
+\r
+ LogosRingForm.ComboBox3.Items.Add(Pchar(Label14.Caption));\r
+ i:=i+1;\r
+ end;\r
+ //looking for current network\r
+ if GSMPhoneConnected then\r
+ begin\r
+ // conversion problems\r
+ Label14.Caption:=MainForm.StatusBar1.Panels[1].Text;\r
+ Label14.Caption:=' - '+Label14.Caption;\r
+ for j:=6 downto 1 do\r
+ begin\r
+ Label14.Caption:=GSMNetworkInfo.NetworkCode[j]+Label14.Caption;\r
+ end;\r
+\r
+ i:=1;\r
+ while true do\r
+ begin\r
+ if strcomp(pchar(LogosRingForm.ComboBox3.Items[i]),pchar(Label14.Caption))=0\r
+ then break;\r
+ i:=i+1;\r
+ end;\r
+ LogosRingForm.ComboBox3.ItemIndex:=i;\r
+ end;\r
+ LogosRingForm.ShowModal();\r
+ if (LogosRingForm.ComboBox3.Visible) then\r
+ begin\r
+ if LogosRingForm.ComboBox3.ItemIndex=0 then\r
+ begin\r
+ bitma.number:=255;\r
+ for i:=1 to 6 do\r
+ begin\r
+ bitma.netcode[i]:=GSMNetworkInfo.NetworkCode[i];\r
+ end;\r
+ bitma.netcode[7]:=chr(0);\r
+ end else\r
+ begin\r
+ GSM_GetNetworkData(LogosRingForm.ComboBox3.ItemIndex-1,@Name,@bitma.netcode);\r
+ end;\r
+ GSM_SetBitmap(@bitma);\r
+ end;\r
+ end;\r
+ GSM_PictureImage:\r
+ begin\r
+ LogosRingForm.ComboBox3.Visible:=true;\r
+ for i:=1 to 20 do\r
+ begin\r
+ LogosRingForm.ComboBox3.Items.Add('Location '+inttostr(i));\r
+ end;\r
+ LogosRingForm.ComboBox3.ItemIndex:=0;\r
+ LogosRingForm.ShowModal();\r
+ if (LogosRingForm.ComboBox3.Visible) then\r
+ begin\r
+ if LogosRingForm.ComboBox3.ItemIndex=0 then\r
+ begin\r
+ bitma.number:=255;\r
+ end else\r
+ begin\r
+ bitma.number:=LogosRingForm.ComboBox3.ItemIndex;\r
+ end;\r
+ GSM_SetBitmap(@bitma);\r
+ end;\r
+ end;\r
+ GSM_CallerLogo:\r
+ begin\r
+ LogosRingForm.ComboBox3.Visible:=true;\r
+ LogosRingForm.ComboBox3.Items.Add('Preview');\r
+ ReadAllCallerGroups();\r
+ for i:=1 to 5 do\r
+ begin\r
+ LogosRingForm.ComboBox3.Items.Add(caller[i].text);\r
+ end;\r
+ LogosRingForm.ComboBox3.ItemIndex:=1;\r
+ LogosRingForm.ShowModal();\r
+ if (LogosRingForm.ComboBox3.Visible) then\r
+ begin\r
+ if LogosRingForm.ComboBox3.ItemIndex=0 then\r
+ begin\r
+ bitma.number:=255;\r
+ end else\r
+ begin\r
+ bitma.number:=LogosRingForm.ComboBox3.ItemIndex-1;\r
+ //we need to get old caller group datas\r
+ oldbitma.type2:=bitma.type2;\r
+ oldbitma.number:=bitma.number;\r
+ GSM_GetBitmap(@oldbitma);\r
+ bitma.ringtone:=oldbitma.ringtone;\r
+ bitma.text:=oldbitma.text;\r
+ end;\r
+ GSM_SetBitmap(@bitma);\r
+ end;\r
+ end;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.Button5Click(Sender: TObject);\r
+begin\r
+ if SaveDialog1.Execute then\r
+ begin\r
+ GSM_SaveBitmapFile(PChar(SaveDialog1.FileName),@bitma);\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.Button8Click(Sender: TObject);\r
+var\r
+ bitma2:GSM_Bitmap;\r
+begin\r
+ if MessageDlg('Restore logo to default ?',\r
+ mtConfirmation, [mbYes, mbNo], 0) = mrYes then\r
+ begin\r
+ bitma2:=bitma;\r
+ bitma2.netcode[1]:='0';\r
+ bitma2.netcode[2]:='0';\r
+ bitma2.netcode[3]:='0';\r
+ bitma2.netcode[4]:=' ';\r
+ bitma2.netcode[5]:='0';\r
+ bitma2.netcode[6]:='0';\r
+ bitma2.netcode[7]:=chr(0);\r
+ GSM_ClearBitmap(@bitma2);\r
+ GSM_SetBitmap(@bitma2);\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.Button12Click(Sender: TObject);\r
+begin\r
+ GSM_ClearBitmap(@bitma);\r
+ DrawBitmap();\r
+end;\r
+\r
+//MainForm main functions\r
+procedure TMainForm.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;\r
+ Shift: TShiftState; X, Y: Integer);\r
+begin\r
+ MainForm.TreeView1.FullExpand;\r
+ case MainForm.TreeView1.Selected.ImageIndex of\r
+ 0: MainForm.PageControl1.ActivePage:=PhoneTabSheet;\r
+ 1: MainForm.PageControl1.ActivePage:=CalendarTabSheet;\r
+ 2: MainForm.PageControl1.ActivePage:=DivertTabSheet;\r
+ 3: MainForm.PageControl1.ActivePage:=CallerTabSheet;\r
+ 4: MainForm.PageControl1.ActivePage:=LogosTabSheet;\r
+ 5: MainForm.PageControl1.ActivePage:=NetmonitorTabSheet;\r
+ 6: MainForm.PageControl1.ActivePage:=PhonebookTabSheet;\r
+ 7: MainForm.PageControl1.ActivePage:=ProfileTabSheet;\r
+ 8: MainForm.PageControl1.ActivePage:=RingtonesTabSheet;\r
+ 9: MainForm.PageControl1.ActivePage:=SMSTabSheet;\r
+ 10: MainForm.PageControl1.ActivePage:=SMSCTabSheet;\r
+ 11: MainForm.PageControl1.ActivePage:=SpeedTabSheet;\r
+ 12: MainForm.PageControl1.ActivePage:=WAPBookTabSheet;\r
+ 13: MainForm.PageControl1.ActivePage:=WAPSettTabSheet;\r
+ 14: MainForm.PageControl1.ActivePage:=PCOfflineTabSheet;\r
+ 15: MainForm.PageControl1.ActivePage:=PCCalendarTabSheet;\r
+ 16: MainForm.PageControl1.ActivePage:=PCSMSTabSheet;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.Configuration1Click(Sender: TObject);\r
+begin\r
+ MainForm.PageControl1.ActivePage:=ConfigTabSheet;\r
+end;\r
+\r
+procedure TMainForm.TreeView1KeyUp(Sender: TObject; var Key: Word;\r
+ Shift: TShiftState);\r
+begin\r
+ MainForm.TreeView1.FullExpand;\r
+end;\r
+\r
+procedure TMainForm.FormCreate(Sender: TObject);\r
+begin\r
+ MainForm.PhonebookTabSheet.TabVisible:=false;\r
+ MainForm.NetmonitorTabSheet.TabVisible:=false;\r
+ MainForm.LogosTabSheet.TabVisible:=false;\r
+ MainForm.PhoneTabSheet.TabVisible:=false;\r
+ MainForm.RingtonesTabSheet.TabVisible:=false;\r
+ MainForm.SMSTabSheet.TabVisible:=false;\r
+ MainForm.SMSCTabSheet.TabVisible:=false;\r
+ MainForm.SpeedTabSheet.TabVisible:=false;\r
+ MainForm.CalendarTabSheet.TabVisible:=false;\r
+ MainForm.CallerTabSheet.TabVisible:=false;\r
+ MainForm.ProfileTabSheet.TabVisible:=false;\r
+ MainForm.WAPBookTabSheet.TabVisible:=false;\r
+ MainForm.WAPSettTabSheet.TabVisible:=false;\r
+ MainForm.DivertTabSheet.TabVisible:=false;\r
+ MainForm.ConfigTabSheet.TabVisible:=false;\r
+ MainForm.AboutTabSheet.TabVisible:=false;\r
+ MainForm.PCSMSTabSheet.TabVisible:=false;\r
+ MainForm.PCCalendarTabSheet.TabVisible:=false;\r
+ MainForm.PCOfflineTabSheet.TabVisible:=false;\r
+ MainForm.PageControl1.ActivePage:=PhoneTabSheet;\r
+\r
+ PreviewColor:=Image2.Canvas.Pixels[70,170];\r
+\r
+ bitma.size:=126;\r
+ bitma.width:=72;\r
+ bitma.heigh:=14;\r
+ bitma.type2:=GSM_OperatorLogo;\r
+ GSM_ClearBitmap(@bitma);\r
+\r
+ pointsize:=3;\r
+ MainForm.LogosImage.Width:=96*pointsize+96-1;\r
+ MainForm.LogosImage.Height:=65*pointsize+65-1;\r
+\r
+ netmonnum:=1;\r
+\r
+ MainForm.Width:=660;\r
+ MainForm.Height:=470;\r
+\r
+ callerinit:=false;\r
+ phoneinfo:=false;\r
+ smscinit:=false;\r
+\r
+ smsofflinenumber:=0;\r
+ calendarofflinenumber:=0;\r
+\r
+ readcalendar:=false;\r
+end;\r
+\r
+procedure TMainForm.Timer1Timer(Sender: TObject);\r
+var\r
+ NetworkName:array[1..255] of char;\r
+begin\r
+ if GSMPhoneConnected then\r
+ begin\r
+ // Here we should enable interface\r
+ GSM_GetNetworkName(@NetworkName,@GSMNetworkInfo.NetworkCode);\r
+ MainForm.StatusBar1.Panels[1].Text:=NetworkName;\r
+ if PhonebookThread=nil then\r
+ ComboBox1.Enabled:=true;\r
+\r
+ ListView1.Enabled:=true;\r
+ NetmonGroupBox.Enabled:=true;\r
+ SpinEdit1.Enabled:=true;\r
+ Button2.Enabled:=true;\r
+ Button3.Enabled:=true;\r
+ Button6.Enabled:=true;\r
+ Button7.Enabled:=true;\r
+ Button9.Enabled:=true;\r
+ Button11.Enabled:=true;\r
+\r
+ //ringtones\r
+ Button16.Enabled:=true;\r
+ if Edit1.Text<>'' then\r
+ Edit1.Enabled:=true;\r
+ if Edit2.Text<>'' then\r
+ Edit2.Enabled:=true;\r
+\r
+ If MainForm.PageControl1.ActivePage=MainForm.NetmonitorTabSheet then\r
+ NetmonitorTabSheetShow(Sender);\r
+\r
+ If MainForm.PageControl1.ActivePage=MainForm.PhoneTabSheet then\r
+ begin\r
+ if not phoneinfo then\r
+ PhoneTabSheetShow(Sender);\r
+ end;\r
+\r
+ If MainForm.PageControl1.ActivePage=MainForm.SpeedTabSheet then\r
+ begin\r
+ if speednum<>10 then\r
+ SpeedTabSheetShow(Sender);\r
+ end;\r
+\r
+ if bitma.type2<>GSM_OperatorLogo then\r
+ Button8.Enabled:=false\r
+ else\r
+ Button8.Enabled:=true;\r
+\r
+ if Edit2.Text<>'' then\r
+ Button14.Enabled:=true\r
+ else\r
+ Button14.Enabled:=false;\r
+\r
+ if Edit1.Text<>'' then\r
+ begin\r
+ Button2.Enabled:=true;\r
+ Button17.Enabled:=true;\r
+ if PlayRingtoneThread<>nil then\r
+ begin\r
+ Button3.Enabled:=false;\r
+ Button16.Enabled:=true;\r
+ end\r
+ else\r
+ begin\r
+ Button3.Enabled:=true;\r
+ Button16.Enabled:=false;\r
+ end;\r
+ end else\r
+ begin\r
+ Button2.Enabled:=false;\r
+ Button17.Enabled:=false;\r
+ Button16.Enabled:=false;\r
+ Button3.Enabled:=false;\r
+ end;\r
+\r
+ Button18.Enabled:=false;\r
+ if bitma.type2=GSM_PictureImage then\r
+ Button18.Enabled:=true;\r
+ if bitma.type2=GSM_OperatorLogo then\r
+ Button18.Enabled:=true;\r
+ if bitma.type2=GSM_CallerLogo then\r
+ Button18.Enabled:=true;\r
+\r
+ //wap settings\r
+ WAPSettTabSheet.Enabled:=true;\r
+ if GSM_GetModelFeature(FN_WAP)=0 then\r
+ begin\r
+ GroupBox19.Enabled:=false;\r
+ groupbox19.Ctl3D:=false;\r
+ ComboBox7.enabled:=false;\r
+ ComboBox8.enabled:=false;\r
+ ComboBox9.enabled:=false;\r
+ ComboBox10.enabled:=false;\r
+ ComboBox11.enabled:=false;\r
+ ComboBox12.enabled:=false;\r
+ ComboBox13.enabled:=false;\r
+ ComboBox14.enabled:=false;\r
+ Edit6.Enabled:=false;\r
+ Edit8.Enabled:=false;\r
+ Edit9.Enabled:=false;\r
+ Edit10.Enabled:=false;\r
+ Edit11.Enabled:=false;\r
+ Edit12.Enabled:=false;\r
+ Edit13.Enabled:=false;\r
+ Edit14.Enabled:=false;\r
+ Edit15.Enabled:=false;\r
+ end else\r
+ begin\r
+ GroupBox19.Enabled:=true;\r
+ groupbox19.Ctl3D:=true;\r
+ ComboBox7.enabled:=true;\r
+ ComboBox8.enabled:=true;\r
+ ComboBox9.enabled:=true;\r
+ ComboBox10.enabled:=true;\r
+ ComboBox11.enabled:=true;\r
+ ComboBox12.enabled:=true;\r
+ ComboBox13.enabled:=true;\r
+ ComboBox14.enabled:=true;\r
+ Edit6.Enabled:=true;\r
+ Edit8.Enabled:=true;\r
+ Edit9.Enabled:=true;\r
+ Edit10.Enabled:=true;\r
+ Edit11.Enabled:=true;\r
+ Edit12.Enabled:=true;\r
+ Edit13.Enabled:=true;\r
+ Edit14.Enabled:=true;\r
+ Edit15.Enabled:=true;\r
+ end;\r
+\r
+ button19.Enabled:=true;\r
+ button20.Enabled:=true;\r
+ end else\r
+ begin\r
+ // Here we should disabled interface\r
+ MainForm.StatusBar1.Panels[1].Text:='Not connected';\r
+\r
+ callerinit:=false;\r
+\r
+ MainForm.ComboBox1.Enabled:=false;\r
+ MainForm.ListView1.Enabled:=false;\r
+ MainForm.NetmonGroupBox.Enabled:=false;\r
+ MainForm.SpinEdit1.Enabled:=false;\r
+ MainForm.Button2.Enabled:=false;\r
+ MainForm.Button3.Enabled:=false;\r
+ MainForm.Button6.Enabled:=false;\r
+ MainForm.Button7.Enabled:=false;\r
+ MainForm.Button8.Enabled:=false;\r
+ MainForm.Button9.Enabled:=false;\r
+ MainForm.Button11.Enabled:=false;\r
+ Button18.Enabled:=false;\r
+\r
+ //ringtones\r
+ Button16.Enabled:=false;\r
+ Button14.Enabled:=false;\r
+ Button17.Enabled:=false;\r
+ Edit1.Enabled:=false;\r
+ Edit2.Enabled:=false;\r
+\r
+ MainForm.NetmonitorTabSheetHide(Sender);\r
+ MainForm.PhonebookTabSheetHide(Sender);\r
+ MainForm.SpeedTabSheetHide(Sender);\r
+\r
+ //WAP settings\r
+ ComboBox7.enabled:=false;\r
+ ComboBox8.enabled:=false;\r
+ ComboBox9.enabled:=false;\r
+ ComboBox10.enabled:=false;\r
+ ComboBox11.enabled:=false;\r
+ ComboBox12.enabled:=false;\r
+ ComboBox13.enabled:=false;\r
+ ComboBox14.enabled:=false;\r
+ Edit6.Enabled:=false;\r
+ Edit8.Enabled:=false;\r
+ Edit9.Enabled:=false;\r
+ Edit10.Enabled:=false;\r
+ Edit11.Enabled:=false;\r
+ Edit12.Enabled:=false;\r
+ Edit13.Enabled:=false;\r
+ Edit14.Enabled:=false;\r
+ Edit15.Enabled:=false;\r
+\r
+ button19.Enabled:=false;\r
+ button20.Enabled:=false;\r
+\r
+ phoneinfo:=false;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.Quit1Click(Sender: TObject);\r
+begin\r
+ if GSMPhoneConnected then GSM_Terminate();\r
+ Halt;\r
+end;\r
+\r
+procedure TMainForm.FormResize(Sender: TObject);\r
+begin\r
+ MainForm.StatusBar1.Panels[0].Width:=MainForm.Width-150;\r
+end;\r
+\r
+procedure TMainForm.About1Click(Sender: TObject);\r
+begin\r
+ AboutTabSheet.Show;\r
+end;\r
+\r
+//netmonitor sheet functions\r
+\r
+procedure TNetmonThread.Execute;\r
+var\r
+ netmon:array[1..255] of char;\r
+begin\r
+ while not Terminated do\r
+ begin\r
+ GSM_Netmonitor(netmonnum,@netmon);\r
+ MainForm.NetmonLabel.Caption:=netmon;\r
+ MainForm.NetmonGroupBox.Caption:=' Screen ' + IntToStr(netmonnum) + ' ';\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.NetmonitorTabSheetShow(Sender: TObject);\r
+begin\r
+ if NetmonThread<>nil then\r
+ else begin\r
+ if GSMPhoneConnected then\r
+ begin\r
+ MainForm.Timer2.Enabled:=false;\r
+ NetmonThread:=TNetmonThread.Create(false);\r
+ end;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.NetmonitorTabSheetHide(Sender: TObject);\r
+begin\r
+ if (NetmonThread<>nil) then\r
+ begin\r
+ NetmonThread.Terminate();\r
+ MainForm.Timer2.Enabled:=true;\r
+ NetmonThread:=nil;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.SpinEdit1Change(Sender: TObject);\r
+begin\r
+ netmonnum:=SpinEdit1.Value;\r
+end;\r
+\r
+procedure TMainForm.Button11Click(Sender: TObject);\r
+var\r
+ netmon:array[1..255] of char;\r
+begin\r
+ NetmonForm.ShowModal;\r
+ if NetmonForm.RadioGroup1.ItemIndex<>-1 then\r
+ begin\r
+ GSM_Netmonitor(241+NetmonForm.RadioGroup1.ItemIndex,@netmon);\r
+ end;\r
+end;\r
+\r
+//phonebook sheet functions\r
+\r
+procedure EndPhonebookThread;\r
+begin\r
+ if (PhonebookThread<>nil) then\r
+ begin\r
+ PhonebookThread.Terminate();\r
+ MainForm.Timer2.Enabled:=true;\r
+ PhonebookThread:=nil;\r
+ MainForm.ComboBox1.Enabled:=true;\r
+ end;\r
+end;\r
+\r
+procedure TPhonebookThread.Execute;\r
+var\r
+ x:GSM_PhonebookEntry;\r
+ i,j:integer;\r
+begin\r
+ while not Terminated do\r
+ begin\r
+ if (phonebookcur<phonebookstatus.Used+phonebookstatus.Free) then\r
+ begin\r
+ phonebookcur:=phonebookcur+1;\r
+ MainForm.StatusBar1.Panels[0].Text:='Reading '+inttostr(phonebookcur)+'/'+inttostr(phonebookstatus.Free+phonebookstatus.Used);\r
+ MainForm.ListView1.Items.Add;\r
+ MainForm.ListView1.Items.Item[phonebookcur-1].Caption:=inttostr(phonebookcur);\r
+ if (phonebookfound<phonebookstatus.Used) then\r
+ begin\r
+ x.MemoryType:=phonebookstatus.MemoryType;\r
+ x.Location:=phonebookcur;\r
+ if (x.MemoryType=GMT_ON) then x.Location:=x.Location-1;\r
+ if (x.MemoryType=GMT_DC) then x.Location:=x.Location-1;\r
+ if (x.MemoryType=GMT_MC) then x.Location:=x.Location-1;\r
+ if (x.MemoryType=GMT_RC) then x.Location:=x.Location-1;\r
+ if GSM_GetMemoryLocation(@x)=0 then\r
+ begin\r
+ MainForm.ListView1.Items.Item[phonebookcur-1].Subitems.Add(x.Name);\r
+\r
+ if (x.Number[1]<>chr(0)) then\r
+ MainForm.ListView1.Items.Item[phonebookcur-1].Subitems.Add(x.Number)\r
+ else begin\r
+ for j:=1 to x.SubEntriesCount do\r
+ begin\r
+ if x.SubEntries[j].EntryType=GSM_Number then\r
+ begin\r
+ MainForm.ListView1.Items.Item[phonebookcur-1].Subitems.Add(x.subentries[j].Number);\r
+ break;\r
+ end;\r
+ end;\r
+ end;\r
+\r
+ case x.Group of\r
+ 0:MainForm.ListView1.Items.Item[phonebookcur-1].Subitems.Add(caller[x.Group+1].text);\r
+ 1:MainForm.ListView1.Items.Item[phonebookcur-1].Subitems.Add(caller[x.Group+1].text);\r
+ 2:MainForm.ListView1.Items.Item[phonebookcur-1].Subitems.Add(caller[x.Group+1].text);\r
+ 3:MainForm.ListView1.Items.Item[phonebookcur-1].Subitems.Add(caller[x.Group+1].text);\r
+ 4:MainForm.ListView1.Items.Item[phonebookcur-1].Subitems.Add(caller[x.Group+1].text);\r
+ else\r
+ MainForm.ListView1.Items.Item[phonebookcur-1].Subitems.Add('not set');\r
+ end;\r
+\r
+ for i:=1 to x.SubEntriesCount do\r
+ begin\r
+ if x.SubEntries[i].EntryType=GSM_Date then\r
+ begin\r
+ MainForm.ListView1.Items.Item[phonebookcur-1].Subitems.Add(DayOfweek2(x.SubEntries[i].Date.Day,x.SubEntries[i].Date.Month,x.SubEntries[i].Date.Year)+' '+inttostr2(x.SubEntries[i].Date.Day,2)+'-'+inttostr2(x.SubEntries[i].Date.Month,2)+'-'+inttostr(x.SubEntries[i].Date.Year));\r
+ MainForm.ListView1.Items.Item[phonebookcur-1].Subitems.Add(inttostr2(x.SubEntries[i].Date.Hour,2)+':'+inttostr2(x.SubEntries[i].Date.Minute,2)+':'+inttostr2(x.SubEntries[i].Date.Second,2));\r
+ break;\r
+ end;\r
+ end;\r
+ if (x.Name[1]<>chr(0)) then phonebookfound:=phonebookfound+1;\r
+ end;\r
+ end;\r
+ end else\r
+ begin\r
+ MainForm.StatusBar1.Panels[0].Text:=inttostr(phonebookstatus.Used)+'/'+inttostr(phonebookstatus.Free+phonebookstatus.Used)+' entries';\r
+ EndPhonebookThread;\r
+ end;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.PhonebookTabSheetShow(Sender: TObject);\r
+begin\r
+ if GSMPhoneConnected then ComboBox1.Enabled:=true;\r
+end;\r
+\r
+procedure TMainForm.Button10Click(Sender: TObject);\r
+var\r
+ i:integer;\r
+ FileHandle:integer;\r
+begin\r
+ if SaveDialog1.Execute then\r
+ begin\r
+ FileHandle := FileCreate(SaveDialog1.FileName);\r
+ for i:=1 to ListView1.Items.Count do\r
+ begin\r
+ FileWrite(FileHandle,ListView1.Items.Item[i].Caption, SizeOf(ListView1.Items.Item[i].Caption));\r
+ end;\r
+ FileClose(FileHandle);\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.ComboBox1Change(Sender: TObject);\r
+begin\r
+ if (ComboBox1.ItemIndex<>0) then\r
+ begin\r
+ case ComboBox1.ItemIndex of\r
+ 1:phonebookstatus.MemoryType:=GMT_DC;\r
+ 2:phonebookstatus.MemoryType:=GMT_MC;\r
+ 3:phonebookstatus.MemoryType:=GMT_ON;\r
+ 4:phonebookstatus.MemoryType:=GMT_ME;\r
+ 5:phonebookstatus.MemoryType:=GMT_SM;\r
+ 6:phonebookstatus.MemoryType:=GMT_RC;\r
+ end;\r
+ if GSM_GetMemoryStatus(@phonebookstatus)<>0 then\r
+ begin\r
+ phonebookstatus.Free:=0;\r
+ phonebookstatus.Used:=30;\r
+ end;\r
+ phonebookcur:=0;\r
+ phonebookfound:=0;\r
+\r
+ ComboBox1.Enabled:=false;\r
+\r
+ ReadAllCallerGroups();\r
+\r
+ MainForm.ListView1.Items.Clear;\r
+ MainForm.Timer2.Enabled:=false;\r
+ PhonebookThread:=TPhonebookThread.Create(false);\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.PhonebookTabSheetHide(Sender: TObject);\r
+begin\r
+ EndPhonebookThread;\r
+end;\r
+\r
+//ringtones\r
+procedure TMainForm.Button1Click(Sender: TObject);\r
+var\r
+ ring:GSM_Ringtone;\r
+begin\r
+ if OpenDialog1.Execute then\r
+ begin\r
+ if GSM_ReadRingtoneFile(PChar(OpenDialog1.FileName),@ring)=0 then\r
+ begin\r
+ Edit1.Text:=ring.Name;\r
+ rington:=ring;\r
+ end;\r
+ end;\r
+end;\r
+\r
+procedure EndPlayRingtoneThread;\r
+begin\r
+ if (PlayRingtoneThread<>nil) then\r
+ begin\r
+ PlayRingtoneThread.Terminate();\r
+ GSM_PlayTone(255*255,0);\r
+ MainForm.Timer2.Enabled:=true;\r
+ PlayRingtoneThread:=nil;\r
+ end;\r
+end;\r
+\r
+procedure TPlayRingtoneThread.Execute;\r
+begin\r
+ while not Terminated do\r
+ begin\r
+ GSM_PlayNote(rington.notes[ringindex]);\r
+ ringindex:=ringindex+1;\r
+ if ringindex>rington.NrNotes then\r
+ EndPlayRingtoneThread;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.Button16Click(Sender: TObject);\r
+begin\r
+ EndPlayRingtoneThread;\r
+end;\r
+\r
+procedure TMainForm.Button3Click(Sender: TObject);\r
+begin\r
+ ringindex:=1;\r
+ MainForm.Timer2.Enabled:=false;\r
+ PlayRingtoneThread:=TPlayRingtoneThread.Create(false);\r
+end;\r
+\r
+procedure TMainForm.Button2Click(Sender: TObject);\r
+var\r
+ i:integer;\r
+begin\r
+ LogosRingForm.Label1.Caption:='Do you want to set ringtone ?';\r
+ LogosRingForm.ComboBox3.Items.Clear();\r
+ LogosRingForm.ComboBox3.Items.Add('Preview');\r
+ for i:=1 to 7 do\r
+ begin\r
+ LogosRingForm.ComboBox3.Items.Add('Location '+inttostr(i));\r
+ end;\r
+ LogosRingForm.ComboBox3.ItemIndex:=1;\r
+ LogosRingForm.ShowModal;\r
+ if LogosRingForm.ComboBox3.Visible then\r
+ begin\r
+ if LogosRingForm.ComboBox3.ItemIndex=0 then\r
+ rington.location:=255\r
+ else\r
+ rington.location:=LogosRingForm.ComboBox3.ItemIndex;\r
+ MainForm.Timer2.Enabled:=false;\r
+ GSM_SetRingtone(@rington,@i);\r
+ MainForm.Timer2.Enabled:=true;\r
+ end;\r
+end;\r
+\r
+//phone sheet\r
+procedure TMainForm.PhoneTabSheetShow(Sender: TObject);\r
+var\r
+ xxxx,xxx:array[1..256] of char;\r
+ time:GSM_DateTime;\r
+ siml:GSM_AllSimlocks;\r
+ i:integer;\r
+ code:GSM_SecurityCode;\r
+begin\r
+ if GSMPhoneConnected then\r
+ begin\r
+ GSM_GetRevision(@xxx);\r
+ Label9.Caption:=xxx;\r
+ GSM_GetImei(@xxx);\r
+ Label7.Caption:=xxx;\r
+ GSM_GetModel(@xxx);\r
+ GSM_GetModelNumber(@xxx,@xxxx);\r
+ Label5.Caption:=xxx;\r
+ Label5.Caption:=Label5.Caption+' ('+xxxx;\r
+ Label5.Caption:=Label5.Caption+')';\r
+ GSM_GetAlarm(1,@time);\r
+ if time.isSet<>0 then\r
+ CheckBox1.Checked:=true\r
+ else\r
+ CheckBox1.Checked:=false;\r
+ DateTimePicker1.Time:=EncodeTime(time.Hour,time.Minute,0,0);\r
+ ListView8.Items.Clear();\r
+ GSM_GetSimlock(@siml);\r
+ for i:=1 to 4 do\r
+ begin\r
+ MainForm.ListView8.Items.Add;\r
+ MainForm.ListView8.Items.Item[i-1].Caption:=inttostr(i);\r
+ MainForm.ListView8.Items.Item[i-1].Subitems.Add(siml.simlocks[i].data);\r
+ if siml.simlocks[i].enabled=0 then\r
+ MainForm.ListView8.Items.Item[i-1].Subitems.Add('disabled')\r
+ else\r
+ begin\r
+ if siml.simlocks[i].factory<>0 then\r
+ MainForm.ListView8.Items.Item[i-1].Subitems.Add('factory')\r
+ else\r
+ MainForm.ListView8.Items.Item[i-1].Subitems.Add('user');\r
+ end;\r
+ MainForm.ListView8.Items.Item[i-1].Subitems.Add(inttostr(siml.simlocks[i].counter));\r
+ end;\r
+ code.Type2:=GSCT_SecurityCode;\r
+ GSM_GetSecurityCode(@code);\r
+ Label18.Caption:=code.Code;\r
+\r
+ phoneinfo:=true;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.Button9Click(Sender: TObject);\r
+begin\r
+ GSM_Reset(GSM_SoftReset);\r
+end;\r
+\r
+//speed dials\r
+procedure TMainForm.SpeedTabSheetShow(Sender: TObject);\r
+begin\r
+ if SpeedThread<>nil then\r
+ else begin\r
+ if GSMPhoneConnected then\r
+ begin\r
+ MainForm.ListView3.Items.Clear;\r
+ speednum:=1;\r
+ MainForm.Timer2.Enabled:=false;\r
+ SpeedThread:=TSpeedThread.Create(false);\r
+ end;\r
+ end;\r
+end;\r
+\r
+procedure EndSpeedThread();\r
+begin\r
+ if (SpeedThread<>nil) then\r
+ begin\r
+ SpeedThread.Terminate();\r
+ MainForm.Timer2.Enabled:=true;\r
+ SpeedThread:=nil;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.SpeedTabSheetHide(Sender: TObject);\r
+begin\r
+ EndSpeedThread();\r
+end;\r
+\r
+procedure TSpeedThread.Execute;\r
+var\r
+ entry1:GSM_SpeedDial;\r
+ entry2:GSM_PhonebookEntry;\r
+ i:integer;\r
+begin\r
+ while not Terminated do\r
+ begin\r
+ entry1.Number:=speednum;\r
+ if GSM_GetSpeedDial(@entry1)=0 then\r
+ begin\r
+ entry2.Location:=entry1.Location;\r
+ entry2.MemoryType:=entry1.MemoryType;\r
+ if entry2.Location=0 then\r
+ entry2.Location:=speednum;\r
+ GSM_GetMemoryLocation(@entry2);\r
+ MainForm.ListView3.Items.Add;\r
+ MainForm.ListView3.Items.Item[speednum-1].Caption:=inttostr(speednum);\r
+ MainForm.ListView3.Items.Item[speednum-1].Subitems.Add(entry2.Name);\r
+ if entry2.Number[1]<>chr(0) then\r
+ MainForm.ListView3.Items.Item[speednum-1].Subitems.Add(entry2.Number)\r
+ else begin\r
+ for i:=1 to entry2.SubEntriesCount do\r
+ begin\r
+ if entry2.SubEntries[i].EntryType=GSM_Number then\r
+ begin\r
+ MainForm.ListView3.Items.Item[speednum-1].Subitems.Add(entry2.SubEntries[i].Number);\r
+ break;\r
+ end;\r
+ end;\r
+ end;\r
+ speednum:=speednum+1;\r
+ end;\r
+ if speednum=10 then\r
+ EndSpeedThread();\r
+ end;\r
+end;\r
+\r
+//calendar\r
+procedure EndCalendarThread();\r
+begin\r
+ if (CalendarThread<>nil) then\r
+ begin\r
+ CalendarThread.Terminate();\r
+ MainForm.Timer2.Enabled:=true;\r
+ CalendarThread:=nil;\r
+ end;\r
+end;\r
+\r
+procedure AddCalendarNote(note:GSM_CalendarNote;myview:TListView);\r
+begin\r
+ myview.Items.Add;\r
+ myview.Items.Item[myview.Items.Count-1].Caption:=inttostr(myview.Items.Count);\r
+ case note.Type2 of\r
+ GCN_Reminder:myview.Items.Item[myview.Items.Count-1].Subitems.Add('Reminder');\r
+ GCN_Call :myview.Items.Item[myview.Items.Count-1].Subitems.Add('Call');\r
+ GCN_Meeting :myview.Items.Item[myview.Items.Count-1].Subitems.Add('Meeting');\r
+ GCN_Birthday:myview.Items.Item[myview.Items.Count-1].Subitems.Add('Birthday');\r
+ end;\r
+ myview.Items.Item[myview.Items.Count-1].Subitems.Add(note.Text);\r
+ myview.Items.Item[myview.Items.Count-1].Subitems.Add(note.Phone);\r
+ 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
+ if note.Alarm.Year<>0 then\r
+ 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
+ else\r
+ myview.Items.Item[myview.Items.Count-1].Subitems.Add('');\r
+end;\r
+\r
+procedure TCalendarThread.Execute;\r
+var\r
+ note:GSM_CalendarNote;\r
+begin\r
+ while not Terminated do\r
+ begin\r
+ note.Location:=calendarnum;\r
+ if GSM_GetCalendarNote(@note)=0 then\r
+ begin\r
+ AddCalendarNote(note,MainForm.ListView4);\r
+ calendarnum:=calendarnum+1;\r
+ end else begin\r
+ readcalendar:=true;\r
+ EndCalendarThread();\r
+ end;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.CalendarTabSheetShow(Sender: TObject);\r
+begin\r
+ if CalendarThread=nil then\r
+ begin\r
+ if GSMPhoneConnected then\r
+ begin\r
+ if (GSM_GetModelFeature(FN_Calendar)<>0) then\r
+ begin\r
+ ListView4.Enabled:=true;\r
+ ListView4.Ctl3D:=true;\r
+ GroupBox8.Ctl3D:=true;\r
+\r
+ MainForm.ListView4.Items.Clear;\r
+ CalendarNum:=1;\r
+ MainForm.Timer2.Enabled:=false;\r
+ readcalendar:=false;\r
+ CalendarThread:=TCalendarThread.Create(false);\r
+ end else\r
+ begin\r
+ ListView4.Enabled:=false;\r
+ ListView4.Ctl3D:=false;\r
+ GroupBox8.Ctl3D:=false;\r
+ end;\r
+ end;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.CalendarTabSheetHide(Sender: TObject);\r
+begin\r
+ EndCalendarThread();\r
+end;\r
+\r
+procedure TMainForm.New1Click(Sender: TObject);\r
+begin\r
+ setcalendarnote.Location:=MainForm.ListView4.Items.Count+1;\r
+ CalendarForm.ComboBox1.ItemIndex:=0;\r
+ CalendarForm.ComboBox1.OnSelect(nil);\r
+ CalendarForm.Edit2.Text:='';\r
+ CalendarForm.Edit1.Text:='';\r
+ CalendarForm.DateTimePicker1.DateTime:=Date;\r
+ CalendarForm.DateTimePicker3.Time:=Time;\r
+ CalendarForm.DateTimePicker2.DateTime:=Date;\r
+ CalendarForm.DateTimePicker4.Time:=Time;\r
+ CalendarForm.ShowModal;\r
+end;\r
+\r
+procedure EditCalendarNote;\r
+var i:integer;\r
+begin\r
+ i:=0;\r
+\r
+ CalendarForm.DateTimePicker1.Date:=EncodeDate(setcalendarnote.Time.Year,\r
+ setcalendarnote.Time.Month,\r
+ setcalendarnote.Time.Day);\r
+ CalendarForm.DateTimePicker3.Time:=EncodeTime(setcalendarnote.Time.Hour,\r
+ setcalendarnote.Time.Minute,\r
+ setcalendarnote.Time.Second,i);\r
+ case setcalendarnote.Type2 of\r
+ GCN_BIRTHDAY: CalendarForm.ComboBox1.ItemIndex:=0;\r
+ GCN_CALL: CalendarForm.ComboBox1.ItemIndex:=1;\r
+ GCN_MEETING: CalendarForm.ComboBox1.ItemIndex:=2;\r
+ GCN_REMINDER: CalendarForm.ComboBox1.ItemIndex:=3;\r
+ end;\r
+\r
+ CalendarForm.Edit2.Text:=setcalendarnote.Text;\r
+ CalendarForm.Edit1.Text:=setcalendarnote.Phone;\r
+\r
+ if setcalendarnote.Alarm.Year<>0 then\r
+ begin\r
+ CalendarForm.CheckBox1.checked:=true;\r
+ CalendarForm.DateTimePicker2.Date:=EncodeDate(setcalendarnote.Alarm.Year,\r
+ setcalendarnote.Alarm.Month,\r
+ setcalendarnote.Alarm.Day);\r
+ CalendarForm.DateTimePicker4.Time:=EncodeTime(setcalendarnote.Alarm.Hour,\r
+ setcalendarnote.Alarm.Minute,\r
+ setcalendarnote.Alarm.Second,i);\r
+ end else\r
+ begin\r
+ CalendarForm.CheckBox1.checked:=false;\r
+ CalendarForm.DateTimePicker2.Date:=CalendarForm.DateTimePicker1.Date;\r
+ CalendarForm.DateTimePicker4.Time:=CalendarForm.DateTimePicker3.Time;\r
+ end;\r
+\r
+ if GSM_GetModelFeature(FN_CALENDAR)=F_CAL71 then\r
+ begin\r
+ if setcalendarnote.Type2<>GCN_BIRTHDAY then\r
+ begin\r
+ CalendarForm.CheckBox2.Checked:=True;\r
+ case setcalendarnote.Recurrance of\r
+ 0 :begin\r
+ CalendarForm.CheckBox2.Checked:=False;\r
+ CalendarForm.ComboBox2.Enabled:=False;\r
+ end;\r
+ 1*24 :CalendarForm.ComboBox2.ItemIndex:=0;\r
+ 7*24 :CalendarForm.ComboBox2.ItemIndex:=1;\r
+ 14*24 :CalendarForm.ComboBox2.ItemIndex:=2;\r
+ 365*24:CalendarForm.ComboBox2.ItemIndex:=3;\r
+ end;\r
+ CalendarForm.RadioButton1.Enabled:=False;\r
+ CalendarForm.RadioButton2.Enabled:=False;\r
+ end else begin\r
+ CalendarForm.ComboBox2.ItemIndex:=0;\r
+ CalendarForm.CheckBox2.Checked:=False;\r
+ CalendarForm.ComboBox2.Enabled:=False;\r
+ CalendarForm.RadioButton1.Enabled:=True;\r
+ CalendarForm.RadioButton2.Enabled:=True;\r
+ if setcalendarnote.AlarmType=1 then\r
+ CalendarForm.RadioButton1.Checked:=True\r
+ else\r
+ CalendarForm.RadioButton2.Checked:=True;\r
+ end;\r
+ end;\r
+ CalendarForm.ComboBox1.OnSelect(nil);\r
+\r
+ CalendarForm.ShowModal;\r
+end;\r
+\r
+procedure TMainForm.Edit3Click(Sender: TObject);\r
+begin\r
+ setcalendarnote.Location:=calendarselect;\r
+\r
+ mainform.Timer2.Enabled:=false;\r
+ GSM_GetCalendarNote(@setcalendarnote);\r
+ mainform.Timer2.Enabled:=true;\r
+\r
+ EditCalendarNote;\r
+end;\r
+\r
+procedure TMainForm.ListView4SelectItem(Sender: TObject; Item: TListItem;\r
+ Selected: Boolean);\r
+begin\r
+ if Selected then\r
+ begin\r
+ calendarselect:=Item.Index+1;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.Delete1Click(Sender: TObject);\r
+begin\r
+// if listview4.selected<>nil then\r
+// begin\r
+ if MessageDlg('Do you want to delete this calendar note ?',\r
+ mtConfirmation, [mbYes, mbNo], 0) = mrYes then\r
+ begin\r
+ setcalendarnote.Location:=calendarselect;\r
+ GSM_DeleteCalendarNote(@setcalendarnote);\r
+ MainForm.CalendarTabSheetShow(nil);\r
+ end;\r
+// end;\r
+end;\r
+\r
+//caller groups\r
+procedure EndCallerThread();\r
+begin\r
+ if (CallerThread<>nil) then\r
+ begin\r
+ CallerThread.Terminate();\r
+ CallerThread:=nil;\r
+ end;\r
+end;\r
+\r
+procedure TCallerThread.Execute;\r
+begin\r
+ while not Terminated do\r
+ begin\r
+ ReadCallerGroup();\r
+ if callerinit then EndCallerThread();\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.CallerTabSheetShow(Sender: TObject);\r
+begin\r
+ if CallerThread=nil then\r
+ begin\r
+ if GSMPhoneConnected then\r
+ begin\r
+ MainForm.ListView5.Items.Clear;\r
+ callerinit:=false;\r
+ callernum:=1;\r
+ CallerThread:=TCallerThread.Create(false);\r
+ end;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.CallerTabSheetHide(Sender: TObject);\r
+begin\r
+ EndCallerThread();\r
+end;\r
+\r
+//smsc\r
+procedure TMainForm.SMSCTabSheetShow(Sender: TObject);\r
+begin\r
+ if SMSCThread<>nil then\r
+ else begin\r
+ if GSMPhoneConnected then\r
+ begin\r
+ MainForm.ListView6.Items.Clear;\r
+ smscinit:=false;\r
+ smscnum:=1;\r
+ MainForm.Timer2.Enabled:=false;\r
+ SMSCThread:=TSMSCThread.Create(false);\r
+ end;\r
+ end;\r
+end;\r
+\r
+procedure SMSCTabHide();\r
+begin\r
+ if (SMSCThread<>nil) then\r
+ begin\r
+ SMSCThread.Terminate();\r
+ MainForm.Timer2.Enabled:=true;\r
+ SMSCThread:=nil;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.SMSCTabSheetHide(Sender: TObject);\r
+begin\r
+ SMSCTabHide();\r
+end;\r
+\r
+procedure ReadSMSC();\r
+var\r
+ smsc:GSM_MessageCenter;\r
+begin\r
+ smsc.No:=smscnum;\r
+ MainForm.StatusBar1.Panels[0].Text:='Reading SMSC '+inttostr(smscnum);\r
+ if GSM_GetSMSCenter(@smsc)=0 then\r
+ begin\r
+ SMSC2[smscnum]:=smsc;\r
+ MainForm.ListView6.Items.Add;\r
+ MainForm.ListView6.Items.Item[smscnum-1].Caption:=inttostr(smscnum);\r
+ MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add(smsc.name);\r
+ MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add(smsc.number);\r
+ case smsc.Validity of\r
+ GSMV_1_Hour : MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add('1 hour');\r
+ GSMV_6_Hours : MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add('6 hours');\r
+ GSMV_24_Hours : MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add('1 day');\r
+ GSMV_72_Hours : MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add('3 days');\r
+ GSMV_1_Week : MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add('1 week');\r
+ GSMV_Max_Time : MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add('max. time');\r
+ else\r
+ MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add('unknown');\r
+ end;\r
+ case smsc.Format of\r
+ GSMF_Text : MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add('text');\r
+ GSMF_Fax : MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add('fax');\r
+ GSMF_Voice : MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add('voice');\r
+ GSMF_ERMES : MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add('ERMES');\r
+ GSMF_Paging : MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add('paging');\r
+ GSMF_UCI : MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add('UCI');\r
+ GSMF_Email : MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add('email');\r
+ GSMF_X400 : MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add('X400');\r
+ else\r
+ MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add('unknown');\r
+ end;\r
+ MainForm.ListView6.Items.Item[smscnum-1].Subitems.Add(smsc.defaultrecipient);\r
+ smscnum:=smscnum+1;\r
+ end else\r
+ begin\r
+ MainForm.StatusBar1.Panels[0].Text:='';\r
+ smscinit:=true;\r
+ end;\r
+end;\r
+\r
+procedure TSMSCThread.Execute;\r
+begin\r
+ while not Terminated do\r
+ begin\r
+ ReadSMSC();\r
+ if smscinit then SMSCTabHide();\r
+ end;\r
+end;\r
+\r
+//profiles\r
+procedure ProfileTabHide();\r
+begin\r
+ if (ProfileThread<>nil) then\r
+ begin\r
+ ProfileThread.Terminate();\r
+ MainForm.Timer2.Enabled:=true;\r
+ ProfileThread:=nil;\r
+ end;\r
+end;\r
+\r
+procedure TProfileThread.Execute;\r
+var\r
+ profile:GSM_Profile;\r
+begin\r
+ while not Terminated do\r
+ begin\r
+ profile.number:=profilenum-1;\r
+ GSM_GetProfile(@profile);\r
+ MainForm.ListView7.Items.Add;\r
+ MainForm.ListView7.Items.Item[profilenum-1].Caption:=inttostr(profilenum);\r
+ MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add(profile.name);\r
+ case profile.CallAlert of\r
+ PROFILE_CALLALERT_RINGING :MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('ringing');\r
+ PROFILE_CALLALERT_BEEPONCE :MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('beep once');\r
+ PROFILE_CALLALERT_OFF :MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('off');\r
+ PROFILE_CALLALERT_RINGONCE :MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('ring once');\r
+ PROFILE_CALLALERT_ASCENDING:MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('ascending');\r
+ PROFILE_CALLALERT_CALLERGROUPS:MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('caller groups');\r
+ end;\r
+ MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add(inttostr(profile.Ringtone));\r
+ case profile.Volume of\r
+ PROFILE_VOLUME_LEVEL1:MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('volume 1');\r
+ PROFILE_VOLUME_LEVEL2:MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('volume 2');\r
+ PROFILE_VOLUME_LEVEL3:MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('volume 3');\r
+ PROFILE_VOLUME_LEVEL4:MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('volume 4');\r
+ PROFILE_VOLUME_LEVEL5:MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('volume 5');\r
+ end;\r
+ case profile.Vibration of\r
+ PROFILE_VIBRATION_OFF :MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('off');\r
+ PROFILE_VIBRATION_ON :MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('on');\r
+ PROFILE_VIBRATION_FIRST:MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('vibrate first');\r
+ end;\r
+ case profile.MessageTone of\r
+ PROFILE_MESSAGE_NOTONE :MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('no tone');\r
+ PROFILE_MESSAGE_STANDARD :MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('standard');\r
+ PROFILE_MESSAGE_SPECIAL :MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('special');\r
+ PROFILE_MESSAGE_BEEPONCE :MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('beep once');\r
+ PROFILE_MESSAGE_ASCENDING:MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('ascending');\r
+ end;\r
+ case profile.KeypadTone of\r
+ PROFILE_KEYPAD_OFF :MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('off');\r
+ PROFILE_KEYPAD_LEVEL1:MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('volume 1');\r
+ PROFILE_KEYPAD_LEVEL2:MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('volume 2');\r
+ PROFILE_KEYPAD_LEVEL3:MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('volume 3');\r
+ end;\r
+ case profile.WarningTone of\r
+ PROFILE_WARNING_OFF:MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('off');\r
+ PROFILE_WARNING_ON :MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add('on');\r
+ end;\r
+ MainForm.ListView7.Items.Item[profilenum-1].Subitems.Add(inttostr(profile.CallerGroups));\r
+ profilenum:=profilenum+1;\r
+ case GSM_GetModelFeature(FN_PROFILES) of\r
+ F_PROF61:if profilenum=8 then ProfileTabHide();\r
+ F_PROF51:if profilenum=3 then ProfileTabHide();\r
+ F_PROF33:if profilenum=7 then ProfileTabHide();\r
+ end;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.ProfileTabSheetShow(Sender: TObject);\r
+begin\r
+ if ProfileThread<>nil then\r
+ else begin\r
+ if GSMPhoneConnected then\r
+ begin\r
+ MainForm.ListView7.Items.Clear;\r
+ profilenum:=1;\r
+ MainForm.Timer2.Enabled:=false;\r
+ ProfileThread:=TProfileThread.Create(false);\r
+ end;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.ProfileTabSheetHide(Sender: TObject);\r
+begin\r
+ ProfileTabHide();\r
+end;\r
+\r
+//sms\r
+procedure AddSMSInfo(myobject:TListView;mysms:GSM_SMSMessage);\r
+var number:integer;\r
+begin\r
+ number:=myobject.Items.Count;\r
+\r
+ myobject.Items.Add;\r
+ myobject.Items.Item[number].Caption:=inttostr(number+1);\r
+ myobject.Items.Item[number].Subitems.Add(mysms.MessageText);\r
+ myobject.Items.Item[number].Subitems.Add(mysms.Sender);\r
+ if mysms.SMSData=1 then\r
+ begin\r
+ 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
+ myobject.Items.Item[number].Subitems.Add(inttostr2(mysms.Time.Hour,2)+':'+inttostr2(mysms.Time.Minute,2)+':'+inttostr2(mysms.Time.Second,2));\r
+ end;\r
+end;\r
+\r
+procedure DisplaySMSfolder();\r
+var\r
+ i:integer;\r
+begin\r
+ MainForm.ListView2.Items.Clear();\r
+ i:=0;\r
+ while i<>SMSstatus.Number do\r
+ begin\r
+ i:=i+1;\r
+ if (SMSfolders.Folder[SMS[i].folder].Name=\r
+ SMSfolders.Folder[MainForm.ComboBox3.ItemIndex].Name) then\r
+ begin\r
+ AddSMSInfo(MainForm.ListView2,SMS[i]);\r
+ end;\r
+ end;\r
+end;\r
+\r
+procedure SendSaveSMS(mysms:GSM_SMSMessage);\r
+var i:integer;\r
+begin\r
+ //text\r
+ SMSEditForm.Memo1.Text:=mysms.MessageText;\r
+\r
+ //number\r
+ SMSEditForm.Edit2.Text:=mysms.sender;\r
+\r
+ //sms folder\r
+ SMSEditForm.ComboBox1.Items.Clear;\r
+ for i:=0 to MainForm.ComboBox3.items.count-1 do\r
+ begin\r
+ SMSEditForm.ComboBox1.Items.Add(MainForm.ComboBox3.Items.Strings[i]);\r
+ end;\r
+ SMSEditForm.ComboBox1.ItemIndex:=MainForm.ComboBox3.ItemIndex;\r
+\r
+ //smsc\r
+ SetSMSC(1);\r
+ SMSEditForm.ComboBox2.Items.Clear;\r
+ SMSEditForm.ComboBox2.Items.Add('custom');\r
+ for i:=1 to smscnum-1 do\r
+ begin\r
+ if SMSC2[i].Name[1]<>chr(0) then\r
+ SMSEditForm.ComboBox2.Items.Add('set '+inttostr(i)+' - '+SMSC2[i].Name)\r
+ else\r
+ SMSEditForm.ComboBox2.Items.Add('set '+inttostr(i));\r
+ end;\r
+ SMSEditForm.ComboBox2.ItemIndex:=0;\r
+\r
+ if mysms.ReplyViaSameSMSC<>0 then\r
+ SMSEditForm.CheckBox3.Checked:=true\r
+ else\r
+ SMSEditForm.CheckBox3.Checked:=false;\r
+\r
+ if mysms.Class2=1 then\r
+ SMSEditForm.CheckBox1.Checked:=true\r
+ else\r
+ SMSEditForm.CheckBox1.Checked:=false;\r
+\r
+ if mysms.status=GSS_SENTREAD then\r
+ SMSEditForm.CheckBox4.Checked:=true\r
+ else\r
+ SMSEditForm.CheckBox4.Checked:=false;\r
+\r
+ SMSEditForm.TextSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.BitmapSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.RingtoneSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.CalendarSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.PbkSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.SMSEditPageControl.ActivePage:=Smseditform.TextSMSTabSheet;\r
+\r
+ if (GSM_GetModelFeature(FN_SMS)=F_SMS71) then\r
+ begin\r
+ SMSEditForm.edit3.Visible:=true;\r
+ SMSEditForm.label14.Visible:=true;\r
+ end else\r
+ begin\r
+ SMSEditForm.edit3.Visible:=false;\r
+ SMSEditForm.label14.Visible:=false;\r
+ end;\r
+\r
+ SMSEditForm.ShowModal;\r
+end;\r
+\r
+procedure TMainForm.Edit4Click(Sender: TObject);\r
+begin\r
+ setsmslocation:=SMS[smsnumindex].Location;\r
+ SendSaveSMS(SMS[smsnumindex]);\r
+end;\r
+\r
+procedure TMainForm.New2Click(Sender: TObject);\r
+var i:integer;\r
+begin\r
+ setsmslocation:=0;\r
+\r
+ //sms text\r
+ SMSEditForm.Memo1.Text:='';\r
+\r
+ //number\r
+ SMSEditForm.Edit2.Text:='';\r
+\r
+ //folders\r
+ SMSEditForm.ComboBox1.Items.Clear;\r
+ for i:=0 to ComboBox3.items.count-1 do\r
+ begin\r
+ SMSEditForm.ComboBox1.Items.Add(ComboBox3.Items.Strings[i]);\r
+ end;\r
+ SMSEditForm.ComboBox1.ItemIndex:=ComboBox3.ItemIndex;\r
+\r
+ //smsc\r
+ SetSMSC(1);\r
+ SMSEditForm.ComboBox2.Items.Clear;\r
+ SMSEditForm.ComboBox2.Items.Add('custom');\r
+ for i:=1 to smscnum-1 do\r
+ begin\r
+ if SMSC2[i].Name[1]<>chr(0) then\r
+ SMSEditForm.ComboBox2.Items.Add('set '+inttostr(i)+' - '+SMSC2[i].Name)\r
+ else\r
+ SMSEditForm.ComboBox2.Items.Add('set '+inttostr(i));\r
+ end;\r
+ SMSEditForm.ComboBox2.ItemIndex:=1;\r
+\r
+ SMSEditForm.TextSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.BitmapSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.RingtoneSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.CalendarSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.PBKSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.SMSEditPageControl.ActivePage:=Smseditform.TextSMSTabSheet;\r
+\r
+ if (GSM_GetModelFeature(FN_SMS)=F_SMS71) then\r
+ begin\r
+ SMSEditForm.edit3.Visible:=true;\r
+ SMSEditForm.label14.Visible:=true;\r
+ end else\r
+ begin\r
+ SMSEditForm.edit3.Visible:=false;\r
+ SMSEditForm.label14.Visible:=false;\r
+ end;\r
+\r
+ SMSEditForm.ShowModal;\r
+end;\r
+\r
+procedure EndSMSThread;\r
+begin\r
+ if (SMSThread<>nil) then\r
+ begin\r
+ SMSThread.Terminate();\r
+ MainForm.Timer2.Enabled:=true;\r
+ SMSThread:=nil;\r
+ end;\r
+end;\r
+\r
+procedure TSMSThread.Execute;\r
+var\r
+ error:integer;\r
+begin\r
+ while not Terminated do\r
+ begin\r
+ if SMSnum<>SMSstatus.Number then\r
+ begin\r
+ if GSM_GetModelFeature(FN_SMS)=F_SMS71 then\r
+ SMS[SMSnum+1].Location:=0\r
+ else\r
+ SMS[SMSnum+1].Location:=smsnum2;\r
+ error:=GSM_GetSMSMessage(@SMS[SMSnum+1]);\r
+ if error=0 then\r
+ begin\r
+ if SMS[SMSnum+1].Time.year<1900 then\r
+ begin\r
+ SMS[SMSnum+1].Time.year:=SMS[SMSnum+1].Time.year+2000;\r
+ end;\r
+ if (SMSfolders.Folder[SMS[SMSnum+1].folder].Name=\r
+ SMSfolders.Folder[MainForm.ComboBox3.ItemIndex].Name) then\r
+ begin\r
+ AddSMSInfo(MainForm.ListView2,SMS[SMSnum+1]);\r
+ end;\r
+ SMSnum:=SMSnum+1;\r
+ end;\r
+ if error=GE_SMSTOOLONG then\r
+ begin\r
+ SMSstatus.Number:=SMSstatus.Number-1;\r
+ end;\r
+\r
+ smsnum2:=smsnum2+1;\r
+ end else\r
+ begin\r
+ MainForm.ComboBox3.Enabled:=true;\r
+ EndSMSThread;\r
+ end;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.SMSTabSheetShow(Sender: TObject);\r
+var\r
+ i:integer;\r
+begin\r
+ MainForm.ComboBox3.Enabled:=false;\r
+ if GSMPhoneConnected then\r
+ begin\r
+ if smscinit=false then\r
+ begin\r
+ MainForm.ListView6.Items.Clear;\r
+ smscnum:=1;\r
+ while true do\r
+ begin\r
+ ReadSMSC;\r
+ if smscinit then break;\r
+ end;\r
+ end;\r
+\r
+ MainForm.Memo1.Lines.Clear;\r
+ MainForm.Memo2.Lines.Clear;\r
+ GSM_GetSMSFolders(@SMSfolders);\r
+ MainForm.ComboBox3.Items.Clear();\r
+ for i:=1 to SMSfolders.number do\r
+ begin\r
+ MainForm.ComboBox3.Items.Add(SMSfolders.folder[i].Name);\r
+ end;\r
+ MainForm.ComboBox3.ItemIndex:=0;\r
+\r
+ SMSnum:=0;\r
+ GSM_GetSMSStatus(@SMSstatus);\r
+ smsnum2:=1;\r
+ MainForm.ListView2.Items.Clear;\r
+ MainForm.Timer2.Enabled:=false;\r
+ SMSThread:=TSMSThread.Create(false);\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.ComboBox3Change(Sender: TObject);\r
+begin\r
+ DisplaySMSfolder();\r
+end;\r
+\r
+procedure AddSMSDescription(mysms:GSM_SMSMessage;firstmemo:TMemo;secondmemo:TMemo);\r
+var\r
+ ch:tcaption;\r
+ z:integer;\r
+begin\r
+ firstmemo.Lines.Clear;\r
+ firstmemo.Lines.Add(pchar('Sender: '+mysms.Sender));\r
+\r
+ if mysms.SMSData=1 then\r
+ begin\r
+ ch:=mysms.MessageCenter.Number;\r
+ MainForm.Label14.Caption:=mysms.MessageCenter.Number;\r
+ if (smscinit) and (GSMPhoneConnected) then\r
+ begin\r
+ for z:=1 to smscnum-1 do\r
+ begin\r
+ MainForm.Label16.Caption:=SMSC2[z].Number;\r
+ if MainForm.Label14.Caption=MainForm.Label16.caption then\r
+ ch:=SMSC2[z].Name;\r
+ end;\r
+ end;\r
+ if mysms.ReplyViaSameSMSC<>0 then\r
+ ch:=' (reply via the same SMSC) '+ch;\r
+ firstmemo.Lines.Add('SMSC: '+ch);\r
+\r
+ if mysms.type2=GST_DR then\r
+ begin\r
+ firstmemo.Lines.Add(pchar('Date & time: '+\r
+ 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
+ inttostr2(mysms.Time.Hour,2)+':'+inttostr2(mysms.Time.Minute,2)+':'+inttostr2(mysms.Time.Second,2))+\r
+ ' SMSC desponse date & time: '+\r
+ 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
+ inttostr2(mysms.SMSCTime.Hour,2)+':'+inttostr2(mysms.SMSCTime.Minute,2)+':'+inttostr2(mysms.SMSCTime.Second,2));\r
+ end else\r
+ begin\r
+ firstmemo.Lines.Add(pchar('Date & time: '+\r
+ 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
+ inttostr2(mysms.Time.Hour,2)+':'+inttostr2(mysms.Time.Minute,2)+':'+inttostr2(mysms.Time.Second,2)));\r
+ end;\r
+ end;\r
+\r
+ secondmemo.Lines.Clear;\r
+ secondmemo.Lines.Add(pchar(''+mysms.MessageText));\r
+end;\r
+\r
+procedure TMainForm.ListView2SelectItem(Sender: TObject; Item: TListItem;\r
+ Selected: Boolean);\r
+var\r
+ i:integer;\r
+ j:integer;\r
+begin\r
+ j:=0;\r
+ i:=0;\r
+ while i<>SMSstatus.Number do\r
+ begin\r
+ i:=i+1;\r
+ if (SMSfolders.Folder[SMS[i].folder].Name=\r
+ SMSfolders.Folder[MainForm.ComboBox3.ItemIndex].Name) then\r
+ begin\r
+ if (j=MainForm.ListView2.ItemIndex) then\r
+ begin\r
+ smsnumindex:=i;\r
+ AddSMSDescription(SMS[i],MainForm.Memo1,MainForm.Memo2);\r
+ end;\r
+ j:=j+1;\r
+ end;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.SMSTabSheetHide(Sender: TObject);\r
+begin\r
+ EndSMSThread;\r
+end;\r
+\r
+procedure TMainForm.SMSPopupMenuPopup(Sender: TObject);\r
+begin\r
+ New2.Enabled:=false;\r
+ Edit4.Enabled:=false;\r
+ CopyToPC1.Enabled:=false;\r
+ Delete2.Enabled:=false;\r
+ if GSMPhoneConnected then\r
+ begin\r
+ New2.Enabled:=true;\r
+ if listview2.selected<>nil then\r
+ begin\r
+ Edit4.Enabled:=true;\r
+ CopyToPC1.Enabled:=true;\r
+ Delete2.Enabled:=true;\r
+ end;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.CalendarPopupMenuPopup(Sender: TObject);\r
+begin\r
+ if GSMPhoneConnected then\r
+ begin\r
+ New1.Enabled:=true;\r
+ if listview4.selected<>nil then\r
+ begin\r
+ Edit3.Enabled:=true;\r
+ Delete1.Enabled:=true;\r
+ SMS1.Enabled:=true;\r
+ CopyToPC2.Enabled:=true;\r
+ end else\r
+ begin\r
+ Edit3.Enabled:=false;\r
+ Delete1.Enabled:=false;\r
+ SMS1.Enabled:=false;\r
+ CopyToPC2.Enabled:=false;\r
+ end;\r
+ end else\r
+ begin\r
+ New1.Enabled:=false;\r
+ Delete1.Enabled:=false;\r
+ Edit3.Enabled:=false;\r
+ SMS1.Enabled:=false;\r
+ CopyToPC2.Enabled:=false;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.Edit1Change(Sender: TObject);\r
+var\r
+ i:integer;\r
+begin\r
+ for i:=1 to 20 do\r
+ rington.name[i]:=chr(0);\r
+ for i:=1 to strlen(pchar(edit1.text)) do\r
+ rington.name[i]:=edit1.text[i];\r
+end;\r
+\r
+procedure TMainForm.Delete2Click(Sender: TObject);\r
+var\r
+ mysms:GSM_SMSMessage;\r
+begin\r
+ if MessageDlg('Do you want to delete this SMS ?',\r
+ mtConfirmation, [mbYes, mbNo], 0) = mrYes then\r
+ begin\r
+ mysms.Location:=SMS[smsnumindex].Location;\r
+ MainForm.Timer2.Enabled:=false;\r
+ GSM_DeleteSMSMessage(@mysms);\r
+ MainForm.Timer2.Enabled:=true;\r
+ MainForm.SMSTabSheetShow(nil);\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.Edit5Click(Sender: TObject);\r
+begin\r
+// if listview6.selected<>nil then\r
+// begin\r
+ smsceditform.edit1.Text:=smsc2[smscselectitem].name;\r
+ smsceditform.edit2.Text:=smsc2[smscselectitem].number;\r
+ smsceditform.edit3.Text:=smsc2[smscselectitem].DefaultRecipient;\r
+ case smsc2[smscselectitem].Validity of\r
+ GSMV_1_Hour : SMSCEditForm.combobox1.itemindex:=0;\r
+ GSMV_6_Hours : SMSCEditForm.combobox1.itemindex:=1;\r
+ GSMV_24_Hours : SMSCEditForm.combobox1.itemindex:=2;\r
+ GSMV_72_Hours : SMSCEditForm.combobox1.itemindex:=3;\r
+ GSMV_1_Week : SMSCEditForm.combobox1.itemindex:=4;\r
+ else\r
+ SMSCEditForm.combobox1.itemindex:=5;\r
+ end;\r
+ case smsc2[smscselectitem].Format of\r
+ GSMF_Text : SMSCEditForm.combobox2.itemindex:=0;\r
+ GSMF_Fax : SMSCEditForm.combobox2.itemindex:=1;\r
+ GSMF_Email : SMSCEditForm.combobox2.itemindex:=2;\r
+ else\r
+ SMSCEditForm.combobox2.itemindex:=3;\r
+ end;\r
+ SMSCEditForm.ShowModal;\r
+// end;\r
+end;\r
+\r
+procedure TMainForm.SMSCPopupMenuPopup(Sender: TObject);\r
+begin\r
+ if GSMPhoneConnected then\r
+ begin\r
+ if listview6.selected<>nil then\r
+ Edit5.Enabled:=true\r
+ else\r
+ Edit5.Enabled:=false;\r
+ end else\r
+ begin\r
+ Edit5.Enabled:=false;\r
+ end;\r
+\r
+end;\r
+\r
+procedure TMainForm.ListView6SelectItem(Sender: TObject; Item: TListItem;\r
+ Selected: Boolean);\r
+begin\r
+ if Selected then\r
+ begin\r
+ smscselectitem:=Item.Index+1;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.ListView1SelectItem(Sender: TObject; Item: TListItem;\r
+ Selected: Boolean);\r
+begin\r
+ if Selected then\r
+ begin\r
+ pbknumberentry:=Item.Index+1;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.Edit7Click(Sender: TObject);\r
+var\r
+ current:integer;\r
+ i:integer;\r
+begin\r
+ if listview1.Selected<>nil then\r
+ begin\r
+ pbk.Location:=pbknumberentry;\r
+ case ComboBox1.ItemIndex of\r
+ 1:begin pbk.MemoryType:=GMT_DC;pbk.Location:=pbk.Location-1;end;\r
+ 2:begin pbk.MemoryType:=GMT_MC;pbk.Location:=pbk.Location-1;end;\r
+ 3:begin pbk.MemoryType:=GMT_ON;pbk.Location:=pbk.Location-1;end;\r
+ 4:pbk.MemoryType:=GMT_ME;\r
+ 5:pbk.MemoryType:=GMT_SM;\r
+ 6:begin pbk.MemoryType:=GMT_RC;pbk.Location:=pbk.Location-1;end;\r
+ end;\r
+ GSM_GetMemoryLocation(@pbk);\r
+ current:=0;\r
+ pbkform.ListView1.Items.Clear;\r
+ pbkform.ListView1.Items.Add;\r
+ pbkform.ListView1.Items.Item[0].Caption:='Name';\r
+ pbkform.ListView1.Items.Item[0].SubItems.Add(pbk.name);\r
+ if (pbk.Number[1]<>chr(0)) then\r
+ begin\r
+ current:=current+1;\r
+ pbkform.ListView1.Items.Add;\r
+ pbkform.ListView1.Items.Item[current].Caption:='Number';\r
+ pbkform.ListView1.Items.Item[current].SubItems.Add(pbk.number);\r
+ end;\r
+ for i:=1 to pbk.SubEntriesCount do\r
+ begin\r
+ current:=current+1;\r
+ pbkform.ListView1.Items.Add;\r
+ case pbk.SubEntries[i].EntryType of\r
+ GSM_Number:case pbk.SubEntries[i].NumberType of\r
+ GSM_General :pbkform.ListView1.Items.Item[current].Caption:='General number';\r
+ GSM_Mobile :pbkform.ListView1.Items.Item[current].Caption:='Mobile';\r
+ GSM_Work :pbkform.ListView1.Items.Item[current].Caption:='Work';\r
+ GSM_Fax :pbkform.ListView1.Items.Item[current].Caption:='Fax';\r
+ GSM_Home :pbkform.ListView1.Items.Item[current].Caption:='Home';\r
+ else\r
+ pbkform.ListView1.Items.Item[current].Caption:=inttostr(pbk.SubEntries[i].NumberType);\r
+ end;\r
+ GSM_Note :pbkform.ListView1.Items.Item[current].Caption:='Note';\r
+ GSM_Postal:pbkform.ListView1.Items.Item[current].Caption:='Address';\r
+ GSM_Email :pbkform.ListView1.Items.Item[current].Caption:='Email';\r
+ GSM_Date :begin\r
+ pbkform.ListView1.Items.Item[current].Caption:='Date';\r
+ 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
+ end;\r
+ end;\r
+ if (pbk.SubEntries[i].EntryType<>GSM_Date) then\r
+ pbkform.ListView1.Items.Item[current].SubItems.Add(pbk.SubEntries[i].Number);\r
+ end;\r
+ if (pbk.Group>=0) and (pbk.Group<=4) then\r
+ begin\r
+ current:=current+1;\r
+ pbkform.ListView1.Items.Add;\r
+ pbkform.ListView1.Items.Item[current].Caption:='Caller group';\r
+ pbkform.ListView1.Items.Item[current].SubItems.Add(caller[pbk.Group+1].text);\r
+ end;\r
+ pbkform.showmodal;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.Button18Click(Sender: TObject);\r
+var\r
+ i,j:integer;\r
+ Name,Data:array[1..255] of char;\r
+begin\r
+ if smscinit=false then\r
+ begin\r
+ MainForm.ListView6.Items.Clear;\r
+ smscnum:=1;\r
+ while true do\r
+ begin\r
+ ReadSMSC;\r
+ if smscinit then break;\r
+ end;\r
+ end;\r
+\r
+ //sms text\r
+ SMSEditForm.Memo1.Text:='';\r
+\r
+ //number\r
+ SMSEditForm.Edit2.Text:='';\r
+\r
+ //folders\r
+ GSM_GetSMSFolders(@SMSfolders);\r
+ SMSEditForm.ComboBox1.Items.Clear;\r
+ for i:=1 to SMSFolders.number do\r
+ begin\r
+ SMSEditForm.ComboBox1.Items.Add(SMSfolders.folder[i].Name);\r
+ end;\r
+ SMSEditForm.ComboBox1.ItemIndex:=0;\r
+\r
+ //smsc\r
+ SetSMSC(1);\r
+ SMSEditForm.ComboBox2.Items.Clear;\r
+ SMSEditForm.ComboBox2.Items.Add('custom');\r
+ for i:=1 to smscnum-1 do\r
+ begin\r
+ if SMSC2[i].Name[1]<>chr(0) then\r
+ SMSEditForm.ComboBox2.Items.Add('set '+inttostr(i)+' - '+SMSC2[i].Name)\r
+ else\r
+ SMSEditForm.ComboBox2.Items.Add('set '+inttostr(i));\r
+ end;\r
+ SMSEditForm.ComboBox2.ItemIndex:=1;\r
+\r
+ SMSEditForm.TextSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.BitmapSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.RingtoneSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.CalendarSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.PBKSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.SMSEditPageControl.ActivePage:=Smseditform.BitmapSMSTabSheet;\r
+\r
+ SMSEditForm.Image1.Picture:=Image1.Picture;\r
+\r
+ SMSEditForm.Memo2.Text:='';\r
+ SMSEditForm.CheckBox5.Checked:=false;\r
+ if bitma.type2<>GSM_PictureImage then\r
+ begin\r
+ SMSEditForm.Memo2.Visible:=false;\r
+ SMSEditForm.Label10.Visible:=false;\r
+ SMSEditForm.CheckBox5.Visible:=false;\r
+ SMSEditForm.CheckBox6.Visible:=false;\r
+ end else\r
+ begin\r
+ SMSEditForm.Memo2.Visible:=true;\r
+ SMSEditForm.Label10.Visible:=true;\r
+ SMSEditForm.CheckBox5.Visible:=true;\r
+ SMSEditForm.CheckBox6.Visible:=true;\r
+ end;\r
+\r
+ SMSEditForm.Label9.Visible:=false;\r
+ SMSEditForm.ComboBox7.Visible:=false;\r
+ if bitma.type2=GSM_OperatorLogo then\r
+ begin\r
+ SMSEditForm.Label9.Visible:=true;\r
+ SMSEditForm.ComboBox7.Visible:=true;\r
+ //preparing network names\r
+ i:=0;\r
+ while true do\r
+ begin\r
+ GSM_GetNetworkData(i,@Name,@Data);\r
+\r
+ // conversion problems\r
+ Label14.Caption:=Name;\r
+ if strcomp(PChar(Label14.Caption),PChar('unknown'))=0 then break;\r
+\r
+ // conversion problems\r
+ Label14.Caption:=' - '+Label14.Caption;\r
+ for j:=6 downto 1 do\r
+ begin\r
+ Label14.Caption:=Data[j]+Label14.Caption;\r
+ end;\r
+\r
+ SMSEditForm.ComboBox7.Items.Add(Pchar(Label14.Caption));\r
+ i:=i+1;\r
+ end;\r
+ //looking for current network\r
+ if GSMPhoneConnected then\r
+ begin\r
+ // conversion problems\r
+ Label14.Caption:=MainForm.StatusBar1.Panels[1].Text;\r
+ Label14.Caption:=' - '+Label14.Caption;\r
+ for j:=6 downto 1 do\r
+ begin\r
+ Label14.Caption:=GSMNetworkInfo.NetworkCode[j]+Label14.Caption;\r
+ end;\r
+\r
+ i:=1;\r
+ while true do\r
+ begin\r
+ if strcomp(pchar(SMSEditForm.ComboBox7.Items[i]),pchar(Label14.Caption))=0\r
+ then break;\r
+ i:=i+1;\r
+ end;\r
+ SMSEditForm.ComboBox7.ItemIndex:=i;\r
+ end;\r
+ end;\r
+\r
+ if (GSM_GetModelFeature(FN_SMS)=F_SMS71) then\r
+ begin\r
+ SMSEditForm.edit3.Visible:=true;\r
+ SMSEditForm.label14.Visible:=true;\r
+ end else\r
+ begin\r
+ SMSEditForm.edit3.Visible:=false;\r
+ SMSEditForm.label14.Visible:=false;\r
+ end;\r
+\r
+ SMSEditForm.ShowModal;\r
+end;\r
+\r
+procedure TMainForm.Button17Click(Sender: TObject);\r
+var\r
+ i:integer;\r
+begin\r
+ if smscinit=false then\r
+ begin\r
+ MainForm.ListView6.Items.Clear;\r
+ smscnum:=1;\r
+ while true do\r
+ begin\r
+ ReadSMSC;\r
+ if smscinit then break;\r
+ end;\r
+ end;\r
+\r
+ //sms text\r
+ SMSEditForm.Memo1.Text:='';\r
+\r
+ //number\r
+ SMSEditForm.Edit2.Text:='';\r
+\r
+ //folders\r
+ GSM_GetSMSFolders(@SMSfolders);\r
+ SMSEditForm.ComboBox1.Items.Clear;\r
+ for i:=1 to SMSFolders.number do\r
+ begin\r
+ SMSEditForm.ComboBox1.Items.Add(SMSfolders.folder[i].Name);\r
+ end;\r
+ SMSEditForm.ComboBox1.ItemIndex:=0;\r
+\r
+ //smsc\r
+ SetSMSC(1);\r
+ SMSEditForm.ComboBox2.Items.Clear;\r
+ SMSEditForm.ComboBox2.Items.Add('custom');\r
+ for i:=1 to smscnum-1 do\r
+ begin\r
+ if SMSC2[i].Name[1]<>chr(0) then\r
+ SMSEditForm.ComboBox2.Items.Add('set '+inttostr(i)+' - '+SMSC2[i].Name)\r
+ else\r
+ SMSEditForm.ComboBox2.Items.Add('set '+inttostr(i));\r
+ end;\r
+ SMSEditForm.ComboBox2.ItemIndex:=1;\r
+\r
+ SMSEditForm.TextSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.BitmapSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.RingtoneSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.CalendarSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.PBKSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.SMSEditPageControl.ActivePage:=Smseditform.RingtoneSMSTabSheet;\r
+\r
+ if (GSM_GetModelFeature(FN_SMS)=F_SMS71) then\r
+ begin\r
+ SMSEditForm.edit3.Visible:=true;\r
+ SMSEditForm.label14.Visible:=true;\r
+ end else\r
+ begin\r
+ SMSEditForm.edit3.Visible:=false;\r
+ SMSEditForm.label14.Visible:=false;\r
+ end;\r
+\r
+ SMSEditForm.ShowModal;\r
+end;\r
+\r
+procedure TMainForm.SMS1Click(Sender: TObject);\r
+var\r
+ i:integer;\r
+begin\r
+ if smscinit=false then\r
+ begin\r
+ MainForm.ListView6.Items.Clear;\r
+ smscnum:=1;\r
+ while true do\r
+ begin\r
+ ReadSMSC;\r
+ if smscinit then break;\r
+ end;\r
+ end;\r
+\r
+ //sms text\r
+ SMSEditForm.Memo1.Text:='';\r
+\r
+ //number\r
+ SMSEditForm.Edit2.Text:='';\r
+\r
+ //folders\r
+ GSM_GetSMSFolders(@SMSfolders);\r
+ SMSEditForm.ComboBox1.Items.Clear;\r
+ for i:=1 to SMSFolders.number do\r
+ begin\r
+ SMSEditForm.ComboBox1.Items.Add(SMSfolders.folder[i].Name);\r
+ end;\r
+ SMSEditForm.ComboBox1.ItemIndex:=0;\r
+\r
+ //smsc\r
+ SetSMSC(1);\r
+ SMSEditForm.ComboBox2.Items.Clear;\r
+ SMSEditForm.ComboBox2.Items.Add('custom');\r
+ for i:=1 to smscnum-1 do\r
+ begin\r
+ if SMSC2[i].Name[1]<>chr(0) then\r
+ SMSEditForm.ComboBox2.Items.Add('set '+inttostr(i)+' - '+SMSC2[i].Name)\r
+ else\r
+ SMSEditForm.ComboBox2.Items.Add('set '+inttostr(i));\r
+ end;\r
+ SMSEditForm.ComboBox2.ItemIndex:=1;\r
+\r
+ SMSEditForm.TextSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.BitmapSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.RingtoneSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.CalendarSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.PBKSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.SMSEditPageControl.ActivePage:=Smseditform.CalendarSMSTabSheet;\r
+\r
+ calenda.Location:=calendarselect;\r
+ MainForm.Timer2.Enabled:=false;\r
+ GSM_GetCalendarNote(@calenda);\r
+ MainForm.Timer2.Enabled:=true;\r
+\r
+ if (GSM_GetModelFeature(FN_SMS)=F_SMS71) then\r
+ begin\r
+ SMSEditForm.edit3.Visible:=true;\r
+ SMSEditForm.label14.Visible:=true;\r
+ end else\r
+ begin\r
+ SMSEditForm.edit3.Visible:=false;\r
+ SMSEditForm.label14.Visible:=false;\r
+ end;\r
+\r
+ SMSEditForm.ShowModal;\r
+end;\r
+\r
+procedure TMainForm.SMSSendSave1Click(Sender: TObject);\r
+var\r
+ i:integer;\r
+begin\r
+ if smscinit=false then\r
+ begin\r
+ MainForm.ListView6.Items.Clear;\r
+ smscnum:=1;\r
+ while true do\r
+ begin\r
+ ReadSMSC;\r
+ if smscinit then break;\r
+ end;\r
+ end;\r
+\r
+ //sms text\r
+ SMSEditForm.Memo1.Text:='';\r
+\r
+ //number\r
+ SMSEditForm.Edit2.Text:='';\r
+\r
+ //folders\r
+ GSM_GetSMSFolders(@SMSfolders);\r
+ SMSEditForm.ComboBox1.Items.Clear;\r
+ for i:=1 to SMSFolders.number do\r
+ begin\r
+ SMSEditForm.ComboBox1.Items.Add(SMSfolders.folder[i].Name);\r
+ end;\r
+ SMSEditForm.ComboBox1.ItemIndex:=0;\r
+\r
+ //smsc\r
+ SetSMSC(1);\r
+ SMSEditForm.ComboBox2.Items.Clear;\r
+ SMSEditForm.ComboBox2.Items.Add('custom');\r
+ for i:=1 to smscnum-1 do\r
+ begin\r
+ if SMSC2[i].Name[1]<>chr(0) then\r
+ SMSEditForm.ComboBox2.Items.Add('set '+inttostr(i)+' - '+SMSC2[i].Name)\r
+ else\r
+ SMSEditForm.ComboBox2.Items.Add('set '+inttostr(i));\r
+ end;\r
+ SMSEditForm.ComboBox2.ItemIndex:=1;\r
+\r
+ SMSEditForm.TextSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.BitmapSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.RingtoneSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.CalendarSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.PBKSMSTabSheet.TabVisible:=false;\r
+ SMSEditForm.SMSEditPageControl.ActivePage:=Smseditform.PBKSMSTabSheet;\r
+\r
+ pbk.Location:=pbknumberentry-1;\r
+ case ComboBox1.ItemIndex of\r
+ 1:pbk.MemoryType:=GMT_DC;\r
+ 2:pbk.MemoryType:=GMT_MC;\r
+ 3:pbk.MemoryType:=GMT_ON;\r
+ 4:pbk.MemoryType:=GMT_ME;\r
+ 5:pbk.MemoryType:=GMT_SM;\r
+ 6:pbk.MemoryType:=GMT_RC;\r
+ end;\r
+ MainForm.Timer2.Enabled:=false;\r
+ GSM_GetMemoryLocation(@pbk);\r
+ MainForm.Timer2.Enabled:=true;\r
+\r
+ if (GSM_GetModelFeature(FN_SMS)=F_SMS71) then\r
+ begin\r
+ SMSEditForm.edit3.Visible:=true;\r
+ SMSEditForm.label14.Visible:=true;\r
+ end else\r
+ begin\r
+ SMSEditForm.edit3.Visible:=false;\r
+ SMSEditForm.label14.Visible:=false;\r
+ end;\r
+\r
+ SMSEditForm.ShowModal;\r
+end;\r
+\r
+procedure TMainForm.Button13Click(Sender: TObject);\r
+var\r
+ ring:GSM_BinRingtone;\r
+begin\r
+ if OpenDialog1.Execute then\r
+ begin\r
+ if GSM_ReadBinRingtoneFile(PChar(OpenDialog1.FileName),@ring)=0 then\r
+ begin\r
+ Edit2.Text:=ring.Name;\r
+ binring:=ring;\r
+ end;\r
+ end;\r
+\r
+end;\r
+\r
+procedure TMainForm.Button14Click(Sender: TObject);\r
+var\r
+ i:integer;\r
+begin\r
+ LogosRingForm.Label1.Caption:='Do you want to set ringtone ?';\r
+ LogosRingForm.ComboBox3.Items.Clear();\r
+ for i:=1 to 7 do\r
+ begin\r
+ LogosRingForm.ComboBox3.Items.Add('Location '+inttostr(i));\r
+ end;\r
+ LogosRingForm.ComboBox3.ItemIndex:=0;\r
+ LogosRingForm.ShowModal;\r
+ if LogosRingForm.ComboBox3.Visible then\r
+ begin\r
+ binring.location:=LogosRingForm.ComboBox3.ItemIndex+1;\r
+ MainForm.Timer2.Enabled:=false;\r
+ GSM_SetBinRingtone(@binring);\r
+ MainForm.Timer2.Enabled:=true;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.ConfigTabSheetHide(Sender: TObject);\r
+var\r
+ MyIniFile: TIniFile;\r
+begin\r
+ if MessageDlg('Do you want to save config ?',\r
+ mtConfirmation, [mbYes, mbNo], 0) = mrYes then\r
+ begin\r
+ MyIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'\gnokiirc');\r
+ case MainForm.ComboBox4.ItemIndex of\r
+ 0:MyIniFile.WriteString('global', 'connection', 'mbus');\r
+ 1:MyIniFile.WriteString('global', 'connection', 'fbus');\r
+ 2:MyIniFile.WriteString('global', 'connection', 'dlr3');\r
+ 3:MyIniFile.WriteString('global', 'connection', 'infrared');\r
+ end;\r
+ MyIniFile.WriteString('global', 'model', MainForm.ComboBox6.Text);\r
+ MyIniFile.WriteString('global', 'port', MainForm.ComboBox5.Text);\r
+ if MainForm.CheckBox2.Checked then\r
+ MyIniFile.WriteString('global', 'synchronizetime', 'yes')\r
+ else\r
+ MyIniFile.WriteString('global', 'synchronizetime', 'no');\r
+ MyIniFile.Free;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.ConfigTabSheetShow(Sender: TObject);\r
+var\r
+ MyIniFile: TIniFile;\r
+ x:string;\r
+ i:integer;\r
+begin\r
+ MyIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'\gnokiirc');\r
+\r
+ x:=MyInifile.ReadString('global', 'connection', 'fbus');\r
+ MainForm.ComboBox4.ItemIndex:=0;\r
+ if x='fbus' then MainForm.ComboBox4.ItemIndex:=1;\r
+ if x='dlr3' then MainForm.ComboBox4.ItemIndex:=2;\r
+ if x='infrared' then MainForm.ComboBox4.ItemIndex:=3;\r
+\r
+ x:=MyInifile.ReadString('global', 'port', 'com2:');\r
+ MainForm.ComboBox5.ItemIndex:=0;\r
+ for i:=1 to MainForm.ComboBox5.Items.Count do\r
+ begin\r
+ if MainForm.ComboBox5.Items.Strings[i-1]=x then\r
+ MainForm.ComboBox5.ItemIndex:=i-1;\r
+ end;\r
+\r
+ x:=MyInifile.ReadString('global', 'model', 'auto');\r
+ MainForm.ComboBox6.ItemIndex:=0;\r
+ for i:=1 to MainForm.ComboBox6.Items.Count do\r
+ begin\r
+ if MainForm.ComboBox6.Items.Strings[i-1]=x then\r
+ MainForm.ComboBox6.ItemIndex:=i-1;\r
+ end;\r
+\r
+ x:=MyInifile.ReadString('global', 'synchronizetime', 'no');\r
+ if x='yes' then\r
+ MainForm.CheckBox2.Checked:=True\r
+ else\r
+ MainForm.CheckBox2.Checked:=False;\r
+ MyIniFile.Free;\r
+end;\r
+\r
+procedure TMainForm.Timer2Timer(Sender: TObject);\r
+begin\r
+ if SparkyThread.Suspended then SparkyThread.Resume;\r
+ Timer2.Interval:=4000;\r
+end;\r
+\r
+procedure TMainForm.AboutTabSheetShow(Sender: TObject);\r
+var\r
+ xxx:array[1..256] of char;\r
+begin\r
+ GSM_GetDLLVersion(@xxx);\r
+ Label20.Caption:=xxx;\r
+end;\r
+\r
+procedure SaveSMSOffline;\r
+var F:file of GSM_SMSMessage;\r
+ i:integer;\r
+begin\r
+ AssignFile(F, 'gnokiisms');\r
+ Rewrite(F);\r
+ for i:=1 to SMSOfflineNumber do\r
+ begin\r
+ Write(f,SMSOffline[i]);\r
+ end;\r
+ CloseFile(F);\r
+end;\r
+\r
+procedure ReadSMSOffline;\r
+var F:file of GSM_SMSMessage;\r
+begin\r
+ MainForm.ListView10.items.Clear;\r
+ AssignFile(F, 'gnokiisms');\r
+ Reset(F);\r
+ if (ioresult=0) then\r
+ begin\r
+ smsofflinenumber:=0;\r
+ while not eof(f) do\r
+ begin\r
+ smsofflinenumber:=smsofflinenumber+1;\r
+ read(f,smsoffline[smsofflinenumber]);\r
+ AddSMSInfo(MainForm.ListView10,smsoffline[smsofflinenumber]);\r
+ end;\r
+ CloseFile(F);\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.PCSMSTabSheetShow(Sender: TObject);\r
+begin\r
+ ReadSMSOffline;\r
+end;\r
+\r
+procedure TMainForm.CopytoPC1Click(Sender: TObject);\r
+begin\r
+ SMSofflinenumber:=smsofflinenumber+1;\r
+ SMSoffline[SMSofflinenumber]:=SMS[smsnumindex];\r
+ SaveSMSOffline;\r
+end;\r
+\r
+procedure TMainForm.ListView10SelectItem(Sender: TObject; Item: TListItem;\r
+ Selected: Boolean);\r
+begin\r
+ AddSMSDescription(SMSOffline[Item.Index+1],MainForm.Memo4,MainForm.Memo5);\r
+end;\r
+\r
+procedure TMainForm.PCSMSPopupMenuPopup(Sender: TObject);\r
+begin\r
+ SendSave1.Enabled:=False;\r
+ if GSMPhoneConnected then SendSave1.Enabled:=True;\r
+\r
+ Delete3.Enabled:=false;\r
+ if listview10.selected<>nil then Delete3.Enabled:=True;\r
+end;\r
+\r
+procedure TMainForm.Delete3Click(Sender: TObject);\r
+var\r
+ i:integer;\r
+begin\r
+ if Application.MessageBox('Do you want to delete this SMS ?','Question',MB_YESNO)=IDYES then\r
+ begin\r
+ for i:=MainForm.ListView10.ItemIndex to smsofflinenumber-1 do\r
+ begin\r
+ SMSOffline[i]:=SMSOffline[i+1];\r
+ end;\r
+ Smsofflinenumber:=smsofflinenumber-1;\r
+ SaveSMSOffline;\r
+ ReadSMSOffline;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.SendSave1Click(Sender: TObject);\r
+var i:integer;\r
+begin\r
+ GSM_GetSMSFolders(@SMSfolders);\r
+ MainForm.ComboBox3.Items.Clear();\r
+ for i:=1 to SMSfolders.number do\r
+ begin\r
+ MainForm.ComboBox3.Items.Add(SMSfolders.folder[i].Name);\r
+ end;\r
+ MainForm.ComboBox3.ItemIndex:=0;\r
+ setsmslocation:=0;\r
+ SendSaveSMS(SMSOffline[MainForm.ListView10.ItemIndex+1]);\r
+end;\r
+\r
+\r
+procedure EndWAPBookmarkThread;\r
+begin\r
+ if (WAPBookmarkThread<>nil) then\r
+ begin\r
+ WAPBookmarkThread.Terminate();\r
+ MainForm.Timer2.Enabled:=true;\r
+ WAPBookmarkThread:=nil;\r
+ end;\r
+end;\r
+\r
+procedure TWAPBookmarkThread.Execute;\r
+var\r
+ bookmark:GSM_WAPBookmark;\r
+ i:integer;\r
+begin\r
+ while not Terminated do\r
+ begin\r
+ bookmark.location:=bookmarknum;\r
+ i:=GSM_GetWAPBookmark(@bookmark);\r
+ MainForm.ListView9.Items.Add;\r
+ MainForm.ListView9.Items.Item[bookmarknum-1].Caption:=inttostr(bookmarknum);\r
+ if (i=0) then\r
+ begin\r
+ MainForm.ListView9.Items.Item[bookmarknum-1].Subitems.Add(bookmark.title);\r
+ MainForm.ListView9.Items.Item[bookmarknum-1].Subitems.Add(bookmark.adress);\r
+ end;\r
+ bookmarknum:=bookmarknum+1;\r
+ if bookmarknum=15 then EndWAPBookmarkThread;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.WapBookTabSheetHide(Sender: TObject);\r
+begin\r
+ EndWAPBookmarkThread;\r
+end;\r
+\r
+procedure TMainForm.WapBookTabSheetShow(Sender: TObject);\r
+begin\r
+ if GSMPhoneConnected then\r
+ begin\r
+ if GSM_GetModelFeature(FN_WAP)<>0 then\r
+ begin\r
+ GroupBox17.Ctl3D:=true;\r
+ ListView9.Ctl3D:=true;\r
+ ListView9.Enabled:=true;\r
+ bookmarknum:=1;\r
+ MainForm.ListView9.Items.Clear;\r
+ MainForm.Timer2.Enabled:=false;\r
+ WAPBookmarkThread:=TWAPBookmarkThread.Create(false);\r
+ end else\r
+ begin\r
+ GroupBox17.Ctl3D:=false;\r
+ ListView9.Ctl3D:=false;\r
+ ListView9.Enabled:=false;\r
+ end;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.ComboBox7Change(Sender: TObject);\r
+var\r
+ settings:GSM_WAPSettings;\r
+begin\r
+ if combobox7.ItemIndex>0 then\r
+ begin\r
+ settings.location:=combobox7.ItemIndex;\r
+ MainForm.Timer2.Enabled:=false;\r
+ GSM_GetWAPSettings(@settings);\r
+ MainForm.Timer2.Enabled:=true;\r
+\r
+ if (settings.title[1]<>chr(0)) then\r
+ Edit6.Text:=settings.title\r
+ else\r
+ edit6.Text:='set '+inttostr(combobox7.ItemIndex);\r
+\r
+ edit8.Text:=settings.homepage;\r
+\r
+ combobox10.itemindex:=1;\r
+ if settings.iscontinuous<>0 then combobox10.Itemindex:=0;\r
+\r
+ combobox9.itemindex:=1;\r
+ if settings.issecurity<>0 then combobox9.Itemindex:=0;\r
+\r
+ if (settings.bearer>=0) and (settings.bearer<3) then\r
+ begin\r
+ combobox8.ItemIndex:=settings.bearer;\r
+\r
+ Label27.enabled:=false;\r
+ Label28.enabled:=false;\r
+ Label29.enabled:=false;\r
+ label30.enabled:=false;\r
+ label31.enabled:=false;\r
+ label32.enabled:=false;\r
+ label33.enabled:=false;\r
+ label34.enabled:=false;\r
+ label35.enabled:=false;\r
+ label36.enabled:=false;\r
+ label37.enabled:=false;\r
+ edit9.enabled:=false;\r
+ edit10.enabled:=false;\r
+ edit11.enabled:=false;\r
+ edit12.enabled:=false;\r
+ edit13.enabled:=false;\r
+ edit14.enabled:=false;\r
+ edit15.enabled:=false;\r
+ combobox11.enabled:=false;\r
+ combobox12.enabled:=false;\r
+ combobox13.enabled:=false;\r
+ combobox14.enabled:=false;\r
+\r
+ case settings.bearer of\r
+ WAPSETTINGS_BEARER_SMS:\r
+ begin\r
+ label27.enabled:=true;\r
+ edit9.text:=settings.server;\r
+ edit9.enabled:=true;\r
+\r
+ label28.enabled:=true;\r
+ edit10.text:=settings.service;\r
+ edit10.enabled:=true;\r
+ end;\r
+ WAPSETTINGS_BEARER_DATA:\r
+ begin\r
+ label29.enabled:=true;\r
+ edit11.text:=settings.dialup;\r
+ edit11.enabled:=true;\r
+\r
+ label34.enabled:=true;\r
+ edit13.text:=settings.user;\r
+ edit13.enabled:=true;\r
+\r
+ label35.enabled:=true;\r
+ edit14.text:=settings.password;\r
+ edit14.enabled:=true;\r
+\r
+ label30.enabled:=true;\r
+ edit12.text:=settings.ipaddress;\r
+ edit12.enabled:=true;\r
+\r
+ label31.enabled:=true;\r
+ combobox11.enabled:=true;\r
+ combobox11.ItemIndex:=0;\r
+ if settings.isnormalauthentication=0 then\r
+ combobox11.ItemIndex:=1;\r
+\r
+ label32.enabled:=true;\r
+ combobox12.enabled:=true;\r
+ combobox12.ItemIndex:=0;\r
+ if settings.isISDNcall=0 then\r
+ combobox12.ItemIndex:=1;\r
+\r
+ label33.enabled:=true;\r
+ combobox13.enabled:=true;\r
+ combobox13.ItemIndex:=1;\r
+ if settings.isspeed14400=0 then\r
+ combobox13.ItemIndex:=0;\r
+ end;\r
+ WAPSETTINGS_BEARER_USSD:\r
+ begin\r
+ label36.enabled:=true;\r
+ edit15.text:=settings.code;\r
+ edit15.enabled:=true;\r
+\r
+ label37.enabled:=true;\r
+ combobox14.Enabled:=true;\r
+ combobox14.ItemIndex:=1;\r
+ if settings.isIP=0 then\r
+ begin\r
+ combobox14.ItemIndex:=1;\r
+\r
+ label28.enabled:=true;\r
+ edit10.text:=settings.service;\r
+ edit10.enabled:=true;\r
+ end else\r
+ begin\r
+ label30.enabled:=true;\r
+ edit12.text:=settings.ipaddress;\r
+ edit12.enabled:=true;\r
+ end;\r
+ end;\r
+ end;\r
+ end;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.Button19Click(Sender: TObject);\r
+var\r
+ Divert:GSM_CallDivert;\r
+begin\r
+ MainForm.Timer2.Enabled:=false;\r
+\r
+ divert.DType:=GSM_CDV_Busy;\r
+ divert.ctype:=GSM_CDV_VoiceCalls;\r
+ divert.Operation:=GSM_CDV_Query;\r
+ if gsm_calldivertoperation(@divert)=0 then\r
+ begin\r
+ if divert.enabled=0 then\r
+ begin\r
+ Label38.enabled:=false;\r
+ edit16.enabled:=false;\r
+ edit16.Text:='Not active';\r
+ end else\r
+ begin\r
+ Label38.enabled:=true;\r
+ edit16.enabled:=true;\r
+ edit16.Text:=divert.Number;\r
+ end;\r
+ end;\r
+\r
+ divert.DType:=GSM_CDV_NoAnswer;\r
+ divert.ctype:=GSM_CDV_VoiceCalls;\r
+ divert.Operation:=GSM_CDV_Query;\r
+ if gsm_calldivertoperation(@divert)=0 then\r
+ begin\r
+ if divert.enabled=0 then\r
+ begin\r
+ Label39.enabled:=false;\r
+ edit17.enabled:=false;\r
+ edit17.Text:='Not active';\r
+ label40.Enabled:=false;\r
+ combobox15.Enabled:=false;\r
+ end else\r
+ begin\r
+ Label39.enabled:=true;\r
+ edit17.enabled:=true;\r
+ edit17.Text:=divert.Number;\r
+ label40.Enabled:=true;\r
+ combobox15.Enabled:=true;\r
+ case divert.timeout of\r
+ 5:combobox15.ItemIndex:=0;\r
+ 10:combobox15.ItemIndex:=1;\r
+ 15:combobox15.ItemIndex:=2;\r
+ 20:combobox15.ItemIndex:=3;\r
+ 25:combobox15.ItemIndex:=4;\r
+ 30:combobox15.ItemIndex:=5;\r
+ end;\r
+ end;\r
+ end;\r
+\r
+ divert.DType:=GSM_CDV_OutOfreach;\r
+ divert.ctype:=GSM_CDV_VoiceCalls;\r
+ divert.Operation:=GSM_CDV_Query;\r
+ if gsm_calldivertoperation(@divert)=0 then\r
+ begin\r
+ if divert.enabled=0 then\r
+ begin\r
+ Label41.enabled:=false;\r
+ edit18.enabled:=false;\r
+ edit18.Text:='Not active';\r
+ end else\r
+ begin\r
+ Label41.enabled:=true;\r
+ edit18.enabled:=true;\r
+ edit18.Text:=divert.Number;\r
+ end;\r
+ end;\r
+\r
+ MainForm.Timer2.Enabled:=true;\r
+end;\r
+\r
+procedure TMainForm.Button20Click(Sender: TObject);\r
+var\r
+ Divert:GSM_CallDivert;\r
+begin\r
+ MainForm.Timer2.Enabled:=false;\r
+\r
+ divert.DType:=GSM_CDV_AllTypes;\r
+ divert.ctype:=GSM_CDV_AllCalls;\r
+ divert.Operation:=GSM_CDV_Erasure;\r
+ gsm_calldivertoperation(@divert);\r
+\r
+ MainForm.Timer2.Enabled:=true;\r
+\r
+end;\r
+\r
+procedure ReadCalendarOffline;\r
+var F:file of GSM_calendarnote;\r
+begin\r
+ MainForm.ListView11.items.Clear;\r
+ AssignFile(F, 'gnokiicalendar');\r
+ Reset(F);\r
+ if (ioresult=0) then\r
+ begin\r
+ calendarofflinenumber:=0;\r
+ while not eof(f) do\r
+ begin\r
+ calendarofflinenumber:=calendarofflinenumber+1;\r
+ read(f,calendaroffline[calendarofflinenumber]);\r
+ AddCalendarNote(calendaroffline[calendarofflinenumber],mainform.ListView11);\r
+ end;\r
+ CloseFile(F);\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.PCOfflineTabSheetShow(Sender: TObject);\r
+begin\r
+ ReadSMSOffline;\r
+ Label43.Caption:=inttostr(smsofflinenumber);\r
+ ReadCalendarOffline;\r
+ Label45.Caption:=inttostr(calendarofflinenumber);\r
+end;\r
+\r
+procedure SaveCalendarOffline;\r
+var F:file of GSM_CalendarNote;\r
+ i:integer;\r
+begin\r
+ AssignFile(F, 'gnokiicalendar');\r
+ Rewrite(F);\r
+ for i:=1 to CalendarOfflineNumber do\r
+ begin\r
+ Write(f,CalendarOffline[i]);\r
+ end;\r
+ CloseFile(F);\r
+end;\r
+\r
+procedure TMainForm.PCCalendarTabSheetShow(Sender: TObject);\r
+begin\r
+ ReadCalendarOffline;\r
+end;\r
+\r
+procedure TMainForm.CopytoPC2Click(Sender: TObject);\r
+begin\r
+ setcalendarnote.Location:=calendarselect;\r
+ mainform.Timer2.Enabled:=false;\r
+ GSM_GetCalendarNote(@setcalendarnote);\r
+ mainform.Timer2.Enabled:=true;\r
+ Calendarofflinenumber:=calendarofflinenumber+1;\r
+ Calendaroffline[Calendarofflinenumber]:=setcalendarnote;\r
+ SaveCalendarOffline;\r
+end;\r
+\r
+procedure TMainForm.Delete5Click(Sender: TObject);\r
+var\r
+ i:integer;\r
+begin\r
+ if Application.MessageBox('Do you want to delete this note ?','Question',MB_YESNO)=IDYES then\r
+ begin\r
+ for i:=MainForm.ListView11.ItemIndex to calendarofflinenumber-1 do\r
+ begin\r
+ CalendarOffline[i]:=CalendarOffline[i+1];\r
+ end;\r
+ Calendarofflinenumber:=calendarofflinenumber-1;\r
+ SaveCalendarOffline;\r
+ ReadCalendarOffline;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.Copytocalendar1Click(Sender: TObject);\r
+begin\r
+ if not readcalendar then\r
+ begin\r
+ application.MessageBox('Please read first calendar notes from phone','info',mb_ok);\r
+ end else begin\r
+ setcalendarnote:=calendaroffline[mainform.listview11.itemindex+1];\r
+ setcalendarnote.Location:=MainForm.ListView4.Items.Count+1;\r
+\r
+ EditCalendarNote;\r
+ end;\r
+end;\r
+\r
+procedure TMainForm.PCCalendarPopupMenuPopup(Sender: TObject);\r
+begin\r
+ CopyTocalendar1.Enabled:=False;\r
+ if (GSMPhoneConnected) and (GSM_GetModelFeature(FN_Calendar)<>0) then copytocalendar1.Enabled:=True;\r
+\r
+ Delete5.Enabled:=false;\r
+ if listview11.selected<>nil then Delete5.Enabled:=True;\r
+end;\r
+\r
+end.\r
git://git.jankratochvil.net / gnokii.git / blobdiff