aggclr

type aggclr = object

  v: int8u;

  r: int8u;

  g: int8u;

  b: int8u;

  a: int8u;

  constructor Construct();

  constructor ConstrInt();

  constructor ConstrMix();

  constructor ConstrDbl();

  constructor ConstrPre();

  constructor from_wavelength();

  function gradient();

  function gradient8();

  procedure add();

  function opacity_();

  function _opacity;

  procedure Clear;

  function premultiply;

  procedure apply_gamma_dir();

  procedure CalculateValue;

  procedure Black;

  procedure White;

  function GetABGR;

  function GetARGB;

  procedure SetABGR();

  procedure SetARGB();

  property ABGR: TAggColor32; [rw]

  property ARGB: TAggColor32; [rw]

end;

aggclr

TObject