Mega Code Archive

 

Categories / Delphi / VCL

 

Dbgrid alanlarinin renklendirilmesi

TDBGrid bileseninde gösterilen bilginin, daha kolay okunabilmesi, ve kullanicinin dikkatinin bazi özel durumlara cekilebilmesi icin, hücreleri renklendirmek faydali olabilir. procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var holdColor: TColor; begin holdColor := DBGrid1.Canvas.Brush.Color if Column.FieldName = 'EmpNo' then if (Column.Field.AsInteger mod 2 0) then begin DBGrid1.Canvas.Brush.Color := clGreen; DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); DBGrid1.Canvas.Brush.Color := holdColor; end; end;