Silverfrost Logo About Us | Contact Us
 

GET_FONT_NAME@

Platform

Win32(ClearWin+)

Purpose

To return the name of the loaded font.

Syntax

SUBROUTINE GET_FONT_NAME@( NAME, NUM )
CHARACTER*(*) NAME
INTEGER     NUM

Description

The name of an installed font is returned in the NAME parameter. NUM references the installed fonts and should start at 1. If a call is made and there is no associated font to the number supplied an empty string will be returned.

Example

INCLUDE <windows.ins>
CHARACTER*20 name
DO k=1,3000
  CALL get_font_name@(name,k)
  IF(name.EQ.' ')STOP
  PRINT *,name
ENDDO
END

 

 

Copyright © 1999-2017 Silverfrost Limited