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. Vojtěch ______________________________________________________________
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
