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

LightPT - правка в выводе ошибки

Browse source 
Гиперссылки во всех окнах вывода
This commit is contained in:
Mikhalkovich Stanislav 2023-08-27 19:41:03 +03:00
parent 3050041a73
commit 2dab40dcd9
10 changed files with 28 additions and 10 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 = "3343";
public const string Revision = "3346";
public const string MainVersion = Major + "." + Minor;
public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

4
Configuration/Version.defs
View file

@ -1,4 +1,4 @@
%MINOR%=9
%REVISION%=3343
%COREVERSION%=0
%REVISION%=3346
%MINOR%=9
%MAJOR%=3

4
InstallerSamples/CheckedTasks/LightPT/УрокМассивы/00_Введение.pas Normal file
View file

@ -0,0 +1,4 @@
// Запустите программу
begin
end.

4
InstallerSamples/CheckedTasks/LightPT/УрокМассивы/Tasks.pas
View file

@ -11,6 +11,10 @@ begin
TasksArr.CheckTaskT(name)
else
case name of
'Введение': begin
ColoredMessage('Данный урок посвящён массивам в PascalABC.NET');
ColoredMessage('Ознакомьтесь предварительно с теорией: https://pascalabcnet.github.io/school_arrays.html',MsgColorGray);
end;
'HW2': begin
ClearOutputListFromSpaces;
ConvertStringsToNumbersInOutputList;

2
Release/pabcversion.txt
View file

@ -1 +1 @@
3.9.0.3343
3.9.0.3346

2
ReleaseGenerators/PascalABCNET_version.nsh
View file

@ -1 +1 @@
!define VERSION '3.9.0.3343'
!define VERSION '3.9.0.3346'

8
TestSuite/CompilationSamples/LightPT.pas
View file

@ -2853,8 +2853,12 @@ begin
begin
foreach var x in e.InnerExceptions do
if x is HTTPRequestException then
ColoredMessage(x.InnerException?.Message??'',MsgColorGray)
else ColoredMessage(x.Message,MsgColorGray);
begin
if x.InnerException<>nil then
ColoredMessage('Ошибка сервера: '+x.InnerException.Message,MsgColorGray)
else ColoredMessage('Неизвестная ошибка сервера',MsgColorGray)
end
else ColoredMessage('Ошибка сервера: '+x.Message,MsgColorGray);
end;
on e: Exception do
ColoredMessage(e.Message,MsgColorGray);

2
VisualPascalABCNET/DockContent/OutputWindowForm.cs
View file

@ -22,7 +22,7 @@ namespace VisualPascalABC
outputTextBox.LinkClicked += outputTextBox_LinkClicked;
}
private void outputTextBox_LinkClicked(object sender, LinkClickedEventArgs e)
public void outputTextBox_LinkClicked(object sender, LinkClickedEventArgs e)
{
try
{

2
VisualPascalABCNET/Workbench/WindowOperations.cs
View file

@ -313,6 +313,8 @@ namespace VisualPascalABC
res.BackColor = orig.BackColor;
res.Parent = orig.Parent;
res.ContextMenuStrip = orig.ContextMenuStrip;
res.DetectUrls = true;
res.LinkClicked += OutputWindow.outputTextBox_LinkClicked;
return res;
}

8
bin/Lib/LightPT.pas
View file

@ -2853,8 +2853,12 @@ begin
begin
foreach var x in e.InnerExceptions do
if x is HTTPRequestException then
ColoredMessage(x.InnerException?.Message??'',MsgColorGray)
else ColoredMessage(x.Message,MsgColorGray);
begin
if x.InnerException<>nil then
ColoredMessage('Ошибка сервера: '+x.InnerException.Message,MsgColorGray)
else ColoredMessage('Неизвестная ошибка сервера',MsgColorGray)
end
else ColoredMessage('Ошибка сервера: '+x.Message,MsgColorGray);
end;
on e: Exception do
ColoredMessage(e.Message,MsgColorGray);