Startup font
Posted: 10.09.2008, 09:25
I recommend to use font at startup not 'Tahoma' (or what),
but Explorer's font.
but Explorer's font.
Code: Select all
procedure FixFormFont(AFont: TFont);
var
LogFont: TLogFont;
begin
if SystemParametersInfo(SPI_GETICONTITLELOGFONT, SizeOf(LogFont), @LogFont, 0) then
AFont.Handle := CreateFontIndirect(LogFont)
else
AFont.Handle := GetStockObject(DEFAULT_GUI_FONT);
end;