FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour RADIO Horizontal segĂșn un ARRAY
dobfivewin
Posts: 325
Joined: Sun Feb 03, 2008 11:04 PM
RADIO Horizontal segĂșn un ARRAY
Posted: Mon Aug 17, 2009 12:36 PM
Amigos del Foro...

Tengo un RADIO (Horizontal) cuya cantidad de Items a se arma segĂșn un array (en este ejemplo tiene 4 elementos)

en tema es que si la variable (mRESUL01) viene con un valor derminado (ejemplo 3) cuando se muestra el RADIO, NO se acomoda en el items 3°, NO se acomodad en ningun los items a seleccionar.


Code (fw): Select all Collapse
    ColuRAD := 5
    For W = 1 TO len(TipoResu)
      If W = 1 
        @ lineRAD,ColuRAD RADIO     oRad01 VAR mRESUL01 ITEMS TipoResu[W] OF oDlgCar SIZE 20,10
      Else
        @ lineRAD,ColuRAD RADIOITEM TipoResu[W] RADIOMENU oRad01 OF oDlgCar SIZE 20,10
      EndIf
      ColuRAD := ColuRAD + 5 
    Next W


Se puede hacer ?

David
Argentina
dobfivewin
Posts: 325
Joined: Sun Feb 03, 2008 11:04 PM
Re: RADIO Horizontal segĂșn un ARRAY
Posted: Tue Aug 18, 2009 09:09 AM

Estimados

Se puede?, o debo hacer de otra forma?

Gracias

David
argentina

Daniel Garcia-Gil
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: RADIO Horizontal segĂșn un ARRAY
Posted: Tue Aug 18, 2009 04:35 PM
Hola David...

Colocal esto despues de crear los RADIOS

Code (fw): Select all Collapse
oRad01:aItems[ mRESUL01 ]:lChecked := .T.
our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
dobfivewin
Posts: 325
Joined: Sun Feb 03, 2008 11:04 PM
Re: RADIO Horizontal segĂșn un ARRAY
Posted: Tue Aug 18, 2009 05:22 PM

Estimado Daniel

un espectaculo... :lol:

Muchas gracias

David
argentina

dobfivewin
Posts: 325
Joined: Sun Feb 03, 2008 11:04 PM
Re: RADIO Horizontal segĂșn un ARRAY
Posted: Thu Aug 20, 2009 11:48 PM
Estimados....

Para agregar que el texto tenga un color determinado le coloco asi y no funciona

Code (fw): Select all Collapse
    For W = 1 TO len(TipoSeleResu)
      If W = 1 
        @ lineRAD,ColuRAD RADIO     oRad01 VAR mRESUL01 ITEMS TipoSeleResu[W] OF oFol:aDialogs[1] SIZE 20,10 [b]COLOR nRGB(130,99,53)[/b]   
      Else
        @ lineRAD,ColuRAD RADIOITEM TipoSeleResu[W] RADIOMENU oRad01 OF oFol:aDialogs[1] SIZE 20,10 [b]COLOR nRGB(130,99,53)[/b]    
      EndIf
      ColuRAD := ColuRAD + SumCoRA
    Next W

Continue the discussion

Static archive · New replies & topics via GitHub Discussions