FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Cambiar color a Say transparente al hacer click
Posts: 485
Joined: Fri Feb 09, 2007 10:34 AM
Cambiar color a Say transparente al hacer click
Posted: 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.

Posts: 845
Joined: Sun Oct 09, 2005 05:36 PM
Cambiar color a Say transparente al hacer click
Posted: Thu Dec 18, 2008 03: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
____________________

Paco
Posts: 845
Joined: Sun Oct 09, 2005 05:36 PM
Cambiar color a Say transparente al hacer click
Posted: Thu Dec 18, 2008 03:31 PM

softruz,
se me paso prueba a meterlos tambien despues del refresh()
salu2
paco

____________________

Paco

Continue the discussion