Changeset 22 for branches/gbitmap/UPixmapSpecialized.pas

Timestamp:

Dec 22, 2016, 1:13:04 PM (8 years ago)

Author:

chronos

Message:

• Modified: RGB8 related code moved to UColorRGB8 unit.

File:

• branches/gbitmap/UPixmapSpecialized.pas (modified) (4 diffs)

branches/gbitmap/UPixmapSpecialized.pas

@@ -11 +11 @@
   TColorGray16 = Word;
   TColorGray32 = Cardinal;
-
-  { TColorRGB8 }
-
-  TColorRGB8 = record
-    R: Byte;
-    B: Byte;
-    G: Byte;
-    function Create(R, G, B: Byte): TColorRGB8;
-  end;
 
   { TColorRGB16 }
@@ -40 +31 @@
   TPixmapGray32 = class(TGPixmap<TColorGray32>)
     function Gray32ToColor(Value: TColorGray32): TColor;
-  end;
-
-  TPixmapRGB8 = class(TGPixmap<TColorRGB8>)
-    function RGB8ToColor(Value: TColorRGB8): TColor;
   end;
 
@@ -68 +55 @@
 end;
 
-{ TColorRGB8 }
-
-function TColorRGB8.Create(R, G, B: Byte): TColorRGB8;
-begin
-  Result.R := R;
-  Result.G := G;
-  Result.B := B;
-end;
-
 function TPixmapGray16.Gray16ToColor(Value: TColorGray16): TColor;
 begin
@@ -87 +65 @@
   Value := (Value shr 24) and $ff;
   Result := (Value shl 16) or (Value shl 8) or (Value shl 0);
-end;
-
-function TPixmapRGB8.RGB8ToColor(Value: TColorRGB8): TColor;
-begin
-  Result := (Value.R shl 16) or (Value.G shl 8) or (Value.B shl 0);
 end;