unit Optionen;
interface
type
TOptionen =
class
procedure Anzeigen;
procedure Speichern;
private
public
Rueckgaengig : Boolean;
dreimalWuerfeln : Boolean;
Zugzwang : Boolean;
Geschwindigkeit : Extended;
Wuerfeln : Integer;
Farbauswahl : Integer;
Spieler : Integer;
Figuren : Integer;
Figurauswahl : Boolean;
BewegungsArt : Boolean;
end;
implementation
uses Unit2,Variablen;
procedure TOptionen.Anzeigen;
begin
Form2.Checkbox1.Checked:=Rueckgaengig;
Form2.Checkbox2.Checked:=dreimalWuerfeln;
Form2.Checkbox3.Checked:=Zugzwang;
if Geschwindigkeit=1
then Form2.RadioGroup7.ItemIndex:=0;
if Geschwindigkeit=0.5
then Form2.RadioGroup7.ItemIndex:=1;
if Geschwindigkeit=0.1
then Form2.RadioGroup7.ItemIndex:=2;
if Geschwindigkeit=0.05
then Form2.RadioGroup7.ItemIndex:=3;
if Geschwindigkeit=0.01
then Form2.RadioGroup7.ItemIndex:=4;
if Geschwindigkeit=0.005
then Form2.RadioGroup7.ItemIndex:=5;
if Geschwindigkeit=0.001
then Form2.RadioGroup7.ItemIndex:=6;
Form2.RadioGroup1.ItemIndex:=Wuerfeln;
Form2.RadioGroup2.ItemIndex:=Farbauswahl;
Form2.RadioGroup3.ItemIndex:=Spieler-2;
Form2.RadioGroup4.ItemIndex:=Figuren-1;
if Figurauswahl=True
then Form2.RadioGroup5.ItemIndex:=0
else Form2.RadioGroup5.ItemIndex:=1;
if BewegungsArt=True
then Form2.RadioGroup6.ItemIndex:=0
else Form2.RadioGroup6.ItemIndex:=1;
end;
procedure TOptionen.Speichern;
begin
Text.OptionenSpeichern;
end;
end.