Скачать: CL | DM;

Как вывести массив точек на 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 и записывать изображение построчно - это будет намного быстрее.
Но. Формат массива с точками должен соответствовать цветовому режиму картинки.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.05 c