lazarus-ccr/components/tvplanit/examples/printing/weekview/wvmain.lfm

object Form1: TForm1
  Left = 327
  Height = 523
  Top = 127
  Width = 584
  Caption = 'Form1'
  ClientHeight = 523
  ClientWidth = 584
  OnCreate = FormCreate
  LCLVersion = '2.3.0.0'
  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 = 0
    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
  end
  object VpWeekView1: TVpWeekView
    Left = 0
    Height = 485
    Top = 38
    Width = 584
    PopupMenu = VpWeekView1.default
    DataStore = VpIniDatastore1
    ControlLink = VpControlLink1
    Font.Height = -12
    ParentFont = False
    AllDayEventAttributes.Font.Height = -12
    DayHeadAttributes.DateFormat = 'ddddd'
    DayHeadAttributes.Font.Height = -13
    EventFont.Height = -12
    HeadAttributes.Font.Height = -12
    Align = alClient
    TabOrder = 1
  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 = duWeek
        Elements = <        
          item
            Version = 'v1.0.7'
            DayOffset = 0
            DayOffsetUnits = duDay
            ElementName = 'WeekView'
            Height = 100
            ItemType = itWeekView
            Left = 0
            Shape.Shape = ustRectangle
            Top = 0
            Width = 100
          end>
        FormatName = 'WeekView Portrait'
      end    
      item
        Version = 'v1.0.7'
        DayInc = 1
        DayIncUnits = duWeek
        Elements = <        
          item
            Version = 'v1.0.7'
            DayOffset = 0
            DayOffsetUnits = duDay
            ElementName = 'WeekView'
            Height = 100
            ItemType = itWeekView
            Left = 0
            Rotation = ra90
            Shape.Shape = ustRectangle
            Top = 0
            Width = 100
          end>
        FormatName = 'WeekView Landscape 90°'
      end    
      item
        Version = 'v1.0.7'
        DayInc = 1
        DayIncUnits = duWeek
        Elements = <        
          item
            Version = 'v1.0.7'
            DayOffset = 0
            DayOffsetUnits = duDay
            ElementName = 'WeekView'
            Height = 100
            ItemType = itWeekView
            Left = 0
            Rotation = ra270
            Shape.Shape = ustRectangle
            Top = 0
            Width = 100
          end>
        FormatName = 'WeekView Landscape 270°'
      end    
      item
        Version = 'v1.0.7'
        DayInc = 1
        DayIncUnits = duWeek
        Elements = <        
          item
            Version = 'v1.0.7'
            DayOffset = 0
            DayOffsetUnits = duDay
            ElementName = 'Weekview'
            Height = 100
            ItemType = itWeekView
            Left = 0
            Rotation = ra180
            Shape.Shape = ustRectangle
            Top = 0
            Width = 100
          end>
        FormatName = 'WeekView Portrait Upside-down'
      end    
      item
        Version = 'v1.0.7'
        DayInc = 0
        DayIncUnits = duDay
        Elements = <        
          item
            Version = 'v1.0.7'
            DayOffset = 0
            DayOffsetUnits = duDay
            ElementName = 'WeekView'
            Height = 100
            ItemType = itWeekView
            Left = 0
            Shape.Shape = ustRectangle
            Top = 0
            Width = 100
          end>
        FormatName = '_weekview test'
      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