AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Farbe wird verändert

Ein Thema von EWeiss · begonnen am 8. Mai 2017 · letzter Beitrag vom 17. Mai 2017
Antwort Antwort
EWeiss
(Gast)

n/a Beiträge
 
#1

AW: Farbe wird verändert

  Alt 10. Mai 2017, 06:04
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

Geändert von EWeiss (11. Jul 2019 um 15:47 Uhr)
  Mit Zitat antworten Zitat
Blup

Registriert seit: 7. Aug 2008
Ort: Brandenburg
1.493 Beiträge
 
Delphi 12 Athens
 
#2

AW: Farbe wird verändert

  Alt 10. Mai 2017, 09:22
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;
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#3

AW: Farbe wird verändert

  Alt 10. Mai 2017, 15:43
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

Geändert von EWeiss (11. Jul 2019 um 15:47 Uhr)
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#4

AW: Farbe wird verändert

  Alt 11. Mai 2017, 07:41
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

Geändert von EWeiss (11. Jul 2019 um 15:47 Uhr)
  Mit Zitat antworten Zitat
Blup

Registriert seit: 7. Aug 2008
Ort: Brandenburg
1.493 Beiträge
 
Delphi 12 Athens
 
#5

AW: Farbe wird verändert

  Alt 17. Mai 2017, 08:34
Was war dann die Ursache und wie hast du das Problem gelöst?
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#6

AW: Farbe wird verändert

  Alt 17. Mai 2017, 17:13
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

Geändert von EWeiss (17. Mai 2017 um 21:49 Uhr)
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:47 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz