OSZ Handel I
Informatik

Karel D. Robot
TFensterFrm

S. Spolwig

[Delphi | OOP]
Startseite


TFensterFrm

Kurzbeschreibung Attribute Methoden

Klassendiagramm

Die Klasse realisiert die Anzeige der Welten und ist normalerweise nicht für den Benutzer zugänglich.


Zur Erläuterung:

FensterFrm ist das Hauptformular, in dem zur Entwurfszeit im Wesentlichen die Anzeigen (view) implementiert sind.

Zur Laufzeit werden alle Komponenten von FensterFrm und von Controlfrm, in dem im Wesentlichen die Eingaben  implementiert sind, in einem Formular zusammen dargestellt.

 

 

 
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;

©  05. April 2006    Siegfried Spolwig

page_top