Schwarzes Bild nach Größenänderung mit GR32

[winx]

jawohl so gehts, der drawmode hat mir gefehlt

Delphi-Quellcode:

    PT:=TProjectiveTransformation.create;


    PT.Srcrect:=Floatrect(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);

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

    bmpact.OuterColor := transparentColor;
    bmpact.DrawMode := dmBlend;
    SetBorderTransparent(bmpact,Rect(0, 0, bmpact.Width - 1, bmpact.Height - 1));
    GR32_Transforms.Transform(ABitmap,bmpact,PT);

    PT.free;

Danke euch beiden für Eure Hilfe !!!