[Lazarus] Real Font Size

Vojtěch Čihák vojtech.cihak at atlas.cz
Mon Jun 17 13:04:30 CEST 2013


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




More information about the Lazarus mailing list