Lockdown mode for old catalog
This commit is contained in:
parent
922315061d
commit
3d1f92321e
19 changed files with 1309 additions and 731 deletions
|
|
@ -1,15 +1,20 @@
|
|||
Imports System.IO
|
||||
Option Infer On
|
||||
Imports System.IO
|
||||
Imports System.Drawing.Drawing2D
|
||||
Imports System.Drawing.Imaging
|
||||
Imports System.Threading
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Drawing.Text
|
||||
Imports System.Reflection
|
||||
Imports System.Threading.Tasks
|
||||
|
||||
Public Delegate Sub XyThreadAdd(ByVal Info As String)
|
||||
|
||||
Public Class MainForm
|
||||
#Const MULTI_THREADED_UI = True
|
||||
|
||||
Private LockdownMode As Boolean = true
|
||||
Dim _assembly As [Assembly]
|
||||
Private StopAttivo As Boolean
|
||||
Private WaterSelectColor As Boolean = False
|
||||
|
||||
|
|
@ -98,11 +103,53 @@ Public Class MainForm
|
|||
ComboBox5.SelectedIndex = 2
|
||||
End Sub
|
||||
|
||||
Private Sub LockDown()
|
||||
grpAvanzate.Visible = False
|
||||
grpSottocartelle.Visible = False
|
||||
grpGenerale.Visible = False
|
||||
tabFoto.Visible = False
|
||||
tabLogo.Visible = False
|
||||
tabMiniature.Visible = False
|
||||
tabTesto.Visible = True
|
||||
tabFoto.Enabled = False
|
||||
tabLogo.Enabled = False
|
||||
tabMiniature.Enabled = False
|
||||
tabTesto.Enabled = True
|
||||
btnCaricaImpostazioni.Visible = False
|
||||
btnSalvaImpostazioni.Visible = False
|
||||
|
||||
grpCarattere.Visible = False
|
||||
grpTestoFotoVerticali.Visible = False
|
||||
grpSlideShow.Visible = False
|
||||
|
||||
TextBox9.Visible = False
|
||||
TextBox12.Visible = False
|
||||
ComboBox1.Visible = False
|
||||
ComboBox2.Visible = false
|
||||
CheckBox8.Visible = False
|
||||
CheckBox7.Visible = False
|
||||
TextBox18.Visible = false
|
||||
DateTimePicker1.Visible = False
|
||||
CheckBox2.Visible = False
|
||||
|
||||
LoadDefaultConfig()
|
||||
|
||||
End Sub
|
||||
dim _imageStream As Stream
|
||||
private Sub LoadDefaultConfig()
|
||||
_imageStream = _assembly.GetManifestResourceStream("ImageCatalog.LOG_ITA.jpg")
|
||||
'dim _textStreamReader = new StreamReader(_assembly.GetManifestResourceStream("ImageCatalog.collini_canon.xml"))
|
||||
Dim _textStream = _assembly.GetManifestResourceStream("ImageCatalog.collini_canon.xml")
|
||||
SetupIni.CaricaParametriSetupStream(_textStream)
|
||||
LoadSettings()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Application.EnableVisualStyles()
|
||||
|
||||
_assembly = [Assembly].GetExecutingAssembly()
|
||||
setDefaults()
|
||||
|
||||
If (LockdownMode) Then LockDown()
|
||||
End Sub
|
||||
|
||||
Private Sub FixPaths()
|
||||
|
|
@ -115,17 +162,17 @@ Public Class MainForm
|
|||
End Sub
|
||||
|
||||
Private Sub lockUI()
|
||||
TabControl1.Enabled = False
|
||||
Button5.Enabled = False
|
||||
Button6.Enabled = False
|
||||
tabControl.Enabled = False
|
||||
btnSalvaImpostazioni.Enabled = False
|
||||
btnCaricaImpostazioni.Enabled = False
|
||||
btnCreaCatalogo.Enabled = False
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub unlockUI()
|
||||
TabControl1.Enabled = True
|
||||
Button5.Enabled = True
|
||||
Button6.Enabled = True
|
||||
tabControl.Enabled = True
|
||||
btnSalvaImpostazioni.Enabled = True
|
||||
btnCaricaImpostazioni.Enabled = True
|
||||
btnCreaCatalogo.Enabled = True
|
||||
End Sub
|
||||
|
||||
|
|
@ -295,7 +342,7 @@ Public Class MainForm
|
|||
'End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
|
||||
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalvaImpostazioni.Click
|
||||
Dim SaveFileDlg As SaveFileDialog = New SaveFileDialog
|
||||
|
||||
'SaveFileDlg.InitialDirectory = "c:\"
|
||||
|
|
@ -381,7 +428,7 @@ Public Class MainForm
|
|||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
|
||||
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCaricaImpostazioni.Click
|
||||
Dim openFileDialog As OpenFileDialog = New OpenFileDialog
|
||||
|
||||
'openFileDialog.InitialDirectory = TextBox1.Text
|
||||
|
|
@ -391,108 +438,122 @@ Public Class MainForm
|
|||
|
||||
If DialogResult.OK = openFileDialog.ShowDialog() Then
|
||||
Dim IlNome As String = openFileDialog.FileName
|
||||
|
||||
SetupIni.NomeFileSetup = IlNome
|
||||
SetupIni.CaricaParametriSetup()
|
||||
|
||||
txtSorgente.Text = SetupIni.LeggiParametroString("DirSorgente")
|
||||
txtDestinazione.Text = SetupIni.LeggiParametroString("DirDestinazione")
|
||||
chkAggiornaSottodirectory.Checked = SetupIni.LeggiParametroBoolean("DirSottoDirectory")
|
||||
|
||||
chkCreaSottocartelle.Checked = SetupIni.LeggiParametroBoolean("DirDividiDestinazione")
|
||||
txtFilePerCartella.Text = SetupIni.LeggiParametroString("DirDividiNumFile")
|
||||
txtSuffissoCartelle.Text = SetupIni.LeggiParametroString("DirDividiSuffisso")
|
||||
txtCifreContatore.Text = SetupIni.LeggiParametroString("DirDividiNumCifre")
|
||||
|
||||
Dim TestoTemp As String = SetupIni.LeggiParametroString("DirDividiTipoNumerazione")
|
||||
If TestoTemp.ToUpper = "PROGRESSIVA" Then
|
||||
rdbNumProgressiva.Checked = True
|
||||
Else
|
||||
rdbNumFiles.Checked = True
|
||||
End If
|
||||
|
||||
CheckBox1.Checked = SetupIni.LeggiParametroBoolean("MiniatureCrea")
|
||||
TextBox3.Text = SetupIni.LeggiParametroString("MiniatureSuffisso")
|
||||
TextBox5.Text = SetupIni.LeggiParametroString("MiniatureAltezza")
|
||||
TextBox6.Text = SetupIni.LeggiParametroString("MiniatureLarghezza")
|
||||
RadioButton3.Checked = SetupIni.LeggiParametroBoolean("MiniatureAddScritta")
|
||||
RadioButton4.Checked = SetupIni.LeggiParametroBoolean("MiniatureAddOrario")
|
||||
|
||||
TextBox27.Text = SetupIni.LeggiParametroString("FotoAltezza")
|
||||
TextBox28.Text = SetupIni.LeggiParametroString("FotoLarghezza")
|
||||
'TextBox13.Text = SetupIni.LeggiParametroString("FotoCodice")
|
||||
'CheckBox2.Checked = SetupIni.LeggiParametroBoolean("FotoDimOriginali")
|
||||
|
||||
TextBox11.Text = SetupIni.LeggiParametroString("FontDimensione")
|
||||
TextBox25.Text = SetupIni.LeggiParametroString("FontDimensioneMiniatura")
|
||||
CheckBox3.Checked = SetupIni.LeggiParametroBoolean("FontBold")
|
||||
ComboBox3.Text = SetupIni.LeggiParametroString("FontNome")
|
||||
|
||||
If TextBox25.Text = "" Then
|
||||
TextBox25.Text = "0"
|
||||
End If
|
||||
|
||||
TextBox4.Text = SetupIni.LeggiParametroString("TestoTesto")
|
||||
TextBox9.Text = SetupIni.LeggiParametroString("TestoTrasparente")
|
||||
TextBox12.Text = SetupIni.LeggiParametroString("TestoMargine")
|
||||
ComboBox1.Text = SetupIni.LeggiParametroString("TestoPosizione")
|
||||
ComboBox2.Text = SetupIni.LeggiParametroString("TestoAllineamento")
|
||||
|
||||
TextBox10.Text = SetupIni.LeggiParametroString("MarchioFile")
|
||||
TextBox14.Text = SetupIni.LeggiParametroString("MarchioAltezza")
|
||||
TextBox15.Text = SetupIni.LeggiParametroString("MarchioLarghezza")
|
||||
TextBox16.Text = SetupIni.LeggiParametroString("MarchioMargine")
|
||||
ComboBox4.Text = SetupIni.LeggiParametroString("MarchioAllOrizzontale")
|
||||
ComboBox5.Text = SetupIni.LeggiParametroString("MarchioAllVerticale")
|
||||
TextBox19.Text = SetupIni.LeggiParametroString("MarchioTrasparenza")
|
||||
CheckBox5.Checked = SetupIni.LeggiParametroBoolean("MarchioAggiungi")
|
||||
|
||||
CheckBox7.Checked = SetupIni.LeggiParametroBoolean("TempoGara")
|
||||
CheckBox8.Checked = SetupIni.LeggiParametroBoolean("Orario")
|
||||
TextBox18.Text = SetupIni.LeggiParametroString("EtichettaOrario")
|
||||
|
||||
chkForzaJpg.Checked = SetupIni.LeggiParametroBoolean("GeneraleForzaJpg")
|
||||
chkRotazioneAutomatica.Checked = SetupIni.LeggiParametroBoolean("GeneraleRotazioneAutomatica")
|
||||
|
||||
TextBox30.Text = SetupIni.LeggiParametroString("GrandezzaVerticale")
|
||||
TextBox31.Text = SetupIni.LeggiParametroString("MargineVerticale")
|
||||
CheckBox15.Checked = SetupIni.LeggiParametroBoolean("DimensioniOriginali")
|
||||
TextBox29.Text = SetupIni.LeggiParametroString("TestoVerticale")
|
||||
RadioButton6.Checked = SetupIni.LeggiParametroBoolean("NomeMiniatura")
|
||||
CheckBox16.Checked = SetupIni.LeggiParametroBoolean("DataFoto")
|
||||
CheckBox17.Checked = SetupIni.LeggiParametroBoolean("NumeroFoto")
|
||||
|
||||
|
||||
RadioButton5.Checked = SetupIni.LeggiParametroBoolean("TempoSmall")
|
||||
RadioButton7.Checked = SetupIni.LeggiParametroBoolean("NumTempoSmall")
|
||||
|
||||
TextBox32.Text = SetupIni.LeggiParametroString("CompressioneJpeg")
|
||||
TextBox33.Text = SetupIni.LeggiParametroString("CompressioneJpegMiniatura")
|
||||
|
||||
TextBox34.Text = SetupIni.LeggiParametroString("ColoreTestoRGB")
|
||||
If File.Exists(TextBox10.Text) Then
|
||||
|
||||
|
||||
PictureBox1.Image = Image.FromFile(TextBox10.Text)
|
||||
If PictureBox1.Image.Height >= PictureBox1.Image.Width Then
|
||||
PictureBox1.Height = 160
|
||||
PictureBox1.Width = CType(160 * PictureBox1.Image.Width / PictureBox1.Image.Height, Integer)
|
||||
Else
|
||||
PictureBox1.Width = 224
|
||||
PictureBox1.Height = CType(224 * PictureBox1.Image.Height / PictureBox1.Image.Width, Integer)
|
||||
End If
|
||||
End If
|
||||
LoadSettings()
|
||||
Me.Text = "Image Catalog - " & LeggiSoloNomeFile(IlNome)
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub LoadSettings()
|
||||
|
||||
|
||||
|
||||
|
||||
txtSorgente.Text = SetupIni.LeggiParametroString("DirSorgente")
|
||||
txtDestinazione.Text = SetupIni.LeggiParametroString("DirDestinazione")
|
||||
chkAggiornaSottodirectory.Checked = SetupIni.LeggiParametroBoolean("DirSottoDirectory")
|
||||
|
||||
chkCreaSottocartelle.Checked = SetupIni.LeggiParametroBoolean("DirDividiDestinazione")
|
||||
txtFilePerCartella.Text = SetupIni.LeggiParametroString("DirDividiNumFile")
|
||||
txtSuffissoCartelle.Text = SetupIni.LeggiParametroString("DirDividiSuffisso")
|
||||
txtCifreContatore.Text = SetupIni.LeggiParametroString("DirDividiNumCifre")
|
||||
|
||||
Dim TestoTemp As String = SetupIni.LeggiParametroString("DirDividiTipoNumerazione")
|
||||
If TestoTemp.ToUpper = "PROGRESSIVA" Then
|
||||
rdbNumProgressiva.Checked = True
|
||||
Else
|
||||
rdbNumFiles.Checked = True
|
||||
End If
|
||||
|
||||
CheckBox1.Checked = SetupIni.LeggiParametroBoolean("MiniatureCrea")
|
||||
TextBox3.Text = SetupIni.LeggiParametroString("MiniatureSuffisso")
|
||||
TextBox5.Text = SetupIni.LeggiParametroString("MiniatureAltezza")
|
||||
TextBox6.Text = SetupIni.LeggiParametroString("MiniatureLarghezza")
|
||||
RadioButton3.Checked = SetupIni.LeggiParametroBoolean("MiniatureAddScritta")
|
||||
RadioButton4.Checked = SetupIni.LeggiParametroBoolean("MiniatureAddOrario")
|
||||
|
||||
TextBox27.Text = SetupIni.LeggiParametroString("FotoAltezza")
|
||||
TextBox28.Text = SetupIni.LeggiParametroString("FotoLarghezza")
|
||||
'TextBox13.Text = SetupIni.LeggiParametroString("FotoCodice")
|
||||
'CheckBox2.Checked = SetupIni.LeggiParametroBoolean("FotoDimOriginali")
|
||||
|
||||
TextBox11.Text = SetupIni.LeggiParametroString("FontDimensione")
|
||||
TextBox25.Text = SetupIni.LeggiParametroString("FontDimensioneMiniatura")
|
||||
CheckBox3.Checked = SetupIni.LeggiParametroBoolean("FontBold")
|
||||
ComboBox3.Text = SetupIni.LeggiParametroString("FontNome")
|
||||
|
||||
If TextBox25.Text = "" Then
|
||||
TextBox25.Text = "0"
|
||||
End If
|
||||
|
||||
TextBox4.Text = SetupIni.LeggiParametroString("TestoTesto")
|
||||
TextBox9.Text = SetupIni.LeggiParametroString("TestoTrasparente")
|
||||
TextBox12.Text = SetupIni.LeggiParametroString("TestoMargine")
|
||||
ComboBox1.Text = SetupIni.LeggiParametroString("TestoPosizione")
|
||||
ComboBox2.Text = SetupIni.LeggiParametroString("TestoAllineamento")
|
||||
|
||||
TextBox10.Text = SetupIni.LeggiParametroString("MarchioFile")
|
||||
TextBox14.Text = SetupIni.LeggiParametroString("MarchioAltezza")
|
||||
TextBox15.Text = SetupIni.LeggiParametroString("MarchioLarghezza")
|
||||
TextBox16.Text = SetupIni.LeggiParametroString("MarchioMargine")
|
||||
ComboBox4.Text = SetupIni.LeggiParametroString("MarchioAllOrizzontale")
|
||||
ComboBox5.Text = SetupIni.LeggiParametroString("MarchioAllVerticale")
|
||||
TextBox19.Text = SetupIni.LeggiParametroString("MarchioTrasparenza")
|
||||
CheckBox5.Checked = SetupIni.LeggiParametroBoolean("MarchioAggiungi")
|
||||
|
||||
CheckBox7.Checked = SetupIni.LeggiParametroBoolean("TempoGara")
|
||||
CheckBox8.Checked = SetupIni.LeggiParametroBoolean("Orario")
|
||||
TextBox18.Text = SetupIni.LeggiParametroString("EtichettaOrario")
|
||||
|
||||
chkForzaJpg.Checked = SetupIni.LeggiParametroBoolean("GeneraleForzaJpg")
|
||||
chkRotazioneAutomatica.Checked = SetupIni.LeggiParametroBoolean("GeneraleRotazioneAutomatica")
|
||||
|
||||
TextBox30.Text = SetupIni.LeggiParametroString("GrandezzaVerticale")
|
||||
TextBox31.Text = SetupIni.LeggiParametroString("MargineVerticale")
|
||||
CheckBox15.Checked = SetupIni.LeggiParametroBoolean("DimensioniOriginali")
|
||||
TextBox29.Text = SetupIni.LeggiParametroString("TestoVerticale")
|
||||
RadioButton6.Checked = SetupIni.LeggiParametroBoolean("NomeMiniatura")
|
||||
CheckBox16.Checked = SetupIni.LeggiParametroBoolean("DataFoto")
|
||||
CheckBox17.Checked = SetupIni.LeggiParametroBoolean("NumeroFoto")
|
||||
|
||||
|
||||
RadioButton5.Checked = SetupIni.LeggiParametroBoolean("TempoSmall")
|
||||
RadioButton7.Checked = SetupIni.LeggiParametroBoolean("NumTempoSmall")
|
||||
|
||||
TextBox32.Text = SetupIni.LeggiParametroString("CompressioneJpeg")
|
||||
TextBox33.Text = SetupIni.LeggiParametroString("CompressioneJpegMiniatura")
|
||||
|
||||
TextBox34.Text = SetupIni.LeggiParametroString("ColoreTestoRGB")
|
||||
If File.Exists(TextBox10.Text) Then
|
||||
|
||||
|
||||
PictureBox1.Image = Image.FromFile(TextBox10.Text)
|
||||
If PictureBox1.Image.Height >= PictureBox1.Image.Width Then
|
||||
PictureBox1.Height = 160
|
||||
PictureBox1.Width = CType(160 * PictureBox1.Image.Width / PictureBox1.Image.Height, Integer)
|
||||
Else
|
||||
PictureBox1.Width = 224
|
||||
PictureBox1.Height = CType(224 * PictureBox1.Image.Height / PictureBox1.Image.Width, Integer)
|
||||
End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub setPicSettings(ByVal SourcePath As String, ByVal DestPath As String)
|
||||
|
||||
Dim SourceDir As DirectoryInfo = New DirectoryInfo(SourcePath)
|
||||
Dim DestDirStart As DirectoryInfo = New DirectoryInfo(DestPath)
|
||||
Dim DestDir As DirectoryInfo = Nothing
|
||||
|
||||
PicSettings.LockDownMode = me.LockdownMode
|
||||
|
||||
|
||||
If (me.LockdownMode)
|
||||
dim i = Image.FromStream(_imageStream)
|
||||
PicSettings.BuiltInImage = i
|
||||
PicSettings.BuiltInText = "Property of REGALAMI UN SORRISO ONLUS"
|
||||
End If
|
||||
|
||||
PicSettings.DirectorySorgente = txtSorgente.Text
|
||||
PicSettings.DirectoryDestinazione = txtDestinazione.Text
|
||||
|
|
@ -526,6 +587,8 @@ Public Class MainForm
|
|||
PicSettings.TestoFirmaStart = TextBox4.Text
|
||||
PicSettings.TestoFirmaStartV = TextBox29.Text
|
||||
|
||||
|
||||
|
||||
PicSettings.DataPartenza = DateTimePicker1.Value
|
||||
PicSettings.TestoOrario = TextBox18.Text
|
||||
|
||||
|
|
@ -898,7 +961,7 @@ Public Class MainForm
|
|||
End Sub
|
||||
|
||||
Private Function getNumerazione() As Integer
|
||||
dim numerazione As Integer
|
||||
Dim numerazione As Integer
|
||||
If rdbNumProgressiva.Checked Then
|
||||
numerazione = FileHelper.numerazione.Progressiva
|
||||
Else
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue