Radio buttons en pixels

[Rafael Clemente]

Antonio:
Me parece que los Radio buttons en pixels no funcionan; en unidades de Row/Col, sí. Saludos
Rafael

Ejemplo:

Code: Select all  Expand view  RUN

// FiveWin for Pocket PC - Testing radio buttons

#include "FWCE.ch"
#include "WinApi.ch"

//-------------------------------------------------------------------
FUNCTION Main()
LOCAL oWnd, nValue

DEFINE WINDOW oWnd TITLE "Test"
nValue := 1
@ 0,0 RADIO nValue  ;
      ITEMS "Uno", "Dos", "Tres" SIZE 80, 20 PIXEL COLOR "W+/B";
      ON CHANGE MsgBeep()

ACTIVATE WINDOW oWnd
RETURN NIL

[Antonio Linares]

Rafael,

Al usar la claúsula PIXEL en los radiobuttons, determinamos el espaciado entre un radio y el siguiente. Además hemos tenido que ajustarlos para que se viesen bien, sin PIXEL, en el Pocket PC.

O te refieres a otra cosa ?

[Rafael Clemente]

Antonio:
Simplemente me extrañaba que en los Radio buttons de FWPPC, la cláusula PIXEL no funciona. En el ejemplo que incluyo, sólo se ve el primer botón "Uno". Cambiando SIZE 200, 20 por SIZE 200, 80, el tamaño vertical de "Uno" aumenta pero siguen sin verse las demás opciones.

Sin la cláusula PIXEL funciona bien pero lo que yo intentaba era poder controlar el espaciado vertical entre botones.

Saludos,
Rafael

[Antonio Linares]

Rafael,

Entiendo. Vamos a revisarlo.

[Paco Garcia]

Antonio, seria de mucha utilidad el poder hacer algo asi:

RADMENU oRadMenu

@ 10, 10 RADIO OF oRadMenu ...
@ 18, 10 RADIO OF oRadMenu ...

y según veo no sería muy difícil de codificar.

Un saludo

Paco

[Antonio Linares]

Paco,

No es mala idea, pero ante todo es preferible mantener compatibilidad con código anterior ó se rompen montones de aplicaciones.

[Paco Garcia]

No estoy hablando de modificar nada sino de un nuevo preprocesado igual que hay @ BITMAP, REDEFINE BITMAP y DEFINE BITMAP cada uno que elija lo que necesite.
No se si has caido en la cuenta de que @ RADIO no hay manera de utilizarlo de buena manera.

[Antonio Linares]

Paco, Rafael,

Esta es la sintaxis que hemos implementado para crear radios individuales, pertenecientes a un radmenu:

Code: Select all  Expand view  RUN

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


Cualquier comentario es apreciado.

[Antonio Linares]

Este es un ejemplo de uso en samples\tutor09.prg:

Code: Select all  Expand view  RUN

   @ 8, 2 RADIOITEM "F&our" RADIOMENU oRadMenu SIZE 80, 15 OF oWnd