Canvas flackern bei VCL Styles

[TTF]

Zitat von Der schöne Günther:

If Buffer.Width = PaintBox1.Width then Buffer.Width := Paintbox1.Width Warum?

Das habe ich nirgends geschrieben. Ich habe geschrieben: if Buffer.Width <> PaintBox1.Width then Buffer.Width := Paintbox1.Width , um beim Resizing die Grösse des Bildes der PaintBox anzupassen.

Zitat von Der schöne Günther:

Auch: Vielleicht habe ich es nicht ganz verstanden. Aber XE4. Warum nicht mit TChart?

Wenn das einfacher geht, dann sehr gerne. Ich habe nur leider noch nie mit TChart gearbeitet, daher bräuchte ich hier auch wieder eine Erklärung.

Zitat von Der schöne Günther:

Und: Hast du mal versucht, zur Laufzeit den VCL-Stil zu wechseln? Wie verhält es sich dann?

Leidere genau gleich. Ich nehme an, es liegt nicht am Code. Ich habe den Style hiermit geändert:

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
begin
   if Assigned(TStyleManager.ActiveStyle) and (TStyleManager.ActiveStyle.Name<>'Windows') then begin
   TStyleManager.TrySetStyle('Windows');
 end else begin
   TStyleManager.TrySetStyle('Amakrits');
 end;
end;

ICh weiss wirklich nicht mehr weiter.