Browse Source

* Fix for bug #18044

git-svn-id: trunk@16445 -
michael 14 years ago
parent
commit
74098a8f7d
1 changed files with 2 additions and 0 deletions
  1. 2 0
      packages/fcl-base/src/fptimer.pp

+ 2 - 0
packages/fcl-base/src/fptimer.pp

@@ -253,6 +253,8 @@ Procedure TFPThreadedTimerDriver.StopTimer;
 begin
 begin
   FThread.FTimerDriver:=Nil;
   FThread.FTimerDriver:=Nil;
   FThread.Terminate; // Will free itself.
   FThread.Terminate; // Will free itself.
+  FThread:=Nil;
+  CheckSynchronize; // make sure thread is not stuck at synchronize call.
 end;
 end;