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

Я делаю так:

Var
  Bitm: TDIB;
//...........................
Bitm:=TDIB.Create;
//...........................
Bitm.Pixels[X,Y]:=Color;
//...........................
Image1.Canvas.Draw(0,0,Bitm);

Вместо TDIB можно заюзать стандартный TBitmap, но через него будет чуток медленнее.

Блин, как тут файлы прикреплять?

Залил DIB компонент на залил.вру:
http://zalil.ru/32594039

Что ещё удобно в DIB'е - это непосредственный доступ к индексам цветов и к палитре. Например в моём втором LZ77Restructor'е при изменении палитры я не перерисовываю пиксели картинки, а лишь меняю палитру. Что тоже очень положительно сказывается на скорости.

Отредактировано TrickZter (2012-01-28 09:36:43)

Да, чуть не забыл, перед тем как рисовать пиксели - задай размер изображения, иначе ошибка выскочит.

Сначала создаёшь картинку:
Bitm:=TDIB.Create;
если юзаешь TBitmap, то:
Bitm:=TBitmap.Create;

Потом задаёшь размеры:
Bitm.Width:=W;
Bitm.Height:=H;

После этого можно рисовать пиксели.

Отредактировано TrickZter (2012-01-28 10:32:18)

off: Я могу это перенести и в обычный ответ. Эх... Опять заморачиваться... <_<

Нету у меня такого:

[реклама вместо картинки]