Radio-Button desaparecen los prompt

[Mariano F.Martinez]

Buenos dias a todos.- A partir de la version FWH 10.6 al pinchar en 1 radio button, los prompt desaparecen.
compilen en /samples/testrad2 y testrad5 y lo comprobaran. Gracias por adelantado.
Soy nuevo es ente foro, he ingresado para aprender. Llevo 30 años aprendiendo, espero seguir haciendolo.
Gracias a todos por sus aportaciones y su saber estar.

[Cgallegoa]

Confirmado el problema con FWH 10.7

Lo mismo pasa con Checkbox. Si se mueve entre controles con la tecla ALT, borra los prompt.

Antonio, cómo se puede solucionar esto ?

Gracias y saludos,

Carlos Gallego

[Patricio Avalos Aguirre]

Hola

una solución que me sirvió fue esta

si tienes groupBox estos deben estar definidos en tu aplicacion y los TAB-INDEX deben estar antes de que pinte los say,checkbox, etc que esten dentro del group...

espero que les sirve..

[Cgallegoa]

Patricio,

No funciona en FWH 10.7

El ejemplo \samples2\testrad2.prg no incluye groupbox. Es un diálogo simple con radios. Al pulsar sobre cualquiera de las opciones del Radio, desaparece el prompt del item seleccionado

Code: Select all | Expand

// Testing some radio buttons

#include "FiveWin.ch"

static oWnd

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

function Main()

   local nValue := 3, oRad

   SET _3DLOOK ON
   SET HELPFILE TO "Test.hlp"

   DEFINE DIALOG 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 DIALOG oWnd CENTERED ;
      ON INIT oWnd:SetSize( 600, 400 )

return nil

A alquien más le pasa con FWH 10.7 ?

Antonio, alguna solución ?

Gracias y saludos,

Carlos Gallego

[Cgallegoa]

Ya veo por donde van los tiros.

Si se linkea con WindowsXP.Manifest o se inlcluye un RC que lo contenga, o si en donde está el ejecutable se incluye "testrat2.exe.manifest" funciona bien. Si no se incluye el RC o testrat2.exe.manifest, falla.

La solución temporal es que agregar en el prg principal:

Code: Select all | Expand

Function IsAppThemed()
Return .F.

Porqué antes funcionaba bien y ahora no ?

Tiene que ver con las transparencias ?

Saludos,

Carlos Gallego

[Antonio Linares]

Se debe a un bug que hemos introducido recientemente por error en la función IsAppThemed().

Esta función está devolviendo .T. en casos en que no es correcto y de ahí que se muestren mal esos controles.
Vamos a publicar un nuevo build de FWH 10.7 con esta corrección.

Gracias a todos por vuestra ayuda en detectarlo y pedimos disculpas por el error

[CARLOALBATUN]

Aun en la version 12.02 sigue esta falla o tiene otra solucion?

[FranciscoA]

Hola. Yo tenía ese problema en la version 10.06, y aún mas... al presionar la tecla ALT se desaparecían otros controles, los que reaparecían al pasar el mouse sobre ellos. Lo pude corregir con la siguiente modificación a TCONTROL, aunque parpadea 1 vez.

Code: Select all | Expand

      *case nMsg == WM_UPDATEUISTATE  // buttons, radios and checkboxes were erased when pressing ALT
      *     nResult = Super:HandleEvent( nMsg, nWParam, nLParam )
      *     return nResult

      //Correccion tomada del foro viewtopic.php?f=3&t=22979&hilit=problema+con+checkbox#p123610
      case nMsg == WM_UPDATEUISTATE  // buttons, radios and checkboxes were erased when pressing ALT
           nResult = Super:HandleEvent( nMsg, nWParam, nLParam )
           if ::IsKindOf( "TRADIO" ) .or. ::IsKindOf( "TCHECKBOX" )
              ::oWnd:Refresh( .F. )
           endif   
           return nResult
 

Saludos.

[CARLOS ATUNCAR]

Antonio saludos las mismas fallas se presentan el la version 17.05 y por el momento lo he solucionado con la sugerencia el problema se presenta con la transparencia o sin la transparencia con la diferencia que con transparencia borra desde el punto q inicia hasta la base del dialogo.


Gracias