You are not logged in.
- Topics: Active | Unanswered
Pages: 1
#1 Re: PDF Engine » Printing Behavior » 2015-07-06 13:25:01
I am sorry, yes I was rude. I spent two days trying to understand why the printing was not behaving has it had so nicely in the past, then I found another similar issue from another user, and I am surprised that noone else had this issue. Then I had to untie synopse from my app to try another product, very frustrating, as Synopse had worked so well. I will surely try this suggestion! Thanks for the work
DK
#2 Re: PDF Engine » Printing Behavior » 2015-07-05 23:59:21
OK, I may be wrong. Having spent 2 days trying to understand this and having seen a bug report of spaces being printed incorrectly, (which I experienced also), and to see that this bug still exists, I must conclude that this component is not really being maintained. Sadly, it was working for me for a long time, but when I upgraded from delphi xe3 to xe8, I saw this behavior. Perhaps it will be fixed in future releases.
#3 PDF Engine » Printing Behavior » 2015-07-05 18:20:04
- dexterkeefer
- Replies: 3
Howdy
I have been using SYNPDF nicely in delphi XE3 for years. I have upgraded to XE8, and I am getting unpredictable printing behavior. Driving me crazy. Any ideas?
procedure MTestFont(MyCanvas: TCanvas; MyRect: TRect);
var
MyString: String;
DrawRect: TRect;
begin
MyString:='This is the fastest that anyone has ever traveled.';
MyCanvas.Font.Name:='Arial Narrow';
MyCanvas.Font.Size:=40;
DrawFlags:=DT_END_ELLIPSIS or DT_NOPREFIX or DT_WORDBREAK or DT_EDITCONTROL or DT_LEFT;
DrawText(MyCanvas.Handle, PChar(MyString), StrLen(PChar(MyString)), MyRect, DrawFlags);
end;
and in my main code I call as a test:
for MyCount := 0 to 6 do begin
MyRect.Left:=600;
MyRect.Top:=600+MyCount*100;
MyRect.Right:=1800;
MyRect.Bottom:=MyRect.Top+60;
MTestFont(Mycanvas, MyRect);
end;
The first line prints This is the fastest that anyone has ev...
followed by
This
This
This
This
This etc.
Any thoughts?
Thanks
Pages: 1