تغییر رنگ ستون های DBGrid

آقا چه جوری میشه ستون های dbgrid را رنگی کرد

هر ستون را مثلا یه رنگ کنیم

از رویداد OnDrawColumnCell استفاده کن، مثال:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;

  DataCol: Integer; Column: TColumn; State: TGridDrawState);

begin

  if (DataCol mod 2) = 0 then

    TDBGrid(Sender).Canvas.Brush.Color := clRed

  else

    TDBGrid(Sender).Canvas.Brush.Color := clBlue;

  TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol  ,Column,State);

end;

اقا چرا این جوری میشه

یه رکورد خودش اضافه می کنه

می تونی در خاصیت coloumn از DBGrid ، هر ستون را انتخاب کنی و رنگ اون رو تغییر بدی

نقل قول:

---

اقا چرا این جوری میشه

یه رکورد خودش اضافه می کنه

---

در هر دو تصویر فقط 5 رکورد وجود داره...مسئله اینکه شما برای ستون ها رنگ روشن انتخاب کردید، رنگ متن در هنگام انتخاب کردن یک رکورد هم سفید هست و شما نمی تونید متن سفید در پس زمینه روشن رو بخونید.