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:
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.
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?