Ciao a tutti.
Avrei bisogno di cambiare Font e dimensione delle scritte
"Uno" e "Due".
Sembra che RADIO non accetti Font, mi da subito errore...
@ 6.5, 28 RADIO oRbx VAR nRbx OF oDlg;
PROMPT "Uno", "Due";
SIZE 46,13.5
Grazie.
#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oDlg, oFnt, oRad, nRad
LOCAL i
DEFINE FONT oFnt NAME "Arial" SIZE 0, -20
DEFINE DIALOG oDlg
@ 1, 1 RADIO oRad VAR nRad;
PROMPT "One ", "Two "
FOR i = 1 TO LEN( oRad:aItems )
oRad:aItems[ i ]:oFont = oFnt
NEXT
@ 3, 1 BUTTON "&Close";
ACTION oDlg:End()
ACTIVATE DIALOG oDlg;
CENTER
RELEASE FONT oFnt
RETURN NIL