AFONT( )-Funktion

Artikel
04/01/2008

Übergibt Informationen über verfügbare Schriftarten an ein Array.

AFONT(ArrayName [, cFontName [, nFontSize]])

Rückgabewerte

Logisch

Parameter

ArrayName
Gibt das Array an, in das die Namen der verfügbaren Schriftarten geschrieben werden sollen. Ist das Array nicht groß genug, um alle Schriftarten aufnehmen zu können, wird es von Visual FoxPro automatisch entsprechend vergrößert. Wenn Sie den Namen eines bereits vorhandenen zweidimensionalen Arrays angeben, wird das Array automatisch in ein eindimensionales Array umgewandelt.

Wurde das Array erfolgreich erstellt, gibt AFONT( ) Wahr (.T.) zurück, andernfalls gibt AFONT( ) Falsch (.F.) zurück.
cFontName
Gibt eine Schriftart an, zu der Informationen an das Array übergeben werden sollen.

Falls die angegebene Schriftart nur einzelne Schriftgrade (8-Punkt, 10-Punkt, ...) unterstützt, werden die Schriftgrade im Array gespeichert, und AFONT( ) gibt Wahr (.T.) zurück. Ist die mit cFontName angegebene Schriftart jedoch skalierbar (d. h. es werden auch Schriftgrade mit Dezimalen unterstützt), hat das Array ein einzelnes Element, das -1 enthält, und AFONT( ) gibt Wahr (.T.) zurück.

Ist die angegebene Schriftart nicht verfügbar, wird das Array nicht erstellt, und AFONT( ) gibt Falsch (.F.) zurück.
nFontSize
Legt einen Schriftgrad für die mit cFontName angegebene Schriftart fest.

Ist der Schriftgrad nFontSize für die mit cFontName angegebene Schriftart verfügbar, hat das Array ein einzelnes Element, das den Wert Wahr (.T.) enthält, und AFONT( ) gibt Wahr (.T.) zurück. Ist der Schriftgrad für die angegebene Schriftart nicht verfügbar, wird das Array nicht erstellt, und AFONT( ) gibt Falsch (.F.) zurück.

Hinweise

AFONT( ) übergibt die Namen der verfügbaren Schriftarten an ein Array. Die Funktion kann jedoch auch verwendet werden, um die verfügbaren Schriftgrade zu ermitteln oder um zu ermitteln, ob die Schriftart skalierbar ist. Verwenden Sie GETFONT( ), um ein Dialogfeld anzuzeigen, das die verfügbaren Schriftarten, Schriftgrade und Schriftstile enthält.

Beispiel

Im folgenden Beispiel wird AFONT( ) verwendet, um ein Array mit den Namen aller verfügbaren Schriftarten zu erstellen. Der Name jeder Schriftart wird zusammen mit einem Beispiel für die Schriftart angezeigt. Sind mehr als 10 Schriftarten installiert, werden nur die ersten 10 angezeigt.

CLEAR
=AFONT(gaFontArray)  && Array containing font names
gnNumFonts = ALEN(gaFontArray)  && Number of fonts
IF gnNumFonts > 10
   gnNumFonts = 10  && Display first 10 fonts
ENDIF

FOR nCount = 1 TO gnNumFonts
   ? ALLTRIM(gaFontArray(nCount))  && Display font name
   ?? '  This is an example of ' ;
      + ALLTRIM(gaFontArray(nCount)) FONT gaFontArray(nCount), 8
ENDFOR

Siehe auch

FONTMETRIC( )-Funktion | GETFONT( )-Funktion | TXTWIDTH( ) | SYSMETRIC( ) | WFONT( )

Freigeben über