tmtimelinemainformu.xfm

East make Tray Icon in delphi

object TMTimeLineMainForm: TTMTimeLineMainForm
  Left = 261
  Top = 138
  Width = 718
  Height = 577
  VertScrollBar.Range = 403
  ActiveControl = lvImages
  Caption = 'Team Manager Timeline demo'
  Color = clButton
  Constraints.MinHeight = 376
  Constraints.MinWidth = 710
  Font.Color = clText
  Font.Height = 11
  Font.Name = 'Helvetica'
  Font.Pitch = fpVariable
  Font.Style = []
  Font.Weight = 40
  ParentFont = False
  Position = poDesktopCenter
  Scaled = False
  ShowHint = True
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnMouseWheelDown = FormMouseWheelDown
  OnMouseWheelUp = FormMouseWheelUp
  PixelsPerInch = 96
  object Splitter1: TSplitter
    Left = 0
    Top = 174
    Width = 718
    Height = 3
    Cursor = crVSplit
    Align = alBottom
    AutoSnap = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 177
    Width = 718
    Height = 381
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    TabStop = True
    object Label6: TLabel
      Left = 0
      Top = 0
      Width = 718
      Height = 14
      Align = alTop
      Caption = 'Images:'
    end
    object Label7: TLabel
      Left = 472
      Top = 256
      Width = 114
      Height = 14
      Caption = 'Keyboard navigation:'
      Font.Color = clText
      Font.Height = 11
      Font.Name = 'Helvetica'
      Font.Pitch = fpVariable
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label18: TLabel
      Left = 496
      Top = 274
      Width = 169
      Height = 28
      Caption = 'Left/Right arrow:'#13#10#9'move Small Change days'
    end
    object Label19: TLabel
      Left = 496
      Top = 306
      Width = 172
      Height = 28
      Caption = 'Ctrl+Left/Right arrow:'#13#10#9'move Large Change days'
    end
    object Label20: TLabel
      Left = 496
      Top = 338
      Width = 162
      Height = 28
      Caption = 'Shift+Left/Right arrow:'#13#10#9'move selection one day'
    end
    object lvImages: TListView
      Left = 0
      Top = 14
      Width = 718
      Height = 56
      Hint = 'The images available for the control'
      Align = alTop
      Columns = <>
      Images = il16
      PopupMenu = popTimeLine
      ReadOnly = True
      TabOrder = 0
      OnSelectItem = lvImagesSelectItem
    end
    object gbDates: TGroupBox
      Left = 464
      Top = 80
      Width = 241
      Height = 161
      Caption = ' Dates: '
      TabOrder = 3
      object Label2: TLabel
        Left = 8
        Top = 16
        Width = 81
        Height = 14
        Caption = 'First visible date:'
      end
      object Label3: TLabel
        Left = 8
        Top = 64
        Width = 69
        Height = 14
        Caption = 'Selected date:'
      end
      object Label4: TLabel
        Left = 136
        Top = 16
        Width = 54
        Height = 14
        Caption = 'Add image:'
      end
      object Label5: TLabel
        Left = 136
        Top = 64
        Width = 36
        Height = 14
        Caption = 'at date:'
      end
      object edImageNo: TEdit
        Left = 136
        Top = 32
        Width = 81
        Height = 22
        Hint = 
          'Sets the imageindex to insert at the current date'#13#10'(use -1 to re' +
          'move image)'
        TabOrder = 2
        Text = '-1'
      end
      object udImageNo: TUpDown
        Left = 218
        Top = 32
        Width = 15
        Height = 21
        Associate = edImageNo
        Min = -1
        Position = -1
        TabOrder = 3
      end
      object btnAdd: TButton
        Left = 157
        Top = 120
        Width = 75
        Height = 25
        Hint = 'Adds an image to the chosen date'
        Caption = '&Add'
        TabOrder = 5
        OnClick = btnAddClick
      end
      object dtpFirstDate: TJvDateEdit
        Left = 8
        Top = 32
        Width = 101
        Height = 21
        Font.Color = clText
        Font.Height = 11
        Font.Name = 'MS Sans Serif'
        Font.Pitch = fpVariable
        Font.Style = []
        Font.Weight = 40
        ParentFont = False
        PopupColor = clBase
        TabOrder = 8
        OnChange = dtpFirstDateChange
        ClipboardCommands = []
      end
      object dtpSelDate: TJvDateEdit
        Left = 8
        Top = 80
        Width = 101
        Height = 21
        Font.Color = clText
        Font.Height = 11
        Font.Name = 'MS Sans Serif'
        Font.Pitch = fpVariable
        Font.Style = []
        Font.Weight = 40
        ParentFont = False
        PopupColor = clBase
        TabOrder = 10
        OnChange = dtpSelDateChange
        ClipboardCommands = []
      end
      object dtpImageDate: TJvDateEdit
        Left = 135
        Top = 80
        Width = 101
        Height = 21
        Font.Color = clText
        Font.Height = 11
        Font.Name = 'MS Sans Serif'
        Font.Pitch = fpVariable
        Font.Style = []
        Font.Weight = 40
        ParentFont = False
        PopupColor = clBase
        TabOrder = 12
        ClipboardCommands = []
      end
    end
    object gbAppearance: TGroupBox
      Left = 200
      Top = 80
      Width = 257
      Height = 161
      Caption = ' Appearance: '
      TabOrder = 2
      object Label13: TLabel
        Left = 115
        Top = 48
        Width = 107
        Height = 14
        Caption = 'Assigned object style:'
      end
      object chkReadOnly: TCheckBox
        Left = 8
        Top = 16
        Width = 73
        Height = 17
        Hint = 'Makes the control read-only'
        Caption = 'Read-only'
        TabOrder = 0
        OnClick = chkReadOnlyClick
      end
      object chkFlat: TCheckBox
        Left = 8
        Top = 32
        Width = 41
        Height = 17
        Hint = 'Makes the control flat'
        Caption = 'Flat'
        TabOrder = 1
        OnClick = chkFlatClick
      end
      object chkRClick: TCheckBox
        Left = 8
        Top = 48
        Width = 105
        Height = 17
        Hint = 'Moves the selection on right-click too'
        Caption = 'Right click select'
        TabOrder = 2
        OnClick = chkRClickClick
      end
      object chkEnabled: TCheckBox
        Left = 8
        Top = 64
        Width = 97
        Height = 17
        Hint = 'Enables the control'
        Caption = 'Enabled'
        Checked = True
        State = cbChecked
        TabOrder = 3
        OnClick = chkEnabledClick
      end
      object chkShowToday: TCheckBox
        Left = 8
        Top = 96
        Width = 81
        Height = 17
        Caption = 'Show today'
        Checked = True
        State = cbChecked
        TabOrder = 4
        OnClick = chkShowTodayClick
      end
      object chkShowWeeks: TCheckBox
        Left = 8
        Top = 112
        Width = 81
        Height = 17
        Caption = 'Show weeks'
        Checked = True
        State = cbChecked
        TabOrder = 5
        OnClick = chkShowWeeksClick
      end
      object chkShowMonths: TCheckBox
        Left = 8