Algo sobre transparencias?

Algo sobre transparencias?

Postby leandro » Thu Mar 02, 2006 8:12 pm

Amigos del foro de nuevo yo...

Necesito poder crear un BTNBMP (Boton), pero que solo se vea la letra y/o la imagen del boton, que tome por defecto el fondo del dialogo.

Se puede y se se puede como se hace?, este es el codigo->
Code: Select all  Expand view  RUN
*************************************************************
*cuadro de dialogo para verificación conexion con el servidor
*************************************************************
PROC Inicio()

oT1vg1:=space(15)
oT1vg2:=space(6)

DEFINE BRUSH oBrush RESOURCE "INICIO"
DEFINE DIALOG oDlg RESOURCE "Plano10" TRANSPARENT BRUSH oBrush OF oWinp
oProgress = TProgress():Redefine( 4001, oDlg )
REDEFINE SAY oT1os1 ID 15 OF oDlg UPDATE

REDEFINE SAY oT1os2 ID 4002 OF oDlg
REDEFINE SAY oT1os3 ID 4004 OF oDlg
REDEFINE SAY oT1os4 ID 4005 OF oDlg

REDEFINE SAY oT1os5 ID 4003 OF oDlg
REDEFINE SAY oT1os6 ID 4007 OF oDlg

REDEFINE GET oT1og1 VAR oT1vg1 ID 4006 OF oDlg
REDEFINE GET oT1og2 VAR oT1vg2 ID 4008 OF oDlg

REDEFINE BUTTONBMP BtnE ID 4009 OF oDlg ACTION pVerUsu()
REDEFINE BTNBMP BtnS ID 4010 OF oDlg NOBORDER ACTION (oWinp:End())

oProgress:SetRange( 0, 2 )
oProgress:SetPos( 0 )
BtnE:Settext("Entrar")
BtnS:Settext("Cancelar")
oT1og1:bGotFocus:={||oT1og1:SelectAll()}
oT1og2:bGotFocus:={||oT1og2:SelectAll()}
BtnE:gotfocus()

ACTIVATE DIALOG oDlg CENTERED VALID(oLamcla:vPPexit)
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Embarcadero C++ 7.60 for Win32 ] [ FiveWin 23.07 ] [ xHarbour 1.3.0 Intl. (SimpLex) (Build 20230914) ]
User avatar
leandro
 
Posts: 1676
Joined: Wed Oct 26, 2005 2:49 pm
Location: Colombia

Postby Joel Andujo » Fri Mar 03, 2006 12:09 am

Leandro, desde el workshop en sus propiedades Button Type dile
que es "Owner Draw"

espero te funcione, saludos
Joel Andujo
User avatar
Joel Andujo
 
Posts: 131
Joined: Fri Oct 07, 2005 3:14 pm
Location: Cd. Obregón, Sonora, México


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 50 guests