tvplanit: Add simple printing test projects

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

View File

@ -0,0 +1,85 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<SessionStorage Value="InProjectDir"/>
<Title Value="cgPrintDemo"/>
<Scaled Value="True"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<XPManifest>
<DpiAware Value="True"/>
</XPManifest>
<Icon Value="0"/>
</General>
<BuildModes>
<Item Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<UseFileFilters Value="True"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
</RunParams>
<RequiredPackages>
<Item>
<PackageName Value="Printer4Lazarus"/>
</Item>
<Item>
<PackageName Value="laz_visualplanit_design"/>
</Item>
<Item>
<PackageName Value="laz_visualplanit"/>
</Item>
<Item>
<PackageName Value="LCL"/>
</Item>
</RequiredPackages>
<Units>
<Unit>
<Filename Value="cgPrintDemo.lpr"/>
<IsPartOfProject Value="True"/>
</Unit>
<Unit>
<Filename Value="cgmain.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="cgMain"/>
</Unit>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="cgPrintDemo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions>
<Item>
<Name Value="EAbort"/>
</Item>
<Item>
<Name Value="ECodetoolError"/>
</Item>
<Item>
<Name Value="EFOpenError"/>
</Item>
</Exceptions>
</Debugging>
</CONFIG>

View File

@ -0,0 +1,25 @@
program cgPrintDemo;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}
cthreads,
{$ENDIF}
{$IFDEF HASAMIGA}
athreads,
{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, cgMain, printer4lazarus
{ you can add units after this };
{$R *.res}
begin
RequireDerivedFormResource:=True;
Application.Scaled:=True;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

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

View File

@ -0,0 +1,88 @@
unit cgMain;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls,
Spin, PrintersDlgs, VpBaseDS, VpIniDs, VpDayView, VpPrtPrvDlg, VpPrtFmtCBox,
VpContactGrid, VpContactButtons;
type
{ TForm1 }
TForm1 = class(TForm)
btnPrintPreview: TButton;
btnPrint: TButton;
Panel1: TPanel;
PrintDialog1: TPrintDialog;
VpContactButtonBar1: TVpContactButtonBar;
VpContactGrid1: TVpContactGrid;
VpControlLink1: TVpControlLink;
VpIniDatastore1: TVpIniDatastore;
VpPrintFormatComboBox1: TVpPrintFormatComboBox;
VpPrintPreviewDialog1: TVpPrintPreviewDialog;
procedure btnPrintPreviewClick(Sender: TObject);
procedure btnPrintClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
uses
Printers;
{ TForm1 }
procedure TForm1.btnPrintPreviewClick(Sender: TObject);
var
d1, d2: TDateTime;
begin
d1 := EncodeDate(2022, 10, 1);
d2 := EncodeDate(2022, 10, 31);
VpPrintPreviewDialog1.StartDate := d1;
VpPrintPreviewDialog1.EndDate := d2;
if VpPrintPreviewDialog1.Execute then
if PrintDialog1.Execute then begin
Printer.BeginDoc;
try
VpPrintPreviewDialog1.ControlLink.Printer.Print(Printer, d1, d2);
finally
Printer.EndDoc;
end;
end;
end;
procedure TForm1.btnPrintClick(Sender: TObject);
var
d1, d2: TDateTime;
begin
d1 := EncodeDate(2022, 10, 1);
d2 := EncodeDate(2022, 10, 31);
Printer.BeginDoc;
try
VpControlLink1.Printer.Print(Printer, d1, d2);
finally
Printer.EndDoc;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
if VpIniDatastore1.Resources.Count > 0 then
VpIniDatastore1.Resource := VpIniDatastore1.Resources.Items[0];
end;
end.

View File

@ -0,0 +1,29 @@
[General]
Version=v105
[Resources]
1178568021={Description:Test}|{ResourceActive:true}
[Contacts of resource 1178568021]
1={FirstName:FirstName01}|{LastName:Name01}|{BirthDate:9999/12/31}|{Company:Company01}|{EMail1:name01@work.com}|{Address1:WorkAddress01}|{City1:WorkCity01}|{Phone1:0123/4567890}|{PhoneType1:15}|{PhoneType2:4}|{PhoneType3:16}|{PhoneType4:7}|{PhoneType5:0}|{Category:0}|{EMailType1:0}|{EMail2:name01@home.com}|{EMailType2:1}|{EMailType3:2}|{WebsiteType1:0}|{WebsiteType2:1}|{AddressType1:0}|{Address2:HomeAddress01}|{City2:HomeCity01}|{AddressType2:1}
2={FirstName:FirstName02}|{LastName:Name02}|{BirthDate:9999/12/31}|{Company:Company02}|{EMail1:name02@work.com}|{Address1:WorkAddress02}|{City1:WorkCity02}|{Phone1:0123/4567890}|{PhoneType1:15}|{PhoneType2:4}|{PhoneType3:16}|{PhoneType4:7}|{PhoneType5:0}|{Category:0}|{EMailType1:0}|{EMail2:name02@home.com}|{EMailType2:1}|{EMailType3:2}|{WebsiteType1:0}|{WebsiteType2:1}|{AddressType1:0}|{Address2:HomeAddress02}|{City2:HomeCity02}|{AddressType2:1}
3={FirstName:FirstName03}|{LastName:Name03}|{BirthDate:9999/12/31}|{Company:Company03}|{EMail1:name03@work.com}|{Address1:WorkAddress03}|{City1:WorkCity03}|{Phone1:0123/4567890}|{PhoneType1:15}|{PhoneType2:4}|{PhoneType3:16}|{PhoneType4:7}|{PhoneType5:0}|{Category:0}|{EMailType1:0}|{EMail2:name03@home.com}|{EMailType2:1}|{EMailType3:2}|{WebsiteType1:0}|{WebsiteType2:1}|{AddressType1:0}|{Address2:HomeAddress03}|{City2:HomeCity03}|{AddressType2:1}
4={FirstName:FirstName04}|{LastName:Name04}|{BirthDate:9999/12/31}|{Company:Company04}|{EMail1:name04@work.com}|{Address1:WorkAddress04}|{City1:WorkCity04}|{Phone1:0123/4567890}|{PhoneType1:15}|{PhoneType2:4}|{PhoneType3:16}|{PhoneType4:7}|{PhoneType5:0}|{Category:0}|{EMailType1:0}|{EMail2:name04@home.com}|{EMailType2:1}|{EMailType3:2}|{WebsiteType1:0}|{WebsiteType2:1}|{AddressType1:0}|{Address2:HomeAddress04}|{City2:HomeCity04}|{AddressType2:1}
5={FirstName:FirstName05}|{LastName:Name05}|{BirthDate:9999/12/31}|{Company:Company05}|{EMail1:name05@work.com}|{Address1:WorkAddress05}|{State1:WorkCity05}|{Phone1:0123/4567890}|{PhoneType1:15}|{PhoneType2:4}|{PhoneType3:16}|{PhoneType4:7}|{PhoneType5:0}|{Category:0}|{EMailType1:0}|{EMail2:name05@home.com}|{EMailType2:1}|{EMailType3:2}|{WebsiteType1:0}|{WebsiteType2:1}|{AddressType1:0}|{Address2:HomeAddress05}|{City2:HomeCity05}|{AddressType2:1}
6={FirstName:FirstName06}|{LastName:Name06}|{BirthDate:9999/12/31}|{Company:Company06}|{EMail1:name06@work.com}|{Address1:WorkAddress06}|{City1:WorkCity06}|{Phone1:0123/4567890}|{PhoneType1:15}|{PhoneType2:4}|{PhoneType3:16}|{PhoneType4:7}|{PhoneType5:0}|{Category:0}|{EMailType1:0}|{EMail2:name06@home.com}|{EMailType2:1}|{EMailType3:2}|{WebsiteType1:0}|{WebsiteType2:1}|{AddressType1:0}|{Address2:HomeAddress06}|{City2:HomeCity06}|{AddressType2:1}
7={FirstName:FirstName07}|{LastName:Name07}|{BirthDate:9999/12/31}|{Company:Company07}|{EMail1:name07@work.com}|{Address1:WorkAddress07}|{City1:WorkCity07}|{Phone1:0123/4567890}|{PhoneType1:15}|{PhoneType2:4}|{PhoneType3:16}|{PhoneType4:7}|{PhoneType5:0}|{Category:0}|{EMailType1:0}|{EMail2:name07@home.com}|{EMailType2:1}|{EMailType3:2}|{WebsiteType1:0}|{WebsiteType2:1}|{AddressType1:0}|{Address2:HomeAddress07}|{City2:HomeCity07}|{AddressType2:1}
8={FirstName:FirstName08}|{LastName:Name08}|{BirthDate:9999/12/31}|{Company:Company08}|{EMail1:name08@work.com}|{Address1:WorkAddress08}|{City1:WorkCity08}|{Phone1:0123/4567890}|{PhoneType1:15}|{PhoneType2:4}|{PhoneType3:16}|{PhoneType4:7}|{PhoneType5:0}|{Category:0}|{EMailType1:0}|{EMail2:name08@home.com}|{EMailType2:1}|{EMailType3:2}|{WebsiteType1:0}|{WebsiteType2:1}|{AddressType1:0}|{Address2:HomeAddress08}|{City2:HomeCity08}|{AddressType2:1}
9={FirstName:FirstName09}|{LastName:Name09}|{BirthDate:9999/12/31}|{Company:Company09}|{EMail1:name09@work.com}|{Address1:WorkAddress09}|{City1:WorkCity09}|{Phone1:0123/4567890}|{PhoneType1:15}|{PhoneType2:4}|{PhoneType3:16}|{PhoneType4:7}|{PhoneType5:0}|{Category:0}|{EMailType1:0}|{EMail2:name09@home.com}|{EMailType2:1}|{EMailType3:2}|{WebsiteType1:0}|{WebsiteType2:1}|{AddressType1:0}|{Address2:HomeAddress09}|{City2:HomeCity09}|{AddressType2:1}
10={FirstName:FirstName10}|{LastName:Name10}|{BirthDate:9999/12/31}|{Company:Company10}|{EMail1:name10@work.com}|{Address1:WorkAddress10}|{City1:WorkCity10}|{Phone1:0123/4567890}|{PhoneType1:15}|{PhoneType2:4}|{PhoneType3:16}|{PhoneType4:7}|{PhoneType5:0}|{Category:0}|{EMailType1:0}|{EMail2:name10@home.com}|{EMailType2:1}|{EMailType3:2}|{WebsiteType1:0}|{WebsiteType2:1}|{AddressType1:0}|{Address2:HomeAddress10}|{City2:HomeCity10}|{AddressType2:1}
11={FirstName:FirstName11}|{LastName:Name11}|{BirthDate:9999/12/31}|{Company:Company11}|{EMail1:name11@work.com}|{Address1:WorkAddress11}|{City1:WorkCity11}|{Phone1:0123/4567890}|{PhoneType1:15}|{PhoneType2:4}|{PhoneType3:16}|{PhoneType4:7}|{PhoneType5:0}|{Category:0}|{EMailType1:0}|{EMail2:name11@home.com}|{EMailType2:1}|{EMailType3:2}|{WebsiteType1:0}|{WebsiteType2:1}|{AddressType1:0}|{Address2:HomeAddress11}|{City2:HomeCity11}|{AddressType2:1}
12={FirstName:FirstName12}|{LastName:Name12}|{BirthDate:9999/12/31}|{Company:Company12}|{EMail1:name12@work.com}|{Address1:WorkAddress12}|{State1:WorkCity12}|{Phone1:0123/4567890}|{PhoneType1:15}|{PhoneType2:4}|{PhoneType3:16}|{PhoneType4:7}|{PhoneType5:0}|{Category:0}|{EMailType1:0}|{EMail2:name12@home.com}|{EMailType2:1}|{EMailType3:2}|{WebsiteType1:0}|{WebsiteType2:1}|{AddressType1:0}|{Address2:HomeAddress12}|{City2:HomeCity12}|{AddressType2:1}
13={FirstName:FirstName13}|{LastName:Name13}|{BirthDate:9999/12/31}|{Company:Company13}|{EMail1:name13@work.com}|{Address1:WorkAddress13}|{City1:WorkCity13}|{Phone1:0123/4567890}|{PhoneType1:15}|{PhoneType2:4}|{PhoneType3:16}|{PhoneType4:7}|{PhoneType5:0}|{Category:0}|{EMailType1:0}|{EMail2:name13@home.com}|{EMailType2:1}|{EMailType3:2}|{WebsiteType1:0}|{WebsiteType2:1}|{AddressType1:0}|{Address2:HomeAddress13}|{City2:HomeCity13}|{AddressType2:1}
14={FirstName:FirstName14}|{LastName:Name14}|{BirthDate:9999/12/31}|{Company:Company14}|{EMail1:name14@work.com}|{Address1:WorkAddress14}|{City1:WorkCity14}|{Phone1:0123/4567890}|{PhoneType1:15}|{PhoneType2:4}|{PhoneType3:16}|{PhoneType4:7}|{PhoneType5:0}|{Category:0}|{EMailType1:0}|{EMail2:name14@home.com}|{EMailType2:1}|{EMailType3:2}|{WebsiteType1:0}|{WebsiteType2:1}|{AddressType1:0}|{Address2:HomeAddress14}|{City2:HomeCity14}|{AddressType2:1}
15={FirstName:FirstName15}|{LastName:Name15}|{BirthDate:9999/12/31}|{Company:Company15}|{EMail1:name15@work.com}|{Address1:WorkAddress15}|{City1:WorkCity15}|{Phone1:0123/4567890}|{PhoneType1:15}|{PhoneType2:4}|{PhoneType3:16}|{PhoneType4:7}|{PhoneType5:0}|{Category:0}|{EMailType1:0}|{EMail2:name15@home.com}|{EMailType2:1}|{EMailType3:2}|{WebsiteType1:0}|{WebsiteType2:1}|{AddressType1:0}|{Address2:HomeAddress15}|{City2:HomeCity15}|{AddressType2:1}
16={FirstName:FirstName16}|{LastName:Name16}|{BirthDate:9999/12/31}|{Company:Company16}|{EMail1:name16@work.com}|{Address1:WorkAddress16}|{City1:WorkCity16}|{Phone1:0123/4567890}|{PhoneType1:15}|{PhoneType2:4}|{PhoneType3:16}|{PhoneType4:7}|{PhoneType5:0}|{Category:0}|{EMailType1:0}|{EMail2:name16@home.com}|{EMailType2:1}|{EMailType3:2}|{WebsiteType1:0}|{WebsiteType2:1}|{AddressType1:0}|{Address2:HomeAddress16}|{City2:HomeCity16}|{AddressType2:1}
17={FirstName:FirstName17}|{LastName:Name17}|{BirthDate:9999/12/31}|{Company:Company17}|{EMail1:name17@work.com}|{Address1:WorkAddress17}|{City1:WorkCity17}|{Phone1:0123/4567890}|{PhoneType1:15}|{PhoneType2:4}|{PhoneType3:16}|{PhoneType4:7}|{PhoneType5:0}|{Category:0}|{EMailType1:0}|{EMail2:name17@home.com}|{EMailType2:1}|{EMailType3:2}|{WebsiteType1:0}|{WebsiteType2:1}|{AddressType1:0}|{Address2:HomeAddress17}|{City2:HomeCity17}|{AddressType2:1}
18={FirstName:FirstName18}|{LastName:Name18}|{BirthDate:9999/12/31}|{Company:Company18}|{EMail1:name18@work.com}|{Address1:WorkAddress18}|{City1:WorkCity18}|{Phone1:0123/4567890}|{PhoneType1:15}|{PhoneType2:4}|{PhoneType3:16}|{PhoneType4:7}|{PhoneType5:0}|{Category:0}|{EMailType1:0}|{EMail2:name18@home.com}|{EMailType2:1}|{EMailType3:2}|{WebsiteType1:0}|{WebsiteType2:1}|{AddressType1:0}|{Address2:HomeAddress18}|{City2:HomeCity18}|{AddressType2:1}
19={FirstName:FirstName19}|{LastName:Name19}|{BirthDate:9999/12/31}|{Company:Company19}|{EMail1:name19@work.com}|{Address1:WorkAddress19}|{City1:WorkCity19}|{Phone1:0123/4567890}|{PhoneType1:15}|{PhoneType2:4}|{PhoneType3:16}|{PhoneType4:7}|{PhoneType5:0}|{Category:0}|{EMailType1:0}|{EMail2:name19@home.com}|{EMailType2:1}|{EMailType3:2}|{WebsiteType1:0}|{WebsiteType2:1}|{AddressType1:0}|{Address2:HomeAddress19}|{City2:HomeCity19}|{AddressType2:1}
20={FirstName:FirstName20}|{LastName:Name20}|{BirthDate:9999/12/31}|{Company:Company20}|{EMail1:name20@work.com}|{Address1:WorkAddress20}|{City1:WorkCity20}|{Phone1:0123/4567890}|{PhoneType1:15}|{PhoneType2:4}|{PhoneType3:16}|{PhoneType4:7}|{PhoneType5:0}|{Category:0}|{EMailType1:0}|{EMail2:name20@home.com}|{EMailType2:1}|{EMailType3:2}|{WebsiteType1:0}|{WebsiteType2:1}|{AddressType1:0}|{Address2:HomeAddress20}|{City2:HomeCity20}|{AddressType2:1}
21={FirstName:FirstName21}|{LastName:Name21}|{BirthDate:9999/12/31}|{Company:Company21}|{EMail1:name21@work.com}|{Address1:WorkAddress21}|{City1:WorkCity21}|{Phone1:0123/4567890}|{PhoneType1:15}|{PhoneType2:4}|{PhoneType3:16}|{PhoneType4:7}|{PhoneType5:0}|{Category:0}|{EMailType1:0}|{EMail2:name21@home.com}|{EMailType2:1}|{EMailType3:2}|{WebsiteType1:0}|{WebsiteType2:1}|{AddressType1:0}|{Address2:HomeAddress21}|{City2:HomeCity21}|{AddressType2:1}
22={FirstName:FirstName22}|{LastName:Name22}|{BirthDate:9999/12/31}|{Company:Company22}|{EMail1:name22@work.com}|{Address1:WorkAddress22}|{City1:WorkCity22}|{Phone1:0123/4567890}|{PhoneType1:15}|{PhoneType2:4}|{PhoneType3:16}|{PhoneType4:7}|{PhoneType5:0}|{Category:0}|{EMailType1:0}|{EMail2:name22@home.com}|{EMailType2:1}|{EMailType3:2}|{WebsiteType1:0}|{WebsiteType2:1}|{AddressType1:0}|{Address2:HomeAddress22}|{City2:HomeCity22}|{AddressType2:1}