Wer hilft mir ein Stück Code zu komprimieren?

[nahpets]

Hallo,

Du könntest zuerst alle .Checked und .Enabled auf False setzen, und dann in den einzelnen Abfragen nur noch die benötigten auf True, dadurch könntest Du eventuell ein paar Zeilen sparen.
Die einzelnen If-Abfragen können per Else miteinander verbunden werden, da ja nur eine If-Abfrage zutreffen kann.

Delphi-Quellcode:

  Blue1.Checked:=False; 
  Vista1.Checked:=False; 
  Red1.Checked:=False; 
  Black1.Checked:=False; 
  Win71.Checked:=False; 
  Light1.Checked:=False; 
  Blue1.Enabled:=False; 
  Vista1.Enabled:=False; 
  Red1.Enabled:=False; 
  Black1.Enabled:=False; 
  Win71.Enabled:=False; 
  Light1.Enabled:=False; 

if Background='Blue' then 
begin 
  Image3.Picture:=Image23.Picture; 
  Blue1.Checked:=True; 
  Vista1.Enabled:=True; 
  Red1.Enabled:=True; 
  Black1.Enabled:=True; 
  Win71.Enabled:=True; 
  Light1.Enabled:=True; 
end else if Background='Vista' then
...

Aber viel Ersparnis bringt das nicht.