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

fpvectorial: Better debug info for autofit

Browse Source 
git-svn-id: trunk@51495 -
This commit is contained in:
sekelsenmat 2016-02-04 09:05:45 +00:00
parent fa04e5624c
commit ba60e2ea50
1 changed files with 19 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
components/fpvectorial/fpvectorial.pas
View File

@ -1679,6 +1679,11 @@ const
INVALID_RENDERINFO_CANVAS_XY = Low(Integer); INVALID_RENDERINFO_CANVAS_XY = Low(Integer);
Str_Line_Height_Tester = 'Áç'; Str_Line_Height_Tester = 'Áç';
{$ifdef FPVECTORIAL_AUTOFIT_DEBUG}
var
AutoFitDebug: TStrings = nil;
{$endif}
{@@ {@@
Registers a new reader for a format Registers a new reader for a format
} }
@ -4611,6 +4616,9 @@ begin
y2 := -MaxInt; y2 := -MaxInt;
for i := 0 to High(FPolyPoints) do for i := 0 to High(FPolyPoints) do
begin begin
{$ifdef FPVECTORIAL_AUTOFIT_DEBUG}
if AutoFitDebug <> nil then AutoFitDebug.Add(Format('==[%d=%d]', [FPolyPoints[i].X, FPolyPoints[i].Y]));
{$endif}
x1 := min(x1, FPolyPoints[i].X); x1 := min(x1, FPolyPoints[i].X);
y1 := min(y1, FPolyPoints[i].Y); y1 := min(y1, FPolyPoints[i].Y);
x2 := max(x2, FPolyPoints[i].X); x2 := max(x2, FPolyPoints[i].X);
@ -7600,6 +7608,12 @@ begin
ARenderInfo.EntityCanvasMaxXY.Y ARenderInfo.EntityCanvasMaxXY.Y
); );
{$ifdef FPVECTORIAL_AUTOFIT_DEBUG}
if AutoFitDebug <> nil then AutoFitDebug.Add(Format('=[%s] MinX=%d MinY=%d MaxX=%d MaxY=%d',
[lEntity.ClassName, ARenderInfo.EntityCanvasMinXY.X, ARenderInfo.EntityCanvasMinXY.Y,
ARenderInfo.EntityCanvasMaxXY.X, ARenderInfo.EntityCanvasMaxXY.Y]));
{$endif}
lEntity := GetNextEntity(); lEntity := GetNextEntity();
end; end;
@ -9068,12 +9082,9 @@ var
lLeft, lTop, lWidth, lHeight: Integer; lLeft, lTop, lWidth, lHeight: Integer;
lMinX, lMinY, lMaxX, lMaxY: Integer; lMinX, lMinY, lMaxX, lMaxY: Integer;
lZoomFitX, lZoomFitY: Double; lZoomFitX, lZoomFitY: Double;
{$ifdef FPVECTORIAL_AUTOFIT_DEBUG}
lStrings: TStrings;
{$endif}
begin begin
{$ifdef FPVECTORIAL_AUTOFIT_DEBUG} {$ifdef FPVECTORIAL_AUTOFIT_DEBUG}
lStrings := TStringList.Create; AutoFitDebug := TStringList.Create;
try try
{$endif} {$endif}
ADeltaX := 0; ADeltaX := 0;
@ -9095,7 +9106,7 @@ begin
lMaxY := Max(lMaxY, lTop + lHeight); lMaxY := Max(lMaxY, lTop + lHeight);
end; end;
{$ifdef FPVECTORIAL_AUTOFIT_DEBUG} {$ifdef FPVECTORIAL_AUTOFIT_DEBUG}
lStrings.Add(Format('[%s] MinX=%d MinY=%d MaxX=%d MaxY=%D', [lCurEntity.ClassName, lMinX, lMinY, lMaxX, lMaxY])); AutoFitDebug.Add(Format('[%s] MinX=%d MinY=%d MaxX=%d MaxY=%D', [lCurEntity.ClassName, lMinX, lMinY, lMaxX, lMaxY]));
{$endif} {$endif}
end; end;
@ -9115,8 +9126,9 @@ begin
ADeltaY += Round(-1.05 * AZoom * lHeight); ADeltaY += Round(-1.05 * AZoom * lHeight);
{$ifdef FPVECTORIAL_AUTOFIT_DEBUG} {$ifdef FPVECTORIAL_AUTOFIT_DEBUG}
finally finally
lStrings.SaveToFile('H:\autofit.txt'); AutoFitDebug.SaveToFile('C:\Programas\autofit.txt');
lStrings.Free; AutoFitDebug.Free;
AutoFitDebug := nil;
end; end;
{$endif} {$endif}
end; end;