TGLCubeMapImage

type TGLCubeMapImage = class(TGLTextureImage)

protected

  function GetWidth; override;

  function GetHeight; override;

  function GetDepth; override;

  procedure SetPicture();

  function GetPicture();

  function GetTextureTarget; override;

  procedure PictureChanged();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Assign(); override;

  function GetBitmap32; override;

  procedure ReleaseBitmap32; override;

  procedure BeginUpdate;

  procedure EndUpdate;

  procedure SaveToFile(); override;

  procedure LoadFromFile(); override;

  class function FriendlyName; override;

  class function FriendlyDescription; override;

  property NativeTextureTarget: TGLTextureTarget;

  property Picture []: TPicture; [rw]

published

  property PicturePX: TPicture; [rw]

  property PictureNX: TPicture; [rw]

  property PicturePY: TPicture; [rw]

  property PictureNY: TPicture; [rw]

  property PicturePZ: TPicture; [rw]

  property PictureNZ: TPicture; [rw]

end;

TGLCubeMapImage

TGLTextureImage

TGLUpdateAbleObject

TObject,IGLNotifyAble