paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 05:36:22 +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; 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; ADestY: Integer = 0; AMulX: Double = 1.0; AMulY: Double = 1.0; ADoDraw: Boolean = True); override;
//function GetEntityFeatures: TvEntityFeatures; override; //function GetEntityFeatures: TvEntityFeatures; override;
//function GenerateDebugTree(ADestRoutine: TvDebugAddItemProc; APageItem: Pointer): Pointer; override; function GenerateDebugTree(ADestRoutine: TvDebugAddItemProc; APageItem: Pointer): Pointer; override;
end; end;
TvFieldKind = (vfkNumPages, vfkPage, vfkAuthor, vfkDateCreated, vfkDate); TvFieldKind = (vfkNumPages, vfkPage, vfkAuthor, vfkDateCreated, vfkDate);
@ -1340,7 +1340,7 @@ type
{ Data removing methods } { Data removing methods }
procedure Clear; virtual; procedure Clear; virtual;
{ Debug methods } { Debug methods }
procedure GenerateDebugTree(ADestRoutine: TvDebugAddItemProc); procedure GenerateDebugTree(ADestRoutine: TvDebugAddItemProc; APageItem: Pointer = nil);
{ Events } { Events }
property OnProgress: TvProgressEvent read FOnProgress write FOnprogress; property OnProgress: TvProgressEvent read FOnProgress write FOnprogress;
end; end;
@ -2424,6 +2424,7 @@ function TvEmbeddedVectorialDoc.GenerateDebugTree(
ADestRoutine: TvDebugAddItemProc; APageItem: Pointer): Pointer; ADestRoutine: TvDebugAddItemProc; APageItem: Pointer): Pointer;
begin begin
Result:=inherited GenerateDebugTree(ADestRoutine, APageItem); Result:=inherited GenerateDebugTree(ADestRoutine, APageItem);
Document.GenerateDebugTree(ADestRoutine, Result);
end; end;
{ TvTableRow } { TvTableRow }
@ -4316,6 +4317,14 @@ begin
end; end;
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 } { TvField }
constructor TvField.Create(APage: TvPage); constructor TvField.Create(APage: TvPage);
@ -8392,7 +8401,7 @@ begin
FCurrentPageIndex:=-1; FCurrentPageIndex:=-1;
end; end;
procedure TvVectorialDocument.GenerateDebugTree(ADestRoutine: TvDebugAddItemProc); procedure TvVectorialDocument.GenerateDebugTree(ADestRoutine: TvDebugAddItemProc; APageItem: Pointer);
var var
i: integer; i: integer;
p: TvPage; p: TvPage;
@ -8402,7 +8411,7 @@ begin
begin begin
p := TvPage(FPages[i]); p := TvPage(FPages[i]);
lPageItem := ADestRoutine(Format('Page %d Width=%f Height=%f MinX=%f MaxX=%f MinY=%f MaxY=%f', 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); p.GenerateDebugTree(ADestRoutine, lPageItem);
end; end;
end; end;