topic-26299

juan fco. vasquez Mendoza

Posts: 102

Joined: Fri May 09, 2008 08:19 PM

Cambiarle el color a un GET
Posted: Sun May 12, 2013 09:06 PM

Hola, intento cambiarle el color a un GET de esta forma y no cambia el color,

DEFINE DIALOG VENCOM01 resource "COMANDA"
DEFINE FONT fontc01 NAME "BOLD" SIZE 7,-18

redefine get OGCOM06 var totcom id 4054 OF VENCOM01 FONT fontc01 PICTURE "9,999,999.99" COLOR CLR_RED, CLR_RED

Activate Dialog vencom01 centered ON INIT INICIOM() VALID (SALIR())

JavierVital

Posts: 105

Joined: Thu Feb 26, 2009 04:08 PM

Re: Cambiarle el color a un GET
Posted: Sun May 12, 2013 10:51 PM

Prueba con :

SetGetColorFocus(Color)

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Cambiarle el color a un GET
Posted: Sun May 12, 2013 10:56 PM

Tambien puedes probar asi:

Code (fw): Select all Collapse

   REDEFINE GET oGtosAdmon    VAR nGtosAdmon    ID 132 OF oDlg PICTURE "99,999,999,999.99" 
   oGtosAdmon:bGotFocus  := {||oGtosAdmon:SetColor( RGB(0,0,0), RGB(252,232,171) ) }
   oGtosAdmon:bLostFocus := {||oGtosAdmon:SetColor( CLR_BLACK, CLR_WHITE ) }

Saludos.

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Re: Cambiarle el color a un GET
Posted: Mon May 13, 2013 02:21 PM

Hola

Lo puedes hacer tambien asi

Code (fw): Select all Collapse

redefine get OGCOM06 var totcom id 4054 OF VENCOM01 FONT fontc01 PICTURE "9,999,999.99" COLOR CLR_RED, CLR_RED
OGCOM06:lDiscolors := .f.

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

juan fco. vasquez Mendoza

Posts: 102

Joined: Fri May 09, 2008 08:19 PM

Re: Cambiarle el color a un GET
Posted: Mon May 13, 2013 08:13 PM

Hey muchas gracias a todos, la ultima opción mas reducida de codigo, pero buenas las demas.

Gracias Mil...
Juan
Rep. Dom.

FiveTech Support Forums

Continue the discussion