diff --git a/imagecatalog/Form1.cs b/imagecatalog/Form1.cs deleted file mode 100644 index aedf2aa..0000000 --- a/imagecatalog/Form1.cs +++ /dev/null @@ -1,3294 +0,0 @@ -using System; -using System.Collections.Generic; -using System.ComponentModel; -using System.Diagnostics; -using System.Drawing; -using System.IO; -using System.Runtime.CompilerServices; -using System.Threading; -using System.Windows.Forms; -using CatalogVbLib; -using Microsoft.VisualBasic; -using Microsoft.VisualBasic.CompilerServices; - -namespace ImageCatalog -{ - public delegate void XyThreadAddold(string Info); - - public class Form1 : Form - { - - /* TODO ERROR: Skipped RegionDirectiveTrivia */ - public Form1() : base() - { - base.Load += Form1_Load; - - // This call is required by the Windows Form Designer. - InitializeComponent(); - - // Add any initialization after the InitializeComponent() call - - } - - // Form overrides dispose to clean up the component list. - protected override void Dispose(bool disposing) - { - if (disposing) - { - if (components is object) - { - components.Dispose(); - } - } - - base.Dispose(disposing); - } - - // Required by the Windows Form Designer - private System.ComponentModel.IContainer components; - - // NOTE: The following procedure is required by the Windows Form Designer - // It can be modified using the Windows Form Designer. - // Do not modify it using the code editor. - private Button _Button1; - - [DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)] - internal Button Button1 - { - [MethodImpl(MethodImplOptions.Synchronized)] - get - { - return _Button1; - } - - [MethodImpl(MethodImplOptions.Synchronized)] - set - { - if (_Button1 != null) - { - _Button1.Click -= btnCreaCatalogo_Click; - } - - _Button1 = value; - if (_Button1 != null) - { - _Button1.Click += btnCreaCatalogo_Click; - } - } - } - - internal Label Label10; - internal Label Label17; - internal Label Label18; - internal Label Label19; - internal Label Label20; - private Button _Button6; - - [DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)] - internal Button Button6 - { - [MethodImpl(MethodImplOptions.Synchronized)] - get - { - return _Button6; - } - - [MethodImpl(MethodImplOptions.Synchronized)] - set - { - if (_Button6 != null) - { - _Button6.Click -= Button6_Click; - } - - _Button6 = value; - if (_Button6 != null) - { - _Button6.Click += Button6_Click; - } - } - } - - private Button _Button5; - - [DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)] - internal Button Button5 - { - [MethodImpl(MethodImplOptions.Synchronized)] - get - { - return _Button5; - } - - [MethodImpl(MethodImplOptions.Synchronized)] - set - { - if (_Button5 != null) - { - _Button5.Click -= Button5_Click; - } - - _Button5 = value; - if (_Button5 != null) - { - _Button5.Click += Button5_Click; - } - } - } - - private Button _Button7; - - [DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)] - internal Button Button7 - { - [MethodImpl(MethodImplOptions.Synchronized)] - get - { - return _Button7; - } - - [MethodImpl(MethodImplOptions.Synchronized)] - set - { - if (_Button7 != null) - { - _Button7.Click -= Button7_Click; - } - - _Button7 = value; - if (_Button7 != null) - { - _Button7.Click += Button7_Click; - } - } - } - - internal Label Label27; - internal TextBox TextBox13; - internal Label Label16; - internal Label Label7; - internal TextBox TextBox7; - internal Label Label8; - internal TextBox TextBox8; - internal CheckBox CheckBox2; - internal Label Label43; - internal CheckBox CheckBox22; - internal TabPage TabPage4; - internal GroupBox GroupBox6; - internal PictureBox PictureBox2; - private PictureBox _PictureBox1; - - [DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)] - internal PictureBox PictureBox1 - { - [MethodImpl(MethodImplOptions.Synchronized)] - get - { - return _PictureBox1; - } - - [MethodImpl(MethodImplOptions.Synchronized)] - set - { - if (_PictureBox1 != null) - { - _PictureBox1.MouseMove -= PictureBox1_MouseMove; - _PictureBox1.MouseUp -= PictureBox1_MouseUp; - } - - _PictureBox1 = value; - if (_PictureBox1 != null) - { - _PictureBox1.MouseMove += PictureBox1_MouseMove; - _PictureBox1.MouseUp += PictureBox1_MouseUp; - } - } - } - - internal ComboBox ComboBox5; - internal ComboBox ComboBox4; - internal TextBox TextBox19; - internal Label Label28; - internal CheckBox CheckBox5; - internal TextBox TextBox15; - internal TextBox TextBox14; - internal Label Label25; - internal TextBox TextBox16; - internal Label Label24; - internal Label Label22; - internal Label Label23; - private Button _Button4; - - [DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)] - internal Button Button4 - { - [MethodImpl(MethodImplOptions.Synchronized)] - get - { - return _Button4; - } - - [MethodImpl(MethodImplOptions.Synchronized)] - set - { - if (_Button4 != null) - { - _Button4.Click -= Button4_Click; - } - - _Button4 = value; - if (_Button4 != null) - { - _Button4.Click += Button4_Click; - } - } - } - - internal TextBox TextBox10; - internal Label Label29; - internal Label Label30; - internal PictureBox PictureBox3; - internal TabPage TabPage1; - internal GroupBox GroupBox1; - internal Panel Panel2; - internal RadioButton RadioButton3; - internal RadioButton RadioButton7; - internal RadioButton RadioButton4; - internal RadioButton RadioButton6; - internal RadioButton RadioButton5; - internal Label Label5; - internal TextBox TextBox5; - internal Label Label6; - internal TextBox TextBox6; - internal Label Label3; - internal TextBox TextBox3; - internal CheckBox CheckBox1; - internal TabPage TabPage2; - internal GroupBox GroupBox2; - internal TextBox TextBox26; - internal Label Label37; - internal Label Label38; - internal TextBox TextBox27; - internal Label Label39; - internal TextBox TextBox28; - internal CheckBox CheckBox15; - internal TabPage TabPage3; - internal GroupBox GroupBox10; - internal Label Label42; - internal Label Label41; - internal TextBox TextBox31; - internal TextBox TextBox30; - internal GroupBox GroupBox9; - internal CheckBox CheckBox17; - internal CheckBox CheckBox16; - internal GroupBox GroupBox5; - private Button _Button8; - - [DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)] - internal Button Button8 - { - [MethodImpl(MethodImplOptions.Synchronized)] - get - { - return _Button8; - } - - [MethodImpl(MethodImplOptions.Synchronized)] - set - { - if (_Button8 != null) - { - _Button8.Click -= Button8_Click; - } - - _Button8 = value; - if (_Button8 != null) - { - _Button8.Click += Button8_Click; - } - } - } - - internal Label Label36; - internal TextBox TextBox25; - internal Label Label35; - internal ComboBox ComboBox3; - internal TextBox TextBox11; - internal Label Label12; - internal Label Label11; - internal CheckBox CheckBox3; - internal GroupBox GroupBox4; - internal Label Label40; - internal TextBox TextBox29; - internal TextBox TextBox18; - internal Label Label26; - internal DateTimePicker DateTimePicker1; - internal CheckBox CheckBox8; - internal TextBox TextBox9; - internal CheckBox CheckBox7; - internal Label Label4; - internal TextBox TextBox4; - internal Label Label9; - internal Label Label13; - internal ComboBox ComboBox1; - internal ComboBox ComboBox2; - internal Label Label14; - internal TextBox TextBox12; - internal Label Label15; - internal TabPage TabPage5; - internal GroupBox GroupBox3; - internal CheckBox CheckBox6; - private Button _Button3; - - [DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)] - internal Button Button3 - { - [MethodImpl(MethodImplOptions.Synchronized)] - get - { - return _Button3; - } - - [MethodImpl(MethodImplOptions.Synchronized)] - set - { - if (_Button3 != null) - { - _Button3.Click -= Button3_Click; - } - - _Button3 = value; - if (_Button3 != null) - { - _Button3.Click += Button3_Click; - } - } - } - - private Button _Button2; - - [DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)] - internal Button Button2 - { - [MethodImpl(MethodImplOptions.Synchronized)] - get - { - return _Button2; - } - - [MethodImpl(MethodImplOptions.Synchronized)] - set - { - if (_Button2 != null) - { - _Button2.Click -= Button2_Click; - } - - _Button2 = value; - if (_Button2 != null) - { - _Button2.Click += Button2_Click; - } - } - } - - internal Label Label1; - internal Label Label2; - internal TextBox TextBox1; - internal TextBox TextBox2; - internal GroupBox GroupBox8; - internal RadioButton RadioButton2; - internal RadioButton RadioButton1; - internal TextBox TextBox21; - internal Label Label34; - internal TextBox TextBox20; - internal Label Label33; - internal Label Label31; - internal CheckBox CheckBox11; - internal TextBox TextBox17; - internal Label Label32; - internal GroupBox GroupBox7; - internal CheckBox CheckBox10; - internal CheckBox CheckBox9; - internal TabControl TabControl1; - internal Label Label45; - internal TextBox TextBox32; - internal TextBox TextBox33; - internal TextBox TextBox34; - internal Label Label46; - internal ProgressBar ProgressBar1; - internal Panel Panel1; - private CheckBox _CheckBox18; - - [DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)] - internal CheckBox CheckBox18 - { - [MethodImpl(MethodImplOptions.Synchronized)] - get - { - return _CheckBox18; - } - - [MethodImpl(MethodImplOptions.Synchronized)] - set - { - if (_CheckBox18 != null) - { - _CheckBox18.CheckedChanged -= CheckBox18_CheckedChanged; - } - - _CheckBox18 = value; - if (_CheckBox18 != null) - { - _CheckBox18.CheckedChanged += CheckBox18_CheckedChanged; - } - } - } - - private CheckBox _CheckBox4; - - [DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)] - internal CheckBox CheckBox4 - { - [MethodImpl(MethodImplOptions.Synchronized)] - get - { - return _CheckBox4; - } - - [MethodImpl(MethodImplOptions.Synchronized)] - set - { - if (_CheckBox4 != null) - { - _CheckBox4.CheckedChanged -= CheckBox4_CheckedChanged; - } - - _CheckBox4 = value; - if (_CheckBox4 != null) - { - _CheckBox4.CheckedChanged += CheckBox4_CheckedChanged; - } - } - } - - private CheckBox _CheckBox12; - - [DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)] - internal CheckBox CheckBox12 - { - [MethodImpl(MethodImplOptions.Synchronized)] - get - { - return _CheckBox12; - } - - [MethodImpl(MethodImplOptions.Synchronized)] - set - { - if (_CheckBox12 != null) - { - _CheckBox12.CheckedChanged -= CheckBox12_CheckedChanged; - } - - _CheckBox12 = value; - if (_CheckBox12 != null) - { - _CheckBox12.CheckedChanged += CheckBox12_CheckedChanged; - } - } - } - - internal Label Label44; - - [DebuggerStepThrough()] - private void InitializeComponent() - { - _Button1 = new Button(); - _Button1.Click += new EventHandler(btnCreaCatalogo_Click); - Label10 = new Label(); - Label17 = new Label(); - Label18 = new Label(); - Label19 = new Label(); - Label20 = new Label(); - _Button6 = new Button(); - _Button6.Click += new EventHandler(Button6_Click); - _Button5 = new Button(); - _Button5.Click += new EventHandler(Button5_Click); - _Button7 = new Button(); - _Button7.Click += new EventHandler(Button7_Click); - Label27 = new Label(); - TextBox13 = new TextBox(); - Label16 = new Label(); - Label7 = new Label(); - TextBox7 = new TextBox(); - Label8 = new Label(); - TextBox8 = new TextBox(); - CheckBox2 = new CheckBox(); - Label43 = new Label(); - CheckBox22 = new CheckBox(); - Label44 = new Label(); - TabPage4 = new TabPage(); - GroupBox6 = new GroupBox(); - PictureBox2 = new PictureBox(); - _PictureBox1 = new PictureBox(); - _PictureBox1.MouseMove += new MouseEventHandler(PictureBox1_MouseMove); - _PictureBox1.MouseUp += new MouseEventHandler(PictureBox1_MouseUp); - ComboBox5 = new ComboBox(); - ComboBox4 = new ComboBox(); - TextBox19 = new TextBox(); - Label28 = new Label(); - CheckBox5 = new CheckBox(); - TextBox15 = new TextBox(); - TextBox14 = new TextBox(); - Label25 = new Label(); - TextBox16 = new TextBox(); - Label24 = new Label(); - Label22 = new Label(); - Label23 = new Label(); - _Button4 = new Button(); - _Button4.Click += new EventHandler(Button4_Click); - TextBox10 = new TextBox(); - Label29 = new Label(); - Label30 = new Label(); - PictureBox3 = new PictureBox(); - TabPage1 = new TabPage(); - GroupBox1 = new GroupBox(); - Label46 = new Label(); - TextBox33 = new TextBox(); - Panel2 = new Panel(); - RadioButton3 = new RadioButton(); - RadioButton7 = new RadioButton(); - RadioButton4 = new RadioButton(); - RadioButton6 = new RadioButton(); - RadioButton5 = new RadioButton(); - Label5 = new Label(); - TextBox5 = new TextBox(); - Label6 = new Label(); - TextBox6 = new TextBox(); - Label3 = new Label(); - TextBox3 = new TextBox(); - CheckBox1 = new CheckBox(); - TabPage2 = new TabPage(); - GroupBox2 = new GroupBox(); - Label45 = new Label(); - TextBox32 = new TextBox(); - TextBox26 = new TextBox(); - Label37 = new Label(); - Label38 = new Label(); - TextBox27 = new TextBox(); - Label39 = new Label(); - TextBox28 = new TextBox(); - CheckBox15 = new CheckBox(); - TabPage3 = new TabPage(); - GroupBox10 = new GroupBox(); - Label42 = new Label(); - Label41 = new Label(); - TextBox31 = new TextBox(); - TextBox30 = new TextBox(); - GroupBox9 = new GroupBox(); - CheckBox17 = new CheckBox(); - CheckBox16 = new CheckBox(); - GroupBox5 = new GroupBox(); - TextBox34 = new TextBox(); - _Button8 = new Button(); - _Button8.Click += new EventHandler(Button8_Click); - Label36 = new Label(); - TextBox25 = new TextBox(); - Label35 = new Label(); - ComboBox3 = new ComboBox(); - TextBox11 = new TextBox(); - Label12 = new Label(); - Label11 = new Label(); - CheckBox3 = new CheckBox(); - GroupBox4 = new GroupBox(); - Label40 = new Label(); - TextBox29 = new TextBox(); - TextBox18 = new TextBox(); - Label26 = new Label(); - DateTimePicker1 = new DateTimePicker(); - CheckBox8 = new CheckBox(); - TextBox9 = new TextBox(); - CheckBox7 = new CheckBox(); - Label4 = new Label(); - TextBox4 = new TextBox(); - Label9 = new Label(); - Label13 = new Label(); - ComboBox1 = new ComboBox(); - ComboBox2 = new ComboBox(); - Label14 = new Label(); - TextBox12 = new TextBox(); - Label15 = new Label(); - TabPage5 = new TabPage(); - GroupBox3 = new GroupBox(); - CheckBox6 = new CheckBox(); - _Button3 = new Button(); - _Button3.Click += new EventHandler(Button3_Click); - _Button2 = new Button(); - _Button2.Click += new EventHandler(Button2_Click); - Label1 = new Label(); - Label2 = new Label(); - TextBox1 = new TextBox(); - TextBox2 = new TextBox(); - GroupBox8 = new GroupBox(); - RadioButton2 = new RadioButton(); - RadioButton1 = new RadioButton(); - TextBox21 = new TextBox(); - Label34 = new Label(); - TextBox20 = new TextBox(); - Label33 = new Label(); - Label31 = new Label(); - CheckBox11 = new CheckBox(); - TextBox17 = new TextBox(); - Label32 = new Label(); - GroupBox7 = new GroupBox(); - CheckBox10 = new CheckBox(); - CheckBox9 = new CheckBox(); - TabControl1 = new TabControl(); - ProgressBar1 = new ProgressBar(); - _CheckBox12 = new CheckBox(); - _CheckBox12.CheckedChanged += new EventHandler(CheckBox12_CheckedChanged); - _CheckBox4 = new CheckBox(); - _CheckBox4.CheckedChanged += new EventHandler(CheckBox4_CheckedChanged); - _CheckBox18 = new CheckBox(); - _CheckBox18.CheckedChanged += new EventHandler(CheckBox18_CheckedChanged); - Panel1 = new Panel(); - TabPage4.SuspendLayout(); - GroupBox6.SuspendLayout(); - ((System.ComponentModel.ISupportInitialize)PictureBox2).BeginInit(); - ((System.ComponentModel.ISupportInitialize)_PictureBox1).BeginInit(); - ((System.ComponentModel.ISupportInitialize)PictureBox3).BeginInit(); - TabPage1.SuspendLayout(); - GroupBox1.SuspendLayout(); - Panel2.SuspendLayout(); - TabPage2.SuspendLayout(); - GroupBox2.SuspendLayout(); - TabPage3.SuspendLayout(); - GroupBox10.SuspendLayout(); - GroupBox9.SuspendLayout(); - GroupBox5.SuspendLayout(); - GroupBox4.SuspendLayout(); - TabPage5.SuspendLayout(); - GroupBox3.SuspendLayout(); - GroupBox8.SuspendLayout(); - GroupBox7.SuspendLayout(); - TabControl1.SuspendLayout(); - Panel1.SuspendLayout(); - SuspendLayout(); - // - // Button1 - // - _Button1.Font = new Font("Microsoft Sans Serif", 12.0f, FontStyle.Bold, GraphicsUnit.Point, Conversions.ToByte(0)); - _Button1.Location = new Point(539, 77); - _Button1.Name = "_Button1"; - _Button1.Size = new Size(192, 39); - _Button1.TabIndex = 2; - _Button1.Text = "crea catalogo"; - // - // Label10 - // - Label10.Font = new Font("Microsoft Sans Serif", 14.25f, FontStyle.Bold, GraphicsUnit.Point, Conversions.ToByte(0)); - Label10.Location = new Point(539, 163); - Label10.Name = "Label10"; - Label10.Size = new Size(192, 72); - Label10.TabIndex = 21; - Label10.Text = "file"; - // - // Label17 - // - Label17.AutoSize = true; - Label17.Font = new Font("Microsoft Sans Serif", 12.0f, FontStyle.Bold, GraphicsUnit.Point, Conversions.ToByte(0)); - Label17.Location = new Point(643, 243); - Label17.Name = "Label17"; - Label17.Size = new Size(19, 20); - Label17.TabIndex = 38; - Label17.Text = "0"; - // - // Label18 - // - Label18.AutoSize = true; - Label18.Font = new Font("Microsoft Sans Serif", 12.0f, FontStyle.Bold, GraphicsUnit.Point, Conversions.ToByte(0)); - Label18.Location = new Point(643, 262); - Label18.Name = "Label18"; - Label18.Size = new Size(19, 20); - Label18.TabIndex = 39; - Label18.Text = "0"; - // - // Label19 - // - Label19.AutoSize = true; - Label19.Font = new Font("Microsoft Sans Serif", 9.75f, FontStyle.Bold, GraphicsUnit.Point, Conversions.ToByte(0)); - Label19.Location = new Point(539, 243); - Label19.Name = "Label19"; - Label19.Size = new Size(80, 16); - Label19.TabIndex = 40; - Label19.Text = "foto totali: "; - // - // Label20 - // - Label20.AutoSize = true; - Label20.Font = new Font("Microsoft Sans Serif", 9.75f, FontStyle.Bold, GraphicsUnit.Point, Conversions.ToByte(0)); - Label20.Location = new Point(539, 262); - Label20.Name = "Label20"; - Label20.Size = new Size(104, 16); - Label20.TabIndex = 41; - Label20.Text = "foto generate:"; - // - // Button6 - // - _Button6.Font = new Font("Microsoft Sans Serif", 11.0f, FontStyle.Bold, GraphicsUnit.Point, Conversions.ToByte(0)); - _Button6.Location = new Point(539, 12); - _Button6.Name = "_Button6"; - _Button6.Size = new Size(192, 32); - _Button6.TabIndex = 12; - _Button6.Text = "Carica impostazioni"; - // - // Button5 - // - _Button5.Font = new Font("Microsoft Sans Serif", 11.0f, FontStyle.Bold, GraphicsUnit.Point, Conversions.ToByte(0)); - _Button5.Location = new Point(539, 43); - _Button5.Name = "_Button5"; - _Button5.Size = new Size(192, 32); - _Button5.TabIndex = 43; - _Button5.Text = "Salva impostazioni"; - // - // Button7 - // - _Button7.Font = new Font("Microsoft Sans Serif", 14.25f, FontStyle.Regular, GraphicsUnit.Point, Conversions.ToByte(0)); - _Button7.Location = new Point(539, 120); - _Button7.Name = "_Button7"; - _Button7.Size = new Size(192, 40); - _Button7.TabIndex = 44; - _Button7.Text = "stop creazione"; - // - // Label27 - // - Label27.Location = new Point(591, 346); - Label27.Name = "Label27"; - Label27.Size = new Size(140, 20); - Label27.TabIndex = 46; - Label27.Text = "Versione 2.0 BETA 1"; - Label27.TextAlign = ContentAlignment.MiddleRight; - // - // TextBox13 - // - TextBox13.Location = new Point(224, 48); - TextBox13.Name = "TextBox13"; - TextBox13.Size = new Size(56, 20); - TextBox13.TabIndex = 20; - TextBox13.Text = "TextBox13"; - // - // Label16 - // - Label16.ForeColor = Color.Black; - Label16.Location = new Point(168, 48); - Label16.Name = "Label16"; - Label16.Size = new Size(48, 16); - Label16.TabIndex = 19; - Label16.Text = "Suffisso"; - Label16.TextAlign = ContentAlignment.MiddleRight; - // - // Label7 - // - Label7.AutoSize = true; - Label7.ForeColor = Color.Black; - Label7.Location = new Point(24, 24); - Label7.Name = "Label7"; - Label7.Size = new Size(41, 13); - Label7.TabIndex = 16; - Label7.Text = "Altezza"; - // - // TextBox7 - // - TextBox7.Location = new Point(72, 24); - TextBox7.Name = "TextBox7"; - TextBox7.Size = new Size(72, 20); - TextBox7.TabIndex = 14; - TextBox7.Text = "TextBox7"; - // - // Label8 - // - Label8.AutoSize = true; - Label8.ForeColor = Color.Black; - Label8.Location = new Point(8, 48); - Label8.Name = "Label8"; - Label8.Size = new Size(56, 13); - Label8.TabIndex = 17; - Label8.Text = "Larghezza"; - // - // TextBox8 - // - TextBox8.Location = new Point(72, 48); - TextBox8.Name = "TextBox8"; - TextBox8.Size = new Size(72, 20); - TextBox8.TabIndex = 15; - TextBox8.Text = "TextBox8"; - // - // CheckBox2 - // - CheckBox2.Checked = true; - CheckBox2.CheckState = CheckState.Checked; - CheckBox2.ForeColor = Color.Black; - CheckBox2.Location = new Point(168, 16); - CheckBox2.Name = "CheckBox2"; - CheckBox2.Size = new Size(120, 32); - CheckBox2.TabIndex = 18; - CheckBox2.Text = "Mantieni dimensioni originali"; - // - // Label43 - // - Label43.AutoSize = true; - Label43.Location = new Point(651, 303); - Label43.Name = "Label43"; - Label43.Size = new Size(25, 13); - Label43.TabIndex = 49; - Label43.Text = "000"; - // - // CheckBox22 - // - CheckBox22.AutoSize = true; - CheckBox22.Location = new Point(539, 326); - CheckBox22.Name = "CheckBox22"; - CheckBox22.Size = new Size(104, 17); - CheckBox22.TabIndex = 50; - CheckBox22.Text = "Arresta il sistema"; - CheckBox22.UseVisualStyleBackColor = true; - // - // Label44 - // - Label44.AutoSize = true; - Label44.Location = new Point(539, 303); - Label44.Name = "Label44"; - Label44.Size = new Size(106, 13); - Label44.TabIndex = 51; - Label44.Text = "Tempo elaborazione:"; - // - // TabPage4 - // - TabPage4.Controls.Add(GroupBox6); - TabPage4.Location = new Point(4, 22); - TabPage4.Name = "TabPage4"; - TabPage4.Padding = new Padding(3); - TabPage4.Size = new Size(513, 326); - TabPage4.TabIndex = 3; - TabPage4.Text = "Logo"; - TabPage4.UseVisualStyleBackColor = true; - // - // GroupBox6 - // - GroupBox6.Controls.Add(PictureBox2); - GroupBox6.Controls.Add(_PictureBox1); - GroupBox6.Controls.Add(ComboBox5); - GroupBox6.Controls.Add(ComboBox4); - GroupBox6.Controls.Add(TextBox19); - GroupBox6.Controls.Add(Label28); - GroupBox6.Controls.Add(CheckBox5); - GroupBox6.Controls.Add(TextBox15); - GroupBox6.Controls.Add(TextBox14); - GroupBox6.Controls.Add(Label25); - GroupBox6.Controls.Add(TextBox16); - GroupBox6.Controls.Add(Label24); - GroupBox6.Controls.Add(Label22); - GroupBox6.Controls.Add(Label23); - GroupBox6.Controls.Add(_Button4); - GroupBox6.Controls.Add(TextBox10); - GroupBox6.Controls.Add(Label29); - GroupBox6.Controls.Add(Label30); - GroupBox6.Controls.Add(PictureBox3); - GroupBox6.ForeColor = Color.FromArgb(Conversions.ToInteger(Conversions.ToByte(0)), Conversions.ToInteger(Conversions.ToByte(0)), Conversions.ToInteger(Conversions.ToByte(192))); - GroupBox6.Location = new Point(6, 6); - GroupBox6.Name = "GroupBox6"; - GroupBox6.Size = new Size(496, 224); - GroupBox6.TabIndex = 42; - GroupBox6.TabStop = false; - GroupBox6.Text = "Logo"; - // - // PictureBox2 - // - PictureBox2.BorderStyle = BorderStyle.FixedSingle; - PictureBox2.Location = new Point(144, 192); - PictureBox2.Name = "PictureBox2"; - PictureBox2.Size = new Size(24, 24); - PictureBox2.TabIndex = 44; - PictureBox2.TabStop = false; - PictureBox2.Visible = false; - // - // PictureBox1 - // - _PictureBox1.Cursor = Cursors.Cross; - _PictureBox1.Location = new Point(256, 56); - _PictureBox1.Name = "_PictureBox1"; - _PictureBox1.Size = new Size(224, 160); - _PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage; - _PictureBox1.TabIndex = 43; - _PictureBox1.TabStop = false; - // - // ComboBox5 - // - ComboBox5.Location = new Point(144, 168); - ComboBox5.Name = "ComboBox5"; - ComboBox5.Size = new Size(96, 21); - ComboBox5.TabIndex = 42; - ComboBox5.Text = "ComboBox5"; - // - // ComboBox4 - // - ComboBox4.Location = new Point(144, 144); - ComboBox4.Name = "ComboBox4"; - ComboBox4.Size = new Size(96, 21); - ComboBox4.TabIndex = 41; - ComboBox4.Text = "ComboBox4"; - // - // TextBox19 - // - TextBox19.Location = new Point(144, 96); - TextBox19.Name = "TextBox19"; - TextBox19.Size = new Size(96, 20); - TextBox19.TabIndex = 40; - TextBox19.Text = "TextBox19"; - // - // Label28 - // - Label28.ForeColor = Color.Black; - Label28.Location = new Point(17, 97); - Label28.Name = "Label28"; - Label28.Size = new Size(120, 16); - Label28.TabIndex = 39; - Label28.Text = "Trasparenza (0-100%)"; - Label28.TextAlign = ContentAlignment.MiddleLeft; - // - // CheckBox5 - // - CheckBox5.ForeColor = Color.Black; - CheckBox5.Location = new Point(0, 26); - CheckBox5.Name = "CheckBox5"; - CheckBox5.Size = new Size(72, 20); - CheckBox5.TabIndex = 38; - CheckBox5.Text = "Aggiungi"; - // - // TextBox15 - // - TextBox15.Location = new Point(144, 72); - TextBox15.Name = "TextBox15"; - TextBox15.Size = new Size(96, 20); - TextBox15.TabIndex = 19; - TextBox15.Text = "TextBox15"; - // - // TextBox14 - // - TextBox14.Location = new Point(144, 48); - TextBox14.Name = "TextBox14"; - TextBox14.Size = new Size(96, 20); - TextBox14.TabIndex = 18; - TextBox14.Text = "TextBox14"; - // - // Label25 - // - Label25.AutoSize = true; - Label25.ForeColor = Color.Black; - Label25.Location = new Point(17, 168); - Label25.Name = "Label25"; - Label25.Size = new Size(95, 13); - Label25.TabIndex = 36; - Label25.Text = "Posizione verticale"; - Label25.TextAlign = ContentAlignment.MiddleLeft; - // - // TextBox16 - // - TextBox16.Location = new Point(144, 120); - TextBox16.Name = "TextBox16"; - TextBox16.Size = new Size(96, 20); - TextBox16.TabIndex = 35; - TextBox16.Text = "TextBox16"; - // - // Label24 - // - Label24.AutoSize = true; - Label24.ForeColor = Color.Black; - Label24.Location = new Point(19, 123); - Label24.Name = "Label24"; - Label24.Size = new Size(88, 13); - Label24.TabIndex = 34; - Label24.Text = "Margine (pixel/%)"; - Label24.TextAlign = ContentAlignment.MiddleLeft; - // - // Label22 - // - Label22.AutoSize = true; - Label22.ForeColor = Color.Black; - Label22.Location = new Point(19, 51); - Label22.Name = "Label22"; - Label22.Size = new Size(41, 13); - Label22.TabIndex = 20; - Label22.Text = "Altezza"; - Label22.TextAlign = ContentAlignment.MiddleLeft; - // - // Label23 - // - Label23.AutoSize = true; - Label23.ForeColor = Color.Black; - Label23.Location = new Point(19, 75); - Label23.Name = "Label23"; - Label23.Size = new Size(56, 13); - Label23.TabIndex = 21; - Label23.Text = "Larghezza"; - Label23.TextAlign = ContentAlignment.MiddleLeft; - // - // Button4 - // - _Button4.Location = new Point(464, 24); - _Button4.Name = "_Button4"; - _Button4.Size = new Size(24, 20); - _Button4.TabIndex = 8; - _Button4.Text = "..."; - // - // TextBox10 - // - TextBox10.Location = new Point(144, 24); - TextBox10.Name = "TextBox10"; - TextBox10.Size = new Size(312, 20); - TextBox10.TabIndex = 6; - TextBox10.Text = "TextBox10"; - // - // Label29 - // - Label29.AutoSize = true; - Label29.ForeColor = Color.Black; - Label29.Location = new Point(17, 147); - Label29.Name = "Label29"; - Label29.Size = new Size(105, 13); - Label29.TabIndex = 36; - Label29.Text = "Posizione orizzontale"; - Label29.TextAlign = ContentAlignment.MiddleLeft; - // - // Label30 - // - Label30.AutoSize = true; - Label30.ForeColor = Color.Black; - Label30.Location = new Point(19, 203); - Label30.Name = "Label30"; - Label30.Size = new Size(93, 13); - Label30.TabIndex = 36; - Label30.Text = "Colore trasparente"; - Label30.TextAlign = ContentAlignment.MiddleLeft; - Label30.Visible = false; - // - // PictureBox3 - // - PictureBox3.BorderStyle = BorderStyle.FixedSingle; - PictureBox3.Location = new Point(216, 192); - PictureBox3.Name = "PictureBox3"; - PictureBox3.Size = new Size(24, 24); - PictureBox3.TabIndex = 44; - PictureBox3.TabStop = false; - PictureBox3.Visible = false; - // - // TabPage1 - // - TabPage1.Controls.Add(Panel1); - TabPage1.Controls.Add(GroupBox1); - TabPage1.Location = new Point(4, 22); - TabPage1.Name = "TabPage1"; - TabPage1.Padding = new Padding(3); - TabPage1.Size = new Size(513, 326); - TabPage1.TabIndex = 0; - TabPage1.Text = "Miniature"; - TabPage1.UseVisualStyleBackColor = true; - // - // GroupBox1 - // - GroupBox1.Controls.Add(Label46); - GroupBox1.Controls.Add(TextBox33); - GroupBox1.Controls.Add(Panel2); - GroupBox1.Controls.Add(Label5); - GroupBox1.Controls.Add(TextBox5); - GroupBox1.Controls.Add(Label6); - GroupBox1.Controls.Add(TextBox6); - GroupBox1.Controls.Add(Label3); - GroupBox1.Controls.Add(TextBox3); - GroupBox1.Controls.Add(CheckBox1); - GroupBox1.ForeColor = Color.FromArgb(Conversions.ToInteger(Conversions.ToByte(0)), Conversions.ToInteger(Conversions.ToByte(0)), Conversions.ToInteger(Conversions.ToByte(192))); - GroupBox1.Location = new Point(6, 5); - GroupBox1.Name = "GroupBox1"; - GroupBox1.Size = new Size(350, 210); - GroupBox1.TabIndex = 25; - GroupBox1.TabStop = false; - GroupBox1.Text = "Miniature"; - // - // Label46 - // - Label46.AutoSize = true; - Label46.Location = new Point(198, 43); - Label46.Name = "Label46"; - Label46.Size = new Size(40, 13); - Label46.TabIndex = 21; - Label46.Text = "Qualità"; - // - // TextBox33 - // - TextBox33.Location = new Point(244, 40); - TextBox33.Name = "TextBox33"; - TextBox33.Size = new Size(100, 20); - TextBox33.TabIndex = 20; - // - // Panel2 - // - Panel2.Controls.Add(RadioButton3); - Panel2.Controls.Add(RadioButton7); - Panel2.Controls.Add(RadioButton4); - Panel2.Controls.Add(RadioButton6); - Panel2.Controls.Add(RadioButton5); - Panel2.Location = new Point(56, 114); - Panel2.Name = "Panel2"; - Panel2.Size = new Size(235, 90); - Panel2.TabIndex = 19; - // - // RadioButton3 - // - RadioButton3.AutoSize = true; - RadioButton3.Location = new Point(15, 16); - RadioButton3.Name = "RadioButton3"; - RadioButton3.Size = new Size(99, 17); - RadioButton3.TabIndex = 14; - RadioButton3.TabStop = true; - RadioButton3.Text = "Aggiungi Scritta"; - RadioButton3.UseVisualStyleBackColor = true; - // - // RadioButton7 - // - RadioButton7.AutoSize = true; - RadioButton7.Location = new Point(129, 40); - RadioButton7.Name = "RadioButton7"; - RadioButton7.Size = new Size(95, 17); - RadioButton7.TabIndex = 18; - RadioButton7.TabStop = true; - RadioButton7.Text = "numero+tempo"; - RadioButton7.UseVisualStyleBackColor = true; - // - // RadioButton4 - // - RadioButton4.AutoSize = true; - RadioButton4.Location = new Point(15, 40); - RadioButton4.Name = "RadioButton4"; - RadioButton4.Size = new Size(95, 17); - RadioButton4.TabIndex = 15; - RadioButton4.TabStop = true; - RadioButton4.Text = "Aggiungi orario"; - RadioButton4.UseVisualStyleBackColor = true; - // - // RadioButton6 - // - RadioButton6.AutoSize = true; - RadioButton6.Location = new Point(129, 16); - RadioButton6.Name = "RadioButton6"; - RadioButton6.Size = new Size(83, 17); - RadioButton6.TabIndex = 17; - RadioButton6.TabStop = true; - RadioButton6.Text = "Numero foto"; - RadioButton6.UseVisualStyleBackColor = true; - // - // RadioButton5 - // - RadioButton5.AutoSize = true; - RadioButton5.Location = new Point(15, 65); - RadioButton5.Name = "RadioButton5"; - RadioButton5.Size = new Size(84, 17); - RadioButton5.TabIndex = 16; - RadioButton5.TabStop = true; - RadioButton5.Text = "Tempo Gara"; - RadioButton5.UseVisualStyleBackColor = true; - // - // Label5 - // - Label5.AutoSize = true; - Label5.ForeColor = Color.Black; - Label5.Location = new Point(24, 88); - Label5.Name = "Label5"; - Label5.Size = new Size(41, 13); - Label5.TabIndex = 12; - Label5.Text = "Altezza"; - // - // TextBox5 - // - TextBox5.Location = new Point(72, 64); - TextBox5.Name = "TextBox5"; - TextBox5.Size = new Size(88, 20); - TextBox5.TabIndex = 10; - TextBox5.Text = "TextBox5"; - // - // Label6 - // - Label6.AutoSize = true; - Label6.ForeColor = Color.Black; - Label6.Location = new Point(8, 64); - Label6.Name = "Label6"; - Label6.Size = new Size(56, 13); - Label6.TabIndex = 13; - Label6.Text = "Larghezza"; - // - // TextBox6 - // - TextBox6.Location = new Point(72, 88); - TextBox6.Name = "TextBox6"; - TextBox6.Size = new Size(88, 20); - TextBox6.TabIndex = 11; - TextBox6.Text = "TextBox6"; - // - // Label3 - // - Label3.AutoSize = true; - Label3.ForeColor = Color.Black; - Label3.Location = new Point(24, 40); - Label3.Name = "Label3"; - Label3.Size = new Size(44, 13); - Label3.TabIndex = 7; - Label3.Text = "Suffisso"; - // - // TextBox3 - // - TextBox3.Location = new Point(72, 40); - TextBox3.Name = "TextBox3"; - TextBox3.Size = new Size(88, 20); - TextBox3.TabIndex = 6; - TextBox3.Text = "TextBox3"; - // - // CheckBox1 - // - CheckBox1.ForeColor = Color.Black; - CheckBox1.Location = new Point(72, 16); - CheckBox1.Name = "CheckBox1"; - CheckBox1.Size = new Size(104, 24); - CheckBox1.TabIndex = 5; - CheckBox1.Text = "Crea miniature"; - // - // TabPage2 - // - TabPage2.Controls.Add(GroupBox2); - TabPage2.Location = new Point(4, 22); - TabPage2.Name = "TabPage2"; - TabPage2.Padding = new Padding(3); - TabPage2.Size = new Size(513, 326); - TabPage2.TabIndex = 5; - TabPage2.Text = "Foto"; - TabPage2.UseVisualStyleBackColor = true; - // - // GroupBox2 - // - GroupBox2.Controls.Add(Label45); - GroupBox2.Controls.Add(TextBox32); - GroupBox2.Controls.Add(TextBox26); - GroupBox2.Controls.Add(Label37); - GroupBox2.Controls.Add(Label38); - GroupBox2.Controls.Add(TextBox27); - GroupBox2.Controls.Add(Label39); - GroupBox2.Controls.Add(TextBox28); - GroupBox2.Controls.Add(CheckBox15); - GroupBox2.ForeColor = Color.FromArgb(Conversions.ToInteger(Conversions.ToByte(0)), Conversions.ToInteger(Conversions.ToByte(0)), Conversions.ToInteger(Conversions.ToByte(192))); - GroupBox2.Location = new Point(3, 6); - GroupBox2.Name = "GroupBox2"; - GroupBox2.Size = new Size(304, 156); - GroupBox2.TabIndex = 36; - GroupBox2.TabStop = false; - GroupBox2.Text = "Foto grande"; - // - // Label45 - // - Label45.AutoSize = true; - Label45.Location = new Point(11, 86); - Label45.Name = "Label45"; - Label45.Size = new Size(40, 13); - Label45.TabIndex = 22; - Label45.Text = "Qualità"; - // - // TextBox32 - // - TextBox32.Location = new Point(72, 80); - TextBox32.Name = "TextBox32"; - TextBox32.Size = new Size(72, 20); - TextBox32.TabIndex = 21; - TextBox32.Text = "100"; - // - // TextBox26 - // - TextBox26.Location = new Point(224, 48); - TextBox26.Name = "TextBox26"; - TextBox26.Size = new Size(56, 20); - TextBox26.TabIndex = 20; - TextBox26.Text = "TextBox26"; - // - // Label37 - // - Label37.ForeColor = Color.Black; - Label37.Location = new Point(168, 48); - Label37.Name = "Label37"; - Label37.Size = new Size(48, 16); - Label37.TabIndex = 19; - Label37.Text = "Suffisso"; - Label37.TextAlign = ContentAlignment.MiddleRight; - // - // Label38 - // - Label38.AutoSize = true; - Label38.ForeColor = Color.Black; - Label38.Location = new Point(24, 24); - Label38.Name = "Label38"; - Label38.Size = new Size(41, 13); - Label38.TabIndex = 16; - Label38.Text = "Altezza"; - // - // TextBox27 - // - TextBox27.Location = new Point(72, 24); - TextBox27.Name = "TextBox27"; - TextBox27.Size = new Size(72, 20); - TextBox27.TabIndex = 14; - TextBox27.Text = "TextBox27"; - // - // Label39 - // - Label39.AutoSize = true; - Label39.ForeColor = Color.Black; - Label39.Location = new Point(8, 48); - Label39.Name = "Label39"; - Label39.Size = new Size(56, 13); - Label39.TabIndex = 17; - Label39.Text = "Larghezza"; - // - // TextBox28 - // - TextBox28.Location = new Point(72, 48); - TextBox28.Name = "TextBox28"; - TextBox28.Size = new Size(72, 20); - TextBox28.TabIndex = 15; - TextBox28.Text = "TextBox28"; - // - // CheckBox15 - // - CheckBox15.Checked = true; - CheckBox15.CheckState = CheckState.Checked; - CheckBox15.ForeColor = Color.Black; - CheckBox15.Location = new Point(168, 16); - CheckBox15.Name = "CheckBox15"; - CheckBox15.Size = new Size(120, 32); - CheckBox15.TabIndex = 18; - CheckBox15.Text = "Mantieni dimensioni originali"; - // - // TabPage3 - // - TabPage3.Controls.Add(GroupBox10); - TabPage3.Controls.Add(GroupBox9); - TabPage3.Controls.Add(GroupBox5); - TabPage3.Controls.Add(GroupBox4); - TabPage3.Location = new Point(4, 22); - TabPage3.Name = "TabPage3"; - TabPage3.Padding = new Padding(3); - TabPage3.Size = new Size(513, 326); - TabPage3.TabIndex = 2; - TabPage3.Text = "Testo"; - TabPage3.UseVisualStyleBackColor = true; - // - // GroupBox10 - // - GroupBox10.Controls.Add(Label42); - GroupBox10.Controls.Add(Label41); - GroupBox10.Controls.Add(TextBox31); - GroupBox10.Controls.Add(TextBox30); - GroupBox10.Location = new Point(316, 53); - GroupBox10.Name = "GroupBox10"; - GroupBox10.Size = new Size(186, 73); - GroupBox10.TabIndex = 39; - GroupBox10.TabStop = false; - GroupBox10.Text = "Testo foto verticali"; - // - // Label42 - // - Label42.AutoSize = true; - Label42.Location = new Point(7, 46); - Label42.Name = "Label42"; - Label42.Size = new Size(45, 13); - Label42.TabIndex = 3; - Label42.Text = "Margine"; - // - // Label41 - // - Label41.AutoSize = true; - Label41.Location = new Point(7, 25); - Label41.Name = "Label41"; - Label41.Size = new Size(108, 13); - Label41.TabIndex = 2; - Label41.Text = "Dimensione Carattere"; - // - // TextBox31 - // - TextBox31.Location = new Point(131, 46); - TextBox31.Name = "TextBox31"; - TextBox31.Size = new Size(39, 20); - TextBox31.TabIndex = 1; - // - // TextBox30 - // - TextBox30.Location = new Point(131, 22); - TextBox30.Name = "TextBox30"; - TextBox30.Size = new Size(39, 20); - TextBox30.TabIndex = 0; - // - // GroupBox9 - // - GroupBox9.Controls.Add(CheckBox17); - GroupBox9.Controls.Add(CheckBox16); - GroupBox9.Location = new Point(316, 6); - GroupBox9.Name = "GroupBox9"; - GroupBox9.Size = new Size(186, 45); - GroupBox9.TabIndex = 38; - GroupBox9.TabStop = false; - GroupBox9.Text = "Slide show"; - // - // CheckBox17 - // - CheckBox17.AutoSize = true; - CheckBox17.Location = new Point(96, 18); - CheckBox17.Name = "CheckBox17"; - CheckBox17.Size = new Size(84, 17); - CheckBox17.TabIndex = 1; - CheckBox17.Text = "Numero foto"; - CheckBox17.UseVisualStyleBackColor = true; - // - // CheckBox16 - // - CheckBox16.AutoSize = true; - CheckBox16.Location = new Point(6, 19); - CheckBox16.Name = "CheckBox16"; - CheckBox16.Size = new Size(49, 17); - CheckBox16.TabIndex = 0; - CheckBox16.Text = "Data"; - CheckBox16.UseVisualStyleBackColor = true; - // - // GroupBox5 - // - GroupBox5.Controls.Add(TextBox34); - GroupBox5.Controls.Add(_Button8); - GroupBox5.Controls.Add(Label36); - GroupBox5.Controls.Add(TextBox25); - GroupBox5.Controls.Add(Label35); - GroupBox5.Controls.Add(ComboBox3); - GroupBox5.Controls.Add(TextBox11); - GroupBox5.Controls.Add(Label12); - GroupBox5.Controls.Add(Label11); - GroupBox5.Controls.Add(CheckBox3); - GroupBox5.ForeColor = Color.FromArgb(Conversions.ToInteger(Conversions.ToByte(0)), Conversions.ToInteger(Conversions.ToByte(0)), Conversions.ToInteger(Conversions.ToByte(192))); - GroupBox5.Location = new Point(6, 6); - GroupBox5.Name = "GroupBox5"; - GroupBox5.Size = new Size(304, 120); - GroupBox5.TabIndex = 37; - GroupBox5.TabStop = false; - GroupBox5.Text = "Carattere"; - // - // TextBox34 - // - TextBox34.Location = new Point(160, 91); - TextBox34.Name = "TextBox34"; - TextBox34.Size = new Size(56, 20); - TextBox34.TabIndex = 36; - TextBox34.TextAlign = HorizontalAlignment.Right; - // - // Button8 - // - _Button8.ForeColor = Color.Black; - _Button8.Location = new Point(222, 89); - _Button8.Name = "_Button8"; - _Button8.Size = new Size(74, 24); - _Button8.TabIndex = 35; - _Button8.Text = "Scegli..."; - // - // Label36 - // - Label36.ForeColor = Color.Black; - Label36.Location = new Point(8, 60); - Label36.Name = "Label36"; - Label36.Size = new Size(120, 19); - Label36.TabIndex = 34; - Label36.Text = "Dimensione miniatura"; - Label36.TextAlign = ContentAlignment.MiddleLeft; - // - // TextBox25 - // - TextBox25.Location = new Point(160, 59); - TextBox25.Name = "TextBox25"; - TextBox25.Size = new Size(56, 20); - TextBox25.TabIndex = 33; - TextBox25.Text = "TextBox25"; - // - // Label35 - // - Label35.ForeColor = Color.Black; - Label35.Location = new Point(8, 93); - Label35.Name = "Label35"; - Label35.Size = new Size(72, 16); - Label35.TabIndex = 32; - Label35.Text = "Colore RGB"; - Label35.TextAlign = ContentAlignment.MiddleLeft; - // - // ComboBox3 - // - ComboBox3.Location = new Point(96, 8); - ComboBox3.Name = "ComboBox3"; - ComboBox3.Size = new Size(120, 21); - ComboBox3.TabIndex = 28; - ComboBox3.Text = "ComboBox3"; - // - // TextBox11 - // - TextBox11.Location = new Point(160, 35); - TextBox11.Name = "TextBox11"; - TextBox11.Size = new Size(56, 20); - TextBox11.TabIndex = 27; - TextBox11.Text = "TextBox11"; - // - // Label12 - // - Label12.AutoSize = true; - Label12.ForeColor = Color.Black; - Label12.Location = new Point(8, 38); - Label12.Name = "Label12"; - Label12.Size = new Size(62, 13); - Label12.TabIndex = 26; - Label12.Text = "Dimensione"; - Label12.TextAlign = ContentAlignment.MiddleLeft; - // - // Label11 - // - Label11.AutoSize = true; - Label11.ForeColor = Color.Black; - Label11.Location = new Point(56, 8); - Label11.Name = "Label11"; - Label11.Size = new Size(28, 13); - Label11.TabIndex = 22; - Label11.Text = "Font"; - // - // CheckBox3 - // - CheckBox3.ForeColor = Color.Black; - CheckBox3.Location = new Point(224, 8); - CheckBox3.Name = "CheckBox3"; - CheckBox3.Size = new Size(72, 24); - CheckBox3.TabIndex = 24; - CheckBox3.Text = "Grassetto"; - // - // GroupBox4 - // - GroupBox4.Controls.Add(Label40); - GroupBox4.Controls.Add(TextBox29); - GroupBox4.Controls.Add(TextBox18); - GroupBox4.Controls.Add(Label26); - GroupBox4.Controls.Add(DateTimePicker1); - GroupBox4.Controls.Add(CheckBox8); - GroupBox4.Controls.Add(TextBox9); - GroupBox4.Controls.Add(CheckBox7); - GroupBox4.Controls.Add(Label4); - GroupBox4.Controls.Add(TextBox4); - GroupBox4.Controls.Add(Label9); - GroupBox4.Controls.Add(Label13); - GroupBox4.Controls.Add(ComboBox1); - GroupBox4.Controls.Add(ComboBox2); - GroupBox4.Controls.Add(Label14); - GroupBox4.Controls.Add(TextBox12); - GroupBox4.Controls.Add(Label15); - GroupBox4.ForeColor = Color.FromArgb(Conversions.ToInteger(Conversions.ToByte(0)), Conversions.ToInteger(Conversions.ToByte(0)), Conversions.ToInteger(Conversions.ToByte(192))); - GroupBox4.Location = new Point(6, 132); - GroupBox4.Name = "GroupBox4"; - GroupBox4.Size = new Size(496, 186); - GroupBox4.TabIndex = 36; - GroupBox4.TabStop = false; - GroupBox4.Text = "Testo da applicare"; - // - // Label40 - // - Label40.AutoSize = true; - Label40.Location = new Point(8, 52); - Label40.Name = "Label40"; - Label40.Size = new Size(48, 13); - Label40.TabIndex = 40; - Label40.Text = "Verticale"; - // - // TextBox29 - // - TextBox29.Location = new Point(72, 49); - TextBox29.Multiline = true; - TextBox29.Name = "TextBox29"; - TextBox29.Size = new Size(408, 44); - TextBox29.TabIndex = 39; - // - // TextBox18 - // - TextBox18.Location = new Point(232, 156); - TextBox18.Name = "TextBox18"; - TextBox18.Size = new Size(100, 20); - TextBox18.TabIndex = 38; - // - // Label26 - // - Label26.AutoSize = true; - Label26.ForeColor = Color.Black; - Label26.Location = new Point(344, 156); - Label26.Name = "Label26"; - Label26.Size = new Size(48, 13); - Label26.TabIndex = 37; - Label26.Text = "partenza"; - // - // DateTimePicker1 - // - DateTimePicker1.Format = DateTimePickerFormat.Time; - DateTimePicker1.Location = new Point(392, 156); - DateTimePicker1.Name = "DateTimePicker1"; - DateTimePicker1.Size = new Size(88, 20); - DateTimePicker1.TabIndex = 36; - // - // CheckBox8 - // - CheckBox8.ForeColor = Color.Black; - CheckBox8.Location = new Point(72, 156); - CheckBox8.Name = "CheckBox8"; - CheckBox8.Size = new Size(56, 16); - CheckBox8.TabIndex = 35; - CheckBox8.Text = "Orario"; - // - // TextBox9 - // - TextBox9.Location = new Point(120, 108); - TextBox9.Name = "TextBox9"; - TextBox9.Size = new Size(56, 20); - TextBox9.TabIndex = 20; - TextBox9.Text = "TextBox9"; - // - // CheckBox7 - // - CheckBox7.ForeColor = Color.Black; - CheckBox7.Location = new Point(136, 156); - CheckBox7.Name = "CheckBox7"; - CheckBox7.Size = new Size(88, 16); - CheckBox7.TabIndex = 34; - CheckBox7.Text = "Tempo gara"; - // - // Label4 - // - Label4.AutoSize = true; - Label4.ForeColor = Color.Black; - Label4.Location = new Point(8, 24); - Label4.Name = "Label4"; - Label4.Size = new Size(59, 13); - Label4.TabIndex = 9; - Label4.Text = "Orizzontale"; - // - // TextBox4 - // - TextBox4.Location = new Point(72, 24); - TextBox4.Name = "TextBox4"; - TextBox4.Size = new Size(408, 20); - TextBox4.TabIndex = 8; - TextBox4.Text = "TextBox4"; - // - // Label9 - // - Label9.AutoSize = true; - Label9.ForeColor = Color.Black; - Label9.Location = new Point(8, 108); - Label9.Name = "Label9"; - Label9.Size = new Size(110, 13); - Label9.TabIndex = 19; - Label9.Text = "Trasparenza (0-100%)"; - // - // Label13 - // - Label13.AutoSize = true; - Label13.ForeColor = Color.Black; - Label13.Location = new Point(16, 132); - Label13.Name = "Label13"; - Label13.Size = new Size(52, 13); - Label13.TabIndex = 29; - Label13.Text = "Posizione"; - // - // ComboBox1 - // - ComboBox1.Location = new Point(72, 132); - ComboBox1.Name = "ComboBox1"; - ComboBox1.Size = new Size(104, 21); - ComboBox1.TabIndex = 28; - ComboBox1.Text = "ComboBox1"; - // - // ComboBox2 - // - ComboBox2.Location = new Point(376, 132); - ComboBox2.Name = "ComboBox2"; - ComboBox2.Size = new Size(104, 21); - ComboBox2.TabIndex = 31; - ComboBox2.Text = "ComboBox2"; - // - // Label14 - // - Label14.AutoSize = true; - Label14.ForeColor = Color.Black; - Label14.Location = new Point(304, 132); - Label14.Name = "Label14"; - Label14.Size = new Size(67, 13); - Label14.TabIndex = 30; - Label14.Text = "Allineamento"; - // - // TextBox12 - // - TextBox12.Location = new Point(376, 108); - TextBox12.Name = "TextBox12"; - TextBox12.Size = new Size(104, 20); - TextBox12.TabIndex = 33; - TextBox12.Text = "TextBox12"; - // - // Label15 - // - Label15.AutoSize = true; - Label15.ForeColor = Color.Black; - Label15.Location = new Point(296, 108); - Label15.Name = "Label15"; - Label15.Size = new Size(75, 13); - Label15.TabIndex = 32; - Label15.Text = "Margine (pixel)"; - // - // TabPage5 - // - TabPage5.Controls.Add(GroupBox3); - TabPage5.Controls.Add(GroupBox8); - TabPage5.Controls.Add(GroupBox7); - TabPage5.Location = new Point(4, 22); - TabPage5.Name = "TabPage5"; - TabPage5.Padding = new Padding(3); - TabPage5.Size = new Size(513, 326); - TabPage5.TabIndex = 4; - TabPage5.Text = "Generale"; - TabPage5.UseVisualStyleBackColor = true; - // - // GroupBox3 - // - GroupBox3.Controls.Add(CheckBox6); - GroupBox3.Controls.Add(_Button3); - GroupBox3.Controls.Add(_Button2); - GroupBox3.Controls.Add(Label1); - GroupBox3.Controls.Add(Label2); - GroupBox3.Controls.Add(TextBox1); - GroupBox3.Controls.Add(TextBox2); - GroupBox3.ForeColor = Color.FromArgb(Conversions.ToInteger(Conversions.ToByte(0)), Conversions.ToInteger(Conversions.ToByte(0)), Conversions.ToInteger(Conversions.ToByte(192))); - GroupBox3.Location = new Point(6, 6); - GroupBox3.Name = "GroupBox3"; - GroupBox3.Size = new Size(496, 101); - GroupBox3.TabIndex = 35; - GroupBox3.TabStop = false; - GroupBox3.Text = "Directory"; - // - // CheckBox6 - // - CheckBox6.ForeColor = Color.Black; - CheckBox6.Location = new Point(80, 64); - CheckBox6.Name = "CheckBox6"; - CheckBox6.Size = new Size(152, 24); - CheckBox6.TabIndex = 25; - CheckBox6.Text = "aggiorna le sottodirectory"; - // - // Button3 - // - _Button3.Location = new Point(462, 40); - _Button3.Name = "_Button3"; - _Button3.Size = new Size(24, 20); - _Button3.TabIndex = 6; - _Button3.Text = "..."; - // - // Button2 - // - _Button2.Location = new Point(462, 16); - _Button2.Name = "_Button2"; - _Button2.Size = new Size(24, 20); - _Button2.TabIndex = 5; - _Button2.Text = "..."; - // - // Label1 - // - Label1.AutoSize = true; - Label1.ForeColor = Color.Black; - Label1.Location = new Point(6, 19); - Label1.Name = "Label1"; - Label1.Size = new Size(50, 13); - Label1.TabIndex = 3; - Label1.Text = "Sorgente"; - // - // Label2 - // - Label2.AutoSize = true; - Label2.ForeColor = Color.Black; - Label2.Location = new Point(6, 43); - Label2.Name = "Label2"; - Label2.Size = new Size(68, 13); - Label2.TabIndex = 4; - Label2.Text = "Destinazione"; - // - // TextBox1 - // - TextBox1.Location = new Point(80, 16); - TextBox1.Name = "TextBox1"; - TextBox1.Size = new Size(376, 20); - TextBox1.TabIndex = 0; - TextBox1.Text = "TextBox1"; - // - // TextBox2 - // - TextBox2.Location = new Point(80, 40); - TextBox2.Name = "TextBox2"; - TextBox2.Size = new Size(376, 20); - TextBox2.TabIndex = 1; - TextBox2.Text = "TextBox2"; - // - // GroupBox8 - // - GroupBox8.Controls.Add(RadioButton2); - GroupBox8.Controls.Add(RadioButton1); - GroupBox8.Controls.Add(TextBox21); - GroupBox8.Controls.Add(Label34); - GroupBox8.Controls.Add(TextBox20); - GroupBox8.Controls.Add(Label33); - GroupBox8.Controls.Add(Label31); - GroupBox8.Controls.Add(CheckBox11); - GroupBox8.Controls.Add(TextBox17); - GroupBox8.Controls.Add(Label32); - GroupBox8.ForeColor = Color.FromArgb(Conversions.ToInteger(Conversions.ToByte(0)), Conversions.ToInteger(Conversions.ToByte(0)), Conversions.ToInteger(Conversions.ToByte(192))); - GroupBox8.Location = new Point(204, 113); - GroupBox8.Name = "GroupBox8"; - GroupBox8.Size = new Size(192, 152); - GroupBox8.TabIndex = 47; - GroupBox8.TabStop = false; - GroupBox8.Text = "Sottocartelle"; - // - // RadioButton2 - // - RadioButton2.ForeColor = Color.Black; - RadioButton2.Location = new Point(32, 128); - RadioButton2.Name = "RadioButton2"; - RadioButton2.Size = new Size(136, 16); - RadioButton2.TabIndex = 38; - RadioButton2.Text = "Numerazione files"; - // - // RadioButton1 - // - RadioButton1.Checked = true; - RadioButton1.ForeColor = Color.Black; - RadioButton1.Location = new Point(32, 112); - RadioButton1.Name = "RadioButton1"; - RadioButton1.Size = new Size(152, 16); - RadioButton1.TabIndex = 37; - RadioButton1.TabStop = true; - RadioButton1.Text = "Numerazione progressiva"; - // - // TextBox21 - // - TextBox21.Location = new Point(128, 88); - TextBox21.Name = "TextBox21"; - TextBox21.Size = new Size(56, 20); - TextBox21.TabIndex = 34; - TextBox21.Text = "4"; - // - // Label34 - // - Label34.ForeColor = Color.Black; - Label34.Location = new Point(8, 88); - Label34.Name = "Label34"; - Label34.Size = new Size(112, 16); - Label34.TabIndex = 33; - Label34.Text = "Num. cifre contatore"; - Label34.TextAlign = ContentAlignment.MiddleRight; - // - // TextBox20 - // - TextBox20.Location = new Point(56, 64); - TextBox20.Name = "TextBox20"; - TextBox20.Size = new Size(128, 20); - TextBox20.TabIndex = 32; - TextBox20.Text = "TextBox20"; - // - // Label33 - // - Label33.ForeColor = Color.Black; - Label33.Location = new Point(6, 67); - Label33.Name = "Label33"; - Label33.Size = new Size(48, 16); - Label33.TabIndex = 31; - Label33.Text = "Suffisso"; - // - // Label31 - // - Label31.ForeColor = Color.Black; - Label31.Location = new Point(24, 40); - Label31.Name = "Label31"; - Label31.Size = new Size(32, 16); - Label31.TabIndex = 30; - Label31.Text = "ogni"; - // - // CheckBox11 - // - CheckBox11.ForeColor = Color.Black; - CheckBox11.Location = new Point(56, 16); - CheckBox11.Name = "CheckBox11"; - CheckBox11.Size = new Size(112, 16); - CheckBox11.TabIndex = 29; - CheckBox11.Text = "crea sottocartelle"; - // - // TextBox17 - // - TextBox17.Location = new Point(56, 40); - TextBox17.Name = "TextBox17"; - TextBox17.Size = new Size(64, 20); - TextBox17.TabIndex = 27; - TextBox17.Text = "99"; - // - // Label32 - // - Label32.ForeColor = Color.Black; - Label32.Location = new Point(128, 40); - Label32.Name = "Label32"; - Label32.Size = new Size(24, 16); - Label32.TabIndex = 28; - Label32.Text = "file"; - // - // GroupBox7 - // - GroupBox7.Controls.Add(CheckBox10); - GroupBox7.Controls.Add(CheckBox9); - GroupBox7.ForeColor = Color.FromArgb(Conversions.ToInteger(Conversions.ToByte(0)), Conversions.ToInteger(Conversions.ToByte(0)), Conversions.ToInteger(Conversions.ToByte(192))); - GroupBox7.Location = new Point(6, 113); - GroupBox7.Name = "GroupBox7"; - GroupBox7.Size = new Size(192, 88); - GroupBox7.TabIndex = 45; - GroupBox7.TabStop = false; - GroupBox7.Text = "Generale"; - // - // CheckBox10 - // - CheckBox10.ForeColor = Color.Black; - CheckBox10.Location = new Point(16, 37); - CheckBox10.Name = "CheckBox10"; - CheckBox10.Size = new Size(136, 16); - CheckBox10.TabIndex = 1; - CheckBox10.Text = "Rotazione automatica"; - // - // CheckBox9 - // - CheckBox9.Checked = true; - CheckBox9.CheckState = CheckState.Checked; - CheckBox9.ForeColor = Color.Black; - CheckBox9.Location = new Point(16, 18); - CheckBox9.Name = "CheckBox9"; - CheckBox9.Size = new Size(80, 16); - CheckBox9.TabIndex = 0; - CheckBox9.Text = "Forza Jpg"; - // - // TabControl1 - // - TabControl1.Controls.Add(TabPage5); - TabControl1.Controls.Add(TabPage3); - TabControl1.Controls.Add(TabPage2); - TabControl1.Controls.Add(TabPage1); - TabControl1.Controls.Add(TabPage4); - TabControl1.Location = new Point(12, 12); - TabControl1.Name = "TabControl1"; - TabControl1.SelectedIndex = 0; - TabControl1.Size = new Size(521, 352); - TabControl1.TabIndex = 48; - // - // ProgressBar1 - // - ProgressBar1.Location = new Point(539, 211); - ProgressBar1.Name = "ProgressBar1"; - ProgressBar1.Size = new Size(192, 23); - ProgressBar1.TabIndex = 52; - // - // CheckBox12 - // - _CheckBox12.ForeColor = Color.Black; - _CheckBox12.Location = new Point(10, 19); - _CheckBox12.Name = "_CheckBox12"; - _CheckBox12.Size = new Size(104, 21); - _CheckBox12.TabIndex = 35; - _CheckBox12.Text = "Aggiungi orario"; - // - // CheckBox4 - // - _CheckBox4.ForeColor = Color.Black; - _CheckBox4.Location = new Point(10, 3); - _CheckBox4.Name = "_CheckBox4"; - _CheckBox4.Size = new Size(104, 17); - _CheckBox4.TabIndex = 34; - _CheckBox4.Text = "Aggiungi scritta"; - // - // CheckBox18 - // - _CheckBox18.AutoSize = true; - _CheckBox18.Location = new Point(140, 3); - _CheckBox18.Name = "_CheckBox18"; - _CheckBox18.Size = new Size(84, 17); - _CheckBox18.TabIndex = 36; - _CheckBox18.Text = "Numero foto"; - _CheckBox18.UseVisualStyleBackColor = true; - // - // Panel1 - // - Panel1.Controls.Add(_CheckBox18); - Panel1.Controls.Add(_CheckBox4); - Panel1.Controls.Add(_CheckBox12); - Panel1.Location = new Point(52, 236); - Panel1.Name = "Panel1"; - Panel1.Size = new Size(304, 73); - Panel1.TabIndex = 26; - Panel1.Visible = false; - // - // Form1 - // - AutoScaleBaseSize = new Size(5, 13); - ClientSize = new Size(740, 375); - Controls.Add(ProgressBar1); - Controls.Add(Label44); - Controls.Add(CheckBox22); - Controls.Add(Label43); - Controls.Add(TabControl1); - Controls.Add(Label27); - Controls.Add(_Button7); - Controls.Add(_Button5); - Controls.Add(Label20); - Controls.Add(Label19); - Controls.Add(Label18); - Controls.Add(Label17); - Controls.Add(Label10); - Controls.Add(_Button1); - Controls.Add(_Button6); - MaximizeBox = false; - MaximumSize = new Size(756, 414); - MinimumSize = new Size(756, 414); - Name = "Form1"; - Text = "Image Catalog"; - TabPage4.ResumeLayout(false); - GroupBox6.ResumeLayout(false); - GroupBox6.PerformLayout(); - ((System.ComponentModel.ISupportInitialize)PictureBox2).EndInit(); - ((System.ComponentModel.ISupportInitialize)_PictureBox1).EndInit(); - ((System.ComponentModel.ISupportInitialize)PictureBox3).EndInit(); - TabPage1.ResumeLayout(false); - GroupBox1.ResumeLayout(false); - GroupBox1.PerformLayout(); - Panel2.ResumeLayout(false); - Panel2.PerformLayout(); - TabPage2.ResumeLayout(false); - GroupBox2.ResumeLayout(false); - GroupBox2.PerformLayout(); - TabPage3.ResumeLayout(false); - GroupBox10.ResumeLayout(false); - GroupBox10.PerformLayout(); - GroupBox9.ResumeLayout(false); - GroupBox9.PerformLayout(); - GroupBox5.ResumeLayout(false); - GroupBox5.PerformLayout(); - GroupBox4.ResumeLayout(false); - GroupBox4.PerformLayout(); - TabPage5.ResumeLayout(false); - GroupBox3.ResumeLayout(false); - GroupBox3.PerformLayout(); - GroupBox8.ResumeLayout(false); - GroupBox8.PerformLayout(); - GroupBox7.ResumeLayout(false); - TabControl1.ResumeLayout(false); - Panel1.ResumeLayout(false); - Panel1.PerformLayout(); - ResumeLayout(false); - PerformLayout(); - } - - /* TODO ERROR: Skipped EndRegionDirectiveTrivia */ - /* TODO ERROR: Skipped DefineDirectiveTrivia */ - private bool StopAttivo; - private bool WaterSelectColor = false; - private int ContaFotoCuori; - private PicInfo[] TaskCuori; - private XYThreadPool MyPool = new XYThreadPool(); - private int ContaImmaginiThread; - private const int maxThreads = 15; - - private void setDefaults() - { - TextBox1.Text = ""; - TextBox2.Text = ""; - TextBox3.Text = ""; - TextBox4.Text = ""; - TextBox5.Text = ""; - TextBox6.Text = ""; - TextBox27.Text = ""; - TextBox28.Text = ""; - TextBox9.Text = ""; - TextBox11.Text = ""; - TextBox12.Text = ""; - TextBox13.Text = ""; - TextBox10.Text = ""; - TextBox14.Text = ""; - TextBox15.Text = ""; - TextBox16.Text = ""; - TextBox17.Text = ""; - TextBox19.Text = ""; - TextBox20.Text = ""; - TextBox21.Text = ""; - TextBox25.Text = ""; - TextBox26.Text = ""; - ComboBox1.Items.Add("Alto"); - ComboBox1.Items.Add("Basso"); - ComboBox1.SelectedIndex = 1; - ComboBox2.Items.Add("Sinistra"); - ComboBox2.Items.Add("Centro"); - ComboBox2.Items.Add("Destra"); - ComboBox2.SelectedIndex = 1; - ComboBox3.Items.Add("Arial"); - ComboBox3.Items.Add("Arial Black"); - ComboBox3.Items.Add("Arial Narrow"); - ComboBox3.Items.Add("Comic Sans MS"); - ComboBox3.Items.Add("Courier New"); - ComboBox3.Items.Add("System"); - ComboBox3.Items.Add("Times New Roman"); - ComboBox3.Items.Add("Verdana"); - ComboBox3.Items.Add("Wingdings"); - ComboBox3.SelectedIndex = 7; - ComboBox4.Items.Add("Sinistra"); - ComboBox4.Items.Add("Centro"); - ComboBox4.Items.Add("Destra"); - ComboBox4.SelectedIndex = 2; - ComboBox5.Items.Add("Alto"); - ComboBox5.Items.Add("Centro"); - ComboBox5.Items.Add("Basso"); - ComboBox5.SelectedIndex = 2; - } - - private void Form1_Load(object sender, EventArgs e) - { - Application.EnableVisualStyles(); - setDefaults(); - } - - private void FixPaths() - { - if (TextBox1.Text.EndsWith(@"\") == false) - { - TextBox1.Text += @"\"; - } - - if (TextBox2.Text.EndsWith(@"\") == false) - { - TextBox2.Text += @"\"; - } - } - - private void lockUI() - { - TabControl1.Enabled = false; - Button5.Enabled = false; - Button6.Enabled = false; - Button1.Enabled = false; - } - - private void unlockUI() - { - TabControl1.Enabled = true; - Button5.Enabled = true; - Button6.Enabled = true; - Button1.Enabled = true; - } - - private void btnCreaCatalogo_Click(object sender, EventArgs e) - { - lockUI(); - DateTime timeStart; - DateTime timeStop; - timeStart = DateAndTime.TimeOfDay; - FixPaths(); - Label10.Text = ""; - Label17.Text = "0"; - Label18.Text = "0"; - setPicSettings(TextBox1.Text, TextBox2.Text); - /* TODO ERROR: Skipped IfDirectiveTrivia */ - ProgressBar1.Minimum = 0; - ProgressBar1.Step = 1; - ProgressBar1.Value = 0; - var t1 = new Thread(creaCatalogoThread); - t1.IsBackground = true; - t1.Start(); - - /* TODO ERROR: Skipped ElseDirectiveTrivia *//* TODO ERROR: Skipped DisabledTextTrivia *//* TODO ERROR: Skipped EndIfDirectiveTrivia */ - - - - } - - private void creaCatalogoThread() - { - var timeStart = DateAndTime.TimeOfDay; - MyPool.StopThreadPool(); - MyPool.StartThreadPool(0, maxThreads); - ContaImmaginiThread = 0; - creaImmaginiWithThreadMod(TextBox1.Text, TextBox2.Text); - ThreadPoolWorkItem ThAttivo = null; - int i = 0; - while (i != ContaImmaginiThread) - { - Thread.Sleep(100); - ThAttivo = MyPool.ExtractWorkItem(); - if (ThAttivo is object) - { - i += 1; - // stepProgressBar() - setLabel10Text("File: " + ThAttivo.m_sName); - - // setLabel18Text(ContaImmaginiThread.ToString) - // setLabel18Text(i.ToString) - - - // Label10.Text = "File: " & ThAttivo.m_sName - // Label18.Text = ContaImmaginiThread.ToString - } - } - - MyPool.StopThreadPool(); - var timeStop = DateAndTime.TimeOfDay; - setLabel10Text("Finito"); - setLabel43Text(CalcTime(timeStart, timeStop)); - } - - private void creaCatalogo(DateTime timeStart, DateTime timeStop) - { - // asdfg - MyPool.StopThreadPool(); - MyPool.StartThreadPool(0, maxThreads); - ContaImmaginiThread = 0; - creaImmaginiWithThreadMod(TextBox1.Text, TextBox2.Text); - ThreadPoolWorkItem ThAttivo = null; - int i = 0; - while (i != ContaImmaginiThread) - { - Thread.Sleep(100); - ThAttivo = MyPool.ExtractWorkItem(); - if (ThAttivo is object) - { - i += 1; - Label10.Text = "File: " + ThAttivo.m_sName; - Label18.Text = ContaImmaginiThread.ToString(); - } - } - - MyPool.StopThreadPool(); - timeStop = DateAndTime.TimeOfDay; - CalcTime(timeStart, timeStop); - Label10.Text = "Finito"; - if (CheckBox22.Checked == true) - { - Interaction.Shell(@"%windir%\System32\shutdown.exe"); - } - } - - private string CalcTime(DateTime timeStart, DateTime timeStop) - { - long timediffH, timediffS; - long timediffM; - timediffM = DateAndTime.DateDiff(DateInterval.Minute, timeStart, timeStop); - timediffS = DateAndTime.DateDiff(DateInterval.Second, timeStart, timeStop); - timediffH = DateAndTime.DateDiff(DateInterval.Hour, timeStart, timeStop); - // dim s As String = "H:" + timediffH.ToString + " M:" + timediffM.ToString + " S:" + timediffS.ToString - string s = "S:" + timediffS.ToString(); - // Label43.Text = "H:" + timediffH.ToString + " M:" + timediffM.ToString + " S:" + timediffS.ToString - return s; - } - - private void Button2_Click(object sender, EventArgs e) - { - var DirSearch = new FolderBrowserDialog(); - DirSearch.SelectedPath = TextBox1.Text; - if (DialogResult.OK == DirSearch.ShowDialog()) - { - string DirectoryScelta = DirSearch.SelectedPath; - if (DirectoryScelta.EndsWith(@"\") == false) - { - DirectoryScelta += @"\"; - } - - TextBox1.Text = DirectoryScelta; - } - } - - private void Button3_Click(object sender, EventArgs e) - { - var DirSearch = new FolderBrowserDialog(); - DirSearch.SelectedPath = TextBox2.Text; - if (DialogResult.OK == DirSearch.ShowDialog()) - { - string DirectoryScelta = DirSearch.SelectedPath; - if (DirectoryScelta.EndsWith(@"\") == false) - { - DirectoryScelta += @"\"; - } - - TextBox2.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) - { - var SaveFileDlg = new SaveFileDialog(); - - // SaveFileDlg.InitialDirectory = "c:\" - SaveFileDlg.Filter = "Setup (*.xml)|*.xml|All valid files (*.*)|*.*"; - SaveFileDlg.FilterIndex = 0; - SaveFileDlg.RestoreDirectory = true; - if (DialogResult.OK == SaveFileDlg.ShowDialog()) - { - string IlNome = SaveFileDlg.FileName; - Module1.SetupIni.NomeFileSetup = IlNome; - Module1.SetupIni.AggiornaParametro("DirSorgente", TextBox1.Text); - Module1.SetupIni.AggiornaParametro("DirDestinazione", TextBox2.Text); - Module1.SetupIni.AggiornaParametro("DirSottoDirectory", CheckBox6.Checked); - Module1.SetupIni.AggiornaParametro("DirDividiDestinazione", CheckBox11.Checked); - Module1.SetupIni.AggiornaParametro("DirDividiNumFile", TextBox17.Text); - Module1.SetupIni.AggiornaParametro("DirDividiSuffisso", TextBox20.Text); - Module1.SetupIni.AggiornaParametro("DirDividiNumCifre", TextBox21.Text); - if (RadioButton1.Checked == true) - { - Module1.SetupIni.AggiornaParametro("DirDividiTipoNumerazione", "Progressiva"); - } - else - { - Module1.SetupIni.AggiornaParametro("DirDividiTipoNumerazione", "Files"); - } - - Module1.SetupIni.AggiornaParametro("MiniatureCrea", CheckBox1.Checked); - Module1.SetupIni.AggiornaParametro("MiniatureSuffisso", TextBox3.Text); - Module1.SetupIni.AggiornaParametro("MiniatureAltezza", TextBox5.Text); - Module1.SetupIni.AggiornaParametro("MiniatureLarghezza", TextBox6.Text); - Module1.SetupIni.AggiornaParametro("MiniatureAddScritta", RadioButton3.Checked); - Module1.SetupIni.AggiornaParametro("MiniatureAddOrario", RadioButton4.Checked); - Module1.SetupIni.AggiornaParametro("FotoAltezza", TextBox27.Text); - Module1.SetupIni.AggiornaParametro("FotoLarghezza", TextBox28.Text); - Module1.SetupIni.AggiornaParametro("FotoCodice", TextBox13.Text); - Module1.SetupIni.AggiornaParametro("FotoDimOriginali", CheckBox2.Checked); - Module1.SetupIni.AggiornaParametro("FontDimensione", TextBox11.Text); - Module1.SetupIni.AggiornaParametro("FontDimensioneMiniatura", TextBox25.Text); - Module1.SetupIni.AggiornaParametro("FontBold", CheckBox3.Checked); - Module1.SetupIni.AggiornaParametro("FontNome", ComboBox3.Text); - Module1.SetupIni.AggiornaParametro("TestoTesto", TextBox4.Text); - Module1.SetupIni.AggiornaParametro("TestoTrasparente", TextBox9.Text); - Module1.SetupIni.AggiornaParametro("TestoMargine", TextBox12.Text); - Module1.SetupIni.AggiornaParametro("TestoPosizione", ComboBox1.Text); - Module1.SetupIni.AggiornaParametro("TestoAllineamento", ComboBox2.Text); - Module1.SetupIni.AggiornaParametro("MarchioFile", TextBox10.Text); - Module1.SetupIni.AggiornaParametro("MarchioAltezza", TextBox14.Text); - Module1.SetupIni.AggiornaParametro("MarchioLarghezza", TextBox15.Text); - Module1.SetupIni.AggiornaParametro("MarchioMargine", TextBox16.Text); - Module1.SetupIni.AggiornaParametro("MarchioAllOrizzontale", ComboBox4.Text); - Module1.SetupIni.AggiornaParametro("MarchioAllVerticale", ComboBox5.Text); - Module1.SetupIni.AggiornaParametro("MarchioTrasparenza", TextBox19.Text); - Module1.SetupIni.AggiornaParametro("MarchioAggiungi", CheckBox5.Checked); - Module1.SetupIni.AggiornaParametro("TempoGara", CheckBox7.Checked); - Module1.SetupIni.AggiornaParametro("Orario", CheckBox8.Checked); - Module1.SetupIni.AggiornaParametro("EtichettaOrario", TextBox18.Text); - Module1.SetupIni.AggiornaParametro("GeneraleForzaJpg", CheckBox9.Checked); - Module1.SetupIni.AggiornaParametro("GeneraleRotazioneAutomatica", CheckBox10.Checked); - Module1.SetupIni.AggiornaParametro("GrandezzaVerticale", TextBox30.Text); - Module1.SetupIni.AggiornaParametro("MargineVerticale", TextBox31.Text); - Module1.SetupIni.AggiornaParametro("DimensioniOriginali", CheckBox15.Checked); - Module1.SetupIni.AggiornaParametro("TestoVerticale", TextBox29.Text); - Module1.SetupIni.AggiornaParametro("NomeMiniatura", RadioButton6.Checked); - Module1.SetupIni.AggiornaParametro("DataFoto", CheckBox16.Checked); - Module1.SetupIni.AggiornaParametro("NumeroFoto", CheckBox17.Checked); - Module1.SetupIni.AggiornaParametro("ColoreTestoRGB", TextBox34.Text); - Module1.SetupIni.AggiornaParametro("TempoSmall", RadioButton5.Checked); - Module1.SetupIni.AggiornaParametro("NumTempoSmall", RadioButton7.Checked); - Module1.SetupIni.AggiornaParametro("CompressioneJpeg", TextBox32.Text); - Module1.SetupIni.AggiornaParametro("CompressioneJpegMiniatura", TextBox33.Text); - Module1.SetupIni.SalvaParametriSetup(); - Text = "Image Catalog - " + LeggiSoloNomeFile(IlNome); - } - } - - private void Button6_Click(object sender, EventArgs e) - { - var openFileDialog = new OpenFileDialog(); - - // openFileDialog.InitialDirectory = TextBox1.Text - openFileDialog.Filter = "Setup (*.xml)|*.xml|All valid files (*.*)|*.*"; - openFileDialog.FilterIndex = 0; - openFileDialog.RestoreDirectory = true; - if (DialogResult.OK == openFileDialog.ShowDialog()) - { - string IlNome = openFileDialog.FileName; - Module1.SetupIni.NomeFileSetup = IlNome; - Module1.SetupIni.CaricaParametriSetup(); - TextBox1.Text = Module1.SetupIni.LeggiParametroString("DirSorgente"); - TextBox2.Text = Module1.SetupIni.LeggiParametroString("DirDestinazione"); - CheckBox6.Checked = Module1.SetupIni.LeggiParametroBoolean("DirSottoDirectory"); - CheckBox11.Checked = Module1.SetupIni.LeggiParametroBoolean("DirDividiDestinazione"); - TextBox17.Text = Module1.SetupIni.LeggiParametroString("DirDividiNumFile"); - TextBox20.Text = Module1.SetupIni.LeggiParametroString("DirDividiSuffisso"); - TextBox21.Text = Module1.SetupIni.LeggiParametroString("DirDividiNumCifre"); - string TestoTemp = Module1.SetupIni.LeggiParametroString("DirDividiTipoNumerazione"); - if (TestoTemp.ToUpper() == "PROGRESSIVA") - { - RadioButton1.Checked = true; - } - else - { - RadioButton2.Checked = true; - } - - CheckBox1.Checked = Module1.SetupIni.LeggiParametroBoolean("MiniatureCrea"); - TextBox3.Text = Module1.SetupIni.LeggiParametroString("MiniatureSuffisso"); - TextBox5.Text = Module1.SetupIni.LeggiParametroString("MiniatureAltezza"); - TextBox6.Text = Module1.SetupIni.LeggiParametroString("MiniatureLarghezza"); - RadioButton3.Checked = Module1.SetupIni.LeggiParametroBoolean("MiniatureAddScritta"); - RadioButton4.Checked = Module1.SetupIni.LeggiParametroBoolean("MiniatureAddOrario"); - TextBox27.Text = Module1.SetupIni.LeggiParametroString("FotoAltezza"); - TextBox28.Text = Module1.SetupIni.LeggiParametroString("FotoLarghezza"); - TextBox13.Text = Module1.SetupIni.LeggiParametroString("FotoCodice"); - CheckBox2.Checked = Module1.SetupIni.LeggiParametroBoolean("FotoDimOriginali"); - TextBox11.Text = Module1.SetupIni.LeggiParametroString("FontDimensione"); - TextBox25.Text = Module1.SetupIni.LeggiParametroString("FontDimensioneMiniatura"); - CheckBox3.Checked = Module1.SetupIni.LeggiParametroBoolean("FontBold"); - ComboBox3.Text = Module1.SetupIni.LeggiParametroString("FontNome"); - if (string.IsNullOrEmpty(TextBox25.Text)) - { - TextBox25.Text = "0"; - } - - TextBox4.Text = Module1.SetupIni.LeggiParametroString("TestoTesto"); - TextBox9.Text = Module1.SetupIni.LeggiParametroString("TestoTrasparente"); - TextBox12.Text = Module1.SetupIni.LeggiParametroString("TestoMargine"); - ComboBox1.Text = Module1.SetupIni.LeggiParametroString("TestoPosizione"); - ComboBox2.Text = Module1.SetupIni.LeggiParametroString("TestoAllineamento"); - TextBox10.Text = Module1.SetupIni.LeggiParametroString("MarchioFile"); - TextBox14.Text = Module1.SetupIni.LeggiParametroString("MarchioAltezza"); - TextBox15.Text = Module1.SetupIni.LeggiParametroString("MarchioLarghezza"); - TextBox16.Text = Module1.SetupIni.LeggiParametroString("MarchioMargine"); - ComboBox4.Text = Module1.SetupIni.LeggiParametroString("MarchioAllOrizzontale"); - ComboBox5.Text = Module1.SetupIni.LeggiParametroString("MarchioAllVerticale"); - TextBox19.Text = Module1.SetupIni.LeggiParametroString("MarchioTrasparenza"); - CheckBox5.Checked = Module1.SetupIni.LeggiParametroBoolean("MarchioAggiungi"); - CheckBox7.Checked = Module1.SetupIni.LeggiParametroBoolean("TempoGara"); - CheckBox8.Checked = Module1.SetupIni.LeggiParametroBoolean("Orario"); - TextBox18.Text = Module1.SetupIni.LeggiParametroString("EtichettaOrario"); - CheckBox9.Checked = Module1.SetupIni.LeggiParametroBoolean("GeneraleForzaJpg"); - CheckBox10.Checked = Module1.SetupIni.LeggiParametroBoolean("GeneraleRotazioneAutomatica"); - TextBox30.Text = Module1.SetupIni.LeggiParametroString("GrandezzaVerticale"); - TextBox31.Text = Module1.SetupIni.LeggiParametroString("MargineVerticale"); - CheckBox15.Checked = Module1.SetupIni.LeggiParametroBoolean("DimensioniOriginali"); - TextBox29.Text = Module1.SetupIni.LeggiParametroString("TestoVerticale"); - RadioButton6.Checked = Module1.SetupIni.LeggiParametroBoolean("NomeMiniatura"); - CheckBox16.Checked = Module1.SetupIni.LeggiParametroBoolean("DataFoto"); - CheckBox17.Checked = Module1.SetupIni.LeggiParametroBoolean("NumeroFoto"); - RadioButton5.Checked = Module1.SetupIni.LeggiParametroBoolean("TempoSmall"); - RadioButton7.Checked = Module1.SetupIni.LeggiParametroBoolean("NumTempoSmall"); - TextBox32.Text = Module1.SetupIni.LeggiParametroString("CompressioneJpeg"); - TextBox33.Text = Module1.SetupIni.LeggiParametroString("CompressioneJpegMiniatura"); - TextBox34.Text = Module1.SetupIni.LeggiParametroString("ColoreTestoRGB"); - if (File.Exists(TextBox10.Text)) - { - PictureBox1.Image = Image.FromFile(TextBox10.Text); - if (PictureBox1.Image.Height >= PictureBox1.Image.Width) - { - PictureBox1.Height = 160; - PictureBox1.Width = Conversions.ToInteger(160 * PictureBox1.Image.Width / (double)PictureBox1.Image.Height); - } - else - { - PictureBox1.Width = 224; - PictureBox1.Height = Conversions.ToInteger(224 * PictureBox1.Image.Height / (double)PictureBox1.Image.Width); - } - } - - Text = "Image Catalog - " + LeggiSoloNomeFile(IlNome); - } - } - - private void setPicSettings(string SourcePath, string DestPath) - { - var SourceDir = new DirectoryInfo(SourcePath); - var DestDirStart = new DirectoryInfo(DestPath); - DirectoryInfo DestDir = null; - PicSettings.DirectorySorgente = TextBox1.Text; - PicSettings.DirectoryDestinazione = TextBox2.Text; - - // PicSettings.DestDir = DestDir - // PicSettings.SourceDir = SourceDir - // PicSettings.DestDirStart = DestDirStart - - PicSettings.DimStandard = Conversions.ToInteger(TextBox11.Text); - PicSettings.DimStandardMiniatura = Conversions.ToInteger(TextBox25.Text); - PicSettings.UsaOrarioMiniatura = CheckBox12.Checked; - PicSettings.UsaOrarioTestoApplicare = CheckBox8.Checked; - PicSettings.UsaTempoGaraTestoApplicare = CheckBox7.Checked; - PicSettings.UsaRotazioneAutomatica = CheckBox10.Checked; - PicSettings.UsaForzaJpg = CheckBox9.Checked; - if (CheckBox17.Checked) - { - PicSettings.TestoNome = true; - } - else - { - PicSettings.TestoNome = false; - } - - if (CheckBox16.Checked) - { - PicSettings.NomeData = true; - } - else - { - PicSettings.NomeData = false; - } - - PicSettings.TestoFirmaStart = TextBox4.Text; - PicSettings.TestoFirmaStartV = TextBox29.Text; - PicSettings.DataPartenza = DateTimePicker1.Value; - PicSettings.TestoOrario = TextBox18.Text; - PicSettings.AltezzaSmall = Conversions.ToInteger(TextBox5.Text); - PicSettings.LarghezzaSmall = Conversions.ToInteger(TextBox5.Text); - PicSettings.CreaMiniature = CheckBox1.Checked; - PicSettings.AggiungiScritteMiniature = RadioButton3.Checked; - PicSettings.AggTempoGaraMin = RadioButton5.Checked; - PicSettings.AggNumTempMin = RadioButton7.Checked; - PicSettings.DimVert = Conversions.ToInteger(TextBox30.Text); - PicSettings.MargVert = Conversions.ToInteger(TextBox31.Text); - - // PicSettings.NomeFileChild = childFile.Name - PicSettings.Suffisso = TextBox3.Text; - PicSettings.Codice = TextBox13.Text; - PicSettings.Trasparenza = Conversions.ToInteger(TextBox9.Text); - PicSettings.IlFont = ComboBox3.SelectedItem.ToString(); - PicSettings.Grassetto = CheckBox3.Checked; - PicSettings.Posizione = ComboBox1.SelectedItem.ToString(); - PicSettings.Allineamento = ComboBox2.SelectedItem.ToString(); - PicSettings.Margine = Conversions.ToInteger(TextBox12.Text); - PicSettings.LogoAltezza = Conversions.ToInteger(TextBox14.Text); - PicSettings.LogoLarghezza = Conversions.ToInteger(TextBox15.Text); - PicSettings.fontColoreRGB = ColorTranslator.FromHtml(TextBox34.Text); - PicSettings.LogoAggiungi = CheckBox5.Checked; - PicSettings.LogoNomeFile = TextBox10.Text; - PicSettings.LogoTrasparenza = TextBox19.Text; - PicSettings.LogoMargine = TextBox16.Text; - PicSettings.LogoPosizioneH = ComboBox4.Text; - PicSettings.LogoPosizioneV = ComboBox5.Text; - PicSettings.FotoGrandeDimOrigina = CheckBox15.Checked; - PicSettings.AltezzaBig = Conversions.ToInteger(TextBox27.Text); - PicSettings.LarghezzaBig = Conversions.ToInteger(TextBox28.Text); - PicSettings.DimMin = Conversions.ToInteger(TextBox25.Text); - PicSettings.TestoMin = RadioButton6.Checked; - PicSettings.jpegQuality = Conversions.ToLong(TextBox32.Text); - PicSettings.jpegQualityMin = Conversions.ToLong(TextBox33.Text); - - // PicSettings.mainForm = Me - - - } - - private List> makeFilesList(string SourcePath) - { - var SourceDir = new DirectoryInfo(SourcePath); - DirectoryInfo DestDir = null; - int NumFileXDir = Conversions.ToInteger(TextBox17.Text); - string SuffixDir = TextBox20.Text; - int NumCifreDir = Conversions.ToInteger(TextBox21.Text); - bool DividiFile = false; - StopAttivo = false; - int FileConta = 0; - int ContaFileXDir = 0; - int ContaDirXDir = 0; - string TestoTemp = ""; - int ContaTemp = 0; - var picList = new List(); - var dirList = new List>(); - - - // controlla directory principale - // Dim childFile As FileInfo - // For Each childFile In SourceDir.GetFiles("*.jpg") - // picList.Add(childFile) - // Next - - picList = getFiles(SourceDir); - dirList.Add(picList); - - // controlla sottodirectory - if (CheckBox6.Checked == true) - { - foreach (var subDir in SourceDir.GetDirectories()) - { - var filesList = new List(); - filesList = getFiles(subDir); - dirList.Add(filesList); - } - } - - return dirList; - } - - private List getFiles(DirectoryInfo sourceDir) - { - var picList = new List(); - foreach (var childFile in sourceDir.GetFiles("*.jpg")) - picList.Add(childFile); - return picList; - } - - private List> dividiLista(string SourcePath, List> lista) - { - var SourceDir = new DirectoryInfo(SourcePath); - int NumFileXDir = Conversions.ToInteger(TextBox17.Text); - string SuffixDir = TextBox20.Text; - int NumCifreDir = Conversions.ToInteger(TextBox21.Text); - bool DividiFile = false; - int FileConta = 0; - int ContaFileXDir = 0; - int ContaDirXDir = 0; - string TestoTemp = ""; - int ContaTemp = 0; - if (NumFileXDir > 0 & CheckBox11.Checked == true) - { - if (FileConta > NumFileXDir) - { - DividiFile = true; - } - else - { - } - } - - return default; - } - - private void setLabel17Text(string text) - { - if (Label17.InvokeRequired) - { - Label17.Invoke(new Action(setLabel17Text), text); - } - else - { - Label17.Text = text; - } - } - - public void stepProgressBar() - { - if (ProgressBar1.InvokeRequired) - { - ProgressBar1.Invoke(new MethodInvoker(ProgressBar1.PerformStep)); - } - else - { - ProgressBar1.PerformStep(); - } - - setLabel18Text(ProgressBar1.Value.ToString()); - } - - private void setLabel10Text(string text) - { - if (Label10.InvokeRequired) - { - Label10.Invoke(new Action(setLabel10Text), text); - } - else - { - Label10.Text = text; - } - } - - private void setProgressBarMaximum(int value) - { - if (ProgressBar1.InvokeRequired) - { - ProgressBar1.Invoke(new Action(setProgressBarMaximum), (object)value); - } - else - { - ProgressBar1.Maximum = value; - } - } - - private void setProgressBarValue(int value) - { - if (ProgressBar1.InvokeRequired) - { - ProgressBar1.Invoke(new Action(setProgressBarValue), (object)value); - } - else - { - ProgressBar1.Value = value; - } - } - - private void setLabel18Text(string text) - { - if (Label18.InvokeRequired) - { - Label18.Invoke(new Action(setLabel18Text), text); - } - else - { - Label18.Text = text; - } - } - - private void setLabel43Text(string text) - { - if (Label43.InvokeRequired) - { - Label43.Invoke(new Action(setLabel43Text), text); - } - else - { - Label43.Text = text; - } - } - - private void creaImmaginiWithThreadMod(string SourcePath, string DestPath) - { - var SourceDir = new DirectoryInfo(SourcePath); - var DestDirStart = new DirectoryInfo(DestPath); - DirectoryInfo DestDir = null; - int NumFileXDir = Conversions.ToInteger(TextBox17.Text); - string SuffixDir = TextBox20.Text; - int NumCifreDir = Conversions.ToInteger(TextBox21.Text); - bool DividiFile = false; - StopAttivo = false; - int FileConta = 0; - int ContaFileXDir = 0; - int ContaDirXDir = 0; - string TestoTemp = ""; - int ContaTemp = 0; - if (SourceDir.Exists) - { - FileConta = SourceDir.GetFiles("*.jpg").GetLength(0); - // Label17.Text = (CType(Label17.Text, Integer) + FileConta).ToString - string a = (Conversions.ToInteger(Label17.Text) + FileConta).ToString(); - setLabel17Text(a); - setProgressBarMaximum(Conversions.ToInteger(a)); - if (NumFileXDir > 0 & CheckBox11.Checked == true) - { - if (FileConta > NumFileXDir) - { - DividiFile = true; - } - else - { - DestDir = DestDirStart; - if (!DestDir.Exists) - { - DestDir.Create(); - } - - DividiFile = false; - } - } - else - { - DestDir = DestDirStart; - if (!DestDir.Exists) - { - DestDir.Create(); - } - - DividiFile = false; - } - - foreach (var childFile in SourceDir.GetFiles("*.jpg")) - { - if (StopAttivo == true) - { - break; - } - - setLabel10Text("File: " + childFile.Name); - string b = (Conversions.ToInteger(Label18.Text) + 1).ToString(); - // setLabel18Text(b) - // setProgressBarValue(CInt(b)) - // Label10.Text = "File: " & childFile.Name - // Label18.Text = (CType(Label18.Text, Integer) + 1).ToString - // Application.DoEvents() - - ContaFileXDir += 1; - if (DividiFile == true) - { - if (ContaFileXDir == ContaDirXDir * NumFileXDir + 1) - { - ContaDirXDir += 1; - if (RadioButton1.Checked == true) - { - TestoTemp = ContaDirXDir.ToString(); - } - else - { - TestoTemp = (ContaDirXDir * NumFileXDir).ToString(); - } - - var loopTo = NumCifreDir - TestoTemp.Length; - for (ContaTemp = 1; ContaTemp <= loopTo; ContaTemp++) - TestoTemp = "0" + TestoTemp; - if (DestDirStart.FullName.EndsWith(@"\")) - { - DestDir = new DirectoryInfo(DestDirStart.FullName + SuffixDir + TestoTemp); - } - else - { - DestDir = new DirectoryInfo(DestDirStart.FullName + @"\" + SuffixDir + TestoTemp); - } - - if (!DestDir.Exists) - { - DestDir.Create(); - } - } - } - - // Application.DoEvents() - - - - var ClsCreaImmagine = new ImageCreator(); - ClsCreaImmagine.NomeFileChild = childFile.Name; - ClsCreaImmagine.DestDir = DestDir; - ClsCreaImmagine.SourceDir = SourceDir; - ClsCreaImmagine.DestDirStart = DestDirStart; - ContaImmaginiThread += 1; - MyPool.InsertWorkItem(childFile.Name, new XyThreadAdd(ClsCreaImmagine.CreaImmagineThread), new object[1] { childFile.Name }, true); - } - // copy all the sub-directories by recursively calling this same routine - if (CheckBox6.Checked == true) - { - foreach (var subDir in SourceDir.GetDirectories()) - creaImmaginiWithThreadMod(subDir.FullName, Path.Combine(DestDir.FullName, subDir.Name)); - } - } - } - - // il posto giusto dove fare modifiche - private void CreaImmaginiWithThread(string SourcePath, string DestPath) - { - var SourceDir = new DirectoryInfo(SourcePath); - var DestDirStart = new DirectoryInfo(DestPath); - DirectoryInfo DestDir = null; - int NumFileXDir = Conversions.ToInteger(TextBox17.Text); - string SuffixDir = TextBox20.Text; - int NumCifreDir = Conversions.ToInteger(TextBox21.Text); - bool DividiFile = false; - StopAttivo = false; - int FileConta = 0; - int ContaFileXDir = 0; - int ContaDirXDir = 0; - string TestoTemp = ""; - int ContaTemp = 0; - if (SourceDir.Exists) - { - FileConta = SourceDir.GetFiles("*.jpg").GetLength(0); - Label17.Text = (Conversions.ToInteger(Label17.Text) + FileConta).ToString(); - if (NumFileXDir > 0 & CheckBox11.Checked == true) - { - if (FileConta > NumFileXDir) - { - DividiFile = true; - } - else - { - DestDir = DestDirStart; - if (!DestDir.Exists) - { - DestDir.Create(); - } - - DividiFile = false; - } - } - else - { - DestDir = DestDirStart; - if (!DestDir.Exists) - { - DestDir.Create(); - } - - DividiFile = false; - } - - foreach (var childFile in SourceDir.GetFiles("*.jpg")) - { - if (StopAttivo == true) - { - break; - } - // Label10.Text = "File: " & childFile.Name - // Label18.Text = (CType(Label18.Text, Integer) + 1).ToString - // Application.DoEvents() - - ContaFileXDir += 1; - if (DividiFile == true) - { - if (ContaFileXDir == ContaDirXDir * NumFileXDir + 1) - { - ContaDirXDir += 1; - if (RadioButton1.Checked == true) - { - TestoTemp = ContaDirXDir.ToString(); - } - else - { - TestoTemp = (ContaDirXDir * NumFileXDir).ToString(); - } - - var loopTo = NumCifreDir - TestoTemp.Length; - for (ContaTemp = 1; ContaTemp <= loopTo; ContaTemp++) - TestoTemp = "0" + TestoTemp; - if (DestDirStart.FullName.EndsWith(@"\")) - { - DestDir = new DirectoryInfo(DestDirStart.FullName + SuffixDir + TestoTemp); - } - else - { - DestDir = new DirectoryInfo(DestDirStart.FullName + @"\" + SuffixDir + TestoTemp); - } - - if (!DestDir.Exists) - { - DestDir.Create(); - } - } - } - - Application.DoEvents(); - var ClsCreaImmagine = new CreaImmagineSeparateThread(); - ClsCreaImmagine.DirectorySorgente = TextBox1.Text; - ClsCreaImmagine.DirectoryDestinazione = TextBox2.Text; - ClsCreaImmagine.DestDir = DestDir; - ClsCreaImmagine.SourceDir = SourceDir; - ClsCreaImmagine.DestDirStart = DestDirStart; - ClsCreaImmagine.DimStandard = Conversions.ToInteger(TextBox11.Text); - ClsCreaImmagine.DimStandardMiniatura = Conversions.ToInteger(TextBox25.Text); - ClsCreaImmagine.UsaOrarioMiniatura = CheckBox12.Checked; - ClsCreaImmagine.UsaOrarioTestoApplicare = CheckBox8.Checked; - ClsCreaImmagine.UsaTempoGaraTestoApplicare = CheckBox7.Checked; - ClsCreaImmagine.UsaRotazioneAutomatica = CheckBox10.Checked; - ClsCreaImmagine.UsaForzaJpg = CheckBox9.Checked; - if (CheckBox17.Checked) - { - ClsCreaImmagine.TestoNome = true; - } - else - { - ClsCreaImmagine.TestoNome = false; - } - - if (CheckBox16.Checked) - { - ClsCreaImmagine.NomeData = true; - } - else - { - ClsCreaImmagine.NomeData = false; - } - - ClsCreaImmagine.TestoFirmaStart = TextBox4.Text; - ClsCreaImmagine.TestoFirmaStartV = TextBox29.Text; - ClsCreaImmagine.DataPartenza = DateTimePicker1.Value; - ClsCreaImmagine.TestoOrario = TextBox18.Text; - ClsCreaImmagine.AltezzaSmall = Conversions.ToInteger(TextBox5.Text); - ClsCreaImmagine.LarghezzaSmall = Conversions.ToInteger(TextBox5.Text); - ClsCreaImmagine.CreaMiniature = CheckBox1.Checked; - ClsCreaImmagine.AggiungiScritteMiniature = RadioButton3.Checked; - ClsCreaImmagine.AggTempoGaraMin = RadioButton5.Checked; - ClsCreaImmagine.AggNumTempMin = RadioButton7.Checked; - ClsCreaImmagine.DimVert = Conversions.ToInteger(TextBox30.Text); - ClsCreaImmagine.MargVert = Conversions.ToInteger(TextBox31.Text); - ClsCreaImmagine.NomeFileChild = childFile.Name; - ClsCreaImmagine.Suffisso = TextBox3.Text; - ClsCreaImmagine.Codice = TextBox13.Text; - ClsCreaImmagine.Trasparenza = Conversions.ToInteger(TextBox9.Text); - ClsCreaImmagine.IlFont = ComboBox3.SelectedItem.ToString(); - ClsCreaImmagine.Grassetto = CheckBox3.Checked; - ClsCreaImmagine.Posizione = ComboBox1.SelectedItem.ToString(); - ClsCreaImmagine.Allineamento = ComboBox2.SelectedItem.ToString(); - ClsCreaImmagine.Margine = Conversions.ToInteger(TextBox12.Text); - ClsCreaImmagine.LogoAltezza = Conversions.ToInteger(TextBox14.Text); - ClsCreaImmagine.LogoLarghezza = Conversions.ToInteger(TextBox15.Text); - - // ClsCreaImmagine.FontColoreR = CType(TextBox22.Text, Integer) - // ClsCreaImmagine.FontColoreG = CType(TextBox23.Text, Integer) - // ClsCreaImmagine.FontColoreB = CType(TextBox24.Text, Integer) - ClsCreaImmagine.fontColoreRGB = ColorTranslator.FromHtml(TextBox34.Text); - ClsCreaImmagine.LogoAggiungi = CheckBox5.Checked; - ClsCreaImmagine.LogoNomeFile = TextBox10.Text; - ClsCreaImmagine.LogoTrasparenza = TextBox19.Text; - ClsCreaImmagine.LogoMargine = TextBox16.Text; - ClsCreaImmagine.LogoPosizioneH = ComboBox4.Text; - ClsCreaImmagine.LogoPosizioneV = ComboBox5.Text; - ClsCreaImmagine.FotoGrandeDimOrigina = CheckBox15.Checked; - ClsCreaImmagine.AltezzaBig = Conversions.ToInteger(TextBox27.Text); - ClsCreaImmagine.LarghezzaBig = Conversions.ToInteger(TextBox28.Text); - ClsCreaImmagine.DimMin = Conversions.ToInteger(TextBox25.Text); - ClsCreaImmagine.TestoMin = RadioButton6.Checked; - ClsCreaImmagine.jpegQuality = Conversions.ToLong(TextBox32.Text); - ClsCreaImmagine.jpegQuality = Conversions.ToLong(TextBox33.Text); - ContaImmaginiThread += 1; - MyPool.InsertWorkItem(childFile.Name, new XyThreadAdd(ClsCreaImmagine.CreaImmagineThread), new object[1] { childFile.Name }, true); - } - // copy all the sub-directories by recursively calling this same routine - if (CheckBox6.Checked == true) - { - foreach (var subDir in SourceDir.GetDirectories()) - CreaImmaginiWithThread(subDir.FullName, Path.Combine(DestDir.FullName, subDir.Name)); - } - } - } - - private void CopyDirectoryFile(string SourcePath, string DestPath, bool OverWrite = false) - { - var SourceDir = new DirectoryInfo(SourcePath); - var DestDir = new DirectoryInfo(DestPath); - if (SourceDir.Exists) - { - if (!DestDir.Exists) - { - DestDir.Create(); - // copy all the files of the current directory - } - - foreach (var childFile in SourceDir.GetFiles()) - { - if (OverWrite) - { - childFile.CopyTo(Path.Combine(DestDir.FullName, childFile.Name), true); - } - // if overwrite = false, copy the file only if it does not exist - // this is done to avoid an IOException if a file already exists - // this way the other files can be copied anyway... - else if (!File.Exists(Path.Combine(DestDir.FullName, childFile.Name))) - { - childFile.CopyTo(Path.Combine(DestDir.FullName, childFile.Name), false); - } - // copy all the sub-directories by recursively calling this same routine - } - - foreach (var subDir in SourceDir.GetDirectories()) - CopyDirectoryFile(subDir.FullName, Path.Combine(DestDir.FullName, subDir.Name), OverWrite); - } - } - - public Size NewthumbSize(int currentwidth, int currentheight, int MaxPixel, string TipoSize) - { - // Calculate the Size of the New image - // *** Larghezza, Altezza, Auto - - double tempMultiplier; - if ((TipoSize.ToUpper() ?? "") == ("Larghezza".ToUpper() ?? "")) - { - tempMultiplier = MaxPixel / (double)currentwidth; - } - else if ((TipoSize.ToUpper() ?? "") == ("Altezza".ToUpper() ?? "")) - { - tempMultiplier = MaxPixel / (double)currentheight; - } - else if (currentheight > currentwidth) // portrait - { - tempMultiplier = MaxPixel / (double)currentheight; - } - else - { - tempMultiplier = MaxPixel / (double)currentwidth; - } - - var NewSize = new Size((int)Math.Round(currentwidth * tempMultiplier), (int)Math.Round(currentheight * tempMultiplier)); - return NewSize; - } - - private void Button7_Click(object sender, EventArgs e) - { - StopAttivo = true; - MyPool.StopThreadPool(); - unlockUI(); - } - - private void Button4_Click(object sender, EventArgs e) - { - var openFileDialog = new OpenFileDialog(); - - // openFileDialog.InitialDirectory = TextBox1.Text - openFileDialog.Filter = "Immagini jpg (*.jpg)|*.jpg|Immagini gif (*.gif)|*.gif|Tutti i file (*.*)|*.*"; - if (TextBox10.Text.Length > 0) - { - openFileDialog.FileName = TextBox10.Text; - } - - openFileDialog.FilterIndex = 0; - openFileDialog.RestoreDirectory = true; - if (DialogResult.OK == openFileDialog.ShowDialog()) - { - TextBox10.Text = openFileDialog.FileName; - PictureBox1.Image = Image.FromFile(TextBox10.Text); - if (PictureBox1.Image.Height >= PictureBox1.Image.Width) - { - PictureBox1.Height = 160; - PictureBox1.Width = Conversions.ToInteger(160 * PictureBox1.Image.Width / (double)PictureBox1.Image.Height); - } - else - { - PictureBox1.Width = 224; - PictureBox1.Height = Conversions.ToInteger(224 * PictureBox1.Image.Height / (double)PictureBox1.Image.Width); - } - } - } - - private string LeggiSoloNomeFile(string FileName) - { - string Testo = FileName; - string Risposta = ""; - var Nomi = Testo.Split(new char[] { '\\' }); - if (Nomi.Length > 1) - { - Risposta = Nomi[Nomi.Length - 1]; - } - - return Risposta; - } - - private void PictureBox1_MouseMove(object sender, MouseEventArgs e) - { - // GetColor() - // GetPixelColor(PictureBox1.PointToScreen(e.Location)).ToArgb.ToString("X8") - - } - - private void PictureBox1_MouseUp(object sender, MouseEventArgs e) - { - if (e.Button == MouseButtons.Left) - { - WaterSelectColor = true; - } - else - { - WaterSelectColor = false; - } - } - - - // Private Declare Function CreateDC Lib "gdi32.dll" (ByVal strDriver As String, ByVal strDevice As String, ByVal strOutput As String, ByVal pData As IntPtr) As IntPtr - // Private Declare Function DeleteDC Lib "gdi32.dll" (ByVal hdc As IntPtr) As Boolean - // Private Declare Function GetPixel Lib "gdi32.dll" (ByVal hdc As IntPtr, ByVal x As Integer, ByVal y As Integer) As Integer - // Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As Point) As Boolean - - - // ''' - // ''' Get the color relative to mouse position - // ''' - // Private Sub GetColor() - // Dim hdcScreen As IntPtr = CreateDC("Display", Nothing, Nothing, IntPtr.Zero) - // Dim pt As Point = New Point - // GetCursorPos(pt) - // Dim cr As Integer = GetPixel(hdcScreen, pt.X, pt.Y) - // DeleteDC(hdcScreen) - // Dim clr As Color = Color.FromArgb((cr And &HFF), (cr And &HFF00) >> 8, (cr And &HFF0000) >> 16) - // PictureBox3.BackColor = clr - // If WaterSelectColor = True Then - // PictureBox2.BackColor = clr - // End If - // WaterSelectColor = False - // End Sub - - - private Color[] GetPixelColor(Point screenLocation) - { - // Dim bm As New Bitmap(1, 1, Imaging.PixelFormat.Format24bppRgb) - // Dim g As Graphics = Graphics.FromImage(bm) - // g.CopyFromScreen(screenLocation, New Point(0, 0), New Size(1, 1)) - // Dim result As Color = bm.GetPixel(0, 0) - // g.Dispose() - // bm.Dispose() - // Return result - return null; - } - - private void Button8_Click(object sender, EventArgs e) - { - var MyDialog = new ColorDialog(); - MyDialog.AllowFullOpen = true; - // If TextBox22.Text.Length > 0 And TextBox23.Text.Length > 0 And TextBox24.Text.Length > 0 Then - // If CType(TextBox22.Text, Integer) >= 0 And CType(TextBox23.Text, Integer) >= 0 And CType(TextBox24.Text, Integer) >= 0 Then - // MyDialog.Color = Color.FromArgb(0, CType(TextBox22.Text, Integer), CType(TextBox23.Text, Integer), CType(TextBox24.Text, Integer)) - // End If - // End If - - if (MyDialog.ShowDialog() == DialogResult.OK) - { - // TextBox22.Text = MyDialog.Color.R.ToString - // TextBox23.Text = MyDialog.Color.G.ToString - // TextBox24.Text = MyDialog.Color.B.ToString - TextBox34.Text = ColorTranslator.ToHtml(MyDialog.Color); - TextBox34.BackColor = MyDialog.Color; - } - } - - private void TextBox27_TextChanged(object sender, EventArgs e) - { - } - - private void CheckBox18_CheckedChanged(object sender, EventArgs e) - { - CheckBox4.Checked = false; - CheckBox12.Checked = false; - } - - private void CheckBox4_CheckedChanged(object sender, EventArgs e) - { - CheckBox18.Checked = false; - } - - private void CheckBox12_CheckedChanged(object sender, EventArgs e) - { - CheckBox18.Checked = false; - } - } - - public class PicInfoold - { - public DirectoryInfo DirSource, DirDest, DirDestStart; - public string NomeImmagine; - - public PicInfoold(DirectoryInfo Dir_Source, DirectoryInfo Dir_Dest, DirectoryInfo Dir_DestStart, string Nome_Immagine) - { - DirSource = Dir_Source; - DirDest = Dir_Dest; - DirDestStart = Dir_DestStart; - NomeImmagine = Nome_Immagine; - } - } -} \ No newline at end of file diff --git a/imagecatalog/Form1.resx b/imagecatalog/Form1.resx deleted file mode 100644 index d58980a..0000000 --- a/imagecatalog/Form1.resx +++ /dev/null @@ -1,120 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - \ No newline at end of file diff --git a/imagecatalog/Form1.vb b/imagecatalog/Form1.vb deleted file mode 100644 index 5c4aae6..0000000 --- a/imagecatalog/Form1.vb +++ /dev/null @@ -1,2946 +0,0 @@ -Imports System.IO -Imports System.Drawing.Drawing2D -Imports System.Drawing.Imaging -Imports System.Threading -Imports System.Collections.Generic -Imports CatalogVbLib - -Public Delegate Sub XyThreadAddold(ByVal Info As String) - -Public Class Form1 - Inherits System.Windows.Forms.Form - -#Region " Windows Form Designer generated code " - - Public Sub New() - MyBase.New() - - 'This call is required by the Windows Form Designer. - InitializeComponent() - - 'Add any initialization after the InitializeComponent() call - - End Sub - - 'Form overrides dispose to clean up the component list. - Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) - If disposing Then - If Not (components Is Nothing) Then - components.Dispose() - End If - End If - MyBase.Dispose(disposing) - End Sub - - 'Required by the Windows Form Designer - Private components As System.ComponentModel.IContainer - - 'NOTE: The following procedure is required by the Windows Form Designer - 'It can be modified using the Windows Form Designer. - 'Do not modify it using the code editor. - Friend WithEvents Button1 As System.Windows.Forms.Button - Friend WithEvents Label10 As System.Windows.Forms.Label - Friend WithEvents Label17 As System.Windows.Forms.Label - Friend WithEvents Label18 As System.Windows.Forms.Label - Friend WithEvents Label19 As System.Windows.Forms.Label - Friend WithEvents Label20 As System.Windows.Forms.Label - Friend WithEvents Button6 As System.Windows.Forms.Button - Friend WithEvents Button5 As System.Windows.Forms.Button - Friend WithEvents Button7 As System.Windows.Forms.Button - Friend WithEvents Label27 As System.Windows.Forms.Label - Friend WithEvents TextBox13 As System.Windows.Forms.TextBox - Friend WithEvents Label16 As System.Windows.Forms.Label - Friend WithEvents Label7 As System.Windows.Forms.Label - Friend WithEvents TextBox7 As System.Windows.Forms.TextBox - Friend WithEvents Label8 As System.Windows.Forms.Label - Friend WithEvents TextBox8 As System.Windows.Forms.TextBox - Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox - Friend WithEvents Label43 As System.Windows.Forms.Label - Friend WithEvents CheckBox22 As System.Windows.Forms.CheckBox - Friend WithEvents TabPage4 As System.Windows.Forms.TabPage - Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox - Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox - Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox - Friend WithEvents ComboBox5 As System.Windows.Forms.ComboBox - Friend WithEvents ComboBox4 As System.Windows.Forms.ComboBox - Friend WithEvents TextBox19 As System.Windows.Forms.TextBox - Friend WithEvents Label28 As System.Windows.Forms.Label - Friend WithEvents CheckBox5 As System.Windows.Forms.CheckBox - Friend WithEvents TextBox15 As System.Windows.Forms.TextBox - Friend WithEvents TextBox14 As System.Windows.Forms.TextBox - Friend WithEvents Label25 As System.Windows.Forms.Label - Friend WithEvents TextBox16 As System.Windows.Forms.TextBox - Friend WithEvents Label24 As System.Windows.Forms.Label - Friend WithEvents Label22 As System.Windows.Forms.Label - Friend WithEvents Label23 As System.Windows.Forms.Label - Friend WithEvents Button4 As System.Windows.Forms.Button - Friend WithEvents TextBox10 As System.Windows.Forms.TextBox - Friend WithEvents Label29 As System.Windows.Forms.Label - Friend WithEvents Label30 As System.Windows.Forms.Label - Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox - Friend WithEvents TabPage1 As System.Windows.Forms.TabPage - Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox - Friend WithEvents Panel2 As System.Windows.Forms.Panel - Friend WithEvents RadioButton3 As System.Windows.Forms.RadioButton - Friend WithEvents RadioButton7 As System.Windows.Forms.RadioButton - Friend WithEvents RadioButton4 As System.Windows.Forms.RadioButton - Friend WithEvents RadioButton6 As System.Windows.Forms.RadioButton - Friend WithEvents RadioButton5 As System.Windows.Forms.RadioButton - Friend WithEvents Label5 As System.Windows.Forms.Label - Friend WithEvents TextBox5 As System.Windows.Forms.TextBox - Friend WithEvents Label6 As System.Windows.Forms.Label - Friend WithEvents TextBox6 As System.Windows.Forms.TextBox - Friend WithEvents Label3 As System.Windows.Forms.Label - Friend WithEvents TextBox3 As System.Windows.Forms.TextBox - Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox - Friend WithEvents TabPage2 As System.Windows.Forms.TabPage - Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox - Friend WithEvents TextBox26 As System.Windows.Forms.TextBox - Friend WithEvents Label37 As System.Windows.Forms.Label - Friend WithEvents Label38 As System.Windows.Forms.Label - Friend WithEvents TextBox27 As System.Windows.Forms.TextBox - Friend WithEvents Label39 As System.Windows.Forms.Label - Friend WithEvents TextBox28 As System.Windows.Forms.TextBox - Friend WithEvents CheckBox15 As System.Windows.Forms.CheckBox - Friend WithEvents TabPage3 As System.Windows.Forms.TabPage - Friend WithEvents GroupBox10 As System.Windows.Forms.GroupBox - Friend WithEvents Label42 As System.Windows.Forms.Label - Friend WithEvents Label41 As System.Windows.Forms.Label - Friend WithEvents TextBox31 As System.Windows.Forms.TextBox - Friend WithEvents TextBox30 As System.Windows.Forms.TextBox - Friend WithEvents GroupBox9 As System.Windows.Forms.GroupBox - Friend WithEvents CheckBox17 As System.Windows.Forms.CheckBox - Friend WithEvents CheckBox16 As System.Windows.Forms.CheckBox - Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox - Friend WithEvents Button8 As System.Windows.Forms.Button - Friend WithEvents Label36 As System.Windows.Forms.Label - Friend WithEvents TextBox25 As System.Windows.Forms.TextBox - Friend WithEvents Label35 As System.Windows.Forms.Label - Friend WithEvents ComboBox3 As System.Windows.Forms.ComboBox - Friend WithEvents TextBox11 As System.Windows.Forms.TextBox - Friend WithEvents Label12 As System.Windows.Forms.Label - Friend WithEvents Label11 As System.Windows.Forms.Label - Friend WithEvents CheckBox3 As System.Windows.Forms.CheckBox - Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox - Friend WithEvents Label40 As System.Windows.Forms.Label - Friend WithEvents TextBox29 As System.Windows.Forms.TextBox - Friend WithEvents TextBox18 As System.Windows.Forms.TextBox - Friend WithEvents Label26 As System.Windows.Forms.Label - Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker - Friend WithEvents CheckBox8 As System.Windows.Forms.CheckBox - Friend WithEvents TextBox9 As System.Windows.Forms.TextBox - Friend WithEvents CheckBox7 As System.Windows.Forms.CheckBox - Friend WithEvents Label4 As System.Windows.Forms.Label - Friend WithEvents TextBox4 As System.Windows.Forms.TextBox - Friend WithEvents Label9 As System.Windows.Forms.Label - Friend WithEvents Label13 As System.Windows.Forms.Label - Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox - Friend WithEvents ComboBox2 As System.Windows.Forms.ComboBox - Friend WithEvents Label14 As System.Windows.Forms.Label - Friend WithEvents TextBox12 As System.Windows.Forms.TextBox - Friend WithEvents Label15 As System.Windows.Forms.Label - Friend WithEvents TabPage5 As System.Windows.Forms.TabPage - Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox - Friend WithEvents CheckBox6 As System.Windows.Forms.CheckBox - Friend WithEvents Button3 As System.Windows.Forms.Button - Friend WithEvents Button2 As System.Windows.Forms.Button - Friend WithEvents Label1 As System.Windows.Forms.Label - Friend WithEvents Label2 As System.Windows.Forms.Label - Friend WithEvents TextBox1 As System.Windows.Forms.TextBox - Friend WithEvents TextBox2 As System.Windows.Forms.TextBox - Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox - Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton - Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton - Friend WithEvents TextBox21 As System.Windows.Forms.TextBox - Friend WithEvents Label34 As System.Windows.Forms.Label - Friend WithEvents TextBox20 As System.Windows.Forms.TextBox - Friend WithEvents Label33 As System.Windows.Forms.Label - Friend WithEvents Label31 As System.Windows.Forms.Label - Friend WithEvents CheckBox11 As System.Windows.Forms.CheckBox - Friend WithEvents TextBox17 As System.Windows.Forms.TextBox - Friend WithEvents Label32 As System.Windows.Forms.Label - Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox - Friend WithEvents CheckBox10 As System.Windows.Forms.CheckBox - Friend WithEvents CheckBox9 As System.Windows.Forms.CheckBox - Friend WithEvents TabControl1 As System.Windows.Forms.TabControl - Friend WithEvents Label45 As System.Windows.Forms.Label - Friend WithEvents TextBox32 As System.Windows.Forms.TextBox - Friend WithEvents TextBox33 As System.Windows.Forms.TextBox - Friend WithEvents TextBox34 As System.Windows.Forms.TextBox - Friend WithEvents Label46 As System.Windows.Forms.Label - Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar - Friend WithEvents Panel1 As System.Windows.Forms.Panel - Friend WithEvents CheckBox18 As System.Windows.Forms.CheckBox - Friend WithEvents CheckBox4 As System.Windows.Forms.CheckBox - Friend WithEvents CheckBox12 As System.Windows.Forms.CheckBox - Friend WithEvents Label44 As System.Windows.Forms.Label - Private Sub InitializeComponent() - Me.Button1 = New System.Windows.Forms.Button() - Me.Label10 = New System.Windows.Forms.Label() - Me.Label17 = New System.Windows.Forms.Label() - Me.Label18 = New System.Windows.Forms.Label() - Me.Label19 = New System.Windows.Forms.Label() - Me.Label20 = New System.Windows.Forms.Label() - Me.Button6 = New System.Windows.Forms.Button() - Me.Button5 = New System.Windows.Forms.Button() - Me.Button7 = New System.Windows.Forms.Button() - Me.Label27 = New System.Windows.Forms.Label() - Me.TextBox13 = New System.Windows.Forms.TextBox() - Me.Label16 = New System.Windows.Forms.Label() - Me.Label7 = New System.Windows.Forms.Label() - Me.TextBox7 = New System.Windows.Forms.TextBox() - Me.Label8 = New System.Windows.Forms.Label() - Me.TextBox8 = New System.Windows.Forms.TextBox() - Me.CheckBox2 = New System.Windows.Forms.CheckBox() - Me.Label43 = New System.Windows.Forms.Label() - Me.CheckBox22 = New System.Windows.Forms.CheckBox() - Me.Label44 = New System.Windows.Forms.Label() - Me.TabPage4 = New System.Windows.Forms.TabPage() - Me.GroupBox6 = New System.Windows.Forms.GroupBox() - Me.PictureBox2 = New System.Windows.Forms.PictureBox() - Me.PictureBox1 = New System.Windows.Forms.PictureBox() - Me.ComboBox5 = New System.Windows.Forms.ComboBox() - Me.ComboBox4 = New System.Windows.Forms.ComboBox() - Me.TextBox19 = New System.Windows.Forms.TextBox() - Me.Label28 = New System.Windows.Forms.Label() - Me.CheckBox5 = New System.Windows.Forms.CheckBox() - Me.TextBox15 = New System.Windows.Forms.TextBox() - Me.TextBox14 = New System.Windows.Forms.TextBox() - Me.Label25 = New System.Windows.Forms.Label() - Me.TextBox16 = New System.Windows.Forms.TextBox() - Me.Label24 = New System.Windows.Forms.Label() - Me.Label22 = New System.Windows.Forms.Label() - Me.Label23 = New System.Windows.Forms.Label() - Me.Button4 = New System.Windows.Forms.Button() - Me.TextBox10 = New System.Windows.Forms.TextBox() - Me.Label29 = New System.Windows.Forms.Label() - Me.Label30 = New System.Windows.Forms.Label() - Me.PictureBox3 = New System.Windows.Forms.PictureBox() - Me.TabPage1 = New System.Windows.Forms.TabPage() - Me.GroupBox1 = New System.Windows.Forms.GroupBox() - Me.Label46 = New System.Windows.Forms.Label() - Me.TextBox33 = New System.Windows.Forms.TextBox() - Me.Panel2 = New System.Windows.Forms.Panel() - Me.RadioButton3 = New System.Windows.Forms.RadioButton() - Me.RadioButton7 = New System.Windows.Forms.RadioButton() - Me.RadioButton4 = New System.Windows.Forms.RadioButton() - Me.RadioButton6 = New System.Windows.Forms.RadioButton() - Me.RadioButton5 = New System.Windows.Forms.RadioButton() - Me.Label5 = New System.Windows.Forms.Label() - Me.TextBox5 = New System.Windows.Forms.TextBox() - Me.Label6 = New System.Windows.Forms.Label() - Me.TextBox6 = New System.Windows.Forms.TextBox() - Me.Label3 = New System.Windows.Forms.Label() - Me.TextBox3 = New System.Windows.Forms.TextBox() - Me.CheckBox1 = New System.Windows.Forms.CheckBox() - Me.TabPage2 = New System.Windows.Forms.TabPage() - Me.GroupBox2 = New System.Windows.Forms.GroupBox() - Me.Label45 = New System.Windows.Forms.Label() - Me.TextBox32 = New System.Windows.Forms.TextBox() - Me.TextBox26 = New System.Windows.Forms.TextBox() - Me.Label37 = New System.Windows.Forms.Label() - Me.Label38 = New System.Windows.Forms.Label() - Me.TextBox27 = New System.Windows.Forms.TextBox() - Me.Label39 = New System.Windows.Forms.Label() - Me.TextBox28 = New System.Windows.Forms.TextBox() - Me.CheckBox15 = New System.Windows.Forms.CheckBox() - Me.TabPage3 = New System.Windows.Forms.TabPage() - Me.GroupBox10 = New System.Windows.Forms.GroupBox() - Me.Label42 = New System.Windows.Forms.Label() - Me.Label41 = New System.Windows.Forms.Label() - Me.TextBox31 = New System.Windows.Forms.TextBox() - Me.TextBox30 = New System.Windows.Forms.TextBox() - Me.GroupBox9 = New System.Windows.Forms.GroupBox() - Me.CheckBox17 = New System.Windows.Forms.CheckBox() - Me.CheckBox16 = New System.Windows.Forms.CheckBox() - Me.GroupBox5 = New System.Windows.Forms.GroupBox() - Me.TextBox34 = New System.Windows.Forms.TextBox() - Me.Button8 = New System.Windows.Forms.Button() - Me.Label36 = New System.Windows.Forms.Label() - Me.TextBox25 = New System.Windows.Forms.TextBox() - Me.Label35 = New System.Windows.Forms.Label() - Me.ComboBox3 = New System.Windows.Forms.ComboBox() - Me.TextBox11 = New System.Windows.Forms.TextBox() - Me.Label12 = New System.Windows.Forms.Label() - Me.Label11 = New System.Windows.Forms.Label() - Me.CheckBox3 = New System.Windows.Forms.CheckBox() - Me.GroupBox4 = New System.Windows.Forms.GroupBox() - Me.Label40 = New System.Windows.Forms.Label() - Me.TextBox29 = New System.Windows.Forms.TextBox() - Me.TextBox18 = New System.Windows.Forms.TextBox() - Me.Label26 = New System.Windows.Forms.Label() - Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() - Me.CheckBox8 = New System.Windows.Forms.CheckBox() - Me.TextBox9 = New System.Windows.Forms.TextBox() - Me.CheckBox7 = New System.Windows.Forms.CheckBox() - Me.Label4 = New System.Windows.Forms.Label() - Me.TextBox4 = New System.Windows.Forms.TextBox() - Me.Label9 = New System.Windows.Forms.Label() - Me.Label13 = New System.Windows.Forms.Label() - Me.ComboBox1 = New System.Windows.Forms.ComboBox() - Me.ComboBox2 = New System.Windows.Forms.ComboBox() - Me.Label14 = New System.Windows.Forms.Label() - Me.TextBox12 = New System.Windows.Forms.TextBox() - Me.Label15 = New System.Windows.Forms.Label() - Me.TabPage5 = New System.Windows.Forms.TabPage() - Me.GroupBox3 = New System.Windows.Forms.GroupBox() - Me.CheckBox6 = New System.Windows.Forms.CheckBox() - Me.Button3 = New System.Windows.Forms.Button() - Me.Button2 = New System.Windows.Forms.Button() - Me.Label1 = New System.Windows.Forms.Label() - Me.Label2 = New System.Windows.Forms.Label() - Me.TextBox1 = New System.Windows.Forms.TextBox() - Me.TextBox2 = New System.Windows.Forms.TextBox() - Me.GroupBox8 = New System.Windows.Forms.GroupBox() - Me.RadioButton2 = New System.Windows.Forms.RadioButton() - Me.RadioButton1 = New System.Windows.Forms.RadioButton() - Me.TextBox21 = New System.Windows.Forms.TextBox() - Me.Label34 = New System.Windows.Forms.Label() - Me.TextBox20 = New System.Windows.Forms.TextBox() - Me.Label33 = New System.Windows.Forms.Label() - Me.Label31 = New System.Windows.Forms.Label() - Me.CheckBox11 = New System.Windows.Forms.CheckBox() - Me.TextBox17 = New System.Windows.Forms.TextBox() - Me.Label32 = New System.Windows.Forms.Label() - Me.GroupBox7 = New System.Windows.Forms.GroupBox() - Me.CheckBox10 = New System.Windows.Forms.CheckBox() - Me.CheckBox9 = New System.Windows.Forms.CheckBox() - Me.TabControl1 = New System.Windows.Forms.TabControl() - Me.ProgressBar1 = New System.Windows.Forms.ProgressBar() - Me.CheckBox12 = New System.Windows.Forms.CheckBox() - Me.CheckBox4 = New System.Windows.Forms.CheckBox() - Me.CheckBox18 = New System.Windows.Forms.CheckBox() - Me.Panel1 = New System.Windows.Forms.Panel() - Me.TabPage4.SuspendLayout() - Me.GroupBox6.SuspendLayout() - CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TabPage1.SuspendLayout() - Me.GroupBox1.SuspendLayout() - Me.Panel2.SuspendLayout() - Me.TabPage2.SuspendLayout() - Me.GroupBox2.SuspendLayout() - Me.TabPage3.SuspendLayout() - Me.GroupBox10.SuspendLayout() - Me.GroupBox9.SuspendLayout() - Me.GroupBox5.SuspendLayout() - Me.GroupBox4.SuspendLayout() - Me.TabPage5.SuspendLayout() - Me.GroupBox3.SuspendLayout() - Me.GroupBox8.SuspendLayout() - Me.GroupBox7.SuspendLayout() - Me.TabControl1.SuspendLayout() - Me.Panel1.SuspendLayout() - Me.SuspendLayout() - ' - 'Button1 - ' - Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Button1.Location = New System.Drawing.Point(539, 77) - Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(192, 39) - Me.Button1.TabIndex = 2 - Me.Button1.Text = "crea catalogo" - ' - 'Label10 - ' - Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label10.Location = New System.Drawing.Point(539, 163) - Me.Label10.Name = "Label10" - Me.Label10.Size = New System.Drawing.Size(192, 72) - Me.Label10.TabIndex = 21 - Me.Label10.Text = "file" - ' - 'Label17 - ' - Me.Label17.AutoSize = True - Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label17.Location = New System.Drawing.Point(643, 243) - Me.Label17.Name = "Label17" - Me.Label17.Size = New System.Drawing.Size(19, 20) - Me.Label17.TabIndex = 38 - Me.Label17.Text = "0" - ' - 'Label18 - ' - Me.Label18.AutoSize = True - Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label18.Location = New System.Drawing.Point(643, 262) - Me.Label18.Name = "Label18" - Me.Label18.Size = New System.Drawing.Size(19, 20) - Me.Label18.TabIndex = 39 - Me.Label18.Text = "0" - ' - 'Label19 - ' - Me.Label19.AutoSize = True - Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label19.Location = New System.Drawing.Point(539, 243) - Me.Label19.Name = "Label19" - Me.Label19.Size = New System.Drawing.Size(80, 16) - Me.Label19.TabIndex = 40 - Me.Label19.Text = "foto totali: " - ' - 'Label20 - ' - Me.Label20.AutoSize = True - Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label20.Location = New System.Drawing.Point(539, 262) - Me.Label20.Name = "Label20" - Me.Label20.Size = New System.Drawing.Size(104, 16) - Me.Label20.TabIndex = 41 - Me.Label20.Text = "foto generate:" - ' - 'Button6 - ' - Me.Button6.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Button6.Location = New System.Drawing.Point(539, 12) - Me.Button6.Name = "Button6" - Me.Button6.Size = New System.Drawing.Size(192, 32) - Me.Button6.TabIndex = 12 - Me.Button6.Text = "Carica impostazioni" - ' - 'Button5 - ' - Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Button5.Location = New System.Drawing.Point(539, 43) - Me.Button5.Name = "Button5" - Me.Button5.Size = New System.Drawing.Size(192, 32) - Me.Button5.TabIndex = 43 - Me.Button5.Text = "Salva impostazioni" - ' - 'Button7 - ' - Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Button7.Location = New System.Drawing.Point(539, 120) - Me.Button7.Name = "Button7" - Me.Button7.Size = New System.Drawing.Size(192, 40) - Me.Button7.TabIndex = 44 - Me.Button7.Text = "stop creazione" - ' - 'Label27 - ' - Me.Label27.Location = New System.Drawing.Point(591, 346) - Me.Label27.Name = "Label27" - Me.Label27.Size = New System.Drawing.Size(140, 20) - Me.Label27.TabIndex = 46 - Me.Label27.Text = "Versione 2.0 BETA 1" - Me.Label27.TextAlign = System.Drawing.ContentAlignment.MiddleRight - ' - 'TextBox13 - ' - Me.TextBox13.Location = New System.Drawing.Point(224, 48) - Me.TextBox13.Name = "TextBox13" - Me.TextBox13.Size = New System.Drawing.Size(56, 20) - Me.TextBox13.TabIndex = 20 - Me.TextBox13.Text = "TextBox13" - ' - 'Label16 - ' - Me.Label16.ForeColor = System.Drawing.Color.Black - Me.Label16.Location = New System.Drawing.Point(168, 48) - Me.Label16.Name = "Label16" - Me.Label16.Size = New System.Drawing.Size(48, 16) - Me.Label16.TabIndex = 19 - Me.Label16.Text = "Suffisso" - Me.Label16.TextAlign = System.Drawing.ContentAlignment.MiddleRight - ' - 'Label7 - ' - Me.Label7.AutoSize = True - Me.Label7.ForeColor = System.Drawing.Color.Black - Me.Label7.Location = New System.Drawing.Point(24, 24) - Me.Label7.Name = "Label7" - Me.Label7.Size = New System.Drawing.Size(41, 13) - Me.Label7.TabIndex = 16 - Me.Label7.Text = "Altezza" - ' - 'TextBox7 - ' - Me.TextBox7.Location = New System.Drawing.Point(72, 24) - Me.TextBox7.Name = "TextBox7" - Me.TextBox7.Size = New System.Drawing.Size(72, 20) - Me.TextBox7.TabIndex = 14 - Me.TextBox7.Text = "TextBox7" - ' - 'Label8 - ' - Me.Label8.AutoSize = True - Me.Label8.ForeColor = System.Drawing.Color.Black - Me.Label8.Location = New System.Drawing.Point(8, 48) - Me.Label8.Name = "Label8" - Me.Label8.Size = New System.Drawing.Size(56, 13) - Me.Label8.TabIndex = 17 - Me.Label8.Text = "Larghezza" - ' - 'TextBox8 - ' - Me.TextBox8.Location = New System.Drawing.Point(72, 48) - Me.TextBox8.Name = "TextBox8" - Me.TextBox8.Size = New System.Drawing.Size(72, 20) - Me.TextBox8.TabIndex = 15 - Me.TextBox8.Text = "TextBox8" - ' - 'CheckBox2 - ' - Me.CheckBox2.Checked = True - Me.CheckBox2.CheckState = System.Windows.Forms.CheckState.Checked - Me.CheckBox2.ForeColor = System.Drawing.Color.Black - Me.CheckBox2.Location = New System.Drawing.Point(168, 16) - Me.CheckBox2.Name = "CheckBox2" - Me.CheckBox2.Size = New System.Drawing.Size(120, 32) - Me.CheckBox2.TabIndex = 18 - Me.CheckBox2.Text = "Mantieni dimensioni originali" - ' - 'Label43 - ' - Me.Label43.AutoSize = True - Me.Label43.Location = New System.Drawing.Point(651, 303) - Me.Label43.Name = "Label43" - Me.Label43.Size = New System.Drawing.Size(25, 13) - Me.Label43.TabIndex = 49 - Me.Label43.Text = "000" - ' - 'CheckBox22 - ' - Me.CheckBox22.AutoSize = True - Me.CheckBox22.Location = New System.Drawing.Point(539, 326) - Me.CheckBox22.Name = "CheckBox22" - Me.CheckBox22.Size = New System.Drawing.Size(104, 17) - Me.CheckBox22.TabIndex = 50 - Me.CheckBox22.Text = "Arresta il sistema" - Me.CheckBox22.UseVisualStyleBackColor = True - ' - 'Label44 - ' - Me.Label44.AutoSize = True - Me.Label44.Location = New System.Drawing.Point(539, 303) - Me.Label44.Name = "Label44" - Me.Label44.Size = New System.Drawing.Size(106, 13) - Me.Label44.TabIndex = 51 - Me.Label44.Text = "Tempo elaborazione:" - ' - 'TabPage4 - ' - Me.TabPage4.Controls.Add(Me.GroupBox6) - Me.TabPage4.Location = New System.Drawing.Point(4, 22) - Me.TabPage4.Name = "TabPage4" - Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage4.Size = New System.Drawing.Size(513, 326) - Me.TabPage4.TabIndex = 3 - Me.TabPage4.Text = "Logo" - Me.TabPage4.UseVisualStyleBackColor = True - ' - 'GroupBox6 - ' - Me.GroupBox6.Controls.Add(Me.PictureBox2) - Me.GroupBox6.Controls.Add(Me.PictureBox1) - Me.GroupBox6.Controls.Add(Me.ComboBox5) - Me.GroupBox6.Controls.Add(Me.ComboBox4) - Me.GroupBox6.Controls.Add(Me.TextBox19) - Me.GroupBox6.Controls.Add(Me.Label28) - Me.GroupBox6.Controls.Add(Me.CheckBox5) - Me.GroupBox6.Controls.Add(Me.TextBox15) - Me.GroupBox6.Controls.Add(Me.TextBox14) - Me.GroupBox6.Controls.Add(Me.Label25) - Me.GroupBox6.Controls.Add(Me.TextBox16) - Me.GroupBox6.Controls.Add(Me.Label24) - Me.GroupBox6.Controls.Add(Me.Label22) - Me.GroupBox6.Controls.Add(Me.Label23) - Me.GroupBox6.Controls.Add(Me.Button4) - Me.GroupBox6.Controls.Add(Me.TextBox10) - Me.GroupBox6.Controls.Add(Me.Label29) - Me.GroupBox6.Controls.Add(Me.Label30) - Me.GroupBox6.Controls.Add(Me.PictureBox3) - Me.GroupBox6.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.GroupBox6.Location = New System.Drawing.Point(6, 6) - Me.GroupBox6.Name = "GroupBox6" - Me.GroupBox6.Size = New System.Drawing.Size(496, 224) - Me.GroupBox6.TabIndex = 42 - Me.GroupBox6.TabStop = False - Me.GroupBox6.Text = "Logo" - ' - 'PictureBox2 - ' - Me.PictureBox2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.PictureBox2.Location = New System.Drawing.Point(144, 192) - Me.PictureBox2.Name = "PictureBox2" - Me.PictureBox2.Size = New System.Drawing.Size(24, 24) - Me.PictureBox2.TabIndex = 44 - Me.PictureBox2.TabStop = False - Me.PictureBox2.Visible = False - ' - 'PictureBox1 - ' - Me.PictureBox1.Cursor = System.Windows.Forms.Cursors.Cross - Me.PictureBox1.Location = New System.Drawing.Point(256, 56) - Me.PictureBox1.Name = "PictureBox1" - Me.PictureBox1.Size = New System.Drawing.Size(224, 160) - Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.PictureBox1.TabIndex = 43 - Me.PictureBox1.TabStop = False - ' - 'ComboBox5 - ' - Me.ComboBox5.Location = New System.Drawing.Point(144, 168) - Me.ComboBox5.Name = "ComboBox5" - Me.ComboBox5.Size = New System.Drawing.Size(96, 21) - Me.ComboBox5.TabIndex = 42 - Me.ComboBox5.Text = "ComboBox5" - ' - 'ComboBox4 - ' - Me.ComboBox4.Location = New System.Drawing.Point(144, 144) - Me.ComboBox4.Name = "ComboBox4" - Me.ComboBox4.Size = New System.Drawing.Size(96, 21) - Me.ComboBox4.TabIndex = 41 - Me.ComboBox4.Text = "ComboBox4" - ' - 'TextBox19 - ' - Me.TextBox19.Location = New System.Drawing.Point(144, 96) - Me.TextBox19.Name = "TextBox19" - Me.TextBox19.Size = New System.Drawing.Size(96, 20) - Me.TextBox19.TabIndex = 40 - Me.TextBox19.Text = "TextBox19" - ' - 'Label28 - ' - Me.Label28.ForeColor = System.Drawing.Color.Black - Me.Label28.Location = New System.Drawing.Point(17, 97) - Me.Label28.Name = "Label28" - Me.Label28.Size = New System.Drawing.Size(120, 16) - Me.Label28.TabIndex = 39 - Me.Label28.Text = "Trasparenza (0-100%)" - Me.Label28.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'CheckBox5 - ' - Me.CheckBox5.ForeColor = System.Drawing.Color.Black - Me.CheckBox5.Location = New System.Drawing.Point(0, 26) - Me.CheckBox5.Name = "CheckBox5" - Me.CheckBox5.Size = New System.Drawing.Size(72, 20) - Me.CheckBox5.TabIndex = 38 - Me.CheckBox5.Text = "Aggiungi" - ' - 'TextBox15 - ' - Me.TextBox15.Location = New System.Drawing.Point(144, 72) - Me.TextBox15.Name = "TextBox15" - Me.TextBox15.Size = New System.Drawing.Size(96, 20) - Me.TextBox15.TabIndex = 19 - Me.TextBox15.Text = "TextBox15" - ' - 'TextBox14 - ' - Me.TextBox14.Location = New System.Drawing.Point(144, 48) - Me.TextBox14.Name = "TextBox14" - Me.TextBox14.Size = New System.Drawing.Size(96, 20) - Me.TextBox14.TabIndex = 18 - Me.TextBox14.Text = "TextBox14" - ' - 'Label25 - ' - Me.Label25.AutoSize = True - Me.Label25.ForeColor = System.Drawing.Color.Black - Me.Label25.Location = New System.Drawing.Point(17, 168) - Me.Label25.Name = "Label25" - Me.Label25.Size = New System.Drawing.Size(95, 13) - Me.Label25.TabIndex = 36 - Me.Label25.Text = "Posizione verticale" - Me.Label25.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'TextBox16 - ' - Me.TextBox16.Location = New System.Drawing.Point(144, 120) - Me.TextBox16.Name = "TextBox16" - Me.TextBox16.Size = New System.Drawing.Size(96, 20) - Me.TextBox16.TabIndex = 35 - Me.TextBox16.Text = "TextBox16" - ' - 'Label24 - ' - Me.Label24.AutoSize = True - Me.Label24.ForeColor = System.Drawing.Color.Black - Me.Label24.Location = New System.Drawing.Point(19, 123) - Me.Label24.Name = "Label24" - Me.Label24.Size = New System.Drawing.Size(88, 13) - Me.Label24.TabIndex = 34 - Me.Label24.Text = "Margine (pixel/%)" - Me.Label24.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label22 - ' - Me.Label22.AutoSize = True - Me.Label22.ForeColor = System.Drawing.Color.Black - Me.Label22.Location = New System.Drawing.Point(19, 51) - Me.Label22.Name = "Label22" - Me.Label22.Size = New System.Drawing.Size(41, 13) - Me.Label22.TabIndex = 20 - Me.Label22.Text = "Altezza" - Me.Label22.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label23 - ' - Me.Label23.AutoSize = True - Me.Label23.ForeColor = System.Drawing.Color.Black - Me.Label23.Location = New System.Drawing.Point(19, 75) - Me.Label23.Name = "Label23" - Me.Label23.Size = New System.Drawing.Size(56, 13) - Me.Label23.TabIndex = 21 - Me.Label23.Text = "Larghezza" - Me.Label23.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Button4 - ' - Me.Button4.Location = New System.Drawing.Point(464, 24) - Me.Button4.Name = "Button4" - Me.Button4.Size = New System.Drawing.Size(24, 20) - Me.Button4.TabIndex = 8 - Me.Button4.Text = "..." - ' - 'TextBox10 - ' - Me.TextBox10.Location = New System.Drawing.Point(144, 24) - Me.TextBox10.Name = "TextBox10" - Me.TextBox10.Size = New System.Drawing.Size(312, 20) - Me.TextBox10.TabIndex = 6 - Me.TextBox10.Text = "TextBox10" - ' - 'Label29 - ' - Me.Label29.AutoSize = True - Me.Label29.ForeColor = System.Drawing.Color.Black - Me.Label29.Location = New System.Drawing.Point(17, 147) - Me.Label29.Name = "Label29" - Me.Label29.Size = New System.Drawing.Size(105, 13) - Me.Label29.TabIndex = 36 - Me.Label29.Text = "Posizione orizzontale" - Me.Label29.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label30 - ' - Me.Label30.AutoSize = True - Me.Label30.ForeColor = System.Drawing.Color.Black - Me.Label30.Location = New System.Drawing.Point(19, 203) - Me.Label30.Name = "Label30" - Me.Label30.Size = New System.Drawing.Size(93, 13) - Me.Label30.TabIndex = 36 - Me.Label30.Text = "Colore trasparente" - Me.Label30.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Label30.Visible = False - ' - 'PictureBox3 - ' - Me.PictureBox3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.PictureBox3.Location = New System.Drawing.Point(216, 192) - Me.PictureBox3.Name = "PictureBox3" - Me.PictureBox3.Size = New System.Drawing.Size(24, 24) - Me.PictureBox3.TabIndex = 44 - Me.PictureBox3.TabStop = False - Me.PictureBox3.Visible = False - ' - 'TabPage1 - ' - Me.TabPage1.Controls.Add(Me.Panel1) - Me.TabPage1.Controls.Add(Me.GroupBox1) - Me.TabPage1.Location = New System.Drawing.Point(4, 22) - Me.TabPage1.Name = "TabPage1" - Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage1.Size = New System.Drawing.Size(513, 326) - Me.TabPage1.TabIndex = 0 - Me.TabPage1.Text = "Miniature" - Me.TabPage1.UseVisualStyleBackColor = True - ' - 'GroupBox1 - ' - Me.GroupBox1.Controls.Add(Me.Label46) - Me.GroupBox1.Controls.Add(Me.TextBox33) - Me.GroupBox1.Controls.Add(Me.Panel2) - Me.GroupBox1.Controls.Add(Me.Label5) - Me.GroupBox1.Controls.Add(Me.TextBox5) - Me.GroupBox1.Controls.Add(Me.Label6) - Me.GroupBox1.Controls.Add(Me.TextBox6) - Me.GroupBox1.Controls.Add(Me.Label3) - Me.GroupBox1.Controls.Add(Me.TextBox3) - Me.GroupBox1.Controls.Add(Me.CheckBox1) - Me.GroupBox1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.GroupBox1.Location = New System.Drawing.Point(6, 5) - Me.GroupBox1.Name = "GroupBox1" - Me.GroupBox1.Size = New System.Drawing.Size(350, 210) - Me.GroupBox1.TabIndex = 25 - Me.GroupBox1.TabStop = False - Me.GroupBox1.Text = "Miniature" - ' - 'Label46 - ' - Me.Label46.AutoSize = True - Me.Label46.Location = New System.Drawing.Point(198, 43) - Me.Label46.Name = "Label46" - Me.Label46.Size = New System.Drawing.Size(40, 13) - Me.Label46.TabIndex = 21 - Me.Label46.Text = "Qualità" - ' - 'TextBox33 - ' - Me.TextBox33.Location = New System.Drawing.Point(244, 40) - Me.TextBox33.Name = "TextBox33" - Me.TextBox33.Size = New System.Drawing.Size(100, 20) - Me.TextBox33.TabIndex = 20 - ' - 'Panel2 - ' - Me.Panel2.Controls.Add(Me.RadioButton3) - Me.Panel2.Controls.Add(Me.RadioButton7) - Me.Panel2.Controls.Add(Me.RadioButton4) - Me.Panel2.Controls.Add(Me.RadioButton6) - Me.Panel2.Controls.Add(Me.RadioButton5) - Me.Panel2.Location = New System.Drawing.Point(56, 114) - Me.Panel2.Name = "Panel2" - Me.Panel2.Size = New System.Drawing.Size(235, 90) - Me.Panel2.TabIndex = 19 - ' - 'RadioButton3 - ' - Me.RadioButton3.AutoSize = True - Me.RadioButton3.Location = New System.Drawing.Point(15, 16) - Me.RadioButton3.Name = "RadioButton3" - Me.RadioButton3.Size = New System.Drawing.Size(99, 17) - Me.RadioButton3.TabIndex = 14 - Me.RadioButton3.TabStop = True - Me.RadioButton3.Text = "Aggiungi Scritta" - Me.RadioButton3.UseVisualStyleBackColor = True - ' - 'RadioButton7 - ' - Me.RadioButton7.AutoSize = True - Me.RadioButton7.Location = New System.Drawing.Point(129, 40) - Me.RadioButton7.Name = "RadioButton7" - Me.RadioButton7.Size = New System.Drawing.Size(95, 17) - Me.RadioButton7.TabIndex = 18 - Me.RadioButton7.TabStop = True - Me.RadioButton7.Text = "numero+tempo" - Me.RadioButton7.UseVisualStyleBackColor = True - ' - 'RadioButton4 - ' - Me.RadioButton4.AutoSize = True - Me.RadioButton4.Location = New System.Drawing.Point(15, 40) - Me.RadioButton4.Name = "RadioButton4" - Me.RadioButton4.Size = New System.Drawing.Size(95, 17) - Me.RadioButton4.TabIndex = 15 - Me.RadioButton4.TabStop = True - Me.RadioButton4.Text = "Aggiungi orario" - Me.RadioButton4.UseVisualStyleBackColor = True - ' - 'RadioButton6 - ' - Me.RadioButton6.AutoSize = True - Me.RadioButton6.Location = New System.Drawing.Point(129, 16) - Me.RadioButton6.Name = "RadioButton6" - Me.RadioButton6.Size = New System.Drawing.Size(83, 17) - Me.RadioButton6.TabIndex = 17 - Me.RadioButton6.TabStop = True - Me.RadioButton6.Text = "Numero foto" - Me.RadioButton6.UseVisualStyleBackColor = True - ' - 'RadioButton5 - ' - Me.RadioButton5.AutoSize = True - Me.RadioButton5.Location = New System.Drawing.Point(15, 65) - Me.RadioButton5.Name = "RadioButton5" - Me.RadioButton5.Size = New System.Drawing.Size(84, 17) - Me.RadioButton5.TabIndex = 16 - Me.RadioButton5.TabStop = True - Me.RadioButton5.Text = "Tempo Gara" - Me.RadioButton5.UseVisualStyleBackColor = True - ' - 'Label5 - ' - Me.Label5.AutoSize = True - Me.Label5.ForeColor = System.Drawing.Color.Black - Me.Label5.Location = New System.Drawing.Point(24, 88) - Me.Label5.Name = "Label5" - Me.Label5.Size = New System.Drawing.Size(41, 13) - Me.Label5.TabIndex = 12 - Me.Label5.Text = "Altezza" - ' - 'TextBox5 - ' - Me.TextBox5.Location = New System.Drawing.Point(72, 64) - Me.TextBox5.Name = "TextBox5" - Me.TextBox5.Size = New System.Drawing.Size(88, 20) - Me.TextBox5.TabIndex = 10 - Me.TextBox5.Text = "TextBox5" - ' - 'Label6 - ' - Me.Label6.AutoSize = True - Me.Label6.ForeColor = System.Drawing.Color.Black - Me.Label6.Location = New System.Drawing.Point(8, 64) - Me.Label6.Name = "Label6" - Me.Label6.Size = New System.Drawing.Size(56, 13) - Me.Label6.TabIndex = 13 - Me.Label6.Text = "Larghezza" - ' - 'TextBox6 - ' - Me.TextBox6.Location = New System.Drawing.Point(72, 88) - Me.TextBox6.Name = "TextBox6" - Me.TextBox6.Size = New System.Drawing.Size(88, 20) - Me.TextBox6.TabIndex = 11 - Me.TextBox6.Text = "TextBox6" - ' - 'Label3 - ' - Me.Label3.AutoSize = True - Me.Label3.ForeColor = System.Drawing.Color.Black - Me.Label3.Location = New System.Drawing.Point(24, 40) - Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(44, 13) - Me.Label3.TabIndex = 7 - Me.Label3.Text = "Suffisso" - ' - 'TextBox3 - ' - Me.TextBox3.Location = New System.Drawing.Point(72, 40) - Me.TextBox3.Name = "TextBox3" - Me.TextBox3.Size = New System.Drawing.Size(88, 20) - Me.TextBox3.TabIndex = 6 - Me.TextBox3.Text = "TextBox3" - ' - 'CheckBox1 - ' - Me.CheckBox1.ForeColor = System.Drawing.Color.Black - Me.CheckBox1.Location = New System.Drawing.Point(72, 16) - Me.CheckBox1.Name = "CheckBox1" - Me.CheckBox1.Size = New System.Drawing.Size(104, 24) - Me.CheckBox1.TabIndex = 5 - Me.CheckBox1.Text = "Crea miniature" - ' - 'TabPage2 - ' - Me.TabPage2.Controls.Add(Me.GroupBox2) - Me.TabPage2.Location = New System.Drawing.Point(4, 22) - Me.TabPage2.Name = "TabPage2" - Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage2.Size = New System.Drawing.Size(513, 326) - Me.TabPage2.TabIndex = 5 - Me.TabPage2.Text = "Foto" - Me.TabPage2.UseVisualStyleBackColor = True - ' - 'GroupBox2 - ' - Me.GroupBox2.Controls.Add(Me.Label45) - Me.GroupBox2.Controls.Add(Me.TextBox32) - Me.GroupBox2.Controls.Add(Me.TextBox26) - Me.GroupBox2.Controls.Add(Me.Label37) - Me.GroupBox2.Controls.Add(Me.Label38) - Me.GroupBox2.Controls.Add(Me.TextBox27) - Me.GroupBox2.Controls.Add(Me.Label39) - Me.GroupBox2.Controls.Add(Me.TextBox28) - Me.GroupBox2.Controls.Add(Me.CheckBox15) - Me.GroupBox2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.GroupBox2.Location = New System.Drawing.Point(3, 6) - Me.GroupBox2.Name = "GroupBox2" - Me.GroupBox2.Size = New System.Drawing.Size(304, 156) - Me.GroupBox2.TabIndex = 36 - Me.GroupBox2.TabStop = False - Me.GroupBox2.Text = "Foto grande" - ' - 'Label45 - ' - Me.Label45.AutoSize = True - Me.Label45.Location = New System.Drawing.Point(11, 86) - Me.Label45.Name = "Label45" - Me.Label45.Size = New System.Drawing.Size(40, 13) - Me.Label45.TabIndex = 22 - Me.Label45.Text = "Qualità" - ' - 'TextBox32 - ' - Me.TextBox32.Location = New System.Drawing.Point(72, 80) - Me.TextBox32.Name = "TextBox32" - Me.TextBox32.Size = New System.Drawing.Size(72, 20) - Me.TextBox32.TabIndex = 21 - Me.TextBox32.Text = "100" - ' - 'TextBox26 - ' - Me.TextBox26.Location = New System.Drawing.Point(224, 48) - Me.TextBox26.Name = "TextBox26" - Me.TextBox26.Size = New System.Drawing.Size(56, 20) - Me.TextBox26.TabIndex = 20 - Me.TextBox26.Text = "TextBox26" - ' - 'Label37 - ' - Me.Label37.ForeColor = System.Drawing.Color.Black - Me.Label37.Location = New System.Drawing.Point(168, 48) - Me.Label37.Name = "Label37" - Me.Label37.Size = New System.Drawing.Size(48, 16) - Me.Label37.TabIndex = 19 - Me.Label37.Text = "Suffisso" - Me.Label37.TextAlign = System.Drawing.ContentAlignment.MiddleRight - ' - 'Label38 - ' - Me.Label38.AutoSize = True - Me.Label38.ForeColor = System.Drawing.Color.Black - Me.Label38.Location = New System.Drawing.Point(24, 24) - Me.Label38.Name = "Label38" - Me.Label38.Size = New System.Drawing.Size(41, 13) - Me.Label38.TabIndex = 16 - Me.Label38.Text = "Altezza" - ' - 'TextBox27 - ' - Me.TextBox27.Location = New System.Drawing.Point(72, 24) - Me.TextBox27.Name = "TextBox27" - Me.TextBox27.Size = New System.Drawing.Size(72, 20) - Me.TextBox27.TabIndex = 14 - Me.TextBox27.Text = "TextBox27" - ' - 'Label39 - ' - Me.Label39.AutoSize = True - Me.Label39.ForeColor = System.Drawing.Color.Black - Me.Label39.Location = New System.Drawing.Point(8, 48) - Me.Label39.Name = "Label39" - Me.Label39.Size = New System.Drawing.Size(56, 13) - Me.Label39.TabIndex = 17 - Me.Label39.Text = "Larghezza" - ' - 'TextBox28 - ' - Me.TextBox28.Location = New System.Drawing.Point(72, 48) - Me.TextBox28.Name = "TextBox28" - Me.TextBox28.Size = New System.Drawing.Size(72, 20) - Me.TextBox28.TabIndex = 15 - Me.TextBox28.Text = "TextBox28" - ' - 'CheckBox15 - ' - Me.CheckBox15.Checked = True - Me.CheckBox15.CheckState = System.Windows.Forms.CheckState.Checked - Me.CheckBox15.ForeColor = System.Drawing.Color.Black - Me.CheckBox15.Location = New System.Drawing.Point(168, 16) - Me.CheckBox15.Name = "CheckBox15" - Me.CheckBox15.Size = New System.Drawing.Size(120, 32) - Me.CheckBox15.TabIndex = 18 - Me.CheckBox15.Text = "Mantieni dimensioni originali" - ' - 'TabPage3 - ' - Me.TabPage3.Controls.Add(Me.GroupBox10) - Me.TabPage3.Controls.Add(Me.GroupBox9) - Me.TabPage3.Controls.Add(Me.GroupBox5) - Me.TabPage3.Controls.Add(Me.GroupBox4) - Me.TabPage3.Location = New System.Drawing.Point(4, 22) - Me.TabPage3.Name = "TabPage3" - Me.TabPage3.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage3.Size = New System.Drawing.Size(513, 326) - Me.TabPage3.TabIndex = 2 - Me.TabPage3.Text = "Testo" - Me.TabPage3.UseVisualStyleBackColor = True - ' - 'GroupBox10 - ' - Me.GroupBox10.Controls.Add(Me.Label42) - Me.GroupBox10.Controls.Add(Me.Label41) - Me.GroupBox10.Controls.Add(Me.TextBox31) - Me.GroupBox10.Controls.Add(Me.TextBox30) - Me.GroupBox10.Location = New System.Drawing.Point(316, 53) - Me.GroupBox10.Name = "GroupBox10" - Me.GroupBox10.Size = New System.Drawing.Size(186, 73) - Me.GroupBox10.TabIndex = 39 - Me.GroupBox10.TabStop = False - Me.GroupBox10.Text = "Testo foto verticali" - ' - 'Label42 - ' - Me.Label42.AutoSize = True - Me.Label42.Location = New System.Drawing.Point(7, 46) - Me.Label42.Name = "Label42" - Me.Label42.Size = New System.Drawing.Size(45, 13) - Me.Label42.TabIndex = 3 - Me.Label42.Text = "Margine" - ' - 'Label41 - ' - Me.Label41.AutoSize = True - Me.Label41.Location = New System.Drawing.Point(7, 25) - Me.Label41.Name = "Label41" - Me.Label41.Size = New System.Drawing.Size(108, 13) - Me.Label41.TabIndex = 2 - Me.Label41.Text = "Dimensione Carattere" - ' - 'TextBox31 - ' - Me.TextBox31.Location = New System.Drawing.Point(131, 46) - Me.TextBox31.Name = "TextBox31" - Me.TextBox31.Size = New System.Drawing.Size(39, 20) - Me.TextBox31.TabIndex = 1 - ' - 'TextBox30 - ' - Me.TextBox30.Location = New System.Drawing.Point(131, 22) - Me.TextBox30.Name = "TextBox30" - Me.TextBox30.Size = New System.Drawing.Size(39, 20) - Me.TextBox30.TabIndex = 0 - ' - 'GroupBox9 - ' - Me.GroupBox9.Controls.Add(Me.CheckBox17) - Me.GroupBox9.Controls.Add(Me.CheckBox16) - Me.GroupBox9.Location = New System.Drawing.Point(316, 6) - Me.GroupBox9.Name = "GroupBox9" - Me.GroupBox9.Size = New System.Drawing.Size(186, 45) - Me.GroupBox9.TabIndex = 38 - Me.GroupBox9.TabStop = False - Me.GroupBox9.Text = "Slide show" - ' - 'CheckBox17 - ' - Me.CheckBox17.AutoSize = True - Me.CheckBox17.Location = New System.Drawing.Point(96, 18) - Me.CheckBox17.Name = "CheckBox17" - Me.CheckBox17.Size = New System.Drawing.Size(84, 17) - Me.CheckBox17.TabIndex = 1 - Me.CheckBox17.Text = "Numero foto" - Me.CheckBox17.UseVisualStyleBackColor = True - ' - 'CheckBox16 - ' - Me.CheckBox16.AutoSize = True - Me.CheckBox16.Location = New System.Drawing.Point(6, 19) - Me.CheckBox16.Name = "CheckBox16" - Me.CheckBox16.Size = New System.Drawing.Size(49, 17) - Me.CheckBox16.TabIndex = 0 - Me.CheckBox16.Text = "Data" - Me.CheckBox16.UseVisualStyleBackColor = True - ' - 'GroupBox5 - ' - Me.GroupBox5.Controls.Add(Me.TextBox34) - Me.GroupBox5.Controls.Add(Me.Button8) - Me.GroupBox5.Controls.Add(Me.Label36) - Me.GroupBox5.Controls.Add(Me.TextBox25) - Me.GroupBox5.Controls.Add(Me.Label35) - Me.GroupBox5.Controls.Add(Me.ComboBox3) - Me.GroupBox5.Controls.Add(Me.TextBox11) - Me.GroupBox5.Controls.Add(Me.Label12) - Me.GroupBox5.Controls.Add(Me.Label11) - Me.GroupBox5.Controls.Add(Me.CheckBox3) - Me.GroupBox5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.GroupBox5.Location = New System.Drawing.Point(6, 6) - Me.GroupBox5.Name = "GroupBox5" - Me.GroupBox5.Size = New System.Drawing.Size(304, 120) - Me.GroupBox5.TabIndex = 37 - Me.GroupBox5.TabStop = False - Me.GroupBox5.Text = "Carattere" - ' - 'TextBox34 - ' - Me.TextBox34.Location = New System.Drawing.Point(160, 91) - Me.TextBox34.Name = "TextBox34" - Me.TextBox34.Size = New System.Drawing.Size(56, 20) - Me.TextBox34.TabIndex = 36 - Me.TextBox34.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'Button8 - ' - Me.Button8.ForeColor = System.Drawing.Color.Black - Me.Button8.Location = New System.Drawing.Point(222, 89) - Me.Button8.Name = "Button8" - Me.Button8.Size = New System.Drawing.Size(74, 24) - Me.Button8.TabIndex = 35 - Me.Button8.Text = "Scegli..." - ' - 'Label36 - ' - Me.Label36.ForeColor = System.Drawing.Color.Black - Me.Label36.Location = New System.Drawing.Point(8, 60) - Me.Label36.Name = "Label36" - Me.Label36.Size = New System.Drawing.Size(120, 19) - Me.Label36.TabIndex = 34 - Me.Label36.Text = "Dimensione miniatura" - Me.Label36.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'TextBox25 - ' - Me.TextBox25.Location = New System.Drawing.Point(160, 59) - Me.TextBox25.Name = "TextBox25" - Me.TextBox25.Size = New System.Drawing.Size(56, 20) - Me.TextBox25.TabIndex = 33 - Me.TextBox25.Text = "TextBox25" - ' - 'Label35 - ' - Me.Label35.ForeColor = System.Drawing.Color.Black - Me.Label35.Location = New System.Drawing.Point(8, 93) - Me.Label35.Name = "Label35" - Me.Label35.Size = New System.Drawing.Size(72, 16) - Me.Label35.TabIndex = 32 - Me.Label35.Text = "Colore RGB" - Me.Label35.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'ComboBox3 - ' - Me.ComboBox3.Location = New System.Drawing.Point(96, 8) - Me.ComboBox3.Name = "ComboBox3" - Me.ComboBox3.Size = New System.Drawing.Size(120, 21) - Me.ComboBox3.TabIndex = 28 - Me.ComboBox3.Text = "ComboBox3" - ' - 'TextBox11 - ' - Me.TextBox11.Location = New System.Drawing.Point(160, 35) - Me.TextBox11.Name = "TextBox11" - Me.TextBox11.Size = New System.Drawing.Size(56, 20) - Me.TextBox11.TabIndex = 27 - Me.TextBox11.Text = "TextBox11" - ' - 'Label12 - ' - Me.Label12.AutoSize = True - Me.Label12.ForeColor = System.Drawing.Color.Black - Me.Label12.Location = New System.Drawing.Point(8, 38) - Me.Label12.Name = "Label12" - Me.Label12.Size = New System.Drawing.Size(62, 13) - Me.Label12.TabIndex = 26 - Me.Label12.Text = "Dimensione" - Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label11 - ' - Me.Label11.AutoSize = True - Me.Label11.ForeColor = System.Drawing.Color.Black - Me.Label11.Location = New System.Drawing.Point(56, 8) - Me.Label11.Name = "Label11" - Me.Label11.Size = New System.Drawing.Size(28, 13) - Me.Label11.TabIndex = 22 - Me.Label11.Text = "Font" - ' - 'CheckBox3 - ' - Me.CheckBox3.ForeColor = System.Drawing.Color.Black - Me.CheckBox3.Location = New System.Drawing.Point(224, 8) - Me.CheckBox3.Name = "CheckBox3" - Me.CheckBox3.Size = New System.Drawing.Size(72, 24) - Me.CheckBox3.TabIndex = 24 - Me.CheckBox3.Text = "Grassetto" - ' - 'GroupBox4 - ' - Me.GroupBox4.Controls.Add(Me.Label40) - Me.GroupBox4.Controls.Add(Me.TextBox29) - Me.GroupBox4.Controls.Add(Me.TextBox18) - Me.GroupBox4.Controls.Add(Me.Label26) - Me.GroupBox4.Controls.Add(Me.DateTimePicker1) - Me.GroupBox4.Controls.Add(Me.CheckBox8) - Me.GroupBox4.Controls.Add(Me.TextBox9) - Me.GroupBox4.Controls.Add(Me.CheckBox7) - Me.GroupBox4.Controls.Add(Me.Label4) - Me.GroupBox4.Controls.Add(Me.TextBox4) - Me.GroupBox4.Controls.Add(Me.Label9) - Me.GroupBox4.Controls.Add(Me.Label13) - Me.GroupBox4.Controls.Add(Me.ComboBox1) - Me.GroupBox4.Controls.Add(Me.ComboBox2) - Me.GroupBox4.Controls.Add(Me.Label14) - Me.GroupBox4.Controls.Add(Me.TextBox12) - Me.GroupBox4.Controls.Add(Me.Label15) - Me.GroupBox4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.GroupBox4.Location = New System.Drawing.Point(6, 132) - Me.GroupBox4.Name = "GroupBox4" - Me.GroupBox4.Size = New System.Drawing.Size(496, 186) - Me.GroupBox4.TabIndex = 36 - Me.GroupBox4.TabStop = False - Me.GroupBox4.Text = "Testo da applicare" - ' - 'Label40 - ' - Me.Label40.AutoSize = True - Me.Label40.Location = New System.Drawing.Point(8, 52) - Me.Label40.Name = "Label40" - Me.Label40.Size = New System.Drawing.Size(48, 13) - Me.Label40.TabIndex = 40 - Me.Label40.Text = "Verticale" - ' - 'TextBox29 - ' - Me.TextBox29.Location = New System.Drawing.Point(72, 49) - Me.TextBox29.Multiline = True - Me.TextBox29.Name = "TextBox29" - Me.TextBox29.Size = New System.Drawing.Size(408, 44) - Me.TextBox29.TabIndex = 39 - ' - 'TextBox18 - ' - Me.TextBox18.Location = New System.Drawing.Point(232, 156) - Me.TextBox18.Name = "TextBox18" - Me.TextBox18.Size = New System.Drawing.Size(100, 20) - Me.TextBox18.TabIndex = 38 - ' - 'Label26 - ' - Me.Label26.AutoSize = True - Me.Label26.ForeColor = System.Drawing.Color.Black - Me.Label26.Location = New System.Drawing.Point(344, 156) - Me.Label26.Name = "Label26" - Me.Label26.Size = New System.Drawing.Size(48, 13) - Me.Label26.TabIndex = 37 - Me.Label26.Text = "partenza" - ' - 'DateTimePicker1 - ' - Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Time - Me.DateTimePicker1.Location = New System.Drawing.Point(392, 156) - Me.DateTimePicker1.Name = "DateTimePicker1" - Me.DateTimePicker1.Size = New System.Drawing.Size(88, 20) - Me.DateTimePicker1.TabIndex = 36 - ' - 'CheckBox8 - ' - Me.CheckBox8.ForeColor = System.Drawing.Color.Black - Me.CheckBox8.Location = New System.Drawing.Point(72, 156) - Me.CheckBox8.Name = "CheckBox8" - Me.CheckBox8.Size = New System.Drawing.Size(56, 16) - Me.CheckBox8.TabIndex = 35 - Me.CheckBox8.Text = "Orario" - ' - 'TextBox9 - ' - Me.TextBox9.Location = New System.Drawing.Point(120, 108) - Me.TextBox9.Name = "TextBox9" - Me.TextBox9.Size = New System.Drawing.Size(56, 20) - Me.TextBox9.TabIndex = 20 - Me.TextBox9.Text = "TextBox9" - ' - 'CheckBox7 - ' - Me.CheckBox7.ForeColor = System.Drawing.Color.Black - Me.CheckBox7.Location = New System.Drawing.Point(136, 156) - Me.CheckBox7.Name = "CheckBox7" - Me.CheckBox7.Size = New System.Drawing.Size(88, 16) - Me.CheckBox7.TabIndex = 34 - Me.CheckBox7.Text = "Tempo gara" - ' - 'Label4 - ' - Me.Label4.AutoSize = True - Me.Label4.ForeColor = System.Drawing.Color.Black - Me.Label4.Location = New System.Drawing.Point(8, 24) - Me.Label4.Name = "Label4" - Me.Label4.Size = New System.Drawing.Size(59, 13) - Me.Label4.TabIndex = 9 - Me.Label4.Text = "Orizzontale" - ' - 'TextBox4 - ' - Me.TextBox4.Location = New System.Drawing.Point(72, 24) - Me.TextBox4.Name = "TextBox4" - Me.TextBox4.Size = New System.Drawing.Size(408, 20) - Me.TextBox4.TabIndex = 8 - Me.TextBox4.Text = "TextBox4" - ' - 'Label9 - ' - Me.Label9.AutoSize = True - Me.Label9.ForeColor = System.Drawing.Color.Black - Me.Label9.Location = New System.Drawing.Point(8, 108) - Me.Label9.Name = "Label9" - Me.Label9.Size = New System.Drawing.Size(110, 13) - Me.Label9.TabIndex = 19 - Me.Label9.Text = "Trasparenza (0-100%)" - ' - 'Label13 - ' - Me.Label13.AutoSize = True - Me.Label13.ForeColor = System.Drawing.Color.Black - Me.Label13.Location = New System.Drawing.Point(16, 132) - Me.Label13.Name = "Label13" - Me.Label13.Size = New System.Drawing.Size(52, 13) - Me.Label13.TabIndex = 29 - Me.Label13.Text = "Posizione" - ' - 'ComboBox1 - ' - Me.ComboBox1.Location = New System.Drawing.Point(72, 132) - Me.ComboBox1.Name = "ComboBox1" - Me.ComboBox1.Size = New System.Drawing.Size(104, 21) - Me.ComboBox1.TabIndex = 28 - Me.ComboBox1.Text = "ComboBox1" - ' - 'ComboBox2 - ' - Me.ComboBox2.Location = New System.Drawing.Point(376, 132) - Me.ComboBox2.Name = "ComboBox2" - Me.ComboBox2.Size = New System.Drawing.Size(104, 21) - Me.ComboBox2.TabIndex = 31 - Me.ComboBox2.Text = "ComboBox2" - ' - 'Label14 - ' - Me.Label14.AutoSize = True - Me.Label14.ForeColor = System.Drawing.Color.Black - Me.Label14.Location = New System.Drawing.Point(304, 132) - Me.Label14.Name = "Label14" - Me.Label14.Size = New System.Drawing.Size(67, 13) - Me.Label14.TabIndex = 30 - Me.Label14.Text = "Allineamento" - ' - 'TextBox12 - ' - Me.TextBox12.Location = New System.Drawing.Point(376, 108) - Me.TextBox12.Name = "TextBox12" - Me.TextBox12.Size = New System.Drawing.Size(104, 20) - Me.TextBox12.TabIndex = 33 - Me.TextBox12.Text = "TextBox12" - ' - 'Label15 - ' - Me.Label15.AutoSize = True - Me.Label15.ForeColor = System.Drawing.Color.Black - Me.Label15.Location = New System.Drawing.Point(296, 108) - Me.Label15.Name = "Label15" - Me.Label15.Size = New System.Drawing.Size(75, 13) - Me.Label15.TabIndex = 32 - Me.Label15.Text = "Margine (pixel)" - ' - 'TabPage5 - ' - Me.TabPage5.Controls.Add(Me.GroupBox3) - Me.TabPage5.Controls.Add(Me.GroupBox8) - Me.TabPage5.Controls.Add(Me.GroupBox7) - Me.TabPage5.Location = New System.Drawing.Point(4, 22) - Me.TabPage5.Name = "TabPage5" - Me.TabPage5.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage5.Size = New System.Drawing.Size(513, 326) - Me.TabPage5.TabIndex = 4 - Me.TabPage5.Text = "Generale" - Me.TabPage5.UseVisualStyleBackColor = True - ' - 'GroupBox3 - ' - Me.GroupBox3.Controls.Add(Me.CheckBox6) - Me.GroupBox3.Controls.Add(Me.Button3) - Me.GroupBox3.Controls.Add(Me.Button2) - Me.GroupBox3.Controls.Add(Me.Label1) - Me.GroupBox3.Controls.Add(Me.Label2) - Me.GroupBox3.Controls.Add(Me.TextBox1) - Me.GroupBox3.Controls.Add(Me.TextBox2) - Me.GroupBox3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.GroupBox3.Location = New System.Drawing.Point(6, 6) - Me.GroupBox3.Name = "GroupBox3" - Me.GroupBox3.Size = New System.Drawing.Size(496, 101) - Me.GroupBox3.TabIndex = 35 - Me.GroupBox3.TabStop = False - Me.GroupBox3.Text = "Directory" - ' - 'CheckBox6 - ' - Me.CheckBox6.ForeColor = System.Drawing.Color.Black - Me.CheckBox6.Location = New System.Drawing.Point(80, 64) - Me.CheckBox6.Name = "CheckBox6" - Me.CheckBox6.Size = New System.Drawing.Size(152, 24) - Me.CheckBox6.TabIndex = 25 - Me.CheckBox6.Text = "aggiorna le sottodirectory" - ' - 'Button3 - ' - Me.Button3.Location = New System.Drawing.Point(462, 40) - Me.Button3.Name = "Button3" - Me.Button3.Size = New System.Drawing.Size(24, 20) - Me.Button3.TabIndex = 6 - Me.Button3.Text = "..." - ' - 'Button2 - ' - Me.Button2.Location = New System.Drawing.Point(462, 16) - Me.Button2.Name = "Button2" - Me.Button2.Size = New System.Drawing.Size(24, 20) - Me.Button2.TabIndex = 5 - Me.Button2.Text = "..." - ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.ForeColor = System.Drawing.Color.Black - Me.Label1.Location = New System.Drawing.Point(6, 19) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(50, 13) - Me.Label1.TabIndex = 3 - Me.Label1.Text = "Sorgente" - ' - 'Label2 - ' - Me.Label2.AutoSize = True - Me.Label2.ForeColor = System.Drawing.Color.Black - Me.Label2.Location = New System.Drawing.Point(6, 43) - Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(68, 13) - Me.Label2.TabIndex = 4 - Me.Label2.Text = "Destinazione" - ' - 'TextBox1 - ' - Me.TextBox1.Location = New System.Drawing.Point(80, 16) - Me.TextBox1.Name = "TextBox1" - Me.TextBox1.Size = New System.Drawing.Size(376, 20) - Me.TextBox1.TabIndex = 0 - Me.TextBox1.Text = "TextBox1" - ' - 'TextBox2 - ' - Me.TextBox2.Location = New System.Drawing.Point(80, 40) - Me.TextBox2.Name = "TextBox2" - Me.TextBox2.Size = New System.Drawing.Size(376, 20) - Me.TextBox2.TabIndex = 1 - Me.TextBox2.Text = "TextBox2" - ' - 'GroupBox8 - ' - Me.GroupBox8.Controls.Add(Me.RadioButton2) - Me.GroupBox8.Controls.Add(Me.RadioButton1) - Me.GroupBox8.Controls.Add(Me.TextBox21) - Me.GroupBox8.Controls.Add(Me.Label34) - Me.GroupBox8.Controls.Add(Me.TextBox20) - Me.GroupBox8.Controls.Add(Me.Label33) - Me.GroupBox8.Controls.Add(Me.Label31) - Me.GroupBox8.Controls.Add(Me.CheckBox11) - Me.GroupBox8.Controls.Add(Me.TextBox17) - Me.GroupBox8.Controls.Add(Me.Label32) - Me.GroupBox8.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.GroupBox8.Location = New System.Drawing.Point(204, 113) - Me.GroupBox8.Name = "GroupBox8" - Me.GroupBox8.Size = New System.Drawing.Size(192, 152) - Me.GroupBox8.TabIndex = 47 - Me.GroupBox8.TabStop = False - Me.GroupBox8.Text = "Sottocartelle" - ' - 'RadioButton2 - ' - Me.RadioButton2.ForeColor = System.Drawing.Color.Black - Me.RadioButton2.Location = New System.Drawing.Point(32, 128) - Me.RadioButton2.Name = "RadioButton2" - Me.RadioButton2.Size = New System.Drawing.Size(136, 16) - Me.RadioButton2.TabIndex = 38 - Me.RadioButton2.Text = "Numerazione files" - ' - 'RadioButton1 - ' - Me.RadioButton1.Checked = True - Me.RadioButton1.ForeColor = System.Drawing.Color.Black - Me.RadioButton1.Location = New System.Drawing.Point(32, 112) - Me.RadioButton1.Name = "RadioButton1" - Me.RadioButton1.Size = New System.Drawing.Size(152, 16) - Me.RadioButton1.TabIndex = 37 - Me.RadioButton1.TabStop = True - Me.RadioButton1.Text = "Numerazione progressiva" - ' - 'TextBox21 - ' - Me.TextBox21.Location = New System.Drawing.Point(128, 88) - Me.TextBox21.Name = "TextBox21" - Me.TextBox21.Size = New System.Drawing.Size(56, 20) - Me.TextBox21.TabIndex = 34 - Me.TextBox21.Text = "4" - ' - 'Label34 - ' - Me.Label34.ForeColor = System.Drawing.Color.Black - Me.Label34.Location = New System.Drawing.Point(8, 88) - Me.Label34.Name = "Label34" - Me.Label34.Size = New System.Drawing.Size(112, 16) - Me.Label34.TabIndex = 33 - Me.Label34.Text = "Num. cifre contatore" - Me.Label34.TextAlign = System.Drawing.ContentAlignment.MiddleRight - ' - 'TextBox20 - ' - Me.TextBox20.Location = New System.Drawing.Point(56, 64) - Me.TextBox20.Name = "TextBox20" - Me.TextBox20.Size = New System.Drawing.Size(128, 20) - Me.TextBox20.TabIndex = 32 - Me.TextBox20.Text = "TextBox20" - ' - 'Label33 - ' - Me.Label33.ForeColor = System.Drawing.Color.Black - Me.Label33.Location = New System.Drawing.Point(6, 67) - Me.Label33.Name = "Label33" - Me.Label33.Size = New System.Drawing.Size(48, 16) - Me.Label33.TabIndex = 31 - Me.Label33.Text = "Suffisso" - ' - 'Label31 - ' - Me.Label31.ForeColor = System.Drawing.Color.Black - Me.Label31.Location = New System.Drawing.Point(24, 40) - Me.Label31.Name = "Label31" - Me.Label31.Size = New System.Drawing.Size(32, 16) - Me.Label31.TabIndex = 30 - Me.Label31.Text = "ogni" - ' - 'CheckBox11 - ' - Me.CheckBox11.ForeColor = System.Drawing.Color.Black - Me.CheckBox11.Location = New System.Drawing.Point(56, 16) - Me.CheckBox11.Name = "CheckBox11" - Me.CheckBox11.Size = New System.Drawing.Size(112, 16) - Me.CheckBox11.TabIndex = 29 - Me.CheckBox11.Text = "crea sottocartelle" - ' - 'TextBox17 - ' - Me.TextBox17.Location = New System.Drawing.Point(56, 40) - Me.TextBox17.Name = "TextBox17" - Me.TextBox17.Size = New System.Drawing.Size(64, 20) - Me.TextBox17.TabIndex = 27 - Me.TextBox17.Text = "99" - ' - 'Label32 - ' - Me.Label32.ForeColor = System.Drawing.Color.Black - Me.Label32.Location = New System.Drawing.Point(128, 40) - Me.Label32.Name = "Label32" - Me.Label32.Size = New System.Drawing.Size(24, 16) - Me.Label32.TabIndex = 28 - Me.Label32.Text = "file" - ' - 'GroupBox7 - ' - Me.GroupBox7.Controls.Add(Me.CheckBox10) - Me.GroupBox7.Controls.Add(Me.CheckBox9) - Me.GroupBox7.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.GroupBox7.Location = New System.Drawing.Point(6, 113) - Me.GroupBox7.Name = "GroupBox7" - Me.GroupBox7.Size = New System.Drawing.Size(192, 88) - Me.GroupBox7.TabIndex = 45 - Me.GroupBox7.TabStop = False - Me.GroupBox7.Text = "Generale" - ' - 'CheckBox10 - ' - Me.CheckBox10.ForeColor = System.Drawing.Color.Black - Me.CheckBox10.Location = New System.Drawing.Point(16, 37) - Me.CheckBox10.Name = "CheckBox10" - Me.CheckBox10.Size = New System.Drawing.Size(136, 16) - Me.CheckBox10.TabIndex = 1 - Me.CheckBox10.Text = "Rotazione automatica" - ' - 'CheckBox9 - ' - Me.CheckBox9.Checked = True - Me.CheckBox9.CheckState = System.Windows.Forms.CheckState.Checked - Me.CheckBox9.ForeColor = System.Drawing.Color.Black - Me.CheckBox9.Location = New System.Drawing.Point(16, 18) - Me.CheckBox9.Name = "CheckBox9" - Me.CheckBox9.Size = New System.Drawing.Size(80, 16) - Me.CheckBox9.TabIndex = 0 - Me.CheckBox9.Text = "Forza Jpg" - ' - 'TabControl1 - ' - Me.TabControl1.Controls.Add(Me.TabPage5) - Me.TabControl1.Controls.Add(Me.TabPage3) - Me.TabControl1.Controls.Add(Me.TabPage2) - Me.TabControl1.Controls.Add(Me.TabPage1) - Me.TabControl1.Controls.Add(Me.TabPage4) - Me.TabControl1.Location = New System.Drawing.Point(12, 12) - Me.TabControl1.Name = "TabControl1" - Me.TabControl1.SelectedIndex = 0 - Me.TabControl1.Size = New System.Drawing.Size(521, 352) - Me.TabControl1.TabIndex = 48 - ' - 'ProgressBar1 - ' - Me.ProgressBar1.Location = New System.Drawing.Point(539, 211) - Me.ProgressBar1.Name = "ProgressBar1" - Me.ProgressBar1.Size = New System.Drawing.Size(192, 23) - Me.ProgressBar1.TabIndex = 52 - ' - 'CheckBox12 - ' - Me.CheckBox12.ForeColor = System.Drawing.Color.Black - Me.CheckBox12.Location = New System.Drawing.Point(10, 19) - Me.CheckBox12.Name = "CheckBox12" - Me.CheckBox12.Size = New System.Drawing.Size(104, 21) - Me.CheckBox12.TabIndex = 35 - Me.CheckBox12.Text = "Aggiungi orario" - ' - 'CheckBox4 - ' - Me.CheckBox4.ForeColor = System.Drawing.Color.Black - Me.CheckBox4.Location = New System.Drawing.Point(10, 3) - Me.CheckBox4.Name = "CheckBox4" - Me.CheckBox4.Size = New System.Drawing.Size(104, 17) - Me.CheckBox4.TabIndex = 34 - Me.CheckBox4.Text = "Aggiungi scritta" - ' - 'CheckBox18 - ' - Me.CheckBox18.AutoSize = True - Me.CheckBox18.Location = New System.Drawing.Point(140, 3) - Me.CheckBox18.Name = "CheckBox18" - Me.CheckBox18.Size = New System.Drawing.Size(84, 17) - Me.CheckBox18.TabIndex = 36 - Me.CheckBox18.Text = "Numero foto" - Me.CheckBox18.UseVisualStyleBackColor = True - ' - 'Panel1 - ' - Me.Panel1.Controls.Add(Me.CheckBox18) - Me.Panel1.Controls.Add(Me.CheckBox4) - Me.Panel1.Controls.Add(Me.CheckBox12) - Me.Panel1.Location = New System.Drawing.Point(52, 236) - Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(304, 73) - Me.Panel1.TabIndex = 26 - Me.Panel1.Visible = False - ' - 'Form1 - ' - Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) - Me.ClientSize = New System.Drawing.Size(740, 375) - Me.Controls.Add(Me.ProgressBar1) - Me.Controls.Add(Me.Label44) - Me.Controls.Add(Me.CheckBox22) - Me.Controls.Add(Me.Label43) - Me.Controls.Add(Me.TabControl1) - Me.Controls.Add(Me.Label27) - Me.Controls.Add(Me.Button7) - Me.Controls.Add(Me.Button5) - Me.Controls.Add(Me.Label20) - Me.Controls.Add(Me.Label19) - Me.Controls.Add(Me.Label18) - Me.Controls.Add(Me.Label17) - Me.Controls.Add(Me.Label10) - Me.Controls.Add(Me.Button1) - Me.Controls.Add(Me.Button6) - Me.MaximizeBox = False - Me.MaximumSize = New System.Drawing.Size(756, 414) - Me.MinimumSize = New System.Drawing.Size(756, 414) - Me.Name = "Form1" - Me.Text = "Image Catalog" - Me.TabPage4.ResumeLayout(False) - Me.GroupBox6.ResumeLayout(False) - Me.GroupBox6.PerformLayout() - CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() - Me.TabPage1.ResumeLayout(False) - Me.GroupBox1.ResumeLayout(False) - Me.GroupBox1.PerformLayout() - Me.Panel2.ResumeLayout(False) - Me.Panel2.PerformLayout() - Me.TabPage2.ResumeLayout(False) - Me.GroupBox2.ResumeLayout(False) - Me.GroupBox2.PerformLayout() - Me.TabPage3.ResumeLayout(False) - Me.GroupBox10.ResumeLayout(False) - Me.GroupBox10.PerformLayout() - Me.GroupBox9.ResumeLayout(False) - Me.GroupBox9.PerformLayout() - Me.GroupBox5.ResumeLayout(False) - Me.GroupBox5.PerformLayout() - Me.GroupBox4.ResumeLayout(False) - Me.GroupBox4.PerformLayout() - Me.TabPage5.ResumeLayout(False) - Me.GroupBox3.ResumeLayout(False) - Me.GroupBox3.PerformLayout() - Me.GroupBox8.ResumeLayout(False) - Me.GroupBox8.PerformLayout() - Me.GroupBox7.ResumeLayout(False) - Me.TabControl1.ResumeLayout(False) - Me.Panel1.ResumeLayout(False) - Me.Panel1.PerformLayout() - Me.ResumeLayout(False) - Me.PerformLayout() - - End Sub - -#End Region - -#Const MULTI_THREADED = True - - Private StopAttivo As Boolean - Private WaterSelectColor As Boolean = False - - Private ContaFotoCuori As Integer - Private TaskCuori() As PicInfo - - Private MyPool As XYThreadPool = New XYThreadPool - Private ContaImmaginiThread As Integer - - Private Const maxThreads As Integer = 15 - - Private Sub setDefaults() - TextBox1.Text = "" - TextBox2.Text = "" - TextBox3.Text = "" - TextBox4.Text = "" - TextBox5.Text = "" - TextBox6.Text = "" - TextBox27.Text = "" - TextBox28.Text = "" - TextBox9.Text = "" - TextBox11.Text = "" - TextBox12.Text = "" - TextBox13.Text = "" - TextBox10.Text = "" - TextBox14.Text = "" - TextBox15.Text = "" - TextBox16.Text = "" - TextBox17.Text = "" - TextBox19.Text = "" - TextBox20.Text = "" - TextBox21.Text = "" - TextBox25.Text = "" - TextBox26.Text = "" - - ComboBox1.Items.Add("Alto") - ComboBox1.Items.Add("Basso") - ComboBox1.SelectedIndex = 1 - - ComboBox2.Items.Add("Sinistra") - ComboBox2.Items.Add("Centro") - ComboBox2.Items.Add("Destra") - ComboBox2.SelectedIndex = 1 - - ComboBox3.Items.Add("Arial") - ComboBox3.Items.Add("Arial Black") - ComboBox3.Items.Add("Arial Narrow") - ComboBox3.Items.Add("Comic Sans MS") - ComboBox3.Items.Add("Courier New") - ComboBox3.Items.Add("System") - ComboBox3.Items.Add("Times New Roman") - ComboBox3.Items.Add("Verdana") - ComboBox3.Items.Add("Wingdings") - ComboBox3.SelectedIndex = 7 - - ComboBox4.Items.Add("Sinistra") - ComboBox4.Items.Add("Centro") - ComboBox4.Items.Add("Destra") - ComboBox4.SelectedIndex = 2 - - ComboBox5.Items.Add("Alto") - ComboBox5.Items.Add("Centro") - ComboBox5.Items.Add("Basso") - ComboBox5.SelectedIndex = 2 - End Sub - - Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load - Application.EnableVisualStyles() - - setDefaults() - - End Sub - - Private Sub FixPaths() - If TextBox1.Text.EndsWith("\") = False Then - TextBox1.Text &= "\" - End If - If TextBox2.Text.EndsWith("\") = False Then - TextBox2.Text &= "\" - End If - End Sub - - Private Sub lockUI() - TabControl1.Enabled = False - Button5.Enabled = False - Button6.Enabled = False - Button1.Enabled = False - - End Sub - - Private Sub unlockUI() - TabControl1.Enabled = True - Button5.Enabled = True - Button6.Enabled = True - Button1.Enabled = True - End Sub - - Private Sub btnCreaCatalogo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click - lockUI() - Dim timeStart As Date - Dim timeStop As Date - - timeStart = TimeOfDay - FixPaths() - - Label10.Text = "" - Label17.Text = "0" - Label18.Text = "0" - setPicSettings(TextBox1.Text, TextBox2.Text) -#If MULTI_THREADED Then - ProgressBar1.Minimum = 0 - ProgressBar1.Step = 1 - ProgressBar1.Value = 0 - - Dim t1 As New Threading.Thread(AddressOf creaCatalogoThread) - t1.IsBackground = True - t1.Start() - -#Else - creaCatalogo(timeStart, timeStop) - unlockUI() -#End If - - - - - End Sub - - Private Sub creaCatalogoThread() - Dim timeStart As Date = TimeOfDay - MyPool.StopThreadPool() - MyPool.StartThreadPool(0, maxThreads) - ContaImmaginiThread = 0 - - creaImmaginiWithThreadMod(TextBox1.Text, TextBox2.Text) - - Dim ThAttivo As ThreadPoolWorkItem = Nothing - Dim i As Integer = 0 - - Do Until i = ContaImmaginiThread - Thread.Sleep(100) - ThAttivo = MyPool.ExtractWorkItem() - If ThAttivo IsNot Nothing Then - i += 1 - 'stepProgressBar() - setLabel10Text("File: " & ThAttivo.m_sName) - - 'setLabel18Text(ContaImmaginiThread.ToString) - 'setLabel18Text(i.ToString) - - - 'Label10.Text = "File: " & ThAttivo.m_sName - 'Label18.Text = ContaImmaginiThread.ToString - End If - Loop - MyPool.StopThreadPool() - Dim timeStop As Date = TimeOfDay - - setLabel10Text("Finito") - setLabel43Text(CalcTime(timeStart, timeStop)) - - End Sub - - Private Sub creaCatalogo(timeStart As Date, timeStop As Date) - 'asdfg - MyPool.StopThreadPool() - MyPool.StartThreadPool(0, maxThreads) - ContaImmaginiThread = 0 - - creaImmaginiWithThreadMod(TextBox1.Text, TextBox2.Text) - - Dim ThAttivo As ThreadPoolWorkItem = Nothing - Dim i As Integer = 0 - - Do Until i = ContaImmaginiThread - Thread.Sleep(100) - ThAttivo = MyPool.ExtractWorkItem() - If ThAttivo IsNot Nothing Then - i += 1 - Label10.Text = "File: " & ThAttivo.m_sName - Label18.Text = ContaImmaginiThread.ToString - - End If - Loop - MyPool.StopThreadPool() - timeStop = TimeOfDay - - CalcTime(timeStart, timeStop) - Label10.Text = "Finito" - If CheckBox22.Checked = True Then - Shell("%windir%\System32\shutdown.exe") - End If - End Sub - - Private Function CalcTime(ByVal timeStart As Date, ByVal timeStop As Date) As String - Dim timediffH, timediffS As Long - Dim timediffM As Long - timediffM = DateAndTime.DateDiff(DateInterval.Minute, timeStart, timeStop) - timediffS = DateAndTime.DateDiff(DateInterval.Second, timeStart, timeStop) - timediffH = DateAndTime.DateDiff(DateInterval.Hour, timeStart, timeStop) - 'dim s As String = "H:" + timediffH.ToString + " M:" + timediffM.ToString + " S:" + timediffS.ToString - Dim s As String = "S:" + timediffS.ToString - 'Label43.Text = "H:" + timediffH.ToString + " M:" + timediffM.ToString + " S:" + timediffS.ToString - Return s - End Function - Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click - Dim DirSearch As FolderBrowserDialog = New FolderBrowserDialog - DirSearch.SelectedPath = TextBox1.Text - If DialogResult.OK = DirSearch.ShowDialog() Then - Dim DirectoryScelta As String = DirSearch.SelectedPath - If DirectoryScelta.EndsWith("\") = False Then - DirectoryScelta &= "\" - End If - - TextBox1.Text = DirectoryScelta - End If - End Sub - - Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click - Dim DirSearch As FolderBrowserDialog = New FolderBrowserDialog - DirSearch.SelectedPath = TextBox2.Text - If DialogResult.OK = DirSearch.ShowDialog() Then - Dim DirectoryScelta As String = DirSearch.SelectedPath - If DirectoryScelta.EndsWith("\") = False Then - DirectoryScelta &= "\" - End If - - TextBox2.Text = DirectoryScelta - End If - - '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 - End Sub - - Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click - Dim SaveFileDlg As SaveFileDialog = New SaveFileDialog - - 'SaveFileDlg.InitialDirectory = "c:\" - SaveFileDlg.Filter = "Setup (*.xml)|*.xml|All valid files (*.*)|*.*" - SaveFileDlg.FilterIndex = 0 - SaveFileDlg.RestoreDirectory = True - - If DialogResult.OK = SaveFileDlg.ShowDialog Then - Dim IlNome As String = SaveFileDlg.FileName - - SetupIni.NomeFileSetup = IlNome - - SetupIni.AggiornaParametro("DirSorgente", TextBox1.Text) - SetupIni.AggiornaParametro("DirDestinazione", TextBox2.Text) - SetupIni.AggiornaParametro("DirSottoDirectory", CheckBox6.Checked) - - SetupIni.AggiornaParametro("DirDividiDestinazione", CheckBox11.Checked) - SetupIni.AggiornaParametro("DirDividiNumFile", TextBox17.Text) - SetupIni.AggiornaParametro("DirDividiSuffisso", TextBox20.Text) - SetupIni.AggiornaParametro("DirDividiNumCifre", TextBox21.Text) - If RadioButton1.Checked = True Then - SetupIni.AggiornaParametro("DirDividiTipoNumerazione", "Progressiva") - Else - SetupIni.AggiornaParametro("DirDividiTipoNumerazione", "Files") - End If - - SetupIni.AggiornaParametro("MiniatureCrea", CheckBox1.Checked) - SetupIni.AggiornaParametro("MiniatureSuffisso", TextBox3.Text) - SetupIni.AggiornaParametro("MiniatureAltezza", TextBox5.Text) - SetupIni.AggiornaParametro("MiniatureLarghezza", TextBox6.Text) - SetupIni.AggiornaParametro("MiniatureAddScritta", RadioButton3.Checked) - SetupIni.AggiornaParametro("MiniatureAddOrario", RadioButton4.Checked) - - SetupIni.AggiornaParametro("FotoAltezza", TextBox27.Text) - SetupIni.AggiornaParametro("FotoLarghezza", TextBox28.Text) - SetupIni.AggiornaParametro("FotoCodice", TextBox13.Text) - SetupIni.AggiornaParametro("FotoDimOriginali", CheckBox2.Checked) - - SetupIni.AggiornaParametro("FontDimensione", TextBox11.Text) - SetupIni.AggiornaParametro("FontDimensioneMiniatura", TextBox25.Text) - SetupIni.AggiornaParametro("FontBold", CheckBox3.Checked) - SetupIni.AggiornaParametro("FontNome", ComboBox3.Text) - - - SetupIni.AggiornaParametro("TestoTesto", TextBox4.Text) - SetupIni.AggiornaParametro("TestoTrasparente", TextBox9.Text) - SetupIni.AggiornaParametro("TestoMargine", TextBox12.Text) - SetupIni.AggiornaParametro("TestoPosizione", ComboBox1.Text) - SetupIni.AggiornaParametro("TestoAllineamento", ComboBox2.Text) - - SetupIni.AggiornaParametro("MarchioFile", TextBox10.Text) - SetupIni.AggiornaParametro("MarchioAltezza", TextBox14.Text) - SetupIni.AggiornaParametro("MarchioLarghezza", TextBox15.Text) - SetupIni.AggiornaParametro("MarchioMargine", TextBox16.Text) - SetupIni.AggiornaParametro("MarchioAllOrizzontale", ComboBox4.Text) - SetupIni.AggiornaParametro("MarchioAllVerticale", ComboBox5.Text) - SetupIni.AggiornaParametro("MarchioTrasparenza", TextBox19.Text) - SetupIni.AggiornaParametro("MarchioAggiungi", CheckBox5.Checked) - - SetupIni.AggiornaParametro("TempoGara", CheckBox7.Checked) - SetupIni.AggiornaParametro("Orario", CheckBox8.Checked) - SetupIni.AggiornaParametro("EtichettaOrario", TextBox18.Text) - - SetupIni.AggiornaParametro("GeneraleForzaJpg", CheckBox9.Checked) - SetupIni.AggiornaParametro("GeneraleRotazioneAutomatica", CheckBox10.Checked) - SetupIni.AggiornaParametro("GrandezzaVerticale", TextBox30.Text) - SetupIni.AggiornaParametro("MargineVerticale", TextBox31.Text) - SetupIni.AggiornaParametro("DimensioniOriginali", CheckBox15.Checked) - SetupIni.AggiornaParametro("TestoVerticale", TextBox29.Text) - SetupIni.AggiornaParametro("NomeMiniatura", RadioButton6.Checked) - SetupIni.AggiornaParametro("DataFoto", CheckBox16.Checked) - SetupIni.AggiornaParametro("NumeroFoto", CheckBox17.Checked) - - SetupIni.AggiornaParametro("ColoreTestoRGB", TextBox34.Text) - - SetupIni.AggiornaParametro("TempoSmall", RadioButton5.Checked) - SetupIni.AggiornaParametro("NumTempoSmall", RadioButton7.Checked) - - SetupIni.AggiornaParametro("CompressioneJpeg", TextBox32.Text) - SetupIni.AggiornaParametro("CompressioneJpegMiniatura", TextBox33.Text) - SetupIni.SalvaParametriSetup() - Me.Text = "Image Catalog - " & LeggiSoloNomeFile(IlNome) - End If - End Sub - - Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click - Dim openFileDialog As OpenFileDialog = New OpenFileDialog - - 'openFileDialog.InitialDirectory = TextBox1.Text - openFileDialog.Filter = "Setup (*.xml)|*.xml|All valid files (*.*)|*.*" - openFileDialog.FilterIndex = 0 - openFileDialog.RestoreDirectory = True - - If DialogResult.OK = openFileDialog.ShowDialog() Then - Dim IlNome As String = openFileDialog.FileName - - SetupIni.NomeFileSetup = IlNome - SetupIni.CaricaParametriSetup() - - TextBox1.Text = SetupIni.LeggiParametroString("DirSorgente") - TextBox2.Text = SetupIni.LeggiParametroString("DirDestinazione") - CheckBox6.Checked = SetupIni.LeggiParametroBoolean("DirSottoDirectory") - - CheckBox11.Checked = SetupIni.LeggiParametroBoolean("DirDividiDestinazione") - TextBox17.Text = SetupIni.LeggiParametroString("DirDividiNumFile") - TextBox20.Text = SetupIni.LeggiParametroString("DirDividiSuffisso") - TextBox21.Text = SetupIni.LeggiParametroString("DirDividiNumCifre") - - Dim TestoTemp As String = SetupIni.LeggiParametroString("DirDividiTipoNumerazione") - If TestoTemp.ToUpper = "PROGRESSIVA" Then - RadioButton1.Checked = True - Else - RadioButton2.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") - - CheckBox9.Checked = SetupIni.LeggiParametroBoolean("GeneraleForzaJpg") - CheckBox10.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 - Me.Text = "Image Catalog - " & LeggiSoloNomeFile(IlNome) - 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.DirectorySorgente = TextBox1.Text - PicSettings.DirectoryDestinazione = TextBox2.Text - - 'PicSettings.DestDir = DestDir - 'PicSettings.SourceDir = SourceDir - 'PicSettings.DestDirStart = DestDirStart - - PicSettings.DimStandard = CType(TextBox11.Text, Integer) - PicSettings.DimStandardMiniatura = CType(TextBox25.Text, Integer) - - PicSettings.UsaOrarioMiniatura = CheckBox12.Checked - PicSettings.UsaOrarioTestoApplicare = CheckBox8.Checked - PicSettings.UsaTempoGaraTestoApplicare = CheckBox7.Checked - - PicSettings.UsaRotazioneAutomatica = CheckBox10.Checked - PicSettings.UsaForzaJpg = CheckBox9.Checked - - If CheckBox17.Checked Then - PicSettings.TestoNome = True - Else - PicSettings.TestoNome = False - - End If - - If CheckBox16.Checked Then - PicSettings.NomeData = True - Else - PicSettings.NomeData = False - End If - PicSettings.TestoFirmaStart = TextBox4.Text - PicSettings.TestoFirmaStartV = TextBox29.Text - - PicSettings.DataPartenza = DateTimePicker1.Value - PicSettings.TestoOrario = TextBox18.Text - - PicSettings.AltezzaSmall = CType(TextBox5.Text, Integer) - PicSettings.LarghezzaSmall = CType(TextBox5.Text, Integer) - - PicSettings.CreaMiniature = CheckBox1.Checked - PicSettings.AggiungiScritteMiniature = RadioButton3.Checked - PicSettings.AggTempoGaraMin = RadioButton5.Checked - PicSettings.AggNumTempMin = RadioButton7.Checked - - - PicSettings.DimVert = CType(TextBox30.Text, Integer) - PicSettings.MargVert = CType(TextBox31.Text, Integer) - - 'PicSettings.NomeFileChild = childFile.Name - PicSettings.Suffisso = TextBox3.Text - PicSettings.Codice = TextBox13.Text - - PicSettings.Trasparenza = CType(TextBox9.Text, Integer) - PicSettings.IlFont = ComboBox3.SelectedItem.ToString - PicSettings.Grassetto = CheckBox3.Checked - - PicSettings.Posizione = ComboBox1.SelectedItem.ToString - PicSettings.Allineamento = ComboBox2.SelectedItem.ToString - PicSettings.Margine = CType(TextBox12.Text, Integer) - - PicSettings.LogoAltezza = CType(TextBox14.Text, Integer) - PicSettings.LogoLarghezza = CType(TextBox15.Text, Integer) - - PicSettings.fontColoreRGB = ColorTranslator.FromHtml(TextBox34.Text) - - PicSettings.LogoAggiungi = CheckBox5.Checked - PicSettings.LogoNomeFile = TextBox10.Text - PicSettings.LogoTrasparenza = TextBox19.Text - PicSettings.LogoMargine = TextBox16.Text - PicSettings.LogoPosizioneH = ComboBox4.Text - PicSettings.LogoPosizioneV = ComboBox5.Text - - PicSettings.FotoGrandeDimOrigina = CheckBox15.Checked - PicSettings.AltezzaBig = CType(TextBox27.Text, Integer) - PicSettings.LarghezzaBig = CType(TextBox28.Text, Integer) - PicSettings.DimMin = CType(TextBox25.Text, Integer) - - PicSettings.TestoMin = RadioButton6.Checked - - PicSettings.jpegQuality = CLng(TextBox32.Text) - PicSettings.jpegQualityMin = CLng(TextBox33.Text) - - 'PicSettings.mainForm = Me - - - End Sub - - Private Function makeFilesList(ByVal SourcePath As String) As List(Of List(Of FileInfo)) - Dim SourceDir As DirectoryInfo = New DirectoryInfo(SourcePath) - - Dim DestDir As DirectoryInfo = Nothing - Dim NumFileXDir As Integer = CType(TextBox17.Text, Integer) - Dim SuffixDir As String = TextBox20.Text - Dim NumCifreDir As Integer = CType(TextBox21.Text, Integer) - Dim DividiFile As Boolean = False - - StopAttivo = False - - Dim FileConta As Integer = 0 - Dim ContaFileXDir As Integer = 0 - Dim ContaDirXDir As Integer = 0 - Dim TestoTemp As String = "" - Dim ContaTemp As Integer = 0 - - Dim picList As New List(Of FileInfo) - Dim dirList As New List(Of List(Of FileInfo)) - - - 'controlla directory principale - 'Dim childFile As FileInfo - 'For Each childFile In SourceDir.GetFiles("*.jpg") - ' picList.Add(childFile) - 'Next - - picList = getFiles(SourceDir) - - dirList.Add(picList) - - 'controlla sottodirectory - If CheckBox6.Checked = True Then - Dim subDir As DirectoryInfo - For Each subDir In SourceDir.GetDirectories() - Dim filesList As New List(Of FileInfo) - filesList = getFiles(subDir) - dirList.Add(filesList) - Next - End If - - Return dirList - End Function - - Private Function getFiles(sourceDir As DirectoryInfo) As List(Of FileInfo) - Dim picList As New List(Of FileInfo) - Dim childFile As FileInfo - For Each childFile In sourceDir.GetFiles("*.jpg") - picList.Add(childFile) - Next - Return picList - End Function - - Private Function dividiLista(SourcePath As String, lista As List(Of List(Of FileInfo))) As List(Of List(Of FileInfo)) - Dim SourceDir As DirectoryInfo = New DirectoryInfo(SourcePath) - - Dim NumFileXDir As Integer = CType(TextBox17.Text, Integer) - Dim SuffixDir As String = TextBox20.Text - Dim NumCifreDir As Integer = CType(TextBox21.Text, Integer) - Dim DividiFile As Boolean = False - - Dim FileConta As Integer = 0 - Dim ContaFileXDir As Integer = 0 - Dim ContaDirXDir As Integer = 0 - Dim TestoTemp As String = "" - Dim ContaTemp As Integer = 0 - - If NumFileXDir > 0 And CheckBox11.Checked = True Then - If FileConta > NumFileXDir Then - DividiFile = True - Else - - End If - - End If - - End Function - - Private Sub setLabel17Text(ByVal text As String) - If Label17.InvokeRequired Then - Label17.Invoke(New Action(Of String)(AddressOf setLabel17Text), text) - Else - Label17.Text = text - - End If - End Sub - Public Sub stepProgressBar() - If ProgressBar1.InvokeRequired Then - ProgressBar1.Invoke(New MethodInvoker(AddressOf ProgressBar1.PerformStep)) - Else - ProgressBar1.PerformStep() - End If - setLabel18Text(ProgressBar1.Value.ToString) - End Sub - Private Sub setLabel10Text(ByVal text As String) - If Label10.InvokeRequired Then - Label10.Invoke(New Action(Of String)(AddressOf setLabel10Text), text) - Else - Label10.Text = text - - End If - End Sub - - Private Sub setProgressBarMaximum(ByVal value As Integer) - If ProgressBar1.InvokeRequired Then - ProgressBar1.Invoke(New Action(Of Integer)(AddressOf setProgressBarMaximum), value) - Else - ProgressBar1.Maximum = value - - End If - End Sub - - Private Sub setProgressBarValue(ByVal value As Integer) - If ProgressBar1.InvokeRequired Then - ProgressBar1.Invoke(New Action(Of Integer)(AddressOf setProgressBarValue), value) - Else - ProgressBar1.Value = value - - End If - End Sub - - Private Sub setLabel18Text(ByVal text As String) - If Label18.InvokeRequired Then - Label18.Invoke(New Action(Of String)(AddressOf setLabel18Text), text) - Else - Label18.Text = text - - End If - End Sub - - Private Sub setLabel43Text(ByVal text As String) - If Label43.InvokeRequired Then - Label43.Invoke(New Action(Of String)(AddressOf setLabel43Text), text) - Else - Label43.Text = text - - End If - End Sub - - Private Sub creaImmaginiWithThreadMod(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 - Dim NumFileXDir As Integer = CType(TextBox17.Text, Integer) - Dim SuffixDir As String = TextBox20.Text - Dim NumCifreDir As Integer = CType(TextBox21.Text, Integer) - Dim DividiFile As Boolean = False - - StopAttivo = False - - Dim FileConta As Integer = 0 - Dim ContaFileXDir As Integer = 0 - Dim ContaDirXDir As Integer = 0 - Dim TestoTemp As String = "" - Dim ContaTemp As Integer = 0 - - - - If SourceDir.Exists Then - FileConta = SourceDir.GetFiles("*.jpg").GetLength(0) - 'Label17.Text = (CType(Label17.Text, Integer) + FileConta).ToString - Dim a As String = (CType(Label17.Text, Integer) + FileConta).ToString - setLabel17Text(a) - - setProgressBarMaximum(CInt(a)) - - If NumFileXDir > 0 And CheckBox11.Checked = True Then - If FileConta > NumFileXDir Then - DividiFile = True - Else - DestDir = DestDirStart - If Not DestDir.Exists Then - DestDir.Create() - End If - DividiFile = False - End If - Else - DestDir = DestDirStart - If Not DestDir.Exists Then - DestDir.Create() - End If - DividiFile = False - End If - - Dim childFile As FileInfo - For Each childFile In SourceDir.GetFiles("*.jpg") - If StopAttivo = True Then - Exit For - End If - setLabel10Text("File: " & childFile.Name) - Dim b As String = (CType(Label18.Text, Integer) + 1).ToString - 'setLabel18Text(b) - 'setProgressBarValue(CInt(b)) - 'Label10.Text = "File: " & childFile.Name - 'Label18.Text = (CType(Label18.Text, Integer) + 1).ToString - 'Application.DoEvents() - - ContaFileXDir += 1 - - If DividiFile = True Then - If ContaFileXDir = (ContaDirXDir * NumFileXDir) + 1 Then - ContaDirXDir += 1 - - If RadioButton1.Checked = True Then - TestoTemp = ContaDirXDir.ToString - Else - TestoTemp = (ContaDirXDir * NumFileXDir).ToString - End If - For ContaTemp = 1 To (NumCifreDir - TestoTemp.Length) - TestoTemp = "0" & TestoTemp - Next - - If DestDirStart.FullName.EndsWith("\") Then - DestDir = New DirectoryInfo(DestDirStart.FullName & SuffixDir & TestoTemp) - Else - DestDir = New DirectoryInfo(DestDirStart.FullName & "\" & SuffixDir & TestoTemp) - End If - - If Not DestDir.Exists Then - DestDir.Create() - End If - End If - End If - - 'Application.DoEvents() - - - - Dim ClsCreaImmagine As New ImageCreator - ClsCreaImmagine.NomeFileChild = childFile.Name - ClsCreaImmagine.DestDir = DestDir - ClsCreaImmagine.SourceDir = SourceDir - ClsCreaImmagine.DestDirStart = DestDirStart - - ContaImmaginiThread += 1 - MyPool.InsertWorkItem(childFile.Name, New XyThreadAdd(AddressOf ClsCreaImmagine.CreaImmagineThread), New Object(0) {childFile.Name}, True) - Next - ' copy all the sub-directories by recursively calling this same routine - If CheckBox6.Checked = True Then - Dim subDir As DirectoryInfo - For Each subDir In SourceDir.GetDirectories() - creaImmaginiWithThreadMod(subDir.FullName, Path.Combine(DestDir.FullName, subDir.Name)) - Next - End If - End If - End Sub - - 'il posto giusto dove fare modifiche - Private Sub CreaImmaginiWithThread(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 - Dim NumFileXDir As Integer = CType(TextBox17.Text, Integer) - Dim SuffixDir As String = TextBox20.Text - Dim NumCifreDir As Integer = CType(TextBox21.Text, Integer) - Dim DividiFile As Boolean = False - - StopAttivo = False - - Dim FileConta As Integer = 0 - Dim ContaFileXDir As Integer = 0 - Dim ContaDirXDir As Integer = 0 - Dim TestoTemp As String = "" - Dim ContaTemp As Integer = 0 - - - - If SourceDir.Exists Then - FileConta = SourceDir.GetFiles("*.jpg").GetLength(0) - Label17.Text = (CType(Label17.Text, Integer) + FileConta).ToString - - If NumFileXDir > 0 And CheckBox11.Checked = True Then - If FileConta > NumFileXDir Then - DividiFile = True - Else - DestDir = DestDirStart - If Not DestDir.Exists Then - DestDir.Create() - End If - DividiFile = False - End If - Else - DestDir = DestDirStart - If Not DestDir.Exists Then - DestDir.Create() - End If - DividiFile = False - End If - - Dim childFile As FileInfo - For Each childFile In SourceDir.GetFiles("*.jpg") - If StopAttivo = True Then - Exit For - End If - 'Label10.Text = "File: " & childFile.Name - 'Label18.Text = (CType(Label18.Text, Integer) + 1).ToString - 'Application.DoEvents() - - ContaFileXDir += 1 - - If DividiFile = True Then - If ContaFileXDir = (ContaDirXDir * NumFileXDir) + 1 Then - ContaDirXDir += 1 - - If RadioButton1.Checked = True Then - TestoTemp = ContaDirXDir.ToString - Else - TestoTemp = (ContaDirXDir * NumFileXDir).ToString - End If - For ContaTemp = 1 To (NumCifreDir - TestoTemp.Length) - TestoTemp = "0" & TestoTemp - Next - - If DestDirStart.FullName.EndsWith("\") Then - DestDir = New DirectoryInfo(DestDirStart.FullName & SuffixDir & TestoTemp) - Else - DestDir = New DirectoryInfo(DestDirStart.FullName & "\" & SuffixDir & TestoTemp) - End If - - If Not DestDir.Exists Then - DestDir.Create() - End If - End If - End If - - Application.DoEvents() - Dim ClsCreaImmagine As New CreaImmagineSeparateThread - - ClsCreaImmagine.DirectorySorgente = TextBox1.Text - ClsCreaImmagine.DirectoryDestinazione = TextBox2.Text - - ClsCreaImmagine.DestDir = DestDir - ClsCreaImmagine.SourceDir = SourceDir - ClsCreaImmagine.DestDirStart = DestDirStart - - ClsCreaImmagine.DimStandard = CType(TextBox11.Text, Integer) - ClsCreaImmagine.DimStandardMiniatura = CType(TextBox25.Text, Integer) - - ClsCreaImmagine.UsaOrarioMiniatura = CheckBox12.Checked - ClsCreaImmagine.UsaOrarioTestoApplicare = CheckBox8.Checked - ClsCreaImmagine.UsaTempoGaraTestoApplicare = CheckBox7.Checked - - ClsCreaImmagine.UsaRotazioneAutomatica = CheckBox10.Checked - ClsCreaImmagine.UsaForzaJpg = CheckBox9.Checked - - If CheckBox17.Checked Then - ClsCreaImmagine.TestoNome = True - Else - ClsCreaImmagine.TestoNome = False - - End If - - If CheckBox16.Checked Then - ClsCreaImmagine.NomeData = True - Else - ClsCreaImmagine.NomeData = False - End If - ClsCreaImmagine.TestoFirmaStart = TextBox4.Text - ClsCreaImmagine.TestoFirmaStartV = TextBox29.Text - - ClsCreaImmagine.DataPartenza = DateTimePicker1.Value - ClsCreaImmagine.TestoOrario = TextBox18.Text - - ClsCreaImmagine.AltezzaSmall = CType(TextBox5.Text, Integer) - ClsCreaImmagine.LarghezzaSmall = CType(TextBox5.Text, Integer) - - ClsCreaImmagine.CreaMiniature = CheckBox1.Checked - ClsCreaImmagine.AggiungiScritteMiniature = RadioButton3.Checked - ClsCreaImmagine.AggTempoGaraMin = RadioButton5.Checked - ClsCreaImmagine.AggNumTempMin = RadioButton7.Checked - - - ClsCreaImmagine.DimVert = CType(TextBox30.Text, Integer) - ClsCreaImmagine.MargVert = CType(TextBox31.Text, Integer) - - ClsCreaImmagine.NomeFileChild = childFile.Name - ClsCreaImmagine.Suffisso = TextBox3.Text - ClsCreaImmagine.Codice = TextBox13.Text - - ClsCreaImmagine.Trasparenza = CType(TextBox9.Text, Integer) - ClsCreaImmagine.IlFont = ComboBox3.SelectedItem.ToString - ClsCreaImmagine.Grassetto = CheckBox3.Checked - - ClsCreaImmagine.Posizione = ComboBox1.SelectedItem.ToString - ClsCreaImmagine.Allineamento = ComboBox2.SelectedItem.ToString - ClsCreaImmagine.Margine = CType(TextBox12.Text, Integer) - - ClsCreaImmagine.LogoAltezza = CType(TextBox14.Text, Integer) - ClsCreaImmagine.LogoLarghezza = CType(TextBox15.Text, Integer) - - 'ClsCreaImmagine.FontColoreR = CType(TextBox22.Text, Integer) - 'ClsCreaImmagine.FontColoreG = CType(TextBox23.Text, Integer) - 'ClsCreaImmagine.FontColoreB = CType(TextBox24.Text, Integer) - ClsCreaImmagine.fontColoreRGB = ColorTranslator.FromHtml(TextBox34.Text) - - ClsCreaImmagine.LogoAggiungi = CheckBox5.Checked - ClsCreaImmagine.LogoNomeFile = TextBox10.Text - ClsCreaImmagine.LogoTrasparenza = TextBox19.Text - ClsCreaImmagine.LogoMargine = TextBox16.Text - ClsCreaImmagine.LogoPosizioneH = ComboBox4.Text - ClsCreaImmagine.LogoPosizioneV = ComboBox5.Text - - ClsCreaImmagine.FotoGrandeDimOrigina = CheckBox15.Checked - ClsCreaImmagine.AltezzaBig = CType(TextBox27.Text, Integer) - ClsCreaImmagine.LarghezzaBig = CType(TextBox28.Text, Integer) - ClsCreaImmagine.DimMin = CType(TextBox25.Text, Integer) - - ClsCreaImmagine.TestoMin = RadioButton6.Checked - - ClsCreaImmagine.jpegQuality = CLng(TextBox32.Text) - ClsCreaImmagine.jpegQuality = CLng(TextBox33.Text) - - ContaImmaginiThread += 1 - MyPool.InsertWorkItem(childFile.Name, New XyThreadAdd(AddressOf ClsCreaImmagine.CreaImmagineThread), New Object(0) {childFile.Name}, True) - Next - ' copy all the sub-directories by recursively calling this same routine - If CheckBox6.Checked = True Then - Dim subDir As DirectoryInfo - For Each subDir In SourceDir.GetDirectories() - CreaImmaginiWithThread(subDir.FullName, Path.Combine(DestDir.FullName, subDir.Name)) - Next - End If - End If - End Sub - - Private Sub CopyDirectoryFile(ByVal SourcePath As String, ByVal DestPath As String, Optional ByVal OverWrite As Boolean = False) - Dim SourceDir As DirectoryInfo = New DirectoryInfo(SourcePath) - Dim DestDir As DirectoryInfo = New DirectoryInfo(DestPath) - - If SourceDir.Exists Then - If Not DestDir.Exists Then - DestDir.Create() - End If - ' copy all the files of the current directory - Dim childFile As FileInfo - For Each childFile In SourceDir.GetFiles() - If OverWrite Then - childFile.CopyTo(Path.Combine(DestDir.FullName, childFile.Name), True) - Else - ' if overwrite = false, copy the file only if it does not exist - ' this is done to avoid an IOException if a file already exists - ' this way the other files can be copied anyway... - If Not File.Exists(Path.Combine(DestDir.FullName, childFile.Name)) Then - childFile.CopyTo(Path.Combine(DestDir.FullName, childFile.Name), False) - End If - End If - Next - ' copy all the sub-directories by recursively calling this same routine - Dim subDir As DirectoryInfo - For Each subDir In SourceDir.GetDirectories() - CopyDirectoryFile(subDir.FullName, Path.Combine(DestDir.FullName, subDir.Name), OverWrite) - Next - End If - End Sub - - - - - - Function NewthumbSize(ByVal currentwidth As Integer, ByVal currentheight As Integer, ByVal MaxPixel As Integer, ByVal TipoSize As String) As Size - ' Calculate the Size of the New image - '*** Larghezza, Altezza, Auto - - Dim tempMultiplier As Double - - If TipoSize.ToUpper = "Larghezza".ToUpper Then - tempMultiplier = MaxPixel / currentwidth - ElseIf TipoSize.ToUpper = "Altezza".ToUpper Then - tempMultiplier = MaxPixel / currentheight - Else - If currentheight > currentwidth Then ' portrait - tempMultiplier = MaxPixel / currentheight - Else - tempMultiplier = MaxPixel / currentwidth - End If - End If - - Dim NewSize As New Size(CInt(currentwidth * tempMultiplier), CInt(currentheight * tempMultiplier)) - - Return NewSize - End Function - - - - Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click - StopAttivo = True - - MyPool.StopThreadPool() - unlockUI() - - End Sub - - Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click - Dim openFileDialog As OpenFileDialog = New OpenFileDialog - - 'openFileDialog.InitialDirectory = TextBox1.Text - openFileDialog.Filter = "Immagini jpg (*.jpg)|*.jpg|Immagini gif (*.gif)|*.gif|Tutti i file (*.*)|*.*" - If TextBox10.Text.Length > 0 Then - openFileDialog.FileName = TextBox10.Text - End If - openFileDialog.FilterIndex = 0 - openFileDialog.RestoreDirectory = True - - If DialogResult.OK = openFileDialog.ShowDialog() Then - TextBox10.Text = openFileDialog.FileName - 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 Function LeggiSoloNomeFile(ByVal FileName As String) As String - Dim Testo As String = FileName - Dim Risposta As String = "" - - Dim Nomi() As String = Testo.Split(New Char() {"\"c}) - If Nomi.Length > 1 Then - Risposta = Nomi(Nomi.Length - 1) - End If - - Return Risposta - End Function - - - Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove - 'GetColor() - 'GetPixelColor(PictureBox1.PointToScreen(e.Location)).ToArgb.ToString("X8") - - End Sub - - Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp - If e.Button = MouseButtons.Left Then - WaterSelectColor = True - Else - WaterSelectColor = False - End If - End Sub - - - 'Private Declare Function CreateDC Lib "gdi32.dll" (ByVal strDriver As String, ByVal strDevice As String, ByVal strOutput As String, ByVal pData As IntPtr) As IntPtr - 'Private Declare Function DeleteDC Lib "gdi32.dll" (ByVal hdc As IntPtr) As Boolean - 'Private Declare Function GetPixel Lib "gdi32.dll" (ByVal hdc As IntPtr, ByVal x As Integer, ByVal y As Integer) As Integer - 'Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As Point) As Boolean - - - '''' - '''' Get the color relative to mouse position - '''' - 'Private Sub GetColor() - ' Dim hdcScreen As IntPtr = CreateDC("Display", Nothing, Nothing, IntPtr.Zero) - ' Dim pt As Point = New Point - ' GetCursorPos(pt) - ' Dim cr As Integer = GetPixel(hdcScreen, pt.X, pt.Y) - ' DeleteDC(hdcScreen) - ' Dim clr As Color = Color.FromArgb((cr And &HFF), (cr And &HFF00) >> 8, (cr And &HFF0000) >> 16) - ' PictureBox3.BackColor = clr - ' If WaterSelectColor = True Then - ' PictureBox2.BackColor = clr - ' End If - ' WaterSelectColor = False - 'End Sub - - - Private Function GetPixelColor(ByVal screenLocation As Point) As Color() - 'Dim bm As New Bitmap(1, 1, Imaging.PixelFormat.Format24bppRgb) - 'Dim g As Graphics = Graphics.FromImage(bm) - 'g.CopyFromScreen(screenLocation, New Point(0, 0), New Size(1, 1)) - 'Dim result As Color = bm.GetPixel(0, 0) - 'g.Dispose() - 'bm.Dispose() - 'Return result - Return Nothing - End Function - - Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click - Dim MyDialog As New ColorDialog - MyDialog.AllowFullOpen = True - 'If TextBox22.Text.Length > 0 And TextBox23.Text.Length > 0 And TextBox24.Text.Length > 0 Then - ' If CType(TextBox22.Text, Integer) >= 0 And CType(TextBox23.Text, Integer) >= 0 And CType(TextBox24.Text, Integer) >= 0 Then - ' MyDialog.Color = Color.FromArgb(0, CType(TextBox22.Text, Integer), CType(TextBox23.Text, Integer), CType(TextBox24.Text, Integer)) - ' End If - 'End If - - If (MyDialog.ShowDialog() = Windows.Forms.DialogResult.OK) Then - 'TextBox22.Text = MyDialog.Color.R.ToString - 'TextBox23.Text = MyDialog.Color.G.ToString - 'TextBox24.Text = MyDialog.Color.B.ToString - TextBox34.Text = ColorTranslator.ToHtml(MyDialog.Color) - TextBox34.BackColor = MyDialog.Color - - End If - End Sub - - - - - - - - Private Sub TextBox27_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) - - End Sub - - - - - Private Sub CheckBox18_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox18.CheckedChanged - CheckBox4.Checked = False - CheckBox12.Checked = False - - End Sub - - Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged - CheckBox18.Checked = False - End Sub - - Private Sub CheckBox12_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox12.CheckedChanged - CheckBox18.Checked = False - End Sub - - -End Class - -Public Class PicInfoold - Public DirSource, DirDest, DirDestStart As DirectoryInfo - Public NomeImmagine As String - - Public Sub New(ByVal Dir_Source As DirectoryInfo, ByVal Dir_Dest As DirectoryInfo, ByVal Dir_DestStart As DirectoryInfo, ByVal Nome_Immagine As String) - DirSource = Dir_Source - DirDest = Dir_Dest - DirDestStart = Dir_DestStart - NomeImmagine = Nome_Immagine - End Sub -End Class \ No newline at end of file diff --git a/imagecatalog/ImageCatalog 2.csproj b/imagecatalog/ImageCatalog 2.csproj index d1a6ed8..635f432 100644 --- a/imagecatalog/ImageCatalog 2.csproj +++ b/imagecatalog/ImageCatalog 2.csproj @@ -55,5 +55,10 @@ Settings.settings + + + MainForm.cs + + \ No newline at end of file diff --git a/imagecatalog/MainForm.Designer.vb b/imagecatalog/MainForm.Designer.vb deleted file mode 100644 index 7c6943d..0000000 --- a/imagecatalog/MainForm.Designer.vb +++ /dev/null @@ -1,1956 +0,0 @@ - -Partial Class MainForm - Inherits System.Windows.Forms.Form - - 'Form overrides dispose to clean up the component list. - - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Required by the Windows Form Designer - Private components As System.ComponentModel.IContainer - - 'NOTE: The following procedure is required by the Windows Form Designer - 'It can be modified using the Windows Form Designer. - 'Do not modify it using the code editor. - - Private Sub InitializeComponent() - Me.ProgressBar1 = New System.Windows.Forms.ProgressBar() - Me.CheckBox22 = New System.Windows.Forms.CheckBox() - Me.Label43 = New System.Windows.Forms.Label() - Me.tabControl = New System.Windows.Forms.TabControl() - Me.tabGenerale = New System.Windows.Forms.TabPage() - Me.grpAvanzate = New System.Windows.Forms.GroupBox() - Me.Panel3 = New System.Windows.Forms.Panel() - Me.rdbNuovoMetodo = New System.Windows.Forms.RadioButton() - Me.rdbVecchioMetodo = New System.Windows.Forms.RadioButton() - Me.Label8 = New System.Windows.Forms.Label() - Me.TextBox8 = New System.Windows.Forms.TextBox() - Me.Label7 = New System.Windows.Forms.Label() - Me.TextBox7 = New System.Windows.Forms.TextBox() - Me.GroupBox3 = New System.Windows.Forms.GroupBox() - Me.chkAggiornaSottodirectory = New System.Windows.Forms.CheckBox() - Me.Button3 = New System.Windows.Forms.Button() - Me.Button2 = New System.Windows.Forms.Button() - Me.Label1 = New System.Windows.Forms.Label() - Me.Label2 = New System.Windows.Forms.Label() - Me.txtSorgente = New System.Windows.Forms.TextBox() - Me.txtDestinazione = New System.Windows.Forms.TextBox() - Me.grpSottocartelle = New System.Windows.Forms.GroupBox() - Me.rdbNumFiles = New System.Windows.Forms.RadioButton() - Me.rdbNumProgressiva = New System.Windows.Forms.RadioButton() - Me.txtCifreContatore = New System.Windows.Forms.TextBox() - Me.Label34 = New System.Windows.Forms.Label() - Me.txtSuffissoCartelle = New System.Windows.Forms.TextBox() - Me.Label33 = New System.Windows.Forms.Label() - Me.Label31 = New System.Windows.Forms.Label() - Me.chkCreaSottocartelle = New System.Windows.Forms.CheckBox() - Me.txtFilePerCartella = New System.Windows.Forms.TextBox() - Me.Label32 = New System.Windows.Forms.Label() - Me.grpGenerale = New System.Windows.Forms.GroupBox() - Me.chkSovrascriviFile = New System.Windows.Forms.CheckBox() - Me.chkRotazioneAutomatica = New System.Windows.Forms.CheckBox() - Me.chkForzaJpg = New System.Windows.Forms.CheckBox() - Me.tabTesto = New System.Windows.Forms.TabPage() - Me.CheckBox2 = New System.Windows.Forms.CheckBox() - Me.grpTestoFotoVerticali = New System.Windows.Forms.GroupBox() - Me.Label42 = New System.Windows.Forms.Label() - Me.Label41 = New System.Windows.Forms.Label() - Me.TextBox31 = New System.Windows.Forms.TextBox() - Me.TextBox30 = New System.Windows.Forms.TextBox() - Me.grpSlideShow = New System.Windows.Forms.GroupBox() - Me.CheckBox17 = New System.Windows.Forms.CheckBox() - Me.CheckBox16 = New System.Windows.Forms.CheckBox() - Me.grpCarattere = New System.Windows.Forms.GroupBox() - Me.TextBox34 = New System.Windows.Forms.TextBox() - Me.Button8 = New System.Windows.Forms.Button() - Me.Label36 = New System.Windows.Forms.Label() - Me.TextBox25 = New System.Windows.Forms.TextBox() - Me.Label35 = New System.Windows.Forms.Label() - Me.ComboBox3 = New System.Windows.Forms.ComboBox() - Me.TextBox11 = New System.Windows.Forms.TextBox() - Me.Label12 = New System.Windows.Forms.Label() - Me.Label11 = New System.Windows.Forms.Label() - Me.CheckBox3 = New System.Windows.Forms.CheckBox() - Me.GroupBox4 = New System.Windows.Forms.GroupBox() - Me.Label40 = New System.Windows.Forms.Label() - Me.TextBox29 = New System.Windows.Forms.TextBox() - Me.TextBox18 = New System.Windows.Forms.TextBox() - Me.Label26 = New System.Windows.Forms.Label() - Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() - Me.CheckBox8 = New System.Windows.Forms.CheckBox() - Me.TextBox9 = New System.Windows.Forms.TextBox() - Me.CheckBox7 = New System.Windows.Forms.CheckBox() - Me.Label4 = New System.Windows.Forms.Label() - Me.TextBox4 = New System.Windows.Forms.TextBox() - Me.Label9 = New System.Windows.Forms.Label() - Me.Label13 = New System.Windows.Forms.Label() - Me.ComboBox1 = New System.Windows.Forms.ComboBox() - Me.ComboBox2 = New System.Windows.Forms.ComboBox() - Me.Label14 = New System.Windows.Forms.Label() - Me.TextBox12 = New System.Windows.Forms.TextBox() - Me.Label15 = New System.Windows.Forms.Label() - Me.tabFoto = New System.Windows.Forms.TabPage() - Me.GroupBox2 = New System.Windows.Forms.GroupBox() - Me.Label45 = New System.Windows.Forms.Label() - Me.TextBox32 = New System.Windows.Forms.TextBox() - Me.TextBox26 = New System.Windows.Forms.TextBox() - Me.Label37 = New System.Windows.Forms.Label() - Me.Label38 = New System.Windows.Forms.Label() - Me.TextBox27 = New System.Windows.Forms.TextBox() - Me.Label39 = New System.Windows.Forms.Label() - Me.TextBox28 = New System.Windows.Forms.TextBox() - Me.CheckBox15 = New System.Windows.Forms.CheckBox() - Me.tabMiniature = New System.Windows.Forms.TabPage() - Me.Panel1 = New System.Windows.Forms.Panel() - Me.CheckBox18 = New System.Windows.Forms.CheckBox() - Me.CheckBox4 = New System.Windows.Forms.CheckBox() - Me.CheckBox12 = New System.Windows.Forms.CheckBox() - Me.GroupBox1 = New System.Windows.Forms.GroupBox() - Me.Label46 = New System.Windows.Forms.Label() - Me.TextBox33 = New System.Windows.Forms.TextBox() - Me.Panel2 = New System.Windows.Forms.Panel() - Me.RadioButton3 = New System.Windows.Forms.RadioButton() - Me.RadioButton7 = New System.Windows.Forms.RadioButton() - Me.RadioButton4 = New System.Windows.Forms.RadioButton() - Me.RadioButton6 = New System.Windows.Forms.RadioButton() - Me.RadioButton5 = New System.Windows.Forms.RadioButton() - Me.Label5 = New System.Windows.Forms.Label() - Me.TextBox5 = New System.Windows.Forms.TextBox() - Me.Label6 = New System.Windows.Forms.Label() - Me.TextBox6 = New System.Windows.Forms.TextBox() - Me.Label3 = New System.Windows.Forms.Label() - Me.TextBox3 = New System.Windows.Forms.TextBox() - Me.CheckBox1 = New System.Windows.Forms.CheckBox() - Me.tabLogo = New System.Windows.Forms.TabPage() - Me.GroupBox6 = New System.Windows.Forms.GroupBox() - Me.PictureBox2 = New System.Windows.Forms.PictureBox() - Me.PictureBox1 = New System.Windows.Forms.PictureBox() - Me.ComboBox5 = New System.Windows.Forms.ComboBox() - Me.ComboBox4 = New System.Windows.Forms.ComboBox() - Me.TextBox19 = New System.Windows.Forms.TextBox() - Me.Label28 = New System.Windows.Forms.Label() - Me.CheckBox5 = New System.Windows.Forms.CheckBox() - Me.TextBox15 = New System.Windows.Forms.TextBox() - Me.TextBox14 = New System.Windows.Forms.TextBox() - Me.Label25 = New System.Windows.Forms.Label() - Me.TextBox16 = New System.Windows.Forms.TextBox() - Me.Label24 = New System.Windows.Forms.Label() - Me.Label22 = New System.Windows.Forms.Label() - Me.Label23 = New System.Windows.Forms.Label() - Me.Button4 = New System.Windows.Forms.Button() - Me.TextBox10 = New System.Windows.Forms.TextBox() - Me.Label29 = New System.Windows.Forms.Label() - Me.Label30 = New System.Windows.Forms.Label() - Me.PictureBox3 = New System.Windows.Forms.PictureBox() - Me.Label27 = New System.Windows.Forms.Label() - Me.Button7 = New System.Windows.Forms.Button() - Me.btnSalvaImpostazioni = New System.Windows.Forms.Button() - Me.Label20 = New System.Windows.Forms.Label() - Me.Label19 = New System.Windows.Forms.Label() - Me.Label18 = New System.Windows.Forms.Label() - Me.lblFotoTotaliNum = New System.Windows.Forms.Label() - Me.Label10 = New System.Windows.Forms.Label() - Me.btnCreaCatalogo = New System.Windows.Forms.Button() - Me.Button6 = New System.Windows.Forms.Button() - Me.btnCreaCatalogoAsync = New System.Windows.Forms.Button() - Me.TabControl1.SuspendLayout() - Me.TabPage5.SuspendLayout() - Me.GroupBox11.SuspendLayout() - Me.Panel3.SuspendLayout() - Me.GroupBox3.SuspendLayout() - Me.GroupBox8.SuspendLayout() - Me.GroupBox7.SuspendLayout() - Me.TabPage3.SuspendLayout() - Me.GroupBox10.SuspendLayout() - Me.GroupBox9.SuspendLayout() - Me.GroupBox5.SuspendLayout() - Me.GroupBox4.SuspendLayout() - Me.TabPage2.SuspendLayout() - Me.GroupBox2.SuspendLayout() - Me.TabPage1.SuspendLayout() - Me.Panel1.SuspendLayout() - Me.GroupBox1.SuspendLayout() - Me.Panel2.SuspendLayout() - Me.TabPage4.SuspendLayout() - Me.GroupBox6.SuspendLayout() - CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() - Me.SuspendLayout() - ' - 'ProgressBar1 - ' - Me.ProgressBar1.Location = New System.Drawing.Point(719, 299) - Me.ProgressBar1.Margin = New System.Windows.Forms.Padding(4) - Me.ProgressBar1.Name = "ProgressBar1" - Me.ProgressBar1.Size = New System.Drawing.Size(256, 28) - Me.ProgressBar1.TabIndex = 67 - ' - 'CheckBox22 - ' - Me.CheckBox22.AutoSize = True - Me.CheckBox22.Location = New System.Drawing.Point(719, 441) - Me.CheckBox22.Margin = New System.Windows.Forms.Padding(4) - Me.CheckBox22.Name = "CheckBox22" - Me.CheckBox22.Size = New System.Drawing.Size(138, 21) - Me.CheckBox22.TabIndex = 65 - Me.CheckBox22.Text = "Arresta il sistema" - Me.CheckBox22.UseVisualStyleBackColor = True - ' - 'Label43 - ' - Me.Label43.AutoSize = True - Me.Label43.Location = New System.Drawing.Point(715, 421) - Me.Label43.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label43.Name = "Label43" - Me.Label43.Size = New System.Drawing.Size(32, 17) - Me.Label43.TabIndex = 64 - Me.Label43.Text = "000" - Me.Label43.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'tabControl - ' - Me.tabControl.Controls.Add(Me.tabGenerale) - Me.tabControl.Controls.Add(Me.tabTesto) - Me.tabControl.Controls.Add(Me.tabFoto) - Me.tabControl.Controls.Add(Me.tabMiniature) - Me.tabControl.Controls.Add(Me.tabLogo) - Me.tabControl.Location = New System.Drawing.Point(16, 15) - Me.tabControl.Margin = New System.Windows.Forms.Padding(4) - Me.tabControl.Name = "tabControl" - Me.tabControl.SelectedIndex = 0 - Me.tabControl.Size = New System.Drawing.Size(695, 464) - Me.tabControl.TabIndex = 63 - ' - 'tabGenerale - ' - Me.tabGenerale.Controls.Add(Me.grpAvanzate) - Me.tabGenerale.Controls.Add(Me.GroupBox3) - Me.tabGenerale.Controls.Add(Me.grpSottocartelle) - Me.tabGenerale.Controls.Add(Me.grpGenerale) - Me.tabGenerale.Location = New System.Drawing.Point(4, 25) - Me.tabGenerale.Margin = New System.Windows.Forms.Padding(4) - Me.tabGenerale.Name = "tabGenerale" - Me.tabGenerale.Padding = New System.Windows.Forms.Padding(4) - Me.tabGenerale.Size = New System.Drawing.Size(687, 435) - Me.tabGenerale.TabIndex = 4 - Me.tabGenerale.Text = "Generale" - Me.tabGenerale.UseVisualStyleBackColor = True - ' - 'grpAvanzate - ' - Me.grpAvanzate.Controls.Add(Me.Panel3) - Me.grpAvanzate.Controls.Add(Me.Label8) - Me.grpAvanzate.Controls.Add(Me.TextBox8) - Me.grpAvanzate.Controls.Add(Me.Label7) - Me.grpAvanzate.Controls.Add(Me.TextBox7) - Me.grpAvanzate.Location = New System.Drawing.Point(9, 257) - Me.grpAvanzate.Margin = New System.Windows.Forms.Padding(4) - Me.grpAvanzate.Name = "grpAvanzate" - Me.grpAvanzate.Padding = New System.Windows.Forms.Padding(4) - Me.grpAvanzate.Size = New System.Drawing.Size(255, 162) - Me.grpAvanzate.TabIndex = 48 - Me.grpAvanzate.TabStop = False - Me.grpAvanzate.Text = "Avanzate (ATTENZIONE)" - ' - 'Panel3 - ' - Me.Panel3.Controls.Add(Me.rdbNuovoMetodo) - Me.Panel3.Controls.Add(Me.rdbVecchioMetodo) - Me.Panel3.Location = New System.Drawing.Point(9, 90) - Me.Panel3.Margin = New System.Windows.Forms.Padding(4) - Me.Panel3.Name = "Panel3" - Me.Panel3.Size = New System.Drawing.Size(237, 65) - Me.Panel3.TabIndex = 4 - ' - 'rdbNuovoMetodo - ' - Me.rdbNuovoMetodo.AutoSize = True - Me.rdbNuovoMetodo.Checked = True - Me.rdbNuovoMetodo.Location = New System.Drawing.Point(11, 34) - Me.rdbNuovoMetodo.Margin = New System.Windows.Forms.Padding(4) - Me.rdbNuovoMetodo.Name = "rdbNuovoMetodo" - Me.rdbNuovoMetodo.Size = New System.Drawing.Size(121, 21) - Me.rdbNuovoMetodo.TabIndex = 1 - Me.rdbNuovoMetodo.TabStop = True - Me.rdbNuovoMetodo.Text = "Nuovo metodo" - Me.rdbNuovoMetodo.UseVisualStyleBackColor = True - ' - 'rdbVecchioMetodo - ' - Me.rdbVecchioMetodo.AutoSize = True - Me.rdbVecchioMetodo.Location = New System.Drawing.Point(11, 5) - Me.rdbVecchioMetodo.Margin = New System.Windows.Forms.Padding(4) - Me.rdbVecchioMetodo.Name = "rdbVecchioMetodo" - Me.rdbVecchioMetodo.Size = New System.Drawing.Size(130, 21) - Me.rdbVecchioMetodo.TabIndex = 0 - Me.rdbVecchioMetodo.Text = "Vecchio metodo" - Me.rdbVecchioMetodo.UseVisualStyleBackColor = True - ' - 'Label8 - ' - Me.Label8.AutoSize = True - Me.Label8.Location = New System.Drawing.Point(85, 32) - Me.Label8.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label8.Name = "Label8" - Me.Label8.Size = New System.Drawing.Size(111, 13) - Me.Label8.TabIndex = 3 - Me.Label8.Text = "Chunk Size (0 = MAX)" - ' - 'TextBox8 - ' - Me.TextBox8.Location = New System.Drawing.Point(9, 25) - Me.TextBox8.Margin = New System.Windows.Forms.Padding(4) - Me.TextBox8.Name = "TextBox8" - Me.TextBox8.Size = New System.Drawing.Size(61, 22) - Me.TextBox8.TabIndex = 2 - Me.TextBox8.Text = "0" - ' - 'Label7 - ' - Me.Label7.AutoSize = True - Me.Label7.Location = New System.Drawing.Point(81, 59) - Me.Label7.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label7.Name = "Label7" - Me.Label7.Size = New System.Drawing.Size(108, 13) - Me.Label7.TabIndex = 1 - Me.Label7.Text = "Threads (0 = CPU *2)" - ' - 'TextBox7 - ' - Me.TextBox7.Location = New System.Drawing.Point(9, 57) - Me.TextBox7.Margin = New System.Windows.Forms.Padding(4) - Me.TextBox7.Name = "TextBox7" - Me.TextBox7.Size = New System.Drawing.Size(61, 22) - Me.TextBox7.TabIndex = 0 - Me.TextBox7.Text = "0" - ' - 'GroupBox3 - ' - Me.GroupBox3.Controls.Add(Me.chkAggiornaSottodirectory) - Me.GroupBox3.Controls.Add(Me.Button3) - Me.GroupBox3.Controls.Add(Me.Button2) - Me.GroupBox3.Controls.Add(Me.Label1) - Me.GroupBox3.Controls.Add(Me.Label2) - Me.GroupBox3.Controls.Add(Me.txtSorgente) - Me.GroupBox3.Controls.Add(Me.txtDestinazione) - Me.GroupBox3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.GroupBox3.Location = New System.Drawing.Point(8, 7) - Me.GroupBox3.Margin = New System.Windows.Forms.Padding(4) - Me.GroupBox3.Name = "GroupBox3" - Me.GroupBox3.Padding = New System.Windows.Forms.Padding(4) - Me.GroupBox3.Size = New System.Drawing.Size(661, 124) - Me.GroupBox3.TabIndex = 35 - Me.GroupBox3.TabStop = False - Me.GroupBox3.Text = "Directory" - ' - 'chkAggiornaSottodirectory - ' - Me.chkAggiornaSottodirectory.Checked = True - Me.chkAggiornaSottodirectory.CheckState = System.Windows.Forms.CheckState.Checked - Me.chkAggiornaSottodirectory.ForeColor = System.Drawing.Color.Black - Me.chkAggiornaSottodirectory.Location = New System.Drawing.Point(107, 79) - Me.chkAggiornaSottodirectory.Margin = New System.Windows.Forms.Padding(4) - Me.chkAggiornaSottodirectory.Name = "chkAggiornaSottodirectory" - Me.chkAggiornaSottodirectory.Size = New System.Drawing.Size(203, 30) - Me.chkAggiornaSottodirectory.TabIndex = 25 - Me.chkAggiornaSottodirectory.Text = "aggiorna le sottodirectory" - ' - 'Button3 - ' - Me.Button3.Location = New System.Drawing.Point(616, 49) - Me.Button3.Margin = New System.Windows.Forms.Padding(4) - Me.Button3.Name = "Button3" - Me.Button3.Size = New System.Drawing.Size(32, 25) - Me.Button3.TabIndex = 6 - Me.Button3.Text = "..." - ' - 'Button2 - ' - Me.Button2.Location = New System.Drawing.Point(616, 20) - Me.Button2.Margin = New System.Windows.Forms.Padding(4) - Me.Button2.Name = "Button2" - Me.Button2.Size = New System.Drawing.Size(32, 25) - Me.Button2.TabIndex = 5 - Me.Button2.Text = "..." - ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.ForeColor = System.Drawing.Color.Black - Me.Label1.Location = New System.Drawing.Point(8, 23) - Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(66, 17) - Me.Label1.TabIndex = 3 - Me.Label1.Text = "Sorgente" - ' - 'Label2 - ' - Me.Label2.AutoSize = True - Me.Label2.ForeColor = System.Drawing.Color.Black - Me.Label2.Location = New System.Drawing.Point(8, 53) - Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(90, 17) - Me.Label2.TabIndex = 4 - Me.Label2.Text = "Destinazione" - ' - 'txtSorgente - ' - Me.txtSorgente.Location = New System.Drawing.Point(107, 20) - Me.txtSorgente.Margin = New System.Windows.Forms.Padding(4) - Me.txtSorgente.Name = "txtSorgente" - Me.txtSorgente.Size = New System.Drawing.Size(500, 22) - Me.txtSorgente.TabIndex = 0 - Me.txtSorgente.Text = "TextBox1" - ' - 'txtDestinazione - ' - Me.txtDestinazione.Location = New System.Drawing.Point(107, 49) - Me.txtDestinazione.Margin = New System.Windows.Forms.Padding(4) - Me.txtDestinazione.Name = "txtDestinazione" - Me.txtDestinazione.Size = New System.Drawing.Size(500, 22) - Me.txtDestinazione.TabIndex = 1 - Me.txtDestinazione.Text = "TextBox2" - ' - 'grpSottocartelle - ' - Me.grpSottocartelle.Controls.Add(Me.rdbNumFiles) - Me.grpSottocartelle.Controls.Add(Me.rdbNumProgressiva) - Me.grpSottocartelle.Controls.Add(Me.txtCifreContatore) - Me.grpSottocartelle.Controls.Add(Me.Label34) - Me.grpSottocartelle.Controls.Add(Me.txtSuffissoCartelle) - Me.grpSottocartelle.Controls.Add(Me.Label33) - Me.grpSottocartelle.Controls.Add(Me.Label31) - Me.grpSottocartelle.Controls.Add(Me.chkCreaSottocartelle) - Me.grpSottocartelle.Controls.Add(Me.txtFilePerCartella) - Me.grpSottocartelle.Controls.Add(Me.Label32) - Me.grpSottocartelle.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.grpSottocartelle.Location = New System.Drawing.Point(272, 139) - Me.grpSottocartelle.Margin = New System.Windows.Forms.Padding(4) - Me.grpSottocartelle.Name = "grpSottocartelle" - Me.grpSottocartelle.Padding = New System.Windows.Forms.Padding(4) - Me.grpSottocartelle.Size = New System.Drawing.Size(256, 187) - Me.grpSottocartelle.TabIndex = 47 - Me.grpSottocartelle.TabStop = False - Me.grpSottocartelle.Text = "Sottocartelle" - ' - 'rdbNumFiles - ' - Me.rdbNumFiles.ForeColor = System.Drawing.Color.Black - Me.rdbNumFiles.Location = New System.Drawing.Point(43, 158) - Me.rdbNumFiles.Margin = New System.Windows.Forms.Padding(4) - Me.rdbNumFiles.Name = "rdbNumFiles" - Me.rdbNumFiles.Size = New System.Drawing.Size(181, 20) - Me.rdbNumFiles.TabIndex = 38 - Me.rdbNumFiles.Text = "Numerazione files" - ' - 'rdbNumProgressiva - ' - Me.rdbNumProgressiva.Checked = True - Me.rdbNumProgressiva.ForeColor = System.Drawing.Color.Black - Me.rdbNumProgressiva.Location = New System.Drawing.Point(43, 138) - Me.rdbNumProgressiva.Margin = New System.Windows.Forms.Padding(4) - Me.rdbNumProgressiva.Name = "rdbNumProgressiva" - Me.rdbNumProgressiva.Size = New System.Drawing.Size(203, 20) - Me.rdbNumProgressiva.TabIndex = 37 - Me.rdbNumProgressiva.TabStop = True - Me.rdbNumProgressiva.Text = "Numerazione progressiva" - ' - 'txtCifreContatore - ' - Me.txtCifreContatore.Location = New System.Drawing.Point(171, 108) - Me.txtCifreContatore.Margin = New System.Windows.Forms.Padding(4) - Me.txtCifreContatore.Name = "txtCifreContatore" - Me.txtCifreContatore.Size = New System.Drawing.Size(73, 22) - Me.txtCifreContatore.TabIndex = 34 - Me.txtCifreContatore.Text = "4" - ' - 'Label34 - ' - Me.Label34.ForeColor = System.Drawing.Color.Black - Me.Label34.Location = New System.Drawing.Point(11, 108) - Me.Label34.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label34.Name = "Label34" - Me.Label34.Size = New System.Drawing.Size(149, 20) - Me.Label34.TabIndex = 33 - Me.Label34.Text = "Num. cifre contatore" - Me.Label34.TextAlign = System.Drawing.ContentAlignment.MiddleRight - ' - 'txtSuffissoCartelle - ' - Me.txtSuffissoCartelle.Location = New System.Drawing.Point(75, 79) - Me.txtSuffissoCartelle.Margin = New System.Windows.Forms.Padding(4) - Me.txtSuffissoCartelle.Name = "txtSuffissoCartelle" - Me.txtSuffissoCartelle.Size = New System.Drawing.Size(169, 22) - Me.txtSuffissoCartelle.TabIndex = 32 - Me.txtSuffissoCartelle.Text = "TextBox20" - ' - 'Label33 - ' - Me.Label33.ForeColor = System.Drawing.Color.Black - Me.Label33.Location = New System.Drawing.Point(8, 82) - Me.Label33.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label33.Name = "Label33" - Me.Label33.Size = New System.Drawing.Size(64, 20) - Me.Label33.TabIndex = 31 - Me.Label33.Text = "Suffisso" - ' - 'Label31 - ' - Me.Label31.ForeColor = System.Drawing.Color.Black - Me.Label31.Location = New System.Drawing.Point(32, 49) - Me.Label31.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label31.Name = "Label31" - Me.Label31.Size = New System.Drawing.Size(43, 20) - Me.Label31.TabIndex = 30 - Me.Label31.Text = "ogni" - ' - 'chkCreaSottocartelle - ' - Me.chkCreaSottocartelle.ForeColor = System.Drawing.Color.Black - Me.chkCreaSottocartelle.Location = New System.Drawing.Point(75, 20) - Me.chkCreaSottocartelle.Margin = New System.Windows.Forms.Padding(4) - Me.chkCreaSottocartelle.Name = "chkCreaSottocartelle" - Me.chkCreaSottocartelle.Size = New System.Drawing.Size(149, 20) - Me.chkCreaSottocartelle.TabIndex = 29 - Me.chkCreaSottocartelle.Text = "crea sottocartelle" - ' - 'txtFilePerCartella - ' - Me.txtFilePerCartella.Location = New System.Drawing.Point(75, 49) - Me.txtFilePerCartella.Margin = New System.Windows.Forms.Padding(4) - Me.txtFilePerCartella.Name = "txtFilePerCartella" - Me.txtFilePerCartella.Size = New System.Drawing.Size(84, 22) - Me.txtFilePerCartella.TabIndex = 27 - Me.txtFilePerCartella.Text = "99" - ' - 'Label32 - ' - Me.Label32.ForeColor = System.Drawing.Color.Black - Me.Label32.Location = New System.Drawing.Point(171, 49) - Me.Label32.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label32.Name = "Label32" - Me.Label32.Size = New System.Drawing.Size(32, 20) - Me.Label32.TabIndex = 28 - Me.Label32.Text = "file" - ' - 'grpGenerale - ' - Me.grpGenerale.Controls.Add(Me.chkSovrascriviFile) - Me.grpGenerale.Controls.Add(Me.chkRotazioneAutomatica) - Me.grpGenerale.Controls.Add(Me.chkForzaJpg) - Me.grpGenerale.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.grpGenerale.Location = New System.Drawing.Point(8, 139) - Me.grpGenerale.Margin = New System.Windows.Forms.Padding(4) - Me.grpGenerale.Name = "grpGenerale" - Me.grpGenerale.Padding = New System.Windows.Forms.Padding(4) - Me.grpGenerale.Size = New System.Drawing.Size(256, 108) - Me.grpGenerale.TabIndex = 45 - Me.grpGenerale.TabStop = False - Me.grpGenerale.Text = "Generale" - ' - 'chkSovrascriviFile - ' - Me.chkSovrascriviFile.AutoSize = True - Me.chkSovrascriviFile.Location = New System.Drawing.Point(21, 75) - Me.chkSovrascriviFile.Margin = New System.Windows.Forms.Padding(4) - Me.chkSovrascriviFile.Name = "chkSovrascriviFile" - Me.chkSovrascriviFile.Size = New System.Drawing.Size(121, 21) - Me.chkSovrascriviFile.TabIndex = 2 - Me.chkSovrascriviFile.Text = "Sovrascrivi file" - Me.chkSovrascriviFile.UseVisualStyleBackColor = True - ' - 'chkRotazioneAutomatica - ' - Me.chkRotazioneAutomatica.ForeColor = System.Drawing.Color.Black - Me.chkRotazioneAutomatica.Location = New System.Drawing.Point(21, 48) - Me.chkRotazioneAutomatica.Margin = New System.Windows.Forms.Padding(4) - Me.chkRotazioneAutomatica.Name = "chkRotazioneAutomatica" - Me.chkRotazioneAutomatica.Size = New System.Drawing.Size(181, 20) - Me.chkRotazioneAutomatica.TabIndex = 1 - Me.chkRotazioneAutomatica.Text = "Rotazione automatica" - ' - 'chkForzaJpg - ' - Me.chkForzaJpg.Checked = True - Me.chkForzaJpg.CheckState = System.Windows.Forms.CheckState.Checked - Me.chkForzaJpg.ForeColor = System.Drawing.Color.Black - Me.chkForzaJpg.Location = New System.Drawing.Point(21, 22) - Me.chkForzaJpg.Margin = New System.Windows.Forms.Padding(4) - Me.chkForzaJpg.Name = "chkForzaJpg" - Me.chkForzaJpg.Size = New System.Drawing.Size(107, 20) - Me.chkForzaJpg.TabIndex = 0 - Me.chkForzaJpg.Text = "Forza Jpg" - ' - 'tabTesto - ' - Me.tabTesto.Controls.Add(Me.CheckBox2) - Me.tabTesto.Controls.Add(Me.grpTestoFotoVerticali) - Me.tabTesto.Controls.Add(Me.grpSlideShow) - Me.tabTesto.Controls.Add(Me.grpCarattere) - Me.tabTesto.Controls.Add(Me.GroupBox4) - Me.tabTesto.Location = New System.Drawing.Point(4, 25) - Me.tabTesto.Margin = New System.Windows.Forms.Padding(4) - Me.tabTesto.Name = "tabTesto" - Me.tabTesto.Padding = New System.Windows.Forms.Padding(4) - Me.tabTesto.Size = New System.Drawing.Size(687, 435) - Me.tabTesto.TabIndex = 2 - Me.tabTesto.Text = "Testo" - Me.tabTesto.UseVisualStyleBackColor = True - ' - 'CheckBox2 - ' - Me.CheckBox2.AutoSize = True - Me.CheckBox2.Checked = True - Me.CheckBox2.CheckState = System.Windows.Forms.CheckState.Checked - Me.CheckBox2.Location = New System.Drawing.Point(9, 10) - Me.CheckBox2.Margin = New System.Windows.Forms.Padding(4) - Me.CheckBox2.Name = "CheckBox2" - Me.CheckBox2.Size = New System.Drawing.Size(120, 21) - Me.CheckBox2.TabIndex = 40 - Me.CheckBox2.Text = "Aggiungi testo" - Me.CheckBox2.UseVisualStyleBackColor = True - ' - 'grpTestoFotoVerticali - ' - Me.grpTestoFotoVerticali.Controls.Add(Me.Label42) - Me.grpTestoFotoVerticali.Controls.Add(Me.Label41) - Me.grpTestoFotoVerticali.Controls.Add(Me.TextBox31) - Me.grpTestoFotoVerticali.Controls.Add(Me.TextBox30) - Me.grpTestoFotoVerticali.Location = New System.Drawing.Point(421, 96) - Me.grpTestoFotoVerticali.Margin = New System.Windows.Forms.Padding(4) - Me.grpTestoFotoVerticali.Name = "grpTestoFotoVerticali" - Me.grpTestoFotoVerticali.Padding = New System.Windows.Forms.Padding(4) - Me.grpTestoFotoVerticali.Size = New System.Drawing.Size(248, 90) - Me.grpTestoFotoVerticali.TabIndex = 39 - Me.grpTestoFotoVerticali.TabStop = False - Me.grpTestoFotoVerticali.Text = "Testo foto verticali" - ' - 'Label42 - ' - Me.Label42.AutoSize = True - Me.Label42.Location = New System.Drawing.Point(9, 57) - Me.Label42.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label42.Name = "Label42" - Me.Label42.Size = New System.Drawing.Size(59, 17) - Me.Label42.TabIndex = 3 - Me.Label42.Text = "Margine" - ' - 'Label41 - ' - Me.Label41.AutoSize = True - Me.Label41.Location = New System.Drawing.Point(9, 31) - Me.Label41.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label41.Name = "Label41" - Me.Label41.Size = New System.Drawing.Size(145, 17) - Me.Label41.TabIndex = 2 - Me.Label41.Text = "Dimensione Carattere" - ' - 'TextBox31 - ' - Me.TextBox31.Location = New System.Drawing.Point(175, 57) - Me.TextBox31.Margin = New System.Windows.Forms.Padding(4) - Me.TextBox31.Name = "TextBox31" - Me.TextBox31.Size = New System.Drawing.Size(51, 22) - Me.TextBox31.TabIndex = 1 - ' - 'TextBox30 - ' - Me.TextBox30.Location = New System.Drawing.Point(175, 27) - Me.TextBox30.Margin = New System.Windows.Forms.Padding(4) - Me.TextBox30.Name = "TextBox30" - Me.TextBox30.Size = New System.Drawing.Size(51, 22) - Me.TextBox30.TabIndex = 0 - ' - 'grpSlideShow - ' - Me.grpSlideShow.Controls.Add(Me.CheckBox17) - Me.grpSlideShow.Controls.Add(Me.CheckBox16) - Me.grpSlideShow.Location = New System.Drawing.Point(421, 38) - Me.grpSlideShow.Margin = New System.Windows.Forms.Padding(4) - Me.grpSlideShow.Name = "grpSlideShow" - Me.grpSlideShow.Padding = New System.Windows.Forms.Padding(4) - Me.grpSlideShow.Size = New System.Drawing.Size(248, 55) - Me.grpSlideShow.TabIndex = 38 - Me.grpSlideShow.TabStop = False - Me.grpSlideShow.Text = "Slide show" - ' - 'CheckBox17 - ' - Me.CheckBox17.AutoSize = True - Me.CheckBox17.Location = New System.Drawing.Point(128, 22) - Me.CheckBox17.Margin = New System.Windows.Forms.Padding(4) - Me.CheckBox17.Name = "CheckBox17" - Me.CheckBox17.Size = New System.Drawing.Size(108, 21) - Me.CheckBox17.TabIndex = 1 - Me.CheckBox17.Text = "Numero foto" - Me.CheckBox17.UseVisualStyleBackColor = True - ' - 'CheckBox16 - ' - Me.CheckBox16.AutoSize = True - Me.CheckBox16.Location = New System.Drawing.Point(8, 23) - Me.CheckBox16.Margin = New System.Windows.Forms.Padding(4) - Me.CheckBox16.Name = "CheckBox16" - Me.CheckBox16.Size = New System.Drawing.Size(60, 21) - Me.CheckBox16.TabIndex = 0 - Me.CheckBox16.Text = "Data" - Me.CheckBox16.UseVisualStyleBackColor = True - ' - 'grpCarattere - ' - Me.grpCarattere.Controls.Add(Me.TextBox34) - Me.grpCarattere.Controls.Add(Me.Button8) - Me.grpCarattere.Controls.Add(Me.Label36) - Me.grpCarattere.Controls.Add(Me.TextBox25) - Me.grpCarattere.Controls.Add(Me.Label35) - Me.grpCarattere.Controls.Add(Me.ComboBox3) - Me.grpCarattere.Controls.Add(Me.TextBox11) - Me.grpCarattere.Controls.Add(Me.Label12) - Me.grpCarattere.Controls.Add(Me.Label11) - Me.grpCarattere.Controls.Add(Me.CheckBox3) - Me.grpCarattere.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.grpCarattere.Location = New System.Drawing.Point(8, 38) - Me.grpCarattere.Margin = New System.Windows.Forms.Padding(4) - Me.grpCarattere.Name = "grpCarattere" - Me.grpCarattere.Padding = New System.Windows.Forms.Padding(4) - Me.grpCarattere.Size = New System.Drawing.Size(405, 148) - Me.grpCarattere.TabIndex = 37 - Me.grpCarattere.TabStop = False - Me.grpCarattere.Text = "Carattere" - ' - 'TextBox34 - ' - Me.TextBox34.Location = New System.Drawing.Point(213, 112) - Me.TextBox34.Margin = New System.Windows.Forms.Padding(4) - Me.TextBox34.Name = "TextBox34" - Me.TextBox34.Size = New System.Drawing.Size(73, 22) - Me.TextBox34.TabIndex = 36 - Me.TextBox34.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'Button8 - ' - Me.Button8.ForeColor = System.Drawing.Color.Black - Me.Button8.Location = New System.Drawing.Point(296, 110) - Me.Button8.Margin = New System.Windows.Forms.Padding(4) - Me.Button8.Name = "Button8" - Me.Button8.Size = New System.Drawing.Size(99, 30) - Me.Button8.TabIndex = 35 - Me.Button8.Text = "Scegli..." - ' - 'Label36 - ' - Me.Label36.ForeColor = System.Drawing.Color.Black - Me.Label36.Location = New System.Drawing.Point(11, 74) - Me.Label36.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label36.Name = "Label36" - Me.Label36.Size = New System.Drawing.Size(160, 23) - Me.Label36.TabIndex = 34 - Me.Label36.Text = "Dimensione miniatura" - Me.Label36.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'TextBox25 - ' - Me.TextBox25.Location = New System.Drawing.Point(213, 73) - Me.TextBox25.Margin = New System.Windows.Forms.Padding(4) - Me.TextBox25.Name = "TextBox25" - Me.TextBox25.Size = New System.Drawing.Size(73, 22) - Me.TextBox25.TabIndex = 33 - Me.TextBox25.Text = "TextBox25" - ' - 'Label35 - ' - Me.Label35.ForeColor = System.Drawing.Color.Black - Me.Label35.Location = New System.Drawing.Point(11, 114) - Me.Label35.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label35.Name = "Label35" - Me.Label35.Size = New System.Drawing.Size(96, 20) - Me.Label35.TabIndex = 32 - Me.Label35.Text = "Colore RGB" - Me.Label35.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'ComboBox3 - ' - Me.ComboBox3.Location = New System.Drawing.Point(128, 10) - Me.ComboBox3.Margin = New System.Windows.Forms.Padding(4) - Me.ComboBox3.Name = "ComboBox3" - Me.ComboBox3.Size = New System.Drawing.Size(159, 24) - Me.ComboBox3.TabIndex = 28 - Me.ComboBox3.Text = "ComboBox3" - ' - 'TextBox11 - ' - Me.TextBox11.Location = New System.Drawing.Point(213, 43) - Me.TextBox11.Margin = New System.Windows.Forms.Padding(4) - Me.TextBox11.Name = "TextBox11" - Me.TextBox11.Size = New System.Drawing.Size(73, 22) - Me.TextBox11.TabIndex = 27 - Me.TextBox11.Text = "TextBox11" - ' - 'Label12 - ' - Me.Label12.AutoSize = True - Me.Label12.ForeColor = System.Drawing.Color.Black - Me.Label12.Location = New System.Drawing.Point(11, 47) - Me.Label12.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label12.Name = "Label12" - Me.Label12.Size = New System.Drawing.Size(82, 17) - Me.Label12.TabIndex = 26 - Me.Label12.Text = "Dimensione" - Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label11 - ' - Me.Label11.AutoSize = True - Me.Label11.ForeColor = System.Drawing.Color.Black - Me.Label11.Location = New System.Drawing.Point(75, 10) - Me.Label11.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label11.Name = "Label11" - Me.Label11.Size = New System.Drawing.Size(36, 17) - Me.Label11.TabIndex = 22 - Me.Label11.Text = "Font" - ' - 'CheckBox3 - ' - Me.CheckBox3.ForeColor = System.Drawing.Color.Black - Me.CheckBox3.Location = New System.Drawing.Point(299, 10) - Me.CheckBox3.Margin = New System.Windows.Forms.Padding(4) - Me.CheckBox3.Name = "CheckBox3" - Me.CheckBox3.Size = New System.Drawing.Size(96, 30) - Me.CheckBox3.TabIndex = 24 - Me.CheckBox3.Text = "Grassetto" - ' - 'GroupBox4 - ' - Me.GroupBox4.Controls.Add(Me.Label40) - Me.GroupBox4.Controls.Add(Me.TextBox29) - Me.GroupBox4.Controls.Add(Me.TextBox18) - Me.GroupBox4.Controls.Add(Me.Label26) - Me.GroupBox4.Controls.Add(Me.DateTimePicker1) - Me.GroupBox4.Controls.Add(Me.CheckBox8) - Me.GroupBox4.Controls.Add(Me.TextBox9) - Me.GroupBox4.Controls.Add(Me.CheckBox7) - Me.GroupBox4.Controls.Add(Me.Label4) - Me.GroupBox4.Controls.Add(Me.TextBox4) - Me.GroupBox4.Controls.Add(Me.Label9) - Me.GroupBox4.Controls.Add(Me.Label13) - Me.GroupBox4.Controls.Add(Me.ComboBox1) - Me.GroupBox4.Controls.Add(Me.ComboBox2) - Me.GroupBox4.Controls.Add(Me.Label14) - Me.GroupBox4.Controls.Add(Me.TextBox12) - Me.GroupBox4.Controls.Add(Me.Label15) - Me.GroupBox4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.GroupBox4.Location = New System.Drawing.Point(8, 193) - Me.GroupBox4.Margin = New System.Windows.Forms.Padding(4) - Me.GroupBox4.Name = "GroupBox4" - Me.GroupBox4.Padding = New System.Windows.Forms.Padding(4) - Me.GroupBox4.Size = New System.Drawing.Size(661, 229) - Me.GroupBox4.TabIndex = 36 - Me.GroupBox4.TabStop = False - Me.GroupBox4.Text = "Testo da applicare" - ' - 'Label40 - ' - Me.Label40.AutoSize = True - Me.Label40.Location = New System.Drawing.Point(11, 64) - Me.Label40.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label40.Name = "Label40" - Me.Label40.Size = New System.Drawing.Size(63, 17) - Me.Label40.TabIndex = 40 - Me.Label40.Text = "Verticale" - ' - 'TextBox29 - ' - Me.TextBox29.Location = New System.Drawing.Point(96, 60) - Me.TextBox29.Margin = New System.Windows.Forms.Padding(4) - Me.TextBox29.Multiline = True - Me.TextBox29.Name = "TextBox29" - Me.TextBox29.Size = New System.Drawing.Size(543, 53) - Me.TextBox29.TabIndex = 39 - ' - 'TextBox18 - ' - Me.TextBox18.Location = New System.Drawing.Point(309, 192) - Me.TextBox18.Margin = New System.Windows.Forms.Padding(4) - Me.TextBox18.Name = "TextBox18" - Me.TextBox18.Size = New System.Drawing.Size(132, 22) - Me.TextBox18.TabIndex = 38 - ' - 'Label26 - ' - Me.Label26.AutoSize = True - Me.Label26.ForeColor = System.Drawing.Color.Black - Me.Label26.Location = New System.Drawing.Point(459, 192) - Me.Label26.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label26.Name = "Label26" - Me.Label26.Size = New System.Drawing.Size(64, 17) - Me.Label26.TabIndex = 37 - Me.Label26.Text = "partenza" - ' - 'DateTimePicker1 - ' - Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Time - Me.DateTimePicker1.Location = New System.Drawing.Point(523, 192) - Me.DateTimePicker1.Margin = New System.Windows.Forms.Padding(4) - Me.DateTimePicker1.Name = "DateTimePicker1" - Me.DateTimePicker1.Size = New System.Drawing.Size(116, 22) - Me.DateTimePicker1.TabIndex = 36 - ' - 'CheckBox8 - ' - Me.CheckBox8.ForeColor = System.Drawing.Color.Black - Me.CheckBox8.Location = New System.Drawing.Point(96, 192) - Me.CheckBox8.Margin = New System.Windows.Forms.Padding(4) - Me.CheckBox8.Name = "CheckBox8" - Me.CheckBox8.Size = New System.Drawing.Size(75, 20) - Me.CheckBox8.TabIndex = 35 - Me.CheckBox8.Text = "Orario" - ' - 'TextBox9 - ' - Me.TextBox9.Location = New System.Drawing.Point(160, 133) - Me.TextBox9.Margin = New System.Windows.Forms.Padding(4) - Me.TextBox9.Name = "TextBox9" - Me.TextBox9.Size = New System.Drawing.Size(73, 22) - Me.TextBox9.TabIndex = 20 - Me.TextBox9.Text = "TextBox9" - ' - 'CheckBox7 - ' - Me.CheckBox7.ForeColor = System.Drawing.Color.Black - Me.CheckBox7.Location = New System.Drawing.Point(181, 192) - Me.CheckBox7.Margin = New System.Windows.Forms.Padding(4) - Me.CheckBox7.Name = "CheckBox7" - Me.CheckBox7.Size = New System.Drawing.Size(117, 20) - Me.CheckBox7.TabIndex = 34 - Me.CheckBox7.Text = "Tempo gara" - ' - 'Label4 - ' - Me.Label4.AutoSize = True - Me.Label4.ForeColor = System.Drawing.Color.Black - Me.Label4.Location = New System.Drawing.Point(11, 30) - Me.Label4.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label4.Name = "Label4" - Me.Label4.Size = New System.Drawing.Size(80, 17) - Me.Label4.TabIndex = 9 - Me.Label4.Text = "Orizzontale" - ' - 'TextBox4 - ' - Me.TextBox4.Location = New System.Drawing.Point(96, 30) - Me.TextBox4.Margin = New System.Windows.Forms.Padding(4) - Me.TextBox4.Name = "TextBox4" - Me.TextBox4.Size = New System.Drawing.Size(543, 22) - Me.TextBox4.TabIndex = 8 - Me.TextBox4.Text = "TextBox4" - ' - 'Label9 - ' - Me.Label9.AutoSize = True - Me.Label9.ForeColor = System.Drawing.Color.Black - Me.Label9.Location = New System.Drawing.Point(11, 133) - Me.Label9.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label9.Name = "Label9" - Me.Label9.Size = New System.Drawing.Size(152, 17) - Me.Label9.TabIndex = 19 - Me.Label9.Text = "Trasparenza (0-100%)" - ' - 'Label13 - ' - Me.Label13.AutoSize = True - Me.Label13.ForeColor = System.Drawing.Color.Black - Me.Label13.Location = New System.Drawing.Point(21, 162) - Me.Label13.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label13.Name = "Label13" - Me.Label13.Size = New System.Drawing.Size(69, 17) - Me.Label13.TabIndex = 29 - Me.Label13.Text = "Posizione" - ' - 'ComboBox1 - ' - Me.ComboBox1.Location = New System.Drawing.Point(96, 162) - Me.ComboBox1.Margin = New System.Windows.Forms.Padding(4) - Me.ComboBox1.Name = "ComboBox1" - Me.ComboBox1.Size = New System.Drawing.Size(137, 24) - Me.ComboBox1.TabIndex = 28 - Me.ComboBox1.Text = "ComboBox1" - ' - 'ComboBox2 - ' - Me.ComboBox2.Location = New System.Drawing.Point(501, 162) - Me.ComboBox2.Margin = New System.Windows.Forms.Padding(4) - Me.ComboBox2.Name = "ComboBox2" - Me.ComboBox2.Size = New System.Drawing.Size(137, 24) - Me.ComboBox2.TabIndex = 31 - Me.ComboBox2.Text = "ComboBox2" - ' - 'Label14 - ' - Me.Label14.AutoSize = True - Me.Label14.ForeColor = System.Drawing.Color.Black - Me.Label14.Location = New System.Drawing.Point(405, 162) - Me.Label14.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label14.Name = "Label14" - Me.Label14.Size = New System.Drawing.Size(89, 17) - Me.Label14.TabIndex = 30 - Me.Label14.Text = "Allineamento" - ' - 'TextBox12 - ' - Me.TextBox12.Location = New System.Drawing.Point(501, 133) - Me.TextBox12.Margin = New System.Windows.Forms.Padding(4) - Me.TextBox12.Name = "TextBox12" - Me.TextBox12.Size = New System.Drawing.Size(137, 22) - Me.TextBox12.TabIndex = 33 - Me.TextBox12.Text = "TextBox12" - ' - 'Label15 - ' - Me.Label15.AutoSize = True - Me.Label15.ForeColor = System.Drawing.Color.Black - Me.Label15.Location = New System.Drawing.Point(395, 133) - Me.Label15.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label15.Name = "Label15" - Me.Label15.Size = New System.Drawing.Size(101, 17) - Me.Label15.TabIndex = 32 - Me.Label15.Text = "Margine (pixel)" - ' - 'tabFoto - ' - Me.tabFoto.Controls.Add(Me.GroupBox2) - Me.tabFoto.Location = New System.Drawing.Point(4, 25) - Me.tabFoto.Margin = New System.Windows.Forms.Padding(4) - Me.tabFoto.Name = "tabFoto" - Me.tabFoto.Padding = New System.Windows.Forms.Padding(4) - Me.tabFoto.Size = New System.Drawing.Size(687, 435) - Me.tabFoto.TabIndex = 5 - Me.tabFoto.Text = "Foto" - Me.tabFoto.UseVisualStyleBackColor = True - ' - 'GroupBox2 - ' - Me.GroupBox2.Controls.Add(Me.Label45) - Me.GroupBox2.Controls.Add(Me.TextBox32) - Me.GroupBox2.Controls.Add(Me.TextBox26) - Me.GroupBox2.Controls.Add(Me.Label37) - Me.GroupBox2.Controls.Add(Me.Label38) - Me.GroupBox2.Controls.Add(Me.TextBox27) - Me.GroupBox2.Controls.Add(Me.Label39) - Me.GroupBox2.Controls.Add(Me.TextBox28) - Me.GroupBox2.Controls.Add(Me.CheckBox15) - Me.GroupBox2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.GroupBox2.Location = New System.Drawing.Point(4, 7) - Me.GroupBox2.Margin = New System.Windows.Forms.Padding(4) - Me.GroupBox2.Name = "GroupBox2" - Me.GroupBox2.Padding = New System.Windows.Forms.Padding(4) - Me.GroupBox2.Size = New System.Drawing.Size(405, 192) - Me.GroupBox2.TabIndex = 36 - Me.GroupBox2.TabStop = False - Me.GroupBox2.Text = "Foto grande" - ' - 'Label45 - ' - Me.Label45.AutoSize = True - Me.Label45.Location = New System.Drawing.Point(15, 106) - Me.Label45.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label45.Name = "Label45" - Me.Label45.Size = New System.Drawing.Size(53, 17) - Me.Label45.TabIndex = 22 - Me.Label45.Text = "Qualità" - ' - 'TextBox32 - ' - Me.TextBox32.Location = New System.Drawing.Point(96, 98) - Me.TextBox32.Margin = New System.Windows.Forms.Padding(4) - Me.TextBox32.Name = "TextBox32" - Me.TextBox32.Size = New System.Drawing.Size(95, 22) - Me.TextBox32.TabIndex = 21 - Me.TextBox32.Text = "100" - ' - 'TextBox26 - ' - Me.TextBox26.Location = New System.Drawing.Point(299, 59) - Me.TextBox26.Margin = New System.Windows.Forms.Padding(4) - Me.TextBox26.Name = "TextBox26" - Me.TextBox26.Size = New System.Drawing.Size(73, 22) - Me.TextBox26.TabIndex = 20 - Me.TextBox26.Text = "TextBox26" - ' - 'Label37 - ' - Me.Label37.ForeColor = System.Drawing.Color.Black - Me.Label37.Location = New System.Drawing.Point(224, 59) - Me.Label37.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label37.Name = "Label37" - Me.Label37.Size = New System.Drawing.Size(64, 20) - Me.Label37.TabIndex = 19 - Me.Label37.Text = "Suffisso" - Me.Label37.TextAlign = System.Drawing.ContentAlignment.MiddleRight - ' - 'Label38 - ' - Me.Label38.AutoSize = True - Me.Label38.ForeColor = System.Drawing.Color.Black - Me.Label38.Location = New System.Drawing.Point(32, 30) - Me.Label38.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label38.Name = "Label38" - Me.Label38.Size = New System.Drawing.Size(54, 17) - Me.Label38.TabIndex = 16 - Me.Label38.Text = "Altezza" - ' - 'TextBox27 - ' - Me.TextBox27.Location = New System.Drawing.Point(96, 30) - Me.TextBox27.Margin = New System.Windows.Forms.Padding(4) - Me.TextBox27.Name = "TextBox27" - Me.TextBox27.Size = New System.Drawing.Size(95, 22) - Me.TextBox27.TabIndex = 14 - Me.TextBox27.Text = "TextBox27" - ' - 'Label39 - ' - Me.Label39.AutoSize = True - Me.Label39.ForeColor = System.Drawing.Color.Black - Me.Label39.Location = New System.Drawing.Point(11, 59) - Me.Label39.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label39.Name = "Label39" - Me.Label39.Size = New System.Drawing.Size(75, 17) - Me.Label39.TabIndex = 17 - Me.Label39.Text = "Larghezza" - ' - 'TextBox28 - ' - Me.TextBox28.Location = New System.Drawing.Point(96, 59) - Me.TextBox28.Margin = New System.Windows.Forms.Padding(4) - Me.TextBox28.Name = "TextBox28" - Me.TextBox28.Size = New System.Drawing.Size(95, 22) - Me.TextBox28.TabIndex = 15 - Me.TextBox28.Text = "TextBox28" - ' - 'CheckBox15 - ' - Me.CheckBox15.Checked = True - Me.CheckBox15.CheckState = System.Windows.Forms.CheckState.Checked - Me.CheckBox15.ForeColor = System.Drawing.Color.Black - Me.CheckBox15.Location = New System.Drawing.Point(224, 20) - Me.CheckBox15.Margin = New System.Windows.Forms.Padding(4) - Me.CheckBox15.Name = "CheckBox15" - Me.CheckBox15.Size = New System.Drawing.Size(160, 39) - Me.CheckBox15.TabIndex = 18 - Me.CheckBox15.Text = "Mantieni dimensioni originali" - ' - 'tabMiniature - ' - Me.tabMiniature.Controls.Add(Me.Panel1) - Me.tabMiniature.Controls.Add(Me.GroupBox1) - Me.tabMiniature.Location = New System.Drawing.Point(4, 25) - Me.tabMiniature.Margin = New System.Windows.Forms.Padding(4) - Me.tabMiniature.Name = "tabMiniature" - Me.tabMiniature.Padding = New System.Windows.Forms.Padding(4) - Me.tabMiniature.Size = New System.Drawing.Size(687, 435) - Me.tabMiniature.TabIndex = 0 - Me.tabMiniature.Text = "Miniature" - Me.tabMiniature.UseVisualStyleBackColor = True - ' - 'Panel1 - ' - Me.Panel1.Controls.Add(Me.CheckBox18) - Me.Panel1.Controls.Add(Me.CheckBox4) - Me.Panel1.Controls.Add(Me.CheckBox12) - Me.Panel1.Location = New System.Drawing.Point(69, 290) - Me.Panel1.Margin = New System.Windows.Forms.Padding(4) - Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(405, 90) - Me.Panel1.TabIndex = 26 - Me.Panel1.Visible = False - ' - 'CheckBox18 - ' - Me.CheckBox18.AutoSize = True - Me.CheckBox18.Location = New System.Drawing.Point(187, 4) - Me.CheckBox18.Margin = New System.Windows.Forms.Padding(4) - Me.CheckBox18.Name = "CheckBox18" - Me.CheckBox18.Size = New System.Drawing.Size(108, 21) - Me.CheckBox18.TabIndex = 36 - Me.CheckBox18.Text = "Numero foto" - Me.CheckBox18.UseVisualStyleBackColor = True - ' - 'CheckBox4 - ' - Me.CheckBox4.ForeColor = System.Drawing.Color.Black - Me.CheckBox4.Location = New System.Drawing.Point(13, 4) - Me.CheckBox4.Margin = New System.Windows.Forms.Padding(4) - Me.CheckBox4.Name = "CheckBox4" - Me.CheckBox4.Size = New System.Drawing.Size(139, 21) - Me.CheckBox4.TabIndex = 34 - Me.CheckBox4.Text = "Aggiungi scritta" - ' - 'CheckBox12 - ' - Me.CheckBox12.ForeColor = System.Drawing.Color.Black - Me.CheckBox12.Location = New System.Drawing.Point(13, 23) - Me.CheckBox12.Margin = New System.Windows.Forms.Padding(4) - Me.CheckBox12.Name = "CheckBox12" - Me.CheckBox12.Size = New System.Drawing.Size(139, 26) - Me.CheckBox12.TabIndex = 35 - Me.CheckBox12.Text = "Aggiungi orario" - ' - 'GroupBox1 - ' - Me.GroupBox1.Controls.Add(Me.Label46) - Me.GroupBox1.Controls.Add(Me.TextBox33) - Me.GroupBox1.Controls.Add(Me.Panel2) - Me.GroupBox1.Controls.Add(Me.Label5) - Me.GroupBox1.Controls.Add(Me.TextBox5) - Me.GroupBox1.Controls.Add(Me.Label6) - Me.GroupBox1.Controls.Add(Me.TextBox6) - Me.GroupBox1.Controls.Add(Me.Label3) - Me.GroupBox1.Controls.Add(Me.TextBox3) - Me.GroupBox1.Controls.Add(Me.CheckBox1) - Me.GroupBox1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.GroupBox1.Location = New System.Drawing.Point(8, 6) - Me.GroupBox1.Margin = New System.Windows.Forms.Padding(4) - Me.GroupBox1.Name = "GroupBox1" - Me.GroupBox1.Padding = New System.Windows.Forms.Padding(4) - Me.GroupBox1.Size = New System.Drawing.Size(467, 258) - Me.GroupBox1.TabIndex = 25 - Me.GroupBox1.TabStop = False - Me.GroupBox1.Text = "Miniature" - ' - 'Label46 - ' - Me.Label46.AutoSize = True - Me.Label46.Location = New System.Drawing.Point(264, 53) - Me.Label46.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label46.Name = "Label46" - Me.Label46.Size = New System.Drawing.Size(53, 17) - Me.Label46.TabIndex = 21 - Me.Label46.Text = "Qualità" - ' - 'TextBox33 - ' - Me.TextBox33.Location = New System.Drawing.Point(325, 49) - Me.TextBox33.Margin = New System.Windows.Forms.Padding(4) - Me.TextBox33.Name = "TextBox33" - Me.TextBox33.Size = New System.Drawing.Size(132, 22) - Me.TextBox33.TabIndex = 20 - ' - 'Panel2 - ' - Me.Panel2.Controls.Add(Me.RadioButton3) - Me.Panel2.Controls.Add(Me.RadioButton7) - Me.Panel2.Controls.Add(Me.RadioButton4) - Me.Panel2.Controls.Add(Me.RadioButton6) - Me.Panel2.Controls.Add(Me.RadioButton5) - Me.Panel2.Location = New System.Drawing.Point(75, 140) - Me.Panel2.Margin = New System.Windows.Forms.Padding(4) - Me.Panel2.Name = "Panel2" - Me.Panel2.Size = New System.Drawing.Size(313, 111) - Me.Panel2.TabIndex = 19 - ' - 'RadioButton3 - ' - Me.RadioButton3.AutoSize = True - Me.RadioButton3.Location = New System.Drawing.Point(20, 20) - Me.RadioButton3.Margin = New System.Windows.Forms.Padding(4) - Me.RadioButton3.Name = "RadioButton3" - Me.RadioButton3.Size = New System.Drawing.Size(128, 21) - Me.RadioButton3.TabIndex = 14 - Me.RadioButton3.TabStop = True - Me.RadioButton3.Text = "Aggiungi Scritta" - Me.RadioButton3.UseVisualStyleBackColor = True - ' - 'RadioButton7 - ' - Me.RadioButton7.AutoSize = True - Me.RadioButton7.Location = New System.Drawing.Point(172, 49) - Me.RadioButton7.Margin = New System.Windows.Forms.Padding(4) - Me.RadioButton7.Name = "RadioButton7" - Me.RadioButton7.Size = New System.Drawing.Size(124, 21) - Me.RadioButton7.TabIndex = 18 - Me.RadioButton7.TabStop = True - Me.RadioButton7.Text = "numero+tempo" - Me.RadioButton7.UseVisualStyleBackColor = True - ' - 'RadioButton4 - ' - Me.RadioButton4.AutoSize = True - Me.RadioButton4.Location = New System.Drawing.Point(20, 49) - Me.RadioButton4.Margin = New System.Windows.Forms.Padding(4) - Me.RadioButton4.Name = "RadioButton4" - Me.RadioButton4.Size = New System.Drawing.Size(125, 21) - Me.RadioButton4.TabIndex = 15 - Me.RadioButton4.TabStop = True - Me.RadioButton4.Text = "Aggiungi orario" - Me.RadioButton4.UseVisualStyleBackColor = True - ' - 'RadioButton6 - ' - Me.RadioButton6.AutoSize = True - Me.RadioButton6.Location = New System.Drawing.Point(172, 20) - Me.RadioButton6.Margin = New System.Windows.Forms.Padding(4) - Me.RadioButton6.Name = "RadioButton6" - Me.RadioButton6.Size = New System.Drawing.Size(107, 21) - Me.RadioButton6.TabIndex = 17 - Me.RadioButton6.TabStop = True - Me.RadioButton6.Text = "Numero foto" - Me.RadioButton6.UseVisualStyleBackColor = True - ' - 'RadioButton5 - ' - Me.RadioButton5.AutoSize = True - Me.RadioButton5.Location = New System.Drawing.Point(20, 80) - Me.RadioButton5.Margin = New System.Windows.Forms.Padding(4) - Me.RadioButton5.Name = "RadioButton5" - Me.RadioButton5.Size = New System.Drawing.Size(109, 21) - Me.RadioButton5.TabIndex = 16 - Me.RadioButton5.TabStop = True - Me.RadioButton5.Text = "Tempo Gara" - Me.RadioButton5.UseVisualStyleBackColor = True - ' - 'Label5 - ' - Me.Label5.AutoSize = True - Me.Label5.ForeColor = System.Drawing.Color.Black - Me.Label5.Location = New System.Drawing.Point(32, 108) - Me.Label5.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label5.Name = "Label5" - Me.Label5.Size = New System.Drawing.Size(54, 17) - Me.Label5.TabIndex = 12 - Me.Label5.Text = "Altezza" - ' - 'TextBox5 - ' - Me.TextBox5.Location = New System.Drawing.Point(96, 79) - Me.TextBox5.Margin = New System.Windows.Forms.Padding(4) - Me.TextBox5.Name = "TextBox5" - Me.TextBox5.Size = New System.Drawing.Size(116, 22) - Me.TextBox5.TabIndex = 10 - Me.TextBox5.Text = "TextBox5" - ' - 'Label6 - ' - Me.Label6.AutoSize = True - Me.Label6.ForeColor = System.Drawing.Color.Black - Me.Label6.Location = New System.Drawing.Point(11, 79) - Me.Label6.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label6.Name = "Label6" - Me.Label6.Size = New System.Drawing.Size(75, 17) - Me.Label6.TabIndex = 13 - Me.Label6.Text = "Larghezza" - ' - 'TextBox6 - ' - Me.TextBox6.Location = New System.Drawing.Point(96, 108) - Me.TextBox6.Margin = New System.Windows.Forms.Padding(4) - Me.TextBox6.Name = "TextBox6" - Me.TextBox6.Size = New System.Drawing.Size(116, 22) - Me.TextBox6.TabIndex = 11 - Me.TextBox6.Text = "TextBox6" - ' - 'Label3 - ' - Me.Label3.AutoSize = True - Me.Label3.ForeColor = System.Drawing.Color.Black - Me.Label3.Location = New System.Drawing.Point(32, 49) - Me.Label3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(58, 17) - Me.Label3.TabIndex = 7 - Me.Label3.Text = "Suffisso" - ' - 'TextBox3 - ' - Me.TextBox3.Location = New System.Drawing.Point(96, 49) - Me.TextBox3.Margin = New System.Windows.Forms.Padding(4) - Me.TextBox3.Name = "TextBox3" - Me.TextBox3.Size = New System.Drawing.Size(116, 22) - Me.TextBox3.TabIndex = 6 - Me.TextBox3.Text = "TextBox3" - ' - 'CheckBox1 - ' - Me.CheckBox1.Checked = True - Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked - Me.CheckBox1.ForeColor = System.Drawing.Color.Black - Me.CheckBox1.Location = New System.Drawing.Point(96, 20) - Me.CheckBox1.Margin = New System.Windows.Forms.Padding(4) - Me.CheckBox1.Name = "CheckBox1" - Me.CheckBox1.Size = New System.Drawing.Size(139, 30) - Me.CheckBox1.TabIndex = 5 - Me.CheckBox1.Text = "Crea miniature" - ' - 'tabLogo - ' - Me.tabLogo.Controls.Add(Me.GroupBox6) - Me.tabLogo.Location = New System.Drawing.Point(4, 25) - Me.tabLogo.Margin = New System.Windows.Forms.Padding(4) - Me.tabLogo.Name = "tabLogo" - Me.tabLogo.Padding = New System.Windows.Forms.Padding(4) - Me.tabLogo.Size = New System.Drawing.Size(687, 435) - Me.tabLogo.TabIndex = 3 - Me.tabLogo.Text = "Logo" - Me.tabLogo.UseVisualStyleBackColor = True - ' - 'GroupBox6 - ' - Me.GroupBox6.Controls.Add(Me.PictureBox2) - Me.GroupBox6.Controls.Add(Me.PictureBox1) - Me.GroupBox6.Controls.Add(Me.ComboBox5) - Me.GroupBox6.Controls.Add(Me.ComboBox4) - Me.GroupBox6.Controls.Add(Me.TextBox19) - Me.GroupBox6.Controls.Add(Me.Label28) - Me.GroupBox6.Controls.Add(Me.CheckBox5) - Me.GroupBox6.Controls.Add(Me.TextBox15) - Me.GroupBox6.Controls.Add(Me.TextBox14) - Me.GroupBox6.Controls.Add(Me.Label25) - Me.GroupBox6.Controls.Add(Me.TextBox16) - Me.GroupBox6.Controls.Add(Me.Label24) - Me.GroupBox6.Controls.Add(Me.Label22) - Me.GroupBox6.Controls.Add(Me.Label23) - Me.GroupBox6.Controls.Add(Me.Button4) - Me.GroupBox6.Controls.Add(Me.TextBox10) - Me.GroupBox6.Controls.Add(Me.Label29) - Me.GroupBox6.Controls.Add(Me.Label30) - Me.GroupBox6.Controls.Add(Me.PictureBox3) - Me.GroupBox6.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.GroupBox6.Location = New System.Drawing.Point(8, 7) - Me.GroupBox6.Margin = New System.Windows.Forms.Padding(4) - Me.GroupBox6.Name = "GroupBox6" - Me.GroupBox6.Padding = New System.Windows.Forms.Padding(4) - Me.GroupBox6.Size = New System.Drawing.Size(661, 276) - Me.GroupBox6.TabIndex = 42 - Me.GroupBox6.TabStop = False - Me.GroupBox6.Text = "Logo" - ' - 'PictureBox2 - ' - Me.PictureBox2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.PictureBox2.Location = New System.Drawing.Point(192, 236) - Me.PictureBox2.Margin = New System.Windows.Forms.Padding(4) - Me.PictureBox2.Name = "PictureBox2" - Me.PictureBox2.Size = New System.Drawing.Size(31, 29) - Me.PictureBox2.TabIndex = 44 - Me.PictureBox2.TabStop = False - Me.PictureBox2.Visible = False - ' - 'PictureBox1 - ' - Me.PictureBox1.Cursor = System.Windows.Forms.Cursors.Cross - Me.PictureBox1.Location = New System.Drawing.Point(341, 69) - Me.PictureBox1.Margin = New System.Windows.Forms.Padding(4) - Me.PictureBox1.Name = "PictureBox1" - Me.PictureBox1.Size = New System.Drawing.Size(299, 197) - Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.PictureBox1.TabIndex = 43 - Me.PictureBox1.TabStop = False - ' - 'ComboBox5 - ' - Me.ComboBox5.Location = New System.Drawing.Point(192, 207) - Me.ComboBox5.Margin = New System.Windows.Forms.Padding(4) - Me.ComboBox5.Name = "ComboBox5" - Me.ComboBox5.Size = New System.Drawing.Size(127, 24) - Me.ComboBox5.TabIndex = 42 - Me.ComboBox5.Text = "ComboBox5" - ' - 'ComboBox4 - ' - Me.ComboBox4.Location = New System.Drawing.Point(192, 177) - Me.ComboBox4.Margin = New System.Windows.Forms.Padding(4) - Me.ComboBox4.Name = "ComboBox4" - Me.ComboBox4.Size = New System.Drawing.Size(127, 24) - Me.ComboBox4.TabIndex = 41 - Me.ComboBox4.Text = "ComboBox4" - ' - 'TextBox19 - ' - Me.TextBox19.Location = New System.Drawing.Point(192, 118) - Me.TextBox19.Margin = New System.Windows.Forms.Padding(4) - Me.TextBox19.Name = "TextBox19" - Me.TextBox19.Size = New System.Drawing.Size(127, 22) - Me.TextBox19.TabIndex = 40 - Me.TextBox19.Text = "TextBox19" - ' - 'Label28 - ' - Me.Label28.ForeColor = System.Drawing.Color.Black - Me.Label28.Location = New System.Drawing.Point(23, 119) - Me.Label28.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label28.Name = "Label28" - Me.Label28.Size = New System.Drawing.Size(160, 20) - Me.Label28.TabIndex = 39 - Me.Label28.Text = "Trasparenza (0-100%)" - Me.Label28.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'CheckBox5 - ' - Me.CheckBox5.Checked = True - Me.CheckBox5.CheckState = System.Windows.Forms.CheckState.Checked - Me.CheckBox5.ForeColor = System.Drawing.Color.Black - Me.CheckBox5.Location = New System.Drawing.Point(0, 32) - Me.CheckBox5.Margin = New System.Windows.Forms.Padding(4) - Me.CheckBox5.Name = "CheckBox5" - Me.CheckBox5.Size = New System.Drawing.Size(96, 25) - Me.CheckBox5.TabIndex = 38 - Me.CheckBox5.Text = "Aggiungi" - ' - 'TextBox15 - ' - Me.TextBox15.Location = New System.Drawing.Point(192, 89) - Me.TextBox15.Margin = New System.Windows.Forms.Padding(4) - Me.TextBox15.Name = "TextBox15" - Me.TextBox15.Size = New System.Drawing.Size(127, 22) - Me.TextBox15.TabIndex = 19 - Me.TextBox15.Text = "TextBox15" - ' - 'TextBox14 - ' - Me.TextBox14.Location = New System.Drawing.Point(192, 59) - Me.TextBox14.Margin = New System.Windows.Forms.Padding(4) - Me.TextBox14.Name = "TextBox14" - Me.TextBox14.Size = New System.Drawing.Size(127, 22) - Me.TextBox14.TabIndex = 18 - Me.TextBox14.Text = "TextBox14" - ' - 'Label25 - ' - Me.Label25.AutoSize = True - Me.Label25.ForeColor = System.Drawing.Color.Black - Me.Label25.Location = New System.Drawing.Point(23, 207) - Me.Label25.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label25.Name = "Label25" - Me.Label25.Size = New System.Drawing.Size(126, 17) - Me.Label25.TabIndex = 36 - Me.Label25.Text = "Posizione verticale" - Me.Label25.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'TextBox16 - ' - Me.TextBox16.Location = New System.Drawing.Point(192, 148) - Me.TextBox16.Margin = New System.Windows.Forms.Padding(4) - Me.TextBox16.Name = "TextBox16" - Me.TextBox16.Size = New System.Drawing.Size(127, 22) - Me.TextBox16.TabIndex = 35 - Me.TextBox16.Text = "TextBox16" - ' - 'Label24 - ' - Me.Label24.AutoSize = True - Me.Label24.ForeColor = System.Drawing.Color.Black - Me.Label24.Location = New System.Drawing.Point(25, 151) - Me.Label24.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label24.Name = "Label24" - Me.Label24.Size = New System.Drawing.Size(117, 17) - Me.Label24.TabIndex = 34 - Me.Label24.Text = "Margine (pixel/%)" - Me.Label24.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label22 - ' - Me.Label22.AutoSize = True - Me.Label22.ForeColor = System.Drawing.Color.Black - Me.Label22.Location = New System.Drawing.Point(25, 63) - Me.Label22.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label22.Name = "Label22" - Me.Label22.Size = New System.Drawing.Size(54, 17) - Me.Label22.TabIndex = 20 - Me.Label22.Text = "Altezza" - Me.Label22.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label23 - ' - Me.Label23.AutoSize = True - Me.Label23.ForeColor = System.Drawing.Color.Black - Me.Label23.Location = New System.Drawing.Point(25, 92) - Me.Label23.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label23.Name = "Label23" - Me.Label23.Size = New System.Drawing.Size(75, 17) - Me.Label23.TabIndex = 21 - Me.Label23.Text = "Larghezza" - Me.Label23.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Button4 - ' - Me.Button4.Location = New System.Drawing.Point(619, 30) - Me.Button4.Margin = New System.Windows.Forms.Padding(4) - Me.Button4.Name = "Button4" - Me.Button4.Size = New System.Drawing.Size(32, 25) - Me.Button4.TabIndex = 8 - Me.Button4.Text = "..." - ' - 'TextBox10 - ' - Me.TextBox10.Location = New System.Drawing.Point(192, 30) - Me.TextBox10.Margin = New System.Windows.Forms.Padding(4) - Me.TextBox10.Name = "TextBox10" - Me.TextBox10.Size = New System.Drawing.Size(415, 22) - Me.TextBox10.TabIndex = 6 - Me.TextBox10.Text = "TextBox10" - ' - 'Label29 - ' - Me.Label29.AutoSize = True - Me.Label29.ForeColor = System.Drawing.Color.Black - Me.Label29.Location = New System.Drawing.Point(23, 181) - Me.Label29.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label29.Name = "Label29" - Me.Label29.Size = New System.Drawing.Size(142, 17) - Me.Label29.TabIndex = 36 - Me.Label29.Text = "Posizione orizzontale" - Me.Label29.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label30 - ' - Me.Label30.AutoSize = True - Me.Label30.ForeColor = System.Drawing.Color.Black - Me.Label30.Location = New System.Drawing.Point(25, 250) - Me.Label30.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label30.Name = "Label30" - Me.Label30.Size = New System.Drawing.Size(126, 17) - Me.Label30.TabIndex = 36 - Me.Label30.Text = "Colore trasparente" - Me.Label30.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Label30.Visible = False - ' - 'PictureBox3 - ' - Me.PictureBox3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.PictureBox3.Location = New System.Drawing.Point(288, 236) - Me.PictureBox3.Margin = New System.Windows.Forms.Padding(4) - Me.PictureBox3.Name = "PictureBox3" - Me.PictureBox3.Size = New System.Drawing.Size(31, 29) - Me.PictureBox3.TabIndex = 44 - Me.PictureBox3.TabStop = False - Me.PictureBox3.Visible = False - ' - 'Label27 - ' - Me.Label27.Location = New System.Drawing.Point(788, 465) - Me.Label27.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label27.Name = "Label27" - Me.Label27.Size = New System.Drawing.Size(187, 25) - Me.Label27.TabIndex = 62 - Me.Label27.Text = "Versione 2.2 2021" - Me.Label27.TextAlign = System.Drawing.ContentAlignment.MiddleRight - ' - 'Button7 - ' - Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Button7.Location = New System.Drawing.Point(719, 148) - Me.Button7.Margin = New System.Windows.Forms.Padding(4) - Me.Button7.Name = "Button7" - Me.Button7.Size = New System.Drawing.Size(256, 49) - Me.Button7.TabIndex = 61 - Me.Button7.Text = "stop creazione" - ' - 'btnSalvaImpostazioni - ' - Me.btnSalvaImpostazioni.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnSalvaImpostazioni.Location = New System.Drawing.Point(719, 53) - Me.btnSalvaImpostazioni.Margin = New System.Windows.Forms.Padding(4) - Me.btnSalvaImpostazioni.Name = "btnSalvaImpostazioni" - Me.btnSalvaImpostazioni.Size = New System.Drawing.Size(256, 39) - Me.btnSalvaImpostazioni.TabIndex = 60 - Me.btnSalvaImpostazioni.Text = "Salva impostazioni" - ' - 'Label20 - ' - Me.Label20.AutoSize = True - Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label20.Location = New System.Drawing.Point(719, 362) - Me.Label20.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label20.Name = "Label20" - Me.Label20.Size = New System.Drawing.Size(126, 20) - Me.Label20.TabIndex = 59 - Me.Label20.Text = "foto generate:" - ' - 'Label19 - ' - Me.Label19.AutoSize = True - Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label19.Location = New System.Drawing.Point(719, 338) - Me.Label19.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label19.Name = "Label19" - Me.Label19.Size = New System.Drawing.Size(101, 20) - Me.Label19.TabIndex = 58 - Me.Label19.Text = "foto totali: " - ' - 'Label18 - ' - Me.Label18.AutoSize = True - Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label18.Location = New System.Drawing.Point(857, 362) - Me.Label18.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label18.Name = "Label18" - Me.Label18.Size = New System.Drawing.Size(24, 25) - Me.Label18.TabIndex = 57 - Me.Label18.Text = "0" - ' - 'lblFotoTotaliNum - ' - Me.lblFotoTotaliNum.AutoSize = True - Me.lblFotoTotaliNum.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblFotoTotaliNum.Location = New System.Drawing.Point(857, 338) - Me.lblFotoTotaliNum.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.lblFotoTotaliNum.Name = "lblFotoTotaliNum" - Me.lblFotoTotaliNum.Size = New System.Drawing.Size(24, 25) - Me.lblFotoTotaliNum.TabIndex = 56 - Me.lblFotoTotaliNum.Text = "0" - ' - 'Label10 - ' - Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label10.Location = New System.Drawing.Point(719, 201) - Me.Label10.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label10.Name = "Label10" - Me.Label10.Size = New System.Drawing.Size(256, 89) - Me.Label10.TabIndex = 55 - Me.Label10.Text = "file" - ' - 'btnCreaCatalogo - ' - Me.btnCreaCatalogo.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnCreaCatalogo.Location = New System.Drawing.Point(719, 95) - Me.btnCreaCatalogo.Margin = New System.Windows.Forms.Padding(4) - Me.btnCreaCatalogo.Name = "btnCreaCatalogo" - Me.btnCreaCatalogo.Size = New System.Drawing.Size(102, 39) - Me.btnCreaCatalogo.TabIndex = 53 - Me.btnCreaCatalogo.Text = "crea catalogo" - ' - 'btnCaricaImpostazioni - ' - Me.btnCaricaImpostazioni.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnCaricaImpostazioni.Location = New System.Drawing.Point(719, 15) - Me.btnCaricaImpostazioni.Margin = New System.Windows.Forms.Padding(4) - Me.btnCaricaImpostazioni.Name = "btnCaricaImpostazioni" - Me.btnCaricaImpostazioni.Size = New System.Drawing.Size(256, 39) - Me.btnCaricaImpostazioni.TabIndex = 54 - Me.btnCaricaImpostazioni.Text = "Carica impostazioni" - ' - 'btnCreaCatalogoAsync - ' - Me.btnCreaCatalogoAsync.Location = New System.Drawing.Point(647, 78) - Me.btnCreaCatalogoAsync.Name = "btnCreaCatalogoAsync" - Me.btnCreaCatalogoAsync.Size = New System.Drawing.Size(84, 38) - Me.btnCreaCatalogoAsync.TabIndex = 68 - Me.btnCreaCatalogoAsync.Text = "Crea 2" - Me.btnCreaCatalogoAsync.UseVisualStyleBackColor = True - ' - 'MainForm - ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(739, 401) - Me.Controls.Add(Me.btnCreaCatalogoAsync) - Me.Controls.Add(Me.ProgressBar1) - Me.Controls.Add(Me.CheckBox22) - Me.Controls.Add(Me.Label43) - Me.Controls.Add(Me.tabControl) - Me.Controls.Add(Me.Label27) - Me.Controls.Add(Me.Button7) - Me.Controls.Add(Me.btnSalvaImpostazioni) - Me.Controls.Add(Me.Label20) - Me.Controls.Add(Me.Label19) - Me.Controls.Add(Me.Label18) - Me.Controls.Add(Me.lblFotoTotaliNum) - Me.Controls.Add(Me.Label10) - Me.Controls.Add(Me.btnCreaCatalogo) - Me.Controls.Add(Me.btnCaricaImpostazioni) - Me.Margin = New System.Windows.Forms.Padding(4) - Me.MaximizeBox = False - Me.Name = "MainForm" - Me.Text = "Image Catalog" - Me.tabControl.ResumeLayout(False) - Me.tabGenerale.ResumeLayout(False) - Me.grpAvanzate.ResumeLayout(False) - Me.grpAvanzate.PerformLayout - Me.Panel3.ResumeLayout(False) - Me.Panel3.PerformLayout - Me.GroupBox3.ResumeLayout(False) - Me.GroupBox3.PerformLayout - Me.grpSottocartelle.ResumeLayout(False) - Me.grpSottocartelle.PerformLayout - Me.grpGenerale.ResumeLayout(False) - Me.grpGenerale.PerformLayout - Me.tabTesto.ResumeLayout(False) - Me.tabTesto.PerformLayout - Me.grpTestoFotoVerticali.ResumeLayout(False) - Me.grpTestoFotoVerticali.PerformLayout - Me.grpSlideShow.ResumeLayout(False) - Me.grpSlideShow.PerformLayout - Me.grpCarattere.ResumeLayout(False) - Me.grpCarattere.PerformLayout - Me.GroupBox4.ResumeLayout(False) - Me.GroupBox4.PerformLayout - Me.tabFoto.ResumeLayout(False) - Me.GroupBox2.ResumeLayout(False) - Me.GroupBox2.PerformLayout - Me.tabMiniature.ResumeLayout(False) - Me.Panel1.ResumeLayout(False) - Me.Panel1.PerformLayout - Me.GroupBox1.ResumeLayout(False) - Me.GroupBox1.PerformLayout - Me.Panel2.ResumeLayout(False) - Me.Panel2.PerformLayout - Me.tabLogo.ResumeLayout(False) - Me.GroupBox6.ResumeLayout(False) - Me.GroupBox6.PerformLayout - CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() - Me.ResumeLayout(False) - Me.PerformLayout - - End Sub - Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar - Friend WithEvents CheckBox22 As System.Windows.Forms.CheckBox - Friend WithEvents Label43 As System.Windows.Forms.Label - Friend WithEvents tabControl As System.Windows.Forms.TabControl - Friend WithEvents tabGenerale As System.Windows.Forms.TabPage - Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox - Friend WithEvents chkAggiornaSottodirectory As System.Windows.Forms.CheckBox - Friend WithEvents Button3 As System.Windows.Forms.Button - Friend WithEvents Button2 As System.Windows.Forms.Button - Friend WithEvents Label1 As System.Windows.Forms.Label - Friend WithEvents Label2 As System.Windows.Forms.Label - Friend WithEvents txtSorgente As System.Windows.Forms.TextBox - Friend WithEvents txtDestinazione As System.Windows.Forms.TextBox - Friend WithEvents grpSottocartelle As System.Windows.Forms.GroupBox - Friend WithEvents rdbNumFiles As System.Windows.Forms.RadioButton - Friend WithEvents rdbNumProgressiva As System.Windows.Forms.RadioButton - Friend WithEvents txtCifreContatore As System.Windows.Forms.TextBox - Friend WithEvents Label34 As System.Windows.Forms.Label - Friend WithEvents txtSuffissoCartelle As System.Windows.Forms.TextBox - Friend WithEvents Label33 As System.Windows.Forms.Label - Friend WithEvents Label31 As System.Windows.Forms.Label - Friend WithEvents chkCreaSottocartelle As System.Windows.Forms.CheckBox - Friend WithEvents txtFilePerCartella As System.Windows.Forms.TextBox - Friend WithEvents Label32 As System.Windows.Forms.Label - Friend WithEvents grpGenerale As System.Windows.Forms.GroupBox - Friend WithEvents chkRotazioneAutomatica As System.Windows.Forms.CheckBox - Friend WithEvents chkForzaJpg As System.Windows.Forms.CheckBox - Friend WithEvents tabTesto As System.Windows.Forms.TabPage - Friend WithEvents grpTestoFotoVerticali As System.Windows.Forms.GroupBox - Friend WithEvents Label42 As System.Windows.Forms.Label - Friend WithEvents Label41 As System.Windows.Forms.Label - Friend WithEvents TextBox31 As System.Windows.Forms.TextBox - Friend WithEvents TextBox30 As System.Windows.Forms.TextBox - Friend WithEvents grpSlideShow As System.Windows.Forms.GroupBox - Friend WithEvents CheckBox17 As System.Windows.Forms.CheckBox - Friend WithEvents CheckBox16 As System.Windows.Forms.CheckBox - Friend WithEvents grpCarattere As System.Windows.Forms.GroupBox - Friend WithEvents TextBox34 As System.Windows.Forms.TextBox - Friend WithEvents Button8 As System.Windows.Forms.Button - Friend WithEvents Label36 As System.Windows.Forms.Label - Friend WithEvents TextBox25 As System.Windows.Forms.TextBox - Friend WithEvents Label35 As System.Windows.Forms.Label - Friend WithEvents ComboBox3 As System.Windows.Forms.ComboBox - Friend WithEvents TextBox11 As System.Windows.Forms.TextBox - Friend WithEvents Label12 As System.Windows.Forms.Label - Friend WithEvents Label11 As System.Windows.Forms.Label - Friend WithEvents CheckBox3 As System.Windows.Forms.CheckBox - Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox - Friend WithEvents Label40 As System.Windows.Forms.Label - Friend WithEvents TextBox29 As System.Windows.Forms.TextBox - Friend WithEvents TextBox18 As System.Windows.Forms.TextBox - Friend WithEvents Label26 As System.Windows.Forms.Label - Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker - Friend WithEvents CheckBox8 As System.Windows.Forms.CheckBox - Friend WithEvents TextBox9 As System.Windows.Forms.TextBox - Friend WithEvents CheckBox7 As System.Windows.Forms.CheckBox - Friend WithEvents Label4 As System.Windows.Forms.Label - Friend WithEvents TextBox4 As System.Windows.Forms.TextBox - Friend WithEvents Label9 As System.Windows.Forms.Label - Friend WithEvents Label13 As System.Windows.Forms.Label - Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox - Friend WithEvents ComboBox2 As System.Windows.Forms.ComboBox - Friend WithEvents Label14 As System.Windows.Forms.Label - Friend WithEvents TextBox12 As System.Windows.Forms.TextBox - Friend WithEvents Label15 As System.Windows.Forms.Label - Friend WithEvents tabFoto As System.Windows.Forms.TabPage - Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox - Friend WithEvents Label45 As System.Windows.Forms.Label - Friend WithEvents TextBox32 As System.Windows.Forms.TextBox - Friend WithEvents TextBox26 As System.Windows.Forms.TextBox - Friend WithEvents Label37 As System.Windows.Forms.Label - Friend WithEvents Label38 As System.Windows.Forms.Label - Friend WithEvents TextBox27 As System.Windows.Forms.TextBox - Friend WithEvents Label39 As System.Windows.Forms.Label - Friend WithEvents TextBox28 As System.Windows.Forms.TextBox - Friend WithEvents CheckBox15 As System.Windows.Forms.CheckBox - Friend WithEvents tabMiniature As System.Windows.Forms.TabPage - Friend WithEvents Panel1 As System.Windows.Forms.Panel - Friend WithEvents CheckBox18 As System.Windows.Forms.CheckBox - Friend WithEvents CheckBox4 As System.Windows.Forms.CheckBox - Friend WithEvents CheckBox12 As System.Windows.Forms.CheckBox - Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox - Friend WithEvents Label46 As System.Windows.Forms.Label - Friend WithEvents TextBox33 As System.Windows.Forms.TextBox - Friend WithEvents Panel2 As System.Windows.Forms.Panel - Friend WithEvents RadioButton3 As System.Windows.Forms.RadioButton - Friend WithEvents RadioButton7 As System.Windows.Forms.RadioButton - Friend WithEvents RadioButton4 As System.Windows.Forms.RadioButton - Friend WithEvents RadioButton6 As System.Windows.Forms.RadioButton - Friend WithEvents RadioButton5 As System.Windows.Forms.RadioButton - Friend WithEvents Label5 As System.Windows.Forms.Label - Friend WithEvents TextBox5 As System.Windows.Forms.TextBox - Friend WithEvents Label6 As System.Windows.Forms.Label - Friend WithEvents TextBox6 As System.Windows.Forms.TextBox - Friend WithEvents Label3 As System.Windows.Forms.Label - Friend WithEvents TextBox3 As System.Windows.Forms.TextBox - Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox - Friend WithEvents tabLogo As System.Windows.Forms.TabPage - Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox - Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox - Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox - Friend WithEvents ComboBox5 As System.Windows.Forms.ComboBox - Friend WithEvents ComboBox4 As System.Windows.Forms.ComboBox - Friend WithEvents TextBox19 As System.Windows.Forms.TextBox - Friend WithEvents Label28 As System.Windows.Forms.Label - Friend WithEvents CheckBox5 As System.Windows.Forms.CheckBox - Friend WithEvents TextBox15 As System.Windows.Forms.TextBox - Friend WithEvents TextBox14 As System.Windows.Forms.TextBox - Friend WithEvents Label25 As System.Windows.Forms.Label - Friend WithEvents TextBox16 As System.Windows.Forms.TextBox - Friend WithEvents Label24 As System.Windows.Forms.Label - Friend WithEvents Label22 As System.Windows.Forms.Label - Friend WithEvents Label23 As System.Windows.Forms.Label - Friend WithEvents Button4 As System.Windows.Forms.Button - Friend WithEvents TextBox10 As System.Windows.Forms.TextBox - Friend WithEvents Label29 As System.Windows.Forms.Label - Friend WithEvents Label30 As System.Windows.Forms.Label - Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox - Friend WithEvents Label27 As System.Windows.Forms.Label - Friend WithEvents Button7 As System.Windows.Forms.Button - Friend WithEvents btnSalvaImpostazioni As System.Windows.Forms.Button - Friend WithEvents Label20 As System.Windows.Forms.Label - Friend WithEvents Label19 As System.Windows.Forms.Label - Friend WithEvents Label18 As System.Windows.Forms.Label - Friend WithEvents lblFotoTotaliNum As System.Windows.Forms.Label - Friend WithEvents Label10 As System.Windows.Forms.Label - Friend WithEvents btnCreaCatalogo As System.Windows.Forms.Button - Friend WithEvents btnCaricaImpostazioni As System.Windows.Forms.Button - Friend WithEvents grpAvanzate As System.Windows.Forms.GroupBox - Friend WithEvents Label7 As System.Windows.Forms.Label - Friend WithEvents TextBox7 As System.Windows.Forms.TextBox - Friend WithEvents Label8 As System.Windows.Forms.Label - Friend WithEvents TextBox8 As System.Windows.Forms.TextBox - Friend WithEvents Panel3 As System.Windows.Forms.Panel - Friend WithEvents rdbNuovoMetodo As System.Windows.Forms.RadioButton - Friend WithEvents rdbVecchioMetodo As System.Windows.Forms.RadioButton - Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox - Friend WithEvents chkSovrascriviFile As System.Windows.Forms.CheckBox - Friend WithEvents btnCreaCatalogoAsync As Button -End Class diff --git a/imagecatalog/MainForm.cs b/imagecatalog/MainForm.cs index 541f383..1fe9b91 100644 --- a/imagecatalog/MainForm.cs +++ b/imagecatalog/MainForm.cs @@ -31,9 +31,12 @@ public partial class MainForm private readonly ImageCreationStuff _imageCreationService; - public MainForm( ImageCreationStuff imageCreationStuff, ILogger logger) + private readonly ParametriSetup _parametriSetup; + + public MainForm( ImageCreationStuff imageCreationStuff, ParametriSetup parametriSetup, ILogger logger) { _imageCreationService = imageCreationStuff; + _parametriSetup = parametriSetup; _logger = logger; _logger.LogDebug("Start"); @@ -383,42 +386,6 @@ public partial class MainForm { 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) @@ -432,72 +399,72 @@ public partial class MainForm if (DialogResult.OK == SaveFileDlg.ShowDialog()) { string IlNome = SaveFileDlg.FileName; - Module1.SetupIni.NomeFileSetup = IlNome; - Module1.SetupIni.AggiornaParametro("DirSorgente", Model.SourcePath); - Module1.SetupIni.AggiornaParametro("DirDestinazione", Model.DestinationPath); - Module1.SetupIni.AggiornaParametro("DirSottoDirectory", chkAggiornaSottodirectory.Checked); - Module1.SetupIni.AggiornaParametro("DirDividiDestinazione", chkCreaSottocartelle.Checked); - Module1.SetupIni.AggiornaParametro("DirDividiNumFile", txtFilePerCartella.Text); - Module1.SetupIni.AggiornaParametro("DirDividiSuffisso", txtSuffissoCartelle.Text); - Module1.SetupIni.AggiornaParametro("DirDividiNumCifre", txtCifreContatore.Text); + _parametriSetup.NomeFileSetup = IlNome; + _parametriSetup.AggiornaParametro("DirSorgente", Model.SourcePath); + _parametriSetup.AggiornaParametro("DirDestinazione", Model.DestinationPath); + _parametriSetup.AggiornaParametro("DirSottoDirectory", chkAggiornaSottodirectory.Checked); + _parametriSetup.AggiornaParametro("DirDividiDestinazione", chkCreaSottocartelle.Checked); + _parametriSetup.AggiornaParametro("DirDividiNumFile", txtFilePerCartella.Text); + _parametriSetup.AggiornaParametro("DirDividiSuffisso", txtSuffissoCartelle.Text); + _parametriSetup.AggiornaParametro("DirDividiNumCifre", txtCifreContatore.Text); if (rdbNumProgressiva.Checked == true) { - Module1.SetupIni.AggiornaParametro("DirDividiTipoNumerazione", "Progressiva"); + _parametriSetup.AggiornaParametro("DirDividiTipoNumerazione", "Progressiva"); } else { - Module1.SetupIni.AggiornaParametro("DirDividiTipoNumerazione", "Files"); + _parametriSetup.AggiornaParametro("DirDividiTipoNumerazione", "Files"); } - Module1.SetupIni.AggiornaParametro("MiniatureCrea", CheckBox1.Checked); - Module1.SetupIni.AggiornaParametro("MiniatureSuffisso", TextBox3.Text); - Module1.SetupIni.AggiornaParametro("MiniatureAltezza", TextBox5.Text); - Module1.SetupIni.AggiornaParametro("MiniatureLarghezza", TextBox6.Text); - Module1.SetupIni.AggiornaParametro("MiniatureAddScritta", RadioButton3.Checked); - Module1.SetupIni.AggiornaParametro("MiniatureAddOrario", RadioButton4.Checked); - Module1.SetupIni.AggiornaParametro("FotoAltezza", TextBox27.Text); - Module1.SetupIni.AggiornaParametro("FotoLarghezza", TextBox28.Text); + _parametriSetup.AggiornaParametro("MiniatureCrea", CheckBox1.Checked); + _parametriSetup.AggiornaParametro("MiniatureSuffisso", TextBox3.Text); + _parametriSetup.AggiornaParametro("MiniatureAltezza", TextBox5.Text); + _parametriSetup.AggiornaParametro("MiniatureLarghezza", TextBox6.Text); + _parametriSetup.AggiornaParametro("MiniatureAddScritta", RadioButton3.Checked); + _parametriSetup.AggiornaParametro("MiniatureAddOrario", RadioButton4.Checked); + _parametriSetup.AggiornaParametro("FotoAltezza", TextBox27.Text); + _parametriSetup.AggiornaParametro("FotoLarghezza", TextBox28.Text); // SetupIni.AggiornaParametro("FotoCodice", TextBox13.Text) // SetupIni.AggiornaParametro("FotoDimOriginali", CheckBox2.Checked) - Module1.SetupIni.AggiornaParametro("FontDimensione", TextBox11.Text); - Module1.SetupIni.AggiornaParametro("FontDimensioneMiniatura", TextBox25.Text); - Module1.SetupIni.AggiornaParametro("FontBold", CheckBox3.Checked); - Module1.SetupIni.AggiornaParametro("FontNome", ComboBox3.Text); - Module1.SetupIni.AggiornaParametro("TestoTesto", TextBox4.Text); - Module1.SetupIni.AggiornaParametro("TestoTrasparente", TextBox9.Text); - Module1.SetupIni.AggiornaParametro("TestoMargine", TextBox12.Text); - Module1.SetupIni.AggiornaParametro("TestoPosizione", ComboBox1.Text); - Module1.SetupIni.AggiornaParametro("TestoAllineamento", ComboBox2.Text); - Module1.SetupIni.AggiornaParametro("MarchioFile", TextBox10.Text); - Module1.SetupIni.AggiornaParametro("MarchioAltezza", TextBox14.Text); - Module1.SetupIni.AggiornaParametro("MarchioLarghezza", TextBox15.Text); - Module1.SetupIni.AggiornaParametro("MarchioMargine", TextBox16.Text); - Module1.SetupIni.AggiornaParametro("MarchioAllOrizzontale", ComboBox4.Text); - Module1.SetupIni.AggiornaParametro("MarchioAllVerticale", ComboBox5.Text); - Module1.SetupIni.AggiornaParametro("MarchioTrasparenza", TextBox19.Text); - Module1.SetupIni.AggiornaParametro("MarchioAggiungi", CheckBox5.Checked); - Module1.SetupIni.AggiornaParametro("TempoGara", CheckBox7.Checked); - Module1.SetupIni.AggiornaParametro("Orario", CheckBox8.Checked); - Module1.SetupIni.AggiornaParametro("EtichettaOrario", TextBox18.Text); - Module1.SetupIni.AggiornaParametro("GeneraleForzaJpg", chkForzaJpg.Checked); - Module1.SetupIni.AggiornaParametro("GeneraleRotazioneAutomatica", chkRotazioneAutomatica.Checked); - Module1.SetupIni.AggiornaParametro("GrandezzaVerticale", TextBox30.Text); - Module1.SetupIni.AggiornaParametro("MargineVerticale", TextBox31.Text); - Module1.SetupIni.AggiornaParametro("DimensioniOriginali", CheckBox15.Checked); - Module1.SetupIni.AggiornaParametro("TestoVerticale", TextBox29.Text); - Module1.SetupIni.AggiornaParametro("NomeMiniatura", RadioButton6.Checked); - Module1.SetupIni.AggiornaParametro("DataFoto", CheckBox16.Checked); - Module1.SetupIni.AggiornaParametro("NumeroFoto", CheckBox17.Checked); - Module1.SetupIni.AggiornaParametro("ColoreTestoRGB", TextBox34.Text); - Module1.SetupIni.AggiornaParametro("TempoSmall", RadioButton5.Checked); - Module1.SetupIni.AggiornaParametro("NumTempoSmall", RadioButton7.Checked); - Module1.SetupIni.AggiornaParametro("CompressioneJpeg", TextBox32.Text); - Module1.SetupIni.AggiornaParametro("CompressioneJpegMiniatura", TextBox33.Text); + _parametriSetup.AggiornaParametro("FontDimensione", TextBox11.Text); + _parametriSetup.AggiornaParametro("FontDimensioneMiniatura", TextBox25.Text); + _parametriSetup.AggiornaParametro("FontBold", CheckBox3.Checked); + _parametriSetup.AggiornaParametro("FontNome", ComboBox3.Text); + _parametriSetup.AggiornaParametro("TestoTesto", TextBox4.Text); + _parametriSetup.AggiornaParametro("TestoTrasparente", TextBox9.Text); + _parametriSetup.AggiornaParametro("TestoMargine", TextBox12.Text); + _parametriSetup.AggiornaParametro("TestoPosizione", ComboBox1.Text); + _parametriSetup.AggiornaParametro("TestoAllineamento", ComboBox2.Text); + _parametriSetup.AggiornaParametro("MarchioFile", TextBox10.Text); + _parametriSetup.AggiornaParametro("MarchioAltezza", TextBox14.Text); + _parametriSetup.AggiornaParametro("MarchioLarghezza", TextBox15.Text); + _parametriSetup.AggiornaParametro("MarchioMargine", TextBox16.Text); + _parametriSetup.AggiornaParametro("MarchioAllOrizzontale", ComboBox4.Text); + _parametriSetup.AggiornaParametro("MarchioAllVerticale", ComboBox5.Text); + _parametriSetup.AggiornaParametro("MarchioTrasparenza", TextBox19.Text); + _parametriSetup.AggiornaParametro("MarchioAggiungi", CheckBox5.Checked); + _parametriSetup.AggiornaParametro("TempoGara", CheckBox7.Checked); + _parametriSetup.AggiornaParametro("Orario", CheckBox8.Checked); + _parametriSetup.AggiornaParametro("EtichettaOrario", TextBox18.Text); + _parametriSetup.AggiornaParametro("GeneraleForzaJpg", chkForzaJpg.Checked); + _parametriSetup.AggiornaParametro("GeneraleRotazioneAutomatica", chkRotazioneAutomatica.Checked); + _parametriSetup.AggiornaParametro("GrandezzaVerticale", TextBox30.Text); + _parametriSetup.AggiornaParametro("MargineVerticale", TextBox31.Text); + _parametriSetup.AggiornaParametro("DimensioniOriginali", CheckBox15.Checked); + _parametriSetup.AggiornaParametro("TestoVerticale", TextBox29.Text); + _parametriSetup.AggiornaParametro("NomeMiniatura", RadioButton6.Checked); + _parametriSetup.AggiornaParametro("DataFoto", CheckBox16.Checked); + _parametriSetup.AggiornaParametro("NumeroFoto", CheckBox17.Checked); + _parametriSetup.AggiornaParametro("ColoreTestoRGB", TextBox34.Text); + _parametriSetup.AggiornaParametro("TempoSmall", RadioButton5.Checked); + _parametriSetup.AggiornaParametro("NumTempoSmall", RadioButton7.Checked); + _parametriSetup.AggiornaParametro("CompressioneJpeg", TextBox32.Text); + _parametriSetup.AggiornaParametro("CompressioneJpegMiniatura", TextBox33.Text); // 2021 - Module1.SetupIni.AggiornaParametro("ChunkSize", TextBox8.Text); - Module1.SetupIni.AggiornaParametro("ThreadsCount", TextBox7.Text); - Module1.SetupIni.SalvaParametriSetup(); + _parametriSetup.AggiornaParametro("ChunkSize", TextBox8.Text); + _parametriSetup.AggiornaParametro("ThreadsCount", TextBox7.Text); + _parametriSetup.SalvaParametriSetup(); Text = "Image Catalog - " + LeggiSoloNomeFile(IlNome); } } @@ -513,16 +480,16 @@ public partial class MainForm if (DialogResult.OK == openFileDialog.ShowDialog()) { string IlNome = openFileDialog.FileName; - Module1.SetupIni.NomeFileSetup = IlNome; - Module1.SetupIni.CaricaParametriSetup(); - Model.SourcePath = Module1.SetupIni.LeggiParametroString("DirSorgente"); - Model.DestinationPath = Module1.SetupIni.LeggiParametroString("DirDestinazione"); - chkAggiornaSottodirectory.Checked = Module1.SetupIni.LeggiParametroBoolean("DirSottoDirectory"); - chkCreaSottocartelle.Checked = Module1.SetupIni.LeggiParametroBoolean("DirDividiDestinazione"); - txtFilePerCartella.Text = Module1.SetupIni.LeggiParametroString("DirDividiNumFile"); - txtSuffissoCartelle.Text = Module1.SetupIni.LeggiParametroString("DirDividiSuffisso"); - txtCifreContatore.Text = Module1.SetupIni.LeggiParametroString("DirDividiNumCifre"); - string TestoTemp = Module1.SetupIni.LeggiParametroString("DirDividiTipoNumerazione"); + _parametriSetup.NomeFileSetup = IlNome; + _parametriSetup.CaricaParametriSetup(); + Model.SourcePath = _parametriSetup.LeggiParametroString("DirSorgente"); + Model.DestinationPath = _parametriSetup.LeggiParametroString("DirDestinazione"); + chkAggiornaSottodirectory.Checked = _parametriSetup.LeggiParametroBoolean("DirSottoDirectory"); + chkCreaSottocartelle.Checked = _parametriSetup.LeggiParametroBoolean("DirDividiDestinazione"); + txtFilePerCartella.Text = _parametriSetup.LeggiParametroString("DirDividiNumFile"); + txtSuffissoCartelle.Text = _parametriSetup.LeggiParametroString("DirDividiSuffisso"); + txtCifreContatore.Text = _parametriSetup.LeggiParametroString("DirDividiNumCifre"); + string TestoTemp = _parametriSetup.LeggiParametroString("DirDividiTipoNumerazione"); if (TestoTemp.ToUpper() == "PROGRESSIVA") { rdbNumProgressiva.Checked = true; @@ -532,56 +499,56 @@ public partial class MainForm rdbNumFiles.Checked = true; } - CheckBox1.Checked = Module1.SetupIni.LeggiParametroBoolean("MiniatureCrea"); - TextBox3.Text = Module1.SetupIni.LeggiParametroString("MiniatureSuffisso"); - TextBox5.Text = Module1.SetupIni.LeggiParametroString("MiniatureAltezza"); - TextBox6.Text = Module1.SetupIni.LeggiParametroString("MiniatureLarghezza"); - RadioButton3.Checked = Module1.SetupIni.LeggiParametroBoolean("MiniatureAddScritta"); - RadioButton4.Checked = Module1.SetupIni.LeggiParametroBoolean("MiniatureAddOrario"); - TextBox27.Text = Module1.SetupIni.LeggiParametroString("FotoAltezza"); - TextBox28.Text = Module1.SetupIni.LeggiParametroString("FotoLarghezza"); + CheckBox1.Checked = _parametriSetup.LeggiParametroBoolean("MiniatureCrea"); + TextBox3.Text = _parametriSetup.LeggiParametroString("MiniatureSuffisso"); + TextBox5.Text = _parametriSetup.LeggiParametroString("MiniatureAltezza"); + TextBox6.Text = _parametriSetup.LeggiParametroString("MiniatureLarghezza"); + RadioButton3.Checked = _parametriSetup.LeggiParametroBoolean("MiniatureAddScritta"); + RadioButton4.Checked = _parametriSetup.LeggiParametroBoolean("MiniatureAddOrario"); + TextBox27.Text = _parametriSetup.LeggiParametroString("FotoAltezza"); + TextBox28.Text = _parametriSetup.LeggiParametroString("FotoLarghezza"); // TextBox13.Text = SetupIni.LeggiParametroString("FotoCodice") // CheckBox2.Checked = SetupIni.LeggiParametroBoolean("FotoDimOriginali") - TextBox11.Text = Module1.SetupIni.LeggiParametroString("FontDimensione"); - TextBox25.Text = Module1.SetupIni.LeggiParametroString("FontDimensioneMiniatura"); - CheckBox3.Checked = Module1.SetupIni.LeggiParametroBoolean("FontBold"); - ComboBox3.Text = Module1.SetupIni.LeggiParametroString("FontNome"); + TextBox11.Text = _parametriSetup.LeggiParametroString("FontDimensione"); + TextBox25.Text = _parametriSetup.LeggiParametroString("FontDimensioneMiniatura"); + CheckBox3.Checked = _parametriSetup.LeggiParametroBoolean("FontBold"); + ComboBox3.Text = _parametriSetup.LeggiParametroString("FontNome"); if (string.IsNullOrEmpty(TextBox25.Text)) { TextBox25.Text = "0"; } - TextBox4.Text = Module1.SetupIni.LeggiParametroString("TestoTesto"); - TextBox9.Text = Module1.SetupIni.LeggiParametroString("TestoTrasparente"); - TextBox12.Text = Module1.SetupIni.LeggiParametroString("TestoMargine"); - ComboBox1.Text = Module1.SetupIni.LeggiParametroString("TestoPosizione"); - ComboBox2.Text = Module1.SetupIni.LeggiParametroString("TestoAllineamento"); - TextBox10.Text = Module1.SetupIni.LeggiParametroString("MarchioFile"); - TextBox14.Text = Module1.SetupIni.LeggiParametroString("MarchioAltezza"); - TextBox15.Text = Module1.SetupIni.LeggiParametroString("MarchioLarghezza"); - TextBox16.Text = Module1.SetupIni.LeggiParametroString("MarchioMargine"); - ComboBox4.Text = Module1.SetupIni.LeggiParametroString("MarchioAllOrizzontale"); - ComboBox5.Text = Module1.SetupIni.LeggiParametroString("MarchioAllVerticale"); - TextBox19.Text = Module1.SetupIni.LeggiParametroString("MarchioTrasparenza"); - CheckBox5.Checked = Module1.SetupIni.LeggiParametroBoolean("MarchioAggiungi"); - CheckBox7.Checked = Module1.SetupIni.LeggiParametroBoolean("TempoGara"); - CheckBox8.Checked = Module1.SetupIni.LeggiParametroBoolean("Orario"); - TextBox18.Text = Module1.SetupIni.LeggiParametroString("EtichettaOrario"); - chkForzaJpg.Checked = Module1.SetupIni.LeggiParametroBoolean("GeneraleForzaJpg"); - chkRotazioneAutomatica.Checked = Module1.SetupIni.LeggiParametroBoolean("GeneraleRotazioneAutomatica"); - TextBox30.Text = Module1.SetupIni.LeggiParametroString("GrandezzaVerticale"); - TextBox31.Text = Module1.SetupIni.LeggiParametroString("MargineVerticale"); - CheckBox15.Checked = Module1.SetupIni.LeggiParametroBoolean("DimensioniOriginali"); - TextBox29.Text = Module1.SetupIni.LeggiParametroString("TestoVerticale"); - RadioButton6.Checked = Module1.SetupIni.LeggiParametroBoolean("NomeMiniatura"); - CheckBox16.Checked = Module1.SetupIni.LeggiParametroBoolean("DataFoto"); - CheckBox17.Checked = Module1.SetupIni.LeggiParametroBoolean("NumeroFoto"); - RadioButton5.Checked = Module1.SetupIni.LeggiParametroBoolean("TempoSmall"); - RadioButton7.Checked = Module1.SetupIni.LeggiParametroBoolean("NumTempoSmall"); - TextBox32.Text = Module1.SetupIni.LeggiParametroString("CompressioneJpeg"); - TextBox33.Text = Module1.SetupIni.LeggiParametroString("CompressioneJpegMiniatura"); - TextBox34.Text = Module1.SetupIni.LeggiParametroString("ColoreTestoRGB"); + TextBox4.Text = _parametriSetup.LeggiParametroString("TestoTesto"); + TextBox9.Text = _parametriSetup.LeggiParametroString("TestoTrasparente"); + TextBox12.Text = _parametriSetup.LeggiParametroString("TestoMargine"); + ComboBox1.Text = _parametriSetup.LeggiParametroString("TestoPosizione"); + ComboBox2.Text = _parametriSetup.LeggiParametroString("TestoAllineamento"); + TextBox10.Text = _parametriSetup.LeggiParametroString("MarchioFile"); + TextBox14.Text = _parametriSetup.LeggiParametroString("MarchioAltezza"); + TextBox15.Text = _parametriSetup.LeggiParametroString("MarchioLarghezza"); + TextBox16.Text = _parametriSetup.LeggiParametroString("MarchioMargine"); + ComboBox4.Text = _parametriSetup.LeggiParametroString("MarchioAllOrizzontale"); + ComboBox5.Text = _parametriSetup.LeggiParametroString("MarchioAllVerticale"); + TextBox19.Text = _parametriSetup.LeggiParametroString("MarchioTrasparenza"); + CheckBox5.Checked = _parametriSetup.LeggiParametroBoolean("MarchioAggiungi"); + CheckBox7.Checked = _parametriSetup.LeggiParametroBoolean("TempoGara"); + CheckBox8.Checked = _parametriSetup.LeggiParametroBoolean("Orario"); + TextBox18.Text = _parametriSetup.LeggiParametroString("EtichettaOrario"); + chkForzaJpg.Checked = _parametriSetup.LeggiParametroBoolean("GeneraleForzaJpg"); + chkRotazioneAutomatica.Checked = _parametriSetup.LeggiParametroBoolean("GeneraleRotazioneAutomatica"); + TextBox30.Text = _parametriSetup.LeggiParametroString("GrandezzaVerticale"); + TextBox31.Text = _parametriSetup.LeggiParametroString("MargineVerticale"); + CheckBox15.Checked = _parametriSetup.LeggiParametroBoolean("DimensioniOriginali"); + TextBox29.Text = _parametriSetup.LeggiParametroString("TestoVerticale"); + RadioButton6.Checked = _parametriSetup.LeggiParametroBoolean("NomeMiniatura"); + CheckBox16.Checked = _parametriSetup.LeggiParametroBoolean("DataFoto"); + CheckBox17.Checked = _parametriSetup.LeggiParametroBoolean("NumeroFoto"); + RadioButton5.Checked = _parametriSetup.LeggiParametroBoolean("TempoSmall"); + RadioButton7.Checked = _parametriSetup.LeggiParametroBoolean("NumTempoSmall"); + TextBox32.Text = _parametriSetup.LeggiParametroString("CompressioneJpeg"); + TextBox33.Text = _parametriSetup.LeggiParametroString("CompressioneJpegMiniatura"); + TextBox34.Text = _parametriSetup.LeggiParametroString("ColoreTestoRGB"); if (File.Exists(TextBox10.Text)) { PictureBox1.Image = Image.FromFile(TextBox10.Text); @@ -602,8 +569,8 @@ public partial class MainForm Text = "Image Catalog - " + LeggiSoloNomeFile(IlNome); // 2021 - TextBox8.Text = Module1.SetupIni.LeggiParametroString("ChunkSize"); - TextBox7.Text = Module1.SetupIni.LeggiParametroString("ThreadsCount"); + TextBox8.Text = _parametriSetup.LeggiParametroString("ChunkSize"); + TextBox7.Text = _parametriSetup.LeggiParametroString("ThreadsCount"); } } diff --git a/imagecatalog/MainForm.vb b/imagecatalog/MainForm.vb deleted file mode 100644 index 63a7373..0000000 --- a/imagecatalog/MainForm.vb +++ /dev/null @@ -1,1502 +0,0 @@ -Imports System.Collections.Concurrent -Imports System.IO -Imports System.Drawing.Drawing2D -Imports System.Drawing.Imaging -Imports System.Threading -Imports System.Collections.Generic -Imports System.Drawing.Text -Imports System.Runtime.InteropServices -Imports System.Threading.Tasks -Imports CatalogVbLib -Imports MaddoShared - -Public Delegate Sub XyThreadAdd(ByVal Info As String) - -Public Class MainForm -#Const MULTI_THREADED_UI = True - - Private StopAttivo As Boolean - Private WaterSelectColor As Boolean = False - - 'Private ContaFotoCuori As Integer - 'Private TaskCuori() As PicInfo - - Private MyPool As XYThreadPool = New XYThreadPool - Private ContaImmaginiThread As Integer - - Private maxThreads As Integer = 15 - Private minThreads As Integer = 5 - - Private Sub setDefaults() - txtSorgente.Text = "" - txtDestinazione.Text = "" - TextBox3.Text = "tn_" - TextBox4.Text = "" - TextBox5.Text = "350" - TextBox6.Text = "350" - TextBox27.Text = "2240" - TextBox28.Text = "2240" - TextBox9.Text = "0" - TextBox11.Text = "20" - TextBox12.Text = "8" - 'TextBox13.Text = "" - TextBox10.Text = "" - TextBox14.Text = "430" - TextBox15.Text = "430" - TextBox16.Text = "290" - txtFilePerCartella.Text = "99" - TextBox19.Text = "100" - txtSuffissoCartelle.Text = "" - txtCifreContatore.Text = "2" - TextBox25.Text = "50" - TextBox26.Text = "" - TextBox7.Text = CStr(4) - TextBox8.Text = CStr(4) - TextBox34.Text = "Yellow" - TextBox30.Text = "20" - TextBox31.Text = "6" - TextBox32.Text = "85" - TextBox33.Text = "30" - - - ComboBox1.Items.Add("Alto") - ComboBox1.Items.Add("Basso") - ComboBox1.SelectedIndex = 1 - - ComboBox2.Items.Add("Sinistra") - ComboBox2.Items.Add("Centro") - ComboBox2.Items.Add("Destra") - ComboBox2.SelectedIndex = 1 - - ' Create a obejct of InstalledFontCollection - Dim InstalledFonts As New InstalledFontCollection - ' Gets the array of FontFamily objects associated with this FontCollection. - Dim fontfamilies() As FontFamily = InstalledFonts.Families() - - ' Populates font combobox with the font name - - For Each fontFamily As FontFamily In fontfamilies - ComboBox3.Items.Add(fontFamily.Name) - Next - - ComboBox3.Text = ComboBox3.Items(0).ToString - - 'ComboBox3.Items.Add("Arial") - 'ComboBox3.Items.Add("Arial Black") - 'ComboBox3.Items.Add("Arial Narrow") - 'ComboBox3.Items.Add("Comic Sans MS") - 'ComboBox3.Items.Add("Courier New") - 'ComboBox3.Items.Add("System") - 'ComboBox3.Items.Add("Times New Roman") - 'ComboBox3.Items.Add("Verdana") - 'ComboBox3.Items.Add("Wingdings") - 'ComboBox3.SelectedIndex = 7 - - ComboBox4.Items.Add("Sinistra") - ComboBox4.Items.Add("Centro") - ComboBox4.Items.Add("Destra") - ComboBox4.SelectedIndex = 2 - - ComboBox5.Items.Add("Alto") - ComboBox5.Items.Add("Centro") - ComboBox5.Items.Add("Basso") - ComboBox5.SelectedIndex = 2 - End Sub - - Private Shared Function AllocConsole() As Boolean - - End Function - - Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load - Application.EnableVisualStyles() - - setDefaults() -#If Not DEBUG Then - AllocConsole() -#End If - - Console.WriteLine("Programma avviato") - End Sub - - Private Sub FixPaths() - If txtSorgente.Text.EndsWith("\") = False Then - txtSorgente.Text &= "\" - End If - If txtDestinazione.Text.EndsWith("\") = False Then - txtDestinazione.Text &= "\" - End If - End Sub - - Private Sub lockUI() - TabControl1.Enabled = False - Button5.Enabled = False - Button6.Enabled = False - btnCreaCatalogo.Enabled = False - - End Sub - - Private Sub unlockUI() - TabControl1.Enabled = True - Button5.Enabled = True - Button6.Enabled = True - btnCreaCatalogo.Enabled = True - End Sub - - Private Sub btnCreaCatalogo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreaCatalogo.Click - lockUI() - Dim timeStart As Date - Dim timeStop As Date - - timeStart = TimeOfDay - FixPaths() - - Label10.Text = "" - lblFotoTotaliNum.Text = "0" - Label18.Text = "0" - Label43.Text = "-s" - - maxThreads = CInt(TextBox7.Text) - minThreads = CInt(TextBox8.Text) - - If rdbNuovoMetodo.Checked Then - setPicSettings(txtSorgente.Text, txtDestinazione.Text) - ProgressBar1.Minimum = 0 - ProgressBar1.Step = 1 - ProgressBar1.Value = 0 - - Dim t1 As New Threading.Thread(AddressOf creaCatalogoThread) - t1.IsBackground = False - t1.Start() - ElseIf rdbVecchioMetodo.Checked Then - creaCatalogo(timeStart, timeStop) - unlockUI() - End If - End Sub - - - Private Sub creaCatalogoThread() - Dim timeStart As Date = TimeOfDay - MyPool.StopThreadPool() - MyPool.StartThreadPool(minThreads, maxThreads) - ContaImmaginiThread = 0 - - 'creaImmaginiWithThreadMod(txtSorgente.Text, txtDestinazione.Text) - creaimmaginiWithThreadDict(txtSorgente.Text, txtDestinazione.Text) - Dim ThAttivo As ThreadPoolWorkItem = Nothing - Dim i As Integer = 0 -#Const asfd = 1 - -#If asfd = 1 Then - - - Do Until i = ContaImmaginiThread - Thread.Sleep(100) - ThAttivo = MyPool.ExtractWorkItem() - If ThAttivo IsNot Nothing Then - i += 1 - 'stepProgressBar() - Dim threads As Integer = MyPool.GetThreadCount() - setLabel10Text("File: " & ThAttivo.m_sName & " Threads: " & CStr(threads)) - - 'setLabel18Text(ContaImmaginiThread.ToString) - 'setLabel18Text(i.ToString) - - - 'Label10.Text = "File: " & ThAttivo.m_sName - 'Label18.Text = ContaImmaginiThread.ToString - End If - Loop - MyPool.StopThreadPool() - Dim timeStop As Date = TimeOfDay - - setLabel10Text("Finito") - setLabel43Text(CalcTime(timeStart, timeStop, ContaImmaginiThread)) -#End If - End Sub - - Private Sub creaCatalogo(timeStart As Date, timeStop As Date) - 'asdfg - MyPool.StopThreadPool() - MyPool.StartThreadPool(minThreads, maxThreads) - ContaImmaginiThread = 0 - - CreaImmaginiWithThread(txtSorgente.Text, txtDestinazione.Text) - - Dim ThAttivo As ThreadPoolWorkItem = Nothing - Dim i As Integer = 0 - - Do Until i = ContaImmaginiThread - Thread.Sleep(100) - ThAttivo = MyPool.ExtractWorkItem() - If ThAttivo IsNot Nothing Then - i += 1 - Label10.Text = "File: " & ThAttivo.m_sName - Label18.Text = ContaImmaginiThread.ToString - - End If - Loop - MyPool.StopThreadPool() - timeStop = TimeOfDay - - CalcTime(timeStart, timeStop, ContaImmaginiThread) - Label10.Text = "Finito" - If CheckBox22.Checked = True Then - Shell("%windir%\System32\shutdown.exe") - End If - End Sub - - Private Function CalcTime(ByVal timeStart As Date, ByVal timeStop As Date, ByVal numFoto As Integer) As String - Dim timediffH, timediffS As Long - Dim timediffM As Long - timediffM = DateAndTime.DateDiff(DateInterval.Minute, timeStart, timeStop) - timediffS = DateAndTime.DateDiff(DateInterval.Second, timeStart, timeStop) - timediffH = DateAndTime.DateDiff(DateInterval.Hour, timeStart, timeStop) - 'dim s As String = "H:" + timediffH.ToString + " M:" + timediffM.ToString + " S:" + timediffS.ToString - - 'Label43.Text = "H:" + timediffH.ToString + " M:" + timediffM.ToString + " S:" + timediffS.ToString - Dim fotoSec As Double = numFoto / CDbl(timediffS) - Dim fotoMin As Double = numFoto / CDbl(timediffM) - Dim fotoOra As Double = numFoto / CDbl(timediffH) - Dim s As String = "S: " + timediffS.ToString + "; F/s: " + fotoSec.ToString("0.000") '+ " F/m: " + fotoMin.ToString("0.00") + " F/h: " + fotoOra.ToString("0.00") - Return s - End Function - Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click - Dim DirSearch As FolderBrowserDialog = New FolderBrowserDialog - DirSearch.SelectedPath = txtSorgente.Text - If DialogResult.OK = DirSearch.ShowDialog() Then - Dim DirectoryScelta As String = DirSearch.SelectedPath - If DirectoryScelta.EndsWith("\") = False Then - DirectoryScelta &= "\" - End If - - txtSorgente.Text = DirectoryScelta - End If - End Sub - - Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click - Dim DirSearch As FolderBrowserDialog = New FolderBrowserDialog - DirSearch.SelectedPath = txtDestinazione.Text - If DialogResult.OK = DirSearch.ShowDialog() Then - Dim DirectoryScelta As String = DirSearch.SelectedPath - If DirectoryScelta.EndsWith("\") = False Then - DirectoryScelta &= "\" - End If - - txtDestinazione.Text = DirectoryScelta - End If - - '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 - End Sub - - Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click - Dim SaveFileDlg As SaveFileDialog = New SaveFileDialog - - 'SaveFileDlg.InitialDirectory = "c:\" - SaveFileDlg.Filter = "Setup (*.xml)|*.xml|All valid files (*.*)|*.*" - SaveFileDlg.FilterIndex = 0 - SaveFileDlg.RestoreDirectory = True - - If DialogResult.OK = SaveFileDlg.ShowDialog Then - Dim IlNome As String = SaveFileDlg.FileName - - SetupIni.NomeFileSetup = IlNome - - SetupIni.AggiornaParametro("DirSorgente", txtSorgente.Text) - SetupIni.AggiornaParametro("DirDestinazione", txtDestinazione.Text) - SetupIni.AggiornaParametro("DirSottoDirectory", chkAggiornaSottodirectory.Checked) - - SetupIni.AggiornaParametro("DirDividiDestinazione", chkCreaSottocartelle.Checked) - SetupIni.AggiornaParametro("DirDividiNumFile", txtFilePerCartella.Text) - SetupIni.AggiornaParametro("DirDividiSuffisso", txtSuffissoCartelle.Text) - SetupIni.AggiornaParametro("DirDividiNumCifre", txtCifreContatore.Text) - If rdbNumProgressiva.Checked = True Then - SetupIni.AggiornaParametro("DirDividiTipoNumerazione", "Progressiva") - Else - SetupIni.AggiornaParametro("DirDividiTipoNumerazione", "Files") - End If - - SetupIni.AggiornaParametro("MiniatureCrea", CheckBox1.Checked) - SetupIni.AggiornaParametro("MiniatureSuffisso", TextBox3.Text) - SetupIni.AggiornaParametro("MiniatureAltezza", TextBox5.Text) - SetupIni.AggiornaParametro("MiniatureLarghezza", TextBox6.Text) - SetupIni.AggiornaParametro("MiniatureAddScritta", RadioButton3.Checked) - SetupIni.AggiornaParametro("MiniatureAddOrario", RadioButton4.Checked) - - SetupIni.AggiornaParametro("FotoAltezza", TextBox27.Text) - SetupIni.AggiornaParametro("FotoLarghezza", TextBox28.Text) - 'SetupIni.AggiornaParametro("FotoCodice", TextBox13.Text) - 'SetupIni.AggiornaParametro("FotoDimOriginali", CheckBox2.Checked) - - SetupIni.AggiornaParametro("FontDimensione", TextBox11.Text) - SetupIni.AggiornaParametro("FontDimensioneMiniatura", TextBox25.Text) - SetupIni.AggiornaParametro("FontBold", CheckBox3.Checked) - SetupIni.AggiornaParametro("FontNome", ComboBox3.Text) - - - SetupIni.AggiornaParametro("TestoTesto", TextBox4.Text) - SetupIni.AggiornaParametro("TestoTrasparente", TextBox9.Text) - SetupIni.AggiornaParametro("TestoMargine", TextBox12.Text) - SetupIni.AggiornaParametro("TestoPosizione", ComboBox1.Text) - SetupIni.AggiornaParametro("TestoAllineamento", ComboBox2.Text) - - SetupIni.AggiornaParametro("MarchioFile", TextBox10.Text) - SetupIni.AggiornaParametro("MarchioAltezza", TextBox14.Text) - SetupIni.AggiornaParametro("MarchioLarghezza", TextBox15.Text) - SetupIni.AggiornaParametro("MarchioMargine", TextBox16.Text) - SetupIni.AggiornaParametro("MarchioAllOrizzontale", ComboBox4.Text) - SetupIni.AggiornaParametro("MarchioAllVerticale", ComboBox5.Text) - SetupIni.AggiornaParametro("MarchioTrasparenza", TextBox19.Text) - SetupIni.AggiornaParametro("MarchioAggiungi", CheckBox5.Checked) - - SetupIni.AggiornaParametro("TempoGara", CheckBox7.Checked) - SetupIni.AggiornaParametro("Orario", CheckBox8.Checked) - SetupIni.AggiornaParametro("EtichettaOrario", TextBox18.Text) - - SetupIni.AggiornaParametro("GeneraleForzaJpg", chkForzaJpg.Checked) - SetupIni.AggiornaParametro("GeneraleRotazioneAutomatica", chkRotazioneAutomatica.Checked) - SetupIni.AggiornaParametro("GrandezzaVerticale", TextBox30.Text) - SetupIni.AggiornaParametro("MargineVerticale", TextBox31.Text) - SetupIni.AggiornaParametro("DimensioniOriginali", CheckBox15.Checked) - SetupIni.AggiornaParametro("TestoVerticale", TextBox29.Text) - SetupIni.AggiornaParametro("NomeMiniatura", RadioButton6.Checked) - SetupIni.AggiornaParametro("DataFoto", CheckBox16.Checked) - SetupIni.AggiornaParametro("NumeroFoto", CheckBox17.Checked) - - SetupIni.AggiornaParametro("ColoreTestoRGB", TextBox34.Text) - - SetupIni.AggiornaParametro("TempoSmall", RadioButton5.Checked) - SetupIni.AggiornaParametro("NumTempoSmall", RadioButton7.Checked) - - SetupIni.AggiornaParametro("CompressioneJpeg", TextBox32.Text) - SetupIni.AggiornaParametro("CompressioneJpegMiniatura", TextBox33.Text) - SetupIni.SalvaParametriSetup() - Me.Text = "Image Catalog - " & LeggiSoloNomeFile(IlNome) - End If - End Sub - - Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click - Dim openFileDialog As OpenFileDialog = New OpenFileDialog - - 'openFileDialog.InitialDirectory = TextBox1.Text - openFileDialog.Filter = "Setup (*.xml)|*.xml|All valid files (*.*)|*.*" - openFileDialog.FilterIndex = 0 - openFileDialog.RestoreDirectory = True - - 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 - Me.Text = "Image Catalog - " & LeggiSoloNomeFile(IlNome) - 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.DirectorySorgente = txtSorgente.Text - PicSettings.DirectoryDestinazione = txtDestinazione.Text - - 'PicSettings.DestDir = DestDir - 'PicSettings.SourceDir = SourceDir - 'PicSettings.DestDirStart = DestDirStart - - PicSettings.DimStandard = CType(TextBox11.Text, Integer) - PicSettings.DimStandardMiniatura = CType(TextBox25.Text, Integer) - - PicSettings.UsaOrarioMiniatura = CheckBox12.Checked - PicSettings.UsaOrarioTestoApplicare = CheckBox8.Checked - PicSettings.UsaTempoGaraTestoApplicare = CheckBox7.Checked - - PicSettings.UsaRotazioneAutomatica = chkRotazioneAutomatica.Checked - PicSettings.UsaForzaJpg = chkForzaJpg.Checked - - If CheckBox17.Checked Then - PicSettings.TestoNome = True - Else - PicSettings.TestoNome = False - - End If - - If CheckBox16.Checked Then - PicSettings.NomeData = True - Else - PicSettings.NomeData = False - End If - PicSettings.TestoFirmaStart = TextBox4.Text - PicSettings.TestoFirmaStartV = TextBox29.Text - - PicSettings.DataPartenza = DateTimePicker1.Value - PicSettings.TestoOrario = TextBox18.Text - - PicSettings.AltezzaSmall = CType(TextBox6.Text, Integer) - PicSettings.LarghezzaSmall = CType(TextBox5.Text, Integer) - - PicSettings.CreaMiniature = CheckBox1.Checked - PicSettings.AggiungiScritteMiniature = RadioButton3.Checked - PicSettings.AggTempoGaraMin = RadioButton5.Checked - PicSettings.AggNumTempMin = RadioButton7.Checked - - - PicSettings.DimVert = CType(TextBox30.Text, Integer) - PicSettings.MargVert = CType(TextBox31.Text, Integer) - - 'PicSettings.NomeFileChild = childFile.Name - PicSettings.Suffisso = TextBox3.Text - 'PicSettings.Codice = TextBox13.Text - - PicSettings.Trasparenza = CType(TextBox9.Text, Integer) - PicSettings.IlFont = ComboBox3.SelectedItem.ToString - PicSettings.Grassetto = CheckBox3.Checked - - PicSettings.Posizione = ComboBox1.SelectedItem.ToString - PicSettings.Allineamento = ComboBox2.SelectedItem.ToString - PicSettings.Margine = CType(TextBox12.Text, Integer) - - PicSettings.LogoAltezza = CType(TextBox14.Text, Integer) - PicSettings.LogoLarghezza = CType(TextBox15.Text, Integer) - - PicSettings.fontColoreRGB = ColorTranslator.FromHtml(TextBox34.Text) - - PicSettings.LogoAggiungi = CheckBox5.Checked - PicSettings.LogoNomeFile = TextBox10.Text - PicSettings.LogoTrasparenza = TextBox19.Text - PicSettings.LogoMargine = TextBox16.Text - PicSettings.LogoPosizioneH = ComboBox4.Text - PicSettings.LogoPosizioneV = ComboBox5.Text - - PicSettings.FotoGrandeDimOrigina = CheckBox15.Checked - PicSettings.AltezzaBig = CType(TextBox27.Text, Integer) - PicSettings.LarghezzaBig = CType(TextBox28.Text, Integer) - PicSettings.DimMin = CType(TextBox25.Text, Integer) - - PicSettings.TestoMin = RadioButton6.Checked - - PicSettings.jpegQuality = CLng(TextBox32.Text) - PicSettings.jpegQualityMin = CLng(TextBox33.Text) - - PicSettings.mainForm = Me - - - End Sub - - Private Function makeFilesList(ByVal SourcePath As String) As List(Of List(Of FileInfo)) - Dim SourceDir As DirectoryInfo = New DirectoryInfo(SourcePath) - - Dim DestDir As DirectoryInfo = Nothing - Dim NumFileXDir As Integer = CType(txtFilePerCartella.Text, Integer) - Dim SuffixDir As String = txtSuffissoCartelle.Text - Dim NumCifreDir As Integer = CType(txtCifreContatore.Text, Integer) - Dim DividiFile As Boolean = False - - StopAttivo = False - - Dim FileConta As Integer = 0 - Dim ContaFileXDir As Integer = 0 - Dim ContaDirXDir As Integer = 0 - Dim TestoTemp As String = "" - Dim ContaTemp As Integer = 0 - - Dim picList As New List(Of FileInfo) - Dim dirList As New List(Of List(Of FileInfo)) - - - 'controlla directory principale - 'Dim childFile As FileInfo - 'For Each childFile In SourceDir.GetFiles("*.jpg") - ' picList.Add(childFile) - 'Next - - 'picList = getFiles(SourceDir, SearchOption.AllDirectories) - - 'dirList.Add(picList) - - 'controlla sottodirectory - If chkAggiornaSottodirectory.Checked = True Then - Dim subDir As DirectoryInfo - For Each subDir In SourceDir.GetDirectories() - Dim filesList As New List(Of FileInfo) - filesList = getFiles(subDir) - dirList.Add(filesList) - Next - End If - - Return dirList - End Function - - Private Function getFiles(sourceDir As DirectoryInfo) As List(Of FileInfo) - Dim picList As New List(Of FileInfo) - Dim childFile As FileInfo - For Each childFile In sourceDir.GetFiles("*.jpg") - picList.Add(childFile) - Next - Return picList - End Function - - Private Function getDirsDict(SourcePath As String, DestPath As String) As Dictionary(Of FileInfo, DirectoryInfo) - Dim SourceDir As DirectoryInfo = New DirectoryInfo(SourcePath) - Dim DestDirStart As DirectoryInfo = New DirectoryInfo(DestPath) - Dim DestDir As DirectoryInfo = Nothing - Dim NumFileXDir As Integer = CType(txtFilePerCartella.Text, Integer) - Dim SuffixDir As String = txtSuffissoCartelle.Text - Dim NumCifreDir As Integer = CType(txtCifreContatore.Text, Integer) - Dim DividiFile As Boolean = False - - StopAttivo = False - - Dim FileConta As Integer = 0 - Dim ContaFileXDir As Integer = 0 - Dim ContaDirXDir As Integer = 0 - 'Dim TestoTemp As String = "" - 'Dim ContaTemp As Integer = 0 - Dim dirSourceDest As Dictionary(Of FileInfo, DirectoryInfo) = New Dictionary(Of FileInfo, DirectoryInfo) - - If SourceDir.Exists Then - - If chkAggiornaSottodirectory.Checked Then - FileConta = SourceDir.GetFiles("*.jpg", SearchOption.AllDirectories).GetLength(0) - Else - FileConta = SourceDir.GetFiles("*.jpg", SearchOption.TopDirectoryOnly).GetLength(0) - End If - - Dim a As String = (CType(lblFotoTotaliNum.Text, Integer) + FileConta).ToString - setLabel17Text(a) - setProgressBarMaximum(CInt(a)) - - If chkAggiornaSottodirectory.Checked Then - - For Each directory As DirectoryInfo In SourceDir.GetDirectories - For Each file As FileInfo In directory.GetFiles(".jpg") - - Next - Next - - End If - - For Each file As FileInfo In SourceDir.GetFiles("*.jpg", SearchOption.AllDirectories) - - Next - - - If NumFileXDir > 0 And chkCreaSottocartelle.Checked = True And FileConta > NumFileXDir Then - DividiFile = True - Else - DestDir = DestDirStart - If Not DestDir.Exists Then - DestDir.Create() - End If - DividiFile = False - End If - - Dim filesList As New List(Of FileInfo) - If chkAggiornaSottodirectory.Checked Then - filesList.AddRange(SourceDir.GetFiles("*.jpg", SearchOption.AllDirectories)) - filesList.AddRange(SourceDir.GetFiles("*.png", SearchOption.AllDirectories)) - Else - filesList.AddRange(SourceDir.GetFiles("*.jpg", SearchOption.TopDirectoryOnly)) - filesList.AddRange(SourceDir.GetFiles("*.png", SearchOption.TopDirectoryOnly)) - End If - - For Each file As FileInfo In filesList - - - - ContaFileXDir += 1 - If DividiFile = True Then - If ContaFileXDir = (ContaDirXDir * NumFileXDir) + 1 Then - ContaDirXDir += 1 - Dim TestoTemp As String - If rdbNumProgressiva.Checked = True Then - TestoTemp = ContaDirXDir.ToString - Else - TestoTemp = (ContaDirXDir * NumFileXDir).ToString - End If - For ContaTemp As Integer = 1 To (NumCifreDir - TestoTemp.Length) - TestoTemp = "0" & TestoTemp - Next - DestDir = New DirectoryInfo(Path.Combine(DestDirStart.FullName, SuffixDir, TestoTemp)) - 'DestDir = New DirectoryInfo(DestDirStart.FullName & IIf(Not DestDirStart.FullName.EndsWith("\"), "\", String.Empty).ToString & SuffixDir & TestoTemp) - dirSourceDest.Add(file, DestDir) - - If Not DestDir.Exists Then - DestDir.Create() - End If - End If - End If - - Next - - - End If - Return dirSourceDest - End Function - - Private Sub setLabel17Text(ByVal text As String) - If lblFotoTotaliNum.InvokeRequired Then - lblFotoTotaliNum.Invoke(New Action(Of String)(AddressOf setLabel17Text), text) - Else - lblFotoTotaliNum.Text = text - - End If - End Sub - - Private Sub setLabel10Text(ByVal text As String) - If Label10.InvokeRequired Then - Label10.Invoke(New Action(Of String)(AddressOf setLabel10Text), text) - Else - Label10.Text = text - - End If - End Sub - Public Sub stepProgressBar() - If ProgressBar1.InvokeRequired Then - ProgressBar1.Invoke(New MethodInvoker(AddressOf ProgressBar1.PerformStep)) - Else - ProgressBar1.PerformStep() - End If - setLabel18Text(ProgressBar1.Value.ToString) - End Sub - Private Sub setProgressBarMaximum(ByVal value As Integer) - If ProgressBar1.InvokeRequired Then - ProgressBar1.Invoke(New Action(Of Integer)(AddressOf setProgressBarMaximum), value) - Else - ProgressBar1.Maximum = value - - End If - End Sub - - Private Sub setProgressBarValue(ByVal value As Integer) - If ProgressBar1.InvokeRequired Then - ProgressBar1.Invoke(New Action(Of Integer)(AddressOf setProgressBarValue), value) - Else - ProgressBar1.Value = value - - End If - End Sub - - Private Sub setLabel18Text(ByVal text As String) - If Label18.InvokeRequired Then - Label18.Invoke(New Action(Of String)(AddressOf setLabel18Text), text) - Else - Label18.Text = text - - End If - End Sub - - Private Sub setLabel43Text(ByVal text As String) - If Label43.InvokeRequired Then - Label43.Invoke(New Action(Of String)(AddressOf setLabel43Text), text) - Else - Label43.Text = text - - End If - End Sub - - Private Sub creaImmaginiWithThreadMod(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 - Dim NumFileXDir As Integer = CType(txtFilePerCartella.Text, Integer) - Dim SuffixDir As String = txtSuffissoCartelle.Text - Dim NumCifreDir As Integer = CType(txtCifreContatore.Text, Integer) - Dim DividiFile As Boolean = False - - StopAttivo = False - - Dim FileConta As Integer = 0 - Dim ContaFileXDir As Integer = 0 - Dim ContaDirXDir As Integer = 0 - Dim TestoTemp As String = "" - Dim ContaTemp As Integer = 0 - - If SourceDir.Exists Then - FileConta = SourceDir.GetFiles("*.jpg").GetLength(0) - 'Label17.Text = (CType(Label17.Text, Integer) + FileConta).ToString - Dim a As String = (CType(lblFotoTotaliNum.Text, Integer) + FileConta).ToString - setLabel17Text(a) - setProgressBarMaximum(CInt(a)) - - If NumFileXDir > 0 And chkCreaSottocartelle.Checked = True Then - If FileConta > NumFileXDir Then - DividiFile = True - Else - DestDir = DestDirStart - If Not DestDir.Exists Then - DestDir.Create() - End If - DividiFile = False - End If - Else - DestDir = DestDirStart - If Not DestDir.Exists Then - DestDir.Create() - End If - DividiFile = False - End If - - Dim childFile As FileInfo - For Each childFile In SourceDir.GetFiles("*.jpg") - If StopAttivo = True Then - Exit For - End If - setLabel10Text("File: " & childFile.Name) - Dim b As String = (CType(Label18.Text, Integer) + 1).ToString - 'setLabel18Text(b) - 'setProgressBarValue(CInt(b)) - 'Label10.Text = "File: " & childFile.Name - 'Label18.Text = (CType(Label18.Text, Integer) + 1).ToString - 'Application.DoEvents() - - ContaFileXDir += 1 - - If DividiFile = True Then - If ContaFileXDir = (ContaDirXDir * NumFileXDir) + 1 Then - ContaDirXDir += 1 - - If rdbNumProgressiva.Checked = True Then - TestoTemp = ContaDirXDir.ToString - Else - TestoTemp = (ContaDirXDir * NumFileXDir).ToString - End If - For ContaTemp = 1 To (NumCifreDir - TestoTemp.Length) - TestoTemp = "0" & TestoTemp - Next - - If DestDirStart.FullName.EndsWith("\") Then - DestDir = New DirectoryInfo(DestDirStart.FullName & SuffixDir & TestoTemp) - Else - DestDir = New DirectoryInfo(DestDirStart.FullName & "\" & SuffixDir & TestoTemp) - End If - - If Not DestDir.Exists Then - DestDir.Create() - End If - End If - End If - - 'Application.DoEvents() - - - - Dim ClsCreaImmagine As New ImageCreatorSharp(childFile.Name, SourceDir, DestDir, DestDirStart) - ' ClsCreaImmagine.NomeFileChild = childFile.Name - ' ClsCreaImmagine.DestDir = DestDir - ' ClsCreaImmagine.SourceDir = SourceDir - ' ClsCreaImmagine.DestDirStart = DestDirStart - - ContaImmaginiThread += 1 - MyPool.InsertWorkItem(childFile.Name, New XyThreadAdd(AddressOf ClsCreaImmagine.CreaImmagineThread), New Object(0) {childFile.Name}, True) - Next - ' copy all the sub-directories by recursively calling this same routine - If chkAggiornaSottodirectory.Checked = True Then - Dim subDir As DirectoryInfo - For Each subDir In SourceDir.GetDirectories() - creaImmaginiWithThreadMod(subDir.FullName, Path.Combine(DestDir.FullName, subDir.Name)) - Next - End If - End If - End Sub - - Private Function getNumerazione() As Integer - Dim numerazione As Integer - If rdbNumProgressiva.Checked Then - numerazione = FileHelper.numerazione.Progressiva - Else - numerazione = FileHelper.numerazione.Files - End If - Return numerazione - End Function - - Private Function GetNumerazioneEnum() As NumerazioneType - Dim numerazioneType As NumerazioneType - If rdbNumProgressiva.Checked Then - numerazioneType = NumerazioneType.Progressiva ' FileHelper.numerazione.Progressiva - Else - numerazioneType = NumerazioneType.Files ' FileHelper.numerazione.Files - End If - Return numerazioneType - End Function - - Private Sub creaimmaginiWithThreadDict(ByVal SourcePath As String, ByVal DestPath As String) - Dim dirSourceDest As Dictionary(Of FileInfo, DirectoryInfo) = New Dictionary(Of FileInfo, DirectoryInfo) - If chkAggiornaSottodirectory.Checked And chkCreaSottocartelle.Checked Then - - Dim helper As New FileHelper(CInt(txtFilePerCartella.Text), txtSuffissoCartelle.Text, CInt(txtCifreContatore.Text), getNumerazione()) - 'getfilesrecursive - dirSourceDest = helper.GetFilesRecursive(New DirectoryInfo(SourcePath), New DirectoryInfo(DestPath), "*.jpg") - ElseIf chkAggiornaSottodirectory.Checked And Not chkCreaSottocartelle.Checked Then - - End If - - '= getDirsDict(SourcePath, DestPath) - - Dim pair As KeyValuePair(Of FileInfo, DirectoryInfo) - For Each pair In dirSourceDest - setLabel10Text("File: " & pair.Key.Name) - Dim b As String = (CType(Label18.Text, Integer) + 1).ToString - - Dim ClsCreaImmagine As New ImageCreatorSharp(pair.Key, pair.Value) - ContaImmaginiThread += 1 - - MyPool.InsertWorkItem(pair.Key.Name, New XyThreadAdd(AddressOf ClsCreaImmagine.CreaImmagineThread), New Object(0) {pair.Key.Name}, True) - - Next - - End Sub - - 'il posto giusto dove fare modifiche - Private Sub CreaImmaginiWithThread(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 - Dim NumFileXDir As Integer = CType(txtFilePerCartella.Text, Integer) - Dim SuffixDir As String = txtSuffissoCartelle.Text - Dim NumCifreDir As Integer = CType(txtCifreContatore.Text, Integer) - Dim DividiFile As Boolean = False - - StopAttivo = False - - Dim FileConta As Integer = 0 - Dim ContaFileXDir As Integer = 0 - Dim ContaDirXDir As Integer = 0 - Dim TestoTemp As String = "" - Dim ContaTemp As Integer = 0 - - - - If SourceDir.Exists Then - FileConta = SourceDir.GetFiles("*.jpg").GetLength(0) - lblFotoTotaliNum.Text = (CType(lblFotoTotaliNum.Text, Integer) + FileConta).ToString - - If NumFileXDir > 0 And chkCreaSottocartelle.Checked = True Then - If FileConta > NumFileXDir Then - DividiFile = True - Else - DestDir = DestDirStart - If Not DestDir.Exists Then - DestDir.Create() - End If - DividiFile = False - End If - Else - DestDir = DestDirStart - If Not DestDir.Exists Then - DestDir.Create() - End If - DividiFile = False - End If - - Dim childFile As FileInfo - For Each childFile In SourceDir.GetFiles("*.jpg") - If StopAttivo = True Then - Exit For - End If - 'Label10.Text = "File: " & childFile.Name - 'Label18.Text = (CType(Label18.Text, Integer) + 1).ToString - 'Application.DoEvents() - - ContaFileXDir += 1 - - If DividiFile = True Then - If ContaFileXDir = (ContaDirXDir * NumFileXDir) + 1 Then - ContaDirXDir += 1 - - If rdbNumProgressiva.Checked = True Then - TestoTemp = ContaDirXDir.ToString - Else - TestoTemp = (ContaDirXDir * NumFileXDir).ToString - End If - For ContaTemp = 1 To (NumCifreDir - TestoTemp.Length) - TestoTemp = "0" & TestoTemp - Next - - If DestDirStart.FullName.EndsWith("\") Then - DestDir = New DirectoryInfo(DestDirStart.FullName & SuffixDir & TestoTemp) - Else - DestDir = New DirectoryInfo(DestDirStart.FullName & "\" & SuffixDir & TestoTemp) - End If - - If Not DestDir.Exists Then - DestDir.Create() - End If - End If - End If - - Application.DoEvents() - Dim ClsCreaImmagine As New CreaImmagineSeparateThread - - ClsCreaImmagine.DirectorySorgente = txtSorgente.Text - ClsCreaImmagine.DirectoryDestinazione = txtDestinazione.Text - - ClsCreaImmagine.DestDir = DestDir - ClsCreaImmagine.SourceDir = SourceDir - ClsCreaImmagine.DestDirStart = DestDirStart - - ClsCreaImmagine.DimStandard = CType(TextBox11.Text, Integer) - ClsCreaImmagine.DimStandardMiniatura = CType(TextBox25.Text, Integer) - - ClsCreaImmagine.UsaOrarioMiniatura = CheckBox12.Checked - ClsCreaImmagine.UsaOrarioTestoApplicare = CheckBox8.Checked - ClsCreaImmagine.UsaTempoGaraTestoApplicare = CheckBox7.Checked - - ClsCreaImmagine.UsaRotazioneAutomatica = chkRotazioneAutomatica.Checked - ClsCreaImmagine.UsaForzaJpg = chkForzaJpg.Checked - - If CheckBox17.Checked Then - ClsCreaImmagine.TestoNome = True - Else - ClsCreaImmagine.TestoNome = False - - End If - - If CheckBox16.Checked Then - ClsCreaImmagine.NomeData = True - Else - ClsCreaImmagine.NomeData = False - End If - ClsCreaImmagine.TestoFirmaStart = TextBox4.Text - ClsCreaImmagine.TestoFirmaStartV = TextBox29.Text - - ClsCreaImmagine.DataPartenza = DateTimePicker1.Value - ClsCreaImmagine.TestoOrario = TextBox18.Text - - ClsCreaImmagine.AltezzaSmall = CType(TextBox5.Text, Integer) - ClsCreaImmagine.LarghezzaSmall = CType(TextBox5.Text, Integer) - - ClsCreaImmagine.CreaMiniature = CheckBox1.Checked - ClsCreaImmagine.AggiungiScritteMiniature = RadioButton3.Checked - ClsCreaImmagine.AggTempoGaraMin = RadioButton5.Checked - ClsCreaImmagine.AggNumTempMin = RadioButton7.Checked - - - ClsCreaImmagine.DimVert = CType(TextBox30.Text, Integer) - ClsCreaImmagine.MargVert = CType(TextBox31.Text, Integer) - - ClsCreaImmagine.NomeFileChild = childFile.Name - ClsCreaImmagine.Suffisso = TextBox3.Text - 'ClsCreaImmagine.Codice = TextBox13.Text - - ClsCreaImmagine.Trasparenza = CType(TextBox9.Text, Integer) - ClsCreaImmagine.IlFont = ComboBox3.SelectedItem.ToString - ClsCreaImmagine.Grassetto = CheckBox3.Checked - - ClsCreaImmagine.Posizione = ComboBox1.SelectedItem.ToString - ClsCreaImmagine.Allineamento = ComboBox2.SelectedItem.ToString - ClsCreaImmagine.Margine = CType(TextBox12.Text, Integer) - - ClsCreaImmagine.LogoAltezza = CType(TextBox14.Text, Integer) - ClsCreaImmagine.LogoLarghezza = CType(TextBox15.Text, Integer) - - 'ClsCreaImmagine.FontColoreR = CType(TextBox22.Text, Integer) - 'ClsCreaImmagine.FontColoreG = CType(TextBox23.Text, Integer) - 'ClsCreaImmagine.FontColoreB = CType(TextBox24.Text, Integer) - ClsCreaImmagine.fontColoreRGB = ColorTranslator.FromHtml(TextBox34.Text) - - ClsCreaImmagine.LogoAggiungi = CheckBox5.Checked - ClsCreaImmagine.LogoNomeFile = TextBox10.Text - ClsCreaImmagine.LogoTrasparenza = TextBox19.Text - ClsCreaImmagine.LogoMargine = TextBox16.Text - ClsCreaImmagine.LogoPosizioneH = ComboBox4.Text - ClsCreaImmagine.LogoPosizioneV = ComboBox5.Text - - ClsCreaImmagine.FotoGrandeDimOrigina = CheckBox15.Checked - ClsCreaImmagine.AltezzaBig = CType(TextBox27.Text, Integer) - ClsCreaImmagine.LarghezzaBig = CType(TextBox28.Text, Integer) - ClsCreaImmagine.DimMin = CType(TextBox25.Text, Integer) - - ClsCreaImmagine.TestoMin = RadioButton6.Checked - - ClsCreaImmagine.jpegQuality = CLng(TextBox32.Text) - ClsCreaImmagine.jpegQualityMin = CLng(TextBox33.Text) - - ContaImmaginiThread += 1 - MyPool.InsertWorkItem(childFile.Name, New XyThreadAdd(AddressOf ClsCreaImmagine.CreaImmagineThread), New Object(0) {childFile.Name}, True) - Next - ' copy all the sub-directories by recursively calling this same routine - If chkAggiornaSottodirectory.Checked = True Then - Dim subDir As DirectoryInfo - For Each subDir In SourceDir.GetDirectories() - CreaImmaginiWithThread(subDir.FullName, Path.Combine(DestDir.FullName, subDir.Name)) - Next - End If - End If - End Sub - - Private Sub CopyDirectoryFile(ByVal SourcePath As String, ByVal DestPath As String, Optional ByVal OverWrite As Boolean = False) - Dim SourceDir As DirectoryInfo = New DirectoryInfo(SourcePath) - Dim DestDir As DirectoryInfo = New DirectoryInfo(DestPath) - - If SourceDir.Exists Then - If Not DestDir.Exists Then - DestDir.Create() - End If - ' copy all the files of the current directory - Dim childFile As FileInfo - For Each childFile In SourceDir.GetFiles() - If OverWrite Then - childFile.CopyTo(Path.Combine(DestDir.FullName, childFile.Name), True) - Else - ' if overwrite = false, copy the file only if it does not exist - ' this is done to avoid an IOException if a file already exists - ' this way the other files can be copied anyway... - If Not File.Exists(Path.Combine(DestDir.FullName, childFile.Name)) Then - childFile.CopyTo(Path.Combine(DestDir.FullName, childFile.Name), False) - End If - End If - Next - ' copy all the sub-directories by recursively calling this same routine - Dim subDir As DirectoryInfo - For Each subDir In SourceDir.GetDirectories() - CopyDirectoryFile(subDir.FullName, Path.Combine(DestDir.FullName, subDir.Name), OverWrite) - Next - End If - End Sub - - - - - - Function NewthumbSize(ByVal currentwidth As Integer, ByVal currentheight As Integer, ByVal MaxPixel As Integer, ByVal TipoSize As String) As Size - ' Calculate the Size of the New image - '*** Larghezza, Altezza, Auto - - Dim tempMultiplier As Double - - If TipoSize.ToUpper = "Larghezza".ToUpper Then - tempMultiplier = MaxPixel / currentwidth - ElseIf TipoSize.ToUpper = "Altezza".ToUpper Then - tempMultiplier = MaxPixel / currentheight - Else - If currentheight > currentwidth Then ' portrait - tempMultiplier = MaxPixel / currentheight - Else - tempMultiplier = MaxPixel / currentwidth - End If - End If - - Dim NewSize As New Size(CInt(currentwidth * tempMultiplier), CInt(currentheight * tempMultiplier)) - - Return NewSize - End Function - - - - Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click - StopAttivo = True - - MyPool.StopThreadPool() - unlockUI() - - End Sub - - Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click - Dim openFileDialog As OpenFileDialog = New OpenFileDialog - - 'openFileDialog.InitialDirectory = TextBox1.Text - openFileDialog.Filter = "Immagini jpg (*.jpg)|*.jpg|Immagini gif (*.gif)|*.gif|Tutti i file (*.*)|*.*" - If TextBox10.Text.Length > 0 Then - openFileDialog.FileName = TextBox10.Text - End If - openFileDialog.FilterIndex = 0 - openFileDialog.RestoreDirectory = True - - If DialogResult.OK = openFileDialog.ShowDialog() Then - TextBox10.Text = openFileDialog.FileName - 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 Function LeggiSoloNomeFile(ByVal FileName As String) As String - Dim Testo As String = FileName - Dim Risposta As String = "" - - Dim Nomi() As String = Testo.Split(New Char() {"\"c}) - If Nomi.Length > 1 Then - Risposta = Nomi(Nomi.Length - 1) - End If - - Return Risposta - End Function - - - Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove - 'GetColor() - 'GetPixelColor(PictureBox1.PointToScreen(e.Location)).ToArgb.ToString("X8") - - End Sub - - Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp - If e.Button = MouseButtons.Left Then - WaterSelectColor = True - Else - WaterSelectColor = False - End If - End Sub - - - 'Private Declare Function CreateDC Lib "gdi32.dll" (ByVal strDriver As String, ByVal strDevice As String, ByVal strOutput As String, ByVal pData As IntPtr) As IntPtr - 'Private Declare Function DeleteDC Lib "gdi32.dll" (ByVal hdc As IntPtr) As Boolean - 'Private Declare Function GetPixel Lib "gdi32.dll" (ByVal hdc As IntPtr, ByVal x As Integer, ByVal y As Integer) As Integer - 'Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As Point) As Boolean - - - '''' - '''' Get the color relative to mouse position - '''' - 'Private Sub GetColor() - ' Dim hdcScreen As IntPtr = CreateDC("Display", Nothing, Nothing, IntPtr.Zero) - ' Dim pt As Point = New Point - ' GetCursorPos(pt) - ' Dim cr As Integer = GetPixel(hdcScreen, pt.X, pt.Y) - ' DeleteDC(hdcScreen) - ' Dim clr As Color = Color.FromArgb((cr And &HFF), (cr And &HFF00) >> 8, (cr And &HFF0000) >> 16) - ' PictureBox3.BackColor = clr - ' If WaterSelectColor = True Then - ' PictureBox2.BackColor = clr - ' End If - ' WaterSelectColor = False - 'End Sub - - - Private Function GetPixelColor(ByVal screenLocation As Point) As Color() - 'Dim bm As New Bitmap(1, 1, Imaging.PixelFormat.Format24bppRgb) - 'Dim g As Graphics = Graphics.FromImage(bm) - 'g.CopyFromScreen(screenLocation, New Point(0, 0), New Size(1, 1)) - 'Dim result As Color = bm.GetPixel(0, 0) - 'g.Dispose() - 'bm.Dispose() - 'Return result - Return Nothing - End Function - - Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click - Dim MyDialog As New ColorDialog - MyDialog.AllowFullOpen = True - 'If TextBox22.Text.Length > 0 And TextBox23.Text.Length > 0 And TextBox24.Text.Length > 0 Then - ' If CType(TextBox22.Text, Integer) >= 0 And CType(TextBox23.Text, Integer) >= 0 And CType(TextBox24.Text, Integer) >= 0 Then - ' MyDialog.Color = Color.FromArgb(0, CType(TextBox22.Text, Integer), CType(TextBox23.Text, Integer), CType(TextBox24.Text, Integer)) - ' End If - 'End If - - If (MyDialog.ShowDialog() = Windows.Forms.DialogResult.OK) Then - 'TextBox22.Text = MyDialog.Color.R.ToString - 'TextBox23.Text = MyDialog.Color.G.ToString - 'TextBox24.Text = MyDialog.Color.B.ToString - TextBox34.Text = ColorTranslator.ToHtml(MyDialog.Color) - TextBox34.BackColor = MyDialog.Color - - End If - End Sub - - - - - - - - Private Sub TextBox27_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) - - End Sub - - - - - Private Sub CheckBox18_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox18.CheckedChanged - CheckBox4.Checked = False - CheckBox12.Checked = False - - End Sub - - Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged - CheckBox18.Checked = False - End Sub - - Private Sub CheckBox12_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox12.CheckedChanged - CheckBox18.Checked = False - End Sub - - Private Sub Label27_Click(sender As Object, e As EventArgs) Handles Label27.Click - - End Sub - - Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles btnCreaCatalogoAsync.Click - lockUI() - 'Dim timeStart As Date - 'Dim timeStop As Date - - 'timeStart = TimeOfDay - FixPaths() - Label10.Text = "Elaborazione in corso..." - lblFotoTotaliNum.Text = "0" - Label18.Text = "0" - Label43.Text = "-s" - - setPicSettings(txtSorgente.Text, txtDestinazione.Text) - ProgressBar1.Minimum = 0 - ProgressBar1.Step = 1 - ProgressBar1.Value = 0 - - 'Await CreaCatalogoParallel() - Dim imgStf As ImageCreationStuff = New ImageCreationStuff() - - Dim imageCreationOptions As ImageCreationStuff.Options = New ImageCreationStuff.Options() - With imageCreationOptions - .AggiornaSottodirectory = chkAggiornaSottodirectory.Checked - .CreaSottocartelle = chkCreaSottocartelle.Checked - .FilePerCartella = CInt(txtFilePerCartella.Text) - .SuffissoCartelle = txtSuffissoCartelle.Text - .CifreContatore = CInt(txtCifreContatore.Text) - .NumerazioneType = GetNumerazioneEnum() - .SourcePath = txtSorgente.Text - .DestinationPath = txtDestinazione.Text - .MaxThreads = CInt(TextBox7.Text) - .ChunksSize = CInt(TextBox8.Text) - .LinearExecution = rdbVecchioMetodo.Checked - End With - - Dim time As String = Await imgStf.CreaCatalogoParallel(imageCreationOptions) - Label43.Text = time - Label10.Text = "Finito" - unlockUI() - - End Sub - Private Sub UpdateCounter(text As String) - Label10.Invoke(Sub() - Label10.Text = text - - End Sub) - End Sub - Private Async Function CreaCatalogoParallel() As Task - Dim timeStart As Date = TimeOfDay - ContaImmaginiThread = 0 - setLabel10Text("Elaborazione in corso...") - Dim imgStf As ImageCreationStuff = New ImageCreationStuff() - - Dim imageCreationOptions As ImageCreationStuff.Options = New ImageCreationStuff.Options() - With imageCreationOptions - .AggiornaSottodirectory = chkAggiornaSottodirectory.Checked - .CreaSottocartelle = chkCreaSottocartelle.Checked - .FilePerCartella = CInt(txtFilePerCartella.Text) - .SuffissoCartelle = txtSuffissoCartelle.Text - .CifreContatore = CInt(txtCifreContatore.Text) - .NumerazioneType = GetNumerazioneEnum() - .SourcePath = txtSorgente.Text - .DestinationPath = txtDestinazione.Text - End With - - Await imgStf.CreaImmaginiParallel(imageCreationOptions) - - 'Await CreaImmaginiParallel(txtSorgente.Text, txtDestinazione.Text) - - setLabel10Text("Finito") - Dim timeStop As Date = TimeOfDay - setLabel43Text(CalcTime(timeStart, timeStop, ContaImmaginiThread)) - End Function - - 'Private Async Function CreaImmaginiParallel(ByVal SourcePath As String, ByVal DestPath As String) As Task - ' Dim dataToProcess As List(Of FileData) = New List(Of FileData) - - ' 'Dim dirSourceDest As Dictionary(Of FileInfo, DirectoryInfo) = New Dictionary(Of FileInfo, DirectoryInfo) - ' If chkAggiornaSottodirectory.Checked And chkCreaSottocartelle.Checked Then - - ' Dim helperSharp As New FileHelperSharp() - - ' 'Dim helper As New FileHelper(CInt(txtFilePerCartella.Text), txtSuffissoCartelle.Text, CInt(txtCifreContatore.Text), getNumerazione()) - ' 'getfilesrecursive - - ' Dim fileHelperOptions As FileHelperOptions = New FileHelperOptions() - ' fileHelperOptions.FilesPerFolder = CInt(txtFilePerCartella.Text) - ' fileHelperOptions.Suffix = txtSuffissoCartelle.Text - ' fileHelperOptions.CounterSize = CInt(txtCifreContatore.Text) - ' fileHelperOptions.NumerationType = GetNumerazioneEnum() - - ' dataToProcess = helperSharp.GetFilesRecursive(New DirectoryInfo(SourcePath), New DirectoryInfo(DestPath), "*.jpg", fileHelperOptions) - - ' 'dataToProcess = helper.GetFilesRecursiveParallel(New DirectoryInfo(SourcePath), New DirectoryInfo(DestPath), "*.jpg") - ' ElseIf chkAggiornaSottodirectory.Checked And Not chkCreaSottocartelle.Checked Then - ' ' TODO manca tutto?!?!?!? - ' End If - - ' Dim scheduler As TaskScheduler = New ConcurrentExclusiveSchedulerPair(TaskScheduler.Default, Environment.ProcessorCount * 2).ConcurrentScheduler - - ' Dim test As IEnumerable(Of Task) = From d In dataToProcess Select Task.Factory.StartNew(Sub() - ' 'setLabel10Text("File: " & p.File.Name) - - ' Dim b As String = (CType(Label18.Text, Integer) + 1).ToString - - ' Dim clsCreaImmagine As New ImageCreator(d.File, d.Directory) - - ' clsCreaImmagine.CreaImmagineThread(d.File.Name) - - ' ContaImmaginiThread += 1 - ' UpdateCounter(ContaImmaginiThread & " " & d.File.Name) - ' End Sub, CancellationToken.None, TaskCreationOptions.LongRunning, scheduler) 'TODO Cancellation Token - - ' 'ThreadingHelper.StartAndWaitAllThrottled(test, CType(TextBox7.Text, Integer)) - - ' Await Task.WhenAll(test) - - ' '= getDirsDict(SourcePath, DestPath) - ' 'Parallel.ForEach(dataToProcess, - ' ' Sub(p, state) - ' ' 'setLabel10Text("File: " & p.File.Name) - - ' ' Dim b As String = (CType(Label18.Text, Integer) + 1).ToString - - ' ' Dim clsCreaImmagine As New ImageCreator(p.File, p.Directory) - - ' ' clsCreaImmagine.CreaImmagineThread(p.File.Name) - - ' ' ContaImmaginiThread += 1 - ' ' UpdateCounter(ContaImmaginiThread & " " & p.File.Name) - ' ' 'MyPool.InsertWorkItem(p.File.Name, New XyThreadAdd(AddressOf ClsCreaImmagine.CreaImmagineThread), New Object(0) {p.File.Name}, True) - ' ' ' TODO: BREAK ON STOP state.stop() - - ' ' End Sub) - - ' 'Dim pair As KeyValuePair(Of FileInfo, DirectoryInfo) - ' 'For Each pair In dirSourceDest - - ' ' setLabel10Text("File: " & pair.Key.Name) - ' ' Dim b As String = (CType(Label18.Text, Integer) + 1).ToString - - ' ' Dim ClsCreaImmagine As New ImageCreator(pair.Key, pair.Value) - ' ' ContaImmaginiThread += 1 - ' ' MyPool.InsertWorkItem(pair.Key.Name, New XyThreadAdd(AddressOf ClsCreaImmagine.CreaImmagineThread), New Object(0) {pair.Key.Name}, True) - - ' 'Next - 'End Function -End Class - -Public Class PicInfo - Public DirSource, DirDest, DirDestStart As DirectoryInfo - Public NomeImmagine As String - - Public Sub New(ByVal Dir_Source As DirectoryInfo, ByVal Dir_Dest As DirectoryInfo, ByVal Dir_DestStart As DirectoryInfo, ByVal Nome_Immagine As String) - DirSource = Dir_Source - DirDest = Dir_Dest - DirDestStart = Dir_DestStart - NomeImmagine = Nome_Immagine - End Sub -End Class \ No newline at end of file diff --git a/imagecatalog/Module1.cs b/imagecatalog/Module1.cs deleted file mode 100644 index de80777..0000000 --- a/imagecatalog/Module1.cs +++ /dev/null @@ -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(); - } -} \ No newline at end of file diff --git a/imagecatalog/Module1.vb b/imagecatalog/Module1.vb deleted file mode 100644 index f9b2cbc..0000000 --- a/imagecatalog/Module1.vb +++ /dev/null @@ -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 diff --git a/imagecatalog/Module2.cs b/imagecatalog/Module2.cs deleted file mode 100644 index 9a86f8b..0000000 --- a/imagecatalog/Module2.cs +++ /dev/null @@ -1,7 +0,0 @@ - -namespace ImageCatalog -{ - static class Module2 - { - } -} \ No newline at end of file diff --git a/imagecatalog/Module2.vb b/imagecatalog/Module2.vb deleted file mode 100644 index f48fe0e..0000000 --- a/imagecatalog/Module2.vb +++ /dev/null @@ -1,3 +0,0 @@ -Module Module2 - -End Module diff --git a/imagecatalog/Program.cs b/imagecatalog/Program.cs index 0fe5fba..b4c2f37 100644 --- a/imagecatalog/Program.cs +++ b/imagecatalog/Program.cs @@ -82,6 +82,8 @@ namespace ImageCatalog_2 services.AddTransient(); services.AddTransient(); + + services.AddSingleton(); // Register your forms services.AddTransient();