Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

PageScroller

323
09 августа 2004 года
Sergun
228 / / 20.09.2000
Как уменьшить шаг скроллинга в PageScroller..?
368
09 августа 2004 года
rostyslav
629 / / 13.07.2004
Цитата:
Originally posted by Sergun
Как уменьшить шаг скроллинга в PageScroller..?


попробуй обработать событие OnScroll.

параметр Delta задает шаг

323
10 августа 2004 года
Sergun
228 / / 20.09.2000
Цитата:
Originally posted by rostyslav

попробуй обработать событие OnScroll.

параметр Delta задает шаг



...не получается...:(
можешь набросать небольшой примерчик?

368
10 августа 2004 года
rostyslav
629 / / 13.07.2004
Цитата:
Originally posted by Sergun


...не получается...:(
можешь набросать небольшой примерчик?



нужно переопределить событие OnScroll PageControl-a

 
Код:
procedure TForm1.psScroll(Sender: TObject; Shift: TShiftState; X,
  Y: Integer; Orientation: TPageScrollerOrientation; var Delta: Integer);
begin
  Delta := Delta div 10;
end;


пример на Delphi, у меня работает.

если хочешь присвоить константу, тогда надо учитывать направление прокрутки. если прокрутка вверх, то Delta отрицательная.
323
12 августа 2004 года
Sergun
228 / / 20.09.2000
Цитата:
Originally posted by rostyslav


нужно переопределить событие OnScroll PageControl-a

 
Код:
procedure TForm1.psScroll(Sender: TObject; Shift: TShiftState; X,
  Y: Integer; Orientation: TPageScrollerOrientation; var Delta: Integer);
begin
  Delta := Delta div 10;
end;


пример на Delphi, у меня работает.

если хочешь присвоить константу, тогда надо учитывать направление прокрутки. если прокрутка вверх, то Delta отрицательная.



сорьки... событие OnScroll не обрабатывалось... переставил билдер и все стало ок, спасибо:)

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог