6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
\r
7 Dialogs, ComCtrls, StdCtrls,GnokiiAPI,MainUnit;
\r
10 TCalendarForm = class(TForm)
\r
12 ComboBox1: TComboBox;
\r
13 DateTimePicker1: TDateTimePicker;
\r
15 GroupBox1: TGroupBox;
\r
16 CheckBox1: TCheckBox;
\r
17 DateTimePicker2: TDateTimePicker;
\r
23 DateTimePicker3: TDateTimePicker;
\r
24 DateTimePicker4: TDateTimePicker;
\r
28 CheckBox2: TCheckBox;
\r
29 ComboBox2: TComboBox;
\r
30 RadioButton1: TRadioButton;
\r
31 RadioButton2: TRadioButton;
\r
32 procedure Button1Click(Sender: TObject);
\r
33 procedure Button2Click(Sender: TObject);
\r
34 procedure CheckBox1Click(Sender: TObject);
\r
35 procedure DateTimePicker1Change(Sender: TObject);
\r
36 procedure DateTimePicker2Change(Sender: TObject);
\r
37 procedure FormShow(Sender: TObject);
\r
38 procedure ComboBox1Select(Sender: TObject);
\r
39 procedure CheckBox2Click(Sender: TObject);
\r
41 { Private declarations }
\r
43 { Public declarations }
\r
47 CalendarForm: TCalendarForm;
\r
53 procedure TCalendarForm.Button1Click(Sender: TObject);
\r
58 case ComboBox1.ItemIndex of
\r
59 0:setcalendarnote.Type2:=GCN_BIRTHDAY;
\r
60 1:setcalendarnote.Type2:=GCN_CALL;
\r
61 2:setcalendarnote.Type2:=GCN_MEETING;
\r
62 3:setcalendarnote.Type2:=GCN_REMINDER;
\r
66 setcalendarnote.Text[i]:=chr(0);
\r
67 for i:=1 to strlen(pchar(Edit2.text)) do
\r
68 setcalendarnote.Text[i]:=Edit2.Text[i];
\r
71 setcalendarnote.Phone[i]:=chr(0);
\r
72 for i:=1 to strlen(pchar(Edit1.text)) do
\r
73 setcalendarnote.Phone[i]:=Edit1.Text[i];
\r
75 DateTimeToString(s, 'yyyy',CalendarForm.DateTimePicker1.Date);
\r
76 setcalendarnote.Time.Year:=strtoint(s);
\r
77 DateTimeToString(s, 'm',CalendarForm.DateTimePicker1.Date);
\r
78 setcalendarnote.Time.Month:=strtoint(s);
\r
79 DateTimeToString(s, 'd',CalendarForm.DateTimePicker1.Date);
\r
80 setcalendarnote.Time.Day:=strtoint(s);
\r
81 DateTimeToString(s, 'h',CalendarForm.DateTimePicker3.Time);
\r
82 setcalendarnote.Time.Hour:=strtoint(s);
\r
83 DateTimeToString(s, 'n',CalendarForm.DateTimePicker3.Time);
\r
84 setcalendarnote.Time.Minute:=strtoint(s);
\r
85 DateTimeToString(s, 's',CalendarForm.DateTimePicker3.Time);
\r
86 setcalendarnote.Time.Second:=strtoint(s);
\r
87 setcalendarnote.Time.IsSet:=1;
\r
89 DateTimeToString(s, 'yyyy',CalendarForm.DateTimePicker2.Date);
\r
90 setcalendarnote.Alarm.Year:=strtoint(s);
\r
91 DateTimeToString(s, 'm',CalendarForm.DateTimePicker2.Date);
\r
92 setcalendarnote.Alarm.Month:=strtoint(s);
\r
93 DateTimeToString(s, 'd',CalendarForm.DateTimePicker2.Date);
\r
94 setcalendarnote.Alarm.Day:=strtoint(s);
\r
95 DateTimeToString(s, 'h',CalendarForm.DateTimePicker4.Time);
\r
96 setcalendarnote.Alarm.Hour:=strtoint(s);
\r
97 DateTimeToString(s, 'n',CalendarForm.DateTimePicker4.Time);
\r
98 setcalendarnote.Alarm.Minute:=strtoint(s);
\r
99 DateTimeToString(s, 's',CalendarForm.DateTimePicker4.Time);
\r
100 setcalendarnote.Alarm.Second:=strtoint(s);
\r
102 if not CheckBox1.Checked then
\r
103 setcalendarnote.Alarm.Year:=0;
\r
105 if CheckBox2.Checked then
\r
107 case ComboBox2.ItemIndex of
\r
108 0:setcalendarnote.Recurrance:=1*24;
\r
109 1:setcalendarnote.Recurrance:=7*24;
\r
110 2:setcalendarnote.Recurrance:=14*24;
\r
111 3:setcalendarnote.Recurrance:=365*24;
\r
115 setcalendarnote.Recurrance:=0;
\r
118 if RadioButton1.Checked then
\r
119 setcalendarnote.AlarmType:=0
\r
121 setcalendarnote.AlarmType:=1;
\r
123 GSM_DeleteCalendarNote(@setcalendarnote);
\r
124 GSM_WriteCalendarNote(@setcalendarnote);
\r
126 MainForm.CalendarTabSheetShow(nil);
\r
128 CalendarForm.Close;
\r
131 procedure TCalendarForm.Button2Click(Sender: TObject);
\r
133 CalendarForm.Close;
\r
136 procedure TCalendarForm.CheckBox1Click(Sender: TObject);
\r
138 if CheckBox1.Checked then
\r
140 DateTimePicker2.Enabled:=true;
\r
141 DateTimePicker4.Enabled:=true;
\r
144 DateTimePicker2.Enabled:=false;
\r
145 DateTimePicker4.Enabled:=false;
\r
149 procedure TCalendarForm.DateTimePicker1Change(Sender: TObject);
\r
151 Label5.Caption:=DayOfWeek3(DateTimePicker1.Date);
\r
154 procedure TCalendarForm.DateTimePicker2Change(Sender: TObject);
\r
156 Label6.Caption:=DayOfWeek3(DateTimePicker2.Date);
\r
159 procedure TCalendarForm.FormShow(Sender: TObject);
\r
161 Label5.Caption:=DayOfWeek3(DateTimePicker1.Date);
\r
162 Label6.Caption:=DayOfWeek3(DateTimePicker2.Date);
\r
165 procedure TCalendarForm.ComboBox1Select(Sender: TObject);
\r
167 if GSM_GetModelFeature(FN_CALENDAR)=F_CAL71 then
\r
169 CalendarForm.RadioButton1.Visible:=True;
\r
170 CalendarForm.RadioButton2.Visible:=True;
\r
171 CalendarForm.CheckBox2.Visible:=True;
\r
172 CalendarForm.ComboBox2.Visible:=True;
\r
173 if ComboBox1.ItemIndex=0 then //birthday
\r
175 CalendarForm.RadioButton1.Enabled:=True;
\r
176 CalendarForm.RadioButton2.Enabled:=True;
\r
177 CalendarForm.CheckBox2.Enabled:=False;
\r
178 CalendarForm.ComboBox2.Enabled:=False;
\r
181 CalendarForm.RadioButton1.Enabled:=False;
\r
182 CalendarForm.RadioButton2.Enabled:=False;
\r
183 CalendarForm.CheckBox2.Enabled:=True;
\r
184 CalendarForm.ComboBox2.Enabled:=CalendarForm.CheckBox2.Checked;
\r
186 if ComboBox1.ItemIndex=3 then //memo
\r
188 CalendarForm.CheckBox1.Enabled:=False;
\r
189 CalendarForm.Label6.Enabled:=False;
\r
190 CalendarForm.DateTimePicker2.Enabled:=False;
\r
191 CalendarForm.DateTimePicker4.Enabled:=False;
\r
193 CalendarForm.CheckBox1.Enabled:=True;
\r
194 CalendarForm.Label6.Enabled:=True;
\r
195 CalendarForm.DateTimePicker2.Enabled:=True;
\r
196 CalendarForm.DateTimePicker4.Enabled:=True;
\r
199 CalendarForm.RadioButton1.Visible:=False;
\r
200 CalendarForm.RadioButton2.Visible:=False;
\r
201 CalendarForm.CheckBox2.Visible:=False;
\r
202 CalendarForm.ComboBox2.Visible:=False;
\r
204 if ComboBox1.ItemIndex=1 then //call
\r
206 CalendarForm.Edit1.Enabled:=True;
\r
207 CalendarForm.Label4.Enabled:=True;
\r
210 CalendarForm.Edit1.Enabled:=False;
\r
211 CalendarForm.Label4.Enabled:=False;
\r
215 procedure TCalendarForm.CheckBox2Click(Sender: TObject);
\r
217 CalendarForm.ComboBox2.Enabled:=CalendarForm.CheckBox2.Checked;
\r