Splash form has custom shape (needs last msegui commits). (2)

Author: fredvs

readme.md

@@ -19,11 +19,11 @@ and arm-aarch64 Rpi 32/64. =\> https://github.com/fredvs/strumpract/releases/
 
 StrumPract was compiled with: FPC 3.2.2: http://www.freepascal.org
 
-Graphic widgetset: MSEgui 5.10.4: https://github.com/mse-org/mseide-msegui
+Graphic widgetset: MSEgui 5.12.0: https://github.com/mse-org/mseide-msegui
 
 Graphic library: BGRABitmap v11.5.8: https://github.com/bgrabitmap/bgrabitmap
 
-Audio library: uos 1.8.0: https://github.com/fredvs/uos
+Audio library: uos 2.0.0: https://github.com/fredvs/uos
 
 
 DJ Wave Layout Gold Style:

src/strumpract.pas

@@ -11,9 +11,7 @@
  {$PACKRECORDS C}
 
 uses
-  mormot.core.fpcx64mm,
-
- {$ifdef FPC} {$ifdef unix} cthreads, BaseUnix, {$endif} {$endif}
+  {$ifdef FPC} {$ifdef unix} cthreads, BaseUnix, {$endif} {$endif}
 
   Classes, 
   Math,
@@ -30,8 +28,6 @@
 ordir: string;
 {$endif}
 
-me : QWord;
-
 begin
 {$ifdef unix}  
   ordir := filepath(statdirname);
@@ -44,10 +40,6 @@
   FpDup2(fs.Handle, StdErrorHandle);   
 {$endif}
 
- // mormot.core.fpcx64mm._GetMem(me);
-  
-  // main.RoundMath(0.5);
-
   SetExceptionMask(GetExceptionMask + [exZeroDivide] + [exInvalidOp] +
     [exDenormalized] + [exOverflow] + [exUnderflow] + [exPrecision]);