tmtimelinemainformu.xfm

East make Tray Icon in delphi

        Top = 128
        Width = 89
        Height = 17
        Caption = 'Show months'
        Checked = True
        State = cbChecked
        TabOrder = 6
        OnClick = chkShowMonthsClick
      end
      object lbObjFontStyle: TCheckListBox
        Left = 115
        Top = 64
        Width = 126
        Height = 64
        Hint = 
          'Sets the font to use for day items that'#13#10'have a non-nil Objects ' +
          'item'
        ItemHeight = 14
        Items.Strings = (
          'Bold'
          'Italic'
          'Underline'
          'Strikeout')
        Rows = 4
        TabOrder = 7
        OnClickCheck = lbObjFontStyleClickCheck
      end
    end
    object gbMisc: TGroupBox
      Left = 248
      Top = 248
      Width = 209
      Height = 129
      Caption = ' Misc. '
      TabOrder = 5
      object btnLoad: TButton
        Left = 14
        Top = 24
        Width = 110
        Height = 25
        Hint = 'Loads a previously saved timeline file'
        Caption = 'Load from file...'
        TabOrder = 0
        OnClick = btnLoadClick
      end
      object btnSave: TButton
        Left = 14
        Top = 56
        Width = 110
        Height = 25
        Hint = 'Saves the current content to a timeline file'
        Caption = 'Save to file...'
        TabOrder = 1
        OnClick = btnSaveClick
      end
    end
    object gbFonts: TGroupBox
      Left = 8
      Top = 248
      Width = 233
      Height = 129
      Caption = ' Fonts and colors: '
      TabOrder = 4
      object btnFont: TButton
        Left = 14
        Top = 56
        Width = 90
        Height = 25
        Hint = 'Sets the font for days'
        Caption = 'Font...'
        TabOrder = 1
        OnClick = btnFontClick
      end
      object btnColor: TButton
        Left = 14
        Top = 24
        Width = 90
        Height = 25
        Hint = 'Sets the background color'
        Caption = 'Color...'
        TabOrder = 0
        OnClick = btnColorClick
      end
      object btnMonthFont: TButton
        Left = 14
        Top = 88
        Width = 90
        Height = 25
        Hint = 'Sets the font for months and years'
        Caption = 'Month font...'
        TabOrder = 2
        OnClick = btnMonthFontClick
      end
      object btnTodayColor: TButton
        Left = 118
        Top = 56
        Width = 90
        Height = 25
        Hint = 'Sets the background color for the today item'
        Caption = 'Today color...'
        TabOrder = 4
        OnClick = btnTodayColorClick
      end
      object btnLineColor: TButton
        Left = 118
        Top = 24
        Width = 90
        Height = 25
        Caption = 'Line color...'
        TabOrder = 3
        OnClick = btnLineColorClick
      end
      object btnPenColor: TButton
        Left = 118
        Top = 88
        Width = 90
        Height = 25
        Hint = 'Sets the color of the selection frame'
        Caption = 'Selection color...'
        TabOrder = 5
        OnClick = btnPenColorClick
      end
    end
    object gbWidths: TGroupBox
      Left = 8
      Top = 80
      Width = 185
      Height = 161
      Caption = ' Widths and sizes: '
      TabOrder = 1
      object Label1: TLabel
        Left = 32
        Top = 77
        Width = 52
        Height = 14
        Caption = 'Day width:'
      end
      object Label8: TLabel
        Left = 14
        Top = 101
        Width = 70
        Height = 14
        Caption = 'Sel. line width:'
      end
      object Label9: TLabel
        Left = 15
        Top = 27
        Width = 67
        Height = 14
        Caption = 'Small change:'
      end
      object Label10: TLabel
        Left = 13
        Top = 52
        Width = 70
        Height = 14
        Caption = 'Large change:'
      end
      object Label12: TLabel
        Left = 20
        Top = 126
        Width = 64
        Height = 14
        Caption = 'Button width:'
      end
      object Label11: TLabel
        Left = 140
        Top = 28
        Width = 24
        Height = 14
        Caption = 'days'
      end
      object Label14: TLabel
        Left = 140
        Top = 53
        Width = 24
        Height = 14
        Caption = 'days'
      end
      object Label15: TLabel
        Left = 140
        Top = 77
        Width = 28
        Height = 14
        Caption = 'pixels'
      end
      object Label16: TLabel
        Left = 140
        Top = 102
        Width = 28
        Height = 14
        Caption = 'pixels'
      end
      object Label17: TLabel
        Left = 140
        Top = 126
        Width = 28
        Height = 14
        Caption = 'pixels'
      end
      object edDayWidth: TEdit
        Left = 88
        Top = 73
        Width = 33
        Height = 22
        Hint = 'Sets the width in pixels of a single day'
        TabOrder = 4
        Text = '19'
      end
      object udDayWidth: TUpDown
        Left = 122
        Top = 73
        Width = 15
        Height = 21
        Associate = edDayWidth
        Max = 32000
        Position = 19
        TabOrder = 5
        OnClick = udDayWidthClick
      end
      object edPenWidth: TEdit
        Left = 89
        Top = 98
        Width = 32
        Height = 22
        Hint = 'Sets the width of the selection frame'
        TabOrder = 6
        Text = '2'
      end
      object udPenWidth: TUpDown
        Left = 122
        Top = 98
        Width = 15
        Height = 21
        Associate = edPenWidth
        Position = 2
        TabOrder = 7
        OnClick = udPenWidthClick
      end
      object edScrollSmall: TEdit
        Left = 88
        Top = 24
        Width = 33
        Height = 22
        Hint = 
          'Sets the number of days to scroll when clicking the buttons '#13#10'or' +
          ' when using the arrow-keys'
        TabOrder = 0
        Text = '7'
      end
      object udScrollSmall: TUpDown
        Left = 122
        Top = 24
        Width = 15
        Height = 21
        Associate = edScrollSmall
        Min = 1
        Max = 365
        Position = 7
        TabOrder = 1
        OnClick = udScrollSmallClick
      end
      object edScrollLarge: TEdit
        Left = 88
        Top = 49
        Width = 33
        Height = 22
        Hint = 
          'Sets the number of days to scroll when Ctrl + clicking the butto' +
          'ns '#13#10'or when using Ctrl+left arrow or Ctrl+right arrow'
        TabOrder = 2
        Text = '30'
      end
      object udScrollLarge: TUpDown
        Left = 122
        Top = 49
        Width = 15
        Height = 21
        Associate = edScrollLarge
        Min = 1
        Max = 365
        Position = 30
        TabOrder = 3
        OnClick = udScrollLargeClick
      end
      object edButtonWidth: TEdit
        Left = 88
        Top = 122
        Width = 33
        Height = 22
        Hint = 'Sets the width of the scrollbuttons'
        TabOrder = 8
        Text = '12'
      end
      object udButtonWidth: TUpDown
        Left = 122
        Top = 122