if(DataCol == 0) { if(dataset->FieldByName("LIMPIA")->AsString == "S") DBGrid1->Canvas->Brush->Color = clGreen; else { if(dataset->FieldByName("LIMPIA")->AsString == "P") DBGrid1->Canvas->Brush->Color = clYellow; else DBGrid1->Canvas->Brush->Color = clRed; } DBGrid1->DefaultDrawDataCell(Rect, Column->Field, State); }
Código Delphi [-] DBGrid1.Canvas.Brush.Color := clYellow;
DBGrid1.Canvas.Brush.Color := clYellow;
Código Delphi [-]if Column.Field = ClientDataSet1SALDO then if ClientDataSet1SALDO.AsCurrency < 200 then begin DBGrid1.Canvas.Font.Color := clRed; DBGrid1.DefaultDrawDataCell(rect,Column.Field,State);// aquí es donde digo que me pone horrible la fuente end;
if Column.Field = ClientDataSet1SALDO then if ClientDataSet1SALDO.AsCurrency < 200 then begin DBGrid1.Canvas.Font.Color := clRed; DBGrid1.DefaultDrawDataCell(rect,Column.Field,State);// aquí es donde digo que me pone horrible la fuente end;