nur Bereiche neuzeichnen

[Cöster]

Hm. An welcher Stelle und wovon muss ich denn Brush.Style auf bsClear setzen?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Bmp: TBitmap;
begin
  // PaintBox1.Canvas.Brush.Style := bsClear;
  Bmp := TBitmap.Create;
  try
    Bmp.SetSize(30, 30);
    with Bmp.Canvas do
    begin
      // Brush.Style := bsClear;
      Pen.Color := clYellow;
      Brush.Color := clYellow;
      Ellipse(0, 0, 30, 30);
      BitBlt(PaintBox1.Canvas.Handle, 0, 0, 30, 30, Handle, 0, 0, SRCCOPY);
      Pen.Color := clRed;
      Brush.Color := clRed;
      Ellipse(0, 0, 30, 30);
      BitBlt(PaintBox1.Canvas.Handle, 20, 20, 30, 30, Handle, 0, 0, SRCCOPY);
    end;
  finally
    Bmp.Free;
  end;
end;