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

trunk/ColorFormats/UColorGray8.pas

@@ -12 +12 @@
 
   TGColorFormatGray8 = 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 @@
 { TGColorFormatGray8 }
 
-function TGColorFormatGray8.GetPixelSize: Integer;
+
+
+constructor TGColorFormatGray8.Create;
 begin
-  Result := 8;
+  inherited Create;
+  inherited;
+  Name := 'Gray8';
+  BitDepth := 8;
+  Channels[ccGray].Position := 0;
+  Channels[ccGray].BitWidth := 8;
 end;
-
-function TGColorFormatGray8.GetBitDepth: Integer;
-begin
-  Result := 8;
-end;
-
-function TGColorFormatGray8.GetName: string;
-begin
-  Result := 'Gray8';
-end;
-
-function TGColorFormatGray8.GetChannelBitPos(Channel: TGColorChannel): Integer;
-begin
-  case Channel of
-    ccGray: Result := 0;
-    else Result := 0;
-  end;
-end;
-
-function TGColorFormatGray8.GetChannelBitWidth(Channel: TGColorChannel
-  ): Integer;
-begin
-  if Channel = ccGray then
-    Result := 8 else Result := 0;
-end;
-
 
 end.