![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
картинка вглубь экрана [D7, XP]
vladimirg88 © (2006-08-03 10:18:00)как мне сделать так, чтобы картинка двигалсь в глубь монитора? желательно через OPENGL
StriderMan (2006-08-03 15:52:00) [1]
> bugmaker © (03.08.06 14:25) [2]
ничего не будет видно.
Application.ProcessMessages надо в цикл добавить.
clickmaker (2006-08-03 14:25:00) [2]while( ... )
do begin
Картинка.Left := Картинка.Left + 1;
Картинка.Top := Картинка.Top + 1;
Картинка.Width := Картинка.Width - 1;
Картинка.Height := Картинка.Height - 1;
Sleep(...); // чтобы виден процесс был
end;
если Картинка = TImage, то надо Stretch = true;
StriderMan (2006-08-03 13:10:00) [3]а монитор ЖК? он же тонкий, там двигаться некуда. пару сантиметров максимум.
это и без OpenGL делается.