dbgrid tarihsel alan renklendirme

[Ahmet ALTUNTAŞ]

Merhaba
Dbgrid de tarih fieldini reklendirmem gerek iki tarih arasında 3 ay kalmışsa sarı yapmam gerek rengini ama tarihsel alanda bunu nasıl yapıcam bilmiyorum.
Yardımcı olabilirnmisiniz.

[a.mikayil]

Aslında ben 2 tarih arasındaki aralık koşulunu anlayamadım ama koşulu da aşağıda belirttiğim yere yazarsanız inşallah olacaktır.Bi de DBGridin Default Drawing özelliğini False yapmanız gerek.

Kod: Tümünü seç

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);
begin
  DBGrid1.Canvas.Font.Color:=clBlack;


  if (gdFocused in State) then
  begin
    DBGrid1.Canvas.Brush.Color:=clBlack;
    DBGrid1.Canvas.Font.Color:=clWhite;

  end

  else

    if (Field.FieldName='TARIH') then
  begin
    // şuraya koşulunuzu yazın if .... then 
       DBGrid1.Canvas.Brush.Color:=clYellow;
  end
  
  else
    DBGrid1.Canvas.Brush.Color:=clWhite;

  DBGrid1.DefaultDrawDataCell(Rect,Field,State);
end;

Kolay gele

[conari]

Kod: Tümünü seç

procedure TFrmKalite.DBGKaliteDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
 if ADOKaliteGrid.active=true then //dataset açıksa işlemi yaptırıyoruz.
   Begin

/// bu kısıma sende gerek yok
      if (DBGkalite.datasource.dataset.recno mod 2) =0  then
       begin
        DBGkalite.Canvas.Brush.Color := cllime;
       end
       else
       begin
     DBGkalite.Canvas.Brush.Color := $008AE6D1;
      end;
   If (gdSelected in state) then // eğer seçili ise
     begin
      DBGkalite.Canvas.Font.Color:=clblue; // Fontun rengini değiştirir..
      DBGkalite.Canvas.Font.Style:=[fsbold];
      End;
     End;
/// bu kısıma sende gerek yok

  try
   if Column.Index >11 then
   if column.field.asinteger >0   then begin // sen burada tarihi kontrol etmelisin
   DBGkalite.Canvas.Font.Color:=clred
   end else begin
   DBGkalite.Canvas.Font.Color:=clblack;
   end;
   except

   end;
   DBGkalite.DefaultDrawColumnCell(Rect, DataCol, Column, State);
 end

[Ahmet ALTUNTAŞ]

çok teşekkür ederim arkadaşlar.