tja, jetzt knallt es unter anderem da
Delphi-Quellcode:
function TColorMixer.Colorize: TColor;
var
Color1, Color2: LongInt;
ValueR, ValueG, ValueB, Value1, Value2: Byte;
begin
MixStrengthPercentage:=
Du ruft den Setter von FMixStrengthPercentage auf und der dann wieder...Colorize
Delphi-Quellcode:
procedure TColorMixer.SetMixStrengthPercentage(Value: Byte);
begin
if Value<>FMixStrengthPercentage then
begin
FMixStrengthPercentage:=Value;
Colorize;
end;
end;
usw....
IMHO solltest Du alle Aufrufe von Colorize bis auf den Getter rausschmeißen und die Werte nicht über die Setter setzen, außer diese tun mehr als den Wert zu setzen (wobei Rekursionen zu vermeiden sind >> Stackoverflow)