Cambiar ::oTmarkedit:nClrPanel color
Publicado: Mar Mar 29, 2016 1:09 pm
HOla necesito saber como cambiar oTmarkedit el color de fondo cuando se cambia el valor de una variable
en lo que estoy haciendo me da error
Esto es lo que estoy haciendo:
METHOD CambioA1( oSender ) CLASS TFcontac
If ::oPuntoRoAr1:value = 0
::oPA1R1:nClrPanel = clRed
::oPA1R2:nClrPanel = clRed
::oPA1R3:nClrPanel = clRed
::oPA1R4:nClrPanel = clRed
::oPA1R5:nClrPanel = clRed
::oPA1R6:nClrPanel = clRed
::oPA1R7:nClrPanel = clRed
::oPA1R8:nClrPanel = clRed
::oPA1A1:nClrPanel = clBlue
::oPA1A2:nClrPanel = clBlue
::oPA1A3:nClrPanel = clBlue
::oPA1A4:nClrPanel = clBlue
::oPA1A5:nClrPanel = clBlue
::oPA1A6:nClrPanel = clBlue
::oPA1A7:nClrPanel = clBlue
::oPA1A8:nClrPanel = clBlue
end if
El error que me da es este:
***************************** Registro de errores *****************************
Exe: E:\xailer2\programas\combates\competicion.exe
Version: 1.0.0.0
User name: srmpilo
Computer name: REPARACIONES
Fecha: 03/29/16
Hora: 12:56:51
Memoria libre: 491688
Area actual: 1
------------------------- Información del compilador --------------------------
Versión Xailer: Xailer 2.0.18 Version 2.0.18
Compilador: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6484) PCode Version: 10
Compilador C/C++: Borland C++ 5.5.1 (32 bit)
Plataforma: Windows XP Professional 5.01.2600 Service Pack 3
----------------------- Información detallada del error -----------------------
Subsistema: BASE
Código de error: 1005
Estado: .F.
Descripción: Message not found
Operación: TPANEL:_NCLRPANEL
Argumentos:
Fichero:
Código error SO: 0
Pila de llamadas:
TFCONTAC:CAMBIOA1 (229)
TMASKEDIT:ONCHANGE (0)
(b)XEDIT:XEDIT (91)
TEDIT:CHANGE (0)
(b)XMASKEDIT:XMASKEDIT (67)
TMASKEDIT:CHANGE (0)
TMASKEDIT:COMMAND (160)
TSCROLLINGWINCONTROL:WMCOMMAND (272)
TFCONTAC:WMCOMMAND (931)
TFCONTAC:SHOWMODAL (0)
TCONFIGURACION:BTNBMP1CLICK (45)
TBTNBMP:ONCLICK (0)
TBTNBMP:CLICK (100)
(b)XCONTROL:XCONTROL (147)
TBTNBMP:COMMAND (0)
TSCROLLINGWINCONTROL:WMCOMMAND (272)
TCONFIGURACION:WMCOMMAND (931)
RUNFORM (0)
TAPPLICATION:RUN (272)
MAIN (16)
Me puede ayudar tengo versión Xailer 2.0.18
en lo que estoy haciendo me da error
Esto es lo que estoy haciendo:
METHOD CambioA1( oSender ) CLASS TFcontac
If ::oPuntoRoAr1:value = 0
::oPA1R1:nClrPanel = clRed
::oPA1R2:nClrPanel = clRed
::oPA1R3:nClrPanel = clRed
::oPA1R4:nClrPanel = clRed
::oPA1R5:nClrPanel = clRed
::oPA1R6:nClrPanel = clRed
::oPA1R7:nClrPanel = clRed
::oPA1R8:nClrPanel = clRed
::oPA1A1:nClrPanel = clBlue
::oPA1A2:nClrPanel = clBlue
::oPA1A3:nClrPanel = clBlue
::oPA1A4:nClrPanel = clBlue
::oPA1A5:nClrPanel = clBlue
::oPA1A6:nClrPanel = clBlue
::oPA1A7:nClrPanel = clBlue
::oPA1A8:nClrPanel = clBlue
end if
El error que me da es este:
***************************** Registro de errores *****************************
Exe: E:\xailer2\programas\combates\competicion.exe
Version: 1.0.0.0
User name: srmpilo
Computer name: REPARACIONES
Fecha: 03/29/16
Hora: 12:56:51
Memoria libre: 491688
Area actual: 1
------------------------- Información del compilador --------------------------
Versión Xailer: Xailer 2.0.18 Version 2.0.18
Compilador: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6484) PCode Version: 10
Compilador C/C++: Borland C++ 5.5.1 (32 bit)
Plataforma: Windows XP Professional 5.01.2600 Service Pack 3
----------------------- Información detallada del error -----------------------
Subsistema: BASE
Código de error: 1005
Estado: .F.
Descripción: Message not found
Operación: TPANEL:_NCLRPANEL
Argumentos:
Fichero:
Código error SO: 0
Pila de llamadas:
TFCONTAC:CAMBIOA1 (229)
TMASKEDIT:ONCHANGE (0)
(b)XEDIT:XEDIT (91)
TEDIT:CHANGE (0)
(b)XMASKEDIT:XMASKEDIT (67)
TMASKEDIT:CHANGE (0)
TMASKEDIT:COMMAND (160)
TSCROLLINGWINCONTROL:WMCOMMAND (272)
TFCONTAC:WMCOMMAND (931)
TFCONTAC:SHOWMODAL (0)
TCONFIGURACION:BTNBMP1CLICK (45)
TBTNBMP:ONCLICK (0)
TBTNBMP:CLICK (100)
(b)XCONTROL:XCONTROL (147)
TBTNBMP:COMMAND (0)
TSCROLLINGWINCONTROL:WMCOMMAND (272)
TCONFIGURACION:WMCOMMAND (931)
RUNFORM (0)
TAPPLICATION:RUN (272)
MAIN (16)
Me puede ayudar tengo versión Xailer 2.0.18