Experts Exchange connects you with the people and services you need so you can get back to work.

Canvas text size

I want to print a number on form canvas. The number is inside a box.

In a procedure I wrote

Var Rect : TRect;
begin
Rect := ...
canvas.font.height := rect.bottom -rect.top - 5;
textrect(rect.left, rect.top, inttostr(Num));
end;

I found the size of the number was changed with the rect's size, but it's smallest size is about 6,how can I let it smaller?

PeterShaw

petershaw8

Asked: 2001-08-06

Advertise Here

Delphi

1 Solution

LVL 2

bugrogerCommented: 2001-08-06

Hi,
I think you don 't use a TrueType - Font.

Try to set the font to a TrueType Font:

Var Rect : TRect;
begin
Rect := ...
Canvas.Font.Name := 'MS Song'; <-- Set Font to TT - Font
canvas.font.height := rect.bottom -rect.top - 5;
textrect(rect.left, rect.top, inttostr(Num));
end;

Now the smallest size should be 1 !!!

GL
Bug

petershaw8Author Commented: 2001-08-11

Hi,
Iam using the default font, that is MS Sans Serif. Is it a TT font?

Thankuvery much.

PeterShaw

LVL 2

bugrogerCommented: 2001-08-12

Hi,

The MS Sans Serif is not a TrueType Font.

If you want to know if a Font is a TrueType Font
you can look at the FontDialog.
Just klick on [...] at the "FONT" Property of any
component which used this property.
If a TT-Glyph will be display on the left side of the
FontName (in the ListBox) then it is a TrueType Font.

GL
Bug

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Canvas text size

Join & Write a Comment Already a member? Login.

Featured Post