Touhou - BadApple!! Screensaver mit Delphi rekriiert

[Memnarch]

SOO,
hab mal schnell drüber geguckt und schonmal eine große dumheit gefunden .

Application.processMessages()

Hat mal sowas von garnichts in nem Subthread zu suchen XD.
Ok, nieweider wnen ich müde bin, programmieren

Und nochwas abgeändert beim beenden des Subthreads sodass es nun keinen Handle fehler mehr geben sollte.
TROTZDEM: das ist erstmal nur als testbuild deklariert, weswegen ich hier nur die neue Screensaver datei Poste, die restlichen files(animation.dat und audio.mp3) müssen aus dem esrten pack im HAuptpost genommen werden.

TestBuil

[himitsu]

laufen tut es hier anscheinend

- ich höre nur keinen Ton
- abundzu flimmert es, bzw es scheint so, als wenn mal ganz kurz der ganze Bildschirm schwarz würde,
bzw. manchmal hängt es für 'nen halbes Sekündchen
- es wäre auch toll, wenn das Abschalten ebenfalls auf die Tastatur reagiert
- und mach besser noch den Mauszeiger unsichtbar


Was ich aber mal schön finde, daß ein "transparenter" Bildschirmschoner wirklich mal transparent ist.
Oftmals wird ja einfach nur ein Screenshot gemacht und man sieht keinen aktuellen Hintergrund.

Gut, die CPU-Belastung und die Dateigröße ist noch ein bissl "radikal", für einen BildschirmRechnerschoner (die Flachbildschirme muß man ja nicht mehr so sehr schonen).

[Namenloser]

Läuft überraschend flüssig, muss ich sagen, bei ca. 20% CPU-Auslastung. Btw, hast du dir mal MNG APNG angeschaut (Gibt sicher irgendwo ’ne Delphi-Komponente dafür)? Vielleicht kannst du damit die Dateigröße noch reduzieren.

P.S.: Wirst du den Source-Code eigentlich freigeben?

[Memnarch]

Sehr gut, dan scheint sich der laufzeitfehler endlich die Klinke gegeben zu haben .

@Himitsu:
Wen du keinen Ton hörst: Tschuldige, hatte ich glaube ich nicht erwähnt, die audiodatei muss unter einstellungen erst selektiert werden(so kan man das beliebig austauschen wen man möchte , es ist auch noch geplant den packer für die animdatei mitzupacken sodas jeder seine eigenen animationen(mit alphatransparenz) nutzen kann .
(Sofern die transparenz schon mit dabei is )

Mauszeiger mach ich noch wech
-Das das bild flackert is mir gestern auch aufgefallen, scheint er was nich nachzubuffern. Kümmer ich mich drum .
-Eigentlich reagiert es auf Tastatureingaben. Aber dadurch das die maus an ist, und dass man durch transparente stellen klicken kann, verleirts wohl manchmal den fokus weswegen Keypreview nich geht.

@Namenloozer: Werde ich mir mal angucken, nur darf es die dekompressionsleistung nicht hochtreiben^^(skalieren frisst ja schon alles ).
Sourcecode, guck ich mal, der ist so undordentlich....geht garnicht^^. Wenn er aufgeräumt is, guck ich mal .

PS: könntet ihr wenn ihr die Auslastung anschreibt, vllt noch eure Prozessortaktung angeben? 20% hort sich weniger an, aber ich schätze mal da hat jemand nen quadcore^^(bei meinem dualcore sinds nette 50% )

Die auslastung bekomme ich vllt runter wnen ich mit Graphics32 experimentiere. Soll ja um einiges schneller sein o.O.

MFG
Memnarch

[Namenloser]

Ja, ist ein Quadcore (Q6600 @2.4GHz).

Btw: Mein Nick hat nur ein O (Und auch nix mit dem englischen Wort „loser“ zu tun )

[himitsu]

Wegen dem Durchklicken:

Implementiere noch {TForm}.OnDeactivate oder Application.OnDeactivate oder {TApplicationEvents}.OnDeactivate
und eventuell auch noch sicherheitshalber das OnMinimize.

Darin einfach nur Application.Terminate aufrufen
(oder wie auch immer du auf das Beenden reagieren möchtest)
und das Durchklicken, sowie ähnliche Ereignisse sollten mit abgefangen werden.

[Memnarch]

@Namenlozer: Sorry^^"

@Himitsu: Was das durchklicken angeht, mal gucken. Das machts Delphi automatisch >.<. Da muss ich mal nachforschen, oder ich stell die mindesttransparent auf 1 (dan gehts schon nicht mehr). Wäre aber programmtechnisch ne unsaubre lösung v.v

[Assarbad]

[OT]

Zitat von NamenLozer:

Btw: Mein Nick hat nur ein O (Und auch nix mit dem englischen Wort „loser“ zu tun )

Nicht zufällig Rollenspieler?
[/OT]

[Namenloser]

[OT]

Zitat von Assarbad:

Nicht zufällig Rollenspieler?

Nein, kein Rollenspieler.
[/OT]