transparency fix for ScriptRender

2006-11-25 16:56:34 +00:00
parent b93c24b7d5
commit 10ebbe564e
1 changed files with 1 additions and 0 deletions
--- a/2.10/Source/ScriptRender.pas
+++ b/2.10/Source/ScriptRender.pas
@ -89,6 +89,7 @@ begin
  //cp.Height := ScriptEditor.Renderer.Height;
  //cp.pixels_per_unit := PixelsPerUnit;
  cp.AdjustScale(ScriptEditor.Renderer.Width, ScriptEditor.Renderer.Height);
+  cp.Transparency := (PNGTransparency <> 0) and (UpperCase(ExtractFileExt(ScriptEditor.Renderer.FileName)) = '.PNG');

  Renderer.OnProgress := OnProgress;
 //  Renderer.Compatibility := Compatibility;