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
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
