unit Variablen;
interface
uses Tastaturkontrolle, Optionen, Menue1, Menue2, Hintergrund, Blau, Render, Gelb, Gruen, Rot, Auswahl, Wuerfel, Spielfeld, Text, Initalisieren;
type
TVariable =
class
procedure VariableInitalisieren;
procedure Objektinitalisieren;
private
public
Ansicht : Integer;
//Speichert welches Menü oder Spielfeld aktiv
end;
var
Variable : TVariable;
Tastatur : TTastaturkontrolle;
Blau : TBlau;
Gelb : TGelb;
Gruen : TGruen;
Rot : TRot;
Auswahl : TAuswahl;
Wuerfel : TWuerfel;
Spielfeld : TSpielfeld;
Text : TText;
Initalisieren: TInitalisieren;
Menue1 : TMenue1;
Menue2 : TMenue2;
Rendern : TRendern;
Hintergrund : THintergrund;
Optionen : TOptionen;
implementation
procedure TVariable.VariableInitalisieren;
begin
end;
procedure TVariable.Objektinitalisieren;
begin
Initalisieren:= TInitalisieren.Create;
Text := TText.Create(
nil);
Tastatur := TTastaturkontrolle.Create;
Rendern := TRendern.Create;
Blau := TBlau.Create;
Blau.Initalisieren;
Gelb := TGelb.Create;
Gelb.Initalisieren;
Gruen := TGruen.Create;
Gruen.Initalisieren;
Rot := TRot.Create;
Rot.Initalisieren;
Auswahl := TAuswahl.Create;
Auswahl.Initalisieren;
Spielfeld := TSpielfeld.Create;
Spielfeld.Initalisieren;
Wuerfel := TWuerfel.Create;
Wuerfel.Initalisieren;
Menue1 := TMenue1.Create;
Menue1.Initalisieren;
Menue2 := TMenue2.Create;
Menue2.Initalisieren;
Hintergrund := THintergrund.Create;
Hintergrund.Initalisieren;
Optionen := TOptionen.Create;
end;
end.