TKraftParticleColor

type TKraftParticleColor = record

public

  constructor Create();

  function IsZero;

  procedure SetColor();

  procedure MulFloat();

  procedure MulUInt();

  procedure Add();

  function Equals();

  class procedure MixColors();

  procedure Mix();

  case Boolean of

    False: (

        r: TKraftUInt8;

        g: TKraftUInt8;

        b: TKraftUInt8;

        a: TKraftUInt8;

      );

    True: (

        Value: TKraftUInt32;

      );

end;