Einzelnen Beitrag anzeigen

Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#10

AW: TColor - Zusammenfügen der Farben

  Alt 16. Mai 2011, 17:01
Wie könnte ich das denn dann machen?
Also 4 Schieberegler (von 0..255) (r,g,b,a) damit dann eine Farbe einstellen und auf einem Vorschaubild anzeigen. Danach die Farbe als 8 stellige Hex ausgeben im Format: $AARRGGBB (da bei der Delphifunktion doch 2 Farben gedreht sind)
Da ist nichts gedreht oder verdreht, sondern genau wie im schönen Dezimalsystem.
Einer, Zehner, Hunderter, Tausender (THZE) oder mal analog dazu
R, G, B, A (AGBR) und da jeder Wert (dezimal) von 0-255 oder (hex) von $00-$FF schreibt man auch gerne als Maske für die resultierende Hex-Darstellung ($AABBGGRR)

Bei einer Umrechnung nach TColor kann aber nur der RGB-Anteil verarbeitet werden, weil TColor eben nix mit dem Alpha-Kanal zu schaffen hat.

Für die tatsächlich resultierende Farbe die auf dem Schirm dann erscheinen muss zu errechnen, benötigt man eben noch die aktuelle Hintergrundfarbe.

Das führt uns somit zu folgendem Funktionsrumpf:
function GetColor( ARGB : TARGB; Color : TColor ): TColor;
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat