Mega Code Archive

 

Categories / Delphi / VCL

 

[] Koşula göre grid renklendirme

// Merhaba arkadaşlar burda table1tutar alanın 500000000 Tl ye eşit yada küçük olması durumunda gridin ilgili sutunu kırmızı olacaktır. gridde kosulu or yada and kullanarak paranteslere dikkat ederek dilerseniz tüm satırıda renklendirebilirsiniz. procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if (Column.Field = table1tutar ) and (table1tutar.Asstring <=500000000) then DBGrid1.Canvas.Font.Color :=clBlue else if gdselected in State then DBGrid1.Canvas.Font.Color := clHighlightText else DBGrid1.Canvas.Font.Color :=clBlack; DBGrid1.Canvas.TextRect(Rect,Rect.Left,Rect.Top,Column.Field.AsString); end;