[Freeware] SnowSaver - Neue Version v. 01.12.

[patti]

* SnowSaver *

Hab passend zu der kalten Jahreszeit einen kleinen Screensaver geschrieben, der Schneefall auf dem Monitor simuliert (ja, ich weiß, die Idee ist nicht neu ). Bei dem Screensaver scheint der Desktop transparent durch, weshalb es so ausschaut, als würde es tatsächlich auf dem Monitor schneien

Es werden drei verschiedene Schneeflocken-Größen (kleinere Flocken langsamer, größere schneller) dargestellt, damit es etwas realistischer aussieht. Außerdem bleibt am unteren Bildschirmrand der Schnee liegen (wird nicht höher mit der Zeit; bedeckt bei Standard-Positionierung und -Größe der Win-Taskleiste ungefähr diese mit Schnee).

Zu den "Systemanforderungen": Geschrieben wurde der Bildschirmschoner unter Win 2000 und ist erfolgreich getestet unter 2000, XP und Vista. Wurde unter anderem auf einem 800 Mhz Rechner ausprobiert und läuft auch da ruckelfrei. Der Bildschirmschoner verwendet nur Standard-Komponenten und sollte deswegen unter allen Win-Betriebssystemen laufen.

Nach dem Download die Zip-Datei entpacken und snowsaver.scr ins Windowsverzeichnis kopieren. Im Einstellungen-Dialog kann dann der SnowSaver als Bildschirmschoner ausgewählt werden.

Evtl. wird am SnowSaver noch etwas weitergearbeitet.
Hoffe er gefällt euch!

P@Tti

PS: Auf meiner Homepage (unter Downloads - SnowSaver) kann der SnowSaver ebenfalls gedownloadet werden!

Würde mich natürlich über Rückmeldungen freuen und würde gerne wissen, ob der Screensaver bei euch läuft.

EDIT: Der VirenScanner von McAfee meldet nun keinen Alarm mehr! Das in den nachfolgenden Beiträgen beschriebene Problem besteht also nicht mehr!

Version vom 26.11.2007:

• drei statt bisher zwei Flocken-Größen
• leichte links-rechts-Abweichung der Flocken -> wirkt realistischer

Neueste Version vom 01.12.2007:

• Vorschau-Fenster
• kleinere Anpassungen

[patti]

Eine neue Version ist online, die auch bei einem Tastendruck auf der Tastatur den Screensaver beendet.

P@Tti

[patti]

Habe gerade eben wieder eine neue Version (Version 5) hochgeladen. Zu finden ist diese im ersten Beitrag. Die neuste Version beinhaltet jetzt drei statt bisher zwei verschiedene Flocken-Größen und simuliert jetzt auch eine leichte links-rechst-Abweichung der Flocken (größere Flocken stärker, kleinere Flocken schwächer), was den Screensaver etwas realistischer erscheinen lässt.

Hoffe auf Lob, Kritik, Anregungen, Wünsche,...

P@Tti

[Popov]

Vielleicht noch paar Tipps und Verbesserungsvorschläge.

Zuerst eine Kleinigkeit die kaum Aufwand bedeutet. Wenn man im Explorer sich die Eigenschaften deines Screensavers anguckt, dann steht unter "Beschreibung" der Dateiname deines Bildschirmschoners ohne die Endung. Das ist keine Katastrophe, aber in der Regel haben Bildschirmschoner hier eine Bezeichnung. Der Text der in den Eigenschaften als Beschreibung dient ist eine der Versionsinfos. Diese kann man in Projektoptionen unter Versionsinfo angeben. Der Betreffende Punkt ist "Beschreibung". Schreib dort eine Bezeichnung die unabhängig vom Dateinamen sein kann.

Eine zweite etwas größere Kleinigkeit ist die fehlende Vorschau im Prieviewfenster unter "Eingenschaften von Anzeige" > "Bildschirmschoner". Das Prieviewfenster kann entweder das Fenster des Bildschirmschoners sein, das etwas modifiziert beim Parameter /p abgespielt wird, oder ein eigenes Fenster. Bei der ersten Methode muß man einiges abfangen. So darf das Fenster nicht bei Tastendrücken und Mausbewegungen beendet werden und muß auch auf einer kleinen Fläche noch gut aussehen. Also keine 100 Flocken im Minifenster. Die andere Möglichkeit ist ein Extrafenster. Hier kann man einfach auch nur ein Bild von einer Flocke zeigen. Bei dir wird momentan ein schwarzer Bildschirm angezeigt. Da fehlt also etwas.

Hier paar Zeilen:

Delphi-Quellcode:

      'P': begin
             Application.Initialize;
             Application.CreateForm(TPreviewForm, PreviewForm);
             Application.Run;
               end;

Zum richtigen ansteuern in der Projektdatei.

Delphi-Quellcode:

procedure ScreenSaverPreview(Form: TForm);
var
  OldStyle: Integer;
  hWnd: THandle;
  Rec: TRect;
begin
  with Form do
  begin
    hWnd := StrToIntDef(ParamStr(2), 0);
    GetWindowRect(hWnd, Rec);
    SetBounds(0, 0, Rec.Right - Rec.Left, Rec.Bottom - Rec.Top);

    BorderStyle := bsNone;

    Windows.SetParent(Handle, hWnd);

    OldStyle := GetWindowLong(Handle, GWL_STYLE);
    SetWindowLong(Handle, GWL_STYLE, (OldStyle and not WS_POPUP) or WS_CHILD or WS_VISIBLE);
  end;

end; {Popov}

procedure TPreviewForm.FormCreate(Sender: TObject);
begin
  ScreenSaverPreview(Self);


end;

Hier ist alles was du für das Previewfenster brauchst. Es holt den Parameter, wandelt den um, paßt die Fenstergröße an, setzte das Parentfenster usw. Das Einzige was du noch machen mußt ist verhindern, daß das Fenster in der Taskleiste angezeigt wird und das Fenster mit einem Inhalt füllen.

[patti]

Danke für die Verbesserungsvorschläge

zu 1.) hatte es mal als Compiler-Direktive drin:

{$D SCRNSAVE:Mein Bildschirmschoner} hat aber nicht funktioniert Werde es mit deinem Tipp versuchen!

zu 2.) Vorschau-Fenster ist auf jeden Fall geplant und ich hab auch schon die Suche bemüht, hab allerdings noch keine Zeit zum Einbauen gehabt. Werde deinen Code gleich nehmen und mit einbauen!

P@Tti

[Popov]

Zitat von patti:

Danke für die Verbesserungsvorschläge

zu 1.) hatte es mal als Compiler-Direktive drin:

{$D SCRNSAVE:Mein Bildschirmschoner} hat aber nicht funktioniert Werde es mit deinem Tipp versuchen!

Nein, es funktioniert nicht und wird auch nicht funktioniert. Hier sprechen an die 50 Mannstunden die sich der Lösung des Problems gewidmet haben. Diese Info kommt aus der Zeit von Windows 3.x. Damals unter Delphi 1 mag es noch funktioniert haben, seit der Zeit garantiert nicht mehr. Auch wenn es so gut wie in jeder Screensaver Anleitung steht.

Möglich ist es, aber nicht so.

Der Tipp von mir setzt aber keinen Screensaver Namen, sondern nur die Beschreibung im Eigenschaftenfenster.

[patti]

Hab durch ausprobieren gemerkt, dass der Tipp keinen Screensaver-Namen setzt
Die Beschreibung im Eigenschaften-Fenster hab ich jetzt schon drinnen (Version ist derzeit noch nicht online). Das Preeview-Fenster steht allerdings weiterhin auf der ToDo-Liste

P@Tti

[ScrollbarKopf]

Finde den screensaver klasse bei mir hat er auch keinen Virus gefunden

[patti]

^^Danke

Hab gerade eben eine neue Version hochgeladen, die ein Vorschau-Fenster beinhaltet und die vom Aufbau her noch etwas verbessert wurde. Datei liegt im ersten Post!

P@Tti

[divBy0]

Der Screensaver gefällt mir echt gut, den lasse ich mal drauf...

Was mir allerdins aufgefallen ist: Der Screensaver läuft nur auf dem Primärdisplay... Wäre schön, wenn der auch auf dem Sekundärdisplay funktioniert... (Sorry, falls das schon mal geschrieben wurde, hab' nicht alles durchgelesen )

Ansonsten echt gut!

[ScrollbarKopf]

Die neue Version ist noch besser kannst mir vieleicht den code mal schicken dass ich es nachprogrammieren kann und verändern kann