Zitat:
Delphi-Quellcode:
Result := TColor(Integer(IntToBin(BValue) + IntToBin(GValue)
+ IntToBin(RValue)));
Das Zusammensetzen geht wohl auch voll schief.
Prüf doch nochmal, was du da rechnest:
- du setzt Strings zusammen
- machst von dem String einen
typecast nach Integer
- und wunderst dich dann, daß da kein entsprechender "Integer"-Wert rauskommt.
Entweder du korregierst die String>Integer-
Konvertierung oder nutz doch einfach
RGB.