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

tvplanit: add TVpResource.OverlayResources as alternate method to add overlay groups. Update FullDemo.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8168 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-12-04 19:01:07 +00:00
parent 2757d26671
commit bb91c39431
8 changed files with 219 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

89
components/tvplanit/examples/fulldemo/demomain.lfm
View File

@ -9,7 +9,7 @@ object MainForm: TMainForm
Menu = MainMenu1
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
LCLVersion = '2.1.0.0'
LCLVersion = '2.3.0.0'
object Panel1: TPanel
Left = 125
Height = 576
@ -49,7 +49,6 @@ object MainForm: TMainForm
Font.Color = clWhite
Font.Height = -24
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
end
@ -58,7 +57,7 @@ object MainForm: TMainForm
Height = 528
Top = 48
Width = 834
PageIndex = 0
PageIndex = 3
Align = alClient
TabOrder = 1
TabStop = True
@ -224,7 +223,6 @@ object MainForm: TMainForm
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
Caption = 'Visible days'
ParentColor = False
end
object DaysTrackBar: TTrackBar
AnchorSideLeft.Control = LblVisibleDays
@ -286,7 +284,6 @@ object MainForm: TMainForm
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
Caption = 'Granularity'
ParentColor = False
end
end
end
@ -349,7 +346,7 @@ object MainForm: TMainForm
Left = 4
Height = 19
Top = 4
Width = 63
Width = 61
BorderSpacing.Left = 4
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
@ -362,10 +359,10 @@ object MainForm: TMainForm
object RbHideCompletedTasks: TRadioButton
AnchorSideLeft.Control = RbAllTasks
AnchorSideLeft.Side = asrBottom
Left = 99
Left = 97
Height = 19
Top = 4
Width = 134
Width = 132
BorderSpacing.Left = 32
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
@ -442,9 +439,10 @@ object MainForm: TMainForm
object BtnDeleteRes: TButton
AnchorSideLeft.Control = BtnEditRes
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = BtnNewRes
Left = 128
Height = 25
Top = 64
Top = 82
Width = 59
AutoSize = True
BorderSpacing.Left = 8
@ -455,9 +453,10 @@ object MainForm: TMainForm
object BtnEditRes: TButton
AnchorSideLeft.Control = BtnNewRes
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = BtnNewRes
Left = 74
Height = 25
Top = 64
Top = 82
Width = 46
AutoSize = True
BorderSpacing.Left = 8
@ -466,21 +465,68 @@ object MainForm: TMainForm
TabOrder = 1
end
object BtnNewRes: TButton
AnchorSideLeft.Control = VpResourceCombo
AnchorSideTop.Control = VpResourceCombo
AnchorSideTop.Side = asrBottom
Left = 16
Height = 25
Top = 64
Top = 82
Width = 50
AutoSize = True
BorderSpacing.Top = 16
Caption = 'New'
OnClick = BtnNewResClick
TabOrder = 2
end
object VpResourceCombo1: TVpResourceCombo
object VpResourceCombo: TVpResourceCombo
AnchorSideLeft.Control = Resources
AnchorSideTop.Control = lblResources
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 16
Height = 23
Top = 24
Top = 43
Width = 323
Anchors = [akTop, akLeft, akRight]
Style = csDropDownList
Borderspacing.Left = 16
Borderspacing.Top = 4
end
object lbOtherResources: TCheckListBox
AnchorSideLeft.Control = BtnNewRes
AnchorSideTop.Control = lblOtherResources
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = VpResourceCombo
Left = 16
Height = 186
Top = 150
Width = 323
BorderSpacing.Top = 4
ItemHeight = 0
OnClickCheck = lbOtherResourcesClickCheck
TabOrder = 4
end
object lblOtherResources: TLabel
AnchorSideLeft.Control = VpResourceCombo
AnchorSideTop.Control = BtnNewRes
AnchorSideTop.Side = asrBottom
Left = 16
Height = 15
Top = 131
Width = 299
BorderSpacing.Top = 24
Caption = 'Check the resource to be overlaid to the current resource'
end
object lblResources: TLabel
AnchorSideLeft.Control = Resources
AnchorSideTop.Control = Resources
Left = 16
Height = 15
Top = 24
Width = 265
BorderSpacing.Left = 16
BorderSpacing.Top = 24
Caption = 'Resources (the selected resource will be displayed)'
end
end
object Settings: TPage
@ -495,7 +541,6 @@ object MainForm: TMainForm
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'Language'
ParentColor = False
end
object CbLanguages: TComboBox
AnchorSideTop.Control = Settings
@ -535,7 +580,6 @@ object MainForm: TMainForm
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'Drawing style:'
ParentColor = False
end
object CbAddressBuilder: TComboBox
AnchorSideLeft.Control = CbLanguages
@ -570,7 +614,6 @@ object MainForm: TMainForm
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'Address builder'
ParentColor = False
end
object CbAllowInplaceEditing: TCheckBox
AnchorSideLeft.Control = CbLanguages
@ -580,7 +623,7 @@ object MainForm: TMainForm
Left = 316
Height = 19
Top = 26
Width = 131
Width = 129
BorderSpacing.Left = 32
Caption = 'Allow inplace editing'
Checked = True
@ -613,7 +656,6 @@ object MainForm: TMainForm
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'First day of week'
ParentColor = False
end
object CbTimeFormat: TComboBox
AnchorSideLeft.Control = CbLanguages
@ -633,14 +675,13 @@ object MainForm: TMainForm
AnchorSideTop.Control = CbTimeFormat
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = CbTimeFormat
Left = 38
Left = 39
Height = 15
Top = 63
Width = 66
Width = 65
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'Time format'
ParentColor = False
end
object CbAllowDragAndDrop: TCheckBox
AnchorSideLeft.Control = CbAllowInplaceEditing
@ -649,7 +690,7 @@ object MainForm: TMainForm
Left = 316
Height = 19
Top = 61
Width = 179
Width = 177
Caption = 'Allow drag and drop of events'
OnChange = CbAllowDragAndDropChange
TabOrder = 6
@ -661,7 +702,7 @@ object MainForm: TMainForm
Left = 316
Height = 19
Top = 100
Width = 161
Width = 158
Caption = 'Transparent drag and drop'
OnChange = CbDragDropTransparentChange
TabOrder = 7
@ -673,7 +714,7 @@ object MainForm: TMainForm
Left = 316
Height = 19
Top = 139
Width = 176
Width = 174
Caption = 'Show event and contact hints'
Checked = True
OnChange = CbShowEventHintsChange