Volian/SourceCode
8
0
Fork 0
Code Issues Pull Requests 1 Projects Releases Wiki Activity

For production PDF creation convert Figures to GIF before creating a PDF. TIF background was set to transparent, and was creating a Black Box when PDF/A format was created with MSWord.

Browse Source 
Added MyGIFFile property to RoImageFile, so that the file could be deleted if it is created during the PDF creation process for MSWord sections.
This commit is contained in:
Rich 2014-01-24 14:35:01 +00:00
parent 3156c8b7b9
commit 126b8f1878
2 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
PROMS/VEPROMS.CSLA.Library/Extension/DocumentExt.cs
View File

@ -845,7 +845,19 @@ namespace VEPROMS.CSLA.Library
// 9.25 is the approximate offset of the base line of the font, i.e. doesn't include descender. // 9.25 is the approximate offset of the base line of the font, i.e. doesn't include descender.
float y = (float)sel.get_Information(LBWdInformation.wdVerticalPositionRelativeToTextBoundary) + ((sel.Font.Size * 9.25F) / 12); float y = (float)sel.get_Information(LBWdInformation.wdVerticalPositionRelativeToTextBoundary) + ((sel.Font.Size * 9.25F) / 12);
sel.Text = ""; sel.Text = "";
LBShape shape = myDoc.Shapes.AddPicture(roImageFile.MyFile.FullName, x, y, sel.Range); LBShape shape = null;
if (MSWordToPDF.DebugStatus==0 && !roImageFile.MyFile.FullName.ToUpper().EndsWith("GIF"))
{
System.Drawing.Image img = System.Drawing.Image.FromFile(roImageFile.MyFile.FullName);
string newname = Regex.Replace(roImageFile.MyFile.FullName,@"\.[A-Z]+$",".GIF");
roImageFile.MyGifFile = new FileInfo(newname);
img.Save(newname, ImageFormat.Gif);
shape = myDoc.Shapes.AddPicture(newname, x, y, sel.Range);
}
else
{
shape = myDoc.Shapes.AddPicture(roImageFile.MyFile.FullName, x, y, sel.Range);
}
shape.RelativeVerticalPosition = LBWdRelativeVerticalPosition.wdRelativeVerticalPositionMargin; shape.RelativeVerticalPosition = LBWdRelativeVerticalPosition.wdRelativeVerticalPositionMargin;
shape.Top = y; // Reset value after setting flag RelativeVerticalPosition shape.Top = y; // Reset value after setting flag RelativeVerticalPosition
shape.RelativeHorizontalPosition = LBWdRelativeHorizontalPosition.wdRelativeHorizontalPositionMargin; shape.RelativeHorizontalPosition = LBWdRelativeHorizontalPosition.wdRelativeHorizontalPositionMargin;

8
PROMS/VEPROMS.CSLA.Library/Extension/ROImageExt.cs
View File

@ -264,6 +264,12 @@ namespace VEPROMS.CSLA.Library
{ {
get { return _MyFile; } get { return _MyFile; }
} }
private FileInfo _MyGifFile = null;
public FileInfo MyGifFile
{
get { return _MyGifFile; }
set { _MyGifFile = value; }
}
private string _Extension = "TIF"; private string _Extension = "TIF";
public string Extension public string Extension
{ {
@ -281,6 +287,8 @@ namespace VEPROMS.CSLA.Library
try try
{ {
_MyFile.Delete(); _MyFile.Delete();
if (_MyGifFile != null)
_MyGifFile.Delete();
} }
catch (IOException ex) catch (IOException ex)
{ {