Commit bc03a973 authored by Boris Dorès's avatar Boris Dorès
Browse files

- menus disabled by default

- cosmetic changes
parent aeade697
......@@ -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 ),
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment