Und was hindert dich daran? Du hast aCol, aRow, und aState zur Verfügung.aldi hat geschrieben:Hallo Theo,
erstmal vielen Dank, aber ich suche was anderes!
Möchte im StringGrid unterschiedliche Zeilen einfärben, dieses ist aber von bestimmten
Voraussetzungen abhängig!
Code: Alles auswählen
procedure TForm1.StringGrid1PrepareCanvas(sender: TObject; aCol, aRow: Integer;
aState: TGridDrawState);
var Sg: TStringGrid;
begin
Sg:=(Sender as TStringGrid);
if (ARow=2) and (ACol>0) then Sg.Canvas.Brush.Color:=clFuchsia;
if (ARow=4) and (ACol>0) then Sg.Canvas.Brush.Color:=clOlive;
end;