source: trunk/Packages/FastGraphics/ColorFormats/UColorRGBA8.pas

unit UColorRGBA8;

{$mode delphi}

interface

uses
  Classes, SysUtils, Graphics, UGGraphics, UFGraphics;

type
  { TColorFormatRGBA8 }

  TColorFormatRGBA8 = class(TColorFormat)
    constructor Create; override;
  end;


implementation

{ TColorFormatRGBA8 }

constructor TColorFormatRGBA8.Create;
begin
  inherited;
  BitDepth := 32;
  Name := 'RGBA8';
  AddChannel('Red', 0, 8);
  AddChannel('Green', 8, 8);
  AddChannel('Blue', 16, 8);
  AddChannel('Alpha', 24, 8);
end;

end.