diff --git a/Configuration/GlobalAssemblyInfo.cs b/Configuration/GlobalAssemblyInfo.cs index de73e8923..850d103c9 100644 --- a/Configuration/GlobalAssemblyInfo.cs +++ b/Configuration/GlobalAssemblyInfo.cs @@ -15,7 +15,7 @@ internal static class RevisionClass public const string Major = "3"; public const string Minor = "8"; public const string Build = "3"; - public const string Revision = "3204"; + public const string Revision = "3205"; public const string MainVersion = Major + "." + Minor; public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision; diff --git a/Configuration/Version.defs b/Configuration/Version.defs index c67f88019..f3803cf8f 100644 --- a/Configuration/Version.defs +++ b/Configuration/Version.defs @@ -1,4 +1,4 @@ -%COREVERSION%=3 -%REVISION%=3204 %MINOR%=8 +%REVISION%=3205 +%COREVERSION%=3 %MAJOR%=3 diff --git a/InstallerSamples/!РусскиеИсполнители/Исполнители.pas b/InstallerSamples/!РусскиеИсполнители/Исполнители.pas index 416b55548..b06e0c86e 100644 --- a/InstallerSamples/!РусскиеИсполнители/Исполнители.pas +++ b/InstallerSamples/!РусскиеИсполнители/Исполнители.pas @@ -2,6 +2,8 @@ /// , unit ; +{$savepcu false} + type ///!# = integer; diff --git a/Release/pabcversion.txt b/Release/pabcversion.txt index 464b85c1b..5b517e281 100644 --- a/Release/pabcversion.txt +++ b/Release/pabcversion.txt @@ -1 +1 @@ -3.8.3.3204 +3.8.3.3205 diff --git a/ReleaseGenerators/PascalABCNET_version.nsh b/ReleaseGenerators/PascalABCNET_version.nsh index 62f93bbb0..7c972376f 100644 --- a/ReleaseGenerators/PascalABCNET_version.nsh +++ b/ReleaseGenerators/PascalABCNET_version.nsh @@ -1 +1 @@ -!define VERSION '3.8.3.3204' +!define VERSION '3.8.3.3205' diff --git a/VisualPascalABCNETLinux/AboutBox.cs b/VisualPascalABCNETLinux/AboutBox.cs index a0e78581b..a9e1e80a8 100644 --- a/VisualPascalABCNETLinux/AboutBox.cs +++ b/VisualPascalABCNETLinux/AboutBox.cs @@ -119,31 +119,37 @@ namespace VisualPascalABC private void AboutBox_Shown(object sender, EventArgs e) { - - lVersion.Text = string.Format("{0}, сборка {1} ({2})", PascalABCCompiler.Compiler.ShortVersion, RevisionClass.Revision, PascalABCCompiler.Compiler.VersionDateTime.ToShortDateString()); - dgvModules.Items.Clear(); - - string apppatch = Path.GetDirectoryName(Application.ExecutablePath); - - VisualEnvironmentCompiler vec = (Owner as Form1).VisualEnvironmentCompiler; - PascalABCCompiler.ICompiler comp = vec.StandartCompiler; - if (comp != null) + try + { + lVersion.Text = string.Format("{0}, сборка {1} ({2})", PascalABCCompiler.Compiler.ShortVersion, RevisionClass.Revision, PascalABCCompiler.Compiler.VersionDateTime.ToShortDateString()); + dgvModules.Items.Clear(); + + string apppatch = Path.GetDirectoryName(Application.ExecutablePath); + + VisualEnvironmentCompiler vec = (Owner as Form1).VisualEnvironmentCompiler; + PascalABCCompiler.ICompiler comp = vec.StandartCompiler; + if (comp != null) + { + Assembly a = Assembly.GetAssembly(comp.GetType()); + dgvModules.Items.Add(MakeItem("Core", "PascalABCCompiler.Core", a.GetName().Version.ToString(), "Copyright © 2005-2022 by Ivan Bondarev, Stanislav Mikhalkovich")); + foreach (PascalABCCompiler.Parsers.IParser parser in comp.ParsersController.Parsers) + dgvModules.Items.Add(MakeItem("Parser", parser.Name, parser.Version, parser.Copyright)); + foreach (PascalABCCompiler.SemanticTreeConverters.ISemanticTreeConverter conv in comp.SemanticTreeConvertersController.SemanticTreeConverters) + dgvModules.Items.Add(MakeItem("Converter", conv.Name, conv.Version, conv.Copyright)); + foreach (VisualPascalABCPlugins.IVisualPascalABCPlugin plugin in vec.PluginsController.Plugins) + dgvModules.Items.Add(MakeItem("Plugin", plugin.Name, plugin.Version, plugin.Copyright)); + + } + + //dgvModules.Items.Add(MakeItem(Assembly.LoadFile(Path.Combine(apppatch,"ICSharpCode.TextEditor.dll")))); + //dgvModules.Items.Add(MakeItem(Assembly.LoadFile(Path.Combine(apppatch,"Debugger.Core.dll")))); + //dgvModules.Items.Add(MakeItem(Assembly.LoadFile(Path.Combine(apppatch,"WeifenLuo.WinFormsUI.Docking.dll")))); + ActiveControl = button1; + } + catch { - Assembly a = Assembly.GetAssembly(comp.GetType()); - dgvModules.Items.Add(MakeItem("Core", "PascalABCCompiler.Core", a.GetName().Version.ToString(), "Copyright © 2005-2022 by Ivan Bondarev, Stanislav Mikhalkovich")); - foreach (PascalABCCompiler.Parsers.IParser parser in comp.ParsersController.Parsers) - dgvModules.Items.Add(MakeItem("Parser",parser.Name, parser.Version, parser.Copyright)); - foreach (PascalABCCompiler.SemanticTreeConverters.ISemanticTreeConverter conv in comp.SemanticTreeConvertersController.SemanticTreeConverters) - dgvModules.Items.Add(MakeItem("Converter", conv.Name, conv.Version, conv.Copyright)); - foreach (VisualPascalABCPlugins.IVisualPascalABCPlugin plugin in vec.PluginsController.Plugins) - dgvModules.Items.Add(MakeItem("Plugin",plugin.Name, plugin.Version, plugin.Copyright)); } - - dgvModules.Items.Add(MakeItem(Assembly.LoadFile(Path.Combine(apppatch,"ICSharpCode.TextEditor.dll")))); - dgvModules.Items.Add(MakeItem(Assembly.LoadFile(Path.Combine(apppatch,"Debugger.Core.dll")))); - dgvModules.Items.Add(MakeItem(Assembly.LoadFile(Path.Combine(apppatch,"WeifenLuo.WinFormsUI.Docking.dll")))); - ActiveControl = button1; /*lbComponents.Items.Clear(); PascalABCCompiler.Compiler comp = (Owner as Form1).VisualEnvironmentCompiler.Compiler; if (comp != null)