كيفية تغيير لون DataGrid في Delphi؟ تماما مثل السيطرة على الاسم نفسه في .NET.
------------------------------------------------- -------------------------
يبدو أنه يكتب رمز في حدث OndrawDatacell.
------------------------------------------------- -------------------------
الإجراء tform1.dbgriddrawcolumncell (المرسل: tobject ؛
Const Rect: Trect ؛
الدولة: tgriddrawstate) ؛
يبدأ
إذا كان dbgrid2.datasource.dataset.recno mod 2 = 1 ثم
يبدأ
dbgrid2.canvas.font.color: = clblue ؛
dbgrid2.canvas.brush.color: = clyellow ؛
نهاية
آخر يبدأ
dbgrid2.canvas.font.color: = clred ؛
dbgrid2.canvas.brush.color: = clgradientactivecaption ؛
نهاية؛
dbGrid2.DefaultDrawColumnCell (Rect ، Datacol ، العمود ، الحالة) ؛
نهاية؛