[nonVCL] Screensaver mit Preview (Template)

[turboPASCAL]

Nach dem ich nun einen (dähm.) Fehler hier beseitigen konnte, stelle den korrigierten Code hier zur Verfügung.

Bei dem Sourcecode handel es sich um einen nonVCL - Screensaver der sich leicht an eigene Bedürfnisse anpassen lässt. Wer Fehler findet oder Vorschläge hat möge es hier posten.

Happy Screensaving !

[turboPASCAL]

Zitat von Sunlight7:

Im Explorer rechte Maustaste->Konfigurieren hat dann keine Parameter...

Hm, das hate ich gar nicht getested, hatte einfach angenommen das der "C"-Parameter übernommen wird.

Habe nun mal alle Punkte ausgebessert. Denk ich...

[xZise]

Zitat von Sunlight7:

Zitat von xZise:

Sei wann macht man das so?

Seit Win95 ist das schon so

DSDT

[Sunlight7]

Und was les ich da? So über habs 2 Fehler...
Nur weil se vergessen haben, es zu erwähnen, das auch kein Parameter kommen kann?
Und Application.Run sollte im Config Modus nicht aufgerufen werden.
Abgesehen davon hab ich die Application.CreateForm in if Abfragen, ohne das Delphi meckert.

Zitat von turboPASCAL:

Habe nun mal alle Punkte ausgebessert. Denk ich...

Schön, schade eigentlich, ich hatte meinen schon fertig

Edit: Schön, das ich net der einzige bin, der solche Probleme hatte:
Dein Screen Saver läuft 2 Sekunden und schließt sich dann wieder, mag wohl dran liegen, das diese dämlichen Non-Kugel Mäuse WM_MOUSEMOVEs senden, ohne das sich die Cursorposition ändert.
Ich hab das mit Get & SetCursorPos umgangen, einfach prüfen, ob sich der Cursor um mehr als 10 Pixel bewegt hat

Das StayOnTop funkt net, versteh' ich auch net, is aber so

[turboPASCAL]

Ja, das mit der Maus, desswegen hatt ich dem Kram rausgelassen. Meine Maus ist angeleint zuck aber hier und da mal an der Leine. Desderwegen schalted sich dan der evtuell laufende screensaver ab und zu aus.
Habe es nur mal auf die Schnelle eingebaut. Wie man sieht.

Nunja...

Mit dem "StayOnTop" muss mann wohl härtere Massnahmen ergreifen ( SetWindowPos(); etc. ), mal sehen.

Happy Screenaving...

[Sunlight7]

Zitat von turboPASCAL:

Mit dem "StayOnTop" muss mann wohl härtere Massnahmen ergreifen ( SetWindowPos(); etc. ), mal sehen.

Nö, nur richtig machen
Dur übergibst ein Extended Flag, in den nicht Extended Parametern der nicht nicht Extended Funktion
Mach ein CreateWindowEx draus und schreib als 1. Parameter WS_EX_TOPMOST, dann klappts

Edit anhängsel:

[turboPASCAL]

Zitat von Sunlight7:

Mach ein CreateWindowEx draus und schreib als 1. Parameter WS_EX_TOPMOST, dann klappts

Hab i scho.

[Sunlight7]

Den Mouse Bug auch?

[turboPASCAL]

Nö, fällt mir noch nix schöhnes ein.

[Sunlight7]

Haste vielleicht net gesehen, oben hatt' ich die Komplettlösung angehängt

[turboPASCAL]

Ja, nein das hatte ich wohl bei unserem derzeit superschnellen DP-Server übersehen.

Das GestMousePos(); wollt ich nicht, es geht auch über den WM_MOUSEMOVE Parameter.

Code:

WM_MOUSEMOVE fwKeys = wParam; 
  xPos = LOWORD(lParam); 
  yPos = HIWORD(lParam);

Aber dennoch danke.