XBase - CAMBIAR COLOR

   
Vista:

CAMBIAR COLOR

Publicado por ANTONIO (32 intervenciones) el 04/11/2015 12:21:04
Hola a todos:
Tengo esta funcion que pasandole un numero, y teniendo A=coordenadas y B=coordenadas te escribe un numero en un formato grande, pero no encuentro la manera de cambiarle el color.
FUNCTION NUMEROSB
LOCAL oFont, aSettings, i, imax, NUMERO
PARAMETERS NENTRA
aSettings := {FONT_TIMES_XLARGE + FONT_STYLE_BOLD}
SETCOLOR( "N/R" )
imax := LEN(aSettings)
oFont := XbpFont():new() // Create font object
oFont:create() // and font
oFont:configure(FONT_TIMES_XLARGE + FONT_STYLE_BOLD)
GraSetFont ( , oFont ) // Set current font
graStringAt( , {A, B } , STR(NENTRA,2))
SETPOS( MAXROW()-1, 0 )
RETURN ""
en set color lo he intentado todo y no cambia.
Alguna solucion
Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

CAMBIAR COLOR

Publicado por ANTONIO (32 intervenciones) el 05/11/2015 08:51:33
CORRIJO ESTA FUNCION, necesito que el numero salga en blanco.
Ayuda
Gracias.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#include "Color.ch"
#include "Font.ch" 
PROCEDURE  Main
   LOCAL oFont, aSettings, imax, NUMERO
   NUMERO=90
   aSettings := {FONT_TIMES_XLARGE + FONT_STYLE_BOLD}
   SETCOLOR( "N/W" )
   CLS
   imax   := LEN(aSettings)
   oFont  := XbpFont():new()
   oFont:create()
   oFont:configure(FONT_TIMES_XLARGE + FONT_STYLE_BOLD)
   GraSetFont ( , oFont )
   graStringAt( , {50,370} , STR(NUMERO,2))
   SETPOS( MAXROW()-1, 0 )
   inkey(0)
RETURN
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

CAMBIAR COLOR

Publicado por antonio (32 intervenciones) el 05/11/2015 21:15:38
Ya lo he resuelto gracias a todos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar