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

fpvectorial: Improves the code to calculate the document size, adds bounding box calc for polygons

Browse Source 
git-svn-id: trunk@42904 -
This commit is contained in:
sekelsenmat 2013-09-20 13:32:16 +00:00
parent b7fa314db3
commit 526b5ca7d6
1 changed files with 51 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
components/fpvectorial/fpvectorial.pas
View File

@ -554,6 +554,7 @@ type
Text: string;
// All points of the polygon
Points: array of T3DPoint;
procedure CalculateBoundingBox(ADest: TFPCustomCanvas; var ALeft, ATop, ARight, ABottom: Double); override;
procedure Render(ADest: TFPCustomCanvas; ARenderInfo: TvRenderInfo; ADestX: Integer = 0;
ADestY: Integer = 0; AMulX: Double = 1.0; AMulY: Double = 1.0); override;
end;
@ -1131,11 +1132,18 @@ type
protected
FOwner: TvVectorialDocument;
public
// Document size for page-based documents
Width, Height: Double; // in millimeters, may be 0 to use TvVectorialDocument defaults
// Document size for other documents
MinX, MinY, MinZ, MaxX, MaxY, MaxZ: Double;
// Other basic document information
BackgroundColor: TFPColor;
{ Base methods }
constructor Create(AOwner: TvVectorialDocument); virtual;
destructor Destroy; override;
procedure Assign(ASource: TvPage); virtual;
{ Data reading methods }
procedure CalculateDocumentSize; virtual;
function GetEntity(ANum: Cardinal): TvEntity; virtual; abstract;
function GetEntitiesCount: Integer; virtual; abstract;
function GetLastEntity(): TvEntity; virtual; abstract;
@ -1165,12 +1173,6 @@ type
procedure AppendSegmentToTmpPath(ASegment: TPathSegment);
procedure CallbackDeleteEntity(data,arg:pointer);
public
// Document size for page-based documents
Width, Height: Double; // in millimeters
// Document size for other documents
MinX, MinY, MinZ, MaxX, MaxY, MaxZ: Double;
//
BackgroundColor: TFPColor;
RenderInfo: TvRenderInfo; // Prepared by the reader with info on how to draw the page
//
Owner: TvVectorialDocument;
@ -1247,7 +1249,6 @@ type
TvTextPageSequence = class(TvPage)
public
Width, Height: Double; // in millimeters, may be 0 to use TvVectorialDocument defaults
Footer, Header: TvRichText;
MainText: TvRichText;
{ Base methods }
@ -3288,6 +3289,21 @@ end;
{ TvPolygon }
procedure TvPolygon.CalculateBoundingBox(ADest: TFPCustomCanvas; var ALeft,
ATop, ARight, ABottom: Double);
var
i: Integer;
begin
inherited CalculateBoundingBox(ADest, ALeft, ATop, ARight, ABottom);
for i := 0 to Length(Points)-1 do
begin
ALeft := Min(ALeft, Points[i].X);
ATop := Min(ATop, Points[i].Y);
ARight := Max(ARight, Points[i].X);
ABottom := Max(ABottom, Points[i].Y);
end;
end;
procedure TvPolygon.Render(ADest: TFPCustomCanvas; ARenderInfo: TvRenderInfo;
ADestX: Integer; ADestY: Integer; AMulX: Double; AMulY: Double);
@ -4807,6 +4823,34 @@ begin
end;
procedure TvPage.CalculateDocumentSize;
var
i: Integer;
lCurEntity: TvEntity;
lLeft, lTop, lRight, lBottom: Double;
lBmp: TBitmap;
begin
MinX := 0;
MinY := 0;
MinZ := 0;
MaxX := 0;
MaxY := 0;
MaxZ := 0;
lBmp := TBitmap.Create;
for i := 0 to GetEntitiesCount() -1 do
begin
lCurEntity := GetEntity(i);
lCurEntity.CalculateBoundingBox(lBmp.Canvas, lLeft, lTop, lRight, lBottom);
MinX := Min(MinX, lLeft);
MinY := Min(MinY, lTop);
MaxX := Max(MaxX, lRight);
MaxY := Max(MaxY, lBottom);
end;
lBmp.Free;
Width := MaxX - MinX;
Height := MaxY - MinY;
end;
{ TvVectorialPage }
procedure TvVectorialPage.ClearTmpPath;