TGLHeightData

type TGLHeightData = class(TGLUpdateAbleObject)

protected

  FThread: TGLHeightDataThread;

  procedure SetDataType();

  procedure SetMaterialName();

  procedure SetLibMaterial();

  function GetHeightMin;

  function GetHeightMax;

public

  OldVersion: TGLHeightData;

  NewVersion: TGLHeightData;

  DontUse: Boolean;

  constructor Create(); virtual;

  destructor Destroy; override;

  property Owner: TGLHeightDataSource; [r]

  property OnDestroy: TNotifyEvent; [rw]

  property UseCounter: Integer; [r]

  procedure RegisterUse;

  procedure Allocate(); virtual;

  procedure Release;

  procedure MarkDirty;

  property XLeft: Integer; [r]

  property YTop: Integer; [r]

  property DataType: TGLHeightDataType; [rw]

  property DataState: TGLHeightDataState; [rw]

  property Size: Integer; [r]

  property Dirty: Boolean; [rw]

  property DataSize: Integer; [r]

  property ByteData: PByteArray; [r]

  property ByteRaster: PByteRaster; [r]

  property SmallIntData: PSmallIntArray; [r]

  property SmallIntRaster: PSmallIntRaster; [r]

  property SingleData: PSingleArray; [r]

  property SingleRaster: PSingleRaster; [r]

  property MaterialName: string; [rw]

  property LibMaterial: TGLLibMaterial; [rw]

  property TextureCoordinatesMode: THDTextureCoordinatesMode; [rw]

  property TextureCoordinatesOffset: TTexPoint; [rw]

  property TextureCoordinatesScale: TTexPoint; [rw]

  function ByteHeight();

  function SmallIntHeight();

  function SingleHeight();

  function InterpolatedHeight();

  property HeightMin: Single; [rw]

  property HeightMax: Single; [rw]

  function Height();

  function Normal();

  function NormalAtNode();

  function OverlapsArea();

  property ObjectTag: TObject; [rw]

  property Tag: Integer; [rw]

  property Tag2: Integer; [rw]

  property Thread: TGLHeightDataThread; [rw]

end;

TGLHeightData

TGLUpdateAbleObject

TObject,IGLNotifyAble