gridin adı -db_konular
database-dm.qer
procedure TAnaform.db_konularDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if (dm.qer.RecNo mod 2 = 0 ) then
begin
db_konular.Canvas.Font.Color := clNavy;
db_konular.Canvas.Brush.Color := clskyblue;
if gdselected in state then
begin
db_konular.Canvas.Brush.Color := clNavy;
db_konular.Canvas.FillRect(Rect);
db_konular.Canvas.Font.Color := clWhite;
end;
end
else begin
db_konular.Canvas.Brush.Color := clWhite;
db_konular.Canvas.Font.Color := clblack;
if gdselected in state then
begin
db_konular.Canvas.Font.Color := clWhite;
db_konular.Canvas.Brush.Color := clNavy;
db_konular.Canvas.FillRect(Rect);
end;
end;
db_konular.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;