64Bit pixel formats do not have a setpixel command

[CorBer]

Hi,

Great that this library is still active, but when using it for a 64bit image I found out some simple routines are missing. Please consider adding something like this:

procedure SetPixel64(const Image: TImageData; X, Y: LongInt; const Color: TColor64Rec);
var
Info: PImageFormatInfo;
Data: PByte;
begin
Info := ImageFormatInfos[Image.Format];
Data := @PByteArray(Image.Bits)[(Y * Image.Width + X) * Info.BytesPerPixel];
ChannelSetDstPixel(Data, Info, Color);
end;

cheers
Cor