Ich habe die Sache so leider nicht direkt lösen können, sondern das Projekt aus dem Beispiel nachprogrammiert, sprich: kein TImage32 sonder wie folgt:
Delphi-Quellcode:
FImgView := TImgView32.Create(Self);
FImgView.Parent := Self.Form;
FImgView.Align := alClient;
FImgView.ScrollBars.Visibility := svHidden;
FImgView.Visible := true;
FBild1 := TBitmapLayer.Create(FImgView.Layers);
FBild1.Bitmap.DrawMode := dmBlend;
FBild1.Bitmap.MasterAlpha := 255;
FBild1.Scaled := true;
FBild1.Bitmap.Width := Self.Form.Width;
FBild1.Bitmap.Height := Self.Form.Height;
FBild1.Location := FloatRect(0, 0, Self.Form.Width, Self.Form.Height);
FBild1.Visible := true;
FBild2 := TBitmapLayer.Create(FImgView.Layers);
FBild2.Bitmap.DrawMode := dmBlend;
FBild2.Bitmap.MasterAlpha := 0;
FBild2.Scaled := true;
FBild2.Bitmap.Width := Self.Form.Width;
FBild2.Bitmap.Height := Self.Form.Height;
FBild2.Location := FloatRect(0, 0, Self.Form.Width, Self.Form.Height);
FBild2.Visible := true;