Platform

Win32, x64

Purpose

To get the attributes of the system font.

Syntax

 SUBROUTINE GET_SYSTEM_FONT@(LFHEIGHT,LFWIDTH,
+ LFESCAPEMENT,LFORIENTATION,LFWEIGHT,
+ LFITALIC,LFUNDERLINE,LFSTRIKEOUT,LFCHARSET,
+ LFOUTPRECISION,LFCLIPPRECISION,LFQUALITY,
+ LFPITCHANDFAMILY,LPFACENAME)
 INTEGER LFHEIGHT,LFWIDTH, LFESCAPEMENT,
+ LFORIENTATION,LFWEIGHT,LFITALIC,
+ LFUNDERLINE,LFSTRIKEOUT,LFCHARSET,
+ LFOUTPRECISION,LFCLIPPRECISION,LFQUALITY,
+ LFPITCHANDFAMILY
 CHARACTER(*) LPFACENAME

Description

These attributes may be used to build new fonts by modification. i.e. scaling, italicisation etc.. Modified parameters can then be supplied to the Windows API function CreateFont. See the Windows API documentation of CreateFont for further details.