Stringgrid färben

[MondoShiva]

Ich weiss es ist dumm aber es will mir nicht in den kopfgehen wie ich diese endlos lange procedure verkürzen kann ich wäre sehr dankbar wenn mir jemand sagen könnte wie ich eine einfachere schleife daraus mache

Delphi-Quellcode:

begin
 i := 2;
  if (ARow=i) and (StringGrid.Cells[ACol,ARow] <> '') then
  begin
    StringGrid.Canvas.Brush.Color := clSkyBlue;
  end;
  i := 4;
    if (ARow=i) and (StringGrid.Cells[ACol,ARow] <> '') then
  begin
    StringGrid.Canvas.Brush.Color := clSkyBlue;
    end;
      i := 6;
    if (ARow=i) and (StringGrid.Cells[ACol,ARow] <> '') then
  begin
    StringGrid.Canvas.Brush.Color := clSkyBlue;
    end;
      i := 8;
    if (ARow=i) and (StringGrid.Cells[ACol,ARow] <> '') then
  begin
    StringGrid.Canvas.Brush.Color := clSkyBlue;
    end;
      i := 10;
    if (ARow=i) and (StringGrid.Cells[ACol,ARow] <> '') then
  begin
    StringGrid.Canvas.Brush.Color := clSkyBlue;
    end;

[s-off]

Hallo,

schau Dir die DrawCell-Methode an.

Edit: vielleicht darfst Du ja hier mal abgucken :wink:

[Salomon]

Pseudocode:

for i := 1 to grid.rowcount do
if i ohne rest durh 2 teilbar (mod?, div?) dann zeile einfärben

[DeddyH]

Delphi-Quellcode:

if (i and 1) = 0

:zwinker:

[MondoShiva]

habs,
danke schön