Bitmaps in Threads, Animation von Algorithmen

**Gausi**

Ich versuche, diverse Suchalgorithmen zu animieren, d.h. dem Nutzer soll in Form von Bildchen angezeigt werden, was ein Algorithmus so tut. Dafür habe ich in den Schleifen und if-Abfragen der Algorithmen entsprechende Animationssequenzen eingebaut. Prinzip ist so, dass zunächst in ein Bitmap gemalt wird, was dann in eine Paintbox kopiert wird. Da ich auch mehrere Algorithmen gleichzeitig animieren möchte, habe ich das ganze in eine Thread-Klasse ausgelagert. Diese sieht auszugsweise so aus:

zusammenfalten · markieren

Delphi-Quellcode:

			type

  TRepaintProc = procedure(Mode: Integer; aBitmap: TBitmap) of Object;

TPatternmatchAnimator = class(TThread)

  private

    OffscreenBmp: TBitmap;

    fMode: Integer;

    fRepaintProc: TRepaintProc;

    procedure RefreshAnimation;

//...

procedure TPatternmatchAnimator.Execute;

begin

  // das ist natürlich Pseudocode ;-)

  do "GanzOft"

     PaintSomethingOn_OffScreenBitmap.Canvas;

     Synchronize(RefreshAnimation);

     Sleep(aWhile);

end;

procedure TPatternMatchAnimator.RefreshAnimation;

begin

  fRepaintProc(fMode, Offscreenbmp);

end;

Erzeugt und gestartet wird der Thread so, bzw. die Threads. Es sind mehrere, je nach Mode wird intern ein anderer Algorithmus verwendet.

zusammenfalten · markieren

Delphi-Quellcode:

			//globale var

var  PatternmatchAnimators: Array[0..3] of TPatternmatchAnimator;

//...

procedure TForm1.BtnThreadedSearchClick(Sender: TObject);

begin

  for i := 0 to 3 do

  begin

      PatternmatchAnimators[i] := TPatternmatchAnimator.Create(True);

      PatternmatchAnimators[i].FreeOnTerminate := True;

      PatternmatchAnimators[i].RepaintProc := Form1.ReFreshPaintbox;

      PatternmatchAnimators[i].Mode := i;

      //...

  end;

  for i := 0 to 3 do

    PatternmatchAnimators[i].Resume;

end;

// Die Refresh-Prozedur sieht so aus:

procedure TForm1.ReFreshPaintbox(Mode: Integer; aBitmap: TBitmap);

begin

  case Mode of

      0: Paintbox0.Canvas.Draw(0,0,aBitmap);

      1: Paintbox1.Canvas.Draw(0,0,aBitmap);

      2: Paintbox2.Canvas.Draw(0,0,aBitmap);

      3: Paintbox3.Canvas.Draw(0,0,aBitmap);

    end;

end;

Dabei tritt folgendes Problem auf: Solange die Maus nicht auf meiner Form ist (und ich das ganze über "Enter" gestartet habe, wenn der Start-Button den Fokus hat), läuft das ganze munter durch, bei langen Beispielen auch mehrere Minuten. Bewege ich jedoch die Maus auf der Form, kommt die Animation ins Schleudern, d.h. das Bild sieht nicht so aus, wie es aussehen sollte und/oder wird gar nicht mehr aktualsiert. Ab und zu erzeugt dann auch der eine oder andere "Offscreenbmp.Canvas.MaleWas" einen Fehler "Leinwand erlaubt kein Zeichnen".

Da das Fehlverhalten leicht reproduzierbar ist, nehme ich an, dass die Threads (einer reicht dafür aber auch aus) sich nicht mit einer Abarbeitung der Nachrichtenschleife des VCL-Hauptthreads vertragen (denn das passiert ja, wenn man z.B. die Maus auf der Form bewegt, auch wenn diesem Event nichts zugewiesen ist). Jemand ne Idee, was ich falsch mache?

Bitmaps in Threads, Animation von Algorithmen

Bitmaps in Threads, Animation von Algorithmen

Forumregeln