Feld in Stringgrid färben

[Klaus01]

Versuche es einmal so:

Delphi-Quellcode:

procedure TKndT.StringGrid2DrawCell(Sender: TObject; ACol, ARow: Integer; 
   Rect: TRect; State: TGridDrawState); 
  var i : Integer; 
      w : extended; 
      s : string; 
  begin 
    s := ( sender as TStringGrid).Cells[ ACol, ARow]; 
    if TryStrToFloat( s , w) then 
    if w >= 200 then 
        begin 
         ( sender as TStringGrid).Canvas.Brush.Color := clred; 
         ( sender as TStringGrid).Canvas.FillRect(Rect);          // erst füllen
         ( sender as TStringGrid).Canvas.Brush.Color := clblack;  // wie mkinzler schreibt
         ( sender as TStringGrid).canvas.TextOut(Acol,Arow,s);    // dann reinschreiben
          
        end; 

end;

Grüße
Klaus