DEFINE FONT oFont NAME "IMPACT" SIZE 0,-60 BOLD NESCAPEMENT 900
DEFINE FONT oFon2 NAME "VERDANA" SIZE 0,-30 BOLD NESCAPEMENT 2700
DEFINE WINDOW oWnd FROM 0,0 TO 400,300 PIXEL
oWnd:bPainted := < | hDC |
oWnd:SayText( "IMPACT", nil, "L", oFont, CLR_HRED )
oWnd:SayText( "VERDANA", nil, "R", oFon2, CLR_GREEN )
return nil
>
ACTIVATE WINDOW oWnd CENTERED
RELEASE FONT oFont, oFon2
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 83 guests