Mega Code Archive
[] Dbgrid hücrelerine şarta bağlı metin rengi verme
<![CDATA[
..:: MyTolga ::..
DbGrid Sütunlarının İstenen Şartlara Göre Yazı Rengi Verilmesi
Burada Şart Olarak ADI Field'i Baz Alınmıştır.
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
Renk:Tcolor;
Renk1:Tcolor;
begin
Renk:=DbGrid1.Canvas.Font.color;
If Column.fieldname='ADI' then
If (Column.Field.Asstring ='MyTolga') then
Begin
Dbgrid1.Canvas.Font.Color:=ClBlue;
Dbgrid1.DefaultDrawColumnCell(Rect,Datacol,column,state);
Dbgrid1.Canvas.Font.Color:=Renk;
End;
End.
]]>