hi circular
after a bit of playing I seem to have it working...
procedure TForm1.TrackBar1Change(Sender: TObject);
var
bmp1,bmp2, resultbmp: TBGRABitmap;
function MakeTween(img1,img2: TBGRABitmap; position: byte): TBGRABitmap;
begin
if position = 0
then result := TBGRABitmap(img1.Duplicate)
else if position = 255
then result := TBGRABitmap(img2.Duplicate)
else
begin
result := TBGRABitmap(img1.Duplicate);
result.PutImage(0,0,img2,dmDrawWithTransparency,position);
end;
end;
begin
bmp1 := TBGRABitmap.Create('SunflowerSmall.bmp');
bmp2 := TBGRABitmap.Create('TulipSmall.bmp');
resultbmp := MakeTween(bmp1,bmp2,trackbar1.position);
Image3.Picture.Bitmap.Assign(resultbmp.Bitmap);
resultbmp.Draw(Image3.Canvas,0,0,true);
resultbmp.Free;
end;
will try it in the 5dpo application - I guess next I need to work out how to do a Chromakey (any ideas?)...
thanks
TheBlackSheep