Fixed Input-volume in Commander form. (4)

src/commander.mfm

@@ -1519,8 +1519,8 @@ object commanderfo: tcommanderfo
       face.template = mainfo.tfaceorange
       taborder = 25
       visible = False
-      bounds_x = 50
-      bounds_y = 94
+      bounds_x = 45
+      bounds_y = 61
       bounds_cx = 221
       bounds_cy = 36
       font.name = 'stf_default'

src/commander_mfm.pas

@@ -2057,8 +2057,8 @@ implementation
   114,111,112,115,11,0,13,102,97,99,101,46,116,101,109,112,108,97,116,101,
   7,18,109,97,105,110,102,111,46,116,102,97,99,101,111,114,97,110,103,101,
   8,116,97,98,111,114,100,101,114,2,25,7,118,105,115,105,98,108,101,8,
-  8,98,111,117,110,100,115,95,120,2,50,8,98,111,117,110,100,115,95,121,
-  2,94,9,98,111,117,110,100,115,95,99,120,3,221,0,9,98,111,117,110,
+  8,98,111,117,110,100,115,95,120,2,45,8,98,111,117,110,100,115,95,121,
+  2,61,9,98,111,117,110,100,115,95,99,120,3,221,0,9,98,111,117,110,
   100,115,95,99,121,2,36,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,0,0,6,116,108,97,98,101,108,9,104,105,110,

src/recorder.mfm

@@ -33,7 +33,7 @@ object recorderfo: trecorderfo
   dragdock.facetab = mainfo.tfacebutgray
   dragdock.faceactivetab = tfacereclight
   dragdock.caption = ' Rec '
-  dragdock.optionsdock = [od_savepos, od_savezorder, od_canmove, od_canfloat, od_candock, od_fixsize, od_captionhint, od_childicons]
+  dragdock.optionsdock = [od_savepos, od_savezorder, od_canmove, od_canfloat, od_candock, od_fixsize, od_captionhint]
   font.name = 'stf_default'
   font.localprops = []
   options = [fo_savepos, fo_savezorder, fo_savestate]
@@ -124,6 +124,7 @@ object recorderfo: trecorderfo
     000000000000000000000000000000000000000000000000
   }
   oncreate = onplayercreate
+  oncreated = oncreated
   ondestroy = ondest
   onmouseevent = onmousewindow
   onshow = visiblechangeev
@@ -289,6 +290,7 @@ object recorderfo: trecorderfo
       frame.buttonface.localprops = [fal_fadirection]
       frame.buttonface.template = tfacerecorder
       frame.buttonframe.optionsskin = [fso_flat]
+      frame.buttonframe.colorclient = -2147483645
       frame.buttonframe.localprops = [frl_optionsskin]
       frame.buttonframe.localprops1 = []
       frame.buttonsize = 30
@@ -328,6 +330,7 @@ object recorderfo: trecorderfo
       frame.buttonface.localprops = [fal_fadirection]
       frame.buttonface.template = tfacerecorder
       frame.buttonframe.optionsskin = [fso_flat]
+      frame.buttonframe.colorclient = -2147483645
       frame.buttonframe.localprops = [frl_optionsskin]
       frame.buttonframe.localprops1 = []
       frame.buttonsize = 30
@@ -647,7 +650,7 @@ object recorderfo: trecorderfo
       statfile = mainfo.tstatfile1
       controller.filter = '"*.mp3" "*.MP3" "*.wav" "*.WAV" "*.ogg" "*.OGG" "*.flac" "*.FLAC"'
       controller.filterlist.data = (
-       (
+        (
           'MS wav'
           '"*.wav" "*.WAV"'
         )

src/recorder.pas

@@ -84,6 +84,7 @@   trecorderfo = class(tdockform)
     procedure afterev(const Sender: tcustomscrollbar; const akind: scrolleventty; const avalue: real);
     procedure onsetvalvol(const Sender: TObject; var avalue: realty; var accept: boolean);
     procedure ontextedit(const Sender: tcustomedit; var atext: msestring);
+   procedure oncreated(const sender: TObject);
   end;
 
  equalizer_band_type = record
@@ -1032,5 +1033,15 @@ procedure trecorderfo.ontextedit(const Sender: tcustomedit; var atext: msestring
   end;
 end;
 
+procedure trecorderfo.oncreated(const sender: TObject);
+begin
+if devin < 0 then
+  begin
+  tbutton3.enabled := false;
+  btnStart.enabled := false;
+  btinfos.enabled := false;
+  end;
+end;
+
 
 end.