UNIT uGras;
(* ******************************************************************** *)
(* K L A S S E : TGras                                                  *)
(* -------------------------------------------------------------------- *)
(* Version     : 1.2                                                    *)
(* Autor       : (c) 2004, Siegfried Spolwig                            *)
(* Beschreibung: Die Klasse bildet Gras ab                              *)
(*                                                                      *)
(* Compiler    : Delphi 6                                               *)
(* Aenderungen : 0.9	01-MAR-04                                       *)
(* ******************************************************************** *)

INTERFACE
// =======================================================================
uses
  uMatter;

type
  TGras = class(TMatter)
   private
   public
    constructor Create;   override;
    procedure Init;
  end;

(* -------------------- B e s c h r e i b u n g -------------------------

Oberklasse    : TMatter
Bezugsklassen : -      import:

Methoden
--------

Create
  Auftrag: Exemlar erzeugen und initialisieren
  vorher :
  nachher: done.

Init
  Auftrag: Anfangswerte setzen
  vorher :
  nachher: Bild ist gesetzt

Set...
  Auftrag: Attribut schreiben
  vorher :
  nachher: Attribut ist gesetzt

Get...
  Auftrag: Attribut aus dem Objekt lesen
  vorher : 
  nachher: -

--------------------------------------------------------------------- *)