jvscheduleeditorform.dfm

East make Tray Icon in delphi

      Left = 15
      Top = 65
      Width = 81
      Height = 17
      Caption = 'Friday'
      TabOrder = 5
    end
    object cbWeeklySat: TCheckBox
      Left = 100
      Top = 65
      Width = 81
      Height = 17
      Caption = 'Saturday'
      TabOrder = 6
    end
    object cbWeeklySun: TCheckBox
      Left = 190
      Top = 65
      Width = 81
      Height = 17
      Caption = 'Sunday'
      TabOrder = 7
    end
  end
  object gbTestSettings: TGroupBox
    Left = 510
    Top = 0
    Width = 255
    Height = 407
    Align = alRight
    Caption = ' Test Settings '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 8
    object cxStartToday: TCheckBox
      Left = 15
      Top = 20
      Width = 136
      Height = 17
      Caption = 'Start with current date'
      Checked = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      State = cbChecked
      TabOrder = 0
    end
    object cxCountMissedEvents: TCheckBox
      Left = 35
      Top = 40
      Width = 121
      Height = 17
      Caption = 'Count missed events'
      Checked = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      State = cbChecked
      TabOrder = 1
    end
    object btnTest: TButton
      Left = 16
      Top = 60
      Width = 75
      Height = 25
      Caption = 'Run'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = btnTestClick
    end
    object mmLog: TMemo
      Left = 15
      Top = 90
      Width = 225
      Height = 301
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = True
      ParentFont = False
      ReadOnly = True
      ScrollBars = ssVertical
      TabOrder = 3
    end
  end
  object pnlYearlySchedule: TPanel
    Left = 95
    Top = 50
    Width = 410
    Height = 120
    Anchors = [akLeft, akTop, akRight]
    BevelOuter = bvNone
    TabOrder = 5
    Visible = False
    object lblYearlyCaption: TLabel
      Left = 0
      Top = 0
      Width = 36
      Height = 13
      Caption = 'Yearly'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblYearlyIntervalSuffix: TLabel
      Left = 288
      Top = 22
      Width = 31
      Height = 13
      Caption = 'year(s)'
    end
    object lblYearlyDateOf: TLabel
      Left = 98
      Top = 22
      Width = 9
      Height = 13
      Caption = 'of'
    end
    object lblYearlyIndexInterval: TLabel
      Left = 293
      Top = 47
      Width = 38
      Height = 13
      Caption = 'of every'
    end
    object lblYearlyIndexIntervalSuffix: TLabel
      Left = 373
      Top = 47
      Width = 31
      Height = 13
      Caption = 'year(s)'
    end
    object lblYearlyDateInterval: TLabel
      Left = 203
      Top = 22
      Width = 38
      Height = 13
      Caption = 'of every'
    end
    object lblYearlyIndexMonth: TLabel
      Left = 203
      Top = 47
      Width = 9
      Height = 13
      Caption = 'of'
    end
    object rbYearlyDate: TRadioButton
      Left = 15
      Top = 20
      Width = 41
      Height = 17
      Caption = 'On'
      Checked = True
      TabOrder = 0
      TabStop = True
    end
    object edYearlyDateInterval: TEdit
      Left = 245
      Top = 20
      Width = 36
      Height = 21
      TabOrder = 3
      Text = '1'
    end
    object rbYearlyIndex: TRadioButton
      Left = 15
      Top = 45
      Width = 41
      Height = 17
      Caption = 'The'
      TabOrder = 4
    end
    object cbYearlyIndexValue: TComboBox
      Left = 60
      Top = 45
      Width = 51
      Height = 21
      ItemHeight = 13
      TabOrder = 5
      Text = '1st'
      Items.Strings = (
        '1st'
        '2nd'
        '3rd'
        '4th'
        'Last')
    end
    object cbYearlyIndexKind: TComboBox
      Left = 115
      Top = 45
      Width = 86
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 6
      Items.Strings = (
        'day'
        'weekday'
        'weekendday'
        'monday'
        'tuesday'
        'wednesday'
        'thursday'
        'friday'
        'saturday'
        'sunday')
    end
    object edYearlyDateDay: TEdit
      Left = 60
      Top = 20
      Width = 36
      Height = 21
      TabOrder = 1
      Text = '1'
    end
    object edYearlyIndexInterval: TEdit
      Left = 335
      Top = 45
      Width = 36
      Height = 21
      TabOrder = 8
      Text = '1'
    end
    object cbYearlyDateMonth: TComboBox
      Left = 115
      Top = 20
      Width = 86
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 2
      Items.Strings = (
        'januari'
        'february'
        'march'
        'april'
        'may'
        'june'
        'july'
        'august'
        'september'
        'october'
        'november'
        'december')
    end
    object cbYearlyIndexMonth: TComboBox
      Left = 215
      Top = 45
      Width = 76
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 7
      Items.Strings = (
        'januari'
        'february'
        'march'
        'april'
        'may'
        'june'
        'july'
        'august'
        'september'
        'october'
        'november'
        'december')
    end
  end
  object btnOk: TButton
    Left = 350
    Top = 380
    Width = 75
    Height = 25
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 9
    OnClick = btnOkClick
  end
  object btnCancel: TButton
    Left = 430
    Top = 380
    Width = 75
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 10
  end
  object pnlDailySchedule: TPanel
    Left = 95
    Top = 50
    Width = 410
    Height = 120
    Anchors = [akLeft, akTop, akRight]
    BevelOuter = bvNone
    TabOrder = 2
    Visible = False
    object lblDailyCaption: TLabel
      Left = 0
      Top = 0
      Width = 29
      Height = 13
      Caption = 'Daily'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblDailyIntervalUnit: TLabel
      Left = 110
      Top = 47
      Width = 28
      Height = 13
      Caption = 'day(s)'
    end
    object rbDailyEveryWeekDay: TRadioButton
      Left = 15
      Top = 20
      Width = 113
      Height = 17
      Caption = 'Every weekday'
      Checked = True
      TabOrder = 0
      TabStop = True
    end
    object rbDailyInterval: TRadioButton
      Left = 15
      Top = 45
      Width = 56
      Height = 17
      Caption = 'Every'
      TabOrder = 1
    end
    object edDailyInterval: TEdit
      Left = 70
      Top = 45
      Width = 36
      Height = 21
      TabOrder = 2
      Text = '1'
    end
  end
  object pnlMonthlySchedule: TPanel
    Left = 95
    Top = 50
    Width = 410
    Height = 120
    Anchors = [akLeft, akTop, akRight]
    BevelOuter = bvNone
    TabOrder = 4
    Visible = False
    object lblMonthlyCaption: TLabel
      Left = 0
      Top = 0
      Width = 45
      Height = 13
      Caption = 'Monthly'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblMonthlyDayIntervalSuffix: TLabel
      Left = 178
      Top = 22
      Width = 40
      Height = 13
      Caption = 'month(s)'
    end
    object lblMontlhyDayInterval: TLabel
      Left = 98
      Top = 22
      Width = 38
      Height = 13
      Caption = 'of every'
    end
    object lblMonthlyIndexInterval: TLabel
      Left = 208
      Top = 47
      Width = 38
      Height = 13
      Caption = 'of every'
    end
    object lblMonthlyIndexIntervalSuffix: TLabel
      Left = 288
      Top = 47
      Width = 40
      Height = 13
      Caption = 'month(s)'
    end
    object rbMonthlyDay: TRadioButton
      Left = 15
      Top = 20
      Width = 41
      Height = 17
      Caption = 'Day'
      Checked = True
      TabOrder = 0
      TabStop = True
    end
    object edMonthlyEveryMonth: TEdit
      Left = 140
      Top = 20
      Width = 36
      Height = 21
      TabOrder = 2
      Text = '1'
    end
    object rbMonthlyEveryIndex: TRadioButton
      Left = 15
      Top = 45
      Width = 41
      Height = 17
      Caption = 'The'
      TabOrder = 3
    end
    object cbMonthlyIndexValue: TComboBox
      Left = 60
      Top = 45
      Width = 51
      Height = 21
      ItemHeight = 13
      TabOrder = 4
      Text = '1st'
      Items.Strings = (
        '1st'
        '2nd'
        '3rd'
        '4th'
        'Last')
    end
    object cbMonthlyIndexType: TComboBox
      Left = 115
      Top = 45
      Width = 91
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 5
      Items.Strings = (
        'day'
        'weekday'
        'weekendday'
        'monday'
        'tuesday'
        'wednesday'
        'thursday'
        'friday'
        'saturday'
        'sunday')
    end
    object edMonthlyDay: TEdit
      Left = 60
      Top = 20
      Width = 36
      Height = 21
      TabOrder = 1
      Text = '1'
    end
    object edMonthlyIndexInterval: TEdit
      Left = 250
      Top = 45
      Width = 36
      Height = 21
      TabOrder = 6
      Text = '1'
    end
  end
  object AppEvents: TApplicationEvents
    OnIdle = AppEventsIdle
    Left = 620
    Top = 255
  end
end