Scroll

← →
AndreyA (2003-11-10 09:35) [0]

Сделал форму, на ней QRPreview и ToolBar с кнопками - больше ничего.

ПРописал

procedure WheelScrollHandle(sb: TQRPreview; delta: Integer); var OldPos: Integer; begin if not True then exit; if not sb.VertScrollBar.IsScrollBarVisible then exit; with sb.VertScrollBar do begin OldPos := Position; Position := Position - Round( (Delta / CWheelDiv) * (cWheelSpeed / 100) ); end; if not cWheelDirtyDraw then SB.Invalidate; end; procedure TfrmPreview.QRPreview1MouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); begin inherited; WheelScrollHandle(TQRPreview(Sender), WheelDelta); end;

Репорт не скролится. Пробовал прописать тоже для формы - тоже не скролится.

Как сделать прокрутку репорта в QRPreview. Где я ошибаюсь?

← →
Zergling © (2003-11-10 11:38) [1]

Увы и данные свойства не обрабатываются компонентом :(. Чтобы проверить обрабатывается данное событие или нет, вставь к примеру такую строку в интересующие событие:
Caption := Sender.ClassName;

← →
AndreyA (2003-11-10 12:00) [2]

Но для обычного скролбокса тоже не влетала бы такая строка в данном евенте. Но такая фишка скролила скролбокс.

← →
Zergling © (2003-11-11 06:20) [3]

AndreyA (10.11.03 12:00) [2]

Брехня, однозначно. У тебя Delphi c искусственным интелектом?
Думает наверно приблизительно так: в этом обработчике события находятся строки кода не имеющие к мыши ни кагого отношения. Кишь!Кишь "левые" строчки кода из этого обработчика события. Ж:-)

Ну, теперь по делу:
В свойстве формы "ActiveControl" выбери свой TQRPreview.

← →
vlgrig1961 (2003-11-11 08:49) [4]

Этот пример работает 100%

procedure TfPreView.QRPreview1MouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
if QRPreview1.VertScrollBar.ScrollPos-WheelDelta>=QRPreview1.VertScrollBar.Margin then
QRPreview1.VertScrollBar.Position:=QRPreview1.VertScrollBar.Position-WheelDelta
else
QRPreview1.VertScrollBar.Position:=QRPreview1.VertScrollBar.Margin;
end;

← →
Zergling © (2003-11-11 09:07) [5]

vlgrig1961 (11.11.03 08:49) [4]
Точно, что больше ни чего ненужно?
У меня событие не обрабатывается, пока несделаю то, что написал выше. Странно. Почему так?

← →
AndreyA (2003-11-11 10:30) [6]

Я тоже не верил про искуственный интелект - но вот видишь какая штука.

Это уже становится интересным. У меня, если в свойстве формы "ActiveControl" не выбрать нужный контрол, то событие нифика не обрабатывается. Даже с тем кодом, который ты привел.
Может кнонибудь еще подключится к данной дискусии и попытается объяснить суть данной "магии". До меня не доходит, как это событие может срабатывать когда ему сдумается.
По моему посту Zergling © (11.11.03 06:20) [3]
Повесил контрол на свойство, все работет. Убрал контрол из свойства неработает. Все выполняется строго. AndreyA - твой случай мне неясен. В одном случае работает, а в другом нет.
Может vlgrig1961 (11.11.03 08:49) [4] прояснит ситуацию или еще ктонибудь.

Народ жду ваши мысли по этой странной теме. :-)

Это уже становится интересным. У меня, если в свойстве формы "ActiveControl" не выбрать нужный контрол, то событие нифика не обрабатывается. Даже с тем кодом, который ты привел.
Может кнонибудь еще подключится к данной дискусии и попытается объяснить суть данной "магии". До меня не доходит, как это событие может срабатывать когда ему сдумается.
По моему посту Zergling © (11.11.03 06:20) [3]
Повесил контрол на свойство, все работет. Убрал контрол из свойства неработает. Все выполняется строго. AndreyA - твой случай мне неясен. В одном случае работает, а в другом нет.
Может vlgrig1961 (11.11.03 08:49) [4] прояснит ситуацию или еще ктонибудь.

Народ, жду ваши мысли по этой странной теме. :-)

Scroll Найти похожие ветки