Changeset 9 for trunk/ColorFormats/UColorRGBA8.pas

Timestamp:

Sep 21, 2014, 8:11:48 PM (10 years ago)

Author:

chronos

Message:

• Modified: Not TGBitmap and TGColor data are stored as TBitMemory to support color formats with lower bit width size then 8.

Location:

trunk

Files:

• . (modified) (1 prop)
• ColorFormats/UColorRGBA8.pas (modified) (5 diffs)

trunk

@@ -2 +2 @@
 LibrePaint
 lib
+backup

@@ -2 +2 @@
 LibrePaint
 lib
+backup

trunk/ColorFormats/UColorRGBA8.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Graphics, UGraphic;
+  Classes, SysUtils, Graphics, UGraphic, UMemory;
 
 type
@@ -17 +17 @@
     function GetChannelBitPos(Channel: TGColorChannel): Integer; override;
     function GetChannelBitWidth(Channel: TGColorChannel): Integer; override;
-    function ColorToTColor(Color: TGColor): TColor; override;
-    procedure ColorFromTColor(GColor: TGColor; Color: TColor); override;
-    function GetColorClass: TGColorClass; override;
   end;
 
@@ -29 +26 @@
 function TGColorFormatRGBA8.GetPixelSize: Integer;
 begin
-  Result := 4;
+  Result := 32;
 end;
 
@@ -49 +46 @@
     ccBlue: Result := 16;
     ccOpacity: Result := 24;
-    else raise Exception.Create('Unsupported color channel');
+    else Result := 0;
   end;
 end;
@@ -60 +57 @@
 end;
 
-function TGColorFormatRGBA8.ColorToTColor(Color: TGColor): TColor;
-begin
-  Result := PByte(Color.Data + (GetChannelBitPos(ccRed) shr 3))^ or
-    (PByte(Color.Data + (GetChannelBitPos(ccGreen) shr 3))^ shl 8) or
-    (PByte(Color.Data + (GetChannelBitPos(ccBlue) shr 3))^ shl 16);
-end;
-
-procedure TGColorFormatRGBA8.ColorFromTColor(GColor: TGColor; Color: TColor);
-begin
-  PByte(GColor.Data + (GetChannelBitPos(ccRed) shr 3))^ := Color and $ff;
-  PByte(GColor.Data + (GetChannelBitPos(ccGreen) shr 3))^ := (Color shr 8) and $ff;
-  PByte(GColor.Data + (GetChannelBitPos(ccBlue) shr 3))^ := (Color shr 16) and $ff;
-end;
-
-function TGColorFormatRGBA8.GetColorClass: TGColorClass;
-begin
-  Result := TGColor;
-end;
-
-
 end.
 

@@ -2 +2 @@
 LibrePaint
 lib
+backup