Changeset 14 for trunk/ColorFormats/UColorGray4.pas

Timestamp:

Sep 22, 2014, 5:40:17 PM (10 years ago)

Author:

chronos

Message:

• Modified: Color format properties are now initialized as variables instead by executing function.

File:

• trunk/ColorFormats/UColorGray4.pas (modified) (2 diffs)

trunk/ColorFormats/UColorGray4.pas

@@ -12 +12 @@
 
   TGColorFormatGray4 = class(TGColorFormat)
-    function GetPixelSize: Integer; override;
-    function GetBitDepth: Integer; override;
-    function GetName: string; override;
-    function GetChannelBitPos(Channel: TGColorChannel): Integer; override;
-    function GetChannelBitWidth(Channel: TGColorChannel): Integer; override;
+    constructor Create; override;
   end;
 
@@ -23 +19 @@
 { TGColorFormatGray4 }
 
-function TGColorFormatGray4.GetPixelSize: Integer;
+
+
+constructor TGColorFormatGray4.Create;
 begin
-  Result := 4;
+  inherited Create;
+  inherited;
+  Name := 'Gray4';
+  BitDepth := 4;
+  Channels[ccGray].Position := 0;
+  Channels[ccGray].BitWidth := 4;
 end;
-
-function TGColorFormatGray4.GetBitDepth: Integer;
-begin
-  Result := 4;
-end;
-
-function TGColorFormatGray4.GetName: string;
-begin
-  Result := 'Gray4';
-end;
-
-function TGColorFormatGray4.GetChannelBitPos(Channel: TGColorChannel): Integer;
-begin
-  case Channel of
-    ccGray: Result := 0;
-    else Result := 0;
-  end;
-end;
-
-function TGColorFormatGray4.GetChannelBitWidth(Channel: TGColorChannel
-  ): Integer;
-begin
-  if Channel = ccGray then
-    Result := 4 else Result := 0;
-end;
-
 
 end.