DELPHI AREA Forum

Hello,

thanks a lot for creating the TPrintPreview Component, without it I surely couldn't implement a Preview in my program, because I'm still not so experienced in programming.
I use v4.61 and Delphi 2005.

Here's my problem:

I write my program on a Notebook under WinXP and the following display settings: 1280X800
With this configuration everything runs, but if I execute the program on other PCs with different monitors and display settings (e.g. Win2000 1024x768 or 1280x1024) the text on the preview-paper has always different sizes and dimensions.

I tried to handle with some lengthening coefficients but it didn't work always correctly.
Is there any possibility to convert the text to the right dimensions on each PC?

You know... your resolution is wide-screen type. I think if there's something wrong with font displaying is on your side than others (mine programs on every computer they're runned looks good)

I thought too, that it is a fault in my code.
But if I send the print-job directly to a printer not to PrintPreview, the dimensions are the same regardless of which PC I use.

Here is an example how I tried to print:

Code: Select all

    with PrintPreviewPersonalauswertung do
      begin
        Orientation:= poLandscape;
        PaperType:=   pA4;
        BeginDoc;

        SetMapMode(Canvas.Handle, MM_LOMETRIC);  // 1/10 mm
       
        randlinks:=    200;     // border left
        randoben:=     150;   // top
        randunten:=    150;   // bottom

        Canvas.Font.Size:= 12;
        zhoehe:= Canvas.Font.Size * Canvas.Font.PixelsPerInch / 72    // line height
        y:= randoben;                 

        Canvas.Pen.Color:= clBlack;
        Canvas.Brush.Color:= clWhite;

        Canvas.Font.Name:='Arial';
        Canvas.Font.Style:=[fsbold];

        Canvas.TextOut(randlinks, y*-1, 'TimeControl Personalauswertung ' + jahr);
        y:= y + zhoehe;

        ...
        ...

        EndDoc;


Please check it if something is wrong, or post an example how to print correctly with TPrintPreview (like in your programs).

Thanks!

The problem could be because of the following call:

Code: Select all

SetMapMode(Canvas.Handle, MM_LOMETRIC);

Instead, use Units property of the PrintPreview to set your desired mapping mode. By the way, Set Units property before calling BeginDoc.

Cheers

By the way, instead of calaculating zhoehe variable in that way, simply use:

Code: Select all

zhoehe := -Canvas.Font.Height;

The screen's pixels per inch is not always 72, and in the other hand, the pixel per inch could vary in PrintPreview.

That's it !


I deleted

Code: Select all

SetMapMode(Canvas.Handle, MM_LOMETRIC);

and now everything works fine!

Thanks a lot for your help!