TGLHeightTileFileHDS

type TGLHeightTileFileHDS = class(TGLHeightDataSource)

protected

  procedure SetHTFFileName();

  procedure SetInfiniteWrap();

  procedure SetInverted();

  procedure SetMinElevation();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure StartPreparingData(); override;

  function Width; override;

  function Height; override;

  function OpenHTF;

published

  property HTFFileName: string; [rw]

  property InfiniteWrap: Boolean; [rw]

  property Inverted: Boolean; [rw]

  property MinElevation: Integer; [rw]

  property MaxPoolSize: Integer;

  property DefaultHeight: Single;

end;

TGLHeightTileFileHDS

TGLHeightDataSource

TObject