EOutOfResources bei resize

[bernau]

Zitat von computer-glossar.de:

heir einmal der constructor dieser klasse:

Delphi-Quellcode:

     
      Constructor TCircleScope.Create(Width, Height : Integer);
      begin
        VisBuff := TBitmap.Create;
        BackBmp := TBitmap.Create;

      end;

der desctructor ist leider nicht in der unit aufzufinden?!
wie doof ist das denn?

Es werden zwei Bitmap erzeugt. Da der Destructor nicht vorhanden ist, werden diese zwei Bitmap nicht freigegeben. Lege den Destructor für TCircleScope an und gib die beiden Bitmap frei.

Delphi-Quellcode:

     
Destructor TCircleScope.destroy;
  begin
    VisBuff.free
    BackBmp.free;
    inherited
  end;