Главная страница
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.019 c
3-379
vil
2003-04-14 13:24
2003.05.01
ADOQuery


14-733
Дмитрий К.К.
2003-04-14 07:31
2003.05.01
Именинники 12 апреля


1-537
Viktor Tsoy
2003-04-18 02:08
2003.05.01
MDIChild


7-808
Sego
2003-03-13 12:15
2003.05.01
Эмуляция CD-Rom Из папки


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