تغير لون خط الخلية المحددة في dbgrid

[Al-Eid]

السلام عليكم
لقد أستطعت بإستعمال الحدث PrepareCanvas بتغيير لون أسطر DBGrid حسب الشروط
المشكل هو عند تحديد خلية ما يتحول لون الخط إلى أبيض أريد أن أعرف كيف أغير لون الخط للخلية المحددة

[Zaher]

استعمل OnDrawColumnCell لتغيير خصائص الخط

Code: Pascal  [Select][+][-]

1. (Sender as TDBGrid).Font.Color := clBlack
2.  

[Al-Eid]

الكود  نجح بهذا الشكل

Code: Pascal  [Select][+][-]

1. (Sender as TDBGrid).Canvas.Font.Color := clBlue;
2.  

وفي الحدث PrepareCanvas
ولكن أنا أسئل عن تغيير لون الخط للخلية المحددة فقط ليس كل الخلايا

[nouzi]

جرب اضافة هذا

Code: [Select]

if DBGrid.DataSource.DataSet.FieldByName('اسم الحقل') then
Sender as TDBGrid).Canvas.Font.Color := clBlue;


[Al-Eid]

جرب اضافة هذا

Code: [Select]

if DBGrid.DataSource.DataSet.FieldByName('اسم الحقل') then
Sender as TDBGrid).Canvas.Font.Color := clBlue;


من خلال إجابتك أخي يبدوا أن سؤالي غير مفهوم مع العلم أن في إجابتك نقص فعملية المقارنة غير كاملة
أنا اريد أن أعرف الخلية أو السطر المحدد (row selected) لتغيير لون الخط

[Al-Eid]

السلام عليكم
لقد وجدت هذا الكود رغم أنه لا يغير لون الخط وإنما يغير لون الخلية المحددة
ولقد ساعدني في حل المشكل

Code: Pascal  [Select][+][-]

1. procedure TForm1.DBGrid1PrepareCanvas(sender: TObject; DataCol: Integer;
2.   Column: TColumn; AState: TGridDrawState);
3. begin
4.   if (gdSelected in AState) then
5.          begin
6.           DBGrid1.Canvas.Brush.Color := clBlue;
7.          end;
8.  
9. end;
10.  
11.  

شكرا للجميع 

[nouzi]

من خلال إجابتك أخي يبدوا أن سؤالي غير مفهوم مع العلم أن في إجابتك نقص فعملية المقارنة غير كاملة
أنا اريد أن أعرف الخلية أو السطر المحدد (row selected) لتغيير لون الخط

صحيح  جوبتك على عجل

في  محاولتك الأخير كان عليك  استبدال  هذا

Code: Pascal  [Select][+][-]

1. DBGrid1.Canvas.Brush.Color := clBlue;
2.  

بهذاء

Code: Pascal  [Select][+][-]

1.  DBGrid1.Canvas.font.Color := clBlue;
2.  

هنتك مثال  مرفق

[Al-Eid]

من خلال إجابتك أخي يبدوا أن سؤالي غير مفهوم مع العلم أن في إجابتك نقص فعملية المقارنة غير كاملة
أنا اريد أن أعرف الخلية أو السطر المحدد (row selected) لتغيير لون الخط

صحيح  جوبتك على عجل

في  محاولتك الأخير كان عليك  استبدال  هذا

Code: Pascal  [Select][+][-]

1. DBGrid1.Canvas.Brush.Color := clBlue;
2.  

بهذاء

Code: Pascal  [Select][+][-]

1.  DBGrid1.Canvas.font.Color := clBlue;
2.  

هنتك مثال  مرفق

بارك الله فيك 

[Zaher]

استعمل ال Sender  لضمان التعامل مع نفس الغريد

[Al-Eid]

بالنسبة لهذا الكود الخاص بتلوين الخط

Code: Pascal  [Select][+][-]

1.  
2.  DBGrid1.Canvas.font.Color := clBlue;
3.  

فإنه يعمل عند وضعه في شروط الأخري ولكن لا يعمل مع شرط الخلية المحددة
فالخلية المحددة يبقى دوما لون الخط أبيض

استعمل ال Sender  لضمان التعامل مع نفس الغريد

نعم
شكرا وبارك الله فيك
لقد فهمت الأن لما كنتم تضعون هذا في أمثلتكم عوض إسم الأداة مباشرة

[nouzi]

راجع المشروع في المرفقات

[Al-Eid]

السلام عليكم وعيدكم مبارك
لقد راجعت المشروع بالفعل الفكرة تعمل
ولكنها لم تعمل معي حتى قمت بتغيير dbgrid  فنجح الأمر
يبدو أن هناك خصائص  قمت بتغييرها جعل الأمر يبدو غير صحيح