tvplanit: Add GanttView demo. Set version number to 1.8.0 for next OPM release.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8681 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/tvplanit/examples/gantt/main.lfm

@@ -0,0 +1,357 @@
+object MainForm: TMainForm
+  Left = 319
+  Height = 600
+  Top = 125
+  Width = 800
+  Caption = 'MainForm'
+  ClientHeight = 600
+  ClientWidth = 800
+  OnCreate = FormCreate
+  LCLVersion = '2.3.0.0'
+  object Splitter1: TSplitter
+    Cursor = crVSplit
+    Left = 0
+    Height = 5
+    Top = 306
+    Width = 800
+    Align = alTop
+    ResizeAnchor = akTop
+  end
+  object Panel1: TPanel
+    Left = 0
+    Height = 66
+    Top = 0
+    Width = 800
+    Align = alTop
+    BevelOuter = bvNone
+    ClientHeight = 66
+    ClientWidth = 800
+    TabOrder = 1
+    object Button1: TButton
+      Left = 10
+      Height = 25
+      Top = 10
+      Width = 77
+      AutoSize = True
+      Caption = 'All events'
+      OnClick = Button1Click
+      TabOrder = 0
+    end
+    object Button2: TButton
+      Left = 95
+      Height = 25
+      Top = 10
+      Width = 167
+      AutoSize = True
+      Caption = 'Week of selected date only'
+      OnClick = Button2Click
+      TabOrder = 1
+    end
+    object Button3: TButton
+      Left = 272
+      Height = 25
+      Top = 8
+      Width = 174
+      AutoSize = True
+      Caption = 'Month of selected date only'
+      OnClick = Button3Click
+      TabOrder = 2
+    end
+    object CheckBox1: TCheckBox
+      Left = 456
+      Height = 19
+      Top = 8
+      Width = 102
+      Caption = 'Show weekends'
+      Checked = True
+      OnChange = CheckBox1Change
+      State = cbChecked
+      TabOrder = 3
+    end
+    object CheckGroup1: TCheckGroup
+      Left = 581
+      Height = 50
+      Top = 10
+      Width = 185
+      AutoFill = True
+      Caption = 'Show headers'
+      ChildSizing.LeftRightSpacing = 6
+      ChildSizing.TopBottomSpacing = 6
+      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
+      ChildSizing.EnlargeVertical = crsHomogenousChildResize
+      ChildSizing.ShrinkHorizontal = crsScaleChilds
+      ChildSizing.ShrinkVertical = crsScaleChilds
+      ChildSizing.Layout = cclLeftToRightThenTopToBottom
+      ChildSizing.ControlsPerLine = 3
+      ClientHeight = 30
+      ClientWidth = 181
+      Columns = 3
+      Items.Strings = (
+        'Month'
+        'Week'
+        'Day'
+      )
+      OnItemClick = CheckGroup1ItemClick
+      TabOrder = 4
+      Data = {
+        03000000020202
+      }
+    end
+    object CheckBox2: TCheckBox
+      Left = 456
+      Height = 19
+      Top = 24
+      Width = 32
+      Caption = '3D'
+      Checked = True
+      OnChange = CheckBox2Change
+      State = cbChecked
+      TabOrder = 5
+    end
+    object Button4: TButton
+      Left = 8
+      Height = 25
+      Top = 37
+      Width = 129
+      AutoSize = True
+      Caption = 'Edit Print Formats...'
+      OnClick = Button4Click
+      TabOrder = 6
+    end
+    object Button5: TButton
+      Left = 144
+      Height = 25
+      Top = 37
+      Width = 104
+      AutoSize = True
+      Caption = 'Print Preview...'
+      OnClick = Button5Click
+      TabOrder = 7
+    end
+    object Button6: TButton
+      Left = 256
+      Height = 25
+      Top = 37
+      Width = 51
+      AutoSize = True
+      Caption = 'Print'
+      OnClick = Button6Click
+      TabOrder = 8
+    end
+    object VpPrintFormatComboBox1: TVpPrintFormatComboBox
+      Left = 320
+      Height = 23
+      Top = 37
+      Width = 126
+      ControlLink = VpControlLink1
+      ItemHeight = 15
+      Sorted = True
+      TabOrder = 9
+    end
+  end
+  object Panel2: TPanel
+    Left = 0
+    Height = 240
+    Top = 66
+    Width = 800
+    Align = alTop
+    Caption = 'Panel2'
+    ClientHeight = 240
+    ClientWidth = 800
+    TabOrder = 2
+    object VpMonthView1: TVpMonthView
+      Left = 421
+      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 = 415
+      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 = 416
+      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.7.0'
+        DayInc = 0
+        DayIncUnits = duDay
+        Elements = <        
+          item
+            Version = 'v1.7.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.7.0'
+        DayInc = 0
+        DayIncUnits = duDay
+        Elements = <        
+          item
+            Version = 'v1.7.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.7.0'
+        DayInc = 0
+        DayIncUnits = duDay
+        Elements = <        
+          item
+            Version = 'v1.7.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.7.0'
+        DayInc = 10
+        DayIncUnits = duDay
+        Elements = <        
+          item
+            Version = 'v1.7.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 = 79
+    Top = 208
+  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 = 79
+    Top = 144
+  end
+  object VpPrintFormatEditDialog1: TVpPrintFormatEditDialog
+    Version = 'v1.7.0'
+    DataStore = VpIniDatastore1
+    ControlLink = VpControlLink1
+    Options = []
+    Placement.Position = mpCenter
+    Placement.Top = 10
+    Placement.Left = 10
+    Placement.Height = 480
+    Placement.Width = 640
+    Left = 79
+    Top = 88
+  end
+  object VpPrintPreviewDialog1: TVpPrintPreviewDialog
+    Version = 'v1.7.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 = 223
+    Top = 88
+  end
+  object PrintDialog1: TPrintDialog
+    Left = 223
+    Top = 144
+  end
+end