Flimmern beim zeichnen

[Mjöllner]

Jopp, ich hatte DoubleBuffered wieder deaktiviert...

Jetzt läufts wirklich super


vielen vielen dank, ich empfehle euch weiter

[Cöster]

Zitat von kolbaschedder:

Ich würde das ganze auf ein Panel zeichnen.

Ist eine PaintBox nicht am Besten zum Zeichnen geeignet?

Zitat von kolbaschedder:

in der FormCreate folgende zeile einfügen.

panel1.controlstyle := panel1.controlstyle +[csOpaque]; Diese Zeile bewirkt, dass windows den Hintergrund nicht neu zeichnet.

Wie genau meinst du das? Kannst du ein kleines Beispiel-Programm/Beispiel-Code zeigen, woran die Wirkung von csOpaque erkennbar ist?
In der Delphi-Hilfe steht unter csOpaque nämlich folgendes:

Zitat:

Das Steuerelement füllt sein Client-Rechteck vollständig aus.

Mir ist nicht klar, was das mit dem Neu-Zeichnen zu tun hat.

Zitat von kolbaschedder:

Das Kopieren des Bitmap auf das Panel erfolgt dann in der

Panel1.onPaint;

Ich finde im OI beim Panel kein OnPaint-Ereignis.

[Muetze1]

Zitat von Cöster:

Zitat von kolbaschedder:

Ich würde das ganze auf ein Panel zeichnen.

Ist eine PaintBox nicht am Besten zum Zeichnen geeignet?

Ja

Zitat von Cöster:

Zitat von kolbaschedder:

in der FormCreate folgende zeile einfügen.

panel1.controlstyle := panel1.controlstyle +[csOpaque]; Diese Zeile bewirkt, dass windows den Hintergrund nicht neu zeichnet.

Wie genau meinst du das? Kannst du ein kleines Beispiel-Programm/Beispiel-Code zeigen, woran die Wirkung von csOpaque erkennbar ist?
In der Delphi-Hilfe steht unter csOpaque nämlich folgendes:

Zitat:

Das Steuerelement füllt sein Client-Rechteck vollständig aus.

Mir ist nicht klar, was das mit dem Neu-Zeichnen zu tun hat.

Wenn csOpaque gesetzt ist, füllt das Steuerelement seinen Client-Bereich nicht mit seiner Farbe aus sondern malt nix, dadurch wird es transparent.

Zitat von Cöster:

Zitat von kolbaschedder:

Das Kopieren des Bitmap auf das Panel erfolgt dann in der

Panel1.onPaint;

Ich finde im OI beim Panel kein OnPaint-Ereignis.

Dann nimm wie von dir vorgeschlagen eine TPaintBox