Wieder mal das leidige Thema "Flackern"

[skoschke]

Hallo,

in einen "Designer"-Programm muss ich einen Hintergrund sowie mehrere Linien und Bitmaps zeichnen, die mit der Maus bewegt werden können.
Nach vielen Versuchen bin ich nun zu einer Paintbox gekommen, in deren OnPaint nur

Delphi-Quellcode:

  BitBlt(Paintbox1.Canvas.Handle, 0, 0, offscreenbitmap.Width, offscreenbitmap.Height, offscreenbitmap.Canvas.Handle, 0,
    0, SRCCOPY);

steht.
Das ganze Zeichnen passiert in die offscreenbitmap beim Mousemove (hier testweise nur ein bildfüllendes Hintergrundbild, eine Linie und eine kleine Bitmap:

Delphi-Quellcode:

  //die Offscreenbitmap ist global vorhanden 
  if ssLeft in Shift then
  begin
    lx := X;
    ly := Y;
    // Offscreen Bitmap bemalen
    r.Width := Paintbox1.Width;
    r.Height := Paintbox1.Height;
    //das Hintergrundbild
    offscreenbitmap.Canvas.StretchDraw(r, fbitmap1);
    //eine Linie
    offscreenbitmap.Canvas.MoveTo(0, Mouse.y);
    offscreenbitmap.Canvas.LineTo(Paintbox1.Width, Mouse.y);
    r.Left := Mouse.x;
    r.Top := Mouse.y;
    r.Width := 150;
    r.Height := 100;
    //das kleine Bitmap
    offscreenbitmap.Canvas.StretchDraw(r, fbitmap2);
    Paintbox1.Invalidate;
  end;

Das Ganze funktioniert zwar, flackert aber trotzdem entsetzlich, doublebuffered ist auf true gesetzt.

Ich vermute es liegt an der Größe (bildschirmfüllend) des Offscreenbitmaps, wie bekomme ich das Flackern weg???

Ciao
Stefan

[TiGü]

Jetzt ein gezipptes und minimales Formular-Projekt zum runterladen und dir wird geholfen.
Denn in 9 von 10 Fällen ist das Problem genau in der Codezeile, die du uns nicht zeigst.

[Uwe Raabe]

DoubleBuffered ist hier eher schädlich, da du ja selbst bereits das Bitmap offline zeichnest und dann per BitBlt auf den Bildschirm bringst. Wenn das noch DoubleBuffered ausgeführt wird, ist das doch doppelt gemoppelt.

[KarstenK]

Zitat von Uwe Raabe:

DoubleBuffered ist hier eher schädlich, da du ja selbst bereits das Bitmap offline zeichnest und dann per BitBlt auf den Bildschirm bringst. Wenn das noch DoubleBuffered ausgeführt wird, ist das doch doppelt gemoppelt.

DoubleBuffered hilft hier (Zumindest noch Unter Delphi 2009). Soweit ich mich erinnere die Paintbox löscht/überschreibt mit einer Farbe ihre Zeichenfläche erst und ruft dann onpaint erst auf.

Alternative wenn ohne doublebuffered und das Bitmap die ganze Fläche ausfüllt, eine eigene Componente von der Paintbox ableiten ohne löschen des Hintergrundes.

[stahli]

Ich habe mal eigene "Controls" in einem Thread berechnen und auf einem Bitmap zeichnen lassen.
Die Ausgabe erfolgte dann synchronisiert im Mainthread durch kopieren des Bitmaps auf den Formularcanvas. Vom Mainthread aus wurden dann die Maus- und Tastaturereignisse auch wieder nur in den "Controls-Thread" gegeben.

Wie das aussah kannst Du hier sehen: https://www.delphipraxis.net/1294946-post59.html
Rappelschnell.

Leider habe ich die Quellen nicht mehr. Könnte mich gerade selbst in den A... beißen, weil ich damit gern noch etwas testen würde...

[skoschke]

Hallo Stahli,

ich habe mir die Exe mal angesehen, absolute Supersahne!

Im Prinzip geht es bei mir genau darum, ich erzeuge eigene Panels (von TPanel abgeleitet) und platziere die per Maus auf einem Hauptpanel mit einem TImage als Hintergrund.

Jetzt soll man diese per Maus anfassen und verschieben können.
Das flackerte entsetzlich (besonders wenn diese eigenen Panels Images enthalten) so daß ich dachte, ich mach einen Screenshot des gesamten Fensters und schiebe darin wiederum Bilder der Panels...

Bei Dir sieht es aber aus als ob dort Controls flackerfrei im Formular "rumtanzen", ist das richtig?

Wenn Du leider den Code nicht mehr hast, hast Du noch ein paar Denkanstöße zur Realisierung für mich?

Ich habe in Deinem Gesamtthread aber leider jetzt gesehen, dass es um FMX geht, ich muß (leider) ein VCL-Projekt erstellen!

Ciao
Stefan

[skoschke]

Zitat von TiGü:

Jetzt ein gezipptes und minimales Formular-Projekt zum runterladen und dir wird geholfen.
Denn in 9 von 10 Fällen ist das Problem genau in der Codezeile, die du uns nicht zeigst.

Siehe meine Antwort an Stahli, eigentlich möchte ich Controls flackerfrei bewegen können, der Umweg über die Paintbox war ein Ansatz das zu umgehen...

Ciao
Stefan

[stahli]

Danke für das Lob.

Das ist rein VCL (quasi ein Versuch mal FMX-Light (sehr, sehr light ) umzusetzen.)

Es sind keine Controls, sie sollten sich nur so anfühlen.


Das funktioniert so:

Im "Control-Thread":
- Bitmap füllen mit Hintergrundfarbe.
- Pro "Control" Rechteck zeichnen (mit oder ohne Hintergrund, Rahmen, Text)
- Pro Control Z-Order und Positionen merken.
- evtl. 1 focussiertes Control merken.
- Bitmap an Mainthread übergeben

Im Mainthread:
- Bitmap auf Canvas kopieren
- Maus- und Tastaturereignise an den "Control-Thread" übergeben

Im "Control-Thread":
- Maus- und Tatsaturereignisse verarbeiten und z.B. Control-Positionen ändern.
- wieder zeichnen


Das Formular ist in dem Fall nur eine Zeichenfläche und Eingabeschnittstelle.


Wenn Bei Dir von der Bedienung her grundsätzlich alles schon in einer Paintbox funktioniert (abgesehen vom Flackern) und Du mit Threads umgehen kannst, dann sollte sich das bei Dir auch so realisieren lassen.

Die Maus- und Tastaturereignisse habe ich in Ques an den Thread übergeben und das Bitmap dann einfach synchronisiert an den Mainthread.

[skoschke]

Hallo,

danke für die Hinweise, da kann ich schon mal ansetzen.
Ein Problem, was ich dabei aber habe, ist, dass ich sozusagen die Inhalte der zu bewegenden Panels brauche um sie in die Bitmap zu kopieren.
Die zu bewegenden Panels können Texte, Images, etc. enthalten, ich brauchte dabei dann eben einen "Screenshot der Panels"...

Hast Du noch dazu eine Idee?

Ciao
Stefan

[stahli]

Nein, leider nicht.

Wenn es JETZT läuft kannst Du da auch nicht sicher sein, dass es auf dem nächsten Windows oder mit dem nächsten Delphi noch läuft.

So eine Mischung kann halt immer Probleme machen weil Du nicht immer im Detail beeinflussen kannst, wann welche Teile vom System gezeichnet werden...


Aber warte mal....


Ich hatte da doch mal so etwas wie ein Raster....


Such mal in den 3 Threads nach "Raster"...
https://www.delphipraxis.net/184641-...e-basteln.html
https://www.delphipraxis.net/124761-...scrollbox.html
https://www.delphipraxis.net/109527-...-zeichnen.html

So hatte ich das bei mir umgesetzt:
https://youtu.be/BSNroTVq9FM?list=UU...Kph7r2dP3vtu_w

Ich hatte das damals so gelöst, weil es am flüssigsten war.
Details weiß ich aber nicht mehr.
Wenn Du Interesse hast, kann ich es mal raussuchen.