Исправлена ошибка с окном About в Линукс-версии

В Модуле Исполнители написана директива {$savepcu false}
This commit is contained in:
Mikhalkovich Stanislav 2022-11-19 21:00:11 +03:00
parent d6dce4769e
commit 9b673bba2f
6 changed files with 35 additions and 27 deletions

View file

@ -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;

View file

@ -1,4 +1,4 @@
%COREVERSION%=3
%REVISION%=3204
%MINOR%=8
%REVISION%=3205
%COREVERSION%=3
%MAJOR%=3

View file

@ -2,6 +2,8 @@
/// Описывает ряд Исполнителей, которые могут выполнять команды
unit Исполнители;
{$savepcu false}
type
///!#
целое = integer;

View file

@ -1 +1 @@
3.8.3.3204
3.8.3.3205

View file

@ -1 +1 @@
!define VERSION '3.8.3.3204'
!define VERSION '3.8.3.3205'

View file

@ -119,7 +119,8 @@ namespace VisualPascalABC
private void AboutBox_Shown(object sender, EventArgs e)
{
try
{
lVersion.Text = string.Format("{0}, сборка {1} ({2})", PascalABCCompiler.Compiler.ShortVersion, RevisionClass.Revision, PascalABCCompiler.Compiler.VersionDateTime.ToShortDateString());
dgvModules.Items.Clear();
@ -140,10 +141,15 @@ namespace VisualPascalABC
}
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"))));
//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
{
}
/*lbComponents.Items.Clear();
PascalABCCompiler.Compiler comp = (Owner as Form1).VisualEnvironmentCompiler.Compiler;
if (comp != null)