lazarus-ccr/components/tvplanit/examples/gantt/main.lfm

object MainForm: TMainForm
  Left = 319
  Height = 600
  Top = 125
  Width = 865
  Caption = 'MainForm'
  ClientHeight = 600
  ClientWidth = 865
  LCLVersion = '3.99.0.0'
  OnCreate = FormCreate
  object Splitter1: TSplitter
    Cursor = crVSplit
    Left = 0
    Height = 5
    Top = 240
    Width = 865
    Align = alTop
    ResizeAnchor = akTop
  end
  object Panel1: TPanel
    Left = 0
    Height = 66
    Top = 534
    Width = 865
    Align = alBottom
    BevelOuter = bvNone
    ClientHeight = 66
    ClientWidth = 865
    TabOrder = 1
    object btnAllEvents: TButton
      AnchorSideLeft.Control = Panel1
      AnchorSideTop.Control = Panel1
      Left = 6
      Height = 25
      Top = 6
      Width = 77
      AutoSize = True
      BorderSpacing.Around = 6
      Caption = 'All events'
      TabOrder = 0
      OnClick = btnAllEventsClick
    end
    object btnWeekOfSelDate: TButton
      AnchorSideLeft.Control = btnAllEvents
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Panel1
      Left = 89
      Height = 25
      Top = 6
      Width = 167
      AutoSize = True
      BorderSpacing.Around = 6
      Caption = 'Week of selected date only'
      TabOrder = 1
      OnClick = btnWeekOfSelDateClick
    end
    object btnMonthOfSelDate: TButton
      AnchorSideLeft.Control = btnWeekOfSelDate
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Panel1
      Left = 262
      Height = 25
      Top = 6
      Width = 174
      AutoSize = True
      BorderSpacing.Around = 6
      Caption = 'Month of selected date only'
      TabOrder = 2
      OnClick = btnMonthOfSelDateClick
    end
    object CheckBox1: TCheckBox
      AnchorSideLeft.Control = btnMonthOfSelDate
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Panel1
      Left = 456
      Height = 19
      Top = 6
      Width = 102
      BorderSpacing.Left = 20
      BorderSpacing.Top = 6
      Caption = 'Show weekends'
      Checked = True
      State = cbChecked
      TabOrder = 3
      OnChange = CheckBox1Change
    end
    object CheckGroup1: TCheckGroup
      AnchorSideTop.Control = Panel1
      AnchorSideBottom.Control = Panel1
      AnchorSideBottom.Side = asrBottom
      Left = 581
      Height = 54
      Top = 6
      Width = 241
      Anchors = [akTop, akLeft, akBottom]
      AutoFill = True
      AutoSize = True
      BorderSpacing.Around = 6
      Caption = 'Show headers'
      ChildSizing.LeftRightSpacing = 6
      ChildSizing.TopBottomSpacing = 6
      ChildSizing.HorizontalSpacing = 12
      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
      ChildSizing.EnlargeVertical = crsHomogenousChildResize
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 4
      ClientHeight = 34
      ClientWidth = 237
      Columns = 4
      Items.Strings = (
        'Month'
        'Week'
        'Day'
        'Hours'
      )
      TabOrder = 4
      OnItemClick = CheckGroup1ItemClick
      Data = {
        0400000002020202
      }
    end
    object CheckBox2: TCheckBox
      AnchorSideLeft.Control = CheckBox1
      AnchorSideTop.Control = CheckBox1
      AnchorSideTop.Side = asrBottom
      Left = 456
      Height = 19
      Top = 31
      Width = 32
      BorderSpacing.Top = 6
      Caption = '3D'
      Checked = True
      State = cbChecked
      TabOrder = 5
      OnChange = CheckBox2Change
    end
    object Button4: TButton
      AnchorSideLeft.Control = Panel1
      AnchorSideTop.Control = btnAllEvents
      AnchorSideTop.Side = asrBottom
      Left = 6
      Height = 25
      Top = 37
      Width = 129
      AutoSize = True
      BorderSpacing.Around = 6
      Caption = 'Edit Print Formats...'
      TabOrder = 6
      OnClick = Button4Click
    end
    object Button5: TButton
      AnchorSideLeft.Control = Button4
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = btnAllEvents
      AnchorSideTop.Side = asrBottom
      Left = 141
      Height = 25
      Top = 37
      Width = 104
      AutoSize = True
      BorderSpacing.Around = 6
      Caption = 'Print Preview...'
      TabOrder = 7
      OnClick = Button5Click
    end
    object Button6: TButton
      AnchorSideLeft.Control = Button5
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = btnAllEvents
      AnchorSideTop.Side = asrBottom
      Left = 251
      Height = 25
      Top = 37
      Width = 51
      AutoSize = True
      BorderSpacing.Around = 6
      Caption = 'Print'
      TabOrder = 8
      OnClick = Button6Click
    end
    object VpPrintFormatComboBox1: TVpPrintFormatComboBox
      AnchorSideLeft.Control = Button6
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Button6
      AnchorSideTop.Side = asrCenter
      Left = 308
      Height = 23
      Top = 38
      Width = 126
      ControlLink = VpControlLink1
      Borderspacing.Around = 6
      ItemHeight = 15
      Sorted = True
      TabOrder = 9
    end
  end
  object Panel2: TPanel
    Left = 0
    Height = 240
    Top = 0
    Width = 865
    Align = alTop
    Caption = 'Panel2'
    ClientHeight = 240
    ClientWidth = 865
    TabOrder = 2
    object VpMonthView1: TVpMonthView
      Left = 486
      Height = 238
      Top = 1
      Width = 378
      PopupMenu = VpMonthView1.default
      DataStore = VpIniDatastore1
      ControlLink = VpControlLink1
      Align = alRight
      TabOrder = 0
      TodayAttributes.BorderPen.Color = clRed
      TodayAttributes.BorderPen.Width = 3
    end
    object VpDayView1: TVpDayView
      Left = 1
      Height = 238
      Top = 1
      Width = 480
      PopupMenu = VpDayView1.default
      DataStore = VpIniDatastore1
      ControlLink = VpControlLink1
      Align = alClient
      TabOrder = 1
      TimeSlotColors.Active = clWhite
      TimeSlotColors.ActiveRange.RangeBegin = h_00
      TimeSlotColors.ActiveRange.RangeEnd = h_00
      HeadAttributes.Font.Height = -13
      RowHeadAttributes.HourFont.Height = -24
      RowHeadAttributes.MinuteFont.Height = -12
      NumDays = 2
    end
    object Splitter2: TSplitter
      Left = 481
      Height = 238
      Top = 1
      Width = 5
      Align = alRight
      ResizeAnchor = akRight
    end
  end
  object VpControlLink1: TVpControlLink
    DataStore = VpIniDatastore1
    Printer.DayStart = h_08
    Printer.DayEnd = h_05
    Printer.Granularity = gr60Min
    Printer.MarginUnits = imAbsolutePixel
    Printer.PrintFormats = <    
      item
        Version = 'v1.8.0'
        DayInc = 0
        DayIncUnits = duDay
        Elements = <        
          item
            Version = 'v1.8.0'
            DayOffset = 0
            DayOffsetUnits = duDay
            ElementName = 'GanttView'
            Height = 100
            ItemType = itGanttView
            Left = 0
            Shape.Shape = ustRectangle
            Top = 0
            Width = 100
          end>
        FormatName = 'Gantt Portrait 0°'
      end    
      item
        Version = 'v1.8.0'
        DayInc = 0
        DayIncUnits = duDay
        Elements = <        
          item
            Version = 'v1.8.0'
            DayOffset = 0
            DayOffsetUnits = duDay
            ElementName = 'GanttView rotated 270°'
            Height = 100
            ItemType = itGanttView
            Left = 0
            Rotation = ra270
            Shape.Shape = ustRectangle
            Top = 0
            Width = 100
          end>
        FormatName = 'Gantt Landscape 270°'
      end    
      item
        Version = 'v1.8.0'
        DayInc = 0
        DayIncUnits = duDay
        Elements = <        
          item
            Version = 'v1.8.0'
            DayOffset = 0
            DayOffsetUnits = duDay
            ElementName = 'GanttView rotated 90°'
            Height = 100
            ItemType = itGanttView
            Left = 0
            Rotation = ra90
            Shape.Shape = ustRectangle
            Top = 0
            Width = 100
          end>
        FormatName = 'Gantt Landscape 90°'
      end    
      item
        Version = 'v1.8.0'
        DayInc = 10
        DayIncUnits = duDay
        Elements = <        
          item
            Version = 'v1.8.0'
            DayOffset = 0
            DayOffsetUnits = duDay
            ElementName = 'GantView'
            Height = 100
            ItemType = itGanttView
            Left = 0
            Shape.Shape = ustRectangle
            Top = 0
            Width = 100
          end>
        FormatName = 'Gantt inc 10d'
      end>
    Left = 288
    Top = 296
  end
  object VpIniDatastore1: TVpIniDatastore
    CategoryColorMap.Category0.BackgroundColor = clSkyBlue
    CategoryColorMap.Category0.Description = 'Category 0'
    CategoryColorMap.Category0.UseForAllDayEvents = True
    CategoryColorMap.Category1.BackgroundColor = 8421631
    CategoryColorMap.Category1.Description = 'Category 1'
    CategoryColorMap.Category1.UseForAllDayEvents = True
    CategoryColorMap.Category2.BackgroundColor = clYellow
    CategoryColorMap.Category2.Color = clOlive
    CategoryColorMap.Category2.Description = 'Category 2'
    CategoryColorMap.Category2.UseForAllDayEvents = True
    CategoryColorMap.Category3.BackgroundColor = clLime
    CategoryColorMap.Category3.Color = clGreen
    CategoryColorMap.Category3.Description = 'Category 3'
    CategoryColorMap.Category3.UseForAllDayEvents = True
    CategoryColorMap.Category4.Description = 'Category 4'
    CategoryColorMap.Category4.UseForAllDayEvents = True
    CategoryColorMap.Category5.Description = 'Category 5'
    CategoryColorMap.Category5.UseForAllDayEvents = True
    CategoryColorMap.Category6.Description = 'Category 6'
    CategoryColorMap.Category7.Description = 'Category 7'
    CategoryColorMap.Category7.UseForAllDayEvents = True
    CategoryColorMap.Category8.Description = 'Category 8'
    CategoryColorMap.Category8.UseForAllDayEvents = True
    CategoryColorMap.Category9.Description = 'Category 9'
    CategoryColorMap.Category9.UseForAllDayEvents = True
    HiddenCategories.BackgroundColor = clSilver
    HiddenCategories.Color = clGray
    OnDateChanged = VpIniDatastore1DateChanged
    AutoConnect = True
    FileName = 'data.ini'
    Left = 400
    Top = 296
  end
  object VpPrintFormatEditDialog1: TVpPrintFormatEditDialog
    Version = 'v1.8.0'
    DataStore = VpIniDatastore1
    ControlLink = VpControlLink1
    Options = []
    Placement.Position = mpCenter
    Placement.Top = 10
    Placement.Left = 10
    Placement.Height = 480
    Placement.Width = 640
    Left = 128
    Top = 56
  end
  object VpPrintPreviewDialog1: TVpPrintPreviewDialog
    Version = 'v1.8.0'
    DataStore = VpIniDatastore1
    ControlLink = VpControlLink1
    EndDate = 44838.5281092593
    MarginUnits = imAbsolutePixel
    StartDate = 44831.5281092593
    Options = []
    Placement.Position = mpCenter
    Placement.Top = 10
    Placement.Left = 10
    Placement.Height = 480
    Placement.Width = 720
    Left = 128
    Top = 184
  end
  object PrintDialog1: TPrintDialog
    Left = 128
    Top = 120
  end
end