Radio

Moderator: Enrico Maria Giordano

Post Reply
ik1mtt
Posts: 27
Joined: Fri Apr 14, 2006 5:41 pm

Radio

Post by 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.
User avatar
Enrico Maria Giordano
Posts: 7355
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia
Contact:

Re: Radio

Post by Enrico Maria Giordano »

Eccoti un esempio funzionante:

Code: Select all

#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
Post Reply