Farbe wird verändert

[EWeiss]

Mein Icon hat jetzt die richtige Farbe von daher ist das Thema erst mal erledigt.
Es lag aber nicht an der Funktion RGB2GRAY.

Ich musste dazu extra noch die Alpha Werte neu zuordnen.

gruss

[Blup]

Ich habe mich mal an der Funktion "PNG4TransparentBitMap" versucht, eigentlich sollte nur für das AlphaFormat "afPremultiplied" einer Sonderbehandlung notwendig sein.

Delphi-Quellcode:

function PNG4TransparentBitMap(bmp: TBitmap): TPNGImage;
var
  x, y: Integer;
  vBmpRGBA: ^TRGBAArray;
  vPngRGB: ^TRGB;
  vAlpha: Single;
begin
  Result := TPNGImage.CreateBlank(COLOR_RGBALPHA, 8, bmp.Width , bmp.Height);
  Result.CreateAlpha;

//  {Wenn diese Alphaformate nicht gesondert behandelt werden müssen:}
//  if bmp.AlphaFormat in [afIgnored, afDefined] then
//  begin
//    Result.Canvas.CopyMode:= cmSrcCopy;
//    Result.Canvas.Draw(0,0,bmp);
//  end
//  else

  for y := 0 to pred(bmp.Height) do 
  begin
    vBmpRGBA := bmp.ScanLine[y];
    vPngRGB := Result.Scanline[y];

    for x := 0 to pred(bmp.width) do 
    begin
      Result.AlphaScanline[y][x] := vBmpRGBA[x].A;
      vPngRGB^.b := vBmpRGBA[x].b;
      vPngRGB^.r := vBmpRGBA[x].r;
      vPngRGB^.g := vBmpRGBA[x].g;

      case bmp.AlphaFormat of
        afIgnored:
          Result.AlphaScanline[y][x] := 255; 
        afPremultiplied:
          begin
            if vBmpRGBA[x].A <> 0 then
            begin
              vAlpha := 255 / vBmpRGBA[x].A;
              vPngRGB^.b := round(vPngRGB^.b * vAlpha);
              vPngRGB^.r := round(vPngRGB^.r * vAlpha);
              vPngRGB^.g := round(vPngRGB^.g * vAlpha);
            end
            else
            begin
              {voll transparente Bereiche weiß}
              vPngRGB^.b := 255;
              vPngRGB^.r := 255;
              vPngRGB^.g := 255;
            end
          end;
        afDefined: 
          ;
      end;

      inc(vPngRGB);
    end;
  end;
end;

[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