2023-07-22 10:54:38 +00:00
|
|
|
object Form1: TForm1
|
|
|
|
|
Left = 314
|
|
|
|
|
Height = 394
|
|
|
|
|
Top = 130
|
|
|
|
|
Width = 670
|
|
|
|
|
Caption = 'Form1'
|
|
|
|
|
ClientHeight = 394
|
|
|
|
|
ClientWidth = 670
|
|
|
|
|
OnCreate = FormCreate
|
|
|
|
|
LCLVersion = '3.99.0.0'
|
|
|
|
|
object VpDayView1: TVpDayView
|
|
|
|
|
Left = 132
|
|
|
|
|
Height = 394
|
|
|
|
|
Top = 0
|
|
|
|
|
Width = 538
|
|
|
|
|
PopupMenu = VpDayView1.default
|
|
|
|
|
DataStore = VpIniDatastore1
|
|
|
|
|
ControlLink = VpControlLink1
|
|
|
|
|
Align = alClient
|
|
|
|
|
TabOrder = 0
|
|
|
|
|
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
|
|
|
|
|
IconAttributes.RecurringImageIndex = 3
|
|
|
|
|
NumDays = 2
|
|
|
|
|
WrapStyle = wsNoFlow
|
|
|
|
|
RowHeight = 50
|
|
|
|
|
end
|
|
|
|
|
object Panel1: TPanel
|
|
|
|
|
Left = 8
|
|
|
|
|
Height = 378
|
|
|
|
|
Top = 8
|
|
|
|
|
Width = 116
|
|
|
|
|
Align = alLeft
|
|
|
|
|
AutoSize = True
|
|
|
|
|
BorderSpacing.Around = 8
|
|
|
|
|
BevelOuter = bvNone
|
|
|
|
|
ClientHeight = 378
|
|
|
|
|
ClientWidth = 116
|
|
|
|
|
TabOrder = 1
|
|
|
|
|
object RadioGroup1: TRadioGroup
|
|
|
|
|
AnchorSideLeft.Control = Panel1
|
|
|
|
|
AnchorSideTop.Control = Panel1
|
|
|
|
|
Left = 0
|
|
|
|
|
Height = 77
|
|
|
|
|
Top = 0
|
|
|
|
|
Width = 116
|
|
|
|
|
AutoFill = True
|
|
|
|
|
AutoSize = True
|
|
|
|
|
Caption = 'WrapStyle'
|
|
|
|
|
ChildSizing.LeftRightSpacing = 16
|
|
|
|
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
|
|
|
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
|
|
|
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
|
|
|
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
|
|
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
|
|
|
ChildSizing.ControlsPerLine = 1
|
|
|
|
|
ClientHeight = 57
|
|
|
|
|
ClientWidth = 112
|
|
|
|
|
Items.Strings = (
|
|
|
|
|
'wsNone'
|
|
|
|
|
'wsIconFlow'
|
|
|
|
|
'wsNoFlow'
|
|
|
|
|
)
|
|
|
|
|
OnClick = RadioGroup1Click
|
|
|
|
|
TabOrder = 0
|
|
|
|
|
end
|
|
|
|
|
object seRowHeight: TSpinEdit
|
|
|
|
|
AnchorSideLeft.Control = Panel1
|
|
|
|
|
AnchorSideTop.Control = Label1
|
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
|
AnchorSideRight.Control = RadioGroup1
|
|
|
|
|
AnchorSideRight.Side = asrBottom
|
|
|
|
|
Left = 16
|
|
|
|
|
Height = 23
|
|
|
|
|
Top = 110
|
|
|
|
|
Width = 100
|
|
|
|
|
Alignment = taRightJustify
|
|
|
|
|
Anchors = [akTop, akLeft, akRight]
|
|
|
|
|
BorderSpacing.Left = 16
|
|
|
|
|
BorderSpacing.Top = 2
|
|
|
|
|
OnChange = seRowHeightChange
|
|
|
|
|
TabOrder = 1
|
|
|
|
|
end
|
|
|
|
|
object Label1: TLabel
|
|
|
|
|
AnchorSideLeft.Control = Panel1
|
|
|
|
|
AnchorSideTop.Control = RadioGroup1
|
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
|
Left = 0
|
|
|
|
|
Height = 15
|
|
|
|
|
Top = 93
|
|
|
|
|
Width = 60
|
|
|
|
|
BorderSpacing.Top = 16
|
|
|
|
|
Caption = 'Row height'
|
|
|
|
|
end
|
|
|
|
|
object Label2: TLabel
|
|
|
|
|
AnchorSideLeft.Control = Panel1
|
|
|
|
|
AnchorSideTop.Control = seRowHeight
|
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
|
Left = 0
|
|
|
|
|
Height = 15
|
|
|
|
|
Top = 141
|
|
|
|
|
Width = 48
|
|
|
|
|
BorderSpacing.Top = 8
|
|
|
|
|
Caption = 'Columns'
|
|
|
|
|
end
|
|
|
|
|
object seColumns: TSpinEdit
|
|
|
|
|
AnchorSideLeft.Control = Panel1
|
|
|
|
|
AnchorSideTop.Control = Label2
|
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
|
AnchorSideRight.Control = RadioGroup1
|
|
|
|
|
AnchorSideRight.Side = asrBottom
|
|
|
|
|
Left = 16
|
|
|
|
|
Height = 23
|
|
|
|
|
Top = 158
|
|
|
|
|
Width = 100
|
|
|
|
|
Alignment = taRightJustify
|
|
|
|
|
Anchors = [akTop, akLeft, akRight]
|
|
|
|
|
BorderSpacing.Left = 16
|
|
|
|
|
BorderSpacing.Top = 2
|
|
|
|
|
OnChange = seColumnsChange
|
|
|
|
|
TabOrder = 2
|
|
|
|
|
end
|
|
|
|
|
end
|
|
|
|
|
object VpControlLink1: TVpControlLink
|
|
|
|
|
DataStore = VpIniDatastore1
|
|
|
|
|
Printer.DayStart = h_08
|
|
|
|
|
Printer.DayEnd = h_05
|
|
|
|
|
Printer.Granularity = gr30Min
|
|
|
|
|
Printer.MarginUnits = imAbsolutePixel
|
|
|
|
|
Printer.PrintFormats = <>
|
2023-07-22 17:41:38 +00:00
|
|
|
Left = 248
|
|
|
|
|
Top = 118
|
2023-07-22 10:54:38 +00:00
|
|
|
end
|
|
|
|
|
object VpIniDatastore1: TVpIniDatastore
|
|
|
|
|
CategoryColorMap.Category0.Description = 'Category 0'
|
|
|
|
|
CategoryColorMap.Category0.ImageIndex = 0
|
|
|
|
|
CategoryColorMap.Category1.Description = 'Category 1'
|
2023-07-22 17:41:38 +00:00
|
|
|
CategoryColorMap.Category1.ImageIndex = 9
|
2023-07-22 10:54:38 +00:00
|
|
|
CategoryColorMap.Category2.Description = 'Category 2'
|
|
|
|
|
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
|
|
|
|
|
Images = ImageList2
|
|
|
|
|
AutoConnect = True
|
|
|
|
|
FileName = 'data.ini'
|
2023-07-22 17:41:38 +00:00
|
|
|
Left = 248
|
|
|
|
|
Top = 184
|
2023-07-22 10:54:38 +00:00
|
|
|
end
|
|
|
|
|
object ImageList1: TImageList
|
2023-07-22 17:41:38 +00:00
|
|
|
Left = 344
|
2023-07-22 10:54:38 +00:00
|
|
|
Top = 118
|
|
|
|
|
Bitmap = {
|
|
|
|
|
4C7A0400000010000000100000003E0300000000000078DAED574D485451143E
|
|
|
|
|
A9FD69F4ABB50A42459D19675284CA82B245818B36F6B769EDA29D154899CEA3
|
|
|
|
|
361104FD91DA0F33D8A2E63D292C88A08551541416945A8B1663A404D1B252A3
|
|
|
|
|
387DE7799FDC1E336F7CD384052D3EDEBDE7DEEF9E73BE73DE9BB9CC4CFC9B18
|
|
|
|
|
4C90910D1CFE90499C0D72C9D7F3A1165E98699C8E4F1DDC8ACC2E7B8D33F0DB
|
|
|
|
|
8046AFB117FF7FFCB31FFF4C90CBFECD35C2615E5659C9BBAAAAF84020C02D32
|
|
|
|
|
AEA9E1A599786565BC129C8BC037805D105B57793997A4E206831CC2FA3B6002
|
|
|
|
|
385351C1EB22112E12606DBDD8D4DA88EC4DE157B8A38835922E3E9CB956F6C8
|
|
|
|
|
1918173B76CCBB81715927E23C8C37CA73BA27341B7CD7623C095D3A654D7491
|
|
|
|
|
DC303F2D73F8DFA4F28DC97EC58D894DD694BFF3724669292F513AB3E4ABF98A
|
|
|
|
|
A933E20AD3E7C91EF8DAA06C4DC021198742BC488B778ECAC9D13EAEE7237B95
|
|
|
|
|
FDA0829B9FA7F995B8AFC396EFACA3868BC52EBD81E74EBFF1635CEFC4EFE807
|
|
|
|
|
9CCD463FAD7E133EEB7741CBA7447A427A033AD4A4EB1FC51D0392C08A14FD2B
|
|
|
|
|
674C02E72447D154695DEFC42C5CD88269FAB358FA4AED73BF3F76CC6EBFA920
|
|
|
|
|
BA88B6521F55A32647AB74DFA2D9FEFDFD9B7EFFB3F97EE7825F6D702468F0AD
|
|
|
|
|
4094FB9DB580C171D84C01D61BBCF8750617D635F3DC60949F4CF7A5C177FDC6
|
|
|
|
|
FF0B3FCA37810460850D2EF5CBA7DD53DF8D603BD722965EBF7C07D5477815EC
|
|
|
|
|
F7BCF85506AF515A7DB2F56AE3D5E0F461DC85E7C350076FF55BBF06830B4206
|
|
|
|
|
2F976FEA9FAEFFBFFEFFA1BF9F0A862CDA3F68D2739C3F0E8C007DAF4CDA9289
|
|
|
|
|
FBC2A412EC7D24710D9BF418383994A04B788EDA368BAE2663B4C0BE6F58B41D
|
|
|
|
|
36CBE1BEECA122EC1B80ED0BEE157BF473DFDEA1F988E928D67E000F642E770F
|
|
|
|
|
977EDDE07F878FC6B4771C93F6DA6758144FC17F0FFBB18C354B50BBADBD45D7
|
|
|
|
|
743E7CCFF3BC5F99B40DDC56E47D18BC0F987FF5533FD12A8BEFA7E5A717A5DE
|
|
|
|
|
C8E3E3602FEA66D109A9911747CF59D744349A818EC745739D6FD704B5911A49
|
|
|
|
|
AD3CB83B640F6ADDE9E6DBBD821EB1EB8C3864EEBAE7EE1B9ED2FEE9C06D2AD4
|
|
|
|
|
F575F2951EC59E1EA5C918FC5CC1F314F04CF5F6FD373728E36FF8EB046D9677
|
|
|
|
|
0748029FC527B8CDA649F9B97C677F02967D0FC4
|
|
|
|
|
}
|
|
|
|
|
end
|
|
|
|
|
object ImageList2: TImageList
|
|
|
|
|
Height = 24
|
|
|
|
|
Width = 24
|
2023-07-22 17:41:38 +00:00
|
|
|
Left = 344
|
|
|
|
|
Top = 184
|
2023-07-22 10:54:38 +00:00
|
|
|
Bitmap = {
|
|
|
|
|
4C7A040000001800000018000000960500000000000078DAED595D685C45143E
|
|
|
|
|
F5A7E2BF2F2A8AE243157D525111C420C67F04ADD65A412CF82A1524B6D4DF87
|
|
|
|
|
BC547C5054FC41452D84B4CDDEDD358AD81789FD332D4ADACD6637A1250FFA22
|
|
|
|
|
3E3446D06E4B9BB8EBF7DD9C5927B773F7CEDDBD2B411238DCBB73CF7C3373CE
|
|
|
|
|
77CE999988FCFB570DA491462A814C4C06728178FE69BF1FAA79793351A89B93
|
|
|
|
|
BFF1DCE73B4638A79CF4A7D0CDE1790A327AF86BB9B00BF8FD58C313BE63B483
|
|
|
|
|
1FBE7B8E91161F76DF4DFD701D8104F4077D9E157E9C6481EFFAD3752CE3FF4F
|
|
|
|
|
F0A1FB06FA9CE0B31BF8D03FA99C3CD925FC459CEF367E27F9ADD19015F8F60C
|
|
|
|
|
72C04B4DB1E3D66AA71EF5D3E023AFAC4F597BD62F25FCA67DA235CC88D5DE8E
|
|
|
|
|
7DBAEDDFCCF819C8778B38E210D4959E76E3CBCB77BA469FFCD0802396255ED2
|
|
|
|
|
EE09DB14BF3D611A21A6C587ACED62B8D40A9F7B31C4C35359E34F15E51AE0BE
|
|
|
|
|
363D2CABF07D1BE2E95AAC797396F307DEA7F8F633C6294DE6E4578E11D5290F
|
|
|
|
|
C8F9687F994F5F7CEAE2F7C7DC478E6F93DEB00D63406F2BDAD745B077A3BDC6
|
|
|
|
|
67748C24FBA0FD6DE49AEDD5A2F4721DA5825C373D2817F1FBD837721EDABEE7
|
|
|
|
|
D9A2B25D2EC77384EFF4970F3EFB60FE07D0FE16EC54A5ADE88F2836CF2D56DB
|
|
|
|
|
A231E2F077ED92B3A677CA398702B9B4B243AE9ECCCBE7A13D8A7295B189CB1E
|
|
|
|
|
D16F2E7C7CBB1DBFFFC25C1F37FDCC1C5B61BBC600E6161B9F38789F8614E933
|
|
|
|
|
7B0C1F6C87DF7FB1F1215FB0BDD12F6710DB8C9106DB1EC3C60FCF3681CCD2DE
|
|
|
|
|
4D1FEB1890F134D8167FB6587BA313F0E393511DB4AD06F6505A6C077F4ADDCC
|
|
|
|
|
6FE0F748524D4F2BE13EE13FA82DCB357C694B65485621069E452CBC02CE6DC2
|
|
|
|
|
FB4326277522CC759A475CBCF8139CFEA0FCA55C961E5B56A0EFEBC0A85B78BF
|
|
|
|
|
81CF7BF02CEB3D8C69FF7D2A27F745E6B512F211F45F70EEB772F2A1E90FBD31
|
|
|
|
|
D8E55E8E69BE8F057231FBE2FB51D59B439F0D167E8F6977C4F4AB16F667639F
|
|
|
|
|
C8D971EB3CBC43AE84DE4FD679E8B910232F77BB620B73B81398F3FA6DAB3DE7
|
|
|
|
|
38D91FC8B9D0FD4AFB9C02466F2C7E20478C4D5ACD3B2AACBD98FB41C59C9928
|
|
|
|
|
C8632E7CD673D600EC45AE4FCD61D40D62EBFCBE75E61ED42DD6F514FC5D09EE
|
|
|
|
|
DC45FE50F0FB5DCDC5F52C721B39D8CDDCA91C9DF3C54F98CB5C5CBC64758EA1
|
|
|
|
|
3D32C137FEC9C93BC677F423FDE98B15F2047C89C1DFA9EF47EDFD8AAF80FF37
|
|
|
|
|
847B1DF0DD85AFFB9E197D3FC8F849336FF43BA458479CF8886FD8E21E932731
|
|
|
|
|
C630F3804FDE45FE1A347C9808E48E387CCD471B2CFFFEC87CD62AD698B32C1B
|
|
|
|
|
6F76F8774E79D263F57BDEE2F80CC6EC2B0DCB2576CCA3ED41EE219B3CCBCB7B
|
|
|
|
|
71F1420E467982F6FBE9AF482C54B826D6178BBFF369CF80CDFD30EA2030DE0F
|
|
|
|
|
EBE2E9B1413E8F4C0DC92D9DD6E4F05C92970730D717F51EE8699ED596FA1E25
|
|
|
|
|
08E44CF2079CBB95C277B6758A8BBCF030CFEF11FF1A9925DFA9D3466EBF9967
|
|
|
|
|
4D0BABA6F7210595516D33DFF75687E426CF73C13AAB6F09FE5CE38ADFF0CCBB
|
|
|
|
|
F07F29C3FD9AEB0CE4C0AEEB9EA6CF95034FBBAB800E7037EADEA31E3786DAA4
|
|
|
|
|
A6D88FC4E5F0B8BB1CF47F54C7A8550A72A3A3EF3ECDFB7DAD6A44ABBB28AE43
|
|
|
|
|
73E21E074F427B476D92063FCC47EA0FEEB32DBB0F6AEE5C9354E392EED280BB
|
|
|
|
|
56F1074CECE0F71FB45B522DF1C1D7F3FE71E63EAE47F7A9B4CDA84F8DF6B90B
|
|
|
|
|
04FE7EEA22375D015FDFA6F8791F7CFB7FA64678BE89E831061B269F287EA1DD
|
|
|
|
|
3D4C782FB258AF18CE1F393B8D7D52E497A67DD4BFB33EFEF5AD11B67F6D7E32
|
|
|
|
|
9F743C77E4079B9F91F81A6F155F89B2105FE5687CA94FF66AFDDFD8C19DCC26
|
|
|
|
|
97BF437CE46FBD2B9D67AE6AC32EAB35BF1D73E537CB76F5700CAEC3C756BCAF
|
|
|
|
|
5B38D7CF6BDFB51EFE31F5A5CCDF2E5EB14D75CBAA7B2C09DBB6959ED74DFC1C
|
|
|
|
|
574E336E8A7C570E36E32BCE260971C2BB8C017B9F66DF0DF05B9427EDF28EB1
|
|
|
|
|
68F209DF7D79FC0F8C3AAA2B
|
|
|
|
|
}
|
|
|
|
|
end
|
|
|
|
|
end
|
