pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

TvPlanIt: Extend GanttView by hour resolution

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8937 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-10-08 22:41:21 +00:00
parent d826f29a29
commit a41f9dbdcb
5 changed files with 561 additions and 152 deletions
Download Patch File Download Diff File Expand all files Collapse all files

73
components/tvplanit/examples/gantt/main.lfm
View File

@ -2,18 +2,18 @@ object MainForm: TMainForm
Left = 319
Height = 600
Top = 125
Width = 800
Width = 865
Caption = 'MainForm'
ClientHeight = 600
ClientWidth = 800
ClientWidth = 865
LCLVersion = '3.99.0.0'
OnCreate = FormCreate
LCLVersion = '2.3.0.0'
object Splitter1: TSplitter
Cursor = crVSplit
Left = 0
Height = 5
Top = 240
Width = 800
Width = 865
Align = alTop
ResizeAnchor = akTop
end
@ -21,11 +21,11 @@ object MainForm: TMainForm
Left = 0
Height = 66
Top = 534
Width = 800
Width = 865
Align = alBottom
BevelOuter = bvNone
ClientHeight = 66
ClientWidth = 800
ClientWidth = 865
TabOrder = 1
object Button1: TButton
AnchorSideLeft.Control = Panel1
@ -37,8 +37,8 @@ object MainForm: TMainForm
AutoSize = True
BorderSpacing.Around = 6
Caption = 'All events'
OnClick = Button1Click
TabOrder = 0
OnClick = Button1Click
end
object Button2: TButton
AnchorSideLeft.Control = Button1
@ -51,8 +51,8 @@ object MainForm: TMainForm
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Week of selected date only'
OnClick = Button2Click
TabOrder = 1
OnClick = Button2Click
end
object Button3: TButton
AnchorSideLeft.Control = Button2
@ -65,8 +65,8 @@ object MainForm: TMainForm
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Month of selected date only'
OnClick = Button3Click
TabOrder = 2
OnClick = Button3Click
end
object CheckBox1: TCheckBox
AnchorSideLeft.Control = Button3
@ -80,9 +80,9 @@ object MainForm: TMainForm
BorderSpacing.Top = 6
Caption = 'Show weekends'
Checked = True
OnChange = CheckBox1Change
State = cbChecked
TabOrder = 3
OnChange = CheckBox1Change
end
object CheckGroup1: TCheckGroup
AnchorSideTop.Control = Panel1
@ -91,31 +91,34 @@ object MainForm: TMainForm
Left = 581
Height = 54
Top = 6
Width = 185
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 = 3
ChildSizing.ControlsPerLine = 4
ClientHeight = 34
ClientWidth = 181
Columns = 3
ClientWidth = 237
Columns = 4
Items.Strings = (
'Month'
'Week'
'Day'
'Hours'
)
OnItemClick = CheckGroup1ItemClick
TabOrder = 4
OnItemClick = CheckGroup1ItemClick
Data = {
03000000020202
0400000002020202
}
end
object CheckBox2: TCheckBox
@ -129,9 +132,9 @@ object MainForm: TMainForm
BorderSpacing.Top = 6
Caption = '3D'
Checked = True
OnChange = CheckBox2Change
State = cbChecked
TabOrder = 5
OnChange = CheckBox2Change
end
object Button4: TButton
AnchorSideLeft.Control = Panel1
@ -144,8 +147,8 @@ object MainForm: TMainForm
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Edit Print Formats...'
OnClick = Button4Click
TabOrder = 6
OnClick = Button4Click
end
object Button5: TButton
AnchorSideLeft.Control = Button4
@ -159,8 +162,8 @@ object MainForm: TMainForm
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Print Preview...'
OnClick = Button5Click
TabOrder = 7
OnClick = Button5Click
end
object Button6: TButton
AnchorSideLeft.Control = Button5
@ -174,8 +177,8 @@ object MainForm: TMainForm
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Print'
OnClick = Button6Click
TabOrder = 8
OnClick = Button6Click
end
object VpPrintFormatComboBox1: TVpPrintFormatComboBox
AnchorSideLeft.Control = Button6
@ -197,14 +200,14 @@ object MainForm: TMainForm
Left = 0
Height = 240
Top = 0
Width = 800
Width = 865
Align = alTop
Caption = 'Panel2'
ClientHeight = 240
ClientWidth = 800
ClientWidth = 865
TabOrder = 2
object VpMonthView1: TVpMonthView
Left = 421
Left = 486
Height = 238
Top = 1
Width = 378
@ -220,7 +223,7 @@ object MainForm: TMainForm
Left = 1
Height = 238
Top = 1
Width = 415
Width = 480
PopupMenu = VpDayView1.default
DataStore = VpIniDatastore1
ControlLink = VpControlLink1
@ -235,7 +238,7 @@ object MainForm: TMainForm
NumDays = 2
end
object Splitter2: TSplitter
Left = 416
Left = 481
Height = 238
Top = 1
Width = 5
@ -251,12 +254,12 @@ object MainForm: TMainForm
Printer.MarginUnits = imAbsolutePixel
Printer.PrintFormats = <
item
Version = 'v1.7.0'
Version = 'v1.8.0'
DayInc = 0
DayIncUnits = duDay
Elements = <
item
Version = 'v1.7.0'
Version = 'v1.8.0'
DayOffset = 0
DayOffsetUnits = duDay
ElementName = 'GanttView'
@ -270,12 +273,12 @@ object MainForm: TMainForm
FormatName = 'Gantt Portrait 0°'
end
item
Version = 'v1.7.0'
Version = 'v1.8.0'
DayInc = 0
DayIncUnits = duDay
Elements = <
item
Version = 'v1.7.0'
Version = 'v1.8.0'
DayOffset = 0
DayOffsetUnits = duDay
ElementName = 'GanttView rotated 270°'
@ -290,12 +293,12 @@ object MainForm: TMainForm
FormatName = 'Gantt Landscape 270°'
end
item
Version = 'v1.7.0'
Version = 'v1.8.0'
DayInc = 0
DayIncUnits = duDay
Elements = <
item
Version = 'v1.7.0'
Version = 'v1.8.0'
DayOffset = 0
DayOffsetUnits = duDay
ElementName = 'GanttView rotated 90°'
@ -310,12 +313,12 @@ object MainForm: TMainForm
FormatName = 'Gantt Landscape 90°'
end
item
Version = 'v1.7.0'
Version = 'v1.8.0'
DayInc = 10
DayIncUnits = duDay
Elements = <
item
Version = 'v1.7.0'
Version = 'v1.8.0'
DayOffset = 0
DayOffsetUnits = duDay
ElementName = 'GantView'
@ -366,7 +369,7 @@ object MainForm: TMainForm
Top = 296
end
object VpPrintFormatEditDialog1: TVpPrintFormatEditDialog
Version = 'v1.7.0'
Version = 'v1.8.0'
DataStore = VpIniDatastore1
ControlLink = VpControlLink1
Options = []
@ -379,7 +382,7 @@ object MainForm: TMainForm
Top = 56
end
object VpPrintPreviewDialog1: TVpPrintPreviewDialog
Version = 'v1.7.0'
Version = 'v1.8.0'
DataStore = VpIniDatastore1
ControlLink = VpControlLink1
EndDate = 44838.5281092593

2
components/tvplanit/examples/gantt/main.pas
View File

@ -77,6 +77,8 @@ begin
FGanttView.Datastore := VpIniDatastore1;
FGanttView.ControlLink := VpControlLink1;
FGanttView.ColHeaderAttributes.Visible := [gchMonth, gchWeek, gchDay];
// FGanttView.StartHour := h_00;
// FGanttView.EndHour := h_23;
Caption := FGanttView.Datastore.ClassName;
CheckGroup1.Checked[0] := gchMonth in FGanttView.ColHeaderAttributes.Visible;