[Lazarus] Real Font Size

[zeljko]

On 06/16/2013 05:03 PM, Vojtěch Čihák wrote:
> Hello,
> is there a cross-platform way how to obtain real font size ? Currently all components has default size 0. But in real numbers it is usually 9 ~ 12 - depends on system setting. I would like to use smaller font, for example 2/3 of the default size. Is there something like:
>
> Canvas.Font.Size := 2 * GetRealFontSize(Font.Size) div 3;
> (Of course there are many system setting for fonts. I'm interested in font-size of the most common components like TLabel).

There's no such function, but I guess that you can use 
LCLIntf.GetObject(MyControl.Font.Reference.Handle .....) and read 
lfHeight from there ?

zeljko