TColor in RGB-Werte zerlegen?

[mjenke]

Guten Morgen, alle miteinander!

Ich hätte ein Problem, das ich auf Anhieb nicht selber lösen kann. Und zwar habe ich eine TColor, aus der ich die RGB-Werte herausziehen möchte. Ich habe noch keine Methode gefunden, die mir die Einzelwerte zurückliefert.

Ich weiss zwar, dass ich die Farbe irgendwohin malen könnte und dann über die Canvas und die Pixel an die einzelnen Farbwerte herankommen kann, aber das ist nicht Sinn der Sache. Ich habe die TColor lediglich in einer Variable und möchte mir die RGB-Werte herausziehen.

Wäre super, wenn mir jemand auf die Sprünge helfen könnte!


Matthias

[sakura]

Versuche doch mal unsere Suche. Entweder die globale TColor RGB oder direkt in der CodeLibrary TColor RGB. Du bist garantiert nicht der erste der das gerne wissen will.

......

[mjenke]

Hallo, sakura!!!

Supertipp! Vielen Dank!!

Habe die Lösung in der Windows-Unit gefunden..

Code:

longint RGB := ColorToRGB ( TColor )
integer R   := getRValue ( RGB )

etc.

Hat wunderbar funktioniert!!!


Matthias

[Delphi-Lover]

Hello,

If you work on Delphi Graphics and colors then don't forget to take a look at these very good Delphi pages !!! EFG's Computer Lab

Greetings,

Delphi Lover.

[Muetze1]

Moin!

Delphi-Quellcode:

longint RGB := ColorToRGB ( TColor )
integer R   := getRValue ( RGB )

Schlechtes Beispiel:

1. Die Funktion RGB() wird durch die Variable unbrauchbar
2. GetRValue(), GetGValue() und GetBValue() kann man direkt auf TColor Werte anwenden, die hat Borland extra so definiert, dass sie es richtig machen mit TColor Werten.

MfG
Muetze1