paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 17:19:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpvectorial: Starts adding support for styles

Browse Source 
git-svn-id: trunk@42245 -
This commit is contained in:
sekelsenmat 2013-07-31 05:07:33 +00:00
parent 45db0258ac
commit e9a3b8461f
2 changed files with 90 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/fpvectorial/examples/fpvtextwritetest.pas
View File

@ -12,24 +12,24 @@ program fpvtextwritetest;
uses
fpvectorial, odtvectorialwriter, fpvutils, fpvectorialpkg;
{$R *.res}
var
Vec: TvVectorialDocument;
Page: TvTextPageSequence;
{$R *.res}
CurParagraph: TvRichText;
begin
Vec := TvVectorialDocument.Create;
try
// A4 -> 210mm x 297mm
Vec.Width := 210;
Vec.Height := 297;
Page := Vec.AddTextPageSequence();
Vec.AddStandardTextDocumentStyles();
// First page sequence
{Page.StartPath(0, 20);
Page.AddLineToPath(30, 30);
Page.EndPath();}
Page := Vec.AddTextPageSequence();
CurParagraph := Page.AddParagraph();
Vec.WriteToFile('text_output.odt', vfODT);
finally

84
components/fpvectorial/fpvectorial.pas
View File

@ -132,10 +132,20 @@ type
TvSetPenBrushAndFontElement = (
spbfPenColor, spbfPenStyle, spbfPenWidth,
spbfBrushColor, spbfBrushStyle, spbfBrushGradient,
spbfFontColor, spbfFontSize
spbfFontColor, spbfFontSize, spbfFontName, spbfFontBold, spbfFontItalic
);
TvSetPenBrushAndFontElements = set of TvSetPenBrushAndFontElement;
TvStyle = class
Name: string;
Pen: TvPen;
Brush: TvBrush;
Font: TvFont;
SetElements: TvSetPenBrushAndFontElements;
//
MarginTop, MarginBottom, MarginLeft, MarginRight: Double; // in mm
end;
{ Coordinates and polyline segments }
T3DPoint = record
@ -770,8 +780,10 @@ type
public
Width, Height: Double;
AutoExpand: TvRichTextAutoExpand;
Style: string;
constructor Create; override;
destructor Destroy; override;
function AddText: TvText;
function TryToSelect(APos: TPoint; var ASubpart: Cardinal): TvFindEntityResult; override;
procedure Render(ADest: TFPCustomCanvas; ARenderInfo: TvRenderInfo; ADestX: Integer = 0;
ADestY: Integer = 0; AMulX: Double = 1.0; AMulY: Double = 1.0); override;
@ -784,6 +796,7 @@ type
private
FOnProgress: TvProgressEvent;
FPages: TFPList;
FStyles: TFPList;
FCurrentPageIndex: Integer;
function CreateVectorialWriter(AFormat: TvVectorialFormat): TvCustomVectorialWriter;
function CreateVectorialReader(AFormat: TvVectorialFormat): TvCustomVectorialReader;
@ -820,6 +833,11 @@ type
procedure SetCurrentPage(AIndex: Integer);
function AddPage(): TvVectorialPage;
function AddTextPageSequence(): TvTextPageSequence;
{ Style methods }
function AddStyle(): TvStyle;
procedure AddStandardTextDocumentStyles;
function GetStyleCount: Integer;
function GetStyle(AIndex: Integer): TvStyle;
{ Data removing methods }
procedure Clear; virtual;
{ Debug methods }
@ -926,6 +944,8 @@ type
constructor Create(AOwner: TvVectorialDocument); override;
destructor Destroy; override;
procedure Assign(ASource: TvVectorialPage); override;
{ Data writing methods }
function AddParagraph: TvRichText;
end;
{@@ TvVectorialReader class reference type }
@ -3960,6 +3980,12 @@ begin
inherited Destroy;
end;
function TvRichText.AddText: TvText;
begin
Result := TvText.Create;
AddEntity(Result);
end;
function TvRichText.TryToSelect(APos: TPoint; var ASubpart: Cardinal
): TvFindEntityResult;
begin
@ -4668,6 +4694,12 @@ begin
inherited Assign(ASource);
end;
function TvTextPageSequence.AddParagraph: TvRichText;
begin
Result := TvRichText.Create;
AddEntity(Result);
end;
{ TvVectorialDocument }
{@@
@ -4679,6 +4711,7 @@ begin
FPages := TFPList.Create;
FCurrentPageIndex := -1;
FStyles := TFPList.Create;
end;
{@@
@ -4690,6 +4723,8 @@ begin
FPages.Free;
FPages := nil;
FStyles.Free;
FStyles := nil;
inherited Destroy;
end;
@ -4971,6 +5006,53 @@ begin
if FCurrentPageIndex < 0 then FCurrentPageIndex := FPages.Count-1;
end;
function TvVectorialDocument.AddStyle: TvStyle;
begin
Result := TvStyle.Create;
FStyles.Add(Result);
end;
procedure TvVectorialDocument.AddStandardTextDocumentStyles;
var
lCurStyle: TvStyle;
begin
lCurStyle.Name := 'Text Body';
lCurStyle.Font.Size := 12;
lCurStyle.Font.Name := 'Times New Roman';
lCurStyle.MarginTop := 0;
lCurStyle.MarginBottom := 2.12;
lCurStyle.SetElements := [spbfFontSize, spbfFontName];
lCurStyle := AddStyle();
lCurStyle.Name := 'Heading 1';
lCurStyle.Font.Size := 16;
lCurStyle.Font.Name := 'Arial';
lCurStyle.Font.Bold := True;
lCurStyle.MarginTop := 4.23;
lCurStyle.MarginBottom := 2.12;
lCurStyle.MarginTop := 4.23;
lCurStyle.MarginBottom := 2.12;
lCurStyle.SetElements := [spbfFontSize, spbfFontName, spbfFontBold, spbfFontItalic];
lCurStyle := AddStyle();
lCurStyle.Name := 'Heading 2';
lCurStyle.Font.Size := 14;
lCurStyle.Font.Name := 'Arial';
lCurStyle.Font.Bold := True;
lCurStyle.Font.Italic := True;
lCurStyle.SetElements := [spbfFontSize, spbfFontName, spbfFontBold, spbfFontItalic];
end;
function TvVectorialDocument.GetStyleCount: Integer;
begin
Result := FStyles.Count;
end;
function TvVectorialDocument.GetStyle(AIndex: Integer): TvStyle;
begin
Result := TvStyle(FStyles.Items[AIndex]);
end;
{@@
Clears all data in the document
}