![]() |
Re: Bounce and Fall
Jo gutes Spiel.
Da freuen sich die :bouncing4: aber. Ja das mit W9x und W2000 ist natürlich blöd, aber es liegt daran, das "fuchsia" nicht die transparent Farbe in 98 und 2000 ist. Oder wie??? Ich hab mir das neue Programm nocheinmal unter die Lupe genommen, und habe sehr viele Bugs gefunden. :( Gruss, Mindforce |
Re: Bounce and Fall
Zitat:
|
Re: Bounce and Fall
Sry. Vergessen. Poste ich später. Muss los. Entschuldinge vielmals.
Gruss, Mindforce |
Re: Bounce and Fall
sollten nicht die platzenden Smileys verschwinden und oben wieder neu anfangen? :gruebel:
Bei mir fallen Augen runter und drumrum sieht man den immer wieder platzenden Körper :mrgreen: eigentlich nicht Sinn und Zweck der Sache ;) außerdem wurde die Sache mit dem Mauszeiger nicht berücksichtigt und das Newtonsche G-Gesetz ist auch nicht schwer ;) einfach zu vy immer nen konstanten Wert (Gravitationskonstante) hinzuzählen ansonsten: Tolles Prog :thumb: |
Re: Bounce and Fall
Zitat:
€dit: kein roter Kasten |
Re: Bounce and Fall
Zitat:
Zitat:
Zum restlichen Code:
Delphi-Quellcode:
Nutzt du überhaupt nicht ;) .
Timer1: TTimer;
Image1: TImage;
Delphi-Quellcode:
// Einstellungenfenster nicht anzeigen
if paramstr(1) <> '' then begin Left := -500; Top := -500; Position := poDesigned; Timer1.enabled := true; end; ![]() Womit ich überhaupt nichts anfangen kann:
Delphi-Quellcode:
:gruebel: ?
if SpinEdit1.Text = '' then SpinEdit1.Text := '1';
Damit zerstörst du höchstens die Usability des Spinedits.
Delphi-Quellcode:
:gruebel: Da ist doch alles doppelt gemoppelt. Ich sehe keinen Fehler/Unschönheit in meinem Code, den try-except-Block solltest du auch nicht so leichtfertig entfernen.
if not FileExists(ExtractFilePath(ParamStr(0)) + IniName) then
begin Blobs := 5; ButtonDefaultClick(self); for i := 0 to High(FCheckBoxes) do FCheckBoxes[i].Checked := Blobs and (1 shl i) <> 0; SpinEdit1.Value := Blobs; SpinEdit1.Text := IntToStr(Blobs); exit; end; Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + IniName); Blobs := Ini.ReadInteger('Values', 'Blobs', 1 shl 4 - 1); if Blobs = 0 then Blobs := 5; Außerdem würde mich interessieren, warum du TMemIniFile mit TIniFile ersetzt hast :stupid: . Und meine schönen Leerzeilen hättest du ruhig drin lassen können, 2 Byte keine große Speicherplatzbelastung ;) . |
Re: Bounce and Fall
Liste der Anhänge anzeigen (Anzahl: 2)
Schönnes Programm! Jetzt wäre es nur noch nett, das mit dem Zerplatzten ^^
:bouncing4: :bounce1: Allerdings noch ein paar Bugs: Die IniDatei MUSS vorhanden sein >>> Vielleicht sollte das umgeschrieben werden, so dass sie nicht zwingend ist? Teilweise hüpfen sie auf dem Blauen Balken der Delphipraxis ^^ Das Fenster sollte vielleicht, wenns schon nicht in der Taskleise angezigt wird, wenigsten im TNA-Bereich sein! Ansonsten: Cooles Programm ^^ (Mal sehen, wann sie mich nerven werden! :D) [edit] Eine Frage: Woran orientieren sie sich, ob sie springen/fallen? (Wenn man das Fenster bewegt fallen sie nämlich :( ^^) [/edit] [edit] Der Zufall, was für welche Bouncer genommen werden versagt irgendwie ^^ Ich habe meißetns nur die grünen! (Siehe Attachment!) [/edit] |
Re: Bounce and Fall
@Khabarakh:
Meine Änderungen dienten haupsächlich dazu, ohne eine fehlende INI-Datei auszukommen (Dein Original schmiert bei mir sonst ab). Wozu der Timer dient, hast Du sicher gemerkt ;-) @All: Nicht rumnörgeln, sonder besser machen, der Source liegt schließlich wieder bei und Delphi 7pe ist auch kostenlos :-) mfg |
Re: Bounce and Fall
Zitat:
Zitat:
|
Re: Bounce and Fall
Hm... da hat wohl einer was falsch verstanden, oder ich habs nicht verstanden?
Eigentlich ging es doch darum, dass die "bouncer" zerplatzen, wenn sie z.B. auf den Mauszeiger treffen, aber das nun dauernd platzende, plazenderweise von oben nach unten platzen war IMHO nicht Sinn der Übung ;) |
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:16 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz