Wackeleffekt

[Popov]

Ich hab mal für ein Programm eine Wackelfunktion eingebaut, um den Nutzer zu erinnern, dass ich eine Eingabe erwarte. Vielleicht kannst du es abwandeln und für eine Komponente nutzen

Delphi-Quellcode:

procedure ShakeBabyShake(Form: TForm);
var
  iLeft, iTop, iCount: Integer;
const
  wMax = 20;
begin
  with Form do begin
    iLeft := Left;
    iTop := Top;
    for iCount := 0 to 300 do begin
      Left := iLeft + (Random(wMax) - (wMax div 2));
      Top := iTop + (Random(wMax) - (wMax div 2));
      Left := iLeft;
      Top := iTop;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShakeBabyShake(Self);
end;

[Jazzman_Marburg]

Zitat von Popov:

procedure ShakeBabyShake(Form: TForm);

Ich lach mich schlapp "ShakeBabyShake" -- das ist genau das, was ich gesucht habe. Damit werde ich mal rumspielen!

Vielen Dank

Vielen Dank Leute, das Alles hilft mir prima!

Gruß
Jazzman

[Namenloser]

Sehr „harmonisch“ wird es so aber wohl nicht aussehen...

[Caps]

Zitat von NamenLozer:

Sehr „harmonisch“ wird es so aber wohl nicht aussehen...

Da fehlt die Dämpfung und die Folgerichtigkeit der Bewegung.
Man könnte auch permanent Lissajous-Figuren berechnen (da ist das "harmonische" drin) und einfach den Radius mit einer natürlichen Dampfungsfunktion (exp(-ax)) multiplizieren. Ab Auslenkung < Epsilon abschneiden, dann isses wieder endlich.

Man könnte auch mit einer zeitlich umgekehrten Dämpfung einfaden, das wäre dann rundum harmonisch und glatt und hübsch.

[stahli]

Armin hatte hier mal eine kleine nette Animation eingebaut.

Wenn FMX eine Option wäre ... dort ist ja die Möglichkeit von Animationen direkt vorgesehen.

[Jazzman_Marburg]

Zitat von stahli:

Armin hatte hier mal eine kleine nette Animation eingebaut.

Wenn FMX eine Option wäre ... dort ist ja die Möglichkeit von Animationen direkt vorgesehen.

Hmm... das schöne Abprallen vom linken Rand ("ToLeft") ist schon cool.
Aber FMX ist leider keine Option.


Danke & Gruß