Question

I am looking for a function which should take parameters as Font name, sample character, width, height of the sample character and should return Font Size.

It must look like this:

    GetFontSize(<Font Name>, <Sample Character>, <Sample Character Width>,
                <Sample Character Height>)

which must return the font size,

Is this possible in delphi?

Answer 1

I’m only aware of methods to do the opposite – that is, to get pixel sizes from point sizes.

The only way I can think of is to set up a TCanvas, and repeatedly call GetTextExtent on it, changing the font size each time, until you get a size that’s acceptably close to what you want.

Depending on how accurate you need this, you could just convert your desired height in pixels to points – a point is 1/72 of an inch, and your screen is probably 96 pixels per inch (but check GetDeviceCaps to get the real figure). See this question.

That would get you a font size pretty close to the pixel size you want.