TPictureCache

type TPictureCache = class(TComponent)

protected

  function GetNewImgFor();

  procedure FreeCache;

  function MapProvider2FileName();

  function DiskCached();

  procedure LoadFromDisk();

  function GetFileName();

public

  procedure CheckCacheSize();

  constructor Create(); override;

  destructor destroy; override;

  procedure Add();

  procedure GetFromCache();

  function InCache();

  property UseDisk: Boolean; [rw]

  property BasePath: string; [rw]

  property UseThreads: Boolean; [rw]

end;

TPictureCache

TObject