Fixed Input-volume in Commander form. (3)

fredvs · Dec 26, 2018 · cbe6b5d · cbe6b5d
1 parent 3528b98
commit cbe6b5d
Show file tree

Hide file tree

Showing 5 changed files with 344 additions and 337 deletions.
diff --git a/src/config.mfm b/src/config.mfm
@@ -84,7 +84,6 @@ object configfo: tconfigfo
     000000000000000000000000000000000000000000000000
   }
   windowopacity = -Inf
-  oncreated = confcreated
   moduleclassname = 'tmseform'
   object tgroupbox1: tgroupbox
     frame.caption = 'Latency ( -1 or < 0 ---> suggested latency )'

diff --git a/src/config.pas b/src/config.pas
@@ -24,7 +24,7 @@   tconfigfo = class(tmseform)
     procedure changelatplay(const Sender: TObject);
     procedure changelatdrums(const Sender: TObject);
     procedure changelatrec(const Sender: TObject);
-   procedure confcreated(const sender: TObject);
+
   end;
 
 var
@@ -51,24 +51,5 @@ procedure tconfigfo.changelatrec(const Sender: TObject);
   /// if latrec.value < 0 then latrec.value := -1;
 end;
 
-procedure tconfigfo.confcreated(const sender: TObject);
-begin
-devin := UOSDefaultDeviceIN;
-devout := UOSDefaultDeviceOUT;
-
-// devin := -1;
-
-if devin > -1 then
-defdevin.caption := 'Default Device IN = ' + IntToStr(devin)
-else defdevin.caption := 'No Default Device IN';
-
-if devout > -1 then
-defdevout.caption := 'Default Device OUT = ' + IntToStr(devout)
-else defdevout.caption := 'No Default Device OUT';
-
-
-
-
-end;
 
 end.