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

tvplanit: Add simple printing test projects

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8545 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-10-12 20:24:11 +00:00
parent 3cb293895d
commit 6242422cf8
34 changed files with 3166 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

229
components/tvplanit/examples/printing/contacts/cgmain.lfm Normal file
View File

@@ -0,0 +1,229 @@
object Form1: TForm1
Left = 327
Height = 523
Top = 127
Width = 636
Caption = 'Form1'
ClientHeight = 523
ClientWidth = 636
OnCreate = FormCreate
object Panel1: TPanel
Left = 6
Height = 26
Top = 6
Width = 624
Align = alTop
AutoSize = True
BorderSpacing.Around = 6
BevelOuter = bvNone
ClientHeight = 26
ClientWidth = 624
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 VpContactGrid1: TVpContactGrid
Left = 40
Height = 485
Top = 38
Width = 596
PopupMenu = VpContactGrid1.default
DataStore = VpIniDatastore1
ControlLink = VpControlLink1
Font.Height = -12
ParentFont = False
Align = alClient
TabOrder = 1
ContactHeadAttributes.Font.Height = -12
end
object VpContactButtonBar1: TVpContactButtonBar
Left = 0
Height = 485
Top = 38
Width = 40
Align = alLeft
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 = 0
DayIncUnits = duDay
Elements = <
item
Version = 'v1.0.7'
DayOffset = 0
DayOffsetUnits = duDay
ElementName = 'ContactGrid'
Height = 100
ItemType = itContacts
Left = 0
Shape.Shape = ustRectangle
Top = 0
Width = 100
end>
FormatName = 'Contacts Portrait'
end
item
Version = 'v1.0.7'
DayInc = 0
DayIncUnits = duDay
Elements = <
item
Version = 'v1.0.7'
DayOffset = 0
DayOffsetUnits = duDay
ElementName = 'ContactGrid'
Height = 100
ItemType = itContacts
Left = 0
Rotation = ra90
Shape.Shape = ustRectangle
Top = 0
Width = 100
end>
FormatName = 'Contacts Landscape 90°'
end
item
Version = 'v1.0.7'
DayInc = 0
DayIncUnits = duDay
Elements = <
item
Version = 'v1.0.7'
DayOffset = 0
DayOffsetUnits = duDay
ElementName = 'ContactGrid'
Height = 100
ItemType = itContacts
Left = 0
Rotation = ra270
Shape.Shape = ustRectangle
Top = 0
Width = 100
end>
FormatName = 'Contacts Landscape 270°'
end
item
Version = 'v1.0.7'
DayInc = 0
DayIncUnits = duDay
Elements = <
item
Version = 'v1.0.7'
DayOffset = 0
DayOffsetUnits = duDay
ElementName = 'ContactGrid'
Height = 100
ItemType = itContacts
Left = 0
Rotation = ra180
Shape.Shape = ustRectangle
Top = 0
Width = 100
end>
FormatName = 'Contacts Portrait Upside Down'
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.Category0.UseForAllDayEvents = True
CategoryColorMap.Category1.BackgroundColor = clMoneyGreen
CategoryColorMap.Category1.Color = clGreen
CategoryColorMap.Category1.Description = 'Category 1'
CategoryColorMap.Category1.UseForAllDayEvents = True
CategoryColorMap.Category2.BackgroundColor = 12171775
CategoryColorMap.Category2.Color = clRed
CategoryColorMap.Category2.Description = 'Category 2'
CategoryColorMap.Category2.UseForAllDayEvents = True
CategoryColorMap.Category3.BackgroundColor = clYellow
CategoryColorMap.Category3.Color = clOlive
CategoryColorMap.Category3.Description = 'Category 3'
CategoryColorMap.Category3.UseForAllDayEvents = True
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