mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-10-31 22:49:30 +01:00
507 lines
17 KiB
ObjectPascal
507 lines
17 KiB
ObjectPascal
{
|
|
FPVectorial example application for writing a text document file to disk.
|
|
|
|
Author: Mike Thompson
|
|
Felipe Monteiro de Carvalho
|
|
|
|
License: Public Domain
|
|
}
|
|
Program fpvtextwritetest2;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
Uses
|
|
fpvectorial,
|
|
odtvectorialwriter,
|
|
docxvectorialwriter,
|
|
fpvutils,
|
|
SysUtils, FPImage;
|
|
|
|
{$R *.res}
|
|
|
|
Const
|
|
ONE_POINT_IN_MM = 0.35278;
|
|
|
|
Var
|
|
Vec: TvVectorialDocument;
|
|
Page: TvTextPageSequence;
|
|
CurParagraph: TvParagraph;
|
|
BoldTextStyle: TvStyle;
|
|
ListParaStyle : TvStyle;
|
|
CenterParagraphStyle, Center2: TvStyle;
|
|
List : TvList;
|
|
SubList: TvList;
|
|
dtTime : TDateTime;
|
|
CurText : TvText;
|
|
|
|
CurTable : TvTable;
|
|
CurRow : TvTableRow;
|
|
CurCell : TvTableCell;
|
|
|
|
i, j, iMax : Integer;
|
|
|
|
Begin
|
|
Vec := TvVectorialDocument.Create;
|
|
Try
|
|
// A4 -> 210mm x 297mm
|
|
Vec.Width := 210;
|
|
Vec.Height := 297;
|
|
|
|
// Until there is a need, we will stick with supporting ODT styles
|
|
Vec.AddStandardTextDocumentStyles(vfODT);
|
|
|
|
// An example in modifying existing Styles, here putting a 1cm margin on
|
|
// either side of normal text body
|
|
Vec.StyleTextBody.MarginRight:=10;
|
|
Vec.StyleTextBody.MarginLeft:=10;
|
|
Vec.StyleTextBody.SetElements:= Vec.StyleTextBody.SetElements + [sseMarginLeft, sseMarginRight];
|
|
|
|
// Until a Template is available, create the Bold Style ourselves
|
|
BoldTextStyle := Vec.AddStyle();
|
|
|
|
BoldTextStyle.Kind := vskTextSpan; // This implies this style should not be applied to Paragraphs
|
|
BoldTextStyle.Name := 'Bold';
|
|
BoldTextStyle.Font.Bold := True;
|
|
BoldTextStyle.SetElements := BoldTextStyle.SetElements + [spbfFontBold];
|
|
|
|
CenterParagraphStyle := Vec.AddStyle();
|
|
CenterParagraphStyle.ApplyOver(Vec.StyleTextBody);
|
|
CenterParagraphStyle.Name := 'Text Body Centered';
|
|
CenterParagraphStyle.Alignment := vsaCenter;
|
|
CenterParagraphStyle.SetElements := CenterParagraphStyle.SetElements + [spbfAlignment];
|
|
|
|
ListParaStyle := Vec.AddStyle();
|
|
ListParaStyle.Name := 'List Text Body';
|
|
ListParaStyle.Font.Name := 'Arial';
|
|
ListParaStyle.Font.Size := 9;
|
|
ListParaStyle.MarginLeft:=0;
|
|
ListParaStyle.MarginTop:=0;
|
|
ListParaStyle.MarginBottom:=0;
|
|
ListParaStyle.SetElements := CenterParagraphStyle.SetElements + [spbfFontName, spbfFontSize, sseMarginLeft, sseMarginTop, sseMarginBottom];
|
|
|
|
// First page sequence
|
|
Page := Vec.AddTextPageSequence();
|
|
Page.Width := 210;
|
|
Page.Height := 297;
|
|
|
|
// Set the Header
|
|
CurParagraph := Page.Header.AddParagraph;
|
|
CurParagraph.Style := CenterParagraphStyle;
|
|
CurParagraph.AddText('Introduction to Lazarus and FreePascal').Style := BoldTextStyle;
|
|
|
|
// Set the Footer
|
|
CurParagraph := Page.Footer.AddParagraph;
|
|
CurParagraph.Style := CenterParagraphStyle;
|
|
CurParagraph.AddText('Confidential').Style := BoldTextStyle;
|
|
CurParagraph.AddText(#09);
|
|
CurParagraph.AddText('Page ').Style := BoldTextStyle;
|
|
CurParagraph.AddField(vfkPage).Style := BoldTextStyle;
|
|
CurParagraph.AddText(' of ').Style := BoldTextStyle;
|
|
CurParagraph.AddField(vfkNumPages).Style := BoldTextStyle;
|
|
CurParagraph.AddText(#09);
|
|
CurParagraph.AddField(vfkDateCreated).Style := BoldTextStyle;
|
|
|
|
// Title
|
|
CurParagraph := Page.AddParagraph();
|
|
CurParagraph.Style := Vec.StyleHeading1;
|
|
CurParagraph.AddText('Lazarus');
|
|
|
|
// paragraph
|
|
CurParagraph := Page.AddParagraph();
|
|
CurParagraph.Style := Vec.StyleTextBody;
|
|
With CurParagraph Do
|
|
Begin
|
|
AddText('Lazarus ').Style := BoldTextStyle;
|
|
// Adding the Paragraph as a long string
|
|
AddText('is a free and open source development tool for the ' +
|
|
'Free Pascal compiler, which is also free and open source.');
|
|
End;
|
|
|
|
// Empty line
|
|
CurParagraph := Page.AddParagraph();
|
|
CurParagraph.Style := Vec.StyleTextBody;
|
|
|
|
// Title
|
|
CurParagraph := Page.AddParagraph();
|
|
CurParagraph.Style := Vec.StyleHeading2;
|
|
CurParagraph.AddText('Overview');
|
|
|
|
// paragraph
|
|
CurParagraph := Page.AddParagraph();
|
|
CurParagraph.Style := Vec.StyleTextBody;
|
|
With CurParagraph Do
|
|
Begin
|
|
// Adding the Paragraph as a series of TvText's
|
|
// trailing space required
|
|
// Each TvText gets added as it's own text run inside the Word Doc
|
|
AddText('Lazarus ').Style := BoldTextStyle;
|
|
AddText('is a free cross-platform visual integrated development ');
|
|
AddText('environment (IDE) for rapid application development (RAD) ');
|
|
AddText('using the Free Pascal compiler supported dialects of Object ');
|
|
AddText('Pascal. Developers use ');
|
|
AddText('Lazarus ').Style := BoldTextStyle;
|
|
AddText('to create native code console ');
|
|
AddText('and graphical user interface (GUI) applications for the desktop ');
|
|
AddText('along with mobile devices, web applications, web services, ');
|
|
AddText('and visual components and function libraries (.so, .dll, etc) ');
|
|
AddText('for use by other programs for any platform the Free Pascal ');
|
|
AddText('compiler supports( Mac, Unix, Linux, Windows, etc). ');
|
|
End;
|
|
|
|
CurParagraph := Page.AddParagraph();
|
|
CurParagraph.Style := Vec.StyleTextBody;
|
|
CurParagraph.AddText('Lazarus ').Style := BoldTextStyle;
|
|
CurParagraph.AddText('features:');
|
|
|
|
// Simple List
|
|
List := Page.AddList();
|
|
List.Style := ListParaStyle;
|
|
List.ListStyle := Vec.StyleBulletList;
|
|
|
|
List.AddParagraph('A What You See Is What You Get (WYSIWYG) visual windows layout designer');
|
|
List.AddParagraph('An extensive set of GUI widgets or visual components such as edit boxes, buttons, dialogs, menus, etc.');
|
|
List.AddParagraph('An extensive set of non visual components for common behaviors such as persistence of application settings');
|
|
List.AddParagraph('A set of data connectivity components for MySQL, PostgresSQL, FireBird, Oracle, SQL Lite, Sybase, and others');
|
|
List.AddParagraph('Data aware widget set that allows the developer to see data in visual components in the designer to assist with development');
|
|
List.AddParagraph('Interactive code debugger');
|
|
List.AddParagraph('Code completion');
|
|
List.AddParagraph('Code templates');
|
|
List.AddParagraph('Syntax highlighting');
|
|
List.AddParagraph('Context sensitive help');
|
|
List.AddParagraph('Text resource manager for internationalization');
|
|
List.AddParagraph('Automatic code formatting');
|
|
List.AddParagraph('The ability to create custom components');
|
|
|
|
// Empty line
|
|
CurParagraph := Page.AddParagraph();
|
|
CurParagraph.Style := Vec.StyleTextBody;
|
|
|
|
|
|
// Second page sequence
|
|
Page := Vec.AddTextPageSequence();
|
|
Page.Height := 210; // Switched to enforce Landscape
|
|
Page.Width := 297;
|
|
|
|
// Set the Header
|
|
CurParagraph := Page.Header.AddParagraph;
|
|
CurParagraph.Style := CenterParagraphStyle;
|
|
CurParagraph.AddText('Testing Concepts').Style := BoldTextStyle;
|
|
|
|
// Title
|
|
CurParagraph := Page.AddParagraph();
|
|
CurParagraph.Style := Vec.StyleHeading2;
|
|
CurParagraph.AddText('Testing Strings');
|
|
|
|
|
|
// Test for XML tags
|
|
CurParagraph := Page.AddParagraph();
|
|
CurParagraph.Style := Vec.StyleTextBody;
|
|
CurText := CurParagraph.AddText('');
|
|
// Adding to the Paragraph by extending the TStringList inside a single TvText
|
|
// Each line will be added inside a new text run inside the Word Doc
|
|
// with a Soft Return inserted at the end of each line
|
|
With CurText.Value Do
|
|
Begin
|
|
Add(#09 + '<test>&"This shouldn''t break the resulting document."</test>' + #09);
|
|
Add(#09 + '<test>!@#$%^&*()_+=-~`;:{}[],./|\?</test>' + #09);
|
|
Add('');
|
|
End;
|
|
|
|
// Add a simple heading
|
|
CurParagraph := Page.AddParagraph();
|
|
CurParagraph.Style := Vec.StyleHeading2;
|
|
CurText := CurParagraph.AddText('Testing Fields');
|
|
|
|
CurParagraph := Page.AddParagraph();
|
|
CurParagraph.Style := Vec.StyleTextBody;
|
|
CurParagraph.AddText('Page Count: ');
|
|
CurParagraph.AddField(vfkNumPages);
|
|
|
|
CurParagraph := Page.AddParagraph();
|
|
CurParagraph.Style := Vec.StyleTextBody;
|
|
CurParagraph.AddText('Page: ');
|
|
CurParagraph.AddField(vfkPage);
|
|
|
|
CurParagraph := Page.AddParagraph();
|
|
CurParagraph.Style := Vec.StyleTextBody;
|
|
CurParagraph.AddText('Author: ');
|
|
CurParagraph.AddField(vfkAuthor);
|
|
|
|
CurParagraph := Page.AddParagraph();
|
|
CurParagraph.Style := Vec.StyleTextBody;
|
|
CurParagraph.AddText('Date Created: ');
|
|
CurParagraph.AddField(vfkDateCreated);
|
|
|
|
CurParagraph := Page.AddParagraph();
|
|
CurParagraph.Style := Vec.StyleTextBody;
|
|
CurParagraph.AddText('Date: ');
|
|
CurParagraph.AddField(vfkDate);
|
|
|
|
// Add a simple heading
|
|
CurParagraph := Page.AddParagraph();
|
|
CurParagraph.Style := Vec.StyleHeading2;
|
|
CurText := CurParagraph.AddText('Testing Lists');
|
|
|
|
// Indented numbered List
|
|
List := Page.AddList();
|
|
List.Style := ListParaStyle;
|
|
List.ListStyle := Vec.StyleNumberList;
|
|
|
|
List.AddParagraph('Level 1, Item 1');
|
|
List.AddParagraph('Level 1, Item 2');
|
|
List.AddParagraph('Level 1, Item 3');
|
|
|
|
SubList := List.AddList;
|
|
SubList.AddParagraph('Level 2, Item 1');
|
|
SubList.AddParagraph('Level 2, Item 2');
|
|
SubList.AddParagraph('Level 2, Item 3');
|
|
|
|
With SubList.AddList Do
|
|
begin
|
|
AddParagraph('Level 3, Item 1');
|
|
AddParagraph('Level 3, Item 2');
|
|
AddParagraph('Level 3, Item 3');
|
|
end;
|
|
|
|
SubList := List.AddList;
|
|
SubList.AddParagraph('Level 2, Item 1 (new SubList added to same upper List)');
|
|
SubList.AddParagraph('Level 2, Item 2 (new SubList added to same upper List)');
|
|
SubList.AddParagraph('Level 2, Item 3 (new SubList added to same upper List)');
|
|
|
|
SubList := SubList.AddList;
|
|
SubList.AddParagraph('Level 3, Item 1');
|
|
SubList.AddParagraph('Level 3, Item 2');
|
|
SubList.AddParagraph('Level 3, Item 3');
|
|
|
|
List.AddParagraph('Level 1, Item 1 (Continuing on from same upper list)');
|
|
List.AddParagraph('Level 1, Item 2 (Continuing on from same upper list)');
|
|
List.AddParagraph('Level 1, Item 3 (Continuing on from same upper list)');
|
|
|
|
SubList := List.AddList;
|
|
SubList.ListStyle := Vec.StyleBulletList;
|
|
SubList.AddParagraph('Bullet Level 2, Item 1 (new SubList added to same upper List)');
|
|
SubList.AddParagraph('Bullet Level 2, Item 2 (new SubList added to same upper List)');
|
|
SubList.AddParagraph('Bullet Level 2, Item 3 (new SubList added to same upper List)');
|
|
|
|
// Third page sequence
|
|
Page := Vec.AddTextPageSequence();
|
|
Page.Height := 297; // back to Portrait
|
|
Page.Width := 210;
|
|
|
|
// Set the Header
|
|
CurParagraph := Page.Header.AddParagraph;
|
|
CurParagraph.Style := CenterParagraphStyle;
|
|
CurParagraph.AddText('Testing Tables').Style := BoldTextStyle;
|
|
|
|
// Title
|
|
CurParagraph := Page.AddParagraph();
|
|
CurParagraph.Style := Vec.StyleHeading2;
|
|
CurParagraph.AddText('Manual Table');
|
|
|
|
CurTable := Page.AddTable;
|
|
CurTable.PreferredWidth := Dimension(100, dimPercent);
|
|
|
|
CurTable.CellSpacing := 0;
|
|
CurTable.Borders.Left.Width := 2 * ONE_POINT_IN_MM;
|
|
CurTable.Borders.Right.Width := 2 * ONE_POINT_IN_MM;
|
|
CurTable.Borders.Top.Width := 2 * ONE_POINT_IN_MM;
|
|
CurTable.Borders.Bottom.Width := 2 * ONE_POINT_IN_MM;
|
|
CurTable.Borders.InsideHoriz.LineType:=tbtSingle;
|
|
CurTable.Borders.InsideVert.LineType :=tbtDashed;
|
|
|
|
CurRow := CurTable.AddRow;
|
|
CurRow.BackgroundColor := RGBToFPColor(192, 192, 192);
|
|
CurRow.Header := True;
|
|
|
|
CurCell := CurRow.AddCell;
|
|
CurParagraph := CurCell.AddParagraph;
|
|
CurParagraph.AddText('First Cell, First Row');
|
|
|
|
CurCell := CurRow.AddCell;
|
|
CurParagraph := CurCell.AddParagraph;
|
|
CurParagraph.AddText('Second Cell, First Row');
|
|
|
|
CurCell := CurRow.AddCell;
|
|
CurParagraph := CurCell.AddParagraph;
|
|
CurParagraph.AddText('Third Cell, First Row');
|
|
|
|
CurRow := CurTable.AddRow;
|
|
CurRow.CellSpacing := ONE_POINT_IN_MM;
|
|
CurCell := CurRow.AddCell;
|
|
CurParagraph := CurCell.AddParagraph;
|
|
CurParagraph.AddText('First Cell, Second Row');
|
|
|
|
CurCell := CurRow.AddCell;
|
|
CurCell.Borders.Left.LineType := tbtDouble;
|
|
CurCell.Borders.Left.Color := RGBToFPColor(255, 0, 0);
|
|
CurCell.Borders.Right.LineType := tbtDouble;
|
|
CurCell.Borders.Right.Color := RGBToFPColor(255, 0, 0);
|
|
CurCell.Borders.Top.LineType := tbtDouble;
|
|
CurCell.Borders.Top.Color := RGBToFPColor(255, 0, 0);
|
|
CurCell.Borders.Bottom.LineType := tbtDouble;
|
|
CurCell.Borders.Bottom.Color := RGBToFPColor(255, 0, 0);
|
|
|
|
CurCell.VerticalAlignment:=vaCenter;
|
|
|
|
CurParagraph := CurCell.AddParagraph;
|
|
CurParagraph.Style := CenterParagraphStyle;
|
|
CurParagraph.AddText('Second Cell, Second Row'+#13+'This should have a red double border');
|
|
|
|
CurCell := CurRow.AddCell;
|
|
CurParagraph := CurCell.AddParagraph;
|
|
CurParagraph.AddText('Third Cell, Second Row');
|
|
|
|
CurRow := CurTable.AddRow;
|
|
CurCell := CurRow.AddCell;
|
|
CurParagraph := CurCell.AddParagraph;
|
|
CurParagraph.AddText('First Cell, Third Row');
|
|
|
|
CurCell := CurRow.AddCell;
|
|
CurParagraph := CurCell.AddParagraph;
|
|
CurParagraph.AddText('Second Cell, Third Row');
|
|
|
|
CurCell := CurRow.AddCell;
|
|
CurParagraph := CurCell.AddParagraph;
|
|
CurParagraph.AddText('Third Cell, Third Row');
|
|
|
|
// Style for Subsequent Tables
|
|
Center2 := Vec.AddStyle();
|
|
Center2.Name := 'Table Body Centered';
|
|
Center2.Font.Name := 'Verdana';
|
|
Center2.Font.Size := 8;
|
|
Center2.Alignment := vsaCenter;
|
|
Center2.MarginTop:=2*ONE_POINT_IN_MM;
|
|
Center2.MarginBottom:=2*ONE_POINT_IN_MM;
|
|
Center2.SetElements := [spbfFontSize, spbfFontName, spbfAlignment, sseMarginTop, sseMarginBottom];
|
|
|
|
// Title
|
|
CurParagraph := Page.AddParagraph();
|
|
CurParagraph := Page.AddParagraph();
|
|
CurParagraph.Style := Vec.StyleHeading2;
|
|
CurParagraph.AddText('Coded Table #1');
|
|
|
|
// Second Table
|
|
CurTable := Page.AddTable;
|
|
CurTable.PreferredWidth := Dimension(100, dimPercent);
|
|
|
|
For i := 0 To 20 do
|
|
Begin
|
|
CurRow := CurTable.AddRow;
|
|
|
|
// Header Row
|
|
If i=0 Then
|
|
Begin
|
|
CurRow.BackgroundColor := RGBToFPColor(192, 192, 192);
|
|
CurRow.Header := True;
|
|
end;
|
|
|
|
for j := 0 to 4 Do
|
|
begin
|
|
CurCell := CurRow.AddCell;
|
|
|
|
CurParagraph := CurCell.AddParagraph;
|
|
CurParagraph.Style := Center2;
|
|
|
|
If i=0 Then
|
|
CurParagraph.AddText(Format('Header %d', [j])).Style := BoldTextStyle
|
|
Else
|
|
CurParagraph.AddText(Format('%d x %d', [i, j]));
|
|
end;
|
|
end;
|
|
|
|
CurParagraph := Page.AddParagraph();
|
|
CurParagraph := Page.AddParagraph();
|
|
CurParagraph.Style := Vec.StyleHeading2;
|
|
CurParagraph.AddText('Coded Table #2');
|
|
|
|
// Third Table
|
|
CurTable := Page.AddTable;
|
|
CurTable.PreferredWidth := Dimension(100, dimPercent);
|
|
|
|
CurTable.ColWidthsUnits:=dimMillimeter;
|
|
CurTable.AddColWidth(15);
|
|
CurTable.AddColWidth(20);
|
|
CurTable.AddColWidth(20);
|
|
CurTable.AddColWidth(20);
|
|
CurTable.AddColWidth(79.5); // For Word (and possibly odt), this only has to be close.
|
|
// Table.Width=100% means last col is autocalculated
|
|
// Added a close value for other renderers such as Wordpad that
|
|
// might not support the autocalculation
|
|
|
|
// Header Row
|
|
CurRow := CurTable.AddRow;
|
|
|
|
CurRow.BackgroundColor := RGBToFPColor($64, $95, $ED);
|
|
CurRow.Header := True;
|
|
|
|
for j := 0 to 4 Do
|
|
begin
|
|
CurCell := CurRow.AddCell;
|
|
|
|
CurParagraph := CurCell.AddParagraph;
|
|
CurParagraph.Style := Center2;
|
|
|
|
CurParagraph.AddText(Format('Header %d', [j])).Style := BoldTextStyle
|
|
End;
|
|
|
|
// Data Rows
|
|
For i := 1 To 20 do
|
|
Begin
|
|
CurRow := CurTable.AddRow;
|
|
|
|
if (i Mod 2 = 1) Then
|
|
CurRow.BackgroundColor := RGBToFPColor(224, 224, 224);
|
|
|
|
If (i mod 5 <> 1) Then
|
|
iMax := 4
|
|
Else
|
|
//iMax := 4;
|
|
iMax := 3;
|
|
|
|
for j := 0 to iMax Do
|
|
begin
|
|
CurCell := CurRow.AddCell;
|
|
|
|
CurParagraph := CurCell.AddParagraph;
|
|
CurParagraph.Style := Center2;
|
|
|
|
If (iMax=3) And (j=3) Then
|
|
Begin
|
|
CurCell.SpannedCols := 2;
|
|
CurParagraph.AddText(Format('Merged Cells (%d x %d) & (%d x %d)', [i, j, i, j+1]));
|
|
end
|
|
Else
|
|
CurParagraph.AddText(Format('(%d x %d)', [i, j]));
|
|
end;
|
|
end;
|
|
(*
|
|
// Fourth page sequence
|
|
Page := Vec.AddTextPageSequence();
|
|
Page.Height := 297;
|
|
Page.Width := 210;
|
|
|
|
// Set the Header
|
|
CurParagraph := Page.Header.AddParagraph;
|
|
CurParagraph.Style := CenterParagraphStyle;
|
|
CurParagraph.AddText('Testing Images').Style := BoldTextStyle;
|
|
|
|
// Title
|
|
CurParagraph := Page.AddParagraph();
|
|
CurParagraph.Style := Vec.StyleHeading2;
|
|
CurParagraph.AddText('Image 1');
|
|
*)
|
|
|
|
dtTime := Now;
|
|
Vec.WriteToFile('text_output_docx', vfDOCX);
|
|
|
|
WriteLn('Native docx writer: '+Format('%.1f msec', [24*60*60*1000*(Now-dtTime)]));
|
|
dtTime := Now;
|
|
|
|
Vec.WriteToFile('text_output_odt', vfODT);
|
|
|
|
WriteLn('Native odt writer: '+Format('%.1f msec', [24*60*60*1000*(Now-dtTime)]));
|
|
Finally
|
|
Vec.Free;
|
|
End;
|
|
End.
|