Bild fällt ... nicht

[Poring]

Huhu,
ich möchte das Bild gerne immer schneller fallen lassen:

Delphi-Quellcode:

var
  Form1: TForm1;
  Fallen: real;
  Höhe: integer;
...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Fallen:= 1;
with Image1 do
repeat
Höhe:= Image1.Top;
Fallen:= Fallen*1.1;
Image1.Top:=Image1.Top - Fallen;
until ( Image1.Top = Höhe - 250 );
end;

Nur ich bekomme dann die Fehlermeldung:
[Fehler] Unit1.pas(36): E2010 Inkompatible Typen: 'Integer' und 'Extended'

Was muss ich den dort machen :gruebel:

mfg

[Luckie]

Wenn du von einem Gnazzahltypen einen Fließkommadatentyp abziehst, ist das Ergebnis auch ein Fließkommadatentyp. Der Ganzzahldatentyp wird bei dieser Operation entsprechend erweitert. Die Eigenschaft Top benötigt aber einen Ganzzahldatentyp, da es keine Bruchteile von Pixel gibt. Du musst also aus deinem Fließkommadatentyp mit Round oder Trunc, je nachdem was besser passt, wieder einen Ganzzahldatentyp machen.

[Apollonius]

Eine Höhe ist eine Ganzzahl, Fallen eine Gleitkommazahl. Zum Umwandeln kannst du z.B. round() oder trunc() nehmen.
Aber mal ernsthaft: Genau das steht doch eigentlich in der Fehlermeldung. Wir nutzen hier doch kein C++. :gruebel:

Außerdem muss in die Schleife noch ein Application.ProcessMessages, sonst siehst du nichts.

[Poring]

Delphi-Quellcode:

round(Fallen);

so müsste es laut delphihelp sein:

Delphi-Quellcode:

For the last two cases, the result of calling the round() function is not the same as the result of adding 0.5 and then calling the floor() function because positive zero will be returned in such cases.

The following function call returns 3.

round(2.6)
The following function call returns 2.

round (2.4)

geht aber nicht:
[Fehler] Unit1.pas(36): E2014 Anweisung erforderlich, aber Ausdruck vom Typ 'Int64' gefunden

- Ich wusste nur nich ob sich die meldung auf Top oder auf Fallen bezieht ;)

EDIT:
ok richtig lesen muss man:

Delphi-Quellcode:

Fallen:=round(Fallen);

nun kommt jedoch trozdem die Fehlermeludng:
[Fehler] Unit1.pas(37): E2010 Inkompatible Typen: 'Integer' und 'Extended'
bei Image1.Top:=Image1.Top - Fallen; :gruebel:

[RavenIV]

Wenn Du richtig gelesen hättest, wäre Dir aufgefallen, dass Du es so machen sollst:

Delphi-Quellcode:

Image1.Top:=round(Image1.Top - Fallen);

[Poring]

Ahso danke.
Nur rennt das jetzt innerhalb von 2 sec ins unendliche ... will das eigentlich langsam fallen lassen. Gibts da ne möglichkeit?

[DeddyH]

Du benutzt doch einen Timer. Also entweder dessen Interval höher stellen oder den Faktor (1.1) verkleinern.

[Poring]

Sollte ja auch noch flüssig sein. Was mich wundert:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin 
Fallen:= 1; 
with Image1 do 
repeat
Höhe:= Image1.Top; 
Fallen:= Fallen*1.01;
Image1.Top:=round(Image1.Top + Fallen);
until ( Image1.Top = 50 );
end;

(Interval=2000)
Wenn es bei Top=50 bleibt es kurz stehen und dann rennt es ins unendliche nach unten. Warum? :(

[DeddyH]

Zitat:

Zitat von Poring

Delphi-Quellcode:

until ( Image1.Top = 50 );

Und was, wenn Image1.Top > 50? ;)

[Sergej]

Zitat:

Zitat von Poring

Wenn es bei Top=50 bleibt es kurz stehen und dann rennt es ins unendliche nach unten. Warum? :(

Schau die mal den Unterschied zwischen einer while-Schleife und deiner repeat-until-Schleife an. Vielleicht kommst du selbst auf die Lösung ;-)

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Sonstige Fragen zu Delphi" nach "Multimedia" verschoben.
Das passt hier eigentlich besser hin.

[Poring]

Delphi-Quellcode:

while Image1.Top<200 do begin
Höhe:= Image1.Top;
Fallen:= Fallen*1.01;
Image1.Top:=round(Image1.Top + Fallen);
Application.ProcessMessages;

So?
Naja ok nun hält es wenigstens an ^^
Jedoch sobald es sichtbar anfängt runter zu gehen, ist es slebst bei einem Interval von 5000 innerhlab von paar Millisekunden gleich unten :(

[Christian Seehase]

Moin Poring,

ich denke mal, dass es einfach keine gute Idee ist, dass Du das gesamte Fallen in einer Schleife abarbeitest.
Es würde wahrscheinlich besser funktionieren, wenn Du das Image bei jedem Timeraufruf ein Stückchen fallen lässt.

[Matze]

Hallo,

wenn du das so mittels Schleife lösen möchtest, benötigst du keinen Timer, denn beim ersten Timeraufruf wird die komplette Schleife in Sekundenschnelle abgearbeitet. Da genügt ein Delay (das ist eine Alternative zu Sleep) innerhalb der Schleife.

[Apollonius]

Darf ich fragen, warum du eine Schleife in einen Timer setzt? Wenn die Schleife bereits beim ersten Timer-Aufruf durchlaufen wird, ist Image1.Top natürlich schon größer oder gleich 200. Dann passiert bei weiteren Timer-Aufrufen nichts mehr. Nimm also die Schleife raus.

[Poring]

Es sollte ja nicht konstant fallen, sonder auch schneller werden ... aber eben nicht soo! schnell. Sollte vll schon so 5-6 Sekunden dauern von oben bis unten, nur eben immer shcneller werdend.

Delphi-Quellcode:

if Image1.Top<200 then begin
Höhe:= Image1.Top;
Fallen:= Fallen*1.1;
Image1.Top:=round(Image1.Top + Fallen);
Application.ProcessMessages;

Interval=500

Ja nun geht das besser, nun ruckelt es aber :gruebel:

[Apollonius]

Also die 1,1 und das Timer-Intervall verringern.

[Poring]

:-D Nu flackerts :spin:

[Apollonius]

Ist DoubleBuffered gesetzt?

[Poring]

:coder2: Nein, wie mache ich das denn? :/

[DeddyH]

Im OnShow (oder OnCreate) die Zeile

Delphi-Quellcode:

DoubleBuffered := true;

einfügen.

[Poring]

Danke :)