Estimados, acudo nuevamente a ustedes buscando ayuda... Necesito pintar las filas de un grid, lo hago con este codigo:
Pinta Filas de un Grid:
Código Delphi
[-]if (Sender as TDBGrid).Datasource.DataSet.RecNo mod 2 = 0 then
(Sender as TDBGrid).Canvas.Brush.Color := $00FBEFEF
else
(Sender as TDBGrid).Canvas.Brush.Color := $00F4DEE4;
(Sender as TDBGrid).Canvas.Font.Color := clBlack;
(Sender as TDBGrid).DefaultDrawColumnCell(rect,DataCol,Column,State);
Tambien necesito pintar ciertos cuadros del grid que cumplan con X condicion, en este caso utilizo est codigo:
Pintar cuadros de un Grid:
Código Delphi
[-]begin
if (Column.Field.AsString > '') and
(Column.Field is TStringField) and
(Column.Field.Value = 'Control') then
begin
JvDBUltimGrid1.Canvas.Brush.Color:= $F581DA;
JvDBUltimGrid1.Canvas.Font.Color:= clWhite;
JvDBUltimGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
JvDBUltimGrid1.WordWrap:= True;
end;
if (Column.Field.AsString > '') and
(Column.Field is TStringField) and
(Column.Field.Value = 'OK') then
begin
JvDBUltimGrid1.Canvas.Brush.Color:= $F5A9A9;
JvDBUltimGrid1.Canvas.Font.Color:= clWhite;
JvDBUltimGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
JvDBUltimGrid1.WordWrap:= True;
end;
end;
Ambos funcionan perfectos por su cuenta, la pregunta del millon ya que he provado muchas formas de "fucionar" ambos codigos pero siempre uno manda sobre el otro... ¿¿¿Se pueden mesclar para obtener ambos resultados sobre un mismo grid??? obviamente si existe otro codigo que haga lo mismo estaria eternamente agradecido, agradesco de antemano cualquier ayuda, gracias!!