FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para CA-Clipper RadioButton Horizontal
servicomver
Posts: 198
Joined: Fri Nov 18, 2005 07:34 PM
RadioButton Horizontal
Posted: Thu Nov 24, 2005 08:20 PM

Hola, tengo una duda respecto asi se puede, por comando, hacer radio botton pero "Horizontales", ya que por default siempre son Verticales
mas o menos asi " Local (*) Foraneo ( ) garantia ( )", espero me haya explicado correctamente.

La otra es que al mandar un preview de la clase PRINT oPrn sale todo "amontonado" tengo que cambiar de FACTOR a 1 o 2 y luego regresarlo a 1 para que se vea detalladamente la informacion, hay alguna forma de evitar esta desagradable presentacion. ??

Gracias por el tiempo y apoyo, Saludos

MarioG
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
RadioButton Horizontal
Posted: Fri Nov 25, 2005 02:01 AM

Te envio una contribuci贸n sobre radios horizontales, que ya no recuerdo el autor para mencionarlo, a tu privado.

Saludos

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
MarioG
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
RadioButton Horizontal
Posted: Mon Nov 28, 2005 11:42 AM

Necesito una direcci贸n de correo a donde enviartelo

saludos

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
servicomver
Posts: 198
Joined: Fri Nov 18, 2005 07:34 PM
RadioButton Horizontal
Posted: Tue Dec 27, 2005 02:07 AM

disculpa el tiempo que tarde en darte mi correo, lo puedes mandar a:

servicomver@hotmail.com

servicomver@yahoo.com.mx
gracias por tu atencion
salu2

Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
RadioButton Horizontal
Posted: Tue Dec 27, 2005 08:34 AM

Mario,

Puedes subirlo a http://www.hyperupload.com y poner aqui el enlace para descargarlo ? gracias.

regards, saludos

Antonio Linares
www.fivetechsoft.com
Manuel Valdenebro
Posts: 711
Joined: Thu Oct 06, 2005 09:57 PM
RadioButton Horizontal
Posted: Sat Jan 07, 2006 05:06 PM
MarioG wrote:Necesito una direcci贸n de correo a donde enviartelo

saludos


Mario,
Te agradecer铆a me enviaras a mi email lebsoft@mixmail.com el fichero.

Muchas gracias y feliz a帽o.

Manuel
Un saludo



Manuel
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
RadioButton Horizontal
Posted: Sun Jan 08, 2006 12:43 PM
Esta es la sintaxis que hemos implementado para crear radios individuales, pertenecientes a un radmenu:

Code: Select all Collapse
 
#xcommand @ <nRow>, <nCol> RADIOITEM [ <oRadItem> PROMPT ] <cCaption> ; 
             [ <of: OF, WINDOW, DIALOG> <oWnd> ] ; 
             [ RADIOMENU <oRadMenu> ] ; 
             [ <help:HELPID, HELP ID> <nHelpId> ] ; 
             [ <change: ON CLICK, ON CHANGE> <uChange> ] ; 
             [ COLOR <nClrFore> [,<nClrBack>] ] ; 
             [ MESSAGE <cMsg> ] ; 
             [ <update: UPDATE> ] ; 
             [ WHEN <uWhen> ] ; 
             [ SIZE <nWidth>, <nHeight> ] ; 
             [ VALID <uValid> ] ; 
             [ <lDesign: DESIGN> ] ; 
             [ <lLook3d: 3D, _3D> ] ; 
             [ <lPixel: PIXEL> ] ; 
       => ; 
          [<oRadItem> := ] TRadio():New( <nRow>, <nCol>, <cCaption>, .f., .f.,; 
            Len( <oRadMenu>:aItems ) + 1, <oWnd>, <oRadMenu>,; 
            [<nHelpId>], [<nClrFore>], [<nClrBack>], [<cMsg>], [<.update.>], [<{uWhen}>],; 
            [<nWidth>], [<nHeight>], [<{uValid}>], [<.lDesign.>], [<.lPixel.>] );; 
            AAdd( <oRadMenu>:aItems, ATail( <oWnd>:aControls ) )


este es un ejemplo de uso:

Code: Select all Collapse
@ 8, 2 RADIOITEM "F&our" RADIOMENU oRadMenu SIZE 80, 15 OF oWnd
regards, saludos

Antonio Linares
www.fivetechsoft.com
Manuel Valdenebro
Posts: 711
Joined: Thu Oct 06, 2005 09:57 PM
Radio horizontal
Posted: Sun Jan 08, 2006 04:57 PM

Antonio, gracias por tu respuesta. Pero nada mas incluir en el fichero include el #xcommand (cortar y pegar) al compilar, me da el error "unknown result marker in #command.

Por otra parte, en el codigo actual, tengo una variable, 驴como podria acoplarla al ejemplo?

@ 9, 30 RADIO oRbx VAR oDbf:FORMA PROMPT "Caja", "Banco ;
OF oFol:aDialogs[2] ;
SIZE 30,12 PIXEL

Gracias y un saludo desde M谩laga

Manuel

Un saludo



Manuel
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
RadioButton Horizontal
Posted: Sun Jan 08, 2006 10:50 PM

Manuel,

> "unknown result marker in #command.

Hay un fallo en el comando que hemos publicado, en el resultado hay que escribir [<.update.>] en vez de .lUpdate.

>
@ 9, 30 RADIO oRbx VAR oDbf:FORMA PROMPT "Caja" ;
OF oFol:aDialogs[2] ;
SIZE 30,12 PIXEL
>

@ ..., ... RADIOITEM "Banco" RADIOMENU oRbx SIZE 30, 12 OF oFol:aDialogs[2] PIXEL

regards, saludos

Antonio Linares
www.fivetechsoft.com
Manuel Valdenebro
Posts: 711
Joined: Thu Oct 06, 2005 09:57 PM
Radio Horizontal
Posted: Mon Jan 09, 2006 03:36 AM

Antonio,

Ahora compila bien, pero al ejecutar da el error aItem(0).

Un saludo

Manuel

Un saludo



Manuel
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
RadioButton Horizontal
Posted: Mon Jan 09, 2006 08:55 AM
Manuel,

Este ejemplo compila y funciona bien. Puedes probarlo ?

Code: Select all Collapse
// Testing some radio buttons

#include "FiveWin.ch"

static oWnd

//----------------------------------------------------------------------------//

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()

   @ 5, 25 RADIOITEM "Fo&ur" RADIOMENU oRad OF oWnd SIZE 150, 25

   ACTIVATE WINDOW oWnd

return nil

//----------------------------------------------------------------------------//
regards, saludos

Antonio Linares
www.fivetechsoft.com
Manuel Valdenebro
Posts: 711
Joined: Thu Oct 06, 2005 09:57 PM
RadioButton Horizontal
Posted: Tue Jan 10, 2006 05:47 AM

Antonio, ahora si funciona. He utilizado el siguiente c贸digo:

// Testing some radio buttons

include "FiveWin.ch"

static oWnd

//----------------------------------------------------------------------------//

function Main()

local nValue := 1, oRad

SET _3DLOOK ON

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

@ 1, 1 BUTTON "&Test" SIZE 70, 20 ;
ACTION MsgInfo( nValue )

@ 3, 2 RADIO oRad VAR nValue ;
ITEMS "&Uno" _3D SIZE 150, 25 ;

@ 3, 20 RADIOITEM "&Dos" RADIOMENU oRad OF oWnd SIZE 150, 25

@ 3, 40 RADIOITEM "&Tres" RADIOMENU oRad OF oWnd SIZE 150, 25

ACTIVATE WINDOW oWnd

return nil

//----------------------------------------------------------------------------//

Un saludo y muchas gracias

Un saludo



Manuel

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions