TLabBuffer

type TLabBuffer = class(TLabClass)

protected

  _Device: TLabDeviceShared;

  _Handle: TVkBuffer;

  _Memory: TVkDeviceMemory;

  _Size: TVkDeviceSize;

  _Mapped: Boolean;

  _BufferInfo: TVkDescriptorBufferInfo;

  function GetBufferInfo;

public

  property VkHandle: TVkBuffer; [r]

  property Memory: TVkDeviceMemory; [r]

  property Size: TVkDeviceSize; [r]

  property IsMapped: Boolean; [r]

  property BufferInfo: PVkDescriptorBufferInfo; [r]

  constructor Create();

  destructor Destroy; override;

  function Map();

  function Unmap;

  procedure FlushMappedMemoryRanges();

  procedure FlushAll;

end;

TLabBuffer

TObject