]> git.sesse.net Git - vlc/blobdiff - modules/gui/win32/mainframe.cpp
* compilation fix
[vlc] / modules / gui / win32 / mainframe.cpp
index ef3b286219183a63761e0628b95bb640c9494240..4e841dd8b2234356e60a9c93f27f6bd34634d648 100644 (file)
-/*****************************************************************************
- * mainframe.cpp: Win32 interface plugin for vlc
- *****************************************************************************
- * Copyright (C) 2002 VideoLAN
- *
- * Authors: Olivier Teulière <ipkiss@via.ecp.fr>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111, USA.
- *****************************************************************************/
-
-#include <vcl.h>
-#pragma hdrstop
-
-#include <vlc/vlc.h>
-#include <vlc/intf.h>
-#include <vlc/vout.h>
-
-#include "dragdrop.h"
-#include "mainframe.h"
-#include "menu.h"
-#include "disc.h"
-#include "network.h"
-#include "about.h"
-#include "preferences.h"
-#include "messages.h"
-#include "playlist.h"
-#include "sout.h"
-#include "subtitles.h"
-#include "misc.h"
-#include "win32_common.h"
-
-#include "netutils.h"
-
-//---------------------------------------------------------------------------
-#pragma link "CSPIN"
-#pragma resource "*.dfm"
-
-extern int Win32Manage( intf_thread_t *p_intf );
-
-//---------------------------------------------------------------------------
-__fastcall TMainFrameDlg::TMainFrameDlg(
-    TComponent* Owner, intf_thread_t *_p_intf ) : TForm( Owner )
-{
-    p_intf = _p_intf;
-
-    Application->ShowHint = true;
-    Application->OnHint = DisplayHint;
-
-    TimerManage->Interval = INTF_IDLE_SLEEP / 1000;
-
-    TrackBar->Max = SLIDER_MAX_VALUE;
-
-    /* default height and caption */
-    ClientHeight = 37 + ToolBar->Height;
-    Caption = VOUT_TITLE " (Win32 interface)";
-
-    StringListPref = new TStringList();
-
-    Translate( this );
-
-    /* drag and drop stuff */
-
-    /* initialize the OLE library */
-    OleInitialize( NULL );
-    /* TDropTarget will send the WM_OLEDROP message to the form */
-    lpDropTarget = (LPDROPTARGET)new TDropTarget( this->Handle );
-    CoLockObjectExternal( lpDropTarget, true, true );
-    /* register the form as a drop target */
-    RegisterDragDrop( this->Handle, lpDropTarget );
-}
-//---------------------------------------------------------------------------
-__fastcall TMainFrameDlg::~TMainFrameDlg()
-{
-    delete StringListPref;
-}
-//---------------------------------------------------------------------------
-
-
-/*****************************************************************************
- * Event handlers
- ****************************************************************************/
-void __fastcall TMainFrameDlg::TimerManageTimer( TObject *Sender )
-{
-    Win32Manage( p_intf );
-}
-//---------------------------------------------------------------------------
-void __fastcall TMainFrameDlg::DisplayHint( TObject *Sender )
-{
-    StatusBar->SimpleText = GetLongHint( Application->Hint );
-}
-//---------------------------------------------------------------------------
-void __fastcall TMainFrameDlg::TrackBarChange( TObject *Sender )
-{
-    /* This function displays the current date related to the position in
-     * the stream. It is called whenever the slider changes its value.
-     * The lock has to be taken before the function is called */
-
-    if( p_intf->p_sys->p_input != NULL )
-    {
-#define p_area p_intf->p_sys->p_input->stream.p_selected_area
-        char psz_time[ OFFSETTOTIME_MAX_SIZE ];
-        off_t Value = TrackBar->Position;
-
-        GroupBoxSlider->Caption =
-                input_OffsetToTime( p_intf->p_sys->p_input, psz_time,
-                        ( p_area->i_size * Value ) / (off_t)SLIDER_MAX_VALUE );
-#undef p_area
-     }
-}
-//---------------------------------------------------------------------------
-void __fastcall TMainFrameDlg::FormClose( TObject *Sender,
-      TCloseAction &Action )
-{
-    vlc_mutex_lock( &p_intf->change_lock );
-    p_intf->p_vlc->b_die = VLC_TRUE;
-    vlc_mutex_unlock( &p_intf->change_lock );
-
-    /* remove the form from the list of drop targets */
-    RevokeDragDrop( this->Handle );
-    lpDropTarget->Release();
-    CoLockObjectExternal( lpDropTarget, false, true );
-
-    /* uninitialize the OLE library */
-    OleUninitialize();
-
-    /* we don't destroy the form immediatly */
-    Action = caHide;
-}
-//---------------------------------------------------------------------------
-
-
-/*****************************************************************************
- * Main callbacks
- ****************************************************************************/
-void __fastcall TMainFrameDlg::OpenFileActionExecute( TObject *Sender )
-{
-    if( OpenDialog1->Execute() )
-    {
-        /* add the new file to the interface playlist */
-        for( int i = 0; i < OpenDialog1->Files->Count; i++ )
-            p_intf->p_sys->p_playwin->Add( OpenDialog1->Files->Strings[i],
-                    PLAYLIST_APPEND
-                    | ( p_intf->p_sys->b_play_when_adding ? PLAYLIST_GO : 0 ),
-                    PLAYLIST_END );
-    };
-}
-//---------------------------------------------------------------------------
-void __fastcall TMainFrameDlg::OpenDiscActionExecute( TObject *Sender )
-{
-    TDiscDlg *p_disc = p_intf->p_sys->p_disc;
-    if( p_disc == NULL )
-    {
-        p_disc = new TDiscDlg( this, p_intf );
-        p_intf->p_sys->p_disc = p_disc;
-    }
-    p_disc->Show();
-}
-//---------------------------------------------------------------------------
-void __fastcall TMainFrameDlg::NetworkStreamActionExecute( TObject *Sender )
-{
-    TNetworkDlg *p_network = p_intf->p_sys->p_network;
-    if( p_network == NULL )
-    {
-        p_network = new TNetworkDlg( this, p_intf );
-        p_intf->p_sys->p_network = p_network;
-    }
-    p_network->Show();
-}
-//---------------------------------------------------------------------------
-void __fastcall TMainFrameDlg::AddSubtitlesActionsExecute( TObject *Sender )
-{
-    TSubtitlesDlg *p_subtitles = new TSubtitlesDlg( this, p_intf );
-    p_subtitles->ShowModal();
-    delete p_subtitles;
-}
-//---------------------------------------------------------------------------
-void __fastcall TMainFrameDlg::StreamOutputActionExecute( TObject *Sender )
-{
-    TSoutDlg *p_sout = new TSoutDlg( this, p_intf );
-    p_sout->ShowModal();
-    delete p_sout;
-}
-//---------------------------------------------------------------------------
-void __fastcall TMainFrameDlg::ExitActionExecute( TObject *Sender )
-{
-    Close();
-}
-//---------------------------------------------------------------------------
-void __fastcall TMainFrameDlg::FullscreenActionExecute( TObject *Sender )
-{
-    vout_thread_t *p_vout;
-
-    p_vout = (vout_thread_t *)vlc_object_find( p_intf->p_sys->p_input,
-                                               VLC_OBJECT_VOUT, FIND_CHILD );
-    if( p_vout == NULL )
-    {
-        return;
-    }
-
-    p_vout->i_changes |= VOUT_FULLSCREEN_CHANGE;
-    vlc_object_release( p_vout );
-}
-//---------------------------------------------------------------------------
-void __fastcall TMainFrameDlg::OnTopActionExecute( TObject *Sender )
-{
-    vlc_object_t *p_vout;
-    p_vout = (vlc_object_t *)vlc_object_find( p_intf, VLC_OBJECT_VOUT,
-                                              FIND_ANYWHERE );
-    if( p_vout != NULL )
-    {
-        vlc_value_t val;
-        if( var_Get( p_vout, "directx-on-top", &val ) >= 0 )
-        {
-            val.b_bool = ! val.b_bool;
-            var_Set( p_vout, "directx-on-top", val );
-            MenuOnTop->Checked = val.b_bool;
-            PopupOnTop->Checked = val.b_bool;
-        }
-        vlc_object_release( p_vout );
-    }
-}
-//---------------------------------------------------------------------------
-void __fastcall TMainFrameDlg::PlaylistActionExecute( TObject *Sender )
-{
-    TPlaylistDlg *p_playwin = p_intf->p_sys->p_playwin;
-    if( p_playwin->Visible )
-    {
-        p_playwin->Hide();
-    }
-    else
-    {
-        p_playwin->UpdateGrid();
-        p_playwin->Show();
-    }
-}
-//---------------------------------------------------------------------------
-void __fastcall TMainFrameDlg::MessagesActionExecute( TObject *Sender )
-{
-     p_intf->p_sys->p_messages->Show();
-}
-//---------------------------------------------------------------------------
-void __fastcall TMainFrameDlg::PreferencesActionExecute( TObject *Sender )
-{
-    CreatePreferences( "main" );
-}
-//---------------------------------------------------------------------------
-void __fastcall TMainFrameDlg::AboutActionExecute( TObject *Sender )
-{
-    TAboutDlg *AboutDlg = new TAboutDlg( this, p_intf );
-    AboutDlg->ShowModal();
-    delete AboutDlg;
-}
-//---------------------------------------------------------------------------
-void __fastcall TMainFrameDlg::BackActionExecute( TObject *Sender )
-{
-    /* TODO */
-}
-//---------------------------------------------------------------------------
-void __fastcall TMainFrameDlg::PlayActionExecute( TObject *Sender )
-{
-    p_intf->p_sys->p_playwin->Play();
-}
-//---------------------------------------------------------------------------
-void __fastcall TMainFrameDlg::PauseActionExecute( TObject *Sender )
-{
-    p_intf->p_sys->p_playwin->Pause();
-}
-//---------------------------------------------------------------------------
-void __fastcall TMainFrameDlg::StopActionExecute( TObject *Sender )
-{
-    p_intf->p_sys->p_playwin->Stop();
-}
-//---------------------------------------------------------------------------
-void __fastcall TMainFrameDlg::SlowActionExecute( TObject *Sender )
-{
-    p_intf->p_sys->p_playwin->Slow();
-}
-//---------------------------------------------------------------------------
-void __fastcall TMainFrameDlg::FastActionExecute( TObject *Sender )
-{
-    p_intf->p_sys->p_playwin->Fast();
-}
-//---------------------------------------------------------------------------
-void __fastcall TMainFrameDlg::PreviousActionExecute(TObject *Sender)
-{
-    p_intf->p_sys->p_playwin->Previous();
-}
-//---------------------------------------------------------------------------
-void __fastcall TMainFrameDlg::NextActionExecute(TObject *Sender)
-{
-    p_intf->p_sys->p_playwin->Next();
-}
-//---------------------------------------------------------------------------
-void __fastcall TMainFrameDlg::EjectActionExecute( TObject *Sender )
-{
-    AnsiString Device = "";
-    char * psz_current;
-    playlist_t * p_playlist;
-
-    p_playlist = (playlist_t *)vlc_object_find( p_intf,
-                                       VLC_OBJECT_PLAYLIST, FIND_ANYWHERE );
-    if( p_playlist == NULL )
-    {
-        return;
-    }
-
-    /*
-     * Get the active input
-     * Determine whether we can eject a media, ie it's a VCD or DVD
-     * If it's neither a VCD nor a DVD, then return
-     */
-
-    vlc_mutex_lock( &p_playlist->object_lock );
-    psz_current = p_playlist->pp_items[ p_playlist->i_index ]->psz_name;
-
-    if( psz_current != NULL )
-    {
-        if( strncmp( psz_current, "dvd", 3 )
-            || strncmp( psz_current, "vcd", 3 ) )
-        {
-            /* Determine the device name by omitting the first 4 characters
-             * and keeping 3 characters */
-            Device = strdup( ( psz_current + 4 ) );
-            Device = Device.SubString( 1, 2 );
-        }
-    }
-
-    vlc_mutex_unlock( &p_playlist->object_lock );
-    vlc_object_release( p_playlist );
-
-    if( Device == "" )
-    {
-        return;
-    }
-
-    /* If there's a stream playing, we aren't allowed to eject ! */
-    if( p_intf->p_sys->p_input == NULL )
-    {
-        msg_Dbg( p_intf, "ejecting %s", Device.c_str() );
-
-        intf_Eject( p_intf, Device.c_str() );
-    }
-}
-//--------------------------------------------------------------------------
-void __fastcall TMainFrameDlg::VolumeUpActionExecute( TObject *Sender )
-{
-    aout_VolumeUp( p_intf, 1, NULL );
-}
-//---------------------------------------------------------------------------
-void __fastcall TMainFrameDlg::VolumeDownActionExecute( TObject *Sender )
-{
-    aout_VolumeDown( p_intf, 1, NULL );
-}
-//---------------------------------------------------------------------------
-void __fastcall TMainFrameDlg::MuteActionExecute( TObject *Sender )
-{
-    aout_VolumeMute( p_intf, NULL );
-//    MenuMute->Checked = ! MenuMute->Checked;
-}
-//---------------------------------------------------------------------------
-
-
-/*****************************************************************************
- * External drop handling
- *****************************************************************************/
-void __fastcall TMainFrameDlg::OnDrop( TMessage &Msg )
-{
-    /* find the number of files dropped */
-    int num_files = DragQueryFile( (HDROP)Msg.WParam, 0xFFFFFFFF,
-                                   (LPSTR)NULL, NULL );
-
-    /* append each file to the playlist */
-    for( int i = 0; i < num_files; i++ )
-    {
-        /* find the length of the filename */
-        int name_length = DragQueryFile( (HDROP)Msg.WParam, i, NULL, NULL ) + 1;
-
-        /* get the filename */
-        char *FileName = new char[name_length];
-        DragQueryFile( (HDROP)Msg.WParam, i, FileName, name_length );
-
-        /* add the new file to the playlist */
-        if( config_GetInt( p_intf, "enqueue" ) )
-        {
-            p_intf->p_sys->p_playwin->Add( FileName,
-                PLAYLIST_APPEND, PLAYLIST_END );
-        }
-        else
-        {
-            p_intf->p_sys->p_playwin->Add( FileName,
-                PLAYLIST_APPEND | PLAYLIST_GO, PLAYLIST_END );
-        }
-
-        delete[] FileName;
-    }
-
-    DragFinish( (HDROP)Msg.WParam );
-    Msg.Result = 0;
-}
-//--------------------------------------------------------------------------
-
-
-/*****************************************************************************
- * Menu and popup callbacks
- *****************************************************************************/
-void __fastcall TMainFrameDlg::MenuHideinterfaceClick( TObject *Sender )
-{
-     this->SendToBack();
-}
-//---------------------------------------------------------------------------
-void __fastcall TMainFrameDlg::PopupToggleInterfaceClick( TObject *Sender )
-{
-    this->BringToFront();
-}
-//---------------------------------------------------------------------------
-void __fastcall TMainFrameDlg::PopupCloseClick( TObject *Sender )
-{
-    /* We do nothing, we just need a click on a menu item
-     * to close the popup. Don't ask me why... */
-    return;
-}
-//---------------------------------------------------------------------------
-void __fastcall TMainFrameDlg::PopupJumpClick( TObject *Sender )
-{
-    /* TODO */
-}
-//---------------------------------------------------------------------------
-
-
-/*****************************************************************************
- * Callbacks for DVD/VCD navigation
- ****************************************************************************/
-void __fastcall TMainFrameDlg::PrevTitleActionExecute( TObject *Sender )
-{
-    input_area_t  * p_area;
-    int             i_id;
-
-    vlc_mutex_lock( &p_intf->p_sys->p_input->stream.stream_lock );
-    i_id = p_intf->p_sys->p_input->stream.p_selected_area->i_id - 1;
-
-    /* Disallow area 0 since it is used for video_ts.vob */
-    if( i_id > 0 )
-    {
-        p_area = p_intf->p_sys->p_input->stream.pp_areas[i_id];
-        vlc_mutex_unlock( &p_intf->p_sys->p_input->stream.stream_lock );
-
-        input_ChangeArea( p_intf->p_sys->p_input, p_area );
-        input_SetStatus( p_intf->p_sys->p_input, INPUT_STATUS_PLAY );
-
-        p_intf->p_sys->b_title_update = VLC_TRUE;
-        vlc_mutex_lock( &p_intf->p_sys->p_input->stream.stream_lock );
-        p_intf->p_sys->p_menus->SetupMenus();
-    }
-
-    vlc_mutex_unlock( &p_intf->p_sys->p_input->stream.stream_lock );
-}
-//---------------------------------------------------------------------------
-void __fastcall TMainFrameDlg::NextTitleActionExecute( TObject *Sender )
-{
-    input_area_t  * p_area;
-    unsigned int    i_id;
-
-    vlc_mutex_lock( &p_intf->p_sys->p_input->stream.stream_lock );
-    i_id = p_intf->p_sys->p_input->stream.p_selected_area->i_id + 1;
-
-    if( i_id < p_intf->p_sys->p_input->stream.i_area_nb )
-    {
-        p_area = p_intf->p_sys->p_input->stream.pp_areas[i_id];
-        vlc_mutex_unlock( &p_intf->p_sys->p_input->stream.stream_lock );
-
-        input_ChangeArea( p_intf->p_sys->p_input, p_area );
-        input_SetStatus( p_intf->p_sys->p_input, INPUT_STATUS_PLAY );
-
-        p_intf->p_sys->b_title_update = VLC_TRUE;
-        vlc_mutex_lock( &p_intf->p_sys->p_input->stream.stream_lock );
-        p_intf->p_sys->p_menus->SetupMenus();
-    }
-
-    vlc_mutex_unlock( &p_intf->p_sys->p_input->stream.stream_lock );
-}
-//---------------------------------------------------------------------------
-void __fastcall TMainFrameDlg::PrevChapterActionExecute( TObject *Sender )
-{
-    input_area_t  * p_area;
-
-    vlc_mutex_lock( &p_intf->p_sys->p_input->stream.stream_lock );
-    p_area = p_intf->p_sys->p_input->stream.p_selected_area;
-
-    if( p_area->i_part - 1 > 0 )
-    {
-        p_area->i_part--;
-        vlc_mutex_unlock( &p_intf->p_sys->p_input->stream.stream_lock );
-
-        input_ChangeArea( p_intf->p_sys->p_input, p_area );
-        input_SetStatus( p_intf->p_sys->p_input, INPUT_STATUS_PLAY );
-
-        p_intf->p_sys->b_chapter_update = VLC_TRUE;
-        vlc_mutex_lock( &p_intf->p_sys->p_input->stream.stream_lock );
-        p_intf->p_sys->p_menus->SetupMenus();
-    }
-
-    vlc_mutex_unlock( &p_intf->p_sys->p_input->stream.stream_lock );
-}
-//---------------------------------------------------------------------------
-void __fastcall TMainFrameDlg::NextChapterActionExecute( TObject *Sender )
-{
-    input_area_t  * p_area;
-
-    vlc_mutex_lock( &p_intf->p_sys->p_input->stream.stream_lock );
-    p_area = p_intf->p_sys->p_input->stream.p_selected_area;
-
-    if( p_area->i_part + 1 < p_area->i_part_nb )
-    {
-        p_area->i_part++;
-        vlc_mutex_unlock( &p_intf->p_sys->p_input->stream.stream_lock );
-
-        input_ChangeArea( p_intf->p_sys->p_input, p_area );
-        input_SetStatus( p_intf->p_sys->p_input, INPUT_STATUS_PLAY );
-
-        p_intf->p_sys->b_chapter_update = VLC_TRUE;
-        vlc_mutex_lock( &p_intf->p_sys->p_input->stream.stream_lock );
-        p_intf->p_sys->p_menus->SetupMenus();
-    }
-
-    vlc_mutex_unlock( &p_intf->p_sys->p_input->stream.stream_lock );
-}
-//---------------------------------------------------------------------------
-
-
-/*****************************************************************************
- * Callback for the 'go!' button
- ****************************************************************************/
-void __fastcall TMainFrameDlg::ButtonGoClick( TObject *Sender )
-{
-    int i_channel;
-
-    i_channel = SpinEditChannel->Value;
-    msg_Dbg( p_intf, "joining channel %d", i_channel );
-
-    vlc_mutex_lock( &p_intf->change_lock );
-    network_ChannelJoin( p_intf, i_channel );
-    vlc_mutex_unlock( &p_intf->change_lock );
-
-//    input_SetStatus( p_intf->p_sys->p_input, INPUT_STATUS_PLAY );
-}
-//---------------------------------------------------------------------------
-
-
-/*****************************************************************************
- * ModeManage: actualise the aspect of the interface whenever the input
- *             changes.
- *****************************************************************************
- * The lock has to be taken before you call the function.
- *****************************************************************************/
-void __fastcall TMainFrameDlg::ModeManage()
-{
-    TGroupBox     * ActiveGB;
-    int             i_Height;
-    bool            b_control;
-
-    /* hide all boxes */
-    GroupBoxFile->Visible = false;
-    GroupBoxNetwork->Visible = false;
-    GroupBoxDisc->Visible = false;
-
-    /* hide slider */
-    GroupBoxSlider->Hide();
-
-    /* controls unavailable */
-    b_control = 0;
-
-    /* show the box related to current input mode */
-    if( p_intf->p_sys->p_input != NULL )
-    {
-        switch( p_intf->p_sys->p_input->stream.i_method & 0xf0 )
-        {
-            case INPUT_METHOD_FILE:
-                GroupBoxFile->Visible = true;
-                ActiveGB = GroupBoxFile;
-                LabelFileName->Caption = p_intf->p_sys->p_input->psz_source;
-                break;
-            case INPUT_METHOD_DISC:
-                GroupBoxDisc->Visible = true;
-                ActiveGB = GroupBoxDisc;
-                break;
-            case INPUT_METHOD_NETWORK:
-                GroupBoxNetwork->Visible = true;
-                ActiveGB = GroupBoxNetwork;
-                LabelServer->Caption = p_intf->p_sys->p_input->psz_source;
-                if( config_GetInt( p_intf, "network-channel" ) )
-                {
-                    LabelChannel->Visible = true;
-                }
-                else
-                {
-                    LabelChannel->Visible = false;
-                }
-                break;
-            default:
-                msg_Warn( p_intf, "cannot determine input method" );
-                GroupBoxFile->Visible = true;
-                ActiveGB = GroupBoxFile;
-                LabelFileName->Caption = p_intf->p_sys->p_input->psz_source;
-                break;
-        }
-
-        i_Height = StatusBar->Height + ActiveGB->Height + ToolBar->Height + 54;
-
-        /* initialize and show slider for seekable streams */
-        if( p_intf->p_sys->p_input->stream.b_seekable )
-        {
-            TrackBar->Position = p_intf->p_sys->OldValue = 0;
-            GroupBoxSlider->Show();
-            i_Height += GroupBoxSlider->Height;
-        }
-
-        /* control buttons for free pace streams */
-        b_control = p_intf->p_sys->p_input->stream.b_pace_control;
-
-        /* get ready for menu regeneration */
-        p_intf->p_sys->b_program_update = 1;
-        p_intf->p_sys->b_title_update = 1;
-        p_intf->p_sys->b_chapter_update = 1;
-        p_intf->p_sys->b_audio_update = 1;
-        p_intf->p_sys->b_spu_update = 1;
-        p_intf->p_sys->i_part = 0;
-
-        p_intf->p_sys->p_input->stream.b_changed = 0;
-        msg_Dbg( p_intf, "stream has changed, refreshing interface" );
-    }
-    else
-    {
-        i_Height = StatusBar->Height + ToolBar->Height + 47;
-
-        if( config_GetInt( p_intf, "network-channel" ) )
-        {
-            GroupBoxNetwork->Visible = true;
-            LabelChannel->Visible = true;
-            i_Height += GroupBoxNetwork->Height + 7;
-        }
-        else
-        {
-            /* add space between tolbar and statusbar when
-             * nothing is displayed; isn't it nicer ? :) */
-            i_Height += 17;
-        }
-
-        /* unsensitize menus */
-        MenuProgram->Enabled = false;
-        MenuTitle->Enabled = false;
-        MenuChapter->Enabled = false;
-        MenuLanguage->Enabled = false;
-        MenuSubtitles->Enabled = false;
-        PopupNavigation->Enabled = false;
-        PopupLanguage->Enabled = false;
-        PopupSubtitles->Enabled = false;
-    }
-
-    /* resize main window */
-    this->Height = i_Height;
-
-    /* set control items */
-    ToolButtonBack->Enabled = false;
-    ToolButtonEject->Enabled = !b_control;
-    StopAction->Enabled = true;
-    PauseAction->Enabled = b_control;
-    SlowAction->Enabled = b_control;
-    FastAction->Enabled = b_control;
-    PopupBack->Enabled = false;
-}
-//---------------------------------------------------------------------------
-
-
-/*****************************************************************************
- * CreateConfig: create a configuration dialog and save it for further use
- *****************************************************************************
- * Check if the dialog box is already opened, if so this will save us
- * quite a bit of work. (the interface will be destroyed when you actually
- * close the main window, but remember that it is only hidden if you
- * clicked on the action buttons). This trick also allows us not to
- * duplicate identical dialog windows.
- *****************************************************************************/
-void __fastcall TMainFrameDlg::CreatePreferences( AnsiString Name )
-{
-    TPreferencesDlg *Preferences;
-    int i_index, i_pos;
-
-    i_index = StringListPref->IndexOf( Name );
-    if( i_index != -1 )
-    {
-        /* config dialog already exists */
-        Preferences = (TPreferencesDlg *)StringListPref->Objects[i_index];
-    }
-    else
-    {
-        /* create the config dialog */
-        Preferences = new TPreferencesDlg( this, p_intf );
-        Preferences->CreateConfigDialog( Name.c_str() );
-
-        /* save it */
-        i_pos = StringListPref->Add( Name );
-        StringListPref->Objects[i_pos] = Preferences;
-    }
-
-    /* display the dialog */
-    Preferences->Show();
-}
-//---------------------------------------------------------------------------
-
-
+/*****************************************************************************\r
+ * mainframe.cpp: Win32 interface plugin for vlc\r
+ *****************************************************************************\r
+ * Copyright (C) 2002 VideoLAN\r
+ *\r
+ * Authors: Olivier Teulière <ipkiss@via.ecp.fr>\r
+ *\r
+ * This program is free software; you can redistribute it and/or modify\r
+ * it under the terms of the GNU General Public License as published by\r
+ * the Free Software Foundation; either version 2 of the License, or\r
+ * (at your option) any later version.\r
+ *\r
+ * This program is distributed in the hope that it will be useful,\r
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\r
+ * GNU General Public License for more details.\r
+ *\r
+ * You should have received a copy of the GNU General Public License\r
+ * along with this program; if not, write to the Free Software\r
+ * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111, USA.\r
+ *****************************************************************************/\r
+\r
+#include <vcl.h>\r
+#pragma hdrstop\r
+\r
+#include <vlc/vlc.h>\r
+#include <vlc/intf.h>\r
+#include <vlc/vout.h>\r
+#include <vlc/aout.h>\r
+\r
+#include "dragdrop.h"\r
+#include "mainframe.h"\r
+#include "menu.h"\r
+#include "disc.h"\r
+#include "network.h"\r
+#include "about.h"\r
+#include "preferences.h"\r
+#include "messages.h"\r
+#include "playlist.h"\r
+#include "sout.h"\r
+#include "subtitles.h"\r
+#include "misc.h"\r
+#include "win32_common.h"\r
+\r
+#include "netutils.h"\r
+\r
+/*****************************************************************************\r
+ * BORLAND SUCKS\r
+ * If the following pragma doesn't end with \r\n instead of \n, the file\r
+ * doesn't compile anymore... Funny, isn't it?\r
+ * With vim, you can use ":set ff=dos" to correct it\r
+ *****************************************************************************/\r
+#pragma link "CSPIN"\r
+#pragma resource "*.dfm"\r
+\r
+extern int Win32Manage( intf_thread_t *p_intf );\r
+\r
+//---------------------------------------------------------------------------\r
+__fastcall TMainFrameDlg::TMainFrameDlg(\r
+    TComponent* Owner, intf_thread_t *_p_intf ) : TForm( Owner )\r
+{\r
+    p_intf = _p_intf;\r
+\r
+    Application->ShowHint = true;\r
+    Application->OnHint = DisplayHint;\r
+\r
+    TimerManage->Interval = INTF_IDLE_SLEEP / 1000;\r
+\r
+    TrackBar->Max = SLIDER_MAX_VALUE;\r
+\r
+    /* default height and caption */\r
+    ClientHeight = 37 + ToolBar->Height;\r
+    Caption = VOUT_TITLE " (Win32 interface)";\r
+\r
+    StringListPref = new TStringList();\r
+\r
+    Translate( this );\r
+\r
+    /* drag and drop stuff */\r
+\r
+    /* initialize the OLE library */\r
+    OleInitialize( NULL );\r
+    /* TDropTarget will send the WM_OLEDROP message to the form */\r
+    lpDropTarget = (LPDROPTARGET)new TDropTarget( this->Handle );\r
+    CoLockObjectExternal( lpDropTarget, true, true );\r
+    /* register the form as a drop target */\r
+    RegisterDragDrop( this->Handle, lpDropTarget );\r
+}\r
+//---------------------------------------------------------------------------\r
+__fastcall TMainFrameDlg::~TMainFrameDlg()\r
+{\r
+    delete StringListPref;\r
+}\r
+//---------------------------------------------------------------------------\r
+\r
+\r
+/*****************************************************************************\r
+ * Event handlers\r
+ ****************************************************************************/\r
+void __fastcall TMainFrameDlg::TimerManageTimer( TObject *Sender )\r
+{\r
+    Win32Manage( p_intf );\r
+}\r
+//---------------------------------------------------------------------------\r
+void __fastcall TMainFrameDlg::DisplayHint( TObject *Sender )\r
+{\r
+    StatusBar->SimpleText = GetLongHint( Application->Hint );\r
+}\r
+//---------------------------------------------------------------------------\r
+void __fastcall TMainFrameDlg::TrackBarChange( TObject *Sender )\r
+{\r
+    /* This function displays the current date related to the position in\r
+     * the stream. It is called whenever the slider changes its value.\r
+     * The lock has to be taken before the function is called */\r
+\r
+    if( p_intf->p_sys->p_input != NULL )\r
+    {\r
+#define p_area p_intf->p_sys->p_input->stream.p_selected_area\r
+        char psz_time[ OFFSETTOTIME_MAX_SIZE ];\r
+        off_t Value = TrackBar->Position;\r
+\r
+        GroupBoxSlider->Caption =\r
+                input_OffsetToTime( p_intf->p_sys->p_input, psz_time,\r
+                        ( p_area->i_size * Value ) / (off_t)SLIDER_MAX_VALUE );\r
+#undef p_area\r
+     }\r
+}\r
+//---------------------------------------------------------------------------\r
+void __fastcall TMainFrameDlg::FormClose( TObject *Sender,\r
+      TCloseAction &Action )\r
+{\r
+    vlc_mutex_lock( &p_intf->change_lock );\r
+    p_intf->p_vlc->b_die = VLC_TRUE;\r
+    vlc_mutex_unlock( &p_intf->change_lock );\r
+\r
+    /* remove the form from the list of drop targets */\r
+    RevokeDragDrop( this->Handle );\r
+    lpDropTarget->Release();\r
+    CoLockObjectExternal( lpDropTarget, false, true );\r
+\r
+    /* uninitialize the OLE library */\r
+    OleUninitialize();\r
+\r
+    /* we don't destroy the form immediatly */\r
+    Action = caHide;\r
+}\r
+//---------------------------------------------------------------------------\r
+\r
+\r
+/*****************************************************************************\r
+ * Main callbacks\r
+ ****************************************************************************/\r
+void __fastcall TMainFrameDlg::OpenFileActionExecute( TObject *Sender )\r
+{\r
+    if( OpenDialog1->Execute() )\r
+    {\r
+        /* add the new file to the interface playlist */\r
+        for( int i = 0; i < OpenDialog1->Files->Count; i++ )\r
+            p_intf->p_sys->p_playwin->Add( OpenDialog1->Files->Strings[i],\r
+                    PLAYLIST_APPEND\r
+                    | ( p_intf->p_sys->b_play_when_adding ? PLAYLIST_GO : 0 ),\r
+                    PLAYLIST_END );\r
+    };\r
+}\r
+//---------------------------------------------------------------------------\r
+void __fastcall TMainFrameDlg::OpenDiscActionExecute( TObject *Sender )\r
+{\r
+    TDiscDlg *p_disc = p_intf->p_sys->p_disc;\r
+    if( p_disc == NULL )\r
+    {\r
+        p_disc = new TDiscDlg( this, p_intf );\r
+        p_intf->p_sys->p_disc = p_disc;\r
+    }\r
+    p_disc->Show();\r
+}\r
+//---------------------------------------------------------------------------\r
+void __fastcall TMainFrameDlg::NetworkStreamActionExecute( TObject *Sender )\r
+{\r
+    TNetworkDlg *p_network = p_intf->p_sys->p_network;\r
+    if( p_network == NULL )\r
+    {\r
+        p_network = new TNetworkDlg( this, p_intf );\r
+        p_intf->p_sys->p_network = p_network;\r
+    }\r
+    p_network->Show();\r
+}\r
+//---------------------------------------------------------------------------\r
+void __fastcall TMainFrameDlg::AddSubtitlesActionsExecute( TObject *Sender )\r
+{\r
+    TSubtitlesDlg *p_subtitles = new TSubtitlesDlg( this, p_intf );\r
+    p_subtitles->ShowModal();\r
+    delete p_subtitles;\r
+}\r
+//---------------------------------------------------------------------------\r
+void __fastcall TMainFrameDlg::StreamOutputActionExecute( TObject *Sender )\r
+{\r
+    TSoutDlg *p_sout = new TSoutDlg( this, p_intf );\r
+    p_sout->ShowModal();\r
+    delete p_sout;\r
+}\r
+//---------------------------------------------------------------------------\r
+void __fastcall TMainFrameDlg::ExitActionExecute( TObject *Sender )\r
+{\r
+    Close();\r
+}\r
+//---------------------------------------------------------------------------\r
+void __fastcall TMainFrameDlg::FullscreenActionExecute( TObject *Sender )\r
+{\r
+    vout_thread_t *p_vout;\r
+\r
+    p_vout = (vout_thread_t *)vlc_object_find( p_intf->p_sys->p_input,\r
+                                               VLC_OBJECT_VOUT, FIND_CHILD );\r
+    if( p_vout == NULL )\r
+    {\r
+        return;\r
+    }\r
+\r
+    p_vout->i_changes |= VOUT_FULLSCREEN_CHANGE;\r
+    vlc_object_release( p_vout );\r
+}\r
+//---------------------------------------------------------------------------\r
+void __fastcall TMainFrameDlg::OnTopActionExecute( TObject *Sender )\r
+{\r
+    vlc_object_t *p_vout;\r
+    p_vout = (vlc_object_t *)vlc_object_find( p_intf, VLC_OBJECT_VOUT,\r
+                                              FIND_ANYWHERE );\r
+    if( p_vout != NULL )\r
+    {\r
+        vlc_value_t val;\r
+        if( var_Get( p_vout, "directx-on-top", &val ) >= 0 )\r
+        {\r
+            val.b_bool = ! val.b_bool;\r
+            var_Set( p_vout, "directx-on-top", val );\r
+            MenuOnTop->Checked = val.b_bool;\r
+            PopupOnTop->Checked = val.b_bool;\r
+        }\r
+        vlc_object_release( p_vout );\r
+    }\r
+}\r
+//---------------------------------------------------------------------------\r
+void __fastcall TMainFrameDlg::PlaylistActionExecute( TObject *Sender )\r
+{\r
+    TPlaylistDlg *p_playwin = p_intf->p_sys->p_playwin;\r
+    if( p_playwin->Visible )\r
+    {\r
+        p_playwin->Hide();\r
+    }\r
+    else\r
+    {\r
+        p_playwin->UpdateGrid();\r
+        p_playwin->Show();\r
+    }\r
+}\r
+//---------------------------------------------------------------------------\r
+void __fastcall TMainFrameDlg::MessagesActionExecute( TObject *Sender )\r
+{\r
+     p_intf->p_sys->p_messages->Show();\r
+}\r
+//---------------------------------------------------------------------------\r
+void __fastcall TMainFrameDlg::PreferencesActionExecute( TObject *Sender )\r
+{\r
+    CreatePreferences( "main" );\r
+}\r
+//---------------------------------------------------------------------------\r
+void __fastcall TMainFrameDlg::AboutActionExecute( TObject *Sender )\r
+{\r
+    TAboutDlg *AboutDlg = new TAboutDlg( this, p_intf );\r
+    AboutDlg->ShowModal();\r
+    delete AboutDlg;\r
+}\r
+//---------------------------------------------------------------------------\r
+void __fastcall TMainFrameDlg::BackActionExecute( TObject *Sender )\r
+{\r
+    /* TODO */\r
+}\r
+//---------------------------------------------------------------------------\r
+void __fastcall TMainFrameDlg::PlayActionExecute( TObject *Sender )\r
+{\r
+    p_intf->p_sys->p_playwin->Play();\r
+}\r
+//---------------------------------------------------------------------------\r
+void __fastcall TMainFrameDlg::PauseActionExecute( TObject *Sender )\r
+{\r
+    p_intf->p_sys->p_playwin->Pause();\r
+}\r
+//---------------------------------------------------------------------------\r
+void __fastcall TMainFrameDlg::StopActionExecute( TObject *Sender )\r
+{\r
+    p_intf->p_sys->p_playwin->Stop();\r
+}\r
+//---------------------------------------------------------------------------\r
+void __fastcall TMainFrameDlg::SlowActionExecute( TObject *Sender )\r
+{\r
+    p_intf->p_sys->p_playwin->Slow();\r
+}\r
+//---------------------------------------------------------------------------\r
+void __fastcall TMainFrameDlg::FastActionExecute( TObject *Sender )\r
+{\r
+    p_intf->p_sys->p_playwin->Fast();\r
+}\r
+//---------------------------------------------------------------------------\r
+void __fastcall TMainFrameDlg::PreviousActionExecute(TObject *Sender)\r
+{\r
+    p_intf->p_sys->p_playwin->Previous();\r
+}\r
+//---------------------------------------------------------------------------\r
+void __fastcall TMainFrameDlg::NextActionExecute(TObject *Sender)\r
+{\r
+    p_intf->p_sys->p_playwin->Next();\r
+}\r
+//---------------------------------------------------------------------------\r
+void __fastcall TMainFrameDlg::EjectActionExecute( TObject *Sender )\r
+{\r
+    AnsiString Device = "";\r
+    char * psz_current;\r
+    playlist_t * p_playlist;\r
+\r
+    p_playlist = (playlist_t *)vlc_object_find( p_intf,\r
+                                       VLC_OBJECT_PLAYLIST, FIND_ANYWHERE );\r
+    if( p_playlist == NULL )\r
+    {\r
+        return;\r
+    }\r
+\r
+    /*\r
+     * Get the active input\r
+     * Determine whether we can eject a media, ie it's a VCD or DVD\r
+     * If it's neither a VCD nor a DVD, then return\r
+     */\r
+\r
+    vlc_mutex_lock( &p_playlist->object_lock );\r
+    psz_current = p_playlist->pp_items[ p_playlist->i_index ]->psz_name;\r
+\r
+    if( psz_current != NULL )\r
+    {\r
+        if( strncmp( psz_current, "dvd", 3 )\r
+            || strncmp( psz_current, "vcd", 3 ) )\r
+        {\r
+            /* Determine the device name by omitting the first 4 characters\r
+             * and keeping 3 characters */\r
+            Device = strdup( ( psz_current + 4 ) );\r
+            Device = Device.SubString( 1, 2 );\r
+        }\r
+    }\r
+\r
+    vlc_mutex_unlock( &p_playlist->object_lock );\r
+    vlc_object_release( p_playlist );\r
+\r
+    if( Device == "" )\r
+    {\r
+        return;\r
+    }\r
+\r
+    /* If there's a stream playing, we aren't allowed to eject ! */\r
+    if( p_intf->p_sys->p_input == NULL )\r
+    {\r
+        msg_Dbg( p_intf, "ejecting %s", Device.c_str() );\r
+\r
+        intf_Eject( p_intf, Device.c_str() );\r
+    }\r
+}\r
+//--------------------------------------------------------------------------\r
+void __fastcall TMainFrameDlg::VolumeUpActionExecute( TObject *Sender )\r
+{\r
+    aout_VolumeUp( p_intf, 1, NULL );\r
+}\r
+//---------------------------------------------------------------------------\r
+void __fastcall TMainFrameDlg::VolumeDownActionExecute( TObject *Sender )\r
+{\r
+    aout_VolumeDown( p_intf, 1, NULL );\r
+}\r
+//---------------------------------------------------------------------------\r
+void __fastcall TMainFrameDlg::MuteActionExecute( TObject *Sender )\r
+{\r
+    aout_VolumeMute( p_intf, NULL );\r
+//    MenuMute->Checked = ! MenuMute->Checked;\r
+}\r
+//---------------------------------------------------------------------------\r
+\r
+\r
+/*****************************************************************************\r
+ * External drop handling\r
+ *****************************************************************************/\r
+void __fastcall TMainFrameDlg::OnDrop( TMessage &Msg )\r
+{\r
+    /* find the number of files dropped */\r
+    int num_files = DragQueryFile( (HDROP)Msg.WParam, 0xFFFFFFFF,\r
+                                   (LPSTR)NULL, NULL );\r
+\r
+    /* append each file to the playlist */\r
+    for( int i = 0; i < num_files; i++ )\r
+    {\r
+        /* find the length of the filename */\r
+        int name_length = DragQueryFile( (HDROP)Msg.WParam, i, NULL, NULL ) + 1;\r
+\r
+        /* get the filename */\r
+        char *FileName = new char[name_length];\r
+        DragQueryFile( (HDROP)Msg.WParam, i, FileName, name_length );\r
+\r
+        /* add the new file to the playlist */\r
+        if( config_GetInt( p_intf, "enqueue" ) )\r
+        {\r
+            p_intf->p_sys->p_playwin->Add( FileName,\r
+                PLAYLIST_APPEND, PLAYLIST_END );\r
+        }\r
+        else\r
+        {\r
+            p_intf->p_sys->p_playwin->Add( FileName,\r
+                PLAYLIST_APPEND | PLAYLIST_GO, PLAYLIST_END );\r
+        }\r
+\r
+        delete[] FileName;\r
+    }\r
+\r
+    DragFinish( (HDROP)Msg.WParam );\r
+    Msg.Result = 0;\r
+}\r
+//--------------------------------------------------------------------------\r
+\r
+\r
+/*****************************************************************************\r
+ * Menu and popup callbacks\r
+ *****************************************************************************/\r
+void __fastcall TMainFrameDlg::MenuHideinterfaceClick( TObject *Sender )\r
+{\r
+     this->SendToBack();\r
+}\r
+//---------------------------------------------------------------------------\r
+void __fastcall TMainFrameDlg::PopupToggleInterfaceClick( TObject *Sender )\r
+{\r
+    this->BringToFront();\r
+}\r
+//---------------------------------------------------------------------------\r
+void __fastcall TMainFrameDlg::PopupCloseClick( TObject *Sender )\r
+{\r
+    /* We do nothing, we just need a click on a menu item\r
+     * to close the popup. Don't ask me why... */\r
+    return;\r
+}\r
+//---------------------------------------------------------------------------\r
+void __fastcall TMainFrameDlg::PopupJumpClick( TObject *Sender )\r
+{\r
+    /* TODO */\r
+}\r
+//---------------------------------------------------------------------------\r
+\r
+\r
+/*****************************************************************************\r
+ * Callbacks for DVD/VCD navigation\r
+ ****************************************************************************/\r
+void __fastcall TMainFrameDlg::PrevTitleActionExecute( TObject *Sender )\r
+{\r
+    input_area_t  * p_area;\r
+    int             i_id;\r
+\r
+    vlc_mutex_lock( &p_intf->p_sys->p_input->stream.stream_lock );\r
+    i_id = p_intf->p_sys->p_input->stream.p_selected_area->i_id - 1;\r
+\r
+    /* Disallow area 0 since it is used for video_ts.vob */\r
+    if( i_id > 0 )\r
+    {\r
+        p_area = p_intf->p_sys->p_input->stream.pp_areas[i_id];\r
+        vlc_mutex_unlock( &p_intf->p_sys->p_input->stream.stream_lock );\r
+\r
+        input_ChangeArea( p_intf->p_sys->p_input, p_area );\r
+        input_SetStatus( p_intf->p_sys->p_input, INPUT_STATUS_PLAY );\r
+\r
+        p_intf->p_sys->b_title_update = VLC_TRUE;\r
+        vlc_mutex_lock( &p_intf->p_sys->p_input->stream.stream_lock );\r
+        p_intf->p_sys->p_menus->SetupMenus();\r
+    }\r
+\r
+    vlc_mutex_unlock( &p_intf->p_sys->p_input->stream.stream_lock );\r
+}\r
+//---------------------------------------------------------------------------\r
+void __fastcall TMainFrameDlg::NextTitleActionExecute( TObject *Sender )\r
+{\r
+    input_area_t  * p_area;\r
+    unsigned int    i_id;\r
+\r
+    vlc_mutex_lock( &p_intf->p_sys->p_input->stream.stream_lock );\r
+    i_id = p_intf->p_sys->p_input->stream.p_selected_area->i_id + 1;\r
+\r
+    if( i_id < p_intf->p_sys->p_input->stream.i_area_nb )\r
+    {\r
+        p_area = p_intf->p_sys->p_input->stream.pp_areas[i_id];\r
+        vlc_mutex_unlock( &p_intf->p_sys->p_input->stream.stream_lock );\r
+\r
+        input_ChangeArea( p_intf->p_sys->p_input, p_area );\r
+        input_SetStatus( p_intf->p_sys->p_input, INPUT_STATUS_PLAY );\r
+\r
+        p_intf->p_sys->b_title_update = VLC_TRUE;\r
+        vlc_mutex_lock( &p_intf->p_sys->p_input->stream.stream_lock );\r
+        p_intf->p_sys->p_menus->SetupMenus();\r
+    }\r
+\r
+    vlc_mutex_unlock( &p_intf->p_sys->p_input->stream.stream_lock );\r
+}\r
+//---------------------------------------------------------------------------\r
+void __fastcall TMainFrameDlg::PrevChapterActionExecute( TObject *Sender )\r
+{\r
+    input_area_t  * p_area;\r
+\r
+    vlc_mutex_lock( &p_intf->p_sys->p_input->stream.stream_lock );\r
+    p_area = p_intf->p_sys->p_input->stream.p_selected_area;\r
+\r
+    if( p_area->i_part - 1 > 0 )\r
+    {\r
+        p_area->i_part--;\r
+        vlc_mutex_unlock( &p_intf->p_sys->p_input->stream.stream_lock );\r
+\r
+        input_ChangeArea( p_intf->p_sys->p_input, p_area );\r
+        input_SetStatus( p_intf->p_sys->p_input, INPUT_STATUS_PLAY );\r
+\r
+        p_intf->p_sys->b_chapter_update = VLC_TRUE;\r
+        vlc_mutex_lock( &p_intf->p_sys->p_input->stream.stream_lock );\r
+        p_intf->p_sys->p_menus->SetupMenus();\r
+    }\r
+\r
+    vlc_mutex_unlock( &p_intf->p_sys->p_input->stream.stream_lock );\r
+}\r
+//---------------------------------------------------------------------------\r
+void __fastcall TMainFrameDlg::NextChapterActionExecute( TObject *Sender )\r
+{\r
+    input_area_t  * p_area;\r
+\r
+    vlc_mutex_lock( &p_intf->p_sys->p_input->stream.stream_lock );\r
+    p_area = p_intf->p_sys->p_input->stream.p_selected_area;\r
+\r
+    if( p_area->i_part + 1 < p_area->i_part_nb )\r
+    {\r
+        p_area->i_part++;\r
+        vlc_mutex_unlock( &p_intf->p_sys->p_input->stream.stream_lock );\r
+\r
+        input_ChangeArea( p_intf->p_sys->p_input, p_area );\r
+        input_SetStatus( p_intf->p_sys->p_input, INPUT_STATUS_PLAY );\r
+\r
+        p_intf->p_sys->b_chapter_update = VLC_TRUE;\r
+        vlc_mutex_lock( &p_intf->p_sys->p_input->stream.stream_lock );\r
+        p_intf->p_sys->p_menus->SetupMenus();\r
+    }\r
+\r
+    vlc_mutex_unlock( &p_intf->p_sys->p_input->stream.stream_lock );\r
+}\r
+//---------------------------------------------------------------------------\r
+\r
+\r
+/*****************************************************************************\r
+ * Callback for the 'go!' button\r
+ ****************************************************************************/\r
+void __fastcall TMainFrameDlg::ButtonGoClick( TObject *Sender )\r
+{\r
+    int i_channel;\r
+\r
+    i_channel = SpinEditChannel->Value;\r
+    msg_Dbg( p_intf, "joining channel %d", i_channel );\r
+\r
+    vlc_mutex_lock( &p_intf->change_lock );\r
+    network_ChannelJoin( p_intf, i_channel );\r
+    vlc_mutex_unlock( &p_intf->change_lock );\r
+\r
+//    input_SetStatus( p_intf->p_sys->p_input, INPUT_STATUS_PLAY );\r
+}\r
+//---------------------------------------------------------------------------\r
+\r
+\r
+/*****************************************************************************\r
+ * ModeManage: actualise the aspect of the interface whenever the input\r
+ *             changes.\r
+ *****************************************************************************\r
+ * The lock has to be taken before you call the function.\r
+ *****************************************************************************/\r
+void __fastcall TMainFrameDlg::ModeManage()\r
+{\r
+    TGroupBox     * ActiveGB;\r
+    int             i_Height;\r
+    bool            b_control;\r
+\r
+    /* hide all boxes */\r
+    GroupBoxFile->Visible = false;\r
+    GroupBoxNetwork->Visible = false;\r
+    GroupBoxDisc->Visible = false;\r
+\r
+    /* hide slider */\r
+    GroupBoxSlider->Hide();\r
+\r
+    /* controls unavailable */\r
+    b_control = 0;\r
+\r
+    /* show the box related to current input mode */\r
+    if( p_intf->p_sys->p_input != NULL )\r
+    {\r
+        switch( p_intf->p_sys->p_input->stream.i_method & 0xf0 )\r
+        {\r
+            case INPUT_METHOD_FILE:\r
+                GroupBoxFile->Visible = true;\r
+                ActiveGB = GroupBoxFile;\r
+                LabelFileName->Caption = p_intf->p_sys->p_input->psz_source;\r
+                break;\r
+            case INPUT_METHOD_DISC:\r
+                GroupBoxDisc->Visible = true;\r
+                ActiveGB = GroupBoxDisc;\r
+                break;\r
+            case INPUT_METHOD_NETWORK:\r
+                GroupBoxNetwork->Visible = true;\r
+                ActiveGB = GroupBoxNetwork;\r
+                LabelServer->Caption = p_intf->p_sys->p_input->psz_source;\r
+                if( config_GetInt( p_intf, "network-channel" ) )\r
+                {\r
+                    LabelChannel->Visible = true;\r
+                }\r
+                else\r
+                {\r
+                    LabelChannel->Visible = false;\r
+                }\r
+                break;\r
+            default:\r
+                msg_Warn( p_intf, "cannot determine input method" );\r
+                GroupBoxFile->Visible = true;\r
+                ActiveGB = GroupBoxFile;\r
+                LabelFileName->Caption = p_intf->p_sys->p_input->psz_source;\r
+                break;\r
+        }\r
+\r
+        i_Height = StatusBar->Height + ActiveGB->Height + ToolBar->Height + 54;\r
+\r
+        /* initialize and show slider for seekable streams */\r
+        if( p_intf->p_sys->p_input->stream.b_seekable )\r
+        {\r
+            TrackBar->Position = p_intf->p_sys->OldValue = 0;\r
+            GroupBoxSlider->Show();\r
+            i_Height += GroupBoxSlider->Height;\r
+        }\r
+\r
+        /* control buttons for free pace streams */\r
+        b_control = p_intf->p_sys->p_input->stream.b_pace_control;\r
+\r
+        /* get ready for menu regeneration */\r
+        p_intf->p_sys->b_program_update = 1;\r
+        p_intf->p_sys->b_title_update = 1;\r
+        p_intf->p_sys->b_chapter_update = 1;\r
+        p_intf->p_sys->b_audio_update = 1;\r
+        p_intf->p_sys->b_spu_update = 1;\r
+        p_intf->p_sys->i_part = 0;\r
+\r
+        p_intf->p_sys->p_input->stream.b_changed = 0;\r
+        msg_Dbg( p_intf, "stream has changed, refreshing interface" );\r
+    }\r
+    else\r
+    {\r
+        i_Height = StatusBar->Height + ToolBar->Height + 47;\r
+\r
+        if( config_GetInt( p_intf, "network-channel" ) )\r
+        {\r
+            GroupBoxNetwork->Visible = true;\r
+            LabelChannel->Visible = true;\r
+            i_Height += GroupBoxNetwork->Height + 7;\r
+        }\r
+        else\r
+        {\r
+            /* add space between tolbar and statusbar when\r
+             * nothing is displayed; isn't it nicer ? :) */\r
+            i_Height += 17;\r
+        }\r
+\r
+        /* unsensitize menus */\r
+        MenuProgram->Enabled = false;\r
+        MenuTitle->Enabled = false;\r
+        MenuChapter->Enabled = false;\r
+        MenuLanguage->Enabled = false;\r
+        MenuSubtitles->Enabled = false;\r
+        PopupNavigation->Enabled = false;\r
+        PopupLanguage->Enabled = false;\r
+        PopupSubtitles->Enabled = false;\r
+    }\r
+\r
+    /* resize main window */\r
+    this->Height = i_Height;\r
+\r
+    /* set control items */\r
+    ToolButtonBack->Enabled = false;\r
+    ToolButtonEject->Enabled = !b_control;\r
+    StopAction->Enabled = true;\r
+    PauseAction->Enabled = b_control;\r
+    SlowAction->Enabled = b_control;\r
+    FastAction->Enabled = b_control;\r
+    PopupBack->Enabled = false;\r
+}\r
+//---------------------------------------------------------------------------\r
+\r
+\r
+/*****************************************************************************\r
+ * CreateConfig: create a configuration dialog and save it for further use\r
+ *****************************************************************************\r
+ * Check if the dialog box is already opened, if so this will save us\r
+ * quite a bit of work. (the interface will be destroyed when you actually\r
+ * close the main window, but remember that it is only hidden if you\r
+ * clicked on the action buttons). This trick also allows us not to\r
+ * duplicate identical dialog windows.\r
+ *****************************************************************************/\r
+void __fastcall TMainFrameDlg::CreatePreferences( AnsiString Name )\r
+{\r
+    TPreferencesDlg *Preferences;\r
+    int i_index, i_pos;\r
+\r
+    i_index = StringListPref->IndexOf( Name );\r
+    if( i_index != -1 )\r
+    {\r
+        /* config dialog already exists */\r
+        Preferences = (TPreferencesDlg *)StringListPref->Objects[i_index];\r
+    }\r
+    else\r
+    {\r
+        /* create the config dialog */\r
+        Preferences = new TPreferencesDlg( this, p_intf );\r
+        Preferences->CreateConfigDialog( Name.c_str() );\r
+\r
+        /* save it */\r
+        i_pos = StringListPref->Add( Name );\r
+        StringListPref->Objects[i_pos] = Preferences;\r
+    }\r
+\r
+    /* display the dialog */\r
+    Preferences->Show();\r
+}\r
+//---------------------------------------------------------------------------\r
+\r
+\r