Canvas flackern bei VCL Styles

[TTF]

Hallo,
Mein Problem ist Folgendes:
Ich zeichne per Canvas auf eine PaintBox, wenn ich aber einen anderen VCL-Style als den Windows Standard Style verwende werde ich trotz der eingeschalteten Property DoubleBuffered mit einem hässlichen Flackern konfrontiert. Im Windows Style läuft aber alles flüssig.
Weiss jemand woran das liegen könnte beziehungsweise, wie man das beheben könnte? Oder ist das ein Bug der IDE?
Bin für jede Antwort dankbar
Liebe Grüsse
TTF

[Volker Z.]

Hallo,

Zitat:

Ich zeichne per Canvas auf eine PaintBox, [...]

Was zeichnest Du?

Zitat:

Bin für jede Antwort dankbar

Wir wären für jeden weiteren Input dankbar.

Ich lege mir eine Paintbox und ImageList (14 Bitmaps 256x256 Pixel) auf ein Formular und lass mir mal was in der Paintbox zeichnen

Delphi-Quellcode:

procedure TForm1.PaintBox1Paint(Sender: TObject);
var
  i, j : Integer;
begin
  for i := 0 to 10 do
    for j := 0 to ImageList1.Count - 1 do
      ImageList1.Draw (PaintBox1.Canvas, Random (Width), Random (Height), j, True)
end;

egal welchen Style ich verwende, da flackert nix, da ruckelt nix.

Zurück zur Frage: Was zeichnest Du?

Code wäre da sicherlich recht hilfreich.

Gruß

[TTF]

Danke für die Antwort. Ich zeichne eine Waveform mithilfe der Bass.dll. Ganz ähnlich wie im custloop Sample.
Vielleicht liegt es daran, dass ich das ganze mit einem Timer recht häufig update. Ich wüsste jedoch nicht, warum es dann nur bei Windows style funktionieren sollte.
Der Vorgang dabei ist folgender:
Ich scanne die Peaks von der Audiodatei und übertrage dann Linie für Linie die Waveform auf ein TBitmap, das ich dann in die PaintBox malen lasse.
Ist daran etwas falsch oder so?
Code kann ich Grade leider nicht geben, da ich nicht am Computer bin. Ich glaube ohnehin nicht, dass es auf ein Detail im Code ankommt, sondern auf das Prinzip. Falls es aber nötig ist, editiere ich gerne noch etwas rein.
Liebe Grüsse
TTF

[Medium]

Flackern + TPaintbox = Es wird sehr wahrscheinlich nicht im OnPaint der Paintbox gezeichnet. Richtig wäre es daher im Timer (der kann praktisch nicht zu schnell sein) nur das das Bitmap neu zu zeichnen, und dann TPaintbox.Invalidate aufzurufen. Im TPaintbox.OnPaint Ereignis sollte dann das Bitmap auf den Paintbox-Canvas geblittet werden. Das wäre auch unabhängig von Styles der saubere Weg.

[cltom]

Zitat von Medium:

Flackern + TPaintbox = Es wird sehr wahrscheinlich nicht im OnPaint der Paintbox gezeichnet. Richtig wäre es daher im Timer (der kann praktisch nicht zu schnell sein) nur das das Bitmap neu zu zeichnen, und dann TPaintbox.Invalidate aufzurufen. Im TPaintbox.OnPaint Ereignis sollte dann das Bitmap auf den Paintbox-Canvas geblittet werden. Das wäre auch unabhängig von Styles der saubere Weg.

Auch wenn das schon im Großen und Ganzen gut beschrieben ist, ein Codebeispiel wäre super dazu. So ganz nachvollziehen kann ich es noch nicht. Du erzeugtst eine zweite Bitmap, auf die zeichnet man im Timer-Event? Und die kopiert man im OnPaint der Paintbox?

[TTF]

Also das Codeschnipsel:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Buffer.Width <> PaintBox1.Width then
  begin
    Buffer.Width := PaintBox1.Width;
    StartPeakScan;
  end
  else
  begin
    Buffer.Width := PaintBox1.Width;
    Buffer.Height := PaintBox1.Height;
    DrawSpectrum;
  end;

  PaintBox1.Refresh;
end;

//und dann Painten

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

Weiss jemand woran es liegen könnte?