Radio

[ik1mtt]

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.

[Enrico Maria Giordano]

Eccoti un esempio funzionante:

Code: Select all  Expand view

#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

EMG