Bounce for Sakura v1.0

[MaBuSE]

Achtung neue Version v2.0 Final

sakura schrieb in http://www.delphipraxis.net/internal_redirect.php?p=430814#430814

ich finde die Smileys süß, welche auf den Wellen "hüpfen".

Hallo,
da Sakura hüfende Smiley süß findet, hier ein kleines Freewareprogramm:

Bounce.exe und nun Bounce2.exe

Funktion:

• Es wird ein hüfender Smiley dargestellt ()
• Linksklick zum verschieben
• Rechtsklick für Menü

Falls jemand wissen will wie das funktioniert, kann ich ja auch noch den Quellcode veröffentlichen

Viel Spaß
MaBuSE

Es gibt nun eine Version 1.1 mit folgender Funktionserweiterung:

• Im Popup gibts nun "Einstellungen..."
• dort kann man StayOnTop an oder ausstellen
• dort kann man auch angeben, das die Position gespeichert werden soll

Es gibt aber folgende Einschränkung:
Beim Start wird die Registry ausgelesen, beim Beenden werden die Infos geschrieben.
Es ist nicht möglich Einstellungen für mehrere Instanzen zu speichern.

Es gibt nun eine Version 2.0 mit folgender Funktionserweiterung:

• Es werden mehere Smiles unterstützt. (Beim 1. Start 5 Smiles)
• Die einzelnen Smiles können verschoben werden
• Dialog Einstellungen funktioniert nun wieder
• Dialog Einstellungen akzeptiert nun keine Anzahl <0 oder >100
  (wegen den Wahnsinnigen )
• Es kann das Smile über den Optionen Dialog verändert werden
• Die Positionen der einzelnen Smiles werden nun alle gespeichert.
• Ach ja ich habe auch noch ein paar Smiles hinzugefügt
• für die Fans der Eingabeaufforderung gibt es nun auch 4 Parameter:
  • bounce2.exe /load Dateiname.bounce: Es wird eine .bounce Datei geladen und die darin festgelegte Formation dargestellt.
  • bounce2.exe /save Dateiname.bounce: Es wird die aktuelle Formation gespeichert.
  • bounce2.exe /RegClean: entfernt alle angelegten Registry Einträge. (Extra für Matze eingebaut)
  • bounce2.exe /install: muß noch gemacht werden. Da soll später mal die Dateiverknüpfung rein (HKEY_CLASSES_ROOT)
• Laden und Speichern geht natürlich auf via PopUp Menü
• ...

Also ausprobieren.
bekannte Bugs:

• Die StayOnTop funktioniert noch nicht so wie sie soll
• kleiner Grafikfehler beim OptionenDialog
  (danke Faux, den hatte ich vergessen, tritt bei mir auch auf)
• Beim Auslesen der .bounce Dateien ist noch keine Fehlerbehandlung enthalten
  (Die Wahninnigen können so also doch versuchen 500 Smileys auf den Schirm zu zaubern)
• bei zu vielen Smileys gibts jedem Menge Fehlermeldungen

Viel Spaß beim testen.[/quote]



ps: Info zu verwendeten Komponenten ist in der Unit1.pas enthalten (s.u.):

Delphi-Quellcode:

////////////////////////////////////////////////////////////////////////////////
// Bounce for Sakura v2.0
//
// Spaßprogramm zum Anzeigen eines hüpfenden Smileys
//
// Download des neusten Quelltextes und Executables auf [url]www.delphipraxis.net[/url]
// URL: [url]http://www.delphipraxis.net/topic63933_bounce+for+sakura+v10.html[/url]
//
// verwendete 3rd party Komponenten:
//   - Anders Melander's TGIFImage (Unit GIFImage)
//     das ist ein Filter zur Anzeige von animierten Gif Dateien in TImage
//
// sonstige verwendete Dateien, die nicht Bestandteil von Delphi sind:
//   - [url]http://www.delphipraxis.net/images/smiles/bounce.gif[/url]
//   - und viele andere Smileys, die auf [url]www.delphipraxis.com[/url] verwendet werden
//
////////////////////////////////////////////////////////////////////////////////
// Das Programm ist Freeware und darf beliebig benutzt und erweitert werden.
// Es wäre nett, wenn dann auch der geänderte Quelltext in obiges URL-Adresse 
// gesendet wird. Dann haben alle was davon.
// Es wäre auch nett wenn mein (unser) Name in den Dateien enthalten bleibt.
// Das Programm wird von Ihnen auf eigenes Risiko eingesetzt. Ich übernehme 
// keine Haftung für Schäden die durch das Programm oder die Benutzung des 
// Programms entstanden sind bzw. entstehen.
////////////////////////////////////////////////////////////////////////////////
// (C) 2005, MaBuSE, member of DelphiPraxis.net
////////////////////////////////////////////////////////////////////////////////
// ReleaseNotes:
// v1.0 - 20.09.2005 - MaBuSE:      Erste Version war in 5 - 10 min programmiert
// v1.1 - 20.09.2005 - MaBuSE:      Ein paar Erweiterungen in 20 min dazugepackt
// v1.2 - 21.09.2005 - turboPASCAL: von RxTools auf GifImage umgestellt
//                                  Auswahlmöglichkeit des Smilies eingebaut.
// v2.0 - 22.09.2005 - MaBuSE:      bounce komplett neu geschrieben 
//                                  Funktionen der v1.2 Übernommen
////////////////////////////////////////////////////////////////////////////////

[vlees91]

ziemlich lustig

^^
sinnlos
aber lustig

[Neuni]

Meine Roll-Version *g*
Genau so sinnlos wie der Rest.

[MaBuSE]

Zitat von Khabarakh:

@turboPASCAL: Kann es sein, dass du vergessen hast, eine Resourcendatei mit Katzenfutter zu erstellen? Nach etwa zwei Stunden hat aufgehört, sich zu bewegen .

Das ist nicht nur bei der Katze so. aber wenn Du auf Einstellungen gehst und dann ok drückst bewegt sie sich wieder.

[turboPASCAL]

Wie gesagt, es liegt an der unit GifImage, die hat wahrscheinlich einen Bug im Timer. Der hört doch tazächlich nach ca. 2 Stunden auf die Animation zu aktualisieren.

Zitat von SirThornberry:

ist das ganze bereits nonvcl? (bischen groß die exe) Wenn das ganze noch weniger ressourcen benötigen würde wäre es supi.

Ja, fast.

Wenn einer weis wie man eine Gif-Animation (Bitmap/Iconanimation ) nonVCL machen kann wäre ich interessiert. Dann konnte man was lernen. Luckie, Olli & Co ?

Anbei, eine Versuchsversion.

[Hador]

Ich bin grad inner Schule deshalb kann ich netmal dein Programm ausprobieren, aber evt. könntest du ja das gif wieder in die Einzelbilder zerlegen und dann alle x ms das nächste Bild laden.

[TeronG]

Zitat von MaBuSE:

Speziell für Dich habe ich mal folgendes gebastelt. (Ist noch Beta )
Mich würde die CPU Auslastung interessieren (Bei mir ca. 10%)
PopUpMenu geht, verschieben geht, Speichern der Pos geht noch nicht.

warum muss ich auch überall draufklicken .... tztztz ..
Echt witzig ... weiter so
(4 Seiten schon ... cool ^^ )

EDIT: nun 4 Seiten

[MaBuSE]

Hallo,

ich habe in der Mittagspause etwas am Bounce2 gearbeitet, und eine neue Beta Version bereitgestellt.
http://www.delphipraxis.net/download.php?id=14401 (oder hier)
Folgende Funktionen funktionieren nun:

• Start Bildschirm mit Start button
• Es werden mehere Smiles unterstützt. (Beim 1. Start 5 Smiles)
• Die einzelnen Smiles können verschoben werden
• Dialog Einstellungen funktioniert nun wieder
• Es kann das Smile über den Optionen Dialog verändert werden
• Die Positionen der einzelnen Smiles werden nun alle gespeichert.
• Ach ja ich habe auch noch ein paar Smiles hinzugefügt
• ...

Also ausprobieren.
bekannte Bugs:

• Die StayOnTop funktioniert noch nicht so wie sie soll
• kleiner Grafikfehler beim OptionenDialog
  (danke Faux, den hatte ich vergessen, tritt bei mir auch auf)

Viel Spaß beim testen.

[faux]

Wieso denn der Startbildschirm? Wenn jemand das Programm nicht starten will, soll er es erst garnicht ausführen..
Bei mir gibt es einen kleinen (eher winzigen) Grafikfehler, dort wo man den Smily auswählen kann - beim Scollen...

Kann mir mal kurz wer erklären, wie die Smilies in die EXE eingebunden werden?

[zecke]

Ja diese Grafikfehler habe ich auch. Auch sieht man abundzu eine Schrift darunter wie :roll (und noch ein : ). Sonst auch schön

Startbildschirm würde ich auch weglassen wie faux schon sagte

[leddl]

Jupp, Startbildschirm is irgendwie störend.
Wäre auch besser, wenn beim ersten Start nur einer käme.
Und der "DP Rules" Smilie hat wohl auch nen kleinen Fehler...
Und noch eine kleine Sache: Wäre besser, wenn sich das Scrollen direkt auswirkt, hab aber grade den Namen der Property dafür nich mehr im Kopf