NetGeek
asked on
Figuring out preview font size
HI there,
I'm working on a report designer. Here's the problem:
the user chooses a paper format A4 (210mm by 297mm)
the user places a text "Test1" on the paper.
the user specifies that the text shuld be shown with Times New Roman size 10.
the user zooms the paper, making the width of paper 420 pixles.
My question is now - how many pixels wide should the text be ?
best regards
NetGeek
I'm working on a report designer. Here's the problem:
the user chooses a paper format A4 (210mm by 297mm)
the user places a text "Test1" on the paper.
the user specifies that the text shuld be shown with Times New Roman size 10.
the user zooms the paper, making the width of paper 420 pixles.
My question is now - how many pixels wide should the text be ?
best regards
NetGeek
ASKER
hmm, could you explain that in a bit more detail ? which values should i put as the different parameters ?
NetGeek
NetGeek
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Forgot to say:
Make a form with two buttons and a alClient PaintBox like this.
type
TForm1 = class(TForm)
PaintBox1: TPaintBox;
btnSave: TButton;
btnPrint: TButton;
procedure FormCreate(Sender: TObject);
procedure PaintBox1Paint(Sender: TObject);
procedure btnSaveClick(Sender: TObject);
procedure btnPrintClick(Sender: TObject);
private
{ Private declarations }
FMetaFile: TMetafile;
FCanvas: TMetafileCanvas;
public
{ Public declarations }
end;
Make a form with two buttons and a alClient PaintBox like this.
type
TForm1 = class(TForm)
PaintBox1: TPaintBox;
btnSave: TButton;
btnPrint: TButton;
procedure FormCreate(Sender: TObject);
procedure PaintBox1Paint(Sender: TObject);
procedure btnSaveClick(Sender: TObject);
procedure btnPrintClick(Sender: TObject);
private
{ Private declarations }
FMetaFile: TMetafile;
FCanvas: TMetafileCanvas;
public
{ Public declarations }
end;
ASKER
looks very interesting, I'll check it out first thing monday morning
NetGeek
NetGeek
ASKER
that was just perfect, you even wrote my preview funktion for me :)
Thank you very much
Net Geek
Thank you very much
Net Geek
You are welcome :-) Thanks for the points. If you want to preview at for example 100 or 200 percent you can try using a TScrollBox setting the VertScrollBar.Range and HorzScrollBar.Range property to higher values and having a TPaintBox aligned alClient on it.
Regards Jacco
Regards Jacco
BOOL SetWindowExtEx(
HDC hdc, // handle of device context
int nXExtent, // new horizontal window extent
int nYExtent, // new vertical window extent
LPSIZE lpSize // original window extent
);
or SetViewPortExtEx
Regards Jacco