Canvas flackern bei VCL Styles

[Der schöne Günther]

Zitat von TTF:

Das habe ich nirgends geschrieben. Ich habe geschrieben: if Buffer.Width <> PaintBox1.Width then Buffer.Width := Paintbox1.Width [...]

Ja, und im Else-Zweig schreibst du es nochmal.

Delphi-Quellcode:

if Buffer.Width <> PaintBox1.Width then
   begin
     Buffer.Width := PaintBox1.Width; <-- Wenn ungleich, ...
     StartPeakScan;
   end
   else
   begin
     Buffer.Width := PaintBox1.Width; <-- Wenn gleich, dann auch
     Buffer.Height := PaintBox1.Height;
     DrawSpectrum;
   end;

Zitat von TTF:

Ich habe nur leider noch nie mit TChart gearbeitet, daher bräuchte ich hier auch wieder eine Erklärung

Ich weiß nicht, wieviel du mit grafischen Anzeigen und Diagrammen machst, aber ich denke auf jeden Fall, das sich das lohnt. Es ist eine tolle Komponente die sich um das Zeichnen an sich vollständig kümmert. (Automatische oder manuelle) Achsenskalierung, Linien, Punkte, Balken, was auch immer. Eigentlich ist schon in der normalen Variante alles drin. Ich weiß nicht ob bei den Delphi-Beispielen etwas dabei ist, aber ich hatte mit TChart auch erst Null Erfahrung aber nach keinen 10 Minuten weiß man, wie es geht.
Ich schwafele nur und kann kein konkretes Tutorial geben, würde aber trotzdem mit Nachdruck empfehlen, da bei naher Gelegenheit unbedingt reinzuschauen. Ich finde, man kann damit wirklich eine große Menge Zeit sparen!


Blöd mit der Paintbox. Meine einzige Erklärung wäre gewesen, dass das Zeichnen des Formulars wegen den Stilen entsprechend länger dauert und dein Timer zu oft feuert. Kannst du den vlt. etwas herunterdrehen? Vielleicht könntest du die Paintbox manuell einfrieren? Wenn ich es richtig in Erinnerung habe, könntest du, an der VCL vorbei, mittels SendMessage nach (oder vor?) der Neuberechnung ein WM_SETREDRAW mit LParam = 0 zum Einfrieren und im onPaint wieder mit 1 zum Aufwachen schicken.

Ich sehe nur, dass ich in meiner Anwendung bestimmt bald ein Dutzend TCharts habe und die funktionieren auch beim Live-Wechsel des VCL-Stils weiterhin und flackern nicht.

Vielleicht kannst du mit dem Debugger durchwandern und finden, wo bzw. wann es flackert? Wie hängt die Timer-Geschwindigkeit damit zusammen? Statt Paintbox.Refresh mal PaintBox.Invalidate probiert?

[TTF]

Danke erstmal für die Hilfe. Ich habe den Timer nun auf 200ms zurückgesetzt. Nun sind nur noch vereinzelt Flackern(aber trotzdem zuviel) zu sehen. Es scheint wirklich mit dem Timer zusammenzuhängen, aber nicht mal darauf kann man gehen. Das Ding flackert oder nicht, wie die GPU gerade lustig ist. Bei 400ms ist das Ergebnis schon fast anschaubar, aber natürlich dauert das Zeichnen beim Laden oder resizen. Es flackert 'nur' noch alle 4-5 sekunden. Und so geht das weiter (600ms => 6-7sec). Aber das kann es kann ja irgendwie nicht sein. Ich gebe ja zu, ich habe einen Laptop und vielleicht nicht die Beste Grafikkarte, aber so ein Bisschen Wellenlinien könnte man doch schon aushalten, zumal man als liebe liebe GPU bei transparenten Fenstern(Windows aero) imho sich sogar noch ein bisschen mehr anstrengen muss, als bei den nicht transparenten.
Hat jemand ein gutes Tutorial für TChart, weil das ja sein soll?
Ich hänge mal das ganze Projekt an(ist eig nur ein Testprojekt) an:
Wegen dem doppelten Buffer.width. ja, was soll man sagen .
Falls jemand Zeit hat sich das anzuschauen, bin ich dankbar.

[jfheins]

Hast du mal probiert statt PaintBox1.Refresh; wirklich PaintBox1.Invalidate; zu benutzen?

Und eventuell könnte man noch versuchen, direkt BitBlt oder StretchBlt aufzurufen, statt Canvas.Draw. (Aber erst danach)

[TTF]

PaintBox1.Invalidate habe ich auch schon versucht.
Von BitBlt und StretchBlt habe ich ehrlich gesgt noch nie was gehört

[cltom]

Das wär echt Weltklasse, wenn einer so ein Beispiel-Projekt machen könnte, das die Benutzung der zweiten Bitmap, das blitten und wie man das mit dem Timer steuert, veranschaulicht. Ich hab's leider auch noch nicht ganz kapiert. Wo wird invalidate aufgerufen, was wird im Timer gemacht, was im OnPaint der PaintBox, wo wird geblittet, wie?

Vielleicht hat einer ein Erbarmen, das wär spitze, danke im Voraus!

[EWeiss]

Zitat von cltom:

Das wär echt Weltklasse, wenn einer so ein Beispiel-Projekt machen könnte, das die Benutzung der zweiten Bitmap, das blitten und wie man das mit dem Timer steuert, veranschaulicht. Ich hab's leider auch noch nicht ganz kapiert. Wo wird invalidate aufgerufen, was wird im Timer gemacht, was im OnPaint der PaintBox, wo wird geblittet, wie?

Vielleicht hat einer ein Erbarmen, das wär spitze, danke im Voraus!

Ist ja kein problem.
Nur ich habe kein XE.. sorry

Vielleicht bringt es was wenn du deinen eigenen DoubleBuffer erstellst?
Ka. Ob der in den Styles fehlerhaft ist.

gruss

[Volker Z.]

Hallo,

hast Du schon mal folgendes versucht (ich beschränke mich auf das Wesentliche, ansonsten Dein Code wie gehabt)

Delphi-Quellcode:

procedure TForm1.DrawSpectrum;
begin
  // clear background
  Buffer.Canvas.Brush.Color := TStyleManager.ActiveStyle.GetStyleColor (scWindow);
  Buffer.Canvas.FillRect(Rect(0, 0, Buffer.Width, Buffer.Height));

  // Rest wie gehabt
end;

Gruß

[TTF]

Habe ich getestet mit dem selben Ergebnis.

[EWeiss]

Zitat von TTF:

Habe ich getestet mit dem selben Ergebnis.

Check das!
Mein Kumpel war so freundlich mich an sein XE4 zu lassen
Als Hobby Schreiber ist mir das einfach zu teuer.

gruss

[TTF]

Hallo EWeiss
Herzlichsten Dank, dass du dir exra die Mühe gemacht hast. Es funktioniert top.
Könntest du mir bitte noch sagen, wo meine Fehler lagen?
Danke und liebe Grüsse
TTF