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

unit UColorRGB565;

{$mode delphi}

interface

uses
  Classes, SysUtils, Graphics, UGGraphics, UFGraphics;

type
  { TColorFormatRGB565 }

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


implementation

{ TColorFormatRGB565 }

constructor TColorFormatRGB565.Create;
begin
  inherited;
  BitDepth := 16;
  Name := 'RGB565';
  AddChannel('Red', 0, 5);
  AddChannel('Green', 5, 6);
  AddChannel('Blue', 9, 5);
end;

end.