Unit LOForm

Classes

TLayoutForm -

Functions

Types

PLotOfMetrics
TEdgeForConstraintArray
TEdgeForConstraintItems
TEdgeNames
TEdgePair
TLotOfMetrics
TRelationshipNames
TStringConstraints

Constants

EdgeForConstraintItems
EdgeNames
RelationshipNames

Variables

Confirm


Functions


Types


PLotOfMetrics = ^TLotOfMetrics

TEdgeForConstraintArray = array [0..2] of TEdgePair;
Array of edges possible for constraint
TEdgeForConstraintItems = array [TWhichConstraint] of TEdgeForConstraintArray;
Array of arrays of edges possible for constraint
TEdgeNames = array [TEdge] of string;
Array of all possible edges
TEdgePair = record
Name : string[10];
Edge : TEdge;
end;
Match string and edge code
TLotOfMetrics = array[0..64535 div sizeof(TLayoutMetrics)] of TLayoutMetrics;
types to store a dynamic array of constraints
TRelationshipNames = array [TRelationship] of string;
Array of all possible relationships
TStringConstraints = array[TWhichConstraint] of string;

Constants

EdgeForConstraintItems = ( ( ( Name : 'lmLeft'; Edge : lmLeft ), ( Name : 'lmRight'; Edge : lmRight ), ( Name : 'lmCenter'; Edge : lmCenter ) ), ( ( Name : 'lmTop'; Edge : lmTop ), ( Name : 'lmBottom'; Edge : lmBottom ), ( Name : 'lmCenter'; Edge : lmCenter ) ), ( ( Name : 'lmRight'; Edge : lmRight ), ( Name : 'lmCenter'; Edge : lmCenter ), ( Name : 'lmWidth'; Edge : lmWidth ) ), ( ( Name : 'lmBottom'; Edge : lmBottom ), ( Name : 'lmCenter'; Edge : lmCenter ), ( Name : 'lmHeight'; Edge : lmHeight ) ) )

Possible edge items for any of constraints

EdgeNames = ( 'lmLeft', 'lmTop', 'lmRight', 'lmBottom', 'lmCenter', 'lmWidth', 'lmHeight' )

Names of all possible edges

RelationshipNames = ('lmAsIs', 'lmPercentOf', 'lmAbove', 'lmBelow', 'lmSameAs', 'lmAbsolute')

Names of all possible relationships

Variables

Confirm : boolean