http://marcin-wiacek.fkn.pl/english/zips/mygnokii.tar.gz

[gnokii.git] / win32_makefile / gui_delphi / Calendar.pas

diff --git a/win32_makefile/gui_delphi/Calendar.pas b/win32_makefile/gui_delphi/Calendar.pas
new file mode 100644 (file)
index 0000000..882d5d3
--- /dev/null
+++ b/win32_makefile/gui_delphi/Calendar.pas
@@ -0,0 +1,220 @@
+unit Calendar;\r
+\r
+interface\r
+\r
+uses\r
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,\r
+  Dialogs, ComCtrls, StdCtrls,GnokiiAPI,MainUnit;\r
+\r
+type\r
+  TCalendarForm = class(TForm)\r
+    Label1: TLabel;\r
+    ComboBox1: TComboBox;\r
+    DateTimePicker1: TDateTimePicker;\r
+    Label2: TLabel;\r
+    GroupBox1: TGroupBox;\r
+    CheckBox1: TCheckBox;\r
+    DateTimePicker2: TDateTimePicker;\r
+    Edit2: TEdit;\r
+    Label3: TLabel;\r
+    Label4: TLabel;\r
+    Button1: TButton;\r
+    Button2: TButton;\r
+    DateTimePicker3: TDateTimePicker;\r
+    DateTimePicker4: TDateTimePicker;\r
+    Edit1: TEdit;\r
+    Label5: TLabel;\r
+    Label6: TLabel;\r
+    CheckBox2: TCheckBox;\r
+    ComboBox2: TComboBox;\r
+    RadioButton1: TRadioButton;\r
+    RadioButton2: TRadioButton;\r
+    procedure Button1Click(Sender: TObject);\r
+    procedure Button2Click(Sender: TObject);\r
+    procedure CheckBox1Click(Sender: TObject);\r
+    procedure DateTimePicker1Change(Sender: TObject);\r
+    procedure DateTimePicker2Change(Sender: TObject);\r
+    procedure FormShow(Sender: TObject);\r
+    procedure ComboBox1Select(Sender: TObject);\r
+    procedure CheckBox2Click(Sender: TObject);\r
+  private\r
+    { Private declarations }\r
+  public\r
+    { Public declarations }\r
+  end;\r
+\r
+var\r
+  CalendarForm: TCalendarForm;\r
+\r
+implementation\r
+\r
+{$R *.dfm}\r
+\r
+procedure TCalendarForm.Button1Click(Sender: TObject);\r
+var\r
+  i:integer;\r
+  s:string;\r
+begin\r
+  case ComboBox1.ItemIndex of\r
+    0:setcalendarnote.Type2:=GCN_BIRTHDAY;\r
+    1:setcalendarnote.Type2:=GCN_CALL;\r
+    2:setcalendarnote.Type2:=GCN_MEETING;\r
+    3:setcalendarnote.Type2:=GCN_REMINDER;\r
+  end;\r
+\r
+  for i:=1 to 59 do\r
+    setcalendarnote.Text[i]:=chr(0);\r
+  for i:=1 to strlen(pchar(Edit2.text)) do\r
+    setcalendarnote.Text[i]:=Edit2.Text[i];\r
+\r
+  for i:=1 to 37 do\r
+    setcalendarnote.Phone[i]:=chr(0);\r
+  for i:=1 to strlen(pchar(Edit1.text)) do\r
+    setcalendarnote.Phone[i]:=Edit1.Text[i];\r
+\r
+  DateTimeToString(s, 'yyyy',CalendarForm.DateTimePicker1.Date);\r
+  setcalendarnote.Time.Year:=strtoint(s);\r
+  DateTimeToString(s, 'm',CalendarForm.DateTimePicker1.Date);\r
+  setcalendarnote.Time.Month:=strtoint(s);\r
+  DateTimeToString(s, 'd',CalendarForm.DateTimePicker1.Date);\r
+  setcalendarnote.Time.Day:=strtoint(s);\r
+  DateTimeToString(s, 'h',CalendarForm.DateTimePicker3.Time);\r
+  setcalendarnote.Time.Hour:=strtoint(s);\r
+  DateTimeToString(s, 'n',CalendarForm.DateTimePicker3.Time);\r
+  setcalendarnote.Time.Minute:=strtoint(s);\r
+  DateTimeToString(s, 's',CalendarForm.DateTimePicker3.Time);\r
+  setcalendarnote.Time.Second:=strtoint(s);\r
+  setcalendarnote.Time.IsSet:=1;\r
+\r
+  DateTimeToString(s, 'yyyy',CalendarForm.DateTimePicker2.Date);\r
+  setcalendarnote.Alarm.Year:=strtoint(s);\r
+  DateTimeToString(s, 'm',CalendarForm.DateTimePicker2.Date);\r
+  setcalendarnote.Alarm.Month:=strtoint(s);\r
+  DateTimeToString(s, 'd',CalendarForm.DateTimePicker2.Date);\r
+  setcalendarnote.Alarm.Day:=strtoint(s);\r
+  DateTimeToString(s, 'h',CalendarForm.DateTimePicker4.Time);\r
+  setcalendarnote.Alarm.Hour:=strtoint(s);\r
+  DateTimeToString(s, 'n',CalendarForm.DateTimePicker4.Time);\r
+  setcalendarnote.Alarm.Minute:=strtoint(s);\r
+  DateTimeToString(s, 's',CalendarForm.DateTimePicker4.Time);\r
+  setcalendarnote.Alarm.Second:=strtoint(s);\r
+\r
+  if not CheckBox1.Checked then\r
+    setcalendarnote.Alarm.Year:=0;\r
+\r
+  if CheckBox2.Checked then\r
+  begin\r
+    case ComboBox2.ItemIndex of\r
+      0:setcalendarnote.Recurrance:=1*24;\r
+      1:setcalendarnote.Recurrance:=7*24;\r
+      2:setcalendarnote.Recurrance:=14*24;\r
+      3:setcalendarnote.Recurrance:=365*24;\r
+    end;\r
+  end else\r
+  begin\r
+    setcalendarnote.Recurrance:=0;\r
+  end;\r
+\r
+  if RadioButton1.Checked then\r
+    setcalendarnote.AlarmType:=0\r
+  else\r
+    setcalendarnote.AlarmType:=1;\r
+    \r
+  GSM_DeleteCalendarNote(@setcalendarnote);\r
+  GSM_WriteCalendarNote(@setcalendarnote);\r
+\r
+  MainForm.CalendarTabSheetShow(nil);\r
+\r
+  CalendarForm.Close;\r
+end;\r
+\r
+procedure TCalendarForm.Button2Click(Sender: TObject);\r
+begin\r
+  CalendarForm.Close;\r
+end;\r
+\r
+procedure TCalendarForm.CheckBox1Click(Sender: TObject);\r
+begin\r
+  if CheckBox1.Checked then\r
+  begin\r
+    DateTimePicker2.Enabled:=true;\r
+    DateTimePicker4.Enabled:=true;\r
+  end else\r
+  begin\r
+    DateTimePicker2.Enabled:=false;\r
+    DateTimePicker4.Enabled:=false;\r
+  end;\r
+end;\r
+\r
+procedure TCalendarForm.DateTimePicker1Change(Sender: TObject);\r
+begin\r
+  Label5.Caption:=DayOfWeek3(DateTimePicker1.Date);\r
+end;\r
+\r
+procedure TCalendarForm.DateTimePicker2Change(Sender: TObject);\r
+begin\r
+  Label6.Caption:=DayOfWeek3(DateTimePicker2.Date);\r
+end;\r
+\r
+procedure TCalendarForm.FormShow(Sender: TObject);\r
+begin\r
+  Label5.Caption:=DayOfWeek3(DateTimePicker1.Date);\r
+  Label6.Caption:=DayOfWeek3(DateTimePicker2.Date);\r
+end;\r
+\r
+procedure TCalendarForm.ComboBox1Select(Sender: TObject);\r
+begin\r
+  if GSM_GetModelFeature(FN_CALENDAR)=F_CAL71 then\r
+  begin\r
+    CalendarForm.RadioButton1.Visible:=True;\r
+    CalendarForm.RadioButton2.Visible:=True;\r
+    CalendarForm.CheckBox2.Visible:=True;\r
+    CalendarForm.ComboBox2.Visible:=True;\r
+    if ComboBox1.ItemIndex=0 then //birthday\r
+    begin\r
+      CalendarForm.RadioButton1.Enabled:=True;\r
+      CalendarForm.RadioButton2.Enabled:=True;\r
+      CalendarForm.CheckBox2.Enabled:=False;\r
+      CalendarForm.ComboBox2.Enabled:=False;\r
+    end else\r
+    begin\r
+      CalendarForm.RadioButton1.Enabled:=False;\r
+      CalendarForm.RadioButton2.Enabled:=False;\r
+      CalendarForm.CheckBox2.Enabled:=True;\r
+      CalendarForm.ComboBox2.Enabled:=CalendarForm.CheckBox2.Checked;\r
+    end;\r
+    if ComboBox1.ItemIndex=3 then //memo\r
+    begin\r
+      CalendarForm.CheckBox1.Enabled:=False;\r
+      CalendarForm.Label6.Enabled:=False;\r
+      CalendarForm.DateTimePicker2.Enabled:=False;\r
+      CalendarForm.DateTimePicker4.Enabled:=False;\r
+    end else begin\r
+      CalendarForm.CheckBox1.Enabled:=True;\r
+      CalendarForm.Label6.Enabled:=True;\r
+      CalendarForm.DateTimePicker2.Enabled:=True;\r
+      CalendarForm.DateTimePicker4.Enabled:=True;\r
+    end;\r
+  end else begin\r
+    CalendarForm.RadioButton1.Visible:=False;\r
+    CalendarForm.RadioButton2.Visible:=False;\r
+    CalendarForm.CheckBox2.Visible:=False;\r
+    CalendarForm.ComboBox2.Visible:=False;\r
+  end;\r
+  if ComboBox1.ItemIndex=1 then //call\r
+  begin\r
+    CalendarForm.Edit1.Enabled:=True;\r
+    CalendarForm.Label4.Enabled:=True;\r
+  end else\r
+  begin\r
+    CalendarForm.Edit1.Enabled:=False;\r
+    CalendarForm.Label4.Enabled:=False;\r
+  end;\r
+end;\r
+\r
+procedure TCalendarForm.CheckBox2Click(Sender: TObject);\r
+begin\r
+  CalendarForm.ComboBox2.Enabled:=CalendarForm.CheckBox2.Checked;\r
+end;\r
+\r
+end.\r