Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Sinus scroller

    Delphi
    by Klaus01, 12. Apr 2007
  Sollte das nicht ungefähr so gehen?
  
  procedure TForm1.Button1Click(Sender: TObject);
  var
  x: Integer;
  
  begin
  for x := 0 to 720 do
  begin
  Canvas.TextOut(x,200+trunc(100*sin(x/50)),'+');