unit uFenster;
(* ******************************************************************** *)
(* K L A S S E : TFensterFrm  - Karel D. Robot                          *)
(* -------------------------------------------------------------------- *)
(* Version     : 2.2                                                    *)
(* Autor       : (c) 2004, Siegfried Spolwig                            *)
(* Beschreibung: Die Klasse hat Control/Viewfunktion für die Welt und   *)
(*               die Akteure.                                           *)
(* Compiler    : Delphi 6.0                                             *)
(* Aenderung   : 2.0    02-APR-04   User-ControlFrm ausgelagert         *)
(*                                  Der Benutzer sieht nur eigene Kompo-*)
(*                                  nenten in ControlFrm                *)
(*               2.2    20-JUL-04   s. Doc.                             *)
(* known bugs  : Fußspuren fehlen bei schnellen Clicks                  *)
(* ******************************************************************** *)
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ShellApi, Menus, Buttons, 
  uGrafik, uInfoBox, uProtBox,
  uWelt, uTrainingscamp, uCleanCity, uMyWorld, // die Fachklassen nach Bedarf
  uLabyrinth, uBaum, uHaus, uMuell, uStein;

type
  TFensterFrm = class(TForm)
    WeltImg       : TImage;
    SpaltenLbl    : TLabel;
    ZeilenLbl     : TLabel;
    MeldePnl      : TPanel;
    ZentralPnl    : TPanel;
    SteuerLbl     : TLabel;
    KontrollPnl   : TPanel;
    MainMenu1     : TMainMenu;
    Datei1        : TMenuItem;
    Welten1       : TMenuItem;
    About1        : TMenuItem;
    Training1     : TMenuItem;
    CleanCity1    : TMenuItem;
    Labyrinth1    : TMenuItem;
    MyWorld1      : TMenuItem;
    About         : TMenuItem;
    Hilfe1        : TMenuItem;
    Mauerbau1     : TMenuItem;
    Alleebaeume1  : TMenuItem;
    Protokoll1    : TMenuItem;
    ProtSpeichern1: TMenuItem;
    ProtLaden1    : TMenuItem;
    ProtLoeschen1 : TMenuItem;

    procedure FormCreate(Sender: TObject);
    procedure AboutClick(Sender: TObject);
    procedure Hilfe1Click(Sender: TObject);
    procedure Training1Click(Sender: TObject);
    procedure Labyrinth1Click(Sender: TObject);
    procedure CleanCity1Click(Sender: TObject);
    procedure MyWorld1Click(Sender: TObject);
    procedure MeldePnlClick(Sender: TObject);
    procedure Mauerbau1Click(Sender: TObject);
    procedure Alleebaeume1Click(Sender: TObject);
    procedure Protokoll1Click(Sender: TObject);
    procedure ProtSpeichern1Click(Sender: TObject);
    procedure ProtLaden1Click(Sender: TObject);
    procedure ProtLoeschen1Click(Sender: TObject);
    procedure Meldung(s : string);
   private
   public
  end;

var
  FensterFrm   : TFensterFrm;
  Zeichenblatt : TZeichenblatt;
  Welt         : TWelt;         // kind of Singleton pattern - global
  Trainingscamp: TTrainingscamp;
  CleanCity    : TCleanCity;
  Labyrinth    : TLabyrinth;
  MyWorld      : TMyWorld;