lBtnTransparent no funciona en una Window

[horacio]

Hola colegas, aquí adjunto el código donde se puede ver el ¿ bug ?

Code: Select all  Expand view

#include 'fivewin.ch'

//----------------------------------------------------------------------------//
Function Main()

    Local oWnd
    Local oGet
    Local cVar := Space( 100 )
   
    Define Window oWnd
   
        @ 100, 100 Get oGet Var cVar Size 300, 25 Of oWnd Pixel Action MsgInfo( 'aqui' )
        oGet : lBtnTransparent := .t.

    Activate Window oWnd
    Return 0
 

Alguna solución ?. Muchísimas gracias

Saludos

[karinha]

Code: Select all  Expand view

#include 'fivewin.ch'

STATIC oWnd

Function Main()

   Local oGet
   Local cVar := Space( 100 )

   SetGetColorFocus()

   SkinButtons()
   
   Define Window oWnd
   
   @ 100, 100 Get oGet Var cVar Size 300, 25 Of oWnd Pixel ;
      bitmap "..\bitmaps\on.bmp"                           ;
      Action MsgInfo( 'aqui me gusta' )

   oGet:lBtnTransparent := .T. // transparent button get
   oGet:lAdjustBtn      := .T.       // Button Get Adjust
   oGet:nClrTextDis     := CLR_WHITE // Color text disable status
   oGet:nClrPaneDis     := CLR_BLUE  // Color Pane disable status

   Activate Window oWnd

Return Nil
 



[horacio]

karinha, gracias por responder. Adjunto una imagen para que se vea más claro el error. Los gets están montados sobre un dialogo.

http://i62.tinypic.com/25sy6bs.jpg

Alguna idea ?. Gracias

[karinha]

Esta página da web não está disponível.

Esta página web no está disponible.

Cual és tu versión del FiveWin? En FWH13.06 para mi, está mui bién.

Saludos.

[horacio]

Que raro, pico en el link y aquí funciona. Uso FWH14.11

Saludos

[FranciscoA]

Horacio, podés hacer un copy/paste de la parte de tu código en que definís los dos GET... ACTION?

[horacio]

Francisco, aquí el código de los gets

Code: Select all  Expand view

@  24 + n, 200 + p Get oGet[ 3 ]  Var aDatos[ 3 ]  Size  50, 12 Picture '@!' Of oDlg Pixel Font oFont1 Action MsgAlert( 'aqui' ) bitmap 'C:\Res\open.bmp'

@ 116 + n, 050 + p Get oGet[ 11 ] Var aDatos[ 11 ] Size 200, 12 Picture '@!' Of oDlg Pixel Font oFont1 Action MsgAlert( 'aqui' ) bitmap 'C:\Res\open.bmp'
oGet[ 11 ]  : lBtnTransparent := .t.
 

Gracias

Saludos

[FranciscoA]

Francisco, aquí el código de los gets

Code: Select all  Expand view

@  24 + n, 200 + p Get oGet[ 3 ]  Var aDatos[ 3 ]  Size  50, 12 Picture '@!' Of oDlg Pixel Font oFont1 Action MsgAlert( 'aqui' ) bitmap 'C:\Res\open.bmp'

@ 116 + n, 050 + p Get oGet[ 11 ] Var aDatos[ 11 ] Size 200, 12 Picture '@!' Of oDlg Pixel Font oFont1 Action MsgAlert( 'aqui' ) bitmap 'C:\Res\open.bmp'
oGet[ 11 ]  : lBtnTransparent := .t.
 

Gracias

Saludos

Horacio, me parece que al oGet[ 3 ] le falta definir la transparencia: oGet[ 3 ]  : lBtnTransparent := .t.

[horacio]

Francisco, lo que mostré en la imagen es como se ve en un dialogo, con y sin transparencias. En una window si definis el button como transparente no lo hace ( como el Get[ 11 ] en el post anterior ). Mira el código que adjunte en el primer post. Gracias

Saludos

[Antonio Linares]

Horacio,

Lo he probado en una ventana y en un diálogo y la única diferencia que observo es en el borde del boton dentro del GET.

Que efecto es el que se supone tiene en uno que no tiene en el otro ?

[horacio]

Gracias Antonio por tu respuesta. Supongo que los controles funcionan de la misma manera sea un dialogo o en una ventana. En el caso de la ventana si pongo la data lBtnTransparent := .t. o lBtnTransparent := .f. no hace nada, cosa que no ocurre en un dialogo.

Saludos

[Antonio Linares]

Horacio,

Puedes poner una captura de pantalla de cómo se ve en el diálogo ? gracias

[horacio]

Antonio, en el tercer post de este hilo hay un link a una imagen de un dialogo. Gracias

Saludos

[Antonio Linares]

Horacio,

Ok, gracias, no me habia fijado

Voy a revisarlo...

[Antonio Linares]

Horacio,

Pruébalo asi:

Code: Select all  Expand view

#include 'fivewin.ch'

//----------------------------------------------------------------------------//
Function Main()

    Local oWnd
    Local oGet
    Local cVar := Space( 100 )
   
    Define window oWnd
   
        @ 1, 1 Get oGet Var cVar Size 300, 25 Of oWnd Pixel ;
           Action MsgInfo( 'aqui' ) BITMAP "..\bitmaps\32x32\folder.bmp"
       
        oGet:lBtnTransparent := .t.
        oGet:oBtn:End()
        oGet:CreateButton()

    Activate window oWnd

    Return 0