videolan/vlc
1
Fork 0
mirror of https://code.videolan.org/videolan/vlc synced 2024-09-08 11:26:59 +02:00
Code Releases Activity

- menus disabled by default

Browse Source 
- cosmetic changes
This commit is contained in:
Boris Dorès 2003-01-23 17:18:45 +00:00
parent aeade697a0
commit bc03a97343
2 changed files with 14 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
modules/gui/win32/disc.cpp
View File

@ -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 ),

8
modules/gui/win32/disc.dfm
View File

@ -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