Units
Class Hierarchy
Classes, Interfaces and Objects
Types
Variables
Constants
Functions and Procedures
Identifiers

Class TfmEnvironment

Unit

fEnvironment

Declaration

type TfmEnvironment = class()

Description

 

Fields

 NameDescription
Public edWater  
Public imageMap  
Public Panel1  
Public Panel3  
Public Panel4  
Public panelMap  
Public StatusBar  
Public tbAddRemoveWater  
Public tbAppleTree  
Public tbBoringTree  
Public tbBrick  
Public tbCrawly  
Public tbFauna  
Public tbLandDesert  
Public tbLandDirt  
Public tbLandField  
Public tbLandGrass  
Public tbMoon  
Public tbOrangeTree  
Public tbRefresh  
Public tbSlime  
Public tbSpiritGirl  
Public tbSpiritGuy  
Public tbSun  
Public tbTemperature  
Public tbWater  
Public tbWateringCan  
Public tbWaterLake  
Public tbWaterPuddle  
Public tbWaterPuddle2  
Public tbWaterSea  
Public ToolBarSpace  
Public ToolButton1  
Public ToolButton10  
Public ToolButton11  
Public ToolButton12  
Public ToolButton13  
Public ToolButton14  
Public ToolButton2  
Public ToolButton3  
Public ToolButton4  
Public ToolButton5  
Public ToolButton6  
Public ToolButton8  
Public ToolButton9  
Public ToolTimer  
Public WaterUpDown  

Methods

Overview

Public procedure AddSpirit(aGender: integer);
Public procedure ApplyTool(aTool: eTool; X: integer; Y: integer);
Public procedure ClearMap;
Public procedure DrawThing(aThing: AIThing);
Public procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
Public procedure FormCreate(Sender: TObject);
Public procedure FormShow(Sender: TObject);
Public procedure imageMapMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Public procedure imageMapMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
Public procedure imageMapMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Public procedure RefreshGridInfo;
Public procedure RefreshMap;
Public procedure RefreshMouseGrid(aColor: TColor);
Public procedure RefreshSquare(X: integer; Y: integer);
Public procedure RefreshThings;
Public procedure ReportUserEvent(aEvent: string);
Public procedure StartUsingTool;
Public procedure StopUsingTool;
Public procedure tbAddRemoveWaterClick(Sender: TObject);
Public procedure tbAppleClick(Sender: TObject);
Public procedure tbAppleTreeClick(Sender: TObject);
Public procedure tbBirdClick(Sender: TObject);
Public procedure tbBrickClick(Sender: TObject);
Public procedure tbCloudClick(Sender: TObject);
Public procedure tbCrawlyClick(Sender: TObject);
Public procedure tbHumidityClick(Sender: TObject);
Public procedure tbLandDesertClick(Sender: TObject);
Public procedure tbLandDirtClick(Sender: TObject);
Public procedure tbLandFieldClick(Sender: TObject);
Public procedure tbLandGrassClick(Sender: TObject);
Public procedure tbMoonClick(Sender: TObject);
Public procedure tbOrangeClick(Sender: TObject);
Public procedure tbOrangeTreeClick(Sender: TObject);
Public procedure tbRefreshClick(Sender: TObject);
Public procedure tbSlimeClick(Sender: TObject);
Public procedure tbSpiritGirlClick(Sender: TObject);
Public procedure tbSpiritGuyClick(Sender: TObject);
Public procedure tbSunClick(Sender: TObject);
Public procedure tbTemperatureClick(Sender: TObject);
Public procedure tbWateringCanClick(Sender: TObject);
Public procedure tbWaterLakeClick(Sender: TObject);
Public procedure tbWaterPuddle2Click(Sender: TObject);
Public procedure tbWaterPuddleClick(Sender: TObject);
Public procedure tbWaterSeaClick(Sender: TObject);
Public procedure ToolTimerTimer(Sender: TObject);
Public procedure WaterUpDownClick(Sender: TObject; Button: TUDBtnType);

Description

Public procedure AddSpirit(aGender: integer);

 

Public procedure ApplyTool(aTool: eTool; X: integer; Y: integer);

 

Public procedure ClearMap;

 

Public procedure DrawThing(aThing: AIThing);

 

Public procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

 

Public procedure FormCreate(Sender: TObject);

 

Public procedure FormShow(Sender: TObject);

 

Public procedure imageMapMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

 

Public procedure imageMapMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

 

Public procedure imageMapMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

 

Public procedure RefreshGridInfo;

 

Public procedure RefreshMap;

 

Public procedure RefreshMouseGrid(aColor: TColor);

 

Public procedure RefreshSquare(X: integer; Y: integer);

 

Public procedure RefreshThings;

 

Public procedure ReportUserEvent(aEvent: string);

 

Public procedure StartUsingTool;

 

Public procedure StopUsingTool;

 

Public procedure tbAddRemoveWaterClick(Sender: TObject);

 

Public procedure tbAppleClick(Sender: TObject);

 

Public procedure tbAppleTreeClick(Sender: TObject);

 

Public procedure tbBirdClick(Sender: TObject);

 

Public procedure tbBrickClick(Sender: TObject);

 

Public procedure tbCloudClick(Sender: TObject);

 

Public procedure tbCrawlyClick(Sender: TObject);

 

Public procedure tbHumidityClick(Sender: TObject);

 

Public procedure tbLandDesertClick(Sender: TObject);

 

Public procedure tbLandDirtClick(Sender: TObject);

 

Public procedure tbLandFieldClick(Sender: TObject);

 

Public procedure tbLandGrassClick(Sender: TObject);

 

Public procedure tbMoonClick(Sender: TObject);

 

Public procedure tbOrangeClick(Sender: TObject);

 

Public procedure tbOrangeTreeClick(Sender: TObject);

 

Public procedure tbRefreshClick(Sender: TObject);

 

Public procedure tbSlimeClick(Sender: TObject);

 

Public procedure tbSpiritGirlClick(Sender: TObject);

 

Public procedure tbSpiritGuyClick(Sender: TObject);

 

Public procedure tbSunClick(Sender: TObject);

 

Public procedure tbTemperatureClick(Sender: TObject);

 

Public procedure tbWateringCanClick(Sender: TObject);

 

Public procedure tbWaterLakeClick(Sender: TObject);

 

Public procedure tbWaterPuddle2Click(Sender: TObject);

 

Public procedure tbWaterPuddleClick(Sender: TObject);

 

Public procedure tbWaterSeaClick(Sender: TObject);

 

Public procedure ToolTimerTimer(Sender: TObject);

 

Public procedure WaterUpDownClick(Sender: TObject; Button: TUDBtnType);

 

Properties

Overview

Public property Environment: AIEnvironment;
Public property MouseGridX: integer;
Public property MouseGridY: integer;
Public property OppositeTool: boolean;
Public property Tool: eTool;
Public property ToolIsActive: boolean;
Public property WaterLevel: integer;

Description

Public property Environment: AIEnvironment;

Public declarations

Public property MouseGridX: integer;

 

Public property MouseGridY: integer;

 

Public property OppositeTool: boolean;

 

Public property Tool: eTool;

 

Public property ToolIsActive: boolean;

 

Public property WaterLevel: integer;

 


Generated by PasDoc 0.8.7 on Wed 01/ Oct 2003 00:51:38