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"