Code Snippets Database

Control Box

Requested snippet

This page displays the requested SetDefaultFont snippet.

You can choose a category, perform a search or generate a Pascal unit containing the snippet by using the Control Box.

SetDefaultFont

Sets a font to the default GUI font for the operating system.

procedure SetDefaultFont(const AFont: Graphics.TFont);
begin
  AFont.Handle := Windows.GetStockObject(Windows.DEFAULT_GUI_FONT);
end;

Kind of Snippet: Routine

Required units: Windows, Graphics.

Required snippets: None.