Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.01;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.015 c
3-435
Glivinsky
2003-04-04 23:01
2003.05.01
Как отобразить результат StoredProc in Greed ?


6-660
Alxs
2003-03-07 13:19
2003.05.01
WebModule


14-721
я - аноним
2003-04-13 00:20
2003.05.01
именинники 13 апреля


3-421
Alex_t
2003-04-11 19:50
2003.05.01
проверка корректности данных в таблице


3-464
СлБ
2003-04-14 13:46
2003.05.01
Параметры для TQuery