Как вывести массив точек на TImage?

← →
BofA (2002-11-07 12:51) [0]

Есть структуры TCArray = array of TColor; var Pic : TCArray;
В Pic хранится изображение, как нарисовать его на TImage?

← →
Kudatsky (2002-11-07 13:30) [1]

Если изображение находится в 1-мерном массиве (???), и если его нужно вывести в строку, то это можно сделать так:

procedure TEdiForm.Button1Click(Sender: TObject);
var
Pic : TCArray;
I:Integer;
begin
for I:=Low(Pic) to High(Pic) do
Image1.Canvas.Pixels[1,I]:=Pic[I];
end;

Картинка рисуется в 1-й строке Canvas

← →
BofA (2002-11-07 13:37) [2]

Sorry за неточное изложение проблеммы. В массиве хранится изображение, известны его высота и ширина, а точка с координатами (X,Y) хранится в Pic[X+Width*Y].
Проблемма такая: Image.Canvas.Pixels очень медленно работает, а надо, чтобы изображение быстро выводилось. Можно ли как-нибудь вывести картинку в TImage быстрее чем через Canvas.Pixels?

← →
BofA (2002-11-07 15:58) [3]

Неужели никто не знает?

← →
McSimm (2002-11-07 16:14) [4]

нужно использовать ScanLine и записывать изображение построчно - это будет намного быстрее.
Но. Формат массива с точками должен соответствовать цветовому режиму картинки.

Как вывести массив точек на TImage? Найти похожие ветки