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: PByte;

private

  pe_AllocList: PByte;

private

  pe_ViewPort: PViewPort;

Back pointer to viewport

  pe_SharableColors: Word;

The number of sharable colors.

end;