Catalog/imagecatalog/PicSettings.vb

Imports System.IO
Imports System.Drawing.Drawing2D
Imports System.Drawing.Imaging

Module PicSettings

    Private _DirectorySorgente As String
    Private _DirectoryDestinazione As String

    Private _DimVert As Integer
    Private _MargVert As Integer

   
    Private _DimStandard As Integer
    Private _DimStandardMiniatura As Integer

    Private _NomeData As Boolean
    Private _TestoNome As Boolean
    Private _UsaOrarioMiniatura As Boolean
    Private _UsaOrarioTestoApplicare As Boolean
    Private _UsaTempoGaraTestoApplicare As Boolean
    Private _TestoFirmaStart As String
    Private _TestoFirmaStartV As String
    Private _DataPartenza As DateTime
    Private _TestoOrario As String

    Private _UsaRotazioneAutomatica As Boolean
    Private _UsaForzaJpg As Boolean

    Private _LarghezzaSmall As Integer
    Private _AltezzaSmall As Integer

    Private _CreaMiniature As Boolean
    Private _AggiungiScritteMiniature As Boolean
    Private _AggTempoGaraMin As Boolean
    Private _AggNumTempMin As Boolean

    Private _Suffisso As String
    Private _Codice As String

    Private _Trasparenza As Integer
    Private _IlFont As String
    Private _Grassetto As Boolean

    Private _Posizione As String
    Private _Allineamento As String
    Private _Margine As Integer

    Private _LogoAltezza As Integer
    Private _LogoLarghezza As Integer

    Private _fontColoreRGB As Color

    Private _LogoAggiungi As Boolean
    Private _LogoNomeFile As String
    Private _LogoTrasparenza As String
    Private _LogoMargine As String
    Private _LogoPosizioneH As String
    Private _LogoPosizioneV As String

    Private _FotoGrandeDimOrigina As Boolean
    Private _AltezzaBig As Integer
    Private _LarghezzaBig As Integer
    Private _DestDir As DirectoryInfo
    Private _DimMin As Integer

    Private _TestoMin As Boolean

    Private _SecretDefault As Boolean
    Private _SecretBig As Boolean
    Private _SecretSmall As Boolean

    Private _SecretPathSmall As String
    Private _SecretPathBig As String

    Private _jpegQuality As Long
    Private _jpegQualityMin As Long

    Private FotoRuotaADestra As Boolean = False
    Private FotoRuotaASinistra As Boolean = False

    Private TempMinText As String = ""

    Private _mainForm As MainForm

    'Private progressBar As System.Windows.Forms.ProgressBar



    Public Property mainForm() As MainForm
        Get
            Return _mainForm
        End Get
        Set(ByVal value As MainForm)
            _mainForm = value
        End Set
    End Property

    Public Property DirectorySorgente() As String
        Get
            Return _DirectorySorgente
        End Get
        Set(ByVal value As String)
            _DirectorySorgente = value
        End Set
    End Property

    Public Property DirectoryDestinazione() As String
        Get
            Return _DirectoryDestinazione
        End Get
        Set(ByVal value As String)
            _DirectoryDestinazione = value
        End Set
    End Property

    Public Property TestoFirmaStart() As String
        Get
            Return _TestoFirmaStart
        End Get
        Set(ByVal value As String)
            _TestoFirmaStart = value
        End Set
    End Property

    Public Property TestoFirmaStartV() As String
        Get
            Return _TestoFirmaStartV
        End Get

        Set(ByVal value As String)
            _TestoFirmaStartV = value
        End Set
    End Property

    Public Property DataPartenza() As DateTime
        Get
            Return _DataPartenza
        End Get
        Set(ByVal value As DateTime)
            _DataPartenza = value
        End Set
    End Property

    Public Property TestoOrario() As String
        Get
            Return _TestoOrario
        End Get
        Set(ByVal value As String)
            _TestoOrario = value
        End Set
    End Property

    Public Property DimStandard() As Integer
        Get
            Return _DimStandard
        End Get
        Set(ByVal value As Integer)
            _DimStandard = value
        End Set
    End Property

    Public Property DimStandardMiniatura() As Integer
        Get
            Return _DimStandardMiniatura
        End Get
        Set(ByVal value As Integer)
            _DimStandardMiniatura = value
        End Set
    End Property

    Public Property NomeData() As Boolean
        Get
            Return _NomeData
        End Get
        Set(ByVal value As Boolean)
            _NomeData = value
        End Set
    End Property

    Public Property TestoNome() As Boolean
        Get
            Return _TestoNome
        End Get
        Set(ByVal value As Boolean)
            _TestoNome = value
        End Set
    End Property

    Public Property UsaOrarioMiniatura() As Boolean
        Get
            Return _UsaOrarioMiniatura
        End Get
        Set(ByVal value As Boolean)
            _UsaOrarioMiniatura = value
        End Set
    End Property

    Public Property UsaOrarioTestoApplicare() As Boolean
        Get
            Return _UsaOrarioTestoApplicare
        End Get
        Set(ByVal value As Boolean)
            _UsaOrarioTestoApplicare = value
        End Set
    End Property

    Public Property UsaTempoGaraTestoApplicare() As Boolean
        Get
            Return _UsaTempoGaraTestoApplicare
        End Get
        Set(ByVal value As Boolean)
            _UsaTempoGaraTestoApplicare = value
        End Set
    End Property

    Public Property UsaRotazioneAutomatica() As Boolean
        Get
            Return _UsaRotazioneAutomatica
        End Get
        Set(ByVal value As Boolean)
            _UsaRotazioneAutomatica = value
        End Set
    End Property

    Public Property UsaForzaJpg() As Boolean
        Get
            Return _UsaForzaJpg
        End Get
        Set(ByVal value As Boolean)
            _UsaForzaJpg = value
        End Set
    End Property



    Public Property LarghezzaSmall() As Integer
        Get
            Return _LarghezzaSmall
        End Get
        Set(ByVal value As Integer)
            _LarghezzaSmall = value
        End Set
    End Property

    Public Property AltezzaSmall() As Integer
        Get
            Return _AltezzaSmall
        End Get
        Set(ByVal value As Integer)
            _AltezzaSmall = value
        End Set
    End Property


    Public Property CreaMiniature() As Boolean
        Get
            Return _CreaMiniature
        End Get
        Set(ByVal value As Boolean)
            _CreaMiniature = value
        End Set
    End Property

    Public Property AggiungiScritteMiniature() As Boolean
        Get
            Return _AggiungiScritteMiniature
        End Get
        Set(ByVal value As Boolean)
            _AggiungiScritteMiniature = value
        End Set
    End Property


    Public Property Suffisso() As String
        Get
            Return _Suffisso
        End Get
        Set(ByVal value As String)
            _Suffisso = value
        End Set
    End Property

    Public Property Codice() As String
        Get
            Return _Codice
        End Get
        Set(ByVal value As String)
            _Codice = value
        End Set
    End Property


    Public Property Trasparenza() As Integer
        Get
            Return _Trasparenza
        End Get
        Set(ByVal value As Integer)
            _Trasparenza = value
        End Set
    End Property

    Public Property IlFont() As String
        Get
            Return _IlFont
        End Get
        Set(ByVal value As String)
            _IlFont = value
        End Set
    End Property

    Public Property Grassetto() As Boolean
        Get
            Return _Grassetto
        End Get
        Set(ByVal value As Boolean)
            _Grassetto = value
        End Set
    End Property

    Public Property Posizione() As String
        Get
            Return _Posizione
        End Get
        Set(ByVal value As String)
            _Posizione = value
        End Set
    End Property

    Public Property Allineamento() As String
        Get
            Return _Allineamento
        End Get
        Set(ByVal value As String)
            _Allineamento = value
        End Set
    End Property

    Public Property Margine() As Integer
        Get
            Return _Margine
        End Get
        Set(ByVal value As Integer)
            _Margine = value
        End Set
    End Property

    Public Property LogoAltezza() As Integer
        Get
            Return _LogoAltezza
        End Get
        Set(ByVal value As Integer)
            _LogoAltezza = value
        End Set
    End Property

    Public Property LogoLarghezza() As Integer
        Get
            Return _LogoLarghezza
        End Get
        Set(ByVal value As Integer)
            _LogoLarghezza = value
        End Set
    End Property

    Public Property fontColoreRGB() As Color
        Get
            Return _fontColoreRGB
        End Get
        Set(ByVal value As Color)
            _fontColoreRGB = value
        End Set
    End Property

    Public Property LogoAggiungi() As Boolean
        Get
            Return _LogoAggiungi
        End Get
        Set(ByVal value As Boolean)
            _LogoAggiungi = value
        End Set
    End Property

    Public Property LogoNomeFile() As String
        Get
            Return _LogoNomeFile
        End Get
        Set(ByVal value As String)
            _LogoNomeFile = value
        End Set
    End Property

    Public Property LogoTrasparenza() As String
        Get
            Return _LogoTrasparenza
        End Get
        Set(ByVal value As String)
            _LogoTrasparenza = value
        End Set
    End Property

    Public Property LogoMargine() As String
        Get
            Return _LogoMargine
        End Get
        Set(ByVal value As String)
            _LogoMargine = value
        End Set
    End Property

    Public Property LogoPosizioneH() As String
        Get
            Return _LogoPosizioneH
        End Get
        Set(ByVal value As String)
            _LogoPosizioneH = value
        End Set
    End Property

    Public Property LogoPosizioneV() As String
        Get
            Return _LogoPosizioneV
        End Get
        Set(ByVal value As String)
            _LogoPosizioneV = value
        End Set
    End Property

    Public Property FotoGrandeDimOrigina() As Boolean
        Get
            Return _FotoGrandeDimOrigina
        End Get
        Set(ByVal value As Boolean)
            _FotoGrandeDimOrigina = value
        End Set
    End Property

    Public Property AltezzaBig() As Integer
        Get
            Return _AltezzaBig
        End Get
        Set(ByVal value As Integer)
            _AltezzaBig = value
        End Set
    End Property

    Public Property LarghezzaBig() As Integer
        Get
            Return _LarghezzaBig
        End Get
        Set(ByVal value As Integer)
            _LarghezzaBig = value
        End Set
    End Property

    Public Property DestDir() As DirectoryInfo
        Get
            Return _DestDir
        End Get
        Set(ByVal value As DirectoryInfo)
            _DestDir = value
        End Set
    End Property

    Public Property DimVert() As Integer
        Get
            Return _DimVert

        End Get
        Set(ByVal value As Integer)
            _DimVert = value

        End Set
    End Property

    Public Property MargVert() As Integer
        Get
            Return _MargVert

        End Get
        Set(ByVal value As Integer)
            _MargVert = value
        End Set
    End Property

    Public Property TestoMin() As Boolean
        Get
            Return _TestoMin

        End Get
        Set(ByVal value As Boolean)
            _TestoMin = value

        End Set
    End Property

    Public Property DimMin() As Integer
        Get
            Return _DimMin

        End Get
        Set(ByVal value As Integer)
            _DimMin = value

        End Set
    End Property

    Public Property SecretDefault() As Boolean
        Get
            Return _SecretDefault

        End Get
        Set(ByVal value As Boolean)
            _SecretDefault = value

        End Set
    End Property

    Public Property SecretBig() As Boolean
        Get
            Return _SecretBig

        End Get
        Set(ByVal value As Boolean)
            _SecretBig = value

        End Set
    End Property

    Public Property SecretSmall() As Boolean
        Get
            Return _SecretSmall

        End Get
        Set(ByVal value As Boolean)
            _SecretSmall = value

        End Set
    End Property

    Public Property SecretPathSmall() As String
        Get
            Return _SecretPathSmall

        End Get
        Set(ByVal value As String)
            _SecretPathSmall = value

        End Set
    End Property

    Public Property SecretPathBig() As String
        Get
            Return _SecretPathBig

        End Get
        Set(ByVal value As String)
            _SecretPathBig = value

        End Set
    End Property

    Public Property AggTempoGaraMin() As Boolean
        Get
            Return _AggTempoGaraMin

        End Get
        Set(ByVal value As Boolean)
            _AggTempoGaraMin = value

        End Set
    End Property

    Public Property AggNumTempMin() As Boolean
        Get
            Return _AggNumTempMin

        End Get
        Set(ByVal value As Boolean)
            _AggNumTempMin = value

        End Set
    End Property

    Public Property jpegQuality() As Long
        Get
            Return _jpegQuality
        End Get
        Set(ByVal value As Long)
            _jpegQuality = value
        End Set

    End Property

    Public Property jpegQualityMin() As Long
        Get
            Return _jpegQualityMin
        End Get
        Set(ByVal value As Long)
            _jpegQualityMin = value
        End Set

    End Property
End Module