dbgrid

[nikan84]

سلام
می خواستم بدونم چطوری می تونم در dbgrid ردیف های نمایش داده شده را یک در میان با رنگ متفاوت نشان دهم.
ممنون

[farhad110]

با سلام. خوش آمديد
كد زير رو در ondrawcolumncell بنويسيد:

var
test1: Real;
RowNo: Integer;
farbe:TColor;
begin
with (Sender as TDBGrid) do
begin
if (gdSelected in State) then
begin
Canvas.Brush.Color := clblue;
end
else
begin
rowno := Table1.RecNo;
test1 := (RowNo / 2) - trunc(RowNo / 2);
if test1 = 0 then
begin
farbe := clWhite
end
else
begin
farbe := clYellow;
end;
Canvas.Brush.Color := farbe;
Canvas.Font.Color := clBlack;
end;
Canvas.FillRect(Rect);
Canvas.TextOut(Rect.Left + 2, Rect.Top + 1, Column.Field.AsString);
end;
end;

[Hsimple11]

بارها و بارها بحث شده. در بخش مقالات و ... این را هم میتوانید ببینید. جستجو کنید.
http://barnamenevis.org/forum/showthread.php?t=74289&highlight=%D8%B1%D9%86%DA%AF+dbgrid