Font in a RADIO Controll ?

[NK]

Hallo,

how do I can set the Font of a RADIO controll in a Folder?
RADIO Controll from Source (@ x,y RADIO ...)

Best regards
Norbert

[Enrico Maria Giordano]

Can you show me a reduced and self-contained sample of the problem?

EMG

[NK]

Can you show me a reduced and self-contained sample of the problem?

EMG

Dear Enrico,

use the Sample TESTRAD2.PRG

Code: Select all

function Main()

   local nValue := 3, oRad

   SET _3DLOOK ON
   SET HELPFILE TO "Test.hlp"

   DEFINE WINDOW oWnd ;
      TITLE "Testing a Radio Buttons Menu" COLOR "N/W"

   @ 1, 1 BUTTON "&Test" SIZE 70, 20 ;
      ACTION ( MsgInfo( nValue ), oRad:aItems[ 2 ]:SetText( "&Changed!" ) )

   @ 3, 2 RADIO oRad VAR nValue ;
      ITEMS "&One", "&Two", "T&hree" _3D SIZE 150, 25 ;
      HELPID 100, 101, 102 ;
      ON CHANGE MsgBeep()

   // adding an extra radio item at a different location
   @ 5, 25 RADIOITEM "Fo&ur" RADIOMENU oRad OF oWnd SIZE 150, 25

   ACTIVATE WINDOW oWnd

return nil

where can i change the Text "&One", "&Two", "T&hree" to an smaler font ?

Best regards, Norbert

[Antonio Linares]

Norbert,

Code: Select all

#include "FiveWin.ch"

function Main() 

   local nValue := 3, oRad, oFont, n

   SET _3DLOOK ON 
   SET HELPFILE TO "Test.hlp" 

   DEFINE WINDOW oWnd ; 
      TITLE "Testing a Radio Buttons Menu" COLOR "N/W" 

   @ 1, 1 BUTTON "&Test" SIZE 70, 20 ; 
      ACTION ( MsgInfo( nValue ), oRad:aItems[ 2 ]:SetText( "&Changed!" ) ) 

   @ 3, 2 RADIO oRad VAR nValue ; 
      ITEMS "&One", "&Two", "T&hree" _3D SIZE 150, 25 ; 
      HELPID 100, 101, 102 ; 
      ON CHANGE MsgBeep() 

   // adding an extra radio item at a different location 
   @ 5, 25 RADIOITEM "Fo&ur" RADIOMENU oRad OF oWnd SIZE 150, 25 

   DEFINE FONT oFont NAME "Verdana" SIZE 0, -10

   for n = 1 to Len( oRad:aItems )
      oRad:aItems[ n ]:SetFont( oFont )
   next   

   ACTIVATE WINDOW oWnd 

return nil

[Enrico Maria Giordano]

Here it is:

Code: Select all

#include "Fivewin.ch"


function Main() 

   local oWnd

   local nValue := 3, oRad 

   local oFnt

   SET _3DLOOK ON 
   SET HELPFILE TO "Test.hlp" 

   DEFINE FONT oFnt NAME "Arial" SIZE 0, -8

   DEFINE WINDOW oWnd ; 
      TITLE "Testing a Radio Buttons Menu" COLOR "N/W" 

   @ 1, 1 BUTTON "&Test" SIZE 70, 20 ; 
      ACTION ( MsgInfo( nValue ), oRad:aItems[ 2 ]:SetText( "&Changed!" ) ) 

   @ 1, 20 BUTTON "&Change font" SIZE 70, 20 ; 
      ACTION ( oRad:aItems[ 2 ]:SetFont( oFnt ),;
               INVALIDATERECT( oRad:aItems[ 2 ]:hWnd ) )

   @ 3, 2 RADIO oRad VAR nValue ; 
      ITEMS "&One", "&Two", "T&hree" _3D SIZE 150, 25 ; 
      HELPID 100, 101, 102 ; 
      ON CHANGE MsgBeep() 

   // adding an extra radio item at a different location 
   @ 5, 25 RADIOITEM "Fo&ur" RADIOMENU oRad OF oWnd SIZE 150, 25 

   ACTIVATE WINDOW oWnd 

   RELEASE FONT oFnt

return nil

EMG

[NK]

Here it is:

Code: Select all

#include "Fivewin.ch"


function Main() 

   local oWnd

   local nValue := 3, oRad 

   local oFnt

   SET _3DLOOK ON 
   SET HELPFILE TO "Test.hlp" 

   DEFINE FONT oFnt NAME "Arial" SIZE 0, -8

   DEFINE WINDOW oWnd ; 
      TITLE "Testing a Radio Buttons Menu" COLOR "N/W" 

   @ 1, 1 BUTTON "&Test" SIZE 70, 20 ; 
      ACTION ( MsgInfo( nValue ), oRad:aItems[ 2 ]:SetText( "&Changed!" ) ) 

   @ 1, 20 BUTTON "&Change font" SIZE 70, 20 ; 
      ACTION ( oRad:aItems[ 2 ]:SetFont( oFnt ),;
               INVALIDATERECT( oRad:aItems[ 2 ]:hWnd ) )

   @ 3, 2 RADIO oRad VAR nValue ; 
      ITEMS "&One", "&Two", "T&hree" _3D SIZE 150, 25 ; 
      HELPID 100, 101, 102 ; 
      ON CHANGE MsgBeep() 

   // adding an extra radio item at a different location 
   @ 5, 25 RADIOITEM "Fo&ur" RADIOMENU oRad OF oWnd SIZE 150, 25 

   ACTIVATE WINDOW oWnd 

   RELEASE FONT oFnt

return nil

EMG

It functions, thank you very much at you.

Best regards, Norbert