git://git.jankratochvil.net / gnokii.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
This commit was manufactured by cvs2svn to create branch 'decode'.
[gnokii.git] / win32_makefile / gui_delphi / Calendar.pas
diff --git a/win32_makefile/gui_delphi/Calendar.pas b/win32_makefile/gui_delphi/Calendar.pas
deleted file mode 100644 (file)
index 882d5d3..0000000
--- a/win32_makefile/gui_delphi/Calendar.pas
+++ /dev/null
@@ -1,220 +0,0 @@
-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
Unnamed repository; edit this file 'description' to name the repository.