final (?) changes for version 2.03d

2006-04-13 16:21:32 +00:00
parent 73af4bd9d6
commit 477cad10c7
9 changed files with 72 additions and 105 deletions
--- a/2.10/Source/FormRender.pas
+++ b/2.10/Source/FormRender.pas
@ -175,7 +175,10 @@ begin
  Renderer.SaveImage(FileName);

  if PlaySoundOnRenderComplete then
-    sndPlaySound(PChar(RenderCompleteSoundFile), SND_FILENAME or SND_NOSTOP or SND_ASYNC);
+    if RenderCompleteSoundFile <> '' then
+      sndPlaySound(PChar(RenderCompleteSoundFile), SND_FILENAME or SND_NOSTOP or SND_ASYNC)
+    else
+      sndPlaySound(pchar(SND_ALIAS_SYSTEMASTERISK), SND_ALIAS_ID or SND_NOSTOP or SND_ASYNC);

  Renderer.Free;
  Renderer := nil;