Changeset 7 for trunk/ColorFormats/UColorGray8.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/UColorGray8.pas (modified) (3 diffs)

trunk/ColorFormats/UColorGray8.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;
@@ -41 +41 @@
 end;
 
-function TGColorFormatGray8.GetChannelBytePos(Channel: TGColorChannel): Integer;
+function TGColorFormatGray8.GetChannelBitPos(Channel: TGColorChannel): Integer;
 begin
   case Channel of
@@ -58 +58 @@
 function TGColorFormatGray8.ColorToTColor(Color: TGColor): TColor;
 begin
-  Result := $010101 * PByte(Color.Data + GetChannelBytePos(ccGray))^;
+  Result := $010101 * PByte(Color.Data + (GetChannelBitPos(ccGray) shr 3))^;
 end;
 
 procedure TGColorFormatGray8.ColorFromTColor(GColor: TGColor; Color: TColor);
 begin
-  PByte(GColor.Data + GetChannelBytePos(ccGray))^ := ((Color and $ff) +
+  PByte(GColor.Data + (GetChannelBitPos(ccGray) shr 3))^ := ((Color and $ff) +
   ((Color shr 8) and $ff) +
   ((Color shr 16) and $ff)) div 3;