unit uControl;
(* ******************************************************************** *)
(* K L A S S E : TControlFrm - Karel D. Robot *)
(* -------------------------------------------------------------------- *)
(* Version : 2.x *)
(* Autor : (c) 2004, Siegfried Spolwig *)
(* Beschreibung: Die Klasse hat Control-Funktion für die Welt und *)
(* die Akteure. *)
(* Compiler : Delphi 7.0 *)
(* Aenderungen : 2.3.2 14-FEB-05 s. Doc. *)
(* *)
(* known bugs : bei schneller ClickFolge werden nicht alle Fußspuren *)
(* gesetzt. *)
(* ******************************************************************** *)
interface
// =======================================================================
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons, uProtBox,
uFenster, // Oberklasse; zeigt die Welt
uCritter,
uKarel,
uRobot; // Fachklassen nach Bedarf
type
TControlFrm = class(TFensterFrm)
UserPnl : TPanel;
EndeBtn : TBitBtn;
GroupBox1 : TGroupBox;
VorBtn : TSpeedButton;
procedure EndeBtnClick(Sender: TObject);
procedure VorBtnClick(Sender: TObject);
procedure ItemsErzeugen;
end;
var
ControlFrm : TControlFrm;
|