From 10ebbe564efca42ac56471b346ab7099ed827f89 Mon Sep 17 00:00:00 2001
From: zueuk <zueuk>
Date: Sat, 25 Nov 2006 16:56:34 +0000
Subject: [PATCH] transparency fix for ScriptRender

---
 2.10/Source/ScriptRender.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/2.10/Source/ScriptRender.pas b/2.10/Source/ScriptRender.pas
index af22f90..348dd3a 100644
--- 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;