utaskchart.dfm

DELPHI 一个可以实现排期的控件 显示排期

object TaskChart: TTaskChart
  Left = 0
  Top = 0
  Width = 533
  Height = 277
  AutoScroll = False
  TabOrder = 0
  object pnlTarget: TPanel
    Left = 391
    Top = 8
    Width = 58
    Height = 17
    Caption = 'asdfas'
    Color = 14803425
    TabOrder = 0
  end
  object pnlEndLine: TPanel
    Left = -14
    Top = 63
    Width = 2
    Height = 207
    Align = alCustom
    TabOrder = 1
    Visible = False
  end
  object pnlStartLine: TPanel
    Left = -6
    Top = 63
    Width = 2
    Height = 207
    Align = alCustom
    TabOrder = 2
    Visible = False
  end
  object ScrollBox1: TScrollBox
    Left = 0
    Top = 0
    Width = 533
    Height = 63
    Align = alTop
    AutoSize = True
    BevelInner = bvNone
    BevelOuter = bvRaised
    BevelKind = bkFlat
    BorderStyle = bsNone
    TabOrder = 3
    object pnlTimeBar: TPanel
      Left = 0
      Top = 29
      Width = 531
      Height = 32
      Align = alTop
      BevelOuter = bvNone
      Caption = ' '
      TabOrder = 0
    end
    object ScrollBox2: TScrollBox
      Left = 0
      Top = 0
      Width = 531
      Height = 29
      HorzScrollBar.Visible = False
      VertScrollBar.Visible = False
      Align = alTop
      BevelKind = bkFlat
      BorderStyle = bsNone
      TabOrder = 1
      object StaticText1: TStaticText
        Left = 8
        Top = 6
        Width = 55
        Height = 17
        Caption = #24320#22987#26085#26399':'
        TabOrder = 0
      end
      object StaticText2: TStaticText
        Left = 192
        Top = 6
        Width = 55
        Height = 17
        Caption = #32467#26463#26085#26399':'
        TabOrder = 1
      end
      object cmbZoom: TComboBox
        Left = 381
        Top = 1
        Width = 81
        Height = 22
        Hint = #32553#25918
        Style = csOwnerDrawFixed
        DropDownCount = 12
        ItemHeight = 16
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        OnClick = cmbZoomClick
        Items.Strings = (
          '10 %'
          '20 %'
          '30 %'
          '40 %'
          '50 %'
          '60 %'
          '70 %'
          '80 %'
          '90 %'
          '100%'
          '150%'
          '200%')
      end
      object dtpStart: TDateTimePicker
        Left = 72
        Top = 2
        Width = 113
        Height = 21
        CalAlignment = dtaLeft
        Date = 38146.6408053704
        Time = 38146.6408053704
        DateFormat = dfLong
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 3
        OnCloseUp = dtpStartCloseUp
        OnChange = dtpStartCloseUp
      end
      object dtpEnd: TDateTimePicker
        Left = 264
        Top = 2
        Width = 113
        Height = 21
        CalAlignment = dtaLeft
        Date = 38153.6408784375
        Time = 38153.6408784375
        DateFormat = dfLong
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 4
        OnCloseUp = dtpStartCloseUp
        OnChange = dtpStartCloseUp
      end
    end
  end
  object ScrollBox3: TScrollBox
    Left = 0
    Top = 63
    Width = 533
    Height = 214
    Align = alClient
    BevelKind = bkFlat
    BorderStyle = bsNone
    TabOrder = 4
    object Splitter1: TSplitter
      Left = 81
      Top = 0
      Width = 1
      Height = 210
      Cursor = crHSplit
      MinSize = 1
      OnMoved = Splitter1Moved
    end
    object sbMother: TScrollBox
      Left = 82
      Top = 0
      Width = 447
      Height = 210
      Align = alClient
      TabOrder = 0
      OnCanResize = sbMotherCanResize
      object pnlAutoSize: TPanel
        Left = 2
        Top = -14
        Width = 17
        Height = 37
        BevelOuter = bvNone
        ParentColor = True
        TabOrder = 0
      end
      object sbMachineMother: TScrollBox
        Left = 0
        Top = 0
        Width = 443
        Height = 21
        HorzScrollBar.Visible = False
        VertScrollBar.Smooth = True
        VertScrollBar.Visible = False
        Align = alTop
        AutoSize = True
        BorderStyle = bsNone
        TabOrder = 1
      end
    end
    object sbMachineName: TScrollBox
      Left = 0
      Top = 0
      Width = 81
      Height = 210
      HorzScrollBar.Visible = False
      VertScrollBar.Visible = False
      Align = alLeft
      TabOrder = 1
      OnResize = sbMachineNameResize
      object sbTest: TScrollBox
        Left = 0
        Top = 0
        Width = 99
        Height = 171
        HorzScrollBar.Visible = False
        BorderStyle = bsNone
        Color = clActiveBorder
        ParentColor = False
        TabOrder = 0
      end
    end
  end
  object pmTask: TPopupMenu
    Left = 152
    Top = 64
    object NMergeTask: TMenuItem
      Caption = #21512#24182#20219#21153
      OnClick = NMergeTaskClick
    end
  end
end