Lockdown mode for old catalog

This commit is contained in:
Maddo 2017-09-27 17:12:36 +02:00
commit 3d1f92321e
19 changed files with 1309 additions and 731 deletions

View file

@ -193,6 +193,12 @@ Catch ex As Exception
testoFirmaV = PicSettings.TestoFirmaStartV
End If
If (PicSettings.LockDownMode)
testoFirma += Environment.NewLine + PicSettings.BuiltInText
testoFirmaV += Environment.NewLine + PicSettings.BuiltInText
End If
End Sub
''' <summary>
@ -560,7 +566,13 @@ Catch ex As Exception
'imgOutputBig
If PicSettings.LogoAggiungi = True And File.Exists(PicSettings.LogoNomeFile) Then
Dim ImmagineLogo As Image = Image.FromFile(PicSettings.LogoNomeFile)
Dim ImmagineLogo As Image
If (PicSettings.LockDownMode)
ImmagineLogo = PicSettings.BuiltInImage
Else
ImmagineLogo = Image.FromFile(PicSettings.LogoNomeFile)
End If
Dim LogoColoreTrasparente As Color = Color.White
'Dim bmWatermark As Bitmap
@ -571,7 +583,7 @@ Catch ex As Exception
'* Load this Bitmap into a new Graphic Object
Dim grWatermark As Graphics = Graphics.FromImage(imgOutputBig)
'* To achieve a translucent watermark we will apply (2) color manipulations
Dim imageAttributes As Imaging.ImageAttributes = New Imaging.ImageAttributes