implementation
{$R *.DFM}
type
AlternGrid = class(TCustomDBGrid);
-------------------------------------------------
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var dataset:Tdataset;
begin
dataset:= (Sender as TDBGrid).DataSource.DataSet;
dataset:= (Sender as TDBGrid).DataSource.DataSet;
with AlternGrid(Sender) do
begin
if (DataSet.RecNo mod 2 = 1 ) then
Canvas.Brush.Color := $00E6D9C4//$00EBFEFB
else
Canvas.Brush.Color := $00EAF7FF;// $00E7ECCA
if DataLink.ActiveRecord = Row -1 then //enreg. selectionné
begin
Canvas.Font.Color:=clwhite ;
Canvas.Brush.Color:=clblack;
end; end ;
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column, State);
end;
//*----------------// aymenk
dgrid mettez la prop option->multiselect à true.
