Class TSutraNode2D

DescriptionHierarchyFieldsMethodsProperties

Unit

Declaration

type TSutraNode2D = class(TCustomSutraNode, INode)

Description

no description available, TCustomSutraNode description follows
no description available, TCustomSutraItem description follows
no description available, TPhastCollectionItem description follows

Hierarchy

Overview

Fields

Private FLocation: TPoint2D;
Private FNodeType: TNodeType;
Private FElements: TSutraElement2D_List;
Private FCellOutline: TVertexArray;
Private FMinX: TFloat;
Private FMaxX: TFloat;
Private FMinY: TFloat;
Private FMaxY: TFloat;
Private FSelected: Boolean;

Methods

Private procedure SetLocation(const Value: TPoint2D);
Private procedure SetX(const Value: FastGEO.TFloat);
Private procedure SetY(const Value: FastGEO.TFloat);
Private procedure SetNodeType(const Value: TNodeType);
Private procedure DrawTop(const BitMap: TBitmap32; const ZoomBox: TQRbwZoomBox2; DrawingChoice: TDrawingChoice; DataArray: TDataArray; SelectedLayer: integer; StringValues : TStringList);
Private function DisplayNumber: integer;
Private function GetElement(Index: Integer): TSutraElement2D;
Private function GetElementCount: Integer;
Private procedure InvalidateOutlines;
Private function GetMaxX: Double;
Private function GetMaxY: Double;
Private function GetMinX: Double;
Private function GetMinY: Double;
Private procedure SetSelected(const Value: Boolean);
Protected function GetActiveElementCount: integer;
Protected function GetActiveElement(Index: Integer): IElement;
Protected function GetNodeNumber: Integer;
Protected procedure SetNodeNumber(Value: Integer);
Protected function GetLocation: TPoint2D;
Protected function GetNodeType: TNodeType;
Public procedure Assign(Source: TPersistent); override;
Public procedure AssignINode(Source: INode);
Public function IsInsideCell(APoint: TPoint2D): Boolean;
Public constructor Create(Collection: TCollection); override;
Public destructor Destroy; override;
Public function CellIntersection(const Input: TSegment2D; out IntersectingSegments: TSegment2DArray): boolean;
Public function EdgeNode: boolean;
Public procedure GetCellOutline(var CellOutline: TVertexArray);
Public function CellArea: double;
Public function IsInside(APoint: TPoint2D): Boolean;
Public procedure InvalidateCellOutline;
Public procedure RemoveElement(AnElement: TSutraElement2D);

Properties

Public property Location: TPoint2D read FLocation write SetLocation;
Public property ElementCount: Integer read GetElementCount;
Public property Elements[Index:Integer]: TSutraElement2D read GetElement;
Public property Selected: Boolean read FSelected write SetSelected;
Published property X: FastGEO.TFloat read FLocation.x write SetX;
Published property Y: FastGEO.TFloat read FLocation.y write SetY;
Published property NodeType: TNodeType read FNodeType write SetNodeType;
Published property MaxX: Double read GetMaxX;
Published property MinX: Double read GetMinX;
Published property MaxY: Double read GetMaxY;
Published property MinY: Double read GetMinY;

Description

Fields

Private FLocation: TPoint2D;
 
Private FNodeType: TNodeType;
 
Private FElements: TSutraElement2D_List;
 
Private FCellOutline: TVertexArray;
 
Private FMinX: TFloat;
 
Private FMaxX: TFloat;
 
Private FMinY: TFloat;
 
Private FMaxY: TFloat;
 
Private FSelected: Boolean;
 

Methods

Private procedure SetLocation(const Value: TPoint2D);
 
Private procedure SetX(const Value: FastGEO.TFloat);
 
Private procedure SetY(const Value: FastGEO.TFloat);
 
Private procedure SetNodeType(const Value: TNodeType);
 
Private procedure DrawTop(const BitMap: TBitmap32; const ZoomBox: TQRbwZoomBox2; DrawingChoice: TDrawingChoice; DataArray: TDataArray; SelectedLayer: integer; StringValues : TStringList);
 
Private function DisplayNumber: integer;
 
Private function GetElement(Index: Integer): TSutraElement2D;
 
Private function GetElementCount: Integer;
 
Private procedure InvalidateOutlines;
 
Private function GetMaxX: Double;
 
Private function GetMaxY: Double;
 
Private function GetMinX: Double;
 
Private function GetMinY: Double;
 
Private procedure SetSelected(const Value: Boolean);
 
Protected function GetActiveElementCount: integer;
 
Protected function GetActiveElement(Index: Integer): IElement;
 
Protected function GetNodeNumber: Integer;
 
Protected procedure SetNodeNumber(Value: Integer);
 
Protected function GetLocation: TPoint2D;
 
Protected function GetNodeType: TNodeType;
 
Public procedure Assign(Source: TPersistent); override;
 
Public procedure AssignINode(Source: INode);
 
Public function IsInsideCell(APoint: TPoint2D): Boolean;
 
Public constructor Create(Collection: TCollection); override;
 
Public destructor Destroy; override;
 
Public function CellIntersection(const Input: TSegment2D; out IntersectingSegments: TSegment2DArray): boolean;
 
Public function EdgeNode: boolean;
 
Public procedure GetCellOutline(var CellOutline: TVertexArray);

GetCellOutline gets a polygon that defines the cell around the node. The last point in the outline is not the same as the first point so a connecting line is needed between the first and last points.

Public function CellArea: double;
 
Public function IsInside(APoint: TPoint2D): Boolean;
 
Public procedure InvalidateCellOutline;
 
Public procedure RemoveElement(AnElement: TSutraElement2D);
 

Properties

Public property Location: TPoint2D read FLocation write SetLocation;
 
Public property ElementCount: Integer read GetElementCount;
 
Public property Elements[Index:Integer]: TSutraElement2D read GetElement;
 
Public property Selected: Boolean read FSelected write SetSelected;
 
Published property X: FastGEO.TFloat read FLocation.x write SetX;
 
Published property Y: FastGEO.TFloat read FLocation.y write SetY;
 
Published property NodeType: TNodeType read FNodeType write SetNodeType;
 
Published property MaxX: Double read GetMaxX;
 
Published property MinX: Double read GetMinX;
 
Published property MaxY: Double read GetMaxY;
 
Published property MinY: Double read GetMinY;
 

Generated by PasDoc 0.12.1 on 2013-05-13 15:42:04