Hallo,
ich hab mal wieder eine Frage ^^
Ich möchte eine komplette Reihe eines StringGrid-Gitters färben, wenn die 4. Spalten den Text "PP:2" enthalten.
Code:
procedure TForm1.ffnen1Click(Sender: TObject);
var fg: integer;
begin
for fg := 1 to Stringgrid1.Rowcount do
begin
with Stringgrid1 do
begin
if cells[fg,3] = 'PP:2' then // 4. Spalte
begin
Canvas.Brush.Color := clYellow;
end;
end;
end;
end;
Hab auch schon gesucht, und folgendes gefunden:
Zeilen färben
Kann mir das jemand erklären, ich hab das noch nicht in der Schule gehabt ...
ThX