Radio que no se refrescan SOLUCIONADO

[Pedro]

Hola a todos

En uno de mis programas tengo dos grupos de Radios, uno con cinco radios y otro con dos radios. Lo típico, escoja una opción de aquí y otra de aquí. He notado que con la versión 10.12 cuando cambio de opción el primer radio, me desaparecen algunas opciones de ese radio y del otro.
Tenía declarado los radios como autoradiobutton, sin group, y cuando cambiaba refrescaba los dos grupos de radios, pero no me hace caso con esta nueva versión, FWH 10.12, y sí me lo hacía con la anterior 9.04.
He probado a quitar los refresh, tampoco me funciona bien, he cambiado de autoradiobutton a radiobutton en el rc, a ponerle que son group, y nada. ¿Hay alguna manera de que funcionen de manera normal, que cuando se pinche una opción no desaparezcan?

[karinha]

usas TRANSPARENT en el dialogo?

Salu2

[Pedro]

Hola Karinha
No, no uso la clausula transparent en los radios, este es el rc del diálogo :

Code: Select all  Expand view

LISTLLAMA DIALOG DISCARDABLE 54, 57, 338, 175
STYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
CAPTION "Buscar"
FONT 8, "MS Sans Serif"
{
  CONTROL "DIA DE LLAMADA", 101, "Button", BS_GROUPBOX, 8, 24, 80, 104
  CONTROL "LUNES", 4001, "Button", BS_RADIOBUTTON|WS_GROUP, 16, 40, 64, 12
  CONTROL "MARTES", 4002, "Button", BS_RADIOBUTTON|WS_GROUP, 16, 56, 64, 12
  CONTROL "MIÉRCOLES", 4003, "Button", BS_RADIOBUTTON|WS_GROUP, 16, 72, 64, 12
  CONTROL "JUEVES", 4004, "Button", BS_RADIOBUTTON|WS_GROUP, 16, 88, 64, 12
  CONTROL "SÁBADO", 4005, "Button", BS_RADIOBUTTON|WS_GROUP, 16, 104, 64, 12
  CONTROL "LISTAR POR", 102, "Button", BS_GROUPBOX, 96, 36, 68, 64
  CONTROL "PANTALLA", 4006, "Button", BS_RADIOBUTTON|WS_GROUP, 100, 56, 56, 10
  CONTROL "IMPRESORA", 4007, "Button", BS_RADIOBUTTON|WS_GROUP, 100, 80, 56, 10
  CONTROL "Indique número de reparto", 103, "Static", SS_RIGHT|SS_CENTERIMAGE|WS_GROUP, 240, 32, 88, 12
  CONTROL "REPARTO", 104, "Static", SS_RIGHT|SS_CENTERIMAGE|WS_GROUP, 192, 48, 84, 12
  CONTROL "Indique fecha de servicio de los pedidos", 105, "Static", SS_RIGHT|SS_CENTERIMAGE|WS_GROUP, 196, 68, 132, 12
  CONTROL "FECHA PEDIDOS", 106, "Static", SS_RIGHT|SS_CENTERIMAGE|WS_GROUP, 200, 84, 60, 12
  CONTROL "", 4008, "Edit", WS_BORDER|WS_GROUP|WS_TABSTOP, 284, 48, 44, 12
  CONTROL "", 4009, "Edit", WS_BORDER|WS_GROUP|WS_TABSTOP, 268, 84, 60, 12
  CONTROL "", 107, "Static", 0x00000000, 148, 104, 160, 8
  CONTROL "", 4010, "msctls_progress32", 0x00000000, 148, 116, 152, 12
  CONTROL "Aceptar", 221, "Button", BS_RIGHT|WS_TABSTOP, 88, 144, 55, 16
  CONTROL "Salir", 223, "Button", BS_RIGHT, 192, 144, 55, 16
}

Y este el código del prg.

Code: Select all  Expand view

DEFINE DIALOG oDlgLisal RESOURCE "LISTLLAMA" COLOR RGB(0,0,0),RGB(204,204,204);
      TITLE "LISTADO DE CLIENTES LLAMADOS SIN COMPRA"
             
             REDEFINE SAY oSay[1] ID 101 PROMPT "DÍA DE LLAMADA";
             COLOR RGB(0,0,127),RGB(204,204,204) OF oDlgLisal
             REDEFINE SAY oSay[2] ID 102 PROMPT "LISTAR POR";
             COLOR RGB(0,0,127),RGB(204,204,204) OF oDlgLisal
             REDEFINE SAY oSay[3] ID 103 ;
             PROMPT "Indique número de reparto";
             COLOR RGB(0,0,127),RGB(204,204,204) OF oDlgLisal
             REDEFINE SAY oSay[4] ID 104 PROMPT "REPARTO";
             COLOR RGB(0,0,127),RGB(204,204,204) OF oDlgLisal
             REDEFINE SAY oSay[5] ID 105 ;
             PROMPT "Indique fecha de servicio de los pedidos";
             COLOR RGB(0,0,127),RGB(204,204,204) OF oDlgLisal
             REDEFINE SAY oSay[6] ID 106 ;
             PROMPT "FECHA PEDIDOS";
             COLOR RGB(0,0,127),RGB(204,204,204) OF oDlgLisal
                         
             REDEFINE SAY oSay[7] VAR cAcciones ID 107 ;
             COLOR RGB(0,0,127),RGB(204,204,204) OF oDlgLisal UPDATE
             
             REDEFINE RADIO oRadio1 VAR nOption1 OF oDlgLisal UPDATE ;
             ID 4001,4002,4003,4004,4005;
             ON CHANGE (oRadio1:Refresh(), oRadio2:Refresh());
             COLOR RGB(0,0,127),RGB(204,204,204)
           
             REDEFINE RADIO oRadio2 VAR nOption2 OF oDlgLisal UPDATE ;
             ID 4006,4007;      
             ON CHANGE (oRadio2:Refresh(),oRadio1:Refresh());
             COLOR RGB(0,0,127),RGB(204,204,204)              
             
             
             REDEFINE PROGRESS oProgress ID 4010 OF oDlgLisal              
             
             * Datos a buscar, reparto y fecha
             REDEFINE GET oGet[1] Var aDatos[1] ID 4008 OF oDlgLisal;
             PICTURE "99" COLOR RGB(0,0,127),RGB(192,240,127) UPDATE
             
             REDEFINE GET oGet[2] Var aDatos[2] ID 4009 OF oDlgLisal;
             PICTURE "@D" COLOR RGB(0,0,127),RGB(192,240,127);
             VALID !EMPTY(aDatos[2]) UPDATE
                         
             REDEFINE BUTTONBMP ID 221 OF oDlgLisal BITMAP "ACEPTAR" TEXTRIGHT ;
             ACTION BLlamadaSIN(nOption1,nOption2,aDatos,oDlgLisal,oSay,oProgress),;
                    oDlgLisal:aControls[1]:SetFocus()
             
             REDEFINE BUTTONBMP ID 223 OF oDlgLisal BITMAP "SALIR1" TEXTRIGHT CANCEL;
             ACTION oDlgLisal:End()
             
     ACTIVATE DIALOG oDlgLisal CENTER;
     VALID (oBarMain:Enable(),oMenu:Enable(),dbCloseAll(),.t.)
     SysRefresh()
   

[karinha]

Talbez sea un problema de PELLESC.EXE.

Intente con el WORKSHOP.EXE

[Pedro]

Karinha, todos los recursos los tengo hechos con pelles c y han funcionado muy bien, sin problemas, de hecho otros radios que no van en grupos funcionan de maravilla, solo tengo problemas cuando tengo varios grupos de radios.

[FiveWiDi]

Karinha, todos los recursos los tengo hechos con pelles c y han funcionado muy bien, sin problemas, de hecho otros radios que no van en grupos funcionan de maravilla, solo tengo problemas cuando tengo varios grupos de radios.

En tu archivo RC tienes alguna linea como esta?

1 24 "c:\Windows\WindowsShell.Manifest"

Yo tuve problemas similares y se solucionaron añadiendo esta linea.

Saludos
Carlos G.

[Pedro]

Hola Carlos

Muchas gracias ha funcionado perfecto