Rectangle mit schleife

[turboPASCAL]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,... integer;
begin
  with image1.canvas do
  begin
    //  image1.Canvas.Brush.Style := bsClear; // <----<<<
    // da aber With Image1.Canvas vorangestellt ist reicht:
    
    Brush.Style := bsClear;

    a := 80;
    c := 160;
    e := -1;
    for f := 1 to 3 do
    begin
      e := e + 1;
      a := a - (e*40);
      c := c + (e*40);
      b := a;
      d := c;

      Rectangle(a+90,b+90, c+90,d+90)  ;
    end;
  end;
end;

Rectangle zeichnet immer mit dem akt. Pen-Color den Ramen und mit dem Brush.Color wird es dann ausgefüllt.
Will man den innenbereich nicht ausfüllen setzt man den Style des Brusches auf bsClear

[oh]Brush.Style, Pen.Style, Rectangle[/oh]