Class TCrossSection

Unit

SutraMeshUnit

Declaration

type TCrossSection = class(TGoPhastPersistent)

Description

Hierarchy

• TPersistent
• TGoPhastPersistent
• TCrossSection

Overview

Fields

	FStartX: Double;
	FStartY: double;
	FEndX: Double;
	FEndY: double;
	FColor: TColor;
	FEditing: Boolean;
	FOnMoved: TNotifyEvent;

Methods

	procedure Moved;
	procedure SetEndPointValue(var AField: double; const NewValue: double);
	procedure SetEndX(const Value: Double);
	procedure SetEndY(const Value: double);
	procedure SetStartX(const Value: Double);
	procedure SetStartY(const Value: double);
	function GetEndPoint: TPoint2D;
	function GetStartPoint: TPoint2D;
	procedure SetEndPoint(const Value: TPoint2D);
	procedure SetStartPoint(const Value: TPoint2D);
	procedure SetColor(const Value: TColor);
	function GetSegement: TSegment2D;
	procedure SetSegement(const Value: TSegment2D);
	procedure Assign(Source: TPersistent); override;
	Constructor Create(Model: TBaseModel);
	procedure Draw(const BitMap: TBitmap32);
	function Angle: Double;

Properties

	property StartPoint: TPoint2D read GetStartPoint write SetStartPoint;
	property EndPoint: TPoint2D read GetEndPoint write SetEndPoint;
	property Segment: TSegment2D read GetSegement write SetSegement;
	property Editing: Boolean read FEditing write FEditing;
	property OnMoved: TNotifyEvent read FOnMoved write FOnMoved;
	property StartX: Double read FStartX write SetStartX;
	property EndX: Double read FEndX write SetEndX;
	property StartY: double read FStartY write SetStartY;
	property EndY: double read FEndY write SetEndY;
	property Color: TColor read FColor write SetColor default clFuchsia;

Description

Fields

	FStartX: Double;

	FStartY: double;

	FEndX: Double;

	FEndY: double;

	FColor: TColor;

	FEditing: Boolean;

	FOnMoved: TNotifyEvent;

Methods

	procedure Moved;

	procedure SetEndPointValue(var AField: double; const NewValue: double);

	procedure SetEndX(const Value: Double);

	procedure SetEndY(const Value: double);

	procedure SetStartX(const Value: Double);

	procedure SetStartY(const Value: double);

	function GetEndPoint: TPoint2D;

	function GetStartPoint: TPoint2D;

	procedure SetEndPoint(const Value: TPoint2D);

	procedure SetStartPoint(const Value: TPoint2D);

	procedure SetColor(const Value: TColor);

	function GetSegement: TSegment2D;

	procedure SetSegement(const Value: TSegment2D);

	procedure Assign(Source: TPersistent); override;

	Constructor Create(Model: TBaseModel);

	procedure Draw(const BitMap: TBitmap32);

	function Angle: Double;
cross section angle in radians.

Properties

	property StartPoint: TPoint2D read GetStartPoint write SetStartPoint;

	property EndPoint: TPoint2D read GetEndPoint write SetEndPoint;

	property Segment: TSegment2D read GetSegement write SetSegement;

	property Editing: Boolean read FEditing write FEditing;

	property OnMoved: TNotifyEvent read FOnMoved write FOnMoved;

	property StartX: Double read FStartX write SetStartX;

	property EndX: Double read FEndX write SetEndX;

	property StartY: double read FStartY write SetStartY;

	property EndY: double read FEndY write SetEndY;

	property Color: TColor read FColor write SetColor default clFuchsia;