Ergebnis der Suchanfrage

• Forum: Multimedia

  AW: RGB zu Alpha

    Delphi
    by Amateurprofi, 20. Aug 2018
  Noch ein Versuch.
  
  Mach mal
  ShowMessage(IntToStr(Rgb2Alpha($FFFFB1))); // Rgb2Alpha ist die in #1 gezeigte Funktion.
  Und dann
  ShowMessage(IntToStr(Rgb2Alpha(0)));
  
  
  
  Bei mir kommt da in beiden Fällen 0 heraus.
• Forum: Multimedia

  AW: RGB zu Alpha

    Delphi
    by Amateurprofi, 19. Aug 2018
  Das liegt daran, das Pixel die wirklich Schwarz sind (Red=0, Green=0, Blue=0), halt auch bei deiner Implementierung 0 bleiben, weil 0, mit was auch immer multipliziert, 0 bleibt. Zufall also.
  Aber du kannst ja mal erklären was deine RGB2Alpha tatsächlich rechnen soll. Ich würde das gerne verstehen.
• Forum: Multimedia

  AW: RGB zu Alpha

    Delphi
    by Amateurprofi, 19. Aug 2018
  Du verwendest aber exakt die Werte zur Umrechung, die gern und oft für die Umrechnung in Grau vorgeschlagen werden,
  zum Beispiel hier https://stackoverflow.com/questions/687261/converting-rgb-to-grayscale-intensity
  Nur ist es bei dir fehlerhaft programmiert.
  Was du willst ist doch die Summe aus RGB.Red*0.2689 + RGB.Green*0.587 + RGB.Blue*0.114
  Und das ist der Grau-Wert oder die Intensity oder...
• Forum: Multimedia

  AW: RGB zu Alpha

    Delphi
    by Amateurprofi, 19. Aug 2018
  Auch wenn Du schriebst, es sei erledigt:
  Wenn ich das richtig verstehe, errechnest du mit "Rgb2Alpha" für jedes Pixel aus den RGB-Werten einen "Grau-Wert. Wenn dieser = 0 (Schwarz) ist und pBits = 0 ist, denn setzt du pBits = 0 (Warum eigentlich= ist doch schon 0)
  andernfalls, wenn der Grau-Wert <> 0 ist und pBits = 0 ist dann setzt du pBits = 255.
  Problem dürfte sein, dass Deine "Rgb2Alpha"...