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

trunk

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

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

trunk/ColorFormats/UColorGray8.pas

@@ -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;
 
@@ -28 +25 @@
 function TGColorFormatGray8.GetPixelSize: Integer;
 begin
-  Result := 1;
+  Result := 8;
 end;
 
@@ -45 +42 @@
   case Channel of
     ccGray: Result := 0;
-    else raise Exception.Create('Unsupported color channel');
+    else Result := 0;
   end;
 end;
@@ -56 +53 @@
 end;
 
-function TGColorFormatGray8.ColorToTColor(Color: TGColor): TColor;
-begin
-  Result := $010101 * PByte(Color.Data + (GetChannelBitPos(ccGray) shr 3))^;
-end;
-
-procedure TGColorFormatGray8.ColorFromTColor(GColor: TGColor; Color: TColor);
-begin
-  PByte(GColor.Data + (GetChannelBitPos(ccGray) shr 3))^ := ((Color and $ff) +
-  ((Color shr 8) and $ff) +
-  ((Color shr 16) and $ff)) div 3;
-end;
-
-function TGColorFormatGray8.GetColorClass: TGColorClass;
-begin
-  Result := TGColor;
-end;
-
 
 end.

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