Bei einer RadioBox/RadioGroup kann man die Else weg lassen, bzw. gleich ein CASE verwenden.
Bei den IFs muß man aufpassen, denn ohne ELSE dreht sich die Auswertungsreihenfolge um, wenn mehr als eine Checkbox aktiviert ist.
Delphi-Quellcode:
if C_blau.Checked then
Canvas.Brush.Color := clblue or random (8000000)
else if C_Gelb.Checked then
Canvas.Brush.Color := clyellow or random (8000000)
else if C_gruen.Checked then
Canvas.Brush.Color := clgreen or random (8000000)
...
else
Canvas.Brush.Color:= clblack;
Delphi-Quellcode:
Canvas.Brush.Color:= clblack;
...
if C_gruen.Checked then
Canvas.Brush.Color := clgreen or random (8000000)
if C_Gelb.Checked then
Canvas.Brush.Color := clyellow or random (8000000)
if C_blau.Checked then
Canvas.Brush.Color := clblue or random (8000000)