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

unit UColorGray8;

{$mode delphi}

interface

uses
  Classes, SysUtils, UFGraphics, UGGraphics, Graphics;

type
  { TColorFormatGray8 }

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

  TColorGray8 = Byte;

  TPixmapGray8 = class(TGPixmap<TColorGray8>)
    function Gray8ToColor(Value: TColorGray8): TColor;
  end;


implementation

{ TColorFormatGray8 }

constructor TColorFormatGray8.Create;
begin
  inherited;
  Name := 'Gray 8-bit';
  BitDepth := 8;
  AddChannel('Gray', 0, 8);
end;

{ TPixmapGray8 }

function TPixmapGray8.Gray8ToColor(Value: TColorGray8): TColor;
begin
  Result := (Value shl 16) or (Value shl 8) or (Value shl 0);
end;


end.