some small fixes

2006-03-19 17:51:26 +00:00
parent da3a948247
commit 892a380d0a
4 changed files with 22 additions and 11 deletions
--- a/2.10/Source/Fullscreen.pas
+++ b/2.10/Source/Fullscreen.pas
@ -70,9 +70,12 @@ begin
  StartTime := Now;
  t := now;
  Remainder := 1;
-  if Assigned(Renderer) then Renderer.Terminate;
-  if Assigned(Renderer) then Renderer.WaitFor;
-  assert(not assigned(renderer));
+  if Assigned(Renderer) then begin
+    Renderer.Terminate;
+    Renderer.WaitFor;
+    Application.ProcessMessages;//Renderer.Free;
+  end;
+  assert(not assigned(renderer), 'Render thread is still running!?');
  if not Assigned(Renderer) then
  begin
    Renderer := TRenderThread.Create;