Как поместить двумерный массив в Image
Falk0ner, вс, 06/07/2008 - 15:34.
Как поместить двумерный массив в Image Представим, что данные находятся в массиве:
TestArray : array[0..127, 0..127] of Byte;
Картинка будет иметь размер 128 x 128 точек:
Image1.Picture.Bitmap.Width := 128;
Image1.Picture.Bitmap.Height := 128;
Image1.Picture.Bitmap.Height := 128;
Вызываем функцию Windows API для формирования BitMap:
SetBitmapBits(Image1.Picture.Bitmap.Handle, sizeof(TestArray), @TestArray);
Image1.Refresh; {для того, чтобы изменения отобразились}
Однако, если вы используете свою палитру, то ее нужно создать
Image1.Refresh; {для того, чтобы изменения отобразились}
http://delphiworld.narod.ru/ DelphiWorld 6.0
Отправить комментарий