🚀 go-pugleaf

Boefje wrote in message <287dc9c0.0112101002.6cbc2cb@posting.google.com>...
>I use the next code to display a score. The score is a bitmap,
>returned by function ScoreBitmap. The bitmap is a standard true color
>(24-bits) bitmap.
>
>;------------------------------------------------------------
>
>procedure TForm1.DisplayScore(ai_Team ,ai_Score : integer);
>var TmpBmp : TBitmap;
>begin
>  TmpBmp := TBitmap.Create;

Assign a value to "TmpBmp".


>  TmpBmp.Width := ImageScore1.Width;
>  TmpBmp.Height := ImageScore1.Height;
>  TmpBmp := ScoreBitmap(ai_Score,TmpBmp.Width,TmpBmp.Height);

Assign a different value to "TmpBmp".


>  ImageScore1.Picture.Bitmap.FreeImage; { usefull?}
>  ImageScore1.Picture.Bitmap.Dormant; { usefull?}
>  ImageScore1.Picture.Bitmap.ReleaseHandle; { usefull?}
>  ImageScore1.Picture.Bitmap := TmpBmp;
>  TmpBmp.Free;

Free ONE bitmap.


>end;
>
>;------------------------------------------------------------
>
>After displaying the score many times, I get out of resources
>(EOutOfResources). This can only be caused by the created bitmaps. But
>I do not understand why. Please explain.


Perhaps freeing the first (locally allocated) bitmap would help.

Groetjes,
Maarten Wiltink