و هذه إضافة مني لكيفية تلوين الأعمدة
![[صورة: columnscolordh8.jpg]](http://img98.imageshack.us/img98/3543/columnscolordh8.jpg)
المشروع في المرفقات
ملاحظة: الكود لا يعمل مع الكود الأول الخاص بالأسطر
![[صورة: columnscolordh8.jpg]](http://img98.imageshack.us/img98/3543/columnscolordh8.jpg)
كود :
{this source created by mahdi, a member of delphi4arab forum
http://www.delphi4arab.net/forum/
تم إنجاز السورس من طرف مهدي العضو بمنتدى دلفي للعرب}
procedure TForm1.FormCreate(Sender: TObject);
var I: Integer;
begin
I:=0;
while I<DBGrid1.Columns.Count-1 do
begin
DBGrid1.Columns[i].Color:=$00E6D9C4;
// DBGrid1.Columns[i].Title.Color:=$00EAF7FF;
I:=I+1;
DBGrid1.Columns[i].Color:=$00EAF7FF;
// DBGrid1.Columns[i].Title.Color:=$00E6D9C4;
I:=I+1;
end;
end;ملاحظة: الكود لا يعمل مع الكود الأول الخاص بالأسطر
من تشبه بقوم فهو منهم

