home *** CD-ROM | disk | FTP | other *** search
/ PC-X 1997 October / pcx14_9710.iso / swag / delphi.swg / 0030_How to move a 2D-array to a Image.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-11-22  |  2.8 KB  |  76 lines
  1.  
  2. In article <3pto5f$sgt@nic.tip.net>,
  3.    christer.strandh@micro.se (Christer Strandh) wrote:
  4. > I want to move a 2D-array with picture graylevels to a Image or BMP
  5. > object without first save the array to disk!??
  6. > I want to display the image faster on the canvas than I do now by
  7. > using canvas.pixels(...  its slow!
  8. > 
  9. >  Christer Strandh...
  10.  
  11. A solution (not necessarily the best but it works) is as follows:
  12.  
  13. 1. Create a Bitmap (TBitMap) within the TImage.
  14.   Bitmap := TBitmap.Create;
  15.   BitMap.Width:=NCol;
  16.   BitMap.Height:=NRow;
  17. ...
  18.  
  19. 2. Create logical palette (grayscale or whatever) and assign it to
  20. BitMap.Palette.
  21.   CreatePalette(MyLogPalette);
  22. ... etc.
  23.  
  24. 3. Now draw pixels into the BitMap canvas NOT the image canvas (which is 
  25. slow...). Use the number of colours in your logical palette to scale the 
  26. intensity values.
  27.  
  28. 4. Clean up. Free logical palette etc.
  29.   DeleteObject(Image.Picture.Bitmap.ReleasePalette);
  30.  
  31. ----Paul
  32.  
  33.  -----------------------------------------------------
  34. | Dr Paul J. Sullivan            sullypj@enh.nist.gov |
  35. | National Institute of Standards & Technology (NIST) |
  36. | Gaithersburg, MD, USA 20899                         |
  37. | Tel: (301) 975 6386             Fax: (301) 869 0822 |
  38.  -----------------------------------------------------
  39. ---
  40.  * Origin: Global-Net <-> Internet Gateway (1000:1000/5.0)
  41.  
  42. -------------------------------------------------------------------------------
  43.  
  44. From: swwarrio@ix.netcom.com (Stephen Warrior )
  45. Subject: Reply to Delphi tip - GPHARRAY
  46. Date: Sat, 17 Jun 1995 07:55:57 -0700
  47.  
  48. With regard to the tip GphArray attributed to Dr. Paul Sullivan, I have been developing a 
  49. program to display and manipulate medical images (specifically Nuclear Medicine images) 
  50. which consist of 2D arrays of grayscale values as described.  As was observed, the Pixels 
  51. property is way too slow.
  52.  
  53. Here's what I discovered.  I think you'll find it a big improvement.
  54.  
  55. Assuming your data is stored in an array of bytes named TestArray, for example
  56.     
  57.    TestArray: array[0..127, 0..127] of byte ...
  58.  
  59.     ArrayPtr := addr(TestArray);   { ArrayPtr: pointer }
  60.  
  61.   { In this case we are going to display on the bitmap of a TImage component that has been }
  62.   { dropped on the canvas and named Image1...                                              }
  63.  
  64.     Image1.Picture.Bitmap.Width := 128;
  65.     Image1.Picture.Bitmap.Height := 128;
  66.  
  67.   {  This is a Windows API function that will copy the bits in TestArray, pointed to by  }
  68.   {  ArrayPtr, into an HBitmap structure, in this case Image1.Picture.Bitmap.Handle.     }
  69.  
  70.     SetBitmapBits(Image1.Picture.Bitmap.Handle, sizeof(TestArray), ArrayPtr);
  71.  
  72.     Image1.Refresh;  { must refresh before changes are displayed }
  73.  
  74. You still have to deal with the palette but this technique works great for me.
  75.  
  76.