administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

DrawMan исправления падения при запуске

Browse source
This commit is contained in:
Mikhalkovich Stanislav 2024-05-08 23:44:49 +03:00
parent 6f4f3a8aa0
commit 38c4901787
9 changed files with 24 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Configuration/GlobalAssemblyInfo.cs
View file

@ -15,7 +15,7 @@ internal static class RevisionClass
public const string Major = "3";
public const string Minor = "9";
public const string Build = "0";
public const string Revision = "3478";
public const string Revision = "3479";
public const string MainVersion = Major + "." + Minor;
public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

4
Configuration/Version.defs
View file

@ -1,4 +1,4 @@
%COREVERSION%=0
%REVISION%=3478
%MINOR%=9
%REVISION%=3479
%COREVERSION%=0
%MAJOR%=3

2
Parsers/PascalABCParserNewSaushkin/ABCPascal.cs
View file

@ -2,7 +2,7 @@
// This CSharp output file generated by Gardens Point LEX
// Version: 1.1.3.301
// Machine: DESKTOP-G8V08V4
// DateTime: 07.05.2024 10:51:36
// DateTime: 08.05.2024 9:59:53
// UserName: ?????????
// GPLEX input file <ABCPascal.lex>
// GPLEX frame file <embedded resource>

2
Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs
View file

@ -2,7 +2,7 @@
// GPPG version 1.3.6
// Machine: DESKTOP-G8V08V4
// DateTime: 07.05.2024 10:51:37
// DateTime: 08.05.2024 9:59:54
// UserName: ?????????
// Input file <D:\PABC_Git\Parsers\PascalABCParserNewSaushkin\ABCPascal.y>

1
Parsers/PascalABCParserNewSaushkin/PABC.ymc
View file

@ -378,5 +378,6 @@ script=

2
Release/pabcversion.txt
View file

@ -1 +1 @@
3.9.0.3478
3.9.0.3479

2
ReleaseGenerators/PascalABCNET_version.nsh
View file

@ -1 +1 @@
!define VERSION '3.9.0.3478'
!define VERSION '3.9.0.3479'

10
TestSuite/CompilationSamples/DrawManField.pas
View file

@ -972,9 +972,15 @@ var __initialized := false;
procedure __InitModule;
begin
MainForm.Invoke(_HideInternal);
MainForm.Shown += (o,e)->
begin
MainForm.Hide;
BackColor := MainForm.BackColor;
end;
//MainForm.Invoke(_HideInternal); // было до 08.05.24
//MainForm.Hide;
MainForm.Invoke(_InternalAssignBackColor);
//MainForm.Invoke(_InternalAssignBackColor);
//BackColor := MainForm.BackColor;
LabelReadyColor := RGB(95,109,154);

10
bin/Lib/DrawManField.pas
View file

@ -972,9 +972,15 @@ var __initialized := false;
procedure __InitModule;
begin
MainForm.Invoke(_HideInternal);
MainForm.Shown += (o,e)->
begin
MainForm.Hide;
BackColor := MainForm.BackColor;
end;
//MainForm.Invoke(_HideInternal); // было до 08.05.24
//MainForm.Hide;
MainForm.Invoke(_InternalAssignBackColor);
//MainForm.Invoke(_InternalAssignBackColor);
//BackColor := MainForm.BackColor;
LabelReadyColor := RGB(95,109,154);