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
////////////////////////////////////////////////////////////////////////////////

[mschaefer]

Moin, Klasse,

also wenn man sonst mal schaut mit welchen knackigen Problemen sich Mabuse doch so beschäftigt,
dann scheint hier doch der Spieltrieb hemmungslos ausgebrochen zu sein. Jedenfalls scheint Daniel
da doch mindestens ein Smiley im Brett zu haben .

Grüße // Martin

[Aenogym]

danke dir, mabuse!

ich musste es gleich wieder übertreiben - anbei der screenshot. (cpu-auslastung bei nur ~50% )

freue mich riesig auf die neue version, in der der kerl sich seine position fürs nächste mal merken kann - dann befindet sich in meinem autostart ein neues programm

aenogym

oh shit: die teile zu beenden, wird ja ein akt egal - meld ich mich mal schnell ab

[malo]

Zitat von Aenogym:

oh shit: die teile zu beenden, wird ja ein akt egal - meld ich mich mal schnell ab

Taskmanager

[Aenogym]

Zitat von malo:

Zitat von Aenogym:

oh shit: die teile zu beenden, wird ja ein akt egal - meld ich mich mal schnell ab

Taskmanager

da muss ich auch jedesmal auf "prozess beenden -- ja" klicken. und bei 74 instanzen dauerte mir das einfach zu lang

[SirThornberry]

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

[jfheins]

... Oder alle 74 Instanzen im Register "Anwendungen" mit Shift marhieren und auf Task beenden klicken
Aber darum gehts hier ja eigetlich nicht - das Programm ist eine nette Spielerei

[Aenogym]

Zitat von jfheins:

... Oder alle 74 Instanzen im Register "Anwendungen" mit Shift marhieren und auf Task beenden klicken
Aber darum gehts hier ja eigetlich nicht - das Programm ist eine nette Spielerei

zu meiner verteidigung: die instanzen sind nicht im register "anwendungen" aufgeführt

aber gut ist jetz, hab's ja wieder weg^^
ja, wirklich geniales kleines programm - danke mabuse

[Assun]

Zitat von Luckie:

Zitat von Assun:

also ich wäre brennend am Source interssiert

Wozu? TImage auf die Form, TGifImage installieren, Gif Bildchen reinladen, Form auf Alwaysontop stllen und die Größe des TIMages anpassen, fertig. Dazu braucht man keinen Quellcode.

najaaa, ich wüsste auf anhieb nicht so ganz wie ich es schaffen soll, dass der smile transparenz angezeigt wird

[mschaefer]

Tja, das ist die Transparentfarbe des Gif´s.
Aber was Mabuse, da sonst noch reingebaut hat sehen wir wohl erst, wenn es mal einen Tag unterwegs war...

Grüße // Martin

[Luckie]

@Speedmaster: Bitte unterlasse es solche absolut offtipoc Beiträge hier zu erstellen! Ich habe deinen Beitrag entfernt.