Как поместить двумерный массив в Image

Previous  Top  Next

    
 

Представим, что данные находятся в массиве:

 

Code:

TestArray : array[0..127, 0..127] of Byte;

 

Картинка будет иметь размер 128 x 128 точек:

 

Code:

Image1.Picture.Bitmap.Width := 128;

Image1.Picture.Bitmap.Height := 128;

 

 

Вызываем функцию Windows API для формирования BitMap:

 

 

Code:

SetBitmapBits(Image1.Picture.Bitmap.Handle, sizeof(TestArray), @TestArray);

Image1.Refresh; {для того, чтобы изменения отобразились}

 

Однако, если вы используете свою палитру, то ее нужно создать

 

©Drkb::00799

http://delphiworld.narod.ru/

DelphiWorld 6.0