Kopieren-Animation in Painbox zeichnen

[stahli]

Dann würde ich das Problem zerlegen.

1.) Thread und Bitmap bauen, so dass laufend Zufallswerte erzeugt werden, die flüssig gezeichnet und "gescrollt" werden können.
2.) Zoom dynamisch anpassen
3.) echte Werte statt Zufallswerte darstellen

Grundsätzlich würde ich für die einzelnen Werte Striche nebeneinander zeichnen.

Delphi-Quellcode:

for I := 0 to Values.Count - 1 do
begin
  Value:=Values[X];
  PaintBox1.Canvas.MoveTo(I, PaintBox1.Height - Value);
  PaintBox1.Canvas.LineTo(I, PaintBox1.Height); // bis unten zeichnen
end;

So zum Einstieg könnte das passen.
Die Anzahl der gesammelten Werte musst Du dann an die Breite der Paintbox anpassen und ältere Werte verwerfen.

Ist etwas schwierig, etwas zu empfehlen, weil mir noch nicht klar ist, wo Du wirklich Hilfe brauchst.

[Glados]

Zitat:

weil mir noch nicht klar ist, wo Du wirklich Hilfe brauchst.

Im Prinzip bei allem. In die PaintBox zeichnen kann ja funktionieren aber da verschwindet immer alles.

Gerade kurz sowas hier getestet... funktioniert natürlich auch nicht.. wie immer bei mir

Delphi-Quellcode:

var
 val: Integer;
 bmp: TBitmap;
begin
 val := Random(bmp.Height);

 bmp := TBitmap.Create;
 bmp.Height := PaintBox1.Height;
 bmp.Width := PaintBox1.Width;

 bmp.Canvas.FillRect(ClientRect);
 bmp.Canvas.MoveTo(0, bmp.Height - val);
 bmp.Canvas.LineTo(0, bmp.Height);

 PaintBox1.Canvas.Draw(0, 0, bmp);

[HolgerX]

Hmm..

Und bei einer Paintbox wird im OnPaint gezeichnet und nicht in einem ButtonClick.

Sonst würde die Anzeige verschwinden, wenn ein anderes Fenster darüber gezogen wird.

Oder in ButtonClick auf einem Bitmap zeichnen und dieses im OnPaint der PaintBox darauf kopieren..

[Glados]

So wirklich funktioniert es nicht

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
 Timer1.Interval := 50;
 iPosX := 0;
 bmp := TBitmap.Create;
 bmp.Width := PaintBox1.Width;
 bmp.Height := PaintBox1.Height;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Timer1.Enabled := not Timer1.Enabled;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
 val: Integer;
begin
 Application.ProcessMessages;

 if iPosX >= PaintBox1.Width then
  Dec(iPosX);

 val := RandomRange(25, 45);

 bmp.Canvas.MoveTo(iPosX, bmp.Height - val);
 bmp.Canvas.LineTo(iPosX, bmp.Height);

 Inc(iPosX);

 PaintBox1.Repaint;
end;

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  TPaintBox(Sender).Canvas.Draw(0, 0, bmp);
end;

[stahli]

Was funktioniert denn nicht?

Nimm mal in der Timerbehandlung das Application.Processmessages raus. Das ist unnötig und kann Probleme verursachen.
(Später wäre ein Thread statt einem Timer sicherlich sinnvoller.)

Füge in dem Timer mal so etwas wie meine Schleife ein.

Nach Deinem Code würde in dem Bitmap (so wie ich das sehe) nichts gescrollt.

[Glados]

Das Processmessages, egal ob unnötig oder nicht, lasse ich erst einmal drin. Das hat nix mit dem Problem zu tun, dass nicht gescrollt wird.

Hiermit im Timer schaffe ich es zu scrollen. Aber dabei wird das bitmap einfach immer nach rechts verlängert und links rutscht es in den Minusbereich.

Delphi-Quellcode:

// Timer
 bmp.Canvas.MoveTo(iPosX, bmp.Height - val);
 bmp.Canvas.LineTo(iPosX, bmp.Height);

 Inc(iPosX);

 if iPosX >= PaintBox1.Width then
  begin
   Dec(iPosXBmp);
   bmp.Width := bmp.Width + 1;
  end;

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
 TPaintBox(Sender).Canvas.Draw(iPosXBmp, 0, bmp);
end;

Zitat:

Füge in dem Timer mal so etwas wie meine Schleife ein.

Warum? Der Timer ist doch schon in etwa sowas wie eine Schleife.

[Glados]

---

[stahli]

Das Processmessages ist nicht unnötig sondern potentiell schädlich!

Was Du jetzt tust, ist Dein Bitmap bis ins unendliche zu verbreitern und immer den rechten Bereich zu kopieren.
Das kann man machen, sollte aber gelegentlich das Bitmap wieder verschmälern.
Du kannst auch, statt das Bitmap zu verbreitern dessen Inhalt um ein Pixel nach links kopieren und dann das rechte Pixel füllen.

Das reicht aber nicht mehr, wenn Du die Zoomstufe ändern willst. Dazu brauchst Du dann wieder die Originalwerte.
Daher würde ich meinen o.g. Wert mit der Schleife vorziehen.