Cambiar color a Say transparente al hacer click

Cambiar color a Say transparente al hacer click

Postby softruz » Thu Dec 18, 2008 11:09 am

Muy buenas foro, tengo una imagen de fondo en un dialogo, entonces tengo sobre este un Say trasparente con las letras de color Blanco hasta aqui bien, pero quiero cuando haga click sobre el cambie el color SOLO de las letras y no del fondo, entonces mi problema es que el fondo se pone de un color y quiero que siga transparente y he probado con casi todo, aqui está mi código:

redefine say aoSays[1] prompt cNum id 101 of oDlg font oFont TRANSPARENT color CLR_WHITE
aoSays[1]:lTransparent:=.t.
aoSays[1]:lWantClick = .t.
aoSays[1]:bLClicked = { || aoSays[1]:setColor(CLR_BLACK,GetSysColor(0)),aoSays[1]:lTransparent:=.t.,bCode:=.f.,aoSays[1]:setfocus(),aoSays[1]:refresh()}

¿Alguien me podría ayudar?

Un Saludo.
softruz
 
Posts: 485
Joined: Fri Feb 09, 2007 10:34 am

Postby Francisco Horta » Thu Dec 18, 2008 3:29 pm

Softruz,
agregale en el click:

aoSays[1]:bLClicked = { || aoSays[1]:setColor(CLR_BLACK,GetSysColor(0)),aoSays[1]:lTransparent:=.t.,bCode:=.f.,aoSays[1]:Hide(),aoSays[1]:Show(),aoSays[1]:setfocus(),aoSays[1]:refresh()}

esconder y mostrar a ver si te funciona
salu2
paco
Francisco Horta
 
Posts: 845
Joined: Sun Oct 09, 2005 5:36 pm
Location: la laguna, mexico.

Postby Francisco Horta » Thu Dec 18, 2008 3:31 pm

softruz,
se me paso prueba a meterlos tambien despues del refresh()
salu2
paco
Francisco Horta
 
Posts: 845
Joined: Sun Oct 09, 2005 5:36 pm
Location: la laguna, mexico.


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: groiss and 37 guests