| Description | Hierarchy | Fields | Methods | Properties |
type TFloor = class(TArenaObject)
An arena object representing a floor. In Table 1 below follows an example of a definition of a doorway and in Figure 1 the corresponding graphics is shown.
Table 1: Example definition of a floor.
|
object MyFloor: TFloor Position = 0.000 0.000 0.000 Velocity = 0.000 0.000 0.000 Angle = 0.000 Height = 2.500 Mass = -1.000 RGBColor = 0 0 30 # Texture = Length = 2.000 Width = 2.000 TileLength = 1.000 TileWidth = 1.000 end |

Figure
1: Graphical appearance of the floor defined in Table 1.
![]() |
constructor Create(Owner: TArena); |
![]() |
destructor Destroy; override; |
![]() |
procedure AddAsStrings(Strings: TStringList); override; |
![]() |
function Edit(Dlg: TArenaObjectEditor = nil): Boolean; override; |
![]() |
procedure GenerateShapes; override; |
![]() |
constructor Create(Owner: TArena); |
Constructor
![]() |
destructor Destroy; override; |
Destructor
![]() |
procedure AddAsStrings(Strings: TStringList); override; |
Adds all properties as strings to a list of strings. Used internally by TArena.SaveToFile.
![]() |
function Edit(Dlg: TArenaObjectEditor = nil): Boolean; override; |
Displays an edit dialog (for visual editing of the object's properties).
Nil. (Only used internally.)True if the user clicks the OK button, False otherwise.
![]() |
procedure GenerateShapes; override; |
Generates a geometric representation of the object (a single plane). The result of this procedure can be retrieved through the property Shapes.
This procedure is automatically called when needed and should never be called explicitly by a user.
![]() |
property Length: real; |
![]() |
property TileLength: real; |
![]() |
property TileWidth: real; |
![]() |
property Width: real; |
![]() |
property Length: real; |
Length of the floor. Assuming that the rotation angle is zero, the length of the floor extends along the X-axis.
![]() |
property TileLength: real; |
Length of each floor tile (only useful when using a texture).
![]() |
property TileWidth: real; |
Width of each floor tile (only useful when using a texture).
![]() |
property Width: real; |
Width of the floor. Assuming that the rotation angle is zero, the width of the floor extends along the Y-axis.