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

Гиперссылки во всех окнах вывода

Configuration/GlobalAssemblyInfo.cs

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

Configuration/Version.defs

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

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

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

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

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

Release/pabcversion.txt

@@ -1 +1 @@
-3.9.0.3343
+3.9.0.3346

ReleaseGenerators/PascalABCNET_version.nsh

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

TestSuite/CompilationSamples/LightPT.pas

@@ -2853,8 +2853,12 @@ begin
     begin
       foreach var x in e.InnerExceptions do
         if x is HTTPRequestException then
-          ColoredMessage(x.InnerException?.Message??'',MsgColorGray)
+        begin
-        else ColoredMessage(x.Message,MsgColorGray); 
+          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);

VisualPascalABCNET/DockContent/OutputWindowForm.cs

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

VisualPascalABCNET/Workbench/WindowOperations.cs

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

bin/Lib/LightPT.pas

@@ -2853,8 +2853,12 @@ begin
     begin
       foreach var x in e.InnerExceptions do
         if x is HTTPRequestException then
-          ColoredMessage(x.InnerException?.Message??'',MsgColorGray)
+        begin
-        else ColoredMessage(x.Message,MsgColorGray); 
+          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);