Mouse wheel for D5?

rbuser

Hi there!

I see in the announcement
---
2. Preview
Added Mouse Wheel Support for Delphi 7 and Delphi 6
--

I am still using Delphi 5. Is there any reason why this feature will
not work with D5?

Gruß aus den Bergen
Günter

nicocizik

Hi Gunter,

Sorry, mouse wheel support is not currently available for Delphi 5.

--

rbuser

Hi G?nter.

We have had the same problem, and we have developed a solution for this
problem.
I have seen that you speak german. Here is the same in german.

Hallo G?nter.

Wir hatten das gleiche Problem, und hatten uns daf?r eine eigene Vorschau
gebaut.
Hier ist der Source. Sollte eigentlich dein Problem l?sen


Source:

procedure TFRBVorschau.AppEvents1Message(var Msg: tagMSG; var Handled:
Boolean);
var
i: SmallInt;
begin
if Msg.message = WM_MOUSEWHEEL then begin
Msg.message := WM_KEYDOWN;
Msg.lParam := 0;
i := HiWord(Msg.wParam);
if i > 0 then
Msg.wParam := VK_UP
else
Msg.wParam := VK_DOWN;
Handled := False;
end;
end;


rocedure TFRBVorschau.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_UP: ppViewer1.Scroll(dtUp);
VK_DOWN: ppViewer1.Scroll(dtDown);
end;
end;

Regards, / Gru?,

Michael Meyer