Page 1 of 1
SaveToPDFFile with Tabs and underlines
Posted: Mon Jan 13, 2014 9:33 am
by medstar
Hi!
We're using SaveToPDFFile from a RichView control:
Given this RTF Source Code (just one line with a tab character and the whole line is underlined; the second line has no underlinings)
{\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\fnil\fcharset0 Arial;}}
{\*\generator Msftedit 5.41.21.2510;}\viewkind4\uc1\pard\lang3079\ul\fs20 t\tab test\ulnone\par
nix\par
}
and issuing SaveToPDF, de resulting PDF file contains the underlined text as it should, but the underlined tab character is printed way off (it seems the paper margins are not calculated properly)
I am looking forward to any pointers into the right direction.
Stefan
Posted: Mon Jan 13, 2014 3:06 pm
by Sergey Tkachenko
1. Make sure that you have the newest version of TRichView
2. Open RV_Defs.inc and remove the dot from the line
{$DEFINE RVUSEBASELINE}
Recompile your application.
If the steps below did not help, the problem is most probably in the PDF generation tool. Which one do you use (I forget what SaveToPDFFile is)?
Posted: Mon Jan 13, 2014 4:07 pm
by medstar
Hi!
just read your replyafter finding a potential fix for that issue. The problem is, that in PtRVData.pas for painting nontext items, the page offset is not respected.
After DrawItemBorder, I introduced and changed the following lines
Code: Select all
GetRVStyle.GraphicInterface.GetWindowOrgEx(Canvas, WinOrg);
item.Print(Canvas, dli.ObjectLeft+LeftOffs-WinOrg.X, FItemTop-WinOrg.Y,0, Preview, Correction, sad, nil, dli, part, GetColorMode, Self);
The question is, if and where this code might be harmful...
I have to leave the office now, but I will check your suggestions tomorrow.
Thanks Sergey!
Posted: Tue Jan 14, 2014 10:33 am
by medstar
No, the advice didn't help.
I used the current trial version to compile this piece of code:
Code: Select all
uses RichView, RVEdit, RVStyle, trvpdf;
(...)
with TRichViewEdit.Create(self) do
begin
Style := TRVStyle.Create(self);
Top := 0;
Left := 0;
Width := 400;
Height := 200;
Parent := self;
RTFReadProperties.TextStyleMode := rvrsAddIfNeeded;
LoadRTF('C:\temp\tot1.rtf');
With TRichViewPDF.Create(nil) do
try
AutoLaunch := false;
CreateOutLines := true;
SaveToPDFFile('C:\temp\tot1.rtf', 'C:\temp\tot1.pdf',50,50,50,50,'','');
finally
try
Free;
except
end;
end;
end;
tot1.rtf is the RTF file posted yesterday.
The current version still draws the underlines wrong.
With our version (13.13.5 according to readme.txt), changing the compiler symbol doesn't have any effect).
Could you look into this, if my yesterday's suggestion breaks other things? (There should be a +1 with both WinOrg-coordinates)
Stefan
p.s.: If there are tables in an RTF, the borders are also way off. There's a workaround here, if you're interested - I'd have to create a diff, first.
Posted: Wed Jan 15, 2014 6:43 pm
by Sergey Tkachenko
I forget what is SaveToPDF. Which PDF components do you use?
Probably you use PDF generation tool that cannot handle window/viewport offsets correctly. In this case, I suggest to use another PDF components rather than compensate its problems in TRichView code.