Subject: Re: DELPHI: How to move a 2D-array to a Image
In article <3pto5f$sgt@nic.tip.net>,
christer.strandh@micro.se (Christer Strandh) wrote:
> I want to move a 2D-array with picture graylevels to a Image or BMP
> object without first save the array to disk!??
> I want to display the image faster on the canvas than I do now by
> using canvas.pixels(... its slow!
>
> Christer Strandh...
A solution (not necessarily the best but it works) is as follows:
1. Create a Bitmap (TBitMap) within the TImage.
Bitmap := TBitmap.Create;
BitMap.Width:=NCol;
BitMap.Height:=NRow;
...
2. Create logical palette (grayscale or whatever) and assign it to
BitMap.Palette.
CreatePalette(MyLogPalette);
... etc.
3. Now draw pixels into the BitMap canvas NOT the image canvas (which is
slow...). Use the number of colours in your logical palette to scale the
intensity values.
4. Clean up. Free logical palette etc.
DeleteObject(Image.Picture.Bitmap.ReleasePalette);
----Paul
Dr Paul J. Sullivan sullypj@enh.nist.gov
National Institute of Standards & Technology (NIST)
Gaithersburg, MD, USA 20899
Tel: (301) 975 6386 Fax: (301) 869 0822