object frmEvento: TfrmEvento Left = 521 Top = 377 HelpContext = 8 ActiveControl = edtDescrizioneEvento BorderStyle = bsDialog Caption = ' Add Event' ClientHeight = 337 ClientWidth = 427 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Position = poScreenCenter OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Label3: TLabel Left = 13 Top = 245 Width = 84 Height = 13 Caption = 'Event Description' end object Label5: TLabel Left = 13 Top = 290 Width = 55 Height = 13 Caption = 'Event Type' end object Label6: TLabel Left = 140 Top = 290 Width = 62 Height = 13 Caption = 'Event Priority' end object cmbTipoEvento: TComboBox Left = 12 Top = 305 Width = 122 Height = 21 Style = csDropDownList ItemHeight = 13 Items.Strings = ( 'Meeting/Appointment' 'Reminder' 'To Do' 'Alarm') TabOrder = 4 OnChange = cmbTipoEventoChange end object edtDescrizioneEvento: TEdit Left = 12 Top = 260 Width = 398 Height = 21 MaxLength = 250 TabOrder = 0 end object btnOK: TButton Left = 238 Top = 302 Width = 55 Height = 25 Caption = 'OK' Default = True TabOrder = 1 OnClick = btnOKClick end object btnCancel: TButton Left = 298 Top = 302 Width = 55 Height = 25 Caption = 'Cancel' TabOrder = 2 OnClick = btnCancelClick end object cmbPriority: TComboBox Left = 140 Top = 305 Width = 87 Height = 21 Style = csDropDownList ItemHeight = 13 Items.Strings = ( 'Low' 'Normal' 'High') TabOrder = 5 end object btnSpiegone: TButton Left = 358 Top = 302 Width = 55 Height = 25 Caption = 'Explain' TabOrder = 3 OnClick = btnSpiegoneClick end object GroupBox1: TGroupBox Left = 7 Top = 4 Width = 413 Height = 151 Caption = ' Event Time Definition ' TabOrder = 6 object Label1: TLabel Left = 8 Top = 43 Width = 49 Height = 13 Caption = 'On Year' end object Label2: TLabel Left = 93 Top = 43 Width = 47 Height = 13 Caption = 'On Month' end object Label4: TLabel Left = 203 Top = 43 Width = 36 Height = 13 Caption = 'On Day' end object lblDurata: TLabel Left = 94 Top = 122 Width = 49 Height = 13 Caption = 'Duration : ' end object chkEveryYear: TCheckBox Left = 8 Top = 19 Width = 81 Height = 17 Caption = 'Every Year' TabOrder = 0 OnClick = chkEveryYearClick end object chkEveryMonth: TCheckBox Left = 93 Top = 20 Width = 97 Height = 17 Caption = 'Every Month' TabOrder = 1 OnClick = chkEveryMonthClick end object cmbMonth: TComboBox Left = 93 Top = 60 Width = 100 Height = 21 Style = csDropDownList DropDownCount = 12 ItemHeight = 13 TabOrder = 2 OnChange = cmbDayDropDown end object chkRecurseOnDay: TCheckBox Left = 203 Top = 20 Width = 102 Height = 17 Caption = 'Recurse on day' TabOrder = 3 OnClick = chkRecurseOnDayClick end object cmbRecurseDay: TComboBox Left = 310 Top = 18 Width = 94 Height = 21 Style = csDropDownList DropDownCount = 10 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 ParentFont = False TabOrder = 4 end object chkAlarm: TCheckBox Left = 289 Top = 62 Width = 54 Height = 17 Caption = 'Alarm' Enabled = False TabOrder = 5 end object edtOre: TEdit Left = 8 Top = 117 Width = 24 Height = 21 Enabled = False TabOrder = 6 Text = '0' OnChange = edtOreChange end object UpDown1: TUpDown Left = 32 Top = 117 Width = 15 Height = 21 Associate = edtOre Min = 0 Max = 23 Position = 0 TabOrder = 7 Wrap = False end object edtMinuti: TEdit Left = 49 Top = 117 Width = 24 Height = 21 Enabled = False TabOrder = 8 Text = '0' OnChange = edtOreChange end object UpDown2: TUpDown Left = 73 Top = 117 Width = 15 Height = 21 Associate = edtMinuti Min = 0 Max = 59 Position = 0 TabOrder = 9 Wrap = False end object barDurata: TTrackBar Left = 226 Top = 116 Width = 178 Height = 22 Enabled = False Max = 24 Orientation = trHorizontal PageSize = 1 Frequency = 1 Position = 0 SelEnd = 0 SelStart = 0 TabOrder = 10 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = barDurataChange end object barTime: TTrackBar Left = 81 Top = 92 Width = 323 Height = 22 Enabled = False Max = 47 Orientation = trHorizontal PageSize = 1 Frequency = 1 Position = 0 SelEnd = 0 SelStart = 0 TabOrder = 11 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = barTimeChange end object chkOnTime: TCheckBox Left = 8 Top = 94 Width = 71 Height = 17 Caption = 'On Time' TabOrder = 12 OnClick = chkOnTimeClick end object cmbYear: TComboBox Left = 8 Top = 60 Width = 71 Height = 21 Style = csDropDownList DropDownCount = 16 ItemHeight = 13 TabOrder = 13 OnChange = cmbDayDropDown end object cmbDay: TComboBox Left = 204 Top = 60 Width = 54 Height = 21 Style = csDropDownList DropDownCount = 16 ItemHeight = 13 TabOrder = 14 OnDropDown = cmbDayDropDown end end object GroupBox2: TGroupBox Left = 7 Top = 165 Width = 413 Height = 72 Caption = 'Options' TabOrder = 7 object chkAutoDelete: TCheckBox Left = 244 Top = 14 Width = 115 Height = 17 Caption = 'Delete when done' TabOrder = 0 end object edtShowBeforeDay: TEdit Left = 176 Top = 28 Width = 36 Height = 21 Enabled = False TabOrder = 1 Text = '0' end object updShowBeforeDay: TUpDown Left = 212 Top = 28 Width = 15 Height = 21 Associate = edtShowBeforeDay Enabled = False Min = 0 Position = 0 TabOrder = 2 Wrap = False end object radShowToday: TRadioButton Left = 8 Top = 49 Width = 191 Height = 17 Caption = 'Show event from today until done' TabOrder = 3 OnClick = radShowBeforeClick end object radShowBefore: TRadioButton Left = 8 Top = 32 Width = 166 Height = 17 Caption = 'Show event some day before:' TabOrder = 4 OnClick = radShowBeforeClick end object radShowAtDate: TRadioButton Left = 8 Top = 15 Width = 141 Height = 17 Caption = 'Show event on its date' Checked = True TabOrder = 5 TabStop = True OnClick = radShowBeforeClick end object chkExecPgm: TCheckBox Left = 244 Top = 34 Width = 161 Height = 17 Caption = 'Launch Program on Event' TabOrder = 6 OnClick = chkExecPgmClick end end end