Image Flackert, wenn Cursor nicht über Formular.

[Cyberbob]

Hallo, noch ein Problem in meinem Programm.

Ich entwickle grad meinen MediaPlayer weiter, mein Problem nun, wenn der Mauscursor nicht über einem der Formulare meines Programmes liegt, Flackert die PaintBox auf dem Formular.
Die PaintBox wird über einen Timer sändig aktuallisiert um die FFT- oder die Wavedaten anzuzeigen.

Schonmal danke für alle Antworten.

[Luckie]

Zeichnes du den Inhalt der Paintbox immer komplett neu?

Zeichen auf ein Bitmap im Speicher und kopiere es bei bedarf auf den Canvas der Paintbox. Das ist wesentlich performanter und das flackern sollte nicht auftreten.

[Cyberbob]

Ich zeichne per

Delphi-Quellcode:

PaintBox.MoveTo(0, Height div 2);
For i := 1 To 255 do
  PaintBox.LineTo(i, FFTData[i]);

DoubleBuffered ist auch aktiv!

[SirThornberry]

Du machst genau das was Luckie vermutetet hat. Bei jeder Aktion die du ausführst auf die Canvas wird die Ausgabe aktuallisiert was das Flackern verursacht. Machs so:

Delphi-Quellcode:

var lBmp: TBitmap;
begin
  lBmp := TBitmap.Create;
  try
    //Alle Aktionen auf eine Canvas/Bitmap im Speicher ausführen
    lBmp.SetSize(PaintBox.Width, PaintBox.Height);
    lBmp.Canvas.MoveTo(0, Height div 2); 
    For i := 1 To 255 do 
      lBmp.Canvas.LineTo(i, FFTData[i]);
    //Und jetzt das Bitmap mit einem Rutsch auf die Canvas kopieren
    BitBlt(PaintBox.Canvas.Handle, 0, 0, lBmp.Width, lBmp.Height, lBmp.Canvas.Handle, 0, 0, SRCCOPY);
  finally
    lBmp.Free;
  end;

[Cyberbob]

Mein Delphi meckert bei dem Befehl SetSize! Hab ich vergessen, irgendwelche Units einzubinden.

[Meflin]

Zitat:

Zitat von Cyberbob

Mein Delphi meckert bei dem Befehl SetSize! Hab ich vergessen, irgendwelche Units einzubinden.

SetSize ist eien Mehtode von TBitmap! D.h. wenn bei TBitmap nicht gemeckert wird, fehlt auch die Unit nicht (in dem Fall die Unit Graphics). Also vermutlich ein Fehler in deinem Code ;) ohn e selbigen kann ich dir den aber auch nicht sagen...

[Cyberbob]

Habs jetzt mit:

Delphi-Quellcode:

lBmp.Width := frmFFT.PaintBox.Width;
lBmp.Height := frmFFT.PaintBox.Height;

bemacht, musste aber Feststellen, das das Flackern nur noch schlimmer wurde. Jetzt ist es sogar nicht mehr flüssig, wenn der mauszeiger über dem formular ist.
muss mir wohl doch nochmal das mit den threads anschauen.

Gruss
Christian

[Luckie]

Zitat:

Zitat von SirThornberry

Du machst genau das was Luckie vermutetet hat. Bei jeder Aktion die du ausführst auf die Canvas wird die Ausgabe aktuallisiert was das Flackern verursacht. Machs so:

Delphi-Quellcode:

    //Und jetzt das Bitmap mit einem Rutsch auf die Canvas kopieren
    BitBlt(PaintBox.Canvas.Handle, 0, 0, lBmp.Width, lBmp.Height, lBmp.Canvas.Handle, 0, 0, SRCCOPY);

Das gehört natürlich nicht an diese Stelle in den Code, sondern da wo es gezeichnet werden soll, also in der Timer Methode und / oder im OnPaint Ereignis.

[pacman1986]

ich würde das bitmap im oncreat createn und im onclose freen und das die ganze zeit benutzen das spart auch zeit und ist meiner Meinung nach auch sauberer.