FoxPro/Visual FoxPro - Grid

 
Vista:

Grid

Publicado por Oscar (8 intervenciones) el 15/09/2006 22:40:06
Buenas Tardes
Tengo un objeto Grid y necesito resaltar varias celdas con un color (no propiamente todas de la misma columna ni de la misma fila), esto es posible? Qué propiedad de el objeto debo programar para esto?. 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

RE:Grid

Publicado por sergio (737 intervenciones) el 15/09/2006 23:08:34
con las propiedades
dynamicforecolor de cada columna le das el color que queres al texto , y lo podes hacer por columns a
y con dynamicbackcolor lo haces para el fondo
podes tambien hacerlo por condicion, si el valor es tal tal color sino tal otro

ej : iif(valor=1,rgb(255,0,0),rgb(0,0,255)

y asi para todos los dynammic para tipo deletra etec etc etc

saludos
y suerte
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

RE:Grid

Publicado por Oscar (8 intervenciones) el 15/09/2006 23:18:36
Segio:
Al hacerlo con esa propiedad resalta toda la columna pero lo que necesito es que resalta una sola celda de esa columna. Gracias.
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
sin imagen de perfil

RE:Grid

Publicado por jesus cordero (405 intervenciones) el 16/09/2006 04:29:17
prueba este ejemplo que consegui en la red:

establecer un color a la celda dependiendo de una condición.

Local o
o = Createobject("myform")
o.Show(1)

Define Class myform As Form
DoCreate = .T.
DataSession = 2
AutoCenter = .T.
Caption = "Trabajando con DyamicBackGround"
Width = 600
Height = 400
MinHeight = 300
MinWidth = 300
Add Object grid1 As Grid With ;
HEIGHT = This.Height, ;
WIDTH = This.Width, ;
DELETEMARK = .F.

Procedure Load
Select * From (_samples+"datacustomer") ;
Order By MaxOrdAmt Desc;
Into Cursor TmpCust
Use In "customer"
EndProc

Procedure Init
This.grid1.SetAll("dynamicbackcolor",;
"Thisform.GetBackColor(allt(country))")
EndProc

Procedure Resize
This.grid1.Width= This.Width
This.grid1.Height= This.Height
EndProc

Function GetBackColor(cCountry)
Local nColor
Do Case
Case cCountry == "Germany"
nColor = Rgb(255,255,255)
Case cCountry == "UK"
nColor = Rgb(224,224,0)
Case cCountry == "Sweden"
nColor = Rgb(224,224,160)
Case cCountry == "France"
nColor = Rgb(100,224,160)
Case cCountry == "Spain"
nColor = Rgb(100,224,160)
Otherwise
nColor = Rgb(224,100,224)
EndCase
Return nColor
EndFunc
EndDefine


Jesus Cordero
Caracas - Venezuela
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