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

trunk/ColorFormats/UColorRGBA8.pas

@@ -12 +12 @@
 
   TGColorFormatRGBA8 = 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;
 
@@ -24 +20 @@
 { TGColorFormatRGBA8 }
 
-function TGColorFormatRGBA8.GetPixelSize: Integer;
+constructor TGColorFormatRGBA8.Create;
 begin
-  Result := 32;
-end;
-
-function TGColorFormatRGBA8.GetBitDepth: Integer;
-begin
-  Result := 32;
-end;
-
-function TGColorFormatRGBA8.GetName: string;
-begin
-  Result := 'RGBA8';
-end;
-
-function TGColorFormatRGBA8.GetChannelBitPos(Channel: TGColorChannel): Integer;
-begin
-  case Channel of
-    ccRed: Result := 0;
-    ccGreen: Result := 8;
-    ccBlue: Result := 16;
-    ccOpacity: Result := 24;
-    else Result := 0;
-  end;
-end;
-
-function TGColorFormatRGBA8.GetChannelBitWidth(Channel: TGColorChannel
-  ): Integer;
-begin
-  if (Channel = ccBlue) or (Channel = ccRed) or (Channel = ccGreen) then
-    Result := 8 else Result := 0;
+  inherited Create;
+  BitDepth := 32;
+  Name := 'RGBA8';
+  Channels[ccRed].Position := 0;
+  Channels[ccRed].BitWidth := 8;
+  Channels[ccGreen].Position := 8;
+  Channels[ccGreen].BitWidth := 8;
+  Channels[ccBlue].Position := 16;
+  Channels[ccBlue].BitWidth := 8;
+  Channels[ccOpacity].Position := 24;
+  Channels[ccOpacity].BitWidth := 8;
 end;