Bounce and Fall

[Khabarakh]

Zitat von mindforce:

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.

Tut mir leid, aber: LOL . So statisch programmiert nicht einmal Microsoft.

Zitat von MSDN:

Minimum operating systems: Windows 2000

@rory: Nuja, effektiv hast du ja eine Zeile verändert . Aber die platzenden Smilies finde ich etwas witzlos, solange man sie nicht per Maus zum Platzen bringen kann, sondern sie die ganze Zeit explodieren. Außerdem musst du den Code für die Fluganimation anpassen, so macht das ja wenig Sinn.

Zum restlichen Code:

Delphi-Quellcode:

    Timer1: TTimer;
    Image1: TImage;

Nutzt du überhaupt nicht .

Delphi-Quellcode:

  // Einstellungenfenster nicht anzeigen
  if paramstr(1) <> '' then
    begin
    Left := -500;
    Top := -500;
    Position := poDesigned;
    Timer1.enabled := true;
    end;

TForm.Visible
Womit ich überhaupt nichts anfangen kann:
if SpinEdit1.Text = '' then SpinEdit1.Text := '1'; ?
Damit zerstörst du höchstens die Usability des Spinedits.

Delphi-Quellcode:

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;

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.

Außerdem würde mich interessieren, warum du TMemIniFile mit TIniFile ersetzt hast .
Und meine schönen Leerzeilen hättest du ruhig drin lassen können, 2 Byte keine große Speicherplatzbelastung .