Class TSFTime

Unit

VRMLFields

Declaration

type TSFTime = class(TVRMLSingleField)

Description

SFTime VRML field. VRML requires this to be stored as double-precision float, so I don't use TSFFloat for this.

Hierarchy

• TPersistent
• TVRMLField
• TVRMLSingleField
• TSFTime

Overview

Fields

	DefaultValue: Double;
	DefaultValueExists: boolean;

Methods

	procedure SaveToStreamValue(SaveProperties: TVRMLSaveToStreamProperties); override;
	constructor Create(const AName: string; const AValue: Double);
	procedure Parse(Lexer: TVRMLLexer; IsClauseAllowed: boolean); override;
	function EqualsDefaultValue: boolean; override;
	function Equals(SecondValue: TVRMLField; const EqualityEpsilon: Single): boolean; override;
	procedure AssignLerp(const A: Double; Value1, Value2: TSFTime);
	procedure Assign(Source: TPersistent); override;
	procedure AssignValue(Source: TVRMLField); override;
	class function VRMLTypeName: string; override;

Properties

property Value: Double read FValue write SetValue;

Description

Fields

	DefaultValue: Double;

	DefaultValueExists: boolean;

Methods

	procedure SaveToStreamValue(SaveProperties: TVRMLSaveToStreamProperties); override;

	constructor Create(const AName: string; const AValue: Double);

	procedure Parse(Lexer: TVRMLLexer; IsClauseAllowed: boolean); override;

	function EqualsDefaultValue: boolean; override;

	function Equals(SecondValue: TVRMLField; const EqualityEpsilon: Single): boolean; override;

	procedure AssignLerp(const A: Double; Value1, Value2: TSFTime);

	procedure Assign(Source: TPersistent); override;

	procedure AssignValue(Source: TVRMLField); override;

	class function VRMLTypeName: string; override;

Properties

	property Value: Double read FValue write SetValue;