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

trunk/ColorFormats/UColorRGB565.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Graphics, UGraphic, UMemory;
+  Classes, SysUtils, Graphics, UGraphic;
 
 type
@@ -12 +12 @@
 
   TGColorFormatRGB565 = 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 @@
 { TGColorFormatRGB565 }
 
-function TGColorFormatRGB565.GetPixelSize: Integer;
+constructor TGColorFormatRGB565.Create;
 begin
-  Result := 16;
-end;
-
-function TGColorFormatRGB565.GetBitDepth: Integer;
-begin
-  Result := 16;
-end;
-
-function TGColorFormatRGB565.GetName: string;
-begin
-  Result := 'RGB565';
-end;
-
-function TGColorFormatRGB565.GetChannelBitPos(Channel: TGColorChannel): Integer;
-begin
-  case Channel of
-    ccRed: Result := 0;
-    ccGreen: Result := 5;
-    ccBlue: Result := 11;
-    else Result := 0;
-  end;
-end;
-
-function TGColorFormatRGB565.GetChannelBitWidth(Channel: TGColorChannel
-  ): Integer;
-begin
-  case Channel of
-    ccRed: Result := 5;
-    ccGreen: Result := 6;
-    ccBlue: Result := 5;
-    else Result := 0;
-  end;
+  inherited Create;
+  BitDepth := 16;
+  Name := 'RGB565';
+  Channels[ccRed].Position := 0;
+  Channels[ccRed].BitWidth := 5;
+  Channels[ccGreen].Position := 5;
+  Channels[ccGreen].BitWidth := 6;
+  Channels[ccBlue].Position := 9;
+  Channels[ccBlue].BitWidth := 6;
 end;