Problem with bitmaps

[abcfantasy]

Hello, I'm having a problem with bitmaps when passed as parameters. I've got the following procedure in a unit:

procedure TMap.CopyArea( pImage: TBitmap; X, Y: integer );
var SourceRect, DestRect: TRect;
    Map_Image: TBitmap;
begin
  {some code}
  pImage.Canvas.CopyRect( DestRect, Map_Image.Canvas, SourceRect );
end;

Then in my main program, I've got a TImage component (named image_Map) and I've got the following code:

procedure Tform_Main.FormCreate(Sender: TObject);
begin
  Map := TMap.Create;
  Map.CopyArea( image_Map.Picture.Bitmap, 50, 50 );
end;

However the result is that image_Map remains blank and nothing is displayed. Am I missing something?

Thank you in advance
Andrew

ABC -

http://www.abcfantasy.tk

 

[buho]

The TImage have an image loaded?

Only creating the TImage will not set the internal bitmap sizes (and perhaps neither the bitmap format nor other things); may be you are calling the copy function with a bitmap which is not functional.

buho (A).

 

[abcfantasy]

No the TImage has no image loaded.

Now I loaded a blank image into the TImage at design time, and the copying worked fine.

But is this (ie. loading a "dummy" image) a good and clean way to get it working or is there a better way?

ABC -

http://www.abcfantasy.tk

 

[buho]

Without loading the image:

a) Manually initialize the TImage.Picture.Bitmap sizes and try.

If it does not work then:

b) Manually initialize the the TBitmap.PixelFormat too and try again.

If it still does not work then:

c) Check the TBitmap properties and try to guess what other thing can need initialization.

buho (A).

 

[abcfantasy]

Thanks alot for your help.

All that was needed was Image.Picture.Bitmap.SetSize()


ABC -

http://www.abcfantasy.tk

 

[buho]

You are welcome.

buho (A).