Problema en el refresco Checkbox (solucionado)

User avatar
AngelSalom
Posts: 664
Joined: Fri Oct 07, 2005 7:38 am
Location: Vinaros (Castellón ) - España
Contact:

Re: Problema en el refresco Checkbox

Post by AngelSalom »

Gracias Euclides, como comentaba al principio del post, este efecto sólo se produce en diálogos con la claúsula TRANSPARENT.
No me puedo permitir quitar esta cláusula en todo el código de mis aplicaciones.
Last edited by AngelSalom on Wed Jul 17, 2019 7:25 pm, edited 2 times in total.
Angel Salom
http://www.visionwin.com
---------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.0
User avatar
Euclides
Posts: 144
Joined: Wed Mar 28, 2007 1:19 pm

Re: Problema en el refresco Checkbox

Post by Euclides »

Hola Angel.
Con TRANSPARENT en SAY y no en DIALOG, no resuelve el problema?
de lo contrario lo siento...
Saludos, Euclides.
User avatar
AngelSalom
Posts: 664
Joined: Fri Oct 07, 2005 7:38 am
Location: Vinaros (Castellón ) - España
Contact:

Re: Problema en el refresco Checkbox

Post by AngelSalom »

Resuelve este caso en concreto pero yo necesito todos los diálogos con TRANSPARENT.
Angel Salom
http://www.visionwin.com
---------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.0
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Problema en el refresco Checkbox

Post by cnavarro »

Angel, prueba así a ver si es lo que necesitas

ACTIVATE DIALOG oDlg CENTERED ON INIT ( oCheck:lTransparent := .F. )
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
User avatar
AngelSalom
Posts: 664
Joined: Fri Oct 07, 2005 7:38 am
Location: Vinaros (Castellón ) - España
Contact:

Re: Problema en el refresco Checkbox

Post by AngelSalom »

cnavarro wrote:Angel, prueba así a ver si es lo que necesitas

ACTIVATE DIALOG oDlg CENTERED ON INIT ( oCheck:lTransparent := .F. )
Cristóbal con tu pista llegué a buen término. Para no tener que modificar mi código he hecho un pequeño ajuste en el método Initiate de la Clase TDialog, modificando

Code: Select all

 
...
AEval( ::aControls,;
               { | o | If( ! Upper( o:ClassName() ) $ ;
               "TBAR;TGET;TMULTIGET;TBTNBMP;TCOMBOBOX;TWBROWSE;TCBROWSE;TXBROWSE;TLISTBOX;TDBCOMBO;TDATEPICK;TTIMEPICK" .and. ;
                 ! o:IsKindOf( 'TXBROWSE' ) .and. ! o:isKindOf( "TBTNFLAT" ), o:lTransparent := .T., ) } )      
...
 
por

Code: Select all

 
...
AEval( ::aControls,;
               { | o | If( ! Upper( o:ClassName() ) $ ;
               "TBAR;TGET;TMULTIGET;TBTNBMP;TCOMBOBOX;TWBROWSE;TCBROWSE;TXBROWSE;TLISTBOX;TDBCOMBO;TDATEPICK;TTIMEPICK;TCHECKBOX" .and. ;
                 ! o:IsKindOf( 'TXBROWSE' ) .and. ! o:isKindOf( "TBTNFLAT" ), o:lTransparent := .T., ) } )      
...

 
No se si sería interesante incorporar este ajuste en futuras revisiones.
Gracias a todos por vuestra ayuda.
Angel Salom
http://www.visionwin.com
---------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.0
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Problema en el refresco Checkbox

Post by cnavarro »

Ok,
Puedes comparar con lo que tu anterior versión tenía en esa misma instrucción?
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
User avatar
AngelSalom
Posts: 664
Joined: Fri Oct 07, 2005 7:38 am
Location: Vinaros (Castellón ) - España
Contact:

Re: Problema en el refresco Checkbox

Post by AngelSalom »

Cristóbal, la parte de código de FWH1204

Code: Select all

   if ::lTransparent
      FixSays( ::hWnd, ::oBrush:hBrush )
      AEval( ::aControls,;
             { | o | If( ! Upper( o:ClassName() ) $ ;
             "TGET;TMULTIGET;TBTNBMP;TCOMBOBOX;TWBROWSE;TCBROWSE;TXBROWSE;TLISTBOX;TDBCOMBO;TDATEPICK" .and. ;
               ! o:IsKindOf( 'TXBROWSE' ), o:lTransparent := .T., ) } )
   endif
 
Aparentemente tampoco debería funcionar ... curioso ¿no?
Angel Salom
http://www.visionwin.com
---------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.0
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Problema en el refresco Checkbox

Post by cnavarro »

De ahí mi comentario, cuando he visto lo que vas a modificar en la clase, me parecía que eso ha estado ahí desde hace ya muchas versiones
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
User avatar
jvtecheto
Posts: 357
Joined: Mon Mar 04, 2013 4:32 pm
Location: Spain

Re: Problema en el refresco Checkbox

Post by jvtecheto »

Yo no se si os lio mas o ayudo, mi intencion es ayudar.

El fichero prg junto con el .rc que publico Angel al principio de este mensaje con Fivewin 19.05, la version de Harbour que provee Fivetech y el Borland C++ 7.30 no compila
y arroja el error de mi post. http://forums.fivetechsupport.com/viewt ... =6&t=37463
que como explico en ese mismo mensaje para arreglarlo, se abre el .rc se graba como .res y voilá compila sin problemas.
Entonces este exe no realiza el borrado del texto.
Da lo mismo que utilizes el IDE FivEdit que archivo .mak , mismo comportamiento.

Pero si compilas directamente el .rc y el prg pero cambiando la version de Borland C++ 7.30 por la 7.00 compila perfectamente
y el exe generado si realiza el borrado del texto, como bien dice Angel.
Angel explica que tanto en la version antigua de Fivewin como con la actual utiliza el compilador 7.0 entonces lo que
explico no tiene logica, pero es lo que ocurre.
asi yo no puedo deciros mas con estos datos espero saqueis conclusiones y si os lio mas me lo decis y no postero mas en este hilo :D

Saludos

Jose.
Fwh 19.06 32 bits + Harbour 3.2dev(r2011030937)+ Borland 7.4 + FivEdit
User avatar
AngelSalom
Posts: 664
Joined: Fri Oct 07, 2005 7:38 am
Location: Vinaros (Castellón ) - España
Contact:

Re: Problema en el refresco Checkbox

Post by AngelSalom »

Matadme si queréis :mrgreen: :mrgreen: :mrgreen: :mrgreen: ... acabo de ver que en la versión FWH12.04 ya puse unas modificaciones en la clase DIALOG (como en muchas otras, claro ... es lo que tiene mantener las versiones tan viejas) ....

Aquí el código del DIALOG de la versión FWH1204

Code: Select all

if ::lTransparent
      FixSays( ::hWnd, ::oBrush:hBrush )
      AEval( ::aControls,;
             { | o | If( ! Upper( o:ClassName() ) $ ;
             "TGET;TMULTIGET;TBTNBMP;TCOMBOBOX;TWBROWSE;TCBROWSE;TXBROWSE;TLISTBOX;TDBCOMBO;TDATEPICK" .and. ;
               ! o:IsKindOf( 'TXBROWSE' ), o:lTransparent := .T., ) } )
   endif
Mi código modificado para dicha versión (FWH1204)

Code: Select all

if ::lTransparent
      FixSays( ::hWnd, ::oBrush:hBrush )

      // Sigev      
      AEval( ::aControls,;
             { | o | 
                  If ! Upper( o:ClassName() ) $ "TCHECKBOX;TRADIO;TGET;TMULTIGET;TBTNBMP;TCOMBOBOX;TWBROWSE;TCBROWSE;TXBROWSE;TLISTBOX;TDBCOMBO;TDATEPICK" .and. ! o:IsKindOf( 'TXBROWSE' )
                    o:lTransparent := .T. 
                  Endif
             } )
   endif
 
Pues si, :oops: :oops: :oops: parece que TCHECKBOX ya lo puse en las excepciones hace la tira de años ... y se quedó en el tintero.
Por mi parte dejo zanjado el tema pero creo que no estaría de más añadir esta excepción en futuras versiones para no volver a darle vueltas al tema.
Angel Salom
http://www.visionwin.com
---------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.0
Post Reply