D5 /W10 Kein Scrollen im Quellcode mit Mausrad

[himitsu]

Sicher?

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

[KodeZwerg]

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

[jaenicke]

Zitat:

Zitat von Uwe Raabe (Beitrag 1408792)

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:

Zitat von EWeiss (Beitrag 1408808)

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:

Zitat von Bernhard Geyer (Beitrag 1408768)

Zitat:

Zitat von Frickler (Beitrag 1408757)

Doch klar. Normalerweise unterstützt D5 das Scrollen im Quelltext. In selbst geschriebenen Programmen muss man ins Hauptformular eine "ApplicationEvents"

Es geht um die IDE und Seitenweises scrollen.

Ja genau! Das zeilenweise Scrollen geht ja!!

[Alleby]

Zitat:

Zitat von Uwe Raabe (Beitrag 1408792)

Zitat:

Zitat von Frickler (Beitrag 1408786)

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.

[EWeiss]

Zitat:

Zitat von Alleby (Beitrag 1408859)

Zitat:

Zitat von Uwe Raabe (Beitrag 1408792)

Zitat:

Zitat von Frickler (Beitrag 1408786)

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.

Trotz allem funktioniert es nicht.

Denke das es ohne eigenen Hook in die IDE selbst es nicht funktionieren wird.
Scheint so das Seitenweise scrollen von der IDE nicht unterstützt wird.. Echt lustig so was.
Ok.. bin raus wurde alles gesagt.

PS:

Zitat:

und "Bildlauf 1 Bildschirmseite" entspricht "WheelScrollLines = MAX(Cardinal)".

Normaler weise wird MAX(Cardinal) vom System verwaltet.
Was ich damit sagen will..

Delphi-Quellcode:

    WM_MOUSEWHEEL:
      begin
        SendMessageW(WinHandle, WM_SETREDRAW, Integer(False), 0);
        If wP > 0 Then
          direction := -1
        else
          direction := 1; // wird ignoriert wenn unter Windows bsp. 3 Zeilen scrollen eingestellt ist

        if ListCount(WinHandle) > 0 then
        begin
          if (ListGetTopIndex(WinHandle) = 1) and (direction = -1) then
          begin
            ListSetTopIndex(WinHandle, 1);
            Result := 1;
            exit;
          end;
          ListSetTopIndex(WinHandle, ListGetTopIndex(WinHandle) + direction);
        end;
      end;

gruss

[yogie]

Hallo zusammen,
ich muß diesen alten Beitrag aus aktuellem Anlaß nochmal aktivieren.

Seit kurzer Zeit kann ich in der Delphi IDE nicht mehr mit dem Mausrad durch den Quelltext scrollen, was vorher problemlos lief. Ich vermute die Änderung trat nach einem Ausfall der Stromversorgung an meinem Notebook auf, was zu einem Abbruch von Windows führte.

System ist
- eMashine Notebook E725
- WIN 7, 64 Bit
- DELPHI 6 (ja es ist alt, aber ich bin sehr zufrieden damit)

Nochmal: Es geht um das Scrollen in der IDE, nicht um das Scrollen in selber erstellten Programmenn.

Das Scrollen mit dem Mausrad in WORD oder Firefox usw. funktioniert, nur in der DELPHI IDE klappt es nicht.