FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Bug TExplorerBar
leandro
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Bug TExplorerBar
Posted: Tue Oct 29, 2019 01:48 AM
Buenas noches para todos,

Estoy usando la clase TExplorerBar, pero en la parte en donde se dibuja el icono identificador del panel, se ve corrido el icono. Una
imagen dice mas que mil palabras.



Code (fw): Select all Collapse
   oExpPqr = TExplorerBar():New( 00, 00, 240, oWChPq:nHeight, oWChPq )
   oExpPqr:nTopColor := RGB( 215, 215, 215 )
   oExpPqr:nBottomColor := RGB( 215, 215, 215 )  
   
   oPanel1 = oExpPqr:AddPanel( "FACTURAS DE VENTA", ".\Res\pan32.png", , 30, 0, aGrad, , CLR_WHITE, CLR_WHITE )
   oPanel1:AddLink( "Agregar Fact. ", {|| manteFacturas(0) }, ".\Res\icon3.bmp" )
   oPanel1:AddLink( "Modificar Fact.", {|| manteFacturas() }, "#8202" )
   oPanel1:AddLink( "catalogos recupera.", {|| recuperacatalogos() }, "#8204" )
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Bug TExplorerBar
Posted: Tue Oct 29, 2019 09:24 AM

Prueba esto a ver si te ocurre lo mismo

https://bitbucket.org/fivetech/fivewin- ... estmdi.prg

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
leandro
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: Bug TExplorerBar
Posted: Wed Oct 30, 2019 03:02 AM
Cristobal, muchísimas gracias por responder, como siempre muy amable.

Sucede exactamente lo mismo, se corre la imagen.

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Bug TExplorerBar
Posted: Wed Oct 30, 2019 05:58 AM
Leandro, ya entiendo. No es un bug, es el comportamiento normal tal y como se diseñó la clase.
Prueba modificando la clase o haciendo otra que herede de TExplBar con un método Paint distinto
Ojo que no lo he probado, pero creo que tu problema son las coordenadas que se asignan en el metodo Paint al dibujar la imagen
Code (fw): Select all Collapse
METHOD Paint() CLASS TExplorerBar

   .../...

          if ! Empty( hBmpPanel := ::aPanels[ n ]:hBmpPanel )
             if ::aPanels[ n ]:lHasAlpha
                ABPaint( ::hDC, ;
                 ::aPanels[ n ]:nLeft - ( nBmpWidth( hBmpPanel ) / 3 ),;    // quitar lo que se resta y probar
                 ::aPanels[ n ]:nTop - ( nBmpHeight( hBmpPanel ) / 3 ),;    // quitar lo que se resta y probar
                 hBmpPanel, 255 )
             else
                DrawTransparent( ::hDC, hBmpPanel, ::aPanels[ n ]:nTop - ( nBmpHeight( hBmpPanel ) / 3 ),;     // quitar lo que se resta y probar
                              ::aPanels[ n ]:nLeft - ( nBmpWidth( hBmpPanel ) / 3 ) )      // quitar lo que se resta y probar
            endif
          endif
      next
   endif
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
leandro
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: Bug TExplorerBar
Posted: Wed Oct 30, 2019 01:38 PM

Probando ando, y comento :D

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
leandro
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: Bug TExplorerBar
Posted: Tue Nov 12, 2019 03:33 PM
Cristobal probando el cambio que sugeriste, sucedió lo siguiente:



Code (fw): Select all Collapse
   if ! Empty( ::aPanels )
      for n = 1 to Len( ::aPanels )
          if ! Empty( hBmpPanel := ::aPanels[ n ]:hBmpPanel )
             if ::aPanels[ n ]:lHasAlpha
                
                ABPaint( ::hDC, ;
                 ::aPanels[ n ]:nLeft ,;
                 ::aPanels[ n ]:nTop ,;
                 hBmpPanel, 255 )               
                
             else

                DrawTransparent( ::hDC, hBmpPanel, ::aPanels[ n ]:nTop ,;
                              ::aPanels[ n ]:nLeft  )            
            endif
          endif
      next
   endif
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Bug TExplorerBar
Posted: Tue Nov 12, 2019 04:21 PM

Leandro
Dime cuál es el problema ahora?, no veo bien la imagen

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
leandro
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: Bug TExplorerBar
Posted: Tue Nov 12, 2019 04:26 PM
Cristobal...

La parte de la imagen que esta por fuera del panel no se ve.

Subi esta imagen, ampliada:

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Bug TExplorerBar
Posted: Tue Nov 12, 2019 08:07 PM
Leandro, en el mismo prg, tienes también la clase TTaskPanel, con su correspondiente method Paint

Code (fw): Select all Collapse
   if ::hBmpPanel != 0
      if ::lHasAlpha
      /*
         ABPaint( ::hDC, ;
          - nBmpWidth( ::hBmpPanel ) / 3,;
          - nBmpHeight( ::hBmpPanel ) / 3,;
          ::hBmpPanel, 255 )
      */
         ABPaint( ::hDC, 1, 1, ::hBmpPanel, 255 )

      else
      /*
         DrawTransparent( ::hDC, ::hBmpPanel,  - nBmpHeight( ::hBmpPanel ) / 3,;
                          - nBmpWidth( ::hBmpPanel ) / 3 )
      */
         DrawTransparent( ::hDC, ::hBmpPanel, 1, 1 )
      endif

   endif
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
leandro
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: Bug TExplorerBar
Posted: Tue Nov 12, 2019 09:01 PM
Cristobal, ahora "duplica" la imagen.

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Bug TExplorerBar
Posted: Tue Nov 12, 2019 09:14 PM

Lo has hecho en los dos metodos paint?
Yo acabo de probarlo y funciona correctamente

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
leandro
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: Bug TExplorerBar
Posted: Tue Nov 12, 2019 11:48 PM
Como vas?

No aun no funciona, ahora la imagen queda dentro del panel y montada sobre el titulo :-)

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Bug TExplorerBar
Posted: Wed Nov 13, 2019 12:12 AM

Puedes poner imágenes un poco más pequeñas ( es una buena opción )
Voy a mirar ahora la posición del título en este caso

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
leandro
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: Bug TExplorerBar
Posted: Wed Nov 13, 2019 07:50 PM
Cristobal buenas tardes de nuevo yo, pero según tu ultima respuesta parece que no hice bien la consulta, lo que quiero es que el icono quede bien alienado, no que este contenido en el panel. Si notas el icono de la izquierda no queda bien alineada la parte del icono que esta fuera del panel, con la parte del icono que esta dentro del panel. Con un poco de efectos especiales (paint jejeje), alinee la imagen para dejarlo como se debería ver.

(perdón por subir la imagen grande de nuevo, pero es para que se note el error)

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Bug TExplorerBar
Posted: Wed Nov 13, 2019 08:48 PM

Ah!, estás hablando entonces de un efecto estético al dibujar la imagen?
Enviame la imagen a mi mail o como consideres para probarla, porque no he notado nada con las que he utilizado yo ( o no me he fijado, que también puede ser :D )

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Static archive · New replies & topics via GitHub Discussions