Schwarzes Bild nach Größenänderung mit GR32

[winx]

hab gerade was geschafft:

mit

Delphi-Quellcode:

    PT:=TProjectiveTransformation.create;

    //SetBorderTransparent(bmpact,Rect(0, 0, bmpact.Width - 1, bmpact.Height - 1));

    PT.X0:=CalcMousePosfromX(TransformPoint(TM,CADPoint(0,1)).X);
    PT.Y0:=CalcMousePosfromY(TransformPoint(TM,CADPoint(0,1)).Y);
    PT.X1:=CalcMousePosfromX(TransformPoint(TM,CADPoint(1,1)).X);
    PT.Y1:=CalcMousePosfromY(TransformPoint(TM,CADPoint(1,1)).Y);
    PT.X2:=CalcMousePosfromX(TransformPoint(TM,CADPoint(1,0)).X);
    PT.Y2:=CalcMousePosfromY(TransformPoint(TM,CADPoint(1,0)).Y);
    PT.X3:=CalcMousePosfromX(TransformPoint(TM,CADPoint(0,0)).X);
    PT.Y3:=CalcMousePosfromY(TransformPoint(TM,CADPoint(0,0)).Y);

    PT.Srcrect:=Floatrect(0,0,(bmpact.width-1),(bmpact.height-1));

    //transparentColor : TColor32;

    TColor32Entry(transparentColor).A := 255;
    TColor32Entry(transparentColor).R := 255;
    TColor32Entry(transparentColor).G := 255;
    TColor32Entry(transparentColor).B := 255;

    bmpact.OuterColor := transparentColor;
    GR32_Transforms.Transform(ABitmap,bmpact,PT);

    PT.free;

  end;

wird der hintergrund weiss, aber noch nicht durchsichtig....aber ich probiers weiter