TGLBitmapHDS

type TGLBitmapHDS = class(TGLHeightDataSource)

protected

  procedure SetPicture();

  procedure OnPictureChanged();

  procedure SetInfiniteWrap();

  procedure SetInverted();

  procedure CreateMonochromeBitmap();

  procedure FreeMonochromeBitmap;

  function GetScanLine();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure StartPreparingData(); override;

  procedure MarkDirty(); override;

  function Width; override;

  function Height; override;

published

  property Picture: TPicture; [rw]

  property InfiniteWrap: Boolean; [rw]

  property Inverted: Boolean; [rw]

  property MaxPoolSize: Integer;

end;

TGLBitmapHDS

TGLHeightDataSource

TObject