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

fpvectorial: AutoFit partially working for text documents

Browse Source 
git-svn-id: trunk@51509 -
This commit is contained in:
sekelsenmat 2016-02-06 10:01:33 +00:00
parent bafc1b8950
commit 0b42d24072
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/fpvectorial/fpvectorial.pas
View File

@ -8421,7 +8421,7 @@ begin
if not CalculateAllEntitySizes() then Exit;
ADeltaX := Round(-1 * lMinX) + AWidth div 2 - lWidth div 2;
ADeltaY := Round(-1 * lMinY) + (AHeight div 2 - lHeight div 2);// * Round(lNaturalMulY);
ADeltaY := Round(-1 * lMinY) + (AHeight div 2 - lHeight div 2);
{$ifdef FPVECTORIAL_RENDERINFO_VISUALDEBUG}
ADest.Brush.Style := bsClear;
@ -9339,12 +9339,13 @@ var
CurY_px: Integer = 0;
lHeight_px: Integer;
lBoundsLeft, lBoundsTop, lBoundsRight, lBoundsBottom: Double;
lSumRenderInfo: TvRenderInfo;
begin
{$ifdef FPVECTORIAL_TOCANVAS_DEBUG}
WriteLn(':>TvTextPageSequence.Render');
{$endif}
CurY_px := ADestY;
TvEntity.InitializeRenderInfo(RenderInfo);
TvEntity.InitializeRenderInfo(lSumRenderInfo);
for i := 0 to GetEntitiesCount - 1 do
begin
@ -9364,8 +9365,14 @@ begin
CurEntity.Y := CurY_px;
lHeight_px := Abs(RenderInfo.EntityCanvasMaxXY.Y - RenderInfo.EntityCanvasMinXY.Y);
CurY_px := CurY_px + lHeight_px;
TvEntity.CalcEntityCanvasMinMaxXY_With2Points(lSumRenderInfo,
RenderInfo.EntityCanvasMinXY.X, RenderInfo.EntityCanvasMinXY.Y,
RenderInfo.EntityCanvasMaxXY.X, RenderInfo.EntityCanvasMaxXY.Y);
end;
RenderInfo := lSumRenderInfo;
{$ifdef FPVECTORIAL_TOCANVAS_DEBUG}
WriteLn(':<TvTextPageSequence.Render');
{$endif}