Delphi-Quellcode:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if (Sender as TStringGrid).Cells[ACol, ARow] <> '' then begin
(Sender as TStringGrid).Canvas.Brush.Color := clRed;
(Sender as TStringGrid).Canvas.FillRect(Rect);
end;
end;
Hier mein Code.
Malt alle Rosen rot, jedenfalls wenn sie leer sind
Was willst Du denn wirklich erreichen?