Changeset 4 for trunk/ColorFormats/UColorRGBA8.pas

Timestamp:

Sep 16, 2014, 11:55:35 AM (10 years ago)

Author:

chronos

Message:

• Added: Action to fill image with random image.
• Fixed: Pixel load/save to bitmap was using Move with pointers instead pointed value.

File:

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

trunk/ColorFormats/UColorRGBA8.pas

@@ -18 +18 @@
     function GetChannelBitWidth(Channel: TGColorChannel): Integer; override;
     function ColorToTColor(Color: TGColor): TColor; override;
+    procedure ColorFromTColor(GColor: TGColor; Color: TColor); override;
     function GetColorClass: TGColorClass; override;
   end;
@@ -66 +67 @@
 end;
 
+procedure TGColorFormatRGBA8.ColorFromTColor(GColor: TGColor; Color: TColor);
+begin
+  PByte(GColor.Data + GetChannelBytePos(ccRed))^ := Color and $ff;
+  PByte(GColor.Data + GetChannelBytePos(ccGreen))^ := (Color shr 8) and $ff;
+  PByte(GColor.Data + GetChannelBytePos(ccBlue))^ := (Color shr 16) and $ff;
+end;
+
 function TGColorFormatRGBA8.GetColorClass: TGColorClass;
 begin