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.


--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus

Reply via email to