Release 3.2.0.

src/errorform.mfm

@@ -19,8 +19,8 @@ object errorfo: terrorfo
   windowopacity = -Inf
   moduleclassname = 'tmseform'
   object tlabel1: tlabel
-    bounds_x = 85
-    bounds_y = 24
+    bounds_x = 89
+    bounds_y = 49
     bounds_cx = 229
     bounds_cy = 19
     caption = 'Some libraries did not load...'
@@ -31,14 +31,28 @@ object errorfo: terrorfo
   end
   object tlabel2: tlabel
     taborder = 1
-    bounds_x = 81
-    bounds_y = 56
+    bounds_x = 80
+    bounds_y = 74
     bounds_cx = 241
     bounds_cy = 19
     caption = 'The application will terminate.'
     font.height = 16
     font.name = 'stf_default'
-    font.localprops = [flp_height]
+    font.localprops = [flp_color, flp_height]
     reffontheight = 19
   end
+  object tlabel3: tlabel
+    taborder = 2
+    bounds_x = 62
+    bounds_y = 14
+    bounds_cx = 246
+    bounds_cy = 22
+    caption = '*** StrumPract Warning ***'
+    font.color = -1610612729
+    font.height = 18
+    font.style = [fs_italic]
+    font.name = 'stf_default'
+    font.localprops = [flp_color, flp_style, flp_height]
+    reffontheight = 22
+  end
 end

src/errorform.pas

@@ -9,6 +9,7 @@ interface
  terrorfo = class(tmseform)
    tlabel1: tlabel;
    tlabel2: tlabel;
+   tlabel3: tlabel;
  end;
 var
  errorfo: terrorfo;

src/errorform_mfm.pas

@@ -8,8 +8,8 @@ implementation
  mseclasses,errorform;
 
 const
- objdata: record size: integer; data: array[0..695] of byte end =
-      (size: 696; data: (
+ objdata: record size: integer; data: array[0..957] of byte end =
+      (size: 958; data: (
   84,80,70,48,8,116,101,114,114,111,114,102,111,7,101,114,114,111,114,102,
   111,8,98,111,117,110,100,115,95,120,3,226,1,8,98,111,117,110,100,115,
   95,121,3,26,1,9,98,111,117,110,100,115,95,99,120,3,134,1,9,98,
@@ -26,8 +26,8 @@ implementation
   119,105,110,100,111,119,111,112,97,99,105,116,121,5,0,0,0,0,0,0,
   0,128,255,255,15,109,111,100,117,108,101,99,108,97,115,115,110,97,109,101,
   6,8,116,109,115,101,102,111,114,109,0,6,116,108,97,98,101,108,7,116,
-  108,97,98,101,108,49,8,98,111,117,110,100,115,95,120,2,85,8,98,111,
-  117,110,100,115,95,121,2,24,9,98,111,117,110,100,115,95,99,120,3,229,
+  108,97,98,101,108,49,8,98,111,117,110,100,115,95,120,2,89,8,98,111,
+  117,110,100,115,95,121,2,49,9,98,111,117,110,100,115,95,99,120,3,229,
   0,9,98,111,117,110,100,115,95,99,121,2,19,7,99,97,112,116,105,111,
   110,6,30,83,111,109,101,32,108,105,98,114,97,114,105,101,115,32,100,105,
   100,32,110,111,116,32,108,111,97,100,46,46,46,11,102,111,110,116,46,104,
@@ -36,15 +36,28 @@ implementation
   108,112,114,111,112,115,11,10,102,108,112,95,104,101,105,103,104,116,0,13,
   114,101,102,102,111,110,116,104,101,105,103,104,116,2,19,0,0,6,116,108,
   97,98,101,108,7,116,108,97,98,101,108,50,8,116,97,98,111,114,100,101,
-  114,2,1,8,98,111,117,110,100,115,95,120,2,81,8,98,111,117,110,100,
-  115,95,121,2,56,9,98,111,117,110,100,115,95,99,120,3,241,0,9,98,
+  114,2,1,8,98,111,117,110,100,115,95,120,2,80,8,98,111,117,110,100,
+  115,95,121,2,74,9,98,111,117,110,100,115,95,99,120,3,241,0,9,98,
   111,117,110,100,115,95,99,121,2,19,7,99,97,112,116,105,111,110,6,31,
   84,104,101,32,97,112,112,108,105,99,97,116,105,111,110,32,119,105,108,108,
   32,116,101,114,109,105,110,97,116,101,46,11,102,111,110,116,46,104,101,105,
   103,104,116,2,16,9,102,111,110,116,46,110,97,109,101,6,11,115,116,102,
   95,100,101,102,97,117,108,116,15,102,111,110,116,46,108,111,99,97,108,112,
-  114,111,112,115,11,10,102,108,112,95,104,101,105,103,104,116,0,13,114,101,
-  102,102,111,110,116,104,101,105,103,104,116,2,19,0,0,0)
+  114,111,112,115,11,9,102,108,112,95,99,111,108,111,114,10,102,108,112,95,
+  104,101,105,103,104,116,0,13,114,101,102,102,111,110,116,104,101,105,103,104,
+  116,2,19,0,0,6,116,108,97,98,101,108,7,116,108,97,98,101,108,51,
+  8,116,97,98,111,114,100,101,114,2,2,8,98,111,117,110,100,115,95,120,
+  2,62,8,98,111,117,110,100,115,95,121,2,14,9,98,111,117,110,100,115,
+  95,99,120,3,246,0,9,98,111,117,110,100,115,95,99,121,2,22,7,99,
+  97,112,116,105,111,110,6,26,42,42,42,32,83,116,114,117,109,80,114,97,
+  99,116,32,87,97,114,110,105,110,103,32,42,42,42,10,102,111,110,116,46,
+  99,111,108,111,114,4,7,0,0,160,11,102,111,110,116,46,104,101,105,103,
+  104,116,2,18,10,102,111,110,116,46,115,116,121,108,101,11,9,102,115,95,
+  105,116,97,108,105,99,0,9,102,111,110,116,46,110,97,109,101,6,11,115,
+  116,102,95,100,101,102,97,117,108,116,15,102,111,110,116,46,108,111,99,97,
+  108,112,114,111,112,115,11,9,102,108,112,95,99,111,108,111,114,9,102,108,
+  112,95,115,116,121,108,101,10,102,108,112,95,104,101,105,103,104,116,0,13,
+  114,101,102,102,111,110,116,104,101,105,103,104,116,2,22,0,0,0)
  );
 
 initialization

src/main.pas

@@ -129,7 +129,7 @@   tmainfo = class(tmainform)
   end;
 
 const
-  versiontext = '3.0.0';
+  versiontext = '3.2.0';
   emptyheight = 40;
   drumsfoheight = 274;
   filelistfoheight = 128;
@@ -6773,16 +6773,17 @@ procedure tmainfo.ontimertransp(const Sender: TObject);
 
    if allok   = False then
 begin
-windowopacity := 1;
+ ttimer1.Enabled := False;
+ windowopacity := 0;
 application.processmessages;
 application.createform(terrorfo, errorfo);
 errorfo.show;
  application.processmessages;
 sleep(2000);
 //application.processmessages;
 application.terminate;
-end;
-
+end else
+ begin 
   windowopacity := windowopacity + 0.1;
   //{
   dockpanel1fo.windowopacity := dockpanel1fo.windowopacity + 0.1;
@@ -6816,6 +6817,8 @@   recorderfo.windowopacity     := recorderfo.windowopacity + 0.1;
     ttimer1.Enabled := False;
 
    end; 
+
+  end; 
 
 end;