TBGRABitmap - resize

[emil]

Code: [Select]

Procedure TForm1.FormPaint(Sender: TObject);
var
  image :TBGRABitmap;
Begin
  GmImage.ResampleFilter := rfMitchell;
  image := GmImage.Resample(clientWidth, clientHeight, rmSimpleStretch) as TBGRABitmap;
  image.draw(canvas,0, 0, [b]true[/b]);
  image.free;
end; 

I have a white image on wich is painted an orange rectangle.
When i run the program and resize the window, only the rectangle gets many black bars. Im confused !
when i change to

Code: [Select]

  image.draw(canvas,0, 0, [b]false[/b]);

PS: true=opaque; false=transparent

its, there is no bars, but its not orange like i wanted.

how can i omit those bars?

[circular]

only the rectangle gets many black bars

I don't understand.

Can you post a screenshot of the window?

[lainz]

i think he was confused a lot...

he is just resizing a.bitmap, you can not see the code of drawing the orange rectangle..

maybe is better to use a bgravirtualscreen and draw the white bitmap and the orange rectangle with relative sizes there