lazarus-ccr/components/tvplanit/examples/printing/dayview/dvmain.lfm

object Form1: TForm1
  Left = 327
  Height = 523
  Top = 127
  Width = 584
  Caption = 'Form1'
  ClientHeight = 523
  ClientWidth = 584
  OnCreate = FormCreate
  object VpDayView1: TVpDayView
    Left = 0
    Height = 485
    Top = 38
    Width = 584
    PopupMenu = VpDayView1.default
    DataStore = VpIniDatastore1
    ControlLink = VpControlLink1
    Font.Height = -12
    ParentFont = False
    Align = alClient
    TabOrder = 0
    AllDayEventAttributes.Font.Height = -12
    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
  end
  object Panel1: TPanel
    Left = 6
    Height = 26
    Top = 6
    Width = 572
    Align = alTop
    AutoSize = True
    BorderSpacing.Around = 6
    BevelOuter = bvNone
    ClientHeight = 26
    ClientWidth = 572
    TabOrder = 1
    object VpPrintFormatComboBox1: TVpPrintFormatComboBox
      AnchorSideLeft.Control = Panel1
      AnchorSideTop.Control = Panel1
      AnchorSideTop.Side = asrCenter
      Left = 0
      Height = 23
      Top = 2
      Width = 248
      ControlLink = VpControlLink1
      ItemHeight = 15
      Sorted = True
      TabOrder = 0
    end
    object btnPrintPreview: TButton
      AnchorSideLeft.Control = VpPrintFormatComboBox1
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Panel1
      AnchorSideTop.Side = asrCenter
      Left = 256
      Height = 25
      Top = 1
      Width = 76
      AutoSize = True
      BorderSpacing.Left = 8
      Caption = 'Preview...'
      OnClick = btnPrintPreviewClick
      TabOrder = 1
    end
    object btnPrint: TButton
      AnchorSideLeft.Control = btnPrintPreview
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Panel1
      AnchorSideTop.Side = asrCenter
      Left = 340
      Height = 25
      Top = 1
      Width = 60
      AutoSize = True
      BorderSpacing.Left = 8
      Caption = 'Print...'
      OnClick = btnPrintClick
      TabOrder = 2
    end
    object SpinEdit1: TSpinEdit
      AnchorSideLeft.Control = Label1
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Panel1
      AnchorSideTop.Side = asrCenter
      Left = 453
      Height = 23
      Top = 2
      Width = 51
      Alignment = taRightJustify
      BorderSpacing.Left = 4
      MaxValue = 7
      MinValue = 1
      OnChange = SpinEdit1Change
      TabOrder = 3
      Value = 1
    end
    object Label1: TLabel
      AnchorSideLeft.Control = btnPrint
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Panel1
      AnchorSideTop.Side = asrCenter
      Left = 424
      Height = 15
      Top = 6
      Width = 25
      BorderSpacing.Left = 24
      Caption = 'Days'
    end
  end
  object VpControlLink1: TVpControlLink
    DataStore = VpIniDatastore1
    Printer.BottomMargin = 1
    Printer.DayStart = h_08
    Printer.DayEnd = h_18
    Printer.Granularity = gr30Min
    Printer.LeftMargin = 1
    Printer.MarginUnits = imCentimeters
    Printer.PrintFormats = <    
      item
        Version = 'v1.0.7'
        DayInc = 1
        DayIncUnits = duDay
        Description = 'DayView with 1 day'
        Elements = <        
          item
            Version = 'v1.0.7'
            DayOffset = 0
            DayOffsetUnits = duDay
            ElementName = 'DayView'
            Height = 100
            Left = 0
            Shape.Shape = ustRectangle
            Top = 0
            Width = 100
          end>
        FormatName = 'One day'
      end    
      item
        Version = 'v1.0.7'
        DayInc = 2
        DayIncUnits = duDay
        Description = '2 Day views'
        Elements = <        
          item
            Version = 'v1.0.7'
            DayOffset = 1
            DayOffsetUnits = duDay
            ElementName = 'Top DayView'
            Height = 48
            Left = 2
            Rotation = ra270
            Shape.Shape = ustRectangle
            Top = 2
            Width = 96
          end        
          item
            Version = 'v1.0.7'
            DayOffset = 0
            DayOffsetUnits = duDay
            ElementName = 'Bottom DayView'
            Height = 48
            Left = 2
            Rotation = ra270
            Shape.Shape = ustRectangle
            Top = 51
            Width = 98
          end>
        FormatName = 'Two days'
      end>
    Printer.RightMargin = 1
    Printer.TopMargin = 1
    Left = 187
    Top = 207
  end
  object VpIniDatastore1: TVpIniDatastore
    CategoryColorMap.Category0.BackgroundColor = clSkyBlue
    CategoryColorMap.Category0.Description = 'Category 0'
    CategoryColorMap.Category1.BackgroundColor = clMoneyGreen
    CategoryColorMap.Category1.Color = clGreen
    CategoryColorMap.Category1.Description = 'Category 1'
    CategoryColorMap.Category2.BackgroundColor = 12171775
    CategoryColorMap.Category2.Color = clRed
    CategoryColorMap.Category2.Description = 'Category 2'
    CategoryColorMap.Category3.BackgroundColor = clYellow
    CategoryColorMap.Category3.Color = clOlive
    CategoryColorMap.Category3.Description = 'Category 3'
    CategoryColorMap.Category4.Description = 'Category 4'
    CategoryColorMap.Category5.Description = 'Category 5'
    CategoryColorMap.Category6.Description = 'Category 6'
    CategoryColorMap.Category7.Description = 'Category 7'
    CategoryColorMap.Category8.Description = 'Category 8'
    CategoryColorMap.Category9.Description = 'Category 9'
    HiddenCategories.BackgroundColor = clSilver
    HiddenCategories.Color = clGray
    AutoConnect = True
    FileName = 'data.ini'
    Left = 184
    Top = 272
  end
  object PrintDialog1: TPrintDialog
    Left = 304
    Top = 99
  end
  object VpPrintPreviewDialog1: TVpPrintPreviewDialog
    Version = 'v1.0.7'
    DataStore = VpIniDatastore1
    ControlLink = VpControlLink1
    EndDate = 44844.8788724421
    MarginUnits = imAbsolutePixel
    StartDate = 44837.8788724421
    Options = []
    Placement.Position = mpCenter
    Placement.Top = 10
    Placement.Left = 10
    Placement.Height = 480
    Placement.Width = 720
    Left = 184
    Top = 96
  end
end