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