Kopieren-Animation in Painbox zeichnen

[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.

[Glados]

Habe ein bisschen rumprobiert. Ist nicht einfach

Delphi-Quellcode:

var
 bmp: TBitmap;
 iPosXBmp: Integer;
 iOldPos, iNewPos: TPoint;

procedure TForm1.Timer1Timer(Sender: TObject);
var
 val: Integer;
begin
 val := RandomRange(25, 45);

 iNewPos.X := iNewPos.X;
 iNewPos.Y := bmp.Height - val;

 bmp.Canvas.Pen.Color := clBlack;
 bmp.Canvas.MoveTo(iNewPos.X, iNewPos.Y);
 bmp.Canvas.LineTo(iNewPos.X, bmp.Height);

 if iNewPos.X > 0 then
  begin
   bmp.Canvas.Pen.Color := clRed;
   bmp.Canvas.MoveTo(iOldPos.X, iOldPos.Y);
   bmp.Canvas.LineTo(iNewPos.X, iNewPos.Y);
  end;

 iOldPos.X := iNewPos.X;
 iOldPos.Y := bmp.Height - val;


 PaintBox1.Repaint;

 Inc(iNewPos.X, 5);
 if iNewPos.X >= PaintBox1.Width then
  begin
   Dec(iPosXBmp, 5);
   bmp.Width := bmp.Width + 5;
  end;

Zitat:

Du kannst auch, statt das Bitmap zu verbreitern dessen Inhalt um ein Pixel nach links kopieren und dann das rechte Pixel füllen.

Genau das möchte ich, weiß aber nicht wie.
Die Zoomstufe ist mir total egal. Muss ich nicht können.

Bekommt man das irgendwie besser hin, sodass es dem hier ähnelt?
ich dachte durch diese 5-Pixel-Verschiebung bekomme ich ein schönes Dach über den Strichen hin. War wohl falsch gedacht.
https://i.ytimg.com/vi/msVDJSMs8Z0/maxresdefault.jpg