...
...
ACTIVATE DIALOG oDlg CENTER ON INIT SET_FONTS( oGraph ) // FONTS on INIT !!!
SET RESOURCES TO
RETURN NIL
// ----------------
FUNCTION SET_FONTS( oGraph )
// oGraph:aFont[1] := aFont[1] // Title
// oGraph:aFont[2] := aFont[2] // xFont
// oGraph:aFont[3] := aFont[3] // yFont
// oGraph:aFont[4] := aFont[4] // Legends
// oGraph:aFont[5] := aFont[5] // Subtitle
// oGraph:aFont[6] := aFont[6] // xTitle
// oGraph:aFont[7] := aFont[7] // y Title
// oGraph:aFont[8] := aFont[8] // Values
// METHOD New(
// 1 cFaceName,
// 2 nWidth,
// 3 nHeight,
// 4 lFromUser,;
// 5 lBold,
// 6 nEscapement,
// 7 nOrientation,
// 8 nWeight,
// 9 lItalic,;
// 10 lUnderline,
// 11 lStrikeOut,
// 12 nCharSet,
// 13 nOutPrecision,;
// 14 nClipPrecision,
// 15 nQuality,
// 16 oDevice,
// 17 nPitchFamily )
// 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
oGraph:aFont[1] := TFont():New( "Arial", 0, -16, .F., .T., 0 , 0, , .F., .F., .F., 0, 3, 2, 1, ,34 )
oGraph:aFont[2] := TFont():New( "Arial", 0, -18, .F., .T., 0 , 0, , .F., .F., .F., 0, 3, 2, 1, , 2 )
oGraph:aFont[3] := TFont():New( "Arial", 0, -14, .F., .T., 900, 0, , .F., .F., .F., 0, 3, 2, 1, ,34 )
oGraph:aFont[4] := TFont():New( "Arial", 0, -16, .F., .T., 0 , 0, , .F., .F., .F., 0, 3, 2, 1, , 2 )
oGraph:aFont[5] := TFont():New( "Arial", 0, -16, .F., .F., 0 , 0, , .F., .F., .F., 0, 3, 2, 1, , 2 )
oGraph:aFont[6] := TFont():New( "Arial", 0, -12, .F., .F., 0 , 0, , .F., .F., .F., 0, 3, 2, 1, , 2 )
oGraph:aFont[7] := TFont():New( "Arial", 0, -18, .F., .T., 0 , 0, , .F., .F., .F., 0, 3, 2, 1, ,34 )
oGraph:aFont[8] := TFont():New( "Arial", 0, -20, .F., .T., 0 , 0, , .F., .F., .F., 0, 3, 2, 1, ,34 )
oGraph:Refresh()
RETURN NIL