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

trunk/ColorFormats/UColorGray1.pas

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