transparency fix for ScriptRender

This commit is contained in:
zueuk 2006-11-25 16:56:34 +00:00
parent b93c24b7d5
commit 10ebbe564e

View File

@ -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;