[SOLVED] Do I Need This For Linux

[Sandstone]

I am working on porting some code to Linux and came across this issue. There is this initialization procedure to get the default font:

procedure Initialize;
var
  NCM: TNonClientMetrics;
begin
  NCM.cbSize := SizeOf(NCM);
  if SystemParametersInfo(SPI_GETNONCLIENTMETRICS, 0, @NCM, 0) then
    GDefaultFontName := NCM.lfMessageFont.lfFaceName;
end;

Can I comment this out for Linux or is there a better "system agnostic" way to do it? Right now I get the compiler message Error: Identifier not found "TNonClientMetrics"

[jamie]

you can do that but I am sure the rest of the code requires some data from that structure.

 That structure holds the information about the form border icons, scrollbars, border width etc and so on..

 you can find the define for the structure on the net, just leave out the "t" at the start and you will see it at $MS.


 Just use the equivalent of Linux when extracting data.

[dbannon]

Don't have access to my system here but from memory, I do something like this in Linux -

DefaultFont := Label1.Canvas.Font.Name

Label1 is just a label thats there anyway, just see what its font is set to.

Davo

[MarkMLl]

Isn't SystemParametersInfo() Windows-specific anyway? I suspect that the TNonClientMetrics error is hiding a more important one a couple of lines down.

MarkMLl

[winni]

Hi!

SystemParametersInfo exist in win32, gtk, qt, carbon, cocoa ...

Winni

[jamie]

Ok then maybe the lcltype and   lclintf units need to be added

[Sandstone]

I do have LCLIntf and LCLType in the uses. I was looking into it further and it appears that this is part of a Free Pascal package winunits-base.

[MarkMLl]

SystemParametersInfo exist in win32, gtk, qt, carbon, cocoa ...

Thanks, I did phrase it as a question :-)

MarkMLl

[Sandstone]

Thanks everyone. I solved it with a few ifdef's. Also used your suggestion of DefaultFont := Label1.Canvas.Font.Name for Linux.