What is better

[Uwe.Diemer]

Public Array

FONTARR [ 01 ] := TFONT() :NEW( "Segoe UI", 0, -12 , .F., .T. ) // Say Font

FONTARR [ 02 ] := TFONT() :NEW( "Segoe UI", 0, -12 , .F., .T. ) // Get Font

FONTARR [ 03 ] := TFONT() :NEW( "Segoe UI", 0, -12 , .F., .T. ) // Browse Daten

FONTARR [ 04 ] := TFONT() :NEW( "Segoe UI", 0, 16 , .F., .T. ) // Browse Header

FONTARR [ 05 ] := TFONT() :NEW( "Segoe UI", 0, 20 , .F., .T. ) // OYesNOBOx

FONTARR [ 06 ] := TFONT() :NEW( "Segoe UI", 0, -12 , .F., .T. ) // Super Buttons

FONTARR [ 07 ] := TFONT() :NEW( "Segoe UI", 0, 20 , .F., .T. ) // Kasse

FONTARR [ 08 ] := TFONT() :NEW( "Segoe UI BOLD ", 0, 18 , .F., .T. ) // Browse Header Selected

FONTARR [ 09 ] := TFONT() :NEW( "Segoe UI", 0, 16 , .F., .T. ) // BigFont

FONTARR [ 10 ] := TFONT() :NEW( "Segoe UI", 0, 20 , .F., .T. ) // BigFont Button

FONTARR [ 11 ] := TFONT() :NEW( "Segoe UI", 0, 11 , .F., .T. ) // SPH CYL

FONTARR [ 12 ] := TFONT() :NEW( "Segoe UI", 0, 40 , .F., .F. ) // Kasse

FONTARR [ 13 ] := TFONT() :NEW( "Segoe UI", 0, 18 , .F., .T. ) // Memofeld

FONTARR [ 14 ] := TFONT() :NEW( "Segoe UI", 0, 14 , .F., .T. ) // Button Memofeld

FONTARR [ 15 ] := TFONT() :NEW( "Segoe UI", 0, 13 , .F., .T. ) // MENUFONT


Or this version

Local Ofont2 := GBL_100_FONT2(OPRN)

*****************************************************************************************************************************************************************************************************************************
Function GBL_100_FONT2 (oPRN)
*****************************************************************************************************************************************************************************************************************************

Local Ofont2

DEFINE FONT OFONT2 NAME "SEGOE UI" SIZE 0, - 12 OF OPRN

Return ofont2


Mit freundlichen Grüßen

der Kapitän

[Antonio Linares]

Dear Uwe,

static hFonts := {=>}

hFont[ "SAY" ] = TFONT() :NEW( "Segoe UI", 0, -12 , .F., .T. )
hFont[ "GET" ] = TFONT() :NEW( "Segoe UI", 0, -12 , .F., .T. )
...

... FONT hFont[ "SAY" ]