Kann jemand helfen ?
Mein Versuch..

zusammenfalten · markieren

Delphi-Quellcode:

function Rgb2Alpha(colrRGB: Colorref): Byte;
begin
   if colrRGB <> 0 then
     Result := LOBYTE(round(colrRGB * 0.2989)) + LOBYTE(round((colrRGB shr 8) * 0.5870)) +
       LOBYTE(round((colrRGB shr 16) * 0.114))
   else
   Result := 0;
end;

procedure TSkinEngine.SetupAlphaChannel(DC: HDC);
var
  bm: BITMAP;
  P: integer;
  Alpha: byte;
  pBits: PByte;
begin

  FillChar(bm, sizeof(bm), 0);

  GetObject(GetCurrentObject(DC, OBJ_BITMAP), sizeof(bm), @bm);
  pBits := bm.bmBits;
  for P := 0 to (bm.bmWidth * bm.bmHeight) -1 do
  begin
    Alpha := (Rgb2Alpha(RGB(pBits[2], pBits[1], pBits[0])) and $000000FF);
    if ((Alpha = 0) and (pBits[3] = 0)) then
      pBits[3] := 0
    else
    if (pBits[3] = 0) then
      pBits[3] := 255;

    inc(pBits, 4);
  end;
end;

Das Problem ist einmal funktioniert es dann wieder nicht!
Das erste schlecht das zweite gut.

gruss

Alpha in Zusammenhang mit RGB ist die Transparenz und die kann man aus dem RGB-Wert nicht berechnen, denn diese wäre eine zusätzliche Angabe.

Zitat von Schokohase:

Alpha in Zusammenhang mit RGB ist die Transparenz und die kann man aus dem RGB-Wert nicht berechnen, denn diese wäre eine zusätzliche Angabe.

Hmm.. also wenn der Hintergrund Transparent ist wie im zweiten Bild dann geht es ansonsten nicht.
Kann man doch sehen am Bild

gruss

Danke ist erledigt habe es gefixt.

1. Pic vorher
2.Pic Aktuell

gruss

ARGB,

für die, welche die die Lösung nicht mitbekommen haben.

Zitat von himitsu:

ARGB,

für die, welche die die Lösung nicht mitbekommen haben.

Dadurch sind sie jetzt auch nicht schlauer

ARGB hat damit nichts zu tun..
Wenn ihr die Function richtig interpretieren würdet dann könnt ihr sehen das ich alle von außen sichtbaren Schwarzen Pixel nach Alpha 0 konvertiere..
Also RGB zu Alpha und dafür benötige ich den Alpha wert nicht da ich ihn selbst erstelle.

Aber egal ist erledigt.

gruss

himitsu und Schokohase ihr Ketzer! EWeiss kann Wasser in Wein verwandeln.

Zitat von EWeiss:

Kann jemand helfen ?
Mein Versuch..

zusammenfalten · markieren

Delphi-Quellcode:

function Rgb2Alpha(colrRGB: Colorref): Byte;
begin
   if colrRGB <> 0 then
     Result := LOBYTE(round(colrRGB * 0.2989)) + LOBYTE(round((colrRGB shr 8) * 0.5870)) +
       LOBYTE(round((colrRGB shr 16) * 0.114))
   else
   Result := 0;
end;

procedure TSkinEngine.SetupAlphaChannel(DC: HDC);
var
  bm: BITMAP;
  P: integer;
  Alpha: byte;
  pBits: PByte;
begin

  FillChar(bm, sizeof(bm), 0);

  GetObject(GetCurrentObject(DC, OBJ_BITMAP), sizeof(bm), @bm);
  pBits := bm.bmBits;
  for P := 0 to (bm.bmWidth * bm.bmHeight) -1 do
  begin
    Alpha := (Rgb2Alpha(RGB(pBits[2], pBits[1], pBits[0])) and $000000FF);
    if ((Alpha = 0) and (pBits[3] = 0)) then
      pBits[3] := 0
    else
    if (pBits[3] = 0) then
      pBits[3] := 255;

    inc(pBits, 4);
  end;
end;

Das Problem ist einmal funktioniert es dann wieder nicht!
Das erste schlecht das zweite gut.

gruss

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[3] = 0 ist, denn setzt du pBits[3] = 0 (Warum eigentlich= ist doch schon 0)
andernfalls, wenn der Grau-Wert <> 0 ist und pBits[3] = 0 ist dann setzt du pBits[3] = 255.
Problem dürfte sein, dass Deine "Rgb2Alpha" nicht korrekt arbeitet.
So sollte die korrekte Ergebnisse liefern:

zusammenfalten · markieren

Delphi-Quellcode:

function Rgb2Alpha(colrRGB: Colorref): Byte;
begin
    if colrRGB <> 0 then
// Result := LOBYTE(round(colrRGB * 0.2989)) + LOBYTE(round((colrRGB shr 8) * 0.5870)) +
// LOBYTE(round((colrRGB shr 16) * 0.114))
      Result := round(colrRGB and $FF * 0.2989) +
                round(colrRGB shr 8 and $FF * 0.5870) +
                round(colrRGB shr 16 * 0.114)
    else
    Result := 0;
end;

Nö ich berechne keinen Grau wert.
Wenn dem so wäre würde ich RGB2Gray verwenden.

Zitat:

Problem dürfte sein, dass Deine "Rgb2Alpha" nicht korrekt arbeitet.

Sieh dir einfach die Icons an dann siehst du wie sie arbeitet.
Das zweite Bild.. Nun was arbeitet da nicht korrekt? Du siehst den unterschied?

gruss

Zitat von EWeiss:

Nö ich berechne keinen Grau wert.
Wenn dem so wäre würde ich RGB2Gray verwenden.

Zitat:

Problem dürfte sein, dass Deine "Rgb2Alpha" nicht korrekt arbeitet.

Sieh dir einfach die Icons an dann siehst du wie sie arbeitet.
Das zweite Bild.. Nun was arbeitet da nicht korrekt? Du siehst den unterschied?

gruss

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/...cale-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 Luminanz etc.

Aber deine Funktion rechnet eben etwas anderes, und ich vermute ungewollt.