lBtnTransparent no funciona en una Window

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

lBtnTransparent no funciona en una Window
Posted: Thu Dec 04, 2014 01:24 PM

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

#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

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: lBtnTransparent no funciona en una Window
Posted: Thu Dec 04, 2014 01:54 PM

Code (fw): Select all Collapse

#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

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

horacio

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

Re: lBtnTransparent no funciona en una Window
Posted: Thu Dec 04, 2014 02:49 PM

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

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: lBtnTransparent no funciona en una Window
Posted: Thu Dec 04, 2014 03:09 PM

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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

horacio

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

Re: lBtnTransparent no funciona en una Window
Posted: Thu Dec 04, 2014 03:16 PM

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

Saludos

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: lBtnTransparent no funciona en una Window
Posted: Thu Dec 04, 2014 04:42 PM

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

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

horacio

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

Re: lBtnTransparent no funciona en una Window
Posted: Thu Dec 04, 2014 06:57 PM

Francisco, aquí el código de los gets

Code (fw): Select all Collapse

@  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

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: lBtnTransparent no funciona en una Window
Posted: Fri Dec 05, 2014 02:00 PM

horacio wrote:Francisco, aquí el código de los gets

Code (fw): Select all Collapse

@  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.

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

horacio

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

Re: lBtnTransparent no funciona en una Window
Posted: Fri Dec 05, 2014 03:12 PM

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

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: lBtnTransparent no funciona en una Window
Posted: Fri Dec 05, 2014 05:25 PM

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 ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

horacio

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

Re: lBtnTransparent no funciona en una Window
Posted: Fri Dec 05, 2014 06:46 PM

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

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: lBtnTransparent no funciona en una Window
Posted: Fri Dec 05, 2014 07:34 PM

Horacio,

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

horacio

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

Re: lBtnTransparent no funciona en una Window
Posted: Fri Dec 05, 2014 09:47 PM

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

Saludos

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: lBtnTransparent no funciona en una Window
Posted: Fri Dec 05, 2014 10:55 PM

Horacio,

Ok, gracias, no me habia fijado :-)

Voy a revisarlo...

regards, saludos

Antonio Linares
www.fivetechsoft.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: lBtnTransparent no funciona en una Window
Posted: Fri Dec 05, 2014 11:05 PM

Horacio,

Pruébalo asi:

Code (fw): Select all Collapse

#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

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums