| Description | Hierarchy | Fields | Methods | Properties |
type TDoorWay = class(TArenaObject)
An arena object representing a doorway (with or without a door). 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 doorway.
|
object MyDoorWay: TDoorWay 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 0 # Texture = Width = 0.900 Thickness = 0.100 OpeningHeight = 2.120 OuterEdgeWidth = 0.050 OuterEdgeThickness = 0.010 HasWallPaperFront = False # WallPaperFront = HasWallPaperBack = False # WallPaperBack = TextureTileLength = 1.000 TextureTileHeight = 1.000 HasDoor = True DoorThickness = 0.050 end |

Figure
1: Graphical appearance of the doorway 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 geometric representations of the object. 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 DoorThickness: real; |
![]() |
property HasDoor: Boolean; |
![]() |
property HasWallPaperBack: Boolean; |
![]() |
property HasWallPaperFront: Boolean; |
![]() |
property OpeningHeight: real; |
![]() |
property OuterEdgeThickness: real; |
![]() |
property OuterEdgeWidth: real; |
![]() |
property TextureTileHeight: real; |
![]() |
property TextureTileLength: real; |
![]() |
property Thickness: real; |
![]() |
property WallPaperBack: string; |
![]() |
property WallPaperFront: string; |
![]() |
property Width: real; |
![]() |
property DoorThickness: real; |
Thickness of the door.
![]() |
property HasDoor: Boolean; |
Indicates whether the doorway has a door or not.
![]() |
property HasWallPaperBack: Boolean; |
Indicates whether the doorway should use a texture on its back side or not. See also WallPaperBack.
![]() |
property HasWallPaperFront: Boolean; |
Indicates whether the doorway should use a texture on its front side or not. See also WallPaperFront.
![]() |
property OpeningHeight: real; |
Height of the opening in the doorway (height of the door).
![]() |
property OuterEdgeThickness: real; |
Thickness of the frame around the doorway opening.
![]() |
property OuterEdgeWidth: real; |
Width of the frame around the doorway opening.
![]() |
property TextureTileHeight: real; |
Height of the texture tiling (along the Z-axis). This property is meaningful only when HasWallPaperBack and/or HasWallPaperFront is set to True.
![]() |
property TextureTileLength: real; |
Length of the texture tiling (along X- and Y-axis). This property is meaningful only when HasWallPaperBack and/or HasWallPaperFront is set to True.
![]() |
property Thickness: real; |
Thickness of the doorway (should match with the thickness of any adjacent walls).
![]() |
property WallPaperBack: string; |
Texture (a file name) to be used on the back of the doorway. This texture image is only used if HasWallPaperBack is set to True.
![]() |
property WallPaperFront: string; |
Texture (a file name) to be used on the front of the doorway. This texture image is only used if HasWallPaperFront is set to True.
![]() |
property Width: real; |
Width of the doorway. The width of the opening (the door) is equal to Width-OuterEdgeWidth.