Farbe wird verändert

[EWeiss]

Hmm.. also ich muss das teil nochmal extra durch diese Funktion jagen damit mein Image die Transparente Farbe behält.
Lasse ich sie weg ist das Image Grau.

Delphi-Quellcode:

         if GetObject(hbmReturn, sizeof(bm), @bm) <> 0 then
         begin
           pBits := bm.bmBits;

           for a := 0 to (Height - 1) do
           begin
             for b := 0 to (Width - 1) do
             begin
               if pBits.rgbReserved > 0 then
               begin
                 AlphaCoef := (pBits.rgbReserved / 255);
                 pBits.rgbBlue := round(pBits.rgbBlue / AlphaCoef);
                 pBits.rgbGreen := round(pBits.rgbGreen / AlphaCoef);
                 pBits.rgbRed := round(pBits.rgbRed / AlphaCoef);
               end;
               inc(pBits);
             end;
           end;
         end;

Also deine geänderte Version zerschießt die ganze Transparenz.
Habe es extra mal getestet.

gruss

[EWeiss]

So hab wieder die ganze Nacht rumgemacht jetzt funktionieren die Farben wie sie sollen.

Zum vergleich.. das Bild in diesen Beitrag und das hier.
Damit ist das erst mal erledigt.

gruss

[Blup]

Was war dann die Ursache und wie hast du das Problem gelöst?

[EWeiss]

Zitat von Blup:

Was war dann die Ursache und wie hast du das Problem gelöst?

Mit der geänderten Function von Amateurprofi und angehängten stdcall
stdcall wirkt manchmal wunder. (vor allem dann wenn diese Function sich in einer DLL befindet.)

Delphi-Quellcode:

function RGBtoGray(Value: COLORREF):COLORREF; stdcall;
asm
       movzx   edx,al
       imul    edx,19595  // Red
       movzx   ecx,ah
       imul    ecx,38470  // Greean
       shr     eax,16
       imul    eax,7471   // Blue
       add     eax,ecx
       add     eax,edx
       shr     eax,16
       mov     ah,al
       shl     eax,8
       mov     al,ah
 end;

gruss