| Description | Hierarchy | Fields | Methods | Properties |
type TGridShelf = class(TArenaObject)
An arena object representing a bookshelf with an abitrary number of cells. In Table 1 below follows an example of a definition of a grid shelf and in Figure 1 the corresponding graphics is shown.
Table 1: Example definition of a grid shelf.
|
object MyGridShelf: TGridShelf 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 Depth = 0.400 MaterialThickness = 0.030 ShelfThickness = 0.015 NumberOfHorizontalCells = 5 NumberOfVerticalCells = 4 end |

Figure
1: Graphical appearance of the grid shelf 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 Depth: real; |
![]() |
property Length: real; |
![]() |
property MaterialThickness: real; |
![]() |
property NumberOfHorizontalCells: integer; |
![]() |
property NumberOfVerticalCells: integer; |
![]() |
property ShelfThickness: real; |
![]() |
property Depth: real; |
Depth of the bookshelf. Assuming that the rotation angle is zero, the depth of the bookshelf extends along the Y-axis.
![]() |
property Length: real; |
Length of the bookshelf. Assuming that the rotation angle is zero, the length of the bookshelf extends along the X-axis.
![]() |
property MaterialThickness: real; |
Thickness of the material surrounding the bookshelf (the outer frame).
![]() |
property NumberOfHorizontalCells: integer; |
Number of horizontal cells in the bookshelf.
![]() |
property NumberOfVerticalCells: integer; |
Number of vertical cells in the bookshelf.
![]() |
property ShelfThickness: real; |
Thickness of the shelves.