Ewige Wiederholung von Paint

[Leo]

Delphi-Quellcode:

type
  TBox = class(TPanel)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
    AusgabeBereich : TImage;    
  public
    { Public-Deklarationen }

    procedure paint; override;

    constructor create(AOwner: TComponent); override;
    destructor  destroy; override;
  published
    { Published-Deklarationen }
  end;

...

Procedure TBox.Paint;
var
  Bitmap : TBitmap;
begin
Bitmap := AusgabeBereich.Picture.Bitmap;
Bitmap.Width  := AusgabeBereich.Width;
Bitmap.Height := AusgabeBereich.Height;
Bitmap.Canvas.Brush.style := bsSolid;
Bitmap.Canvas.Brush.color := clWhite;
Bitmap.Canvas.Rectangle(0,0,Bitmap.Width,Bitmap.Height);
end;