Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

картинка вглубь экрана [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 делается.


Наверх

Титульная страница Поиск, карта сайта Написать письмо