tmtimelinemainformu.dfm

最新版 JCL+JVCL控件！非常不错的控件资源。包含了所能用到的大部分功能！

object TMTimeLineMainForm: TTMTimeLineMainForm
  Left = 262
  Top = 141
  Width = 719
  Height = 575
  Caption = ')'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCloseQuery = FormCloseQuery
  OnMouseWheelDown = FormMouseWheelDown
  OnMouseWheelUp = FormMouseWheelUp
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 145
    Width = 711
    Height = 3
    Cursor = crVSplit
    Align = alBottom
    AutoSnap = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 148
    Width = 711
    Height = 381
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    TabStop = True
    object Label6: TLabel
      Left = 0
      Top = 0
      Width = 711
      Height = 13
      Align = alTop
      Caption = 'Images:'
    end
    object Label7: TLabel
      Left = 472
      Top = 256
      Width = 121
      Height = 13
      Caption = 'Keyboard navigation:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label18: TLabel
      Left = 496
      Top = 274
      Width = 159
      Height = 26
      Caption = 'Left/Right arrow:'#13#10#9'move Small Change days'
    end
    object Label19: TLabel
      Left = 496
      Top = 306
      Width = 161
      Height = 26
      Caption = 'Ctrl+Left/Right arrow:'#13#10#9'move Large Change days'
    end
    object Label20: TLabel
      Left = 496
      Top = 338
      Width = 152
      Height = 26
      Caption = 'Shift+Left/Right arrow:'#13#10#9'move selection one day'
    end
    object lvImages: TListView
      Left = 0
      Top = 13
      Width = 711
      Height = 56
      Hint = 'The images available for the control'
      Align = alTop
      Columns = <>
      IconOptions.Arrangement = iaLeft
      LargeImages = il16
      ReadOnly = True
      PopupMenu = popTimeLine
      SmallImages = il16
      TabOrder = 0
      OnSelectItem = lvImagesSelectItem
    end
    object gbDates: TGroupBox
      Left = 464
      Top = 80
      Width = 241
      Height = 161
      Caption = ' Dates: '
      TabOrder = 3
      OnClick = btnAddClick
      object Label2: TLabel
        Left = 8
        Top = 16
        Width = 78
        Height = 13
        Caption = 'First visible date:'
      end
      object Label3: TLabel
        Left = 8
        Top = 64
        Width = 69
        Height = 13
        Caption = 'Selected date:'
      end
      object Label4: TLabel
        Left = 136
        Top = 16
        Width = 53
        Height = 13
        Caption = 'Add image:'
      end
      object Label5: TLabel
        Left = 136
        Top = 64
        Width = 36
        Height = 13
        Caption = 'at date:'
      end
      object dtpFirstDate: TDateTimePicker
        Left = 8
        Top = 32
        Width = 121
        Height = 21
        Hint = 'Sets the first displayed date'
        CalAlignment = dtaLeft
        Date = 36854.4251693056
        Time = 36854.4251693056
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 0
        OnChange = dtpFirstDateChange
      end
      object dtpSelDate: TDateTimePicker
        Left = 8
        Top = 80
        Width = 121
        Height = 21
        Hint = 'Sets the selected day'
        CalAlignment = dtaLeft
        Date = 36854.4251693056
        Time = 36854.4251693056
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 1
        OnChange = dtpSelDateChange
      end
      object edImageNo: TEdit
        Left = 136
        Top = 32
        Width = 81
        Height = 21
        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 = 217
        Top = 32
        Width = 15
        Height = 21
        Associate = edImageNo
        Min = -1
        Position = -1
        TabOrder = 3
        Wrap = False
      end
      object dtpImageDate: TDateTimePicker
        Left = 136
        Top = 80
        Width = 96
        Height = 21
        Hint = 'Sets the date to insert  / delete an image'
        CalAlignment = dtaLeft
        Date = 36854.5870759491
        Time = 36854.5870759491
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 4
      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
    end
    object gbAppearance: TGroupBox
      Left = 200
      Top = 80
      Width = 257
      Height = 161
      Caption = ' Appearance: '
      TabOrder = 2
      object Label13: TLabel
        Left = 115
        Top = 48
        Width = 102
        Height = 13
        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 = 81
        Width = 81
        Height = 17
        Caption = 'Show today'
        Checked = True
        State = cbChecked
        TabOrder = 4
        OnClick = chkShowTodayClick
      end
      object chkShowWeeks: TCheckBox
        Left = 8
        Top = 114
        Width = 81
        Height = 17
        Caption = 'Show weeks'
        Checked = True
        State = cbChecked
        TabOrder = 6
        OnClick = chkShowWeeksClick
      end
      object chkShowMonths: TCheckBox
        Left = 8
        Top = 130
        Width = 89
        Height = 17
        Caption = 'Show months'
        Checked = True
        State = cbChecked
        TabOrder = 7
        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'
        OnClickCheck = lbObjFontStyleClickCheck
        ItemHeight = 13
        Items.Strings = (
          'Bold'
          'Italic'
          'Underline'
          'Strikeout')
        TabOrder = 8
      end
      object chkShowTodayIcon: TCheckBox
        Left = 8
        Top = 97
        Width = 107
        Height = 17
        Caption = 'Show today icon'
        Checked = True
        State = cbChecked
        TabOrder = 5
        OnClick = chkShowTodayIconClick
      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