Форум: "Основная";
Текущий архив: 2003.05.01;
Скачать: [xml.tar.bz2];

Вниз

Эффект   Найти похожие ветки 

← →
DeMoN-777   (2003-04-20 14:23) [0]

Здравствуйте,
Как постепенно вывести изображение на TImage, то есть как бы с эффектом падайщей шторы ;)

---

← →
LEON   (2003-04-20 23:10) [1]

загрузить картинку в другой image, невидимый, у обеих установить AutoSize в True
и
for i := 0 to Image1.Height - 1 do
begin
Sleep(5);
for j := 0 to Image1.Width - 1 do
image1.Canvas.Pixels[j, i] := image2.Canvas.Pixels[j, i]
end;


не выйдет пересмотри, писал на скорую руку, но смысл понятен

или посмотри свойство TBitmap.ScanLine

---

← →
vidiv   (2003-04-21 03:11) [2]

Выводи по кусочкам....
А можно еще и функцией AlphaBlend, Canvas.CopyRect()...
Если сильно надо пиши на мыло, помогу...

---

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

Форум: "Основная";
Текущий архив: 2003.05.01;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.008 c