Главная страница
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.016 c
3-422
Pat
2003-04-11 17:38
2003.05.01
Связь двух таблиц


14-788
Бармен
2003-04-15 17:30
2003.05.01
Народ, не подскажете ссылочку на EhLib для D7?


1-610
NA
2003-04-13 21:26
2003.05.01
Invalidate vs Refresh при обновлении свойств компонента


3-433
Filat
2003-04-10 20:31
2003.05.01
База Firebird - DBGrid?


14-794
SsZorro
2003-04-15 19:01
2003.05.01
Белинский