source: trunk/Packages/FastGraphics/UPixmapSpecialized.pas

unit UPixmapSpecialized;

{$mode delphi}

interface

uses
  Classes, SysUtils, Graphics, UGGraphics;

type
  TColorGray16 = Word;
  TColorGray32 = Cardinal;

  { TColorRGB16 }

  TColorRGB16 = record
    R: Word;
    B: Word;
    G: Word;
    function Create(R, G, B: Word): TColorRGB16;
  end;

  { TGrayVar }

  TColorGrayVar = PByte;

  TPixmapGray16 = class(TGPixmap<TColorGray16>)
    function Gray16ToColor(Value: TColorGray16): TColor;
  end;

  TPixmapGray32 = class(TGPixmap<TColorGray32>)
    function Gray32ToColor(Value: TColorGray32): TColor;
  end;

  TPixmapRGB16 = class(TGPixmap<TColorRGB16>)
    function RGB16ToColor(Value: TColorRGB16): TColor;
  end;

  TPixmapGrayVar = class(TGPixmap<TColorGrayVar>)
    function GrayVarToColor(Value: TColorGrayVar): TColor;
    function GrayVarCreate(Value: QWord): TColorGrayVar;
  end;



implementation

{ TColorRGB16 }

function TColorRGB16.Create(R, G, B: Word): TColorRGB16;
begin
  Result.R := R;
  Result.G := G;
  Result.B := B;
end;

function TPixmapGray16.Gray16ToColor(Value: TColorGray16): TColor;
begin
  Value := (Value shr 8) and $ff;
  Result := (Value shl 16) or (Value shl 8) or (Value shl 0);
end;

function TPixmapGray32.Gray32ToColor(Value: TColorGray32): TColor;
begin
  Value := (Value shr 24) and $ff;
  Result := (Value shl 16) or (Value shl 8) or (Value shl 0);
end;

function TPixmapRGB16.RGB16ToColor(Value: TColorRGB16): TColor;
begin
  Result := ((Value.R shr 8) shl 16) or ((Value.G shr 8) shl 8) or
    ((Value.B shr 8) shl 0);
end;

function TPixmapGrayVar.GrayVarToColor(Value: TColorGrayVar): TColor;
var
  ValuePart: Byte;
begin
  if Assigned(Value) then begin
    ValuePart := PByte(Value + MemSize(Value) - 1)^;
    Result := (ValuePart shl 16) or (ValuePart shl 8) or (ValuePart shl 0);
  end else Result := clBlack;
end;

function TPixmapGrayVar.GrayVarCreate(Value: QWord): TColorGrayVar;
begin
  Result := GetMem(SizeOf(Value));
  Move(Value, Result^, SizeOf(Value));
end;


end.