Re: [Lazarus] Real Font Size

2013-06-17 Thread Vojtěch Čihák
Thanks, I tested and closed. __ > Od: "zeljko" > Komu: "Vojtěch Čihák" > Datum: 17.06.2013 13:35 > Předmět: Re: [Lazarus] Real Font Size Qt is f

Re: [Lazarus] Real Font Size

2013-06-17 Thread 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). lfFac

Re: [Lazarus] Real Font Size

2013-06-17 Thread 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). lfFac

Re: [Lazarus] Real Font Size

2013-06-17 Thread Vojtěch Čihák
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 "Deja

Re: [Lazarus] Real Font Size

2013-06-17 Thread Mattias Gaertner
On Mon, 17 Jun 2013 07:49:59 +0200 zeljko wrote: > 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.

Re: [Lazarus] Real Font Size

2013-06-16 Thread zeljko
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 s

[Lazarus] Real Font Size

2013-06-16 Thread Vojtěch Čihák
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.Siz