Hola foro.
He tratado de hacer lo siguiente pero nada que me funciona:
Quiero que cuando sea un dato específico me cambie de color y me cambie el texto en la celda, así:
Código Delphi
[-]
procedure TFrmPlaneador.cxGridDBTableViewGTO_TipoCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
FBounds: TRect;
Cadena : String;
begin
try
FBounds := AViewInfo.Bounds;
ACanvas.FillRect(FBounds);
Cadena := AViewInfo.DisplayValue;
if Cadena = '0' then
begin
ACanvas.DrawText('',FBounds, cxAlignLeft); ACanvas.Brush.Color := clCream; end;
except
end;
end;
Funciona una o la otra pero no las dos al tiempo.
Si no existe ADone := True o es Falso, funciona el cambio de color.
Por el contrario si ADone es True, funciona el cambio del texto.
Gracias por leer el mensaje y por favor si tienen alguna sugerencia de solución o saben que estoy haciendo mal, bienvenidas.
Alexander