Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Работа с BitMap

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

Сергей1 (2005-06-10 04:35:00) [1]
Получилось!
Спасибо, злобная танька.

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);

злобная танька (2005-06-10 03:16:00) [2]
гоню...
короче пеши Image1.Canvas.Draw(0,0,bmp);вместо Image1.Picture.Bitmap:=bmp;

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

злобная танька (2005-06-10 03:11:00) [3]
ты копируешь объекты, у тебя получается, что Image1.Picture.Bitmap и bmp - одно и то же.

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »