Changeset 7 for trunk/ColorFormats/UColorRGBA8.pas

Timestamp:

Sep 19, 2014, 9:25:56 AM (10 years ago)

Author:

chronos

Message:

• Added: Mono image color format. Pixels/channels with lower size then byte are not supported yet.
• Added: Slow image flip and mirror operation.

File:

• trunk/ColorFormats/UColorRGBA8.pas (modified) (3 diffs)

trunk/ColorFormats/UColorRGBA8.pas

@@ -15 +15 @@
     function GetBitDepth: Integer; override;
     function GetName: string; override;
-    function GetChannelBytePos(Channel: TGColorChannel): Integer; override;
+    function GetChannelBitPos(Channel: TGColorChannel): Integer; override;
     function GetChannelBitWidth(Channel: TGColorChannel): Integer; override;
     function ColorToTColor(Color: TGColor): TColor; override;
@@ -42 +42 @@
 end;
 
-function TGColorFormatRGBA8.GetChannelBytePos(Channel: TGColorChannel): Integer;
+function TGColorFormatRGBA8.GetChannelBitPos(Channel: TGColorChannel): Integer;
 begin
   case Channel of
     ccRed: Result := 0;
-    ccGreen: Result := 1;
-    ccBlue: Result := 2;
-    ccOpacity: Result := 3;
+    ccGreen: Result := 8;
+    ccBlue: Result := 16;
+    ccOpacity: Result := 24;
     else raise Exception.Create('Unsupported color channel');
   end;
@@ -62 +62 @@
 function TGColorFormatRGBA8.ColorToTColor(Color: TGColor): TColor;
 begin
-  Result := PByte(Color.Data + GetChannelBytePos(ccRed))^ or
-    (PByte(Color.Data + GetChannelBytePos(ccGreen))^ shl 8) or
-    (PByte(Color.Data + GetChannelBytePos(ccBlue))^ shl 16);
+  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 + GetChannelBytePos(ccRed))^ := Color and $ff;
-  PByte(GColor.Data + GetChannelBytePos(ccGreen))^ := (Color shr 8) and $ff;
-  PByte(GColor.Data + GetChannelBytePos(ccBlue))^ := (Color shr 16) and $ff;
+  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;