D5 /W10 Kein Scrollen im Quellcode mit Mausrad

[Frickler]

Zitat von Bernhard Geyer:

Evtl. mal eine Update der Delphi-IDE durchführen.
D5 wird vermutlich dieses Windows-Feature noch nicht unterstützten.

Doch klar. Normalerweise unterstützt D5 das Scrollen im Quelltext. In selbst geschriebenen Programmen muss man ins Hauptformular eine "ApplicationEvents" Komponente droppen und dann ein OnMessage Event definieren, etwa so (hier als Beispiel für TDBGrid):

Delphi-Quellcode:

procedure TMainMenu.AppEventsMessage(var Msg: tagMSG;
  var Handled: Boolean);
begin
  case Msg.message of
    WM_MOUSEWHEEL:
    begin
      if (Screen.ActiveForm.ActiveControl <> nil) and
         (Screen.ActiveForm.ActiveControl.ClassName = 'TDBGrid') then
      begin
        // die Mousewheel Message wird in einen Tastendruck umgewandelt
        Msg.message := WM_KEYDOWN;
        Msg.lParam := 0;

        if Msg.wParam > 0 then
          Msg.wParam := VK_UP
        else
          Msg.wParam := VK_DOWN;

        // wir sind noch nicht fertig, schliesslich soll der Tastendruck ausgewertet werden
        Handled := False;
      end;
    end;
  end;
end;

Das gilt dann für alle Formulare des Projektes.

[himitsu]

Zitat von Frickler:

In selbst geschriebenen Programmen muss man ins Hauptformular eine "ApplicationEvents" Komponente droppen und dann ein OnMessage Event definieren,

Delphi 5 kennt noch kein TApplicationEvents, also dort muß es noch manuell an Application.OnMessage dran,
und für IDE muß das dann auch noch via OpenToolsAPI in die IDE rein und dort auch noch das Application erstmal suchen.

Oder ein MouseHook via OTA in die IDE, der das umschreibt.

[Frickler]

Zitat von himitsu:

Zitat von Frickler:

In selbst geschriebenen Programmen muss man ins Hauptformular eine "ApplicationEvents" Komponente droppen und dann ein OnMessage Event definieren,

Delphi 5 kennt noch kein TApplicationEvents, also dort muß es noch manuell an Application.OnMessage dran,
und für IDE muß das dann auch noch via OpenToolsAPI in die IDE rein und dort auch noch das Application erstmal suchen.

Oder ein MouseHook via OTA in die IDE, der das umschreibt.

Hast Du ein anderes Delphi 5 als ich? Ich habs hier für alte Projekte in einer VM laufen. Und da a) habe ich im Reiter "Zusätzlich" die TApplicationEvents Komponente und b) kann ich sehr wohl im Quelltext (d.h. in der IDE) mit dem Mausrad scrollen.

Mein Programmierbeispiel ist aus einem alten Projekt, welches halt noch im D5 Quelltext vorliegt.

P.S.: in c:\Programme\Borland\Delphi5\Source\Vcl liegt die "appevents.pas" vom 3.2.2000.

[Uwe Raabe]

Zitat von Frickler:

kann ich sehr wohl im Quelltext (d.h. in der IDE) mit dem Mausrad scrollen.

Auch wenn unter Windows 10 das seitenweise Scrollen eingestellt ist? (Eventuell die IDE dann neu starten)

[himitsu]

Sicher?

Ich dachte TApplicationEvents wurde erst vor Kurzem (XEirgendwas) eingebaut.

[KodeZwerg]

Auf meiner D5 CD ist diese .pas Datei auch, zwar älter (1999) aber vorhanden.

[jaenicke]

Zitat von Uwe Raabe:

Auch wenn unter Windows 10 das seitenweise Scrollen eingestellt ist? (Eventuell die IDE dann neu starten)

Ja, der Neustart ist erforderlich. Ansonsten ändert sich gar nichts, anders als bei anderen Programmen.

[EWeiss]

Zitat:

TApplicationEvents

Was hat TApplicationEvents mit der IDE zu tun?
Musst du mir mal näher erläutern.

Zitat:

kann ich sehr wohl im Quelltext (d.h. in der IDE) mit dem Mausrad scrollen.

Na dann zeig mal wie das funktioniert denn bei mir geht es auch nicht.

Zitat:

wenn ich in den Einstellungen der Maus (Windows 10) beim Drehen des Mausrades eine Seite scrollen einstelle, reagiert D5 in der VCL nicht mehr auf das Drehen des Mausrades.

Das scheint kein Windows 10 spezifisches Problem zu sein.
Auch unter Win7 64Bit D2010 funktioniert das scrollen innerhalb der IDE dann nicht.

Zitat:

Eigentlich ja ein Bug im Windows

Und nein es ist kein Bug unter Windows denn bei allen anderen Anwendungen funktioniert das scrollen wenn 1 Bildschirmseite eingestellt ist.

gruss

[Frickler]

Zitat von EWeiss:

Zitat:

kann ich sehr wohl im Quelltext (d.h. in der IDE) mit dem Mausrad scrollen.

Na dann zeig mal wie das funktioniert denn bei mir geht es auch nicht.

gruss

War ein Missverständnis. Hier geht es auch nicht. Und zwar schon unter Windows XP nicht mehr (7, 8.1 und 10 auch nicht) und weder mit D5, D7, XE, XE6 oder 10.2. Ist also ein genereller Ausfall. Die Mausrad-Messages tauchen aber schon in der Windows.pas von Delphi 3 auf und in Delphi 5 sind dann die OnMouseWheel* Events implementiert, wobei der in der Systemsteuerung angegebene Zeilenscrollparameter zwar in TMouse.WheelScrollLines abgelegt wird, aber nirgendwo benutzt.... und "Bildlauf 1 Bildschirmseite" entspricht "WheelScrollLines = MAX(Cardinal)".

[Alleby]

Zitat von Uwe Raabe:

Zitat von Frickler:

kann ich sehr wohl im Quelltext (d.h. in der IDE) mit dem Mausrad scrollen.

Auch wenn unter Windows 10 das seitenweise Scrollen eingestellt ist? (Eventuell die IDE dann neu starten)

Ja darum geht es! Und die IDE muss nach dem Ändern der Einstellung neu gestartet werden. Das hat mich auch sehr lange irritiert.