TGLPicFileImage

type TGLPicFileImage = class(TGLPictureImage)

protected

  procedure SetPictureFileName();

  function GetWidth; override;

  function GetHeight; override;

  function GetDepth; override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Assign(); override;

  procedure SaveToFile(); override;

  procedure LoadFromFile(); override;

  class function FriendlyName; override;

  class function FriendlyDescription; override;

  property NativeTextureTarget: TGLTextureTarget;

  function GetBitmap32; override;

  procedure Invalidate; override;

published

  property PictureFileName: string; [rw]

end;

TGLPicFileImage

TGLPictureImage

TGLTextureImage

TGLUpdateAbleObject

TObject,IGLNotifyAble