[Freeware] SnowSaver - Neue Version v. 01.12.

[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 :thumb:

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

Delphi-Quellcode:

{$D SCRNSAVE:Mein Bildschirmschoner}

hat aber nicht funktioniert :gruebel: 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:

Zitat von patti

Danke für die Verbesserungsvorschläge :thumb:

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

Delphi-Quellcode:

{$D SCRNSAVE:Mein Bildschirmschoner}

hat aber nicht funktioniert :gruebel: 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 :dancer: :coder2:

[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... :-D

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 :-D )

Ansonsten echt gut! :cheers:

[ScrollbarKopf]

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