You will probably be better off by creating an off screen bitmap, then using
CopyRect to put the offscreen bitmap onto the TImage. You will also want to
save the underlying area of the TImage before doing the copy so you can put it
SaveBmp, MyBmp : TBitmap;
PosR : TRect; // set for position in output image
xpos, ypos : integer;
// set up the image you are going to output
MyBmp := TBitmap.Create;
// set the position in output and create the copyrect
xpos := xxx;
ypos := yyy;
PosR := Rect(xpos, ypos, xpos + MyBmp.Width, ypos + MyBmp.Height);
// copy Timage area to save it from output image
SaveBmp := TBitmap.Create;
SaveBmp.Width := MyBmp.Width;
SaveBmp.Height := MyBmp.Height;
// write out your bmp
// whenever you get ready to move the image, you put back the original image
> Hello NG,
> I have a TImage that contains a bitmap (~1024X768).
> I have another Timage (150X150) no bitmap loaded, that has transparent set
> to true.
> I draw an ellipse on the 150X150 Timage and then move 5 times per second by
> setting its Top and Left Property.
> Problem.... Every time I reposition (move) the 150X150 image over the larger
> image, I get a flicker.
> I've tried with and without calling Image.Update..... no luck.
> How do I get rid of the flicker?