[CLOSED] BGRABitmap Free

[pcurtis]

When I do this

Code: Pascal  [Select][+][-]

1. procedure TfrmMain.btnOKClick(Sender: TObject);
2. var
3.   MyImage: TBGRABitmap;
4. begin
5.   MyImage := TBGRABitmap.Create;
6.   MyImage.LoadFromFile('1.bmp');
7.   Image1.Picture.Bitmap := MyImage.Bitmap;
8.   MyImage.Free;
9. end;
10.  

When MyImage is freed the Imagebox shows a black square. With a TBitmap it works fine.

Am I missing something?

[Josh]

hi try to update image1, before you free MyImage

Code: Pascal  [Select][+][-]

1. MyImage := TBGRABitmap.Create('1.bmp');
2.  // MyImage.LoadFromFile('1.bmp');
3.   Image1.Picture.Bitmap:=MyImage.Bitmap;
4.   Image1.Update;
5.   MyImage.Free;

[pcurtis]

OK Thanks that works, but with tbitmap I don't need it. Why?

[winni]

Hi!

This is a problem of the widget set.

With linux / gtk2 it is not necessary.

Winni

[pcurtis]

Enough said.
Built for *nix, pray it works on other OS's.

[winni]

Hi!

Just do it how it is shown in the tutorials:

https://wiki.freepascal.org/BGRABitmap_tutorial

I pray for nothing.

But that is the correct way to use it:

Code: Pascal  [Select][+][-]

1. MyImage.Draw(Image1.Canvas,0,0);
2. MyImage.free;
3.  

Winni

[pcurtis]

So how do you use center, stretch, proportional properties of TImage?

[winni]

Hi!

If your google is broken then use the "search" option of this forum.

Winni

[pcurtis]

My Google works fine.

Why reinvent the wheel?

Code: Pascal  [Select][+][-]

1.   Image1.Picture.Bitmap:=MyImage.Bitmap;
2.   Image1.Update;
3.  

Works fine.

[Josh]

you could use an intermeddiate bitmap to hold the image; should work on all os's. no update should be needed.

Code: Pascal  [Select][+][-]

1. var
2.   bmp:tbitmap;
3.   MyImage: TBGRABitmap;
4.  
5. begin
6.   MyImage := TBGRABitmap.Create;
7.   bmp:=tbitmap.Create;
8.   myimage.LoadFromFile('1.bmp');
9.   bmp.SetSize(myimage.Width,myimage.Height);
10.   bmp.Canvas.Draw(0,0,myimage.Bitmap);
11.   image1.Picture.Bitmap:=bmp;
12.   MyImage.Free;
13.   bmp.free;
14. end;