Text im DBgrid einfärben

[barnti]

Hi,
der Vollständigkeit halber:

Delphi-Quellcode:

      
procedure TForm_Main.DBGrid_MasterDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);

var Grid: TDBGrid;

begin
  Grid:= TDBGrid(Sender);

if 'Bedingung zum Ändern der Schriftfarbe' then
  begin
    Grid.Canvas.Font.Color:= clRed;                     // Text des akt. Feldes 
    Grid.Canvas.TextRect(Rect,Rect.Left +2, Rect.Top +2,Column.Field.AsString);
  end

Gefunden hier