SRL Archive - Research & Development Lounge

Draws an image on a form.
A simple yet effective procedure.

procedure DrawImage(var Image : TImage; bmp : integer);
var
  bmp, width, heighth, FileNum : integer;
begin
  GetBitmapSize(bmp, width, heighth);
  CopyCanvas(getbitmapcanvas(bmp), Image.Canvas, 0, 0, width, heighth, 0, 0, width, heighth);
  FreeBitmap(bmp);
end;

You need to change Bitmap to Bmp and get rid of the var, for it to be able to work :)

Shouldn't you add x1, x2 etc so you can actually tell the procedure where to put it?

Oh, my bad I knew that naum :D. And no you don't quickmarch, you have the TImage's placement already setup. So all this does is draw the bitmap you specify on it. It's size should be the same as the TImage/Bitmap.

I'll try this on my Videopoker game :)
edit: Where do u need the FileNum var?
and shouldnt u also remove var bmp, since you have presented it 2 times there?
(once var is presented in the [ like a in function(var a:integer) ] you don't need to present it again

dont free the bitmap for us aswell because you may whant to use the bitmap for somthing else.

procedure DrawImage(var Image : TImage; var bmp : integer);
var
  bmp, width, heighth : integer;
begin
  GetBitmapSize(bmp, width, heighth);
  CopyCanvas(getbitmapcanvas(bmp), Image.Canvas, 0, 0, width, heighth, 0, 0, width, heighth);
end;

New one. And lol I had no idea I had FileNum in there. I was planning on doing it a different way but I changed my mind and forgot to remove that. Thanks Marpis ;).