PageScroller
Как уменьшить шаг скроллинга в PageScroller..?
Цитата:
Originally posted by Sergun
Как уменьшить шаг скроллинга в PageScroller..?
Как уменьшить шаг скроллинга в PageScroller..?
попробуй обработать событие OnScroll.
параметр Delta задает шаг
Цитата:
Originally posted by rostyslav
попробуй обработать событие OnScroll.
параметр Delta задает шаг
попробуй обработать событие OnScroll.
параметр Delta задает шаг
...не получается...:(
можешь набросать небольшой примерчик?
Цитата:
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;
Y: Integer; Orientation: TPageScrollerOrientation; var Delta: Integer);
begin
Delta := Delta div 10;
end;
пример на Delphi, у меня работает.
если хочешь присвоить константу, тогда надо учитывать направление прокрутки. если прокрутка вверх, то Delta отрицательная.
Цитата:
Originally posted by rostyslav
нужно переопределить событие OnScroll PageControl-a
пример на Delphi, у меня работает.
если хочешь присвоить константу, тогда надо учитывать направление прокрутки. если прокрутка вверх, то Delta отрицательная.
нужно переопределить событие OnScroll PageControl-a
Код:
procedure TForm1.psScroll(Sender: TObject; Shift: TShiftState; X,
Y: Integer; Orientation: TPageScrollerOrientation; var Delta: Integer);
begin
Delta := Delta div 10;
end;
Y: Integer; Orientation: TPageScrollerOrientation; var Delta: Integer);
begin
Delta := Delta div 10;
end;
пример на Delphi, у меня работает.
если хочешь присвоить константу, тогда надо учитывать направление прокрутки. если прокрутка вверх, то Delta отрицательная.
сорьки... событие OnScroll не обрабатывалось... переставил билдер и все стало ок, спасибо:)