You are not logged in.
Pages: 1
Hi,
I just found this site. G R E A T E
I tried it out and have only one problem
I work in Hebrew.
When rendering a metafile the wording appears inverted.
ABCD in the MetaFile appears as DCBA in the PDF
The code
procedure TForm1.AmnonClick(Sender: TObject);
var
_MetaFile:tMetaFile;
i:integer;
begin
_MetaFile:= tMetaFile.create;
with TPdfDocumentGDI.Create do begin
try
Canvas.RightToLeftText:= true;
ScreenLogPixels:= 300;
for n:= 1 to 1 do begin
_MetaFile.LoadFromFile(format('f:\EMF%d.emf',[n]));
with AddPage do begin
Canvas.RenderMetaFile(_MetaFile);
end;
SaveToFile('f:\Syntest.pdf');
end;
finally
free;
end;
end;
end;
Please advice how I can attach files. I'd like to attach the EMf+PDF files
thanks
Offline
Thanks for answering so fast.
I enabled UniScribe.
see in my code
Canvas.RightToLeftText:= true;
could not compile otherwise
Offline
Hi again,
I debuged then component
After changing line 7798 in SynPDF the problem was solved
Canvas.RightToLeftText := true;// R.emrtext.fOptions and ETO_RTLREADING<>0;
Thanks VERY much
Offline
I'm sorry for delay. I was too busy.
I have no idea what's the problem. and I was under time pressure to get results.
When working with left to write language the conditionals will take care of the user. The code is not generated at all.
Apropos, did anyone prepare a dll so the functionality will be usable in delphi 5 or any other language?
Offline
Pages: 1