Reflektion vom Image

[TiGü]

Delphi-Quellcode:

function MussteHaltNochSinnvollBeiDirEinfügen(hbmReturn: HGDIOBJ): HGDIOBJ;
var
  pBits: PRGBQuad; // <----- richtigen Datentyp nehmen!
  // Tipp: http://www.delphipraxis.net/155296-multipletexture-loader.html#post1056155
begin
  if GDIP_CreateFromHDC(ImgHDC, Graphics) = OK then
  begin
    if GDIP_DrawImageRectI(Graphics, Img, 0, 0, imgW, imgH) = OK then
    begin
      // sicherheitshalber Initialisieren, schadet ja nicht
      FillChar(bm, SizeOf(bm), 0);

      // nur weitermachen wenn Funktion GetObject Erfolg meldet
      if GetObject(hbmReturn, SizeOf(bm), @bm) <> 0 then
      begin
        pBits := bm.bmBits;

        GDIP_ImageRotateFlip(Img, 6); // Rotate180FlipX

        GDIP_DrawImageRectI(Graphics, Img, 0, integer(imgH), integer(imgW),
          integer(imgH));

        w := imgW;
        h := imgH;
        AlphaStep := 256;
        UseStep := 128 / (UseImgH - h);

        // Image Reflektieren
        for y := 0 to (UseImgH - h) - 1 do
        begin
          for x := 0 to (w - 1) do
          begin
            Alpha := MAX(pBits.rgbReserved - round(AlphaStep), 0);
            pBits.rgbReserved := Alpha;

            Inc(pBits);
          end;
          AlphaStep := AlphaStep - UseStep;
        end;

        for y := 0 to (h - 1) do
        begin
          for x := 0 to (w - 1) do
          begin
            AlphaCoef := (pBits.rgbReserved / 255);
            pBits.rgbBlue := round(pBits.rgbBlue / AlphaCoef);
            pBits.rgbGreen := round(pBits.rgbGreen / AlphaCoef);
            pBits.rgbRed := round(pBits.rgbRed / AlphaCoef);

            Inc(pBits);
          end;
        end;
        imgH := UseImgH;
        Result := hbmReturn;
      end;
      GDIP_DeleteGraphics(Graphics);
    end;
  end;
end;

[EWeiss]

Zitat:

http://www.delphipraxis.net/155296-m...ml#post1056155

Boaheh Wuste doch das ich das schon mal gemacht habe.
oops. Habe es einfach vergessen. Werde alt.

Danke.

gruss

[EWeiss]

So sieht es aus..
Das Problem ist nur ich bekomme mein Window nicht Transparent.
Na ja was soll's werde schon noch eine Lösung erarbeiten.

Der Papierkorb ändert sich abhängig vom Status voll oder leer.

gruss