tPaletteExtra

type tPaletteExtra = record

  pe_Semaphore: tSignalSemaphore;

shared semaphore for arbitration

  pe_FirstFree: Word;

private

  pe_NFree: Word;

number of free colors

  pe_FirstShared: Word;

private

  pe_NShared: Word;

private

  pe_RefCnt: Pointer;

private

  pe_AllocList: Pointer;

private

  pe_ViewPort: pViewPort;

Back pointer to viewport

  pe_SharableColors: Word;

The number of sharable colors.

end;