Beiträge von Redman

Just for your info I think the original choice for separate blocks was that these are legal docments and have to match close as possible to the real things.
So the application has the facility to place labels, lines, blocks of text etc. (As the users can match this to their own documents as well)

Add onto that information can be entered into these forms, if that information goes over a page, or outside the bounds of the box, then rather than flow onto the next page it is separated and placed in references at the end of the document.

The application is unfortunately beyond merging all the documents into an RTF form.

I saw that the printer is an option, and I will most likely give it a go. The only issues is client PC's may not have a printer. Has a user ever installed a default printer driver with their application to use as a baseline?

I have a Richtext field, that current is being drawn in a PDF, though different resolutions are effecting how it appears

procedure PrintToMetaFile(LineNum: Integer);
  const
    ADJUST_PIXELS = 2;
  var
  	MF: TMetafile;
    MFC: TMetafileCanvas;
    R: TRect;
    ActualHeight: Integer;
    LastLine: Integer;
  begin
    // Define the draw rect area (100% only).
    R.Left := LeftDots;
    R.Top := TopDots;
    R.Right := WidthDots + LeftDots;
    R.Bottom := HeightDots + TopDots;


  	// Create the metafile and set its dimensions.
		MF := TMetafile.Create;
    try
      MF.Height := HeightDots;
	    MF.Width := WidthDots;


      // Create the metafile canvas and draw to it.
	    MFC := TMetafileCanvas.Create(MF, Canvas.Handle);
			try
        // Draw the WPRichText at 100% zoom.
        MFC.Brush.Color := PrintColor;
        // HeightDots + 2 to ensure last line is printed. (Until such time as more accurate method can be used).
        ActualHeight := HeightDots + ADJUST_PIXELS;


        MFC.FillRect(Rect(0, 0, WidthDots, ActualHeight));


        // Get the last line that was printed in this clone.
        FLastLineNum:= WPC.Draw(MFC, 0, 0, MF.height, LineNum, 0) - 1;


			finally
      	// Freeing the metafile canvas actually saves it to the metafile object with which it is associated.
	      MFC.Free;
      end;


      // Apply zoom factor by way of adjusting the drawn rectangle.
      R.Left := Trunc(R.Left * ZoomFactor);
      R.Top := Trunc(R.Top * ZoomFactor);
      R.Right := Trunc(R.Right * ZoomFactor);
      R.Bottom := Trunc(R.Bottom * ZoomFactor);


      // Stretch draw creates the illusion of zooming.
    Canvas.StretchDraw(R, MF);
    finally
    	MF.Free;
    end;
  end;

The above is the area of code I believe needs to be changed. Is there some way that when this code is executed it believes it is always at a set resolution?
The issue I am getting are in the following pdf's
"http://www.microgenx.com/Real Estate Lament 1440 narrow res.pdf"
"http://www.microgenx.com/Real Estate Lament 1440 wide res.pdf"
Current control settings are
WPC.WYSIWYG := False;
WPC.ScreenResMode := rm1440;

I have investigated WPTool5 and the new calculations in that looked promising though there is a heavy amount of coding in this application dependant on PTLine and backward compatibility would be a major issue.

Thanks for any help :)

My problem now is just tied to Screen resolution.

The Rich text fields are copied into the PDF using a Metafile canvas.
The threads
http://wpcubed.com/forum/viewtopi…setviewport+api

seemed to indicate I can set a resolution of a metafile.
Can you explain this in better detail?
SetMapMode(DC, MM_ANISOTROPIC);
SetWindowExtEx(DC, WantedResX, WantedResY, nil);
SetViewPortExtEx(DC, IsResX, IsResY, nil);
SetViewPortOrgEx(DC, 0, 0, nil);

Progressing
Only printing the last line was a mix up in parameters of the Draw command.

Found this thread
http://www.wpcubed.com/forum/viewtopi…ghlight=wysiwyg
Which makes me feel I'm doomed if I want consistent output.

Anyway, font issue cutting off is fixed, the appearance of the font is slightly shorter in height, but consistent.
Thanks for the help Julian. Question is still out there about it changing between differenct PC's, and what level of change would be expected.

Thanks again
It appears though that I'm in for a world of pain.

The original developer looks to have used the screen resolution as a starting point for making the fonts as identical as they could be between PC's (instead of using the printer driver).

A draw command print_xywh was being used and I switched this to Draw, and used ScreenResMode rm1440.
This altered the font dramatically, but fixed the font clipping occuring.

Its had a side effect of only printing the last line of multiline text, but this could be related to how the code works.

A couple of questions
The intention originally I believe was to take what was created, and mirror that exactly across all PC's in a PDFdocument (hence why the printer driver was not used), is using this screenresmode the right way to go about it?

I got the impression (from a thread) that using rm1440 meant you sacrificed font quality?

Cheers Julian

When did it start using the 'few modifications'? After Version 2.1?
I've attached an image to explain more clearly the difference, the first line is 2.6, and has occured also with 2.8.

The 2nd line is version 2.1 (just screen shotted each and put them in the one picture)

Both use exactly the same code (executable is not recompiled)

[Blockierte Grafik: http://www.microgenx.com/fontdifference.JPG]

Hi all
Maintaining an application and unfortunately changing the pdf version is switching the PDF created from using an ANSI encoding (2.1.3) to using a Custom encoding (2.6.5 and above) for fonts (visible in file properties)

The application is in Delphi 6 and the WPDF components are being used (TWPDFPrinter), text being transferred I believe via such code as
LineTo(Canvas.Handle,LeftDots+WidthDots,TopDots + H);
(Not my code, just catching up in the area)

I've looked at FontMode, which seemed to give no change on settings

Found out the general terms of the two
*"Custom" means that an encoding table is *explicitly* defined within
the PDF file.
It does not matter what the mapping is used, the document will always
be displayed and printed equally on any platform/printer (because of
explicitly mapping).

*'Ansi' (or 'Roman', or 'Expert') implies an implicit (but the
predefined) mapping. It means that the PDF file does not contain an
encoding table, but a viewer/printing application internally uses one
of predefined encoding tables

The issue basically is letters cut off, So R would be missing part of the upper curve, or 'w', where the last part of the w is cut off.

Anyone with experience with this and know the right property to set?
Or is it a case of resetting a lot of various fonts :(

Thanks