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

fpvectorial: Improves debug info

Browse Source 
git-svn-id: trunk@48995 -
This commit is contained in:
sekelsenmat 2015-05-12 10:36:04 +00:00
parent e67cae9ede
commit 7fb90a54f9
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/fpvectorial/fpvectorial.pas
View File

@ -602,7 +602,7 @@ type
procedure Render(ADest: TFPCustomCanvas; var ARenderInfo: TvRenderInfo; ADestX: Integer = 0;
ADestY: Integer = 0; AMulX: Double = 1.0; AMulY: Double = 1.0; ADoDraw: Boolean = True); override;
//function GetEntityFeatures: TvEntityFeatures; override;
//function GenerateDebugTree(ADestRoutine: TvDebugAddItemProc; APageItem: Pointer): Pointer; override;
function GenerateDebugTree(ADestRoutine: TvDebugAddItemProc; APageItem: Pointer): Pointer; override;
end;
TvFieldKind = (vfkNumPages, vfkPage, vfkAuthor, vfkDateCreated, vfkDate);
@ -1340,7 +1340,7 @@ type
{ Data removing methods }
procedure Clear; virtual;
{ Debug methods }
procedure GenerateDebugTree(ADestRoutine: TvDebugAddItemProc);
procedure GenerateDebugTree(ADestRoutine: TvDebugAddItemProc; APageItem: Pointer = nil);
{ Events }
property OnProgress: TvProgressEvent read FOnProgress write FOnprogress;
end;
@ -2424,6 +2424,7 @@ function TvEmbeddedVectorialDoc.GenerateDebugTree(
ADestRoutine: TvDebugAddItemProc; APageItem: Pointer): Pointer;
begin
Result:=inherited GenerateDebugTree(ADestRoutine, APageItem);
Document.GenerateDebugTree(ADestRoutine, Result);
end;
{ TvTableRow }
@ -4316,6 +4317,14 @@ begin
end;
end;
function TvCurvedText.GenerateDebugTree(ADestRoutine: TvDebugAddItemProc;
APageItem: Pointer): Pointer;
begin
Result:=inherited GenerateDebugTree(ADestRoutine, APageItem);
if Path <> nil then
Path.GenerateDebugTree(ADestRoutine, Result);
end;
{ TvField }
constructor TvField.Create(APage: TvPage);
@ -8392,7 +8401,7 @@ begin
FCurrentPageIndex:=-1;
end;
procedure TvVectorialDocument.GenerateDebugTree(ADestRoutine: TvDebugAddItemProc);
procedure TvVectorialDocument.GenerateDebugTree(ADestRoutine: TvDebugAddItemProc; APageItem: Pointer);
var
i: integer;
p: TvPage;
@ -8402,7 +8411,7 @@ begin
begin
p := TvPage(FPages[i]);
lPageItem := ADestRoutine(Format('Page %d Width=%f Height=%f MinX=%f MaxX=%f MinY=%f MaxY=%f',
[i, p.Width, p.Height, p.MinX, p.MaxX, p.MinY, p.MaxY]), nil);
[i, p.Width, p.Height, p.MinX, p.MaxX, p.MinY, p.MaxY]), APageItem);
p.GenerateDebugTree(ADestRoutine, lPageItem);
end;
end;