TGLSkyDomeStars

type TGLSkyDomeStars = class(TCollection)

protected

  owner: TComponent;

  function GetOwner; override;

  procedure SetItems();

  function GetItems();

  procedure PrecomputeCartesianCoordinates;

public

  constructor Create();

  function Add;

  function FindItemID();

  property Items []: TGLSkyDomeStar; default; [rw]

  procedure BuildList();

  procedure AddRandomStars();

  procedure LoadStarsFile();

end;

TGLSkyDomeStars

TObject