[Lazarus] Real Font Size

[zeljko]

On 06/17/2013 01:04 PM, Vojtěch Čihák wrote:
> Thanks, I tried:
>
> uses ... LCLIntf, LCLType;
>
> var aLogFont: TLogFont;
> begin
>      LCLIntf.GetObject(Label1.Font.Reference.Handle, sizeof(TLogFont), @aLogFont);
>      WriteLn(aLogFont.lfHeight);
>
> but it doesn't work (returns -1 on Qt and 0 on GTK). lfFaceName works well, returns correctly "DejaVu Sans" for both Qt and GTK here.

Qt is fixed and issue is resolved :)

z.