Главная страница
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.01 c
3-449
Dimaz-z
2003-04-13 18:22
2003.05.01
Как выстроить записи в таблице по алфавиту?


7-810
nickn
2003-03-10 13:45
2003.05.01
Интересный вопрос по работе с COM портом


14-702
Карлсон
2003-04-11 21:16
2003.05.01
Исикава Токубоку


3-446
ArtemB
2003-04-14 08:42
2003.05.01
Сортировка таблицы


6-661
Anton Tsvilikh
2003-03-07 16:32
2003.05.01
Как Послать сообщения на все компьютеры локальнй сети?