jvqscheduleeditorform.xfm

East make Tray Icon in delphi

object FrmScheduleEditor: TFrmScheduleEditor
  Left = 262
  Top = 147
  Width = 765
  Height = 407
  HorzScrollBar.Range = 760
  VertScrollBar.Range = 403
  ActiveControl = rbFreqOneshot
  BorderIcons = [biSystemMenu]
  BorderStyle = fbsSingle
  Caption = 'Schedule Editor'
  Color = clButton
  Font.Color = clText
  Font.Height = 11
  Font.Name = 'Helvetica'
  Font.Pitch = fpVariable
  Font.Style = []
  Font.Weight = 0
  Icon.Data = {
    0000010001001010100001001000280100001600000028000000100000002000
    00000100040000000000C0000000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    00000000000000000BBBB0000000000BB000BB000000000BB0000B000000000B
    BB000BB00000000BBB000BB00000000000000BB00000000000000BB000000000
    00000BB00000000000000BB00000000000000BB00000000000000BB000000000
    00000BB0000000000000BBBB00000000000BBBBBB0000000000000000000FFFF
    0000F87F0000E73F0000E7BF0000E39F0000E39F0000FF9F0000FF9F0000FF9F
    0000FF9F0000FF9F0000FF9F0000FF9F0000FF0F0000FE070000FFFF0000}
  ParentFont = False
  Position = poDesktopCenter
  Scaled = False
  OnCreate = FormCreate
  PixelsPerInch = 113
  object bvlDailyFreq: TBevel
    Left = 0
    Top = 170
    Width = 505
    Height = 2
    Anchors = [akLeft, akTop, akRight]
    Shape = bsTopLine
  end
  object pnlStartInfo: TPanel
    Left = 0
    Top = 0
    Width = 505
    Height = 50
    BevelOuter = bvNone
    TabOrder = 0
    object bvlScheduleType: TBevel
      Left = 0
      Top = 48
      Width = 505
      Height = 2
      Align = alBottom
      Shape = bsTopLine
    end
    object lblStartDate: TLabel
      Left = 15
      Top = 22
      Width = 25
      Height = 13
      Caption = 'Date:'
    end
    object lblStartTime: TLabel
      Left = 155
      Top = 22
      Width = 23
      Height = 13
      Caption = 'Time:'
    end
    object lblStartCaption: TLabel
      Left = 5
      Top = 0
      Width = 25
      Height = 19
      Caption = 'Start'
      Font.Color = clText
      Font.Height = 11
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpVariable
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  object pnlEndInfo: TPanel
    Left = 0
    Top = 250
    Width = 505
    Height = 125
    Anchors = [akLeft, akTop, akRight]
    BevelOuter = bvNone
    TabOrder = 7
    object Bevel2: TBevel
      Left = 0
      Top = 123
      Width = 505
      Height = 2
      Align = alBottom
      Shape = bsTopLine
    end
    object lblEndCaption: TLabel
      Left = 4
      Top = 0
      Width = 18
      Height = 19
      Caption = 'End'
      Font.Color = clText
      Font.Height = 11
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpVariable
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblEndTime: TLabel
      Left = 205
      Top = 100
      Width = 23
      Height = 13
      Caption = 'Time:'
    end
    object rbInfinite: TRadioButton
      Left = 15
      Top = 20
      Width = 76
      Height = 17
      Caption = 'Never'
      Checked = True
      TabOrder = 0
    end
    object rbTriggerCount: TRadioButton
      Left = 15
      Top = 45
      Width = 81
      Height = 17
      Caption = 'Event count'
      TabOrder = 1
    end
    object rbDayCount: TRadioButton
      Left = 15
      Top = 70
      Width = 81
      Height = 17
      Caption = 'Day count'
      TabOrder = 3
    end
    object rbDate: TRadioButton
      Left = 15
      Top = 95
      Width = 71
      Height = 17
      Caption = 'Date:'
      TabOrder = 5
    end
    object edEventCount: TEdit
      Left = 100
      Top = 45
      Width = 96
      Height = 21
      TabOrder = 2
      Text = '1'
    end
    object edDayCount: TEdit
      Left = 100
      Top = 70
      Width = 96
      Height = 21
      TabOrder = 4
      Text = '1'
    end
  end
  object pnlRecurringInfo: TPanel
    Left = 0
    Top = 50
    Width = 96
    Height = 120
    BevelOuter = bvNone
    TabOrder = 1
    object bvlSeparation: TBevel
      Left = 91
      Top = 0
      Width = 5
      Height = 120
      Align = alRight
      Shape = bsLeftLine
    end
    object lblScheduleType: TLabel
      Left = 4
      Top = 0
      Width = 70
      Height = 19
      Caption = 'Schedule type'
      Font.Color = clText
      Font.Height = 11
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpVariable
      Font.Style = [fsBold]
      ParentFont = False
    end
    object rbSingleShot: TRadioButton
      Left = 15
      Top = 20
      Width = 66
      Height = 17
      Caption = 'One-shot'
      Checked = True
      TabOrder = 0
    end
    object rbDaily: TRadioButton
      Left = 15
      Top = 40
      Width = 66
      Height = 17
      Caption = 'Daily'
      TabOrder = 1
    end
    object rbWeekly: TRadioButton
      Left = 15
      Top = 60
      Width = 66
      Height = 17
      Caption = 'Weekly'
      TabOrder = 2
    end
    object rbMonthly: TRadioButton
      Left = 15
      Top = 80
      Width = 66
      Height = 17
      Caption = 'Monthly'
      TabOrder = 3
    end
    object rbYearly: TRadioButton
      Left = 15
      Top = 100
      Width = 66
      Height = 17
      Caption = 'Yearly'
      TabOrder = 4
    end
  end
  object pnlDailyFreq: TPanel
    Left = 0
    Top = 175
    Width = 505
    Height = 75
    Anchors = [akLeft, akTop, akRight]
    BevelOuter = bvNone
    TabOrder = 6
    object Bevel1: TBevel
      Left = 0
      Top = 73
      Width = 505
      Height = 2
      Align = alBottom
      Shape = bsTopLine
    end
    object lblDailyFreq: TLabel
      Left = 4
      Top = 0
      Width = 77
      Height = 19
      Caption = 'Daily frequency'
      Font.Color = clText
      Font.Height = 11
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpVariable
      Font.Style = [fsBold]
      Masked = True
      ParentFont = False
      Transparent = True
    end
    object lblFreqFrom: TLabel
      Left = 245
      Top = 48
      Width = 39
      Height = 13
      Caption = 'between'
    end
    object lblFreqTo: TLabel
      Left = 370
      Top = 48
      Width = 17
      Height = 13
      Caption = 'and'
    end
    object rbFreqOneshot: TRadioButton
      Left = 15
      Top = 20
      Width = 96
      Height = 17
      Caption = 'Occurs once at'
      Checked = True
      TabOrder = 0
    end
    object rbFreqInterval: TRadioButton
      Left = 15
      Top = 45
      Width = 96
      Height = 17
      Caption = 'Occurs every'
      TabOrder = 2
    end
    object edFreqInterval: TEdit
      Left = 115
      Top = 45
      Width = 36
      Height = 21
      TabOrder = 3
      Text = '1'
    end
    object cbFreqIntervalUnit: TComboBox
      Left = 155
      Top = 45
      Width = 86
      Height = 21
      Style = csDropDownList
      ItemHeight = 15
      Items.Strings = (
        'Milliseconds'
        'Seconds'
        'Minutes'
        'Hours')
      TabOrder = 4
    end
  end
  object pnlWeeklySchedule: TPanel
    Left = 95
    Top = 50
    Width = 410
    Height = 120
    Anchors = [akLeft, akTop, akRight]
    BevelOuter = bvNone
    TabOrder = 3
    Visible = False
    object lblWeeklyCaption: TLabel
      Left = 0
      Top = 0
      Width = 38
      Height = 19
      Caption = 'Weekly'
      Font.Color = clText
      Font.Height = 11
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpVariable
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblWeeklyInterval: TLabel
      Left = 15
      Top = 22
      Width = 27
      Height = 13
      Caption = 'Every'
    end
    object lblWeeklyInterval2: TLabel
      Left = 90
      Top = 22
      Width = 54
      Height = 13
      Caption = 'week(s) on:'
    end
    object edWeeklyInterval: TEdit
      Left = 50
      Top = 20
      Width = 36
      Height = 21
      TabOrder = 0
      Text = '1'
    end
    object cbWeeklyMon: TCheckBox
      Left = 15
      Top = 45
      Width = 81
      Height = 17
      Caption = 'Monday'
      Checked = True
      State = cbChecked
      TabOrder = 1
    end
    object cbWeeklyTue: TCheckBox
      Left = 100
      Top = 45
      Width = 81
      Height = 17
      Caption = 'Tuesday'
      TabOrder = 2
    end
    object cbWeeklyWed: TCheckBox
      Left = 190
      Top = 45
      Width = 81
      Height = 17
      Caption = 'Wednesday'
      TabOrder = 3
    end
    object cbWeeklyThu: TCheckBox
      Left = 280
      Top = 45
      Width = 81
      Height = 17
      Caption = 'Thursday'
      TabOrder = 4
    end
    object cbWeeklyFri: TCheckBox
      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.Color = clText
    Font.Height = 11
    Font.Name = 'MS Sans Serif'
    Font.Pitch = fpVariable
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 8
    object cxStartToday: TCheckBox
      Left = 15
      Top = 20
      Width = 136
      Height = 17
      Caption = 'Start with current date'