Cambiar el color del GETS en tiempo de ejecucion

Board index FiveWin para Harbour/xHarbour Cambiar el color del GETS en tiempo de ejecucion

Posts: 479

Joined: Fri Feb 16, 2007 10:29 AM

Cambiar el color del GETS en tiempo de ejecucion
Posted: Sat Jan 17, 2009 03:37 PM

Compañeros:

Tengo un GET con la clausula ON CHANGE con idea de hacer búsquedas incrementales conforme el usuario teclea.
Hasta ahí todo bien. El tema es que se me ocurrió mejorar la IDE y deseo que el fondo de color del GET cambie de color en el momento que NO encuentre la cadena a buscar (Igual que la opcion de "Editar > Buscar" de Mozilla Firefox).

¿ Es posible ? hice pruebas con:

Code: Select all Collapse

 oget:nclrpane :={ || CLR_HRED }   && elijas el color que elijas, siempre es NEGRO

pero no fueron satisfactorias.

Mil gracias.LORENZO

Daniel Garcia-Gil

Posts: 2365

Joined: Wed Nov 02, 2005 11:46 PM

Re: Cambiar el color del GETS en tiempo de ejecucion
Posted: Sat Jan 17, 2009 03:49 PM

colocalo en la clausula VALID del get y usa SetColor()

redefine get oGet2 var cUser id 102 of oDlg valid( if ( UPPER( cUser ) <> "ADMIN",oGet2:SetColor( CLR_BLACK, CLR_HRED ),oGet2:SetColor( CLR_BLACK, CLR_WHITE ) ), oGet2:refresh(), .t. )

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9

Loren

Posts: 479

Joined: Fri Feb 16, 2007 10:29 AM

Re: Cambiar el color del GETS en tiempo de ejecucion
Posted: Sun Jan 18, 2009 09:09 AM

Mil gracias, Daniel, funcionó perfecto.

FiveTech Support Forums

Continue the discussion