- menus disabled by default

- cosmetic changes

modules/gui/win32/disc.cpp

@@ -62,22 +62,12 @@ void __fastcall TDiscDlg::ButtonCancelClick( TObject *Sender )
 //---------------------------------------------------------------------------
 void __fastcall TDiscDlg::ButtonOkClick( TObject *Sender )
 {
-    AnsiString  Device, Source, Method, Title, Chapter;
+    AnsiString  Device, Source;
 
     Hide();
 
     Device = EditDevice->Text;
 
-    /* Check which method was activated */
-    if( RadioGroupType->ItemIndex == 0 )
-        Method = "dvdold";
-    else
-        Method = "vcd";
-
-    /* Select title and chapter */
-    Title.sprintf( "%d", SpinEditTitle->Value );
-    Chapter.sprintf( "%d", SpinEditChapter->Value );
-
     /* Build source name and add it to playlist */
     if ( CheckBoxMenus->Checked && RadioGroupType->ItemIndex == 0 )
     {
@@ -85,8 +75,21 @@ void __fastcall TDiscDlg::ButtonOkClick( TObject *Sender )
     }
     else
     {
+        AnsiString Method, Title, Chapter;
+        /* Select title and chapter */
+        Title.sprintf( "%d", SpinEditTitle->Value );
+        Chapter.sprintf( "%d", SpinEditChapter->Value );
+
+        /* Select access method */
+        if( RadioGroupType->ItemIndex == 0 )
+            Method = "dvdold";
+        else
+            Method = "vcd";
+
+        /* build the MRL */
         Source = Method + "://" + Device + "@" + Title + "," + Chapter;
     }
+    msg_Dbg (p_intf , Source.c_str());
 
     p_intf->p_sys->p_playwin->Add( Source, PLAYLIST_APPEND
             | ( p_intf->p_sys->b_play_when_adding ? PLAYLIST_GO : 0 ),

modules/gui/win32/disc.dfm

@@ -47,7 +47,6 @@ object DiscDlg: TDiscDlg
       Width = 23
       Height = 13
       Caption = '&Title:'
-      Enabled = False
     end
     object LabelChapter: TLabel
       Tag = 3
@@ -56,7 +55,6 @@ object DiscDlg: TDiscDlg
       Width = 40
       Height = 13
       Caption = '&Chapter:'
-      Enabled = False
     end
     object SpinEditTitle: TCSpinEdit
       Left = 56
@@ -64,8 +62,6 @@ object DiscDlg: TDiscDlg
       Width = 73
       Height = 22
       TabStop = True
-      Color = clBtnFace
-      Enabled = False
       Font.Charset = DEFAULT_CHARSET
       Font.Color = clWindowText
       Font.Height = -11
@@ -84,8 +80,6 @@ object DiscDlg: TDiscDlg
       Width = 73
       Height = 22
       TabStop = True
-      Color = clBtnFace
-      Enabled = False
       MaxValue = 65535
       MinValue = 1
       ParentColor = False
@@ -98,8 +92,6 @@ object DiscDlg: TDiscDlg
       Width = 97
       Height = 17
       Caption = '&Menus'
-      Checked = True
-      State = cbChecked
       TabOrder = 0
       OnClick = CheckBoxMenusClick
     end