maddo/Catalog
1
0
Fork 0
Code Issues Pull requests 1 Projects Releases 2 Packages Wiki Activity Actions

Removed old code

Browse source
This commit is contained in:
Marco 2025-07-28 09:15:45 +02:00
commit af987f840d
12 changed files with 120 additions and 10287 deletions
Download patch file Download diff file Expand all files Collapse all files

3294
imagecatalog/Form1.cs
View file

File diff suppressed because it is too large Load diff

120
imagecatalog/Form1.resx
View file

@ -1,120 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

2946
imagecatalog/Form1.vb
View file

File diff suppressed because it is too large Load diff

5
imagecatalog/ImageCatalog 2.csproj
View file

@ -55,5 +55,10 @@
<DependentUpon>Settings.settings</DependentUpon> <DependentUpon>Settings.settings</DependentUpon>
</Compile> </Compile>
</ItemGroup> </ItemGroup>
<ItemGroup>
<EmbeddedResource Update="MainForm.resx">
<DependentUpon>MainForm.cs</DependentUpon>
</EmbeddedResource>
</ItemGroup>
<PropertyGroup /> <PropertyGroup />
</Project> </Project>

1956
imagecatalog/MainForm.Designer.vb generated
View file

File diff suppressed because it is too large Load diff

259
imagecatalog/MainForm.cs
View file

@ -31,9 +31,12 @@ public partial class MainForm
private readonly ImageCreationStuff _imageCreationService; private readonly ImageCreationStuff _imageCreationService;
public MainForm( ImageCreationStuff imageCreationStuff, ILogger<MainForm> logger) private readonly ParametriSetup _parametriSetup;
public MainForm( ImageCreationStuff imageCreationStuff, ParametriSetup parametriSetup, ILogger<MainForm> logger)
{ {
_imageCreationService = imageCreationStuff; _imageCreationService = imageCreationStuff;
_parametriSetup = parametriSetup;
_logger = logger; _logger = logger;
_logger.LogDebug("Start"); _logger.LogDebug("Start");
@ -383,42 +386,6 @@ public partial class MainForm
{ {
Model.DestinationPath = dialogResult; Model.DestinationPath = dialogResult;
} }
//var DirSearch = new FolderBrowserDialog();
//DirSearch.SelectedPath = txtDestinazione.Text;
//if (DialogResult.OK == DirSearch.ShowDialog())
//{
// string DirectoryScelta = DirSearch.SelectedPath;
// if (DirectoryScelta.EndsWith(@"\") == false)
// {
// DirectoryScelta += @"\";
// }
// txtDestinazione.Text = DirectoryScelta;
//}
// Dim openFileDialog As OpenFileDialog = New OpenFileDialog
// Dim openFileDialog As OpenFileDialog = New OpenFileDialog
// openFileDialog.InitialDirectory = TextBox1.Text
// openFileDialog.Filter = "Bitmap files (*.bmp)|*.bmp|Jpeg files (*.jpg)|*.jpg|All valid files (*.*)|*.*"
// openFileDialog.FilterIndex = 2
// openFileDialog.RestoreDirectory = True
// If DialogResult.OK = openFileDialog.ShowDialog() Then
// Dim IlNome As String = openFileDialog.FileName
// Dim NomeFine As String = ""
// Dim i As Integer
// Dim Elenco As String()
// Elenco = IlNome.Split(New Char() {"\"c})
// For i = 0 To Elenco.Length - 1
// NomeFine &= Elenco(i) & "\"
// Next
// TextBox1.Text = NomeFine
// End If
} }
private void Button5_Click(object sender, EventArgs e) private void Button5_Click(object sender, EventArgs e)
@ -432,72 +399,72 @@ public partial class MainForm
if (DialogResult.OK == SaveFileDlg.ShowDialog()) if (DialogResult.OK == SaveFileDlg.ShowDialog())
{ {
string IlNome = SaveFileDlg.FileName; string IlNome = SaveFileDlg.FileName;
Module1.SetupIni.NomeFileSetup = IlNome; _parametriSetup.NomeFileSetup = IlNome;
Module1.SetupIni.AggiornaParametro("DirSorgente", Model.SourcePath); _parametriSetup.AggiornaParametro("DirSorgente", Model.SourcePath);
Module1.SetupIni.AggiornaParametro("DirDestinazione", Model.DestinationPath); _parametriSetup.AggiornaParametro("DirDestinazione", Model.DestinationPath);
Module1.SetupIni.AggiornaParametro("DirSottoDirectory", chkAggiornaSottodirectory.Checked); _parametriSetup.AggiornaParametro("DirSottoDirectory", chkAggiornaSottodirectory.Checked);
Module1.SetupIni.AggiornaParametro("DirDividiDestinazione", chkCreaSottocartelle.Checked); _parametriSetup.AggiornaParametro("DirDividiDestinazione", chkCreaSottocartelle.Checked);
Module1.SetupIni.AggiornaParametro("DirDividiNumFile", txtFilePerCartella.Text); _parametriSetup.AggiornaParametro("DirDividiNumFile", txtFilePerCartella.Text);
Module1.SetupIni.AggiornaParametro("DirDividiSuffisso", txtSuffissoCartelle.Text); _parametriSetup.AggiornaParametro("DirDividiSuffisso", txtSuffissoCartelle.Text);
Module1.SetupIni.AggiornaParametro("DirDividiNumCifre", txtCifreContatore.Text); _parametriSetup.AggiornaParametro("DirDividiNumCifre", txtCifreContatore.Text);
if (rdbNumProgressiva.Checked == true) if (rdbNumProgressiva.Checked == true)
{ {
Module1.SetupIni.AggiornaParametro("DirDividiTipoNumerazione", "Progressiva"); _parametriSetup.AggiornaParametro("DirDividiTipoNumerazione", "Progressiva");
} }
else else
{ {
Module1.SetupIni.AggiornaParametro("DirDividiTipoNumerazione", "Files"); _parametriSetup.AggiornaParametro("DirDividiTipoNumerazione", "Files");
} }
Module1.SetupIni.AggiornaParametro("MiniatureCrea", CheckBox1.Checked); _parametriSetup.AggiornaParametro("MiniatureCrea", CheckBox1.Checked);
Module1.SetupIni.AggiornaParametro("MiniatureSuffisso", TextBox3.Text); _parametriSetup.AggiornaParametro("MiniatureSuffisso", TextBox3.Text);
Module1.SetupIni.AggiornaParametro("MiniatureAltezza", TextBox5.Text); _parametriSetup.AggiornaParametro("MiniatureAltezza", TextBox5.Text);
Module1.SetupIni.AggiornaParametro("MiniatureLarghezza", TextBox6.Text); _parametriSetup.AggiornaParametro("MiniatureLarghezza", TextBox6.Text);
Module1.SetupIni.AggiornaParametro("MiniatureAddScritta", RadioButton3.Checked); _parametriSetup.AggiornaParametro("MiniatureAddScritta", RadioButton3.Checked);
Module1.SetupIni.AggiornaParametro("MiniatureAddOrario", RadioButton4.Checked); _parametriSetup.AggiornaParametro("MiniatureAddOrario", RadioButton4.Checked);
Module1.SetupIni.AggiornaParametro("FotoAltezza", TextBox27.Text); _parametriSetup.AggiornaParametro("FotoAltezza", TextBox27.Text);
Module1.SetupIni.AggiornaParametro("FotoLarghezza", TextBox28.Text); _parametriSetup.AggiornaParametro("FotoLarghezza", TextBox28.Text);
// SetupIni.AggiornaParametro("FotoCodice", TextBox13.Text) // SetupIni.AggiornaParametro("FotoCodice", TextBox13.Text)
// SetupIni.AggiornaParametro("FotoDimOriginali", CheckBox2.Checked) // SetupIni.AggiornaParametro("FotoDimOriginali", CheckBox2.Checked)
Module1.SetupIni.AggiornaParametro("FontDimensione", TextBox11.Text); _parametriSetup.AggiornaParametro("FontDimensione", TextBox11.Text);
Module1.SetupIni.AggiornaParametro("FontDimensioneMiniatura", TextBox25.Text); _parametriSetup.AggiornaParametro("FontDimensioneMiniatura", TextBox25.Text);
Module1.SetupIni.AggiornaParametro("FontBold", CheckBox3.Checked); _parametriSetup.AggiornaParametro("FontBold", CheckBox3.Checked);
Module1.SetupIni.AggiornaParametro("FontNome", ComboBox3.Text); _parametriSetup.AggiornaParametro("FontNome", ComboBox3.Text);
Module1.SetupIni.AggiornaParametro("TestoTesto", TextBox4.Text); _parametriSetup.AggiornaParametro("TestoTesto", TextBox4.Text);
Module1.SetupIni.AggiornaParametro("TestoTrasparente", TextBox9.Text); _parametriSetup.AggiornaParametro("TestoTrasparente", TextBox9.Text);
Module1.SetupIni.AggiornaParametro("TestoMargine", TextBox12.Text); _parametriSetup.AggiornaParametro("TestoMargine", TextBox12.Text);
Module1.SetupIni.AggiornaParametro("TestoPosizione", ComboBox1.Text); _parametriSetup.AggiornaParametro("TestoPosizione", ComboBox1.Text);
Module1.SetupIni.AggiornaParametro("TestoAllineamento", ComboBox2.Text); _parametriSetup.AggiornaParametro("TestoAllineamento", ComboBox2.Text);
Module1.SetupIni.AggiornaParametro("MarchioFile", TextBox10.Text); _parametriSetup.AggiornaParametro("MarchioFile", TextBox10.Text);
Module1.SetupIni.AggiornaParametro("MarchioAltezza", TextBox14.Text); _parametriSetup.AggiornaParametro("MarchioAltezza", TextBox14.Text);
Module1.SetupIni.AggiornaParametro("MarchioLarghezza", TextBox15.Text); _parametriSetup.AggiornaParametro("MarchioLarghezza", TextBox15.Text);
Module1.SetupIni.AggiornaParametro("MarchioMargine", TextBox16.Text); _parametriSetup.AggiornaParametro("MarchioMargine", TextBox16.Text);
Module1.SetupIni.AggiornaParametro("MarchioAllOrizzontale", ComboBox4.Text); _parametriSetup.AggiornaParametro("MarchioAllOrizzontale", ComboBox4.Text);
Module1.SetupIni.AggiornaParametro("MarchioAllVerticale", ComboBox5.Text); _parametriSetup.AggiornaParametro("MarchioAllVerticale", ComboBox5.Text);
Module1.SetupIni.AggiornaParametro("MarchioTrasparenza", TextBox19.Text); _parametriSetup.AggiornaParametro("MarchioTrasparenza", TextBox19.Text);
Module1.SetupIni.AggiornaParametro("MarchioAggiungi", CheckBox5.Checked); _parametriSetup.AggiornaParametro("MarchioAggiungi", CheckBox5.Checked);
Module1.SetupIni.AggiornaParametro("TempoGara", CheckBox7.Checked); _parametriSetup.AggiornaParametro("TempoGara", CheckBox7.Checked);
Module1.SetupIni.AggiornaParametro("Orario", CheckBox8.Checked); _parametriSetup.AggiornaParametro("Orario", CheckBox8.Checked);
Module1.SetupIni.AggiornaParametro("EtichettaOrario", TextBox18.Text); _parametriSetup.AggiornaParametro("EtichettaOrario", TextBox18.Text);
Module1.SetupIni.AggiornaParametro("GeneraleForzaJpg", chkForzaJpg.Checked); _parametriSetup.AggiornaParametro("GeneraleForzaJpg", chkForzaJpg.Checked);
Module1.SetupIni.AggiornaParametro("GeneraleRotazioneAutomatica", chkRotazioneAutomatica.Checked); _parametriSetup.AggiornaParametro("GeneraleRotazioneAutomatica", chkRotazioneAutomatica.Checked);
Module1.SetupIni.AggiornaParametro("GrandezzaVerticale", TextBox30.Text); _parametriSetup.AggiornaParametro("GrandezzaVerticale", TextBox30.Text);
Module1.SetupIni.AggiornaParametro("MargineVerticale", TextBox31.Text); _parametriSetup.AggiornaParametro("MargineVerticale", TextBox31.Text);
Module1.SetupIni.AggiornaParametro("DimensioniOriginali", CheckBox15.Checked); _parametriSetup.AggiornaParametro("DimensioniOriginali", CheckBox15.Checked);
Module1.SetupIni.AggiornaParametro("TestoVerticale", TextBox29.Text); _parametriSetup.AggiornaParametro("TestoVerticale", TextBox29.Text);
Module1.SetupIni.AggiornaParametro("NomeMiniatura", RadioButton6.Checked); _parametriSetup.AggiornaParametro("NomeMiniatura", RadioButton6.Checked);
Module1.SetupIni.AggiornaParametro("DataFoto", CheckBox16.Checked); _parametriSetup.AggiornaParametro("DataFoto", CheckBox16.Checked);
Module1.SetupIni.AggiornaParametro("NumeroFoto", CheckBox17.Checked); _parametriSetup.AggiornaParametro("NumeroFoto", CheckBox17.Checked);
Module1.SetupIni.AggiornaParametro("ColoreTestoRGB", TextBox34.Text); _parametriSetup.AggiornaParametro("ColoreTestoRGB", TextBox34.Text);
Module1.SetupIni.AggiornaParametro("TempoSmall", RadioButton5.Checked); _parametriSetup.AggiornaParametro("TempoSmall", RadioButton5.Checked);
Module1.SetupIni.AggiornaParametro("NumTempoSmall", RadioButton7.Checked); _parametriSetup.AggiornaParametro("NumTempoSmall", RadioButton7.Checked);
Module1.SetupIni.AggiornaParametro("CompressioneJpeg", TextBox32.Text); _parametriSetup.AggiornaParametro("CompressioneJpeg", TextBox32.Text);
Module1.SetupIni.AggiornaParametro("CompressioneJpegMiniatura", TextBox33.Text); _parametriSetup.AggiornaParametro("CompressioneJpegMiniatura", TextBox33.Text);
// 2021 // 2021
Module1.SetupIni.AggiornaParametro("ChunkSize", TextBox8.Text); _parametriSetup.AggiornaParametro("ChunkSize", TextBox8.Text);
Module1.SetupIni.AggiornaParametro("ThreadsCount", TextBox7.Text); _parametriSetup.AggiornaParametro("ThreadsCount", TextBox7.Text);
Module1.SetupIni.SalvaParametriSetup(); _parametriSetup.SalvaParametriSetup();
Text = "Image Catalog - " + LeggiSoloNomeFile(IlNome); Text = "Image Catalog - " + LeggiSoloNomeFile(IlNome);
} }
} }
@ -513,16 +480,16 @@ public partial class MainForm
if (DialogResult.OK == openFileDialog.ShowDialog()) if (DialogResult.OK == openFileDialog.ShowDialog())
{ {
string IlNome = openFileDialog.FileName; string IlNome = openFileDialog.FileName;
Module1.SetupIni.NomeFileSetup = IlNome; _parametriSetup.NomeFileSetup = IlNome;
Module1.SetupIni.CaricaParametriSetup(); _parametriSetup.CaricaParametriSetup();
Model.SourcePath = Module1.SetupIni.LeggiParametroString("DirSorgente"); Model.SourcePath = _parametriSetup.LeggiParametroString("DirSorgente");
Model.DestinationPath = Module1.SetupIni.LeggiParametroString("DirDestinazione"); Model.DestinationPath = _parametriSetup.LeggiParametroString("DirDestinazione");
chkAggiornaSottodirectory.Checked = Module1.SetupIni.LeggiParametroBoolean("DirSottoDirectory"); chkAggiornaSottodirectory.Checked = _parametriSetup.LeggiParametroBoolean("DirSottoDirectory");
chkCreaSottocartelle.Checked = Module1.SetupIni.LeggiParametroBoolean("DirDividiDestinazione"); chkCreaSottocartelle.Checked = _parametriSetup.LeggiParametroBoolean("DirDividiDestinazione");
txtFilePerCartella.Text = Module1.SetupIni.LeggiParametroString("DirDividiNumFile"); txtFilePerCartella.Text = _parametriSetup.LeggiParametroString("DirDividiNumFile");
txtSuffissoCartelle.Text = Module1.SetupIni.LeggiParametroString("DirDividiSuffisso"); txtSuffissoCartelle.Text = _parametriSetup.LeggiParametroString("DirDividiSuffisso");
txtCifreContatore.Text = Module1.SetupIni.LeggiParametroString("DirDividiNumCifre"); txtCifreContatore.Text = _parametriSetup.LeggiParametroString("DirDividiNumCifre");
string TestoTemp = Module1.SetupIni.LeggiParametroString("DirDividiTipoNumerazione"); string TestoTemp = _parametriSetup.LeggiParametroString("DirDividiTipoNumerazione");
if (TestoTemp.ToUpper() == "PROGRESSIVA") if (TestoTemp.ToUpper() == "PROGRESSIVA")
{ {
rdbNumProgressiva.Checked = true; rdbNumProgressiva.Checked = true;
@ -532,56 +499,56 @@ public partial class MainForm
rdbNumFiles.Checked = true; rdbNumFiles.Checked = true;
} }
CheckBox1.Checked = Module1.SetupIni.LeggiParametroBoolean("MiniatureCrea"); CheckBox1.Checked = _parametriSetup.LeggiParametroBoolean("MiniatureCrea");
TextBox3.Text = Module1.SetupIni.LeggiParametroString("MiniatureSuffisso"); TextBox3.Text = _parametriSetup.LeggiParametroString("MiniatureSuffisso");
TextBox5.Text = Module1.SetupIni.LeggiParametroString("MiniatureAltezza"); TextBox5.Text = _parametriSetup.LeggiParametroString("MiniatureAltezza");
TextBox6.Text = Module1.SetupIni.LeggiParametroString("MiniatureLarghezza"); TextBox6.Text = _parametriSetup.LeggiParametroString("MiniatureLarghezza");
RadioButton3.Checked = Module1.SetupIni.LeggiParametroBoolean("MiniatureAddScritta"); RadioButton3.Checked = _parametriSetup.LeggiParametroBoolean("MiniatureAddScritta");
RadioButton4.Checked = Module1.SetupIni.LeggiParametroBoolean("MiniatureAddOrario"); RadioButton4.Checked = _parametriSetup.LeggiParametroBoolean("MiniatureAddOrario");
TextBox27.Text = Module1.SetupIni.LeggiParametroString("FotoAltezza"); TextBox27.Text = _parametriSetup.LeggiParametroString("FotoAltezza");
TextBox28.Text = Module1.SetupIni.LeggiParametroString("FotoLarghezza"); TextBox28.Text = _parametriSetup.LeggiParametroString("FotoLarghezza");
// TextBox13.Text = SetupIni.LeggiParametroString("FotoCodice") // TextBox13.Text = SetupIni.LeggiParametroString("FotoCodice")
// CheckBox2.Checked = SetupIni.LeggiParametroBoolean("FotoDimOriginali") // CheckBox2.Checked = SetupIni.LeggiParametroBoolean("FotoDimOriginali")
TextBox11.Text = Module1.SetupIni.LeggiParametroString("FontDimensione"); TextBox11.Text = _parametriSetup.LeggiParametroString("FontDimensione");
TextBox25.Text = Module1.SetupIni.LeggiParametroString("FontDimensioneMiniatura"); TextBox25.Text = _parametriSetup.LeggiParametroString("FontDimensioneMiniatura");
CheckBox3.Checked = Module1.SetupIni.LeggiParametroBoolean("FontBold"); CheckBox3.Checked = _parametriSetup.LeggiParametroBoolean("FontBold");
ComboBox3.Text = Module1.SetupIni.LeggiParametroString("FontNome"); ComboBox3.Text = _parametriSetup.LeggiParametroString("FontNome");
if (string.IsNullOrEmpty(TextBox25.Text)) if (string.IsNullOrEmpty(TextBox25.Text))
{ {
TextBox25.Text = "0"; TextBox25.Text = "0";
} }
TextBox4.Text = Module1.SetupIni.LeggiParametroString("TestoTesto"); TextBox4.Text = _parametriSetup.LeggiParametroString("TestoTesto");
TextBox9.Text = Module1.SetupIni.LeggiParametroString("TestoTrasparente"); TextBox9.Text = _parametriSetup.LeggiParametroString("TestoTrasparente");
TextBox12.Text = Module1.SetupIni.LeggiParametroString("TestoMargine"); TextBox12.Text = _parametriSetup.LeggiParametroString("TestoMargine");
ComboBox1.Text = Module1.SetupIni.LeggiParametroString("TestoPosizione"); ComboBox1.Text = _parametriSetup.LeggiParametroString("TestoPosizione");
ComboBox2.Text = Module1.SetupIni.LeggiParametroString("TestoAllineamento"); ComboBox2.Text = _parametriSetup.LeggiParametroString("TestoAllineamento");
TextBox10.Text = Module1.SetupIni.LeggiParametroString("MarchioFile"); TextBox10.Text = _parametriSetup.LeggiParametroString("MarchioFile");
TextBox14.Text = Module1.SetupIni.LeggiParametroString("MarchioAltezza"); TextBox14.Text = _parametriSetup.LeggiParametroString("MarchioAltezza");
TextBox15.Text = Module1.SetupIni.LeggiParametroString("MarchioLarghezza"); TextBox15.Text = _parametriSetup.LeggiParametroString("MarchioLarghezza");
TextBox16.Text = Module1.SetupIni.LeggiParametroString("MarchioMargine"); TextBox16.Text = _parametriSetup.LeggiParametroString("MarchioMargine");
ComboBox4.Text = Module1.SetupIni.LeggiParametroString("MarchioAllOrizzontale"); ComboBox4.Text = _parametriSetup.LeggiParametroString("MarchioAllOrizzontale");
ComboBox5.Text = Module1.SetupIni.LeggiParametroString("MarchioAllVerticale"); ComboBox5.Text = _parametriSetup.LeggiParametroString("MarchioAllVerticale");
TextBox19.Text = Module1.SetupIni.LeggiParametroString("MarchioTrasparenza"); TextBox19.Text = _parametriSetup.LeggiParametroString("MarchioTrasparenza");
CheckBox5.Checked = Module1.SetupIni.LeggiParametroBoolean("MarchioAggiungi"); CheckBox5.Checked = _parametriSetup.LeggiParametroBoolean("MarchioAggiungi");
CheckBox7.Checked = Module1.SetupIni.LeggiParametroBoolean("TempoGara"); CheckBox7.Checked = _parametriSetup.LeggiParametroBoolean("TempoGara");
CheckBox8.Checked = Module1.SetupIni.LeggiParametroBoolean("Orario"); CheckBox8.Checked = _parametriSetup.LeggiParametroBoolean("Orario");
TextBox18.Text = Module1.SetupIni.LeggiParametroString("EtichettaOrario"); TextBox18.Text = _parametriSetup.LeggiParametroString("EtichettaOrario");
chkForzaJpg.Checked = Module1.SetupIni.LeggiParametroBoolean("GeneraleForzaJpg"); chkForzaJpg.Checked = _parametriSetup.LeggiParametroBoolean("GeneraleForzaJpg");
chkRotazioneAutomatica.Checked = Module1.SetupIni.LeggiParametroBoolean("GeneraleRotazioneAutomatica"); chkRotazioneAutomatica.Checked = _parametriSetup.LeggiParametroBoolean("GeneraleRotazioneAutomatica");
TextBox30.Text = Module1.SetupIni.LeggiParametroString("GrandezzaVerticale"); TextBox30.Text = _parametriSetup.LeggiParametroString("GrandezzaVerticale");
TextBox31.Text = Module1.SetupIni.LeggiParametroString("MargineVerticale"); TextBox31.Text = _parametriSetup.LeggiParametroString("MargineVerticale");
CheckBox15.Checked = Module1.SetupIni.LeggiParametroBoolean("DimensioniOriginali"); CheckBox15.Checked = _parametriSetup.LeggiParametroBoolean("DimensioniOriginali");
TextBox29.Text = Module1.SetupIni.LeggiParametroString("TestoVerticale"); TextBox29.Text = _parametriSetup.LeggiParametroString("TestoVerticale");
RadioButton6.Checked = Module1.SetupIni.LeggiParametroBoolean("NomeMiniatura"); RadioButton6.Checked = _parametriSetup.LeggiParametroBoolean("NomeMiniatura");
CheckBox16.Checked = Module1.SetupIni.LeggiParametroBoolean("DataFoto"); CheckBox16.Checked = _parametriSetup.LeggiParametroBoolean("DataFoto");
CheckBox17.Checked = Module1.SetupIni.LeggiParametroBoolean("NumeroFoto"); CheckBox17.Checked = _parametriSetup.LeggiParametroBoolean("NumeroFoto");
RadioButton5.Checked = Module1.SetupIni.LeggiParametroBoolean("TempoSmall"); RadioButton5.Checked = _parametriSetup.LeggiParametroBoolean("TempoSmall");
RadioButton7.Checked = Module1.SetupIni.LeggiParametroBoolean("NumTempoSmall"); RadioButton7.Checked = _parametriSetup.LeggiParametroBoolean("NumTempoSmall");
TextBox32.Text = Module1.SetupIni.LeggiParametroString("CompressioneJpeg"); TextBox32.Text = _parametriSetup.LeggiParametroString("CompressioneJpeg");
TextBox33.Text = Module1.SetupIni.LeggiParametroString("CompressioneJpegMiniatura"); TextBox33.Text = _parametriSetup.LeggiParametroString("CompressioneJpegMiniatura");
TextBox34.Text = Module1.SetupIni.LeggiParametroString("ColoreTestoRGB"); TextBox34.Text = _parametriSetup.LeggiParametroString("ColoreTestoRGB");
if (File.Exists(TextBox10.Text)) if (File.Exists(TextBox10.Text))
{ {
PictureBox1.Image = Image.FromFile(TextBox10.Text); PictureBox1.Image = Image.FromFile(TextBox10.Text);
@ -602,8 +569,8 @@ public partial class MainForm
Text = "Image Catalog - " + LeggiSoloNomeFile(IlNome); Text = "Image Catalog - " + LeggiSoloNomeFile(IlNome);
// 2021 // 2021
TextBox8.Text = Module1.SetupIni.LeggiParametroString("ChunkSize"); TextBox8.Text = _parametriSetup.LeggiParametroString("ChunkSize");
TextBox7.Text = Module1.SetupIni.LeggiParametroString("ThreadsCount"); TextBox7.Text = _parametriSetup.LeggiParametroString("ThreadsCount");
} }
} }

1502
imagecatalog/MainForm.vb
View file

File diff suppressed because it is too large Load diff

158
imagecatalog/Module1.cs
View file

@ -1,158 +0,0 @@

namespace ImageCatalog
{
static class Module1
{
// Sub CaricaIni()
// Dim Parola As String
// Dim i As Integer
// Dim p As Integer
// If Dir$(NomeIni) <> "" Then
// Open NomeIni For Input As #1
// Input #1, NumeroMacchine
// For i = 1 To NumeroMacchine
// Input #1, NomeMacchina(i)
// Input #1, CodiceMacchina(i)
// Input #1, TempoMacchinaFerma(i)
// Input #1, LunghezzaImpulso(i)
// Input #1, TempoRegistrazioneDati(i)
// Input #1, RangoVelocita(i)
// Input #1, MaxVelocita(i)
// Input #1, NumeroRulli(i)
// Input #1, NumeroFili(i)
// Input #1, IndirizzoMacchina(i)
// Input #1, StampaAutoMacchina(i)
// Next i
// Input #1, SettimanaInizio
// Input #1, SettimanaFine
// Input #1, Chiusura
// Input #1, OrarioStampa
// Input #1, OrarioStampaSecondi
// Input #1, OrarioAccendiProg
// Input #1, OrarioSpengiProg
// Input #1, NomeDitta
// Input #1, StampaAutoGiorno
// Input #1, StampaAutoWeek
// Input #1, StampaGiornoRiepilogo
// Input #1, StampaGiornoGrafTMFA
// Input #1, StampaGiornoGrafVel
// Input #1, StampaWeekRiepilogo
// Input #1, StampaWeekGrafTMFA
// Input #1, StampaWeekGrafVel
// Input #1, StampanteManuale
// Input #1, StampanteAutomatica
// Input #1, StampanteNomeAghi
// Input #1, StampanteNomeLaser
// Input #1, NomePortaComm
// Input #1, TurniTotali
// For p = 1 To TurniTotali
// Input #1, TurnoNumero(p)
// Input #1, TurnoInizioMinuti(p)
// Input #1, TurnoFineMinuti(p)
// Input #1, TurnoInizioSecondi(p)
// Input #1, TurnoFineSecondi(p)
// Next p
// Input #1, Parola
// Close #1
// PassWordAmm = Trim$(Cripta(Parola, ChiaveCriDecri))
// End If
// End Sub
// Sub SalvaIni()
// Dim Conto As Single
// Dim Nomefile As String
// Dim NomeDir As String
// Dim Testo As String
// Dim TestoA As String
// Dim i As Integer
// Dim k As Integer
// Dim p As Integer
// Dim Lungo As Integer
// Dim Resto As Integer
// Dim Primo(3) As String
// For i = 1 To NumeroMacchine
// If Right$(DirectoryProgramma, 1) = "\" Then
// NomeDir = DirectoryProgramma + NomeMacchina(i)
// Else
// NomeDir = DirectoryProgramma + "\" + NomeMacchina(i)
// End If
// Nomefile = NomeDir + "\" + NomeMacchina(i) + ".SYS"
// If Dir$(Nomefile) = "" Then MkDir(NomeDir)
// Next i
// Open NomeIni For Output As #3
// Print #3, NumeroMacchine
// For i = 1 To NumeroMacchine
// If Right$(DirectoryProgramma, 1) = "\" Then
// Nomefile = DirectoryProgramma + NomeMacchina(i) + "\" + NomeMacchina(i) + ".SYS"
// Else
// Nomefile = DirectoryProgramma + "\" + NomeMacchina(i) + "\" + NomeMacchina(i) + ".SYS"
// End If
// Open Nomefile For Output As #4
// Write #4, NomeMacchina(i)
// Write #4, CodiceMacchina(i)
// Print #4, TempoMacchinaFerma(i)
// Print #4, LunghezzaImpulso(i)
// Print #4, TempoRegistrazioneDati(i)
// Print #4, RangoVelocita(i)
// Print #4, MaxVelocita(i)
// Print #4, NumeroRulli(i)
// Print #4, NumeroFili(i)
// Print #4, IndirizzoMacchina(i)
// Write #4, StampaAutoMacchina(i)
// Close #4
// Write #3, NomeMacchina(i)
// Write #3, CodiceMacchina(i)
// Print #3, TempoMacchinaFerma(i)
// Print #3, LunghezzaImpulso(i)
// Print #3, TempoRegistrazioneDati(i)
// Print #3, RangoVelocita(i)
// Print #3, MaxVelocita(i)
// Print #3, NumeroRulli(i)
// Print #3, NumeroFili(i)
// Print #3, IndirizzoMacchina(i)
// Write #3, StampaAutoMacchina(i)
// Next i
// Print #3, SettimanaInizio
// Print #3, SettimanaFine
// Write #3, Chiusura
// Write #3, OrarioStampa
// Print #3, OrarioStampaSecondi
// Write #3, OrarioAccendiProg
// Write #3, OrarioSpengiProg
// Write #3, NomeDitta
// Write #3, StampaAutoGiorno
// Write #3, StampaAutoWeek
// Write #3, StampaGiornoRiepilogo
// Write #3, StampaGiornoGrafTMFA
// Write #3, StampaGiornoGrafVel
// Write #3, StampaWeekRiepilogo
// Write #3, StampaWeekGrafTMFA
// Write #3, StampaWeekGrafVel
// Write #3, StampanteManuale
// Write #3, StampanteAutomatica
// Write #3, StampanteNomeAghi
// Write #3, StampanteNomeLaser
// Write #3, NomePortaComm
// Print #3, TurniTotali
// For p = 1 To TurniTotali
// Print #3, TurnoNumero(p)
// Print #3, TurnoInizioMinuti(p)
// Print #3, TurnoFineMinuti(p)
// Print #3, TurnoInizioSecondi(p)
// Print #3, TurnoFineSecondi(p)
// Next p
// Testo = Cripta(PassWordAmm, ChiaveCriDecri)
// Write #3, Testo
// Close #3
// End Sub
public static ParametriSetup SetupIni = new ParametriSetup();
}
}

155
imagecatalog/Module1.vb
View file

@ -1,155 +0,0 @@
Module Module1
'Sub CaricaIni()
' Dim Parola As String
' Dim i As Integer
' Dim p As Integer
' If Dir$(NomeIni) <> "" Then
' Open NomeIni For Input As #1
' Input #1, NumeroMacchine
' For i = 1 To NumeroMacchine
' Input #1, NomeMacchina(i)
' Input #1, CodiceMacchina(i)
' Input #1, TempoMacchinaFerma(i)
' Input #1, LunghezzaImpulso(i)
' Input #1, TempoRegistrazioneDati(i)
' Input #1, RangoVelocita(i)
' Input #1, MaxVelocita(i)
' Input #1, NumeroRulli(i)
' Input #1, NumeroFili(i)
' Input #1, IndirizzoMacchina(i)
' Input #1, StampaAutoMacchina(i)
' Next i
' Input #1, SettimanaInizio
' Input #1, SettimanaFine
' Input #1, Chiusura
' Input #1, OrarioStampa
' Input #1, OrarioStampaSecondi
' Input #1, OrarioAccendiProg
' Input #1, OrarioSpengiProg
' Input #1, NomeDitta
' Input #1, StampaAutoGiorno
' Input #1, StampaAutoWeek
' Input #1, StampaGiornoRiepilogo
' Input #1, StampaGiornoGrafTMFA
' Input #1, StampaGiornoGrafVel
' Input #1, StampaWeekRiepilogo
' Input #1, StampaWeekGrafTMFA
' Input #1, StampaWeekGrafVel
' Input #1, StampanteManuale
' Input #1, StampanteAutomatica
' Input #1, StampanteNomeAghi
' Input #1, StampanteNomeLaser
' Input #1, NomePortaComm
' Input #1, TurniTotali
' For p = 1 To TurniTotali
' Input #1, TurnoNumero(p)
' Input #1, TurnoInizioMinuti(p)
' Input #1, TurnoFineMinuti(p)
' Input #1, TurnoInizioSecondi(p)
' Input #1, TurnoFineSecondi(p)
' Next p
' Input #1, Parola
' Close #1
' PassWordAmm = Trim$(Cripta(Parola, ChiaveCriDecri))
' End If
'End Sub
'Sub SalvaIni()
' Dim Conto As Single
' Dim Nomefile As String
' Dim NomeDir As String
' Dim Testo As String
' Dim TestoA As String
' Dim i As Integer
' Dim k As Integer
' Dim p As Integer
' Dim Lungo As Integer
' Dim Resto As Integer
' Dim Primo(3) As String
' For i = 1 To NumeroMacchine
' If Right$(DirectoryProgramma, 1) = "\" Then
' NomeDir = DirectoryProgramma + NomeMacchina(i)
' Else
' NomeDir = DirectoryProgramma + "\" + NomeMacchina(i)
' End If
' Nomefile = NomeDir + "\" + NomeMacchina(i) + ".SYS"
' If Dir$(Nomefile) = "" Then MkDir(NomeDir)
' Next i
'Open NomeIni For Output As #3
' Print #3, NumeroMacchine
' For i = 1 To NumeroMacchine
' If Right$(DirectoryProgramma, 1) = "\" Then
' Nomefile = DirectoryProgramma + NomeMacchina(i) + "\" + NomeMacchina(i) + ".SYS"
' Else
' Nomefile = DirectoryProgramma + "\" + NomeMacchina(i) + "\" + NomeMacchina(i) + ".SYS"
' End If
' Open Nomefile For Output As #4
' Write #4, NomeMacchina(i)
' Write #4, CodiceMacchina(i)
' Print #4, TempoMacchinaFerma(i)
' Print #4, LunghezzaImpulso(i)
' Print #4, TempoRegistrazioneDati(i)
' Print #4, RangoVelocita(i)
' Print #4, MaxVelocita(i)
' Print #4, NumeroRulli(i)
' Print #4, NumeroFili(i)
' Print #4, IndirizzoMacchina(i)
' Write #4, StampaAutoMacchina(i)
' Close #4
' Write #3, NomeMacchina(i)
' Write #3, CodiceMacchina(i)
' Print #3, TempoMacchinaFerma(i)
' Print #3, LunghezzaImpulso(i)
' Print #3, TempoRegistrazioneDati(i)
' Print #3, RangoVelocita(i)
' Print #3, MaxVelocita(i)
' Print #3, NumeroRulli(i)
' Print #3, NumeroFili(i)
' Print #3, IndirizzoMacchina(i)
' Write #3, StampaAutoMacchina(i)
' Next i
' Print #3, SettimanaInizio
' Print #3, SettimanaFine
' Write #3, Chiusura
' Write #3, OrarioStampa
' Print #3, OrarioStampaSecondi
' Write #3, OrarioAccendiProg
' Write #3, OrarioSpengiProg
' Write #3, NomeDitta
' Write #3, StampaAutoGiorno
' Write #3, StampaAutoWeek
' Write #3, StampaGiornoRiepilogo
' Write #3, StampaGiornoGrafTMFA
' Write #3, StampaGiornoGrafVel
' Write #3, StampaWeekRiepilogo
' Write #3, StampaWeekGrafTMFA
' Write #3, StampaWeekGrafVel
' Write #3, StampanteManuale
' Write #3, StampanteAutomatica
' Write #3, StampanteNomeAghi
' Write #3, StampanteNomeLaser
' Write #3, NomePortaComm
' Print #3, TurniTotali
' For p = 1 To TurniTotali
' Print #3, TurnoNumero(p)
' Print #3, TurnoInizioMinuti(p)
' Print #3, TurnoFineMinuti(p)
' Print #3, TurnoInizioSecondi(p)
' Print #3, TurnoFineSecondi(p)
' Next p
' Testo = Cripta(PassWordAmm, ChiaveCriDecri)
' Write #3, Testo
'Close #3
'End Sub
Public SetupIni As New ParametriSetup
End Module

7
imagecatalog/Module2.cs
View file

@ -1,7 +0,0 @@

namespace ImageCatalog
{
static class Module2
{
}
}

3
imagecatalog/Module2.vb
View file

@ -1,3 +0,0 @@
Module Module2
End Module

2
imagecatalog/Program.cs
View file

@ -83,6 +83,8 @@ namespace ImageCatalog_2
services.AddTransient<ImageCreationStuff>(); services.AddTransient<ImageCreationStuff>();
services.AddSingleton<ParametriSetup>();
// Register your forms // Register your forms
services.AddTransient<MainForm>(); services.AddTransient<MainForm>();