TFPPalette

type TFPPalette = class

protected

  FData: PFPColorArray;

  FCount: Integer;

  FCapacity: Integer;

  procedure SetCount(); virtual;

  function GetCount;

  procedure SetColor(); virtual;

  function GetColor();

  procedure SetCapacity();

  procedure CheckIndex(); virtual;

  procedure EnlargeData; virtual;

public

  constructor Create();

  destructor Destroy; override;

  procedure Build(); virtual;

  procedure Copy(); virtual;

  procedure Merge(); virtual;

  function IndexOf(); virtual;

  function Add(); virtual;

  procedure Clear; virtual;

  property Color []: TFPColor; default; [rw]

  property Count: Integer; [rw]

  property Capacity: Integer; [rw]

end;

TFPPalette

TObject