TColor mit Alpha

[Andreas L.]

Hallo,

ich möchte mit TColor und Alpha-Transparenz arbeiten. Soweit ich weiß sind die ersten 2 Zeichen nach dem $-Symbol der Alpha-Wert, danach folgt rot, grün und blau. Stimmt das?

Wie kann ich nun den Alpha-Wert setzen bzw. extrahieren?

In der Graphics-Unit habe ich folgendes gefunden:

Delphi-Quellcode:

procedure ByteSwapColors(var Colors: array of COLORREF; Count: Integer);
var   // convert RGB to BGR and vice-versa.  TRGBQuad <-> TPaletteEntry
  I: Integer;
  Color: COLORREF;
begin
  for I := 0 to Count - 1 do
  begin
    Color := Colors[I];

    { Alpha = HiByte(HiWord(Color)) = (Color shr 16) shr 8
      Red   = LoByte(Hiword(Color)) = Byte(Color shr 16)
      Green = HiByte(LoWord(Color)) = Word(Color) shr 8
      Blue  = LoByte(LoWord(Color)) = Byte(Word(Color))
      Colors[I] := MakeLong(MakeWord(Red, Green), MakeWord(Blue, Alpha)); }

    Colors[I] := (Byte(Color shr 16) or (Word(Color) shr 8) shl 8) or
      (Byte(Word(Color)) or ((Color shr 16) shr 8) shl 8) shl 16;
  end;
end;

Interpretiere ich das richtig dass man mit folgendem Code an den Alpha-Wert kommt?

Delphi-Quellcode:

var   
  Color: COLORREF;
  Alpha: Word;
begin
  Color := $00000000;

  Alpha := (Color shr 16) shr 8;
end;

Wenn das stimmt, wie setze ich den Wert wenn er als Word oder Byte vorliegt?

Schöne Grüße,
Andreas Lauß

[Neutral General]

TColor (bzw. die GDI) unterstützt kein Alpha.

[TomyN]

Sagen wir mal so: Kein Alpha auf Pixelbasis. 'Transparente' overlays sind durchaus möglich.

Zum anderen ist die Zuordnung der Bytes zu den Farben bei Delphi etwas seltsam, da tut man sich mit den bereitgestellten Funktionen leichter.

Tomy

[Andreas L.]

Zitat:

Zitat von Neutral General (Beitrag 1436047)

TColor (bzw. die GDI) unterstützt kein Alpha.

Danke für deine schnelle Antwort :)

Und für was sind dann die ersten beiden Zeichen?

Welchen Typ kann ich statt TColor verwenden?

Zitat:

Zitat von TomyN (Beitrag 1436050)

Sagen wir mal so: Kein Alpha auf Pixelbasis. 'Transparente' overlays sind durchaus möglich.

Zum anderen ist die Zuordnung der Bytes zu den Farben bei Delphi etwas seltsam, da tut man sich mit den bereitgestellten Funktionen leichter.

Aber wie kann dann Delphi z. B. Alpha bei Icons darstellen bzw. verstehen?

[Neutral General]

Zitat:

Zitat von Andreas L. (Beitrag 1436051)

Zitat:

Zitat von Neutral General (Beitrag 1436047)

TColor (bzw. die GDI) unterstützt kein Alpha.

Danke für deine schnelle Antwort :)

Und für was sind dann die ersten beiden Zeichen?

Welchen Typ kann ich statt TColor verwenden?

Es liegt nicht am Typen, es liegt an der API (GDI).
Wenn du Alpha-Transparenz haben willst musst du mit der GDI+ arbeiten oder sogar OpenGL/DirectX (wobei das wahrscheinlich totaler Overkill wäre).

[Andreas L.]

Zitat:

Zitat von Neutral General (Beitrag 1436052)

Es liegt nicht am Typen, es liegt an der API (GDI).
Wenn du Alpha-Transparenz haben willst musst du mit der GDI+ arbeiten oder sogar OpenGL/DirectX (wobei das wahrscheinlich totaler Overkill wäre).

Das heißt also TColor wäre grundsätzlich in der Lage Alpha zu enthalten aber die API-Funktionen beachten diesen Wert nicht?

[Neutral General]

Zitat:

Zitat von Andreas L. (Beitrag 1436059)

Zitat:

Zitat von Neutral General (Beitrag 1436052)

Es liegt nicht am Typen, es liegt an der API (GDI).
Wenn du Alpha-Transparenz haben willst musst du mit der GDI+ arbeiten oder sogar OpenGL/DirectX (wobei das wahrscheinlich totaler Overkill wäre).

Das heißt also TColor wäre grundsätzlich in der Lage Alpha zu enthalten aber die API-Funktionen beachten diesen Wert nicht?

Jaiiiin. Das "Alpha"-Byte in TColor wird z.T. für andere Zwecke genutzt. (z.B. für Systemfarben). Rein technisch gesehen sind es 32-Bit, also genug für RGBA, aber das bringt dir erstmal nix.
Was hast du denn überhaupt vor?

[stahli]

Genau zur Frage kann ich nichts sagen, aber vielleicht ist "AlphaBlend" interessant.
Damit habe ich mal einen Schatteneffekt realisiert.

https://www.delphipraxis.net/179225-...infaerben.html
https://www.delphipraxis.net/185176-...gschatten.html
https://www.delphipraxis.net/185374-...ml#post1304439