Работа с BitMap

← →
Сергей1 (2005-06-10 02:47) [0]

Здравствуйте!
Не получается по картинке двигать линию.
Картинка: Image1.Picture.Bitmap:=bmp;
Двигаю линию:
for i:=1 to 10 do
begin
Image1.Picture.Bitmap:=bmp;
...
Image1.Canvas.LineTo(f(i))- двигаем линию
end;
По идее, каждый раз картинка должна сначала принимать вид bmp (старая линия при этом должна? исчезнуть ), затем появляется новая полоса.
На практике же старая полоса не стирается.
Подскажите, как выводить bmp, чтобы всё что ,было на нём нарисовано ранее (старая линия)исчезало?
Заранее благодарен за совет.

← →
злобная танька (2005-06-10 03:11) [1]

ты копируешь объекты, у тебя получается, что Image1.Picture.Bitmap и bmp - одно и то же.

надо так:
Image1.Picture.Bitmap.Canvas.Draw(0,0,bmp)
надеюсь не напутала ничего.

← →
злобная танька (2005-06-10 03:16) [2]

гоню...
короче пеши Image1.Canvas.Draw(0,0,bmp); вместо Image1.Picture.Bitmap:=bmp;

спокойной ночи!

← →
Сергей1 (2005-06-10 04:35) [3]

Получилось!
Спасибо, злобная танька.

var bmp: TBitMap;

1)bmp:=TBitMap.Create;
2) Копирование образа:

bmp.Assign(Image1.Picture.BitMap); //Если он там есть

2.1) Копирование из Image.Canvas в BitMap:
bmp:=Image1.Picture.BitMap;

3) Вывод образа:
Image1.Picture.Bitmap.Canvas.Draw(0,0,bmp);

Работа с BitMap Найти похожие ветки