#384 Use MS Shell Dlg / MS Shell Dlg 2 fonts

[Adam Strzelecki]

The windows applications should use "MS Shell Dlg" font
within application alons with DS_SHELLFONT for dialogs
(which is a mapping for currently selected system UI
font) rather than forcing specified "MS Sans Serif"
which on newer systems prior Win2K was changed with
"Microsoft Sans Serif" or "Tahoma" for the system
dialogs, moreover "MS Sans Serif" does not support
ClearType as it is bitmap font.

Note: Since Delphi dynamically creates component is it
important to select "MS Shell Dlg 2" on >= Win2K
systems and "MS Shell Dlg" on Win9x.

Sample:
procedure TMainForm.FormCreate(Sender: TObject);
begin
if Win32Platform = VER_PLATFORM_WIN32_NT then
Font.Name := 'MS Shell Dlg 2'
else
Font.Name := 'MS Shell Dlg';
end;

Regards,
Adam.