Added in Config-form: Use libraries from system vs libraries from Str…

…umpract release. (3)
fredvs · Apr 18, 2022 · 6147102 · 6147102
1 parent 42c450d
commit 6147102
Show file tree

Hide file tree

Showing 3 changed files with 39 additions and 265 deletions.
diff --git a/src/config.pas b/src/config.pas
@@ -346,6 +346,14 @@ procedure tconfigfo.onchangelib(const sender: TObject);
     songplayer2fo.checksoundtouch(Sender);
     recorderfo.oneventloop(sender);
  end;
+
+ if allok then
+ begin
+  if syslib.value then
+  showmessage('Libraries from system are loaded.') else
+  showmessage('Libraries from StrumPract are loaded.');
+ end;
+
 end;  
 
 end.

diff --git a/src/drums.pas b/src/drums.pas
@@ -1006,6 +1006,7 @@ procedure tdrumsfo.loadsoundlib(Const Sender: TObject);
  lib1, lib2, lib3, lib4: string;
 
 begin
+  allok := false;
  ordir := msestring(IncludeTrailingBackslash(ExtractFilePath(ParamStr(0))));
 
     {$IFDEF Windows}