|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.02.2010, 12:57 | #1 |
Форумчанин
Регистрация: 08.10.2009
Сообщений: 112
|
Программный скроллинг
Я вас не перестану мучать пока не допишу игрушку =)
Можно как нибудь программно проскроллить форму? Ну типа у Timage есть топовое и лефтовое значение. Как мона с помощью алгоритма сдвинуть координаты верхнего левого угла формы, чтоб все видимые компоненты сдвинулись, а форма осталась на месте?
procedure life; for years := 1 to 11 do gotoschool(normal); woman := TMan.add; childrens.add(TMans); problems.add(fuck); woman.destroy; END.
|
22.02.2010, 13:20 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Непонятно...
изменяй на единицу координаты TImage и будет тебе сдвиг...
I'm learning to live...
|
22.02.2010, 13:41 | #3 |
Форумчанин
Регистрация: 08.10.2009
Сообщений: 112
|
да мне надо сразу несколько timage.
можно, конечно через массив timage, но я думаю скроллингом формы будет намного быстрей
procedure life; for years := 1 to 11 do gotoschool(normal); woman := TMan.add; childrens.add(TMans); problems.add(fuck); woman.destroy; END.
|
22.02.2010, 13:49 | #4 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Ну тут два варианта
1) ты все компоненты кидаешь на ScrollBox или другой контейнер (Panel например) и уже его координаты изменяешь 2) В цикле проходишься по всем Controls[i] и меняешь их координаты.
I'm learning to live...
|
22.02.2010, 20:32 | #5 |
Форумчанин
Регистрация: 08.10.2009
Сообщений: 112
|
Всё оказалось намного проще:
form1.ScrollBy(x,y);
procedure life; for years := 1 to 11 do gotoschool(normal); woman := TMan.add; childrens.add(TMans); problems.add(fuck); woman.destroy; END.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Автоматический скроллинг | zver777 | Общие вопросы Delphi | 3 | 29.10.2009 23:13 |
скроллинг | Chief | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 09.06.2009 19:13 |
Скроллинг | Sanek777 | Общие вопросы Delphi | 2 | 11.09.2008 20:05 |
скроллинг | kl45gp | JavaScript, Ajax | 0 | 24.03.2008 23:29 |