Yo hago lo siguiente, y me funciona perfecto, pero es como si temblara la grilla del DBGrid, como si todo el tiempo estuviera pintándose, y queda feo, como lo puedo solucionar???
Código Delphi
[-]
procedure TBuscar.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
const
clPaleMacho = TColor($00F1E8DE);
clPaleHembra = TColor($00E1C4FF);
begin
If Column.Field.Dataset.FieldbyName('sexo').AsString = 'MACHO'
then dbgrid1.Columns[3].color := clPaleMacho
else dbgrid1.Columns[3].color := clPaleHembra;
DBGrid1.DefaultDrawColumnCell(rect,DataCol,Column,State)
end;
__________________
Código Delphi
[-]
try
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;