Flimmern beim Zeichnen auf Canvas verhindern?

[mintpc]

Hallo zusammen,

ich zeichne auf die Zeichenfläche meines Images "Image1.Canvas".
Dabei wird z.B. für das Visualisieren eines Sortieralgorithmus' ein Feld
von 100 Zahlen durch Balken dargestellt und beim Vertauschen von Zahlen
werden die beiden vertauschten Balken neu gezeichnet.

Screenshot:

Das Projekt läuft unter Delphi einwandfrei, unter Lazarus flackert
das Image ganz furchtbar. Seltsamerweise tritt das Flackern auch
auf, wenn der Algorithmus gaaaaanz langsam (1 Vergleich pro Sekunde)
ausgeführt wird.
Hier http://wiki.lazarus.freepascal.org/Developing_with_Graphics/de wird das
Problem angesprochen, eine Lösung sehe ich aber nicht wirklich (ja, ich habe
-finde ich- genau hingesehen).

Gibt es eine Lösung des Problems?

Danke schonmal.

mintpc

[theo]

Hast du das denn überhaupt getestet:
http://wiki.lazarus.freepascal.org/Deve ... t_zeichnet
Das sollte nicht flackern.

[mintpc]

Hab ich:

Code: Alles auswählen

Form1.Image1.Picture.Bitmap.Canvas.moveto(7*i,0);
Form1.Image1.Picture.Bitmap.Canvas.lineto(7*i,a[i]);

Genau so steht's da.

Irgend etwas stimmt doch da nicht ???

[mintpc]

So, nochmal ich.

Ich hab' jetzt das Image gelöscht und zeichne nur auf das Formular. Und auf
einmal ist das Flimmern weg ???

Was passiert da? Ist TImage so langsam im Grafikaufbau oder ..?

[MAC]

Betriebsystem , 32 Bit ? Laz Version , FCP version ?
ok OS wird Windows sein weil Delphi, also bei mir flackert das nicht mehr seit Lazarus 0.9.26 auf WinXp 32Bit. Momentan (0.9.31) klappts auch auf win7 64Bit.

[mintpc]

Hä?

[carli]

Hast du in das Bild im Image gezeichnet oder über das Image darüber?

Falls du letzteres gemacht hast, ist das Flimmern kein Wunder, denn deine und die Zeichenroutine des Images konkurrieren sich gegenseitig, wer auf den Schirm zeichnen darf.

Nimm kein Image, sondern eine PaintBox.

[mintpc]

Hast du in das Bild im Image gezeichnet oder über das Image darüber?

Das weiß ich leider nicht so genau.
Ich habe stets mit

Code: Alles auswählen

Form1.Image1.Picture.Bitmap.Canvas.lineto(x,y)

gezeichnet. Liegt da ne Konkurrenz vor? Kannst du mir das erklären?

Wie oben schon gesagt, habe ich mal in andere Komponenten (Form, Panel, eben auch die empfohlene
Paintbox) gezeichnet. Hier gibt's kein Flimmern. D.h., es müsste ja an der
TImage-Komponente liegen.
Irgendwo hatte ich auch noch gelesen, dass TImage einfach sehr langsam sei, und daher
bei schnellem Zeichnen flimmern würde.

Klar, das Problem habe ich nun umgangen, ich würde aber trotzdem gerne wissen, warum
das TImage flimmert.

Aber schonmal Danke für die Hinweise, das Problem ist ja nun
abgestellt.

mitpc

[Socke]

Klar, das Problem habe ich nun umgangen, ich würde aber trotzdem gerne wissen, warum
das TImage flimmert.

TImage speichert alles Gezeichnete inter (in einem TBitmap oder so was in die Richtung) zwischen. Zeichnest du also auf TImage.Canvas wird in Wirklichkeit nicht auf die Zeichenoberfläche des Steuerelementes sondern auf die des Zwischenspeichers gemalt. Hinterher muss dann das ganze Bild wieder auf die Zeichenoberfläche des Steuerelementes übertragen werden.

Vorteil: Du kannst zeichenen wann und was du willst und musst nicht immer alles in OnPaint machen.
Nachteil: Alles wird zweimal gemalt

(es gibt wohl auch noch einen Unterschied wenn du innerhalb oder außerhalb von OnPaint zeichnest, aber den findest du sicher alleine heraus)

[MAC]

Genau wie Socke es gesagt hat.

ein Image speichert das bild intern , hat den Vorteil das du, wenn das Fenster in den hintergrund geschoben wird und du mit nem anderen mal drüber gehst verschwindet das gemalte nicht...
Probiers also mal mit

Code: Alles auswählen

Form1.Image1.Canvas.Lineto(x,y)

[mintpc]

Aha

Jetzt sehe ich klarer.

Vielen Dank für die Erklärungen

mintpc