Dbgridi tarih (gün farkı)e göre renklendirmek

[eyalin]

S.A.
Herkese kolay gelsin.Biliyorum forumda tarih işlemleri var ama bi türlü olmadı.yapmak istediğim bugünün tarihinden dbgridimde bulunan tarih alanını çıkartmak ve gridi ona göre renklendirmek.Bi türlü çözemedim.
Uses ta dateutils eklidir.

Kod: Tümünü seç

if DaysBetween(today-dm1.sikayetdataset.FieldByName('S_KAYTARIH'))>=10 THEN
begin
dbgridsikayetlistesi.Canvas.Font.Color := clBLACK ;
dbgridsikayetlistesi.Canvas.Brush.Color:= clYELLOW;
dbgridsikayetlistesi.DefaultDrawColumnCell(Rect, DataCol, Column, State);

gibi bir kod var ne yapmam lazım.Yardımlarınız için teşekkürler.
Haa bu arada calculated field falan olmadan yaparsam çok güzel olur.

Kod: Tümünü seç

if DaysBetween(today,dm1.sikayetdataset.FieldByName('S_KAYTARIH').AsDateTime)<2 THEN

şeklinde kulandım ve çözüldü.Yanlış kullanıyordum.Umarım msj kirliliği yapmış olmuyorumdur. Ya valla bu foruma emeği geçen herkesten Allah razı olsun.Soruyu sorduktan sonra bile sanki bi ilham geliyo sanki.

[conari]

1. tarih eşleştirmesini kontrol edin sonuc >=10 doğrumu ?
ikincisi hangi eventte yapıyorsunuz.

drawdatacell de yaparsanız olması lazım.

[chnyildirim]

sorunu çözmüş arkadaş. neyse bilgi olarak kalsın...

DbGrid Eventsında
DBGridOnColumnCell e

Kod: Tümünü seç

 if (Odd(Column.Field.DataSet.RecNo)) AND (State = []) then DBGrid3.Canvas.Brush.Color := clInfoBk;
   DBGrid3.DefaultDrawcOLUMNCell(Rect,DataCol,Column,State);

yazıp denermisin.