La verdad creo que no me entienden o no me dejo entender, aca un demo de lo que deseo hacer pruebenlo y me dicen, pero falla, la grilla no queda con los datos exactos. El problema es que cuando me deslizo hacia abajo con el mouse los datos de la grilla se repiten con el registro anterior.
Código Delphi
[-]
type
TDBGrid = class(DBGrids.TDBGrid);
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
aRect : TRect;
begin
TDBGrid(Sender).Canvas.Font.Style := [];
TDBGrid(Sender).Canvas.Font.Color := clWindowText;
TDBGrid(Sender).Canvas.Brush.Color := clWindow;
TDBGrid(Sender).Canvas.Brush.Color := $00EFD3C6;
aRect := TDBGrid(Sender).CellRect(DataCol + 1, TDBGrid(Sender).Row);
if (gdSelected in State) and
(TDBGrid(Sender).Focused) then
begin
TDBGrid(Sender).Canvas.Font.Color := clWhite;
TDBGrid(Sender).Canvas.Brush.Color := clHighlight;
end;
TDBGrid(Sender).DefaultDrawColumnCell(aRect, DataCol, Column, State);
end;