| blob | 6fde9c468b3dc298e35fc9f1e775a8188068a54c |
1 { KOL MCK } // Do not remove this line!\r
2 \r
3 procedure NewForm3( var Result: PForm3; AParent: PControl );\r
4 begin\r
5 \r
6 New( Result, Create );\r
7 Result.Form := NewForm( AParent, 'Form3' ).SetPosition( 262, 112 ).SetSize( 696, 480 );\r
8 Result.Form.Add2AutoFree( Result );\r
9 Result.Form.Visible := False;\r
10 Result.Form.Font.Color := clBlack;\r
11 \r
12 Result.Report1 := NewReport;\r
13 Result.Report1.DoubleBufferedPreview := TRUE;\r
14 Result.Report1.DocumentName := 'Test';\r
15 Result.Form.Add2AutoFree( Result.Report1 );\r
16 Result.Report1.OnPrint := Result.Report1Print;\r
17 Result.Report1.OnNewPage := Result.Report1NewPage;\r
18 // Result.BandPagenumber.TabOrder = 0\r
19 Result.BandPagenumber := NewBand( Result.Form, [frBottom] ).SetPosition( 280, 8 ).SetSize( 400, 19 );\r
20 Result.BandPagenumber.Color := clWhite;\r
21 Result.BandPagenumber.TextAlign := taRight;\r
22 Result.BandPagenumber.Border := 1;\r
23 Result.BandPagenumber.Caption := 'Page 1';\r
24 // Result.BandTitle.TabOrder = 1\r
25 Result.BandTitle := NewBand( Result.Form, [frLeft,frTop,frRight,frBottom] ).SetPosition( 112, 40 ).SetSize( 393, 89 );\r
26 Result.BandTitle.Color := clWhite;\r
27 Result.BandTitle.Border := 0;\r
28 // Result.ReportLabel1.TabOrder = -1\r
29 Result.ReportLabel1 := NewWordWrapReportLabel( Result.BandTitle, 'Sample Report to see what can be done with KOLReport', [] ).SetAlign ( caClient ).AutoSize( FALSE );\r
30 Result.ReportLabel1.Font.FontStyle := [ fsBold ];\r
31 Result.ReportLabel1.Font.FontHeight := 32;\r
32 Result.ReportLabel1.Font.FontName := 'Arial';\r
33 Result.ReportLabel1.TextAlign := taCenter;\r
34 Result.ReportLabel1.Border := 1;\r
35 // Result.BandMaster.TabOrder = 2\r
36 Result.BandMaster := NewBand( Result.Form, [] ).SetPosition( 16, 160 ).SetSize( 400, 40 );\r
37 Result.BandMaster.Color := clWhite;\r
38 Result.BandMaster.Font.FontName := 'Arial';\r
39 Result.BandMaster.Border := 1;\r
40 // Result.Master1.TabOrder = -1\r
41 Result.Master1 := NewReportLabel( Result.BandMaster, 'Master', [] ).SetPosition( 16, 8 );\r
42 Result.Master1.Tag := 123;\r
43 Result.Master1.Color := clWhite;\r
44 Result.Master1.Font.FontStyle := [ fsBold ];\r
45 // Result.Master2.TabOrder = -1\r
46 Result.Master2 := NewReportLabel( Result.BandMaster, 'Data', [] ).SetPosition( 192, 8 );\r
47 Result.Master2.Color := clWhite;\r
48 // Result.BandColumns.TabOrder = 3\r
49 Result.BandColumns := NewBand( Result.Form, [frLeft,frTop,frRight,frBottom] ).SetPosition( 16, 216 ).SetSize( 625, 25 );\r
50 Result.BandColumns.Color := clWhite;\r
51 Result.BandColumns.Font.FontName := 'Arial';\r
52 Result.BandColumns.Border := 1;\r
53 // Result.ReportLabel6.TabOrder = -1\r
54 Result.ReportLabel6 := NewReportLabel( Result.BandColumns, 'Date', [frLeft] ).SetAlign ( caRight ).AutoSize( FALSE ).SetSize( 102, 0 );\r
55 Result.ReportLabel6.Color := clWhite;\r
56 Result.ReportLabel6.TextAlign := taCenter;\r
57 Result.ReportLabel6.VerticalAlign := vaCenter;\r
58 // Result.ReportLabel2.TabOrder = -1\r
59 Result.ReportLabel2 := NewReportLabel( Result.BandColumns, '#', [] ).SetAlign ( caLeft ).AutoSize( FALSE ).SetSize( 24, 0 );\r
60 Result.ReportLabel2.Color := clWhite;\r
61 Result.ReportLabel2.TextAlign := taCenter;\r
62 Result.ReportLabel2.VerticalAlign := vaCenter;\r
63 // Result.ReportLabel4.TabOrder = -1\r
64 Result.ReportLabel4 := NewReportLabel( Result.BandColumns, 'Last Name', [frLeft] ).SetAlign ( caClient ).AutoSize( FALSE );\r
65 Result.ReportLabel4.Color := clWhite;\r
66 Result.ReportLabel4.TextAlign := taCenter;\r
67 Result.ReportLabel4.VerticalAlign := vaCenter;\r
68 // Result.ReportLabel3.TabOrder = -1\r
69 Result.ReportLabel3 := NewReportLabel( Result.BandColumns, 'First Name', [frLeft] ).SetAlign ( caLeft ).AutoSize( FALSE ).SetSize( 165, 0 );\r
70 Result.ReportLabel3.Color := clWhite;\r
71 Result.ReportLabel3.TextAlign := taCenter;\r
72 Result.ReportLabel3.VerticalAlign := vaCenter;\r
73 // Result.ReportLabel5.TabOrder = -1\r
74 Result.ReportLabel5 := NewReportLabel( Result.BandColumns, 'Amount', [frLeft] ).SetAlign ( caRight ).AutoSize( FALSE ).SetSize( 135, 0 );\r
75 Result.ReportLabel5.Color := clWhite;\r
76 Result.ReportLabel5.TextAlign := taCenter;\r
77 Result.ReportLabel5.VerticalAlign := vaCenter;\r
78 // Result.BandCompany.TabOrder = 3\r
79 Result.BandCompany := NewBand( Result.Form, [frLeft,frRight,frBottom] ).SetPosition( 16, 246 ).SetSize( 625, 25 );\r
80 Result.BandCompany.Color := clWhite;\r
81 Result.BandCompany.Font.FontName := 'Arial';\r
82 Result.BandCompany.VerticalAlign := vaCenter;\r
83 Result.BandCompany.Border := 1;\r
84 Result.BandCompany.Caption := ' Company name';\r
85 // Result.BandDetail.TabOrder = 3\r
86 Result.BandDetail := NewBand( Result.Form, [] ).SetPosition( 17, 279 ).SetSize( 625, 25 );\r
87 Result.BandDetail.Color := clWhite;\r
88 Result.BandDetail.Font.FontName := 'Arial';\r
89 Result.BandDetail.Border := 0;\r
90 // Result.DetailDate.TabOrder = -1\r
91 Result.DetailDate := NewReportLabel( Result.BandDetail, 'Date', [frLeft,frRight,frBottom] ).SetAlign ( caRight ).AutoSize( FALSE ).SetSize( 104, 0 );\r
92 Result.DetailDate.Color := clWhite;\r
93 Result.DetailDate.TextAlign := taCenter;\r
94 Result.DetailDate.VerticalAlign := vaCenter;\r
95 Result.DetailDate.Border := 1;\r
96 // Result.DetailLName.TabOrder = -1\r
97 Result.DetailLName := NewReportLabel( Result.BandDetail, 'Last Name', [frLeft,frBottom] ).SetAlign ( caClient ).AutoSize( FALSE );\r
98 Result.DetailLName.Color := clWhite;\r
99 Result.DetailLName.VerticalAlign := vaCenter;\r
100 Result.DetailLName.Border := 1;\r
101 // Result.DetailFName.TabOrder = -1\r
102 Result.DetailFName := NewReportLabel( Result.BandDetail, 'First Name', [frLeft,frBottom] ).SetAlign ( caLeft ).AutoSize( FALSE ).SetSize( 165, 0 );\r
103 Result.DetailFName.Color := clWhite;\r
104 Result.DetailFName.VerticalAlign := vaCenter;\r
105 Result.DetailFName.Border := 1;\r
106 // Result.DetailN.TabOrder = -1\r
107 Result.DetailN := NewReportLabel( Result.BandDetail, '#', [frLeft,frBottom] ).SetAlign ( caLeft ).AutoSize( FALSE ).SetSize( 24, 0 );\r
108 Result.DetailN.Color := clWhite;\r
109 Result.DetailN.TextAlign := taCenter;\r
110 Result.DetailN.VerticalAlign := vaCenter;\r
111 Result.DetailN.Border := 1;\r
112 // Result.DetailAmt.TabOrder = -1\r
113 Result.DetailAmt := NewReportLabel( Result.BandDetail, 'Amount', [frLeft,frBottom] ).SetAlign ( caRight ).AutoSize( FALSE ).SetSize( 135, 0 );\r
114 Result.DetailAmt.Color := clWhite;\r
115 Result.DetailAmt.TextAlign := taRight;\r
116 Result.DetailAmt.VerticalAlign := vaCenter;\r
117 Result.DetailAmt.Border := 1;\r
118 \r
119 end;\r
120 \r