Commit 3ece9041 authored by Olivier Teulière's avatar Olivier Teulière

* all: Unified behaviours using "action list" objects

parent fd94f31b
......@@ -277,7 +277,7 @@ object AboutDlg: TAboutDlg
WordWrap = True
end
object Label3: TLabel
Left = 38
Left = 30
Top = 80
Width = 227
Height = 13
......@@ -290,7 +290,7 @@ object AboutDlg: TAboutDlg
Height = 49
end
object Label5: TLabel
Left = 82
Left = 83
Top = 96
Width = 121
Height = 13
......
......@@ -64,7 +64,7 @@ bool ControlPlay( TObject *Sender )
vlc_object_find( p_intfGlobal, VLC_OBJECT_PLAYLIST, FIND_ANYWHERE );
if( p_playlist == NULL )
{
p_intfGlobal->p_sys->p_window->MenuOpenFileClick( Sender );
p_intfGlobal->p_sys->p_window->OpenFileActionExecute( Sender );
return false;
}
......@@ -79,7 +79,7 @@ bool ControlPlay( TObject *Sender )
{
vlc_mutex_unlock( &p_playlist->object_lock );
vlc_object_release( p_playlist );
p_intfGlobal->p_sys->p_window->MenuOpenFileClick( Sender );
p_intfGlobal->p_sys->p_window->OpenFileActionExecute( Sender );
}
return true;
......
......@@ -46,14 +46,12 @@ __fastcall TDiscDlg::TDiscDlg( TComponent* Owner )
//---------------------------------------------------------------------------
void __fastcall TDiscDlg::FormShow( TObject *Sender )
{
p_intfGlobal->p_sys->p_window->MenuOpenDisc->Checked = true;
p_intfGlobal->p_sys->p_window->PopupOpenDisc->Checked = true;
p_intfGlobal->p_sys->p_window->OpenDiscAction->Checked = true;
}
//---------------------------------------------------------------------------
void __fastcall TDiscDlg::FormHide( TObject *Sender )
{
p_intfGlobal->p_sys->p_window->MenuOpenDisc->Checked = false;
p_intfGlobal->p_sys->p_window->PopupOpenDisc->Checked = false;
p_intfGlobal->p_sys->p_window->OpenDiscAction->Checked = false;
}
//---------------------------------------------------------------------------
void __fastcall TDiscDlg::BitBtnCancelClick( TObject *Sender )
......
......@@ -125,9 +125,9 @@ void __fastcall TMainFrameDlg::FormClose( TObject *Sender,
/*****************************************************************************
* Menu callbacks
* Main callbacks
****************************************************************************/
void __fastcall TMainFrameDlg::MenuOpenFileClick( TObject *Sender )
void __fastcall TMainFrameDlg::OpenFileActionExecute( TObject *Sender )
{
AnsiString FileName;
playlist_t * p_playlist;
......@@ -153,7 +153,7 @@ void __fastcall TMainFrameDlg::MenuOpenFileClick( TObject *Sender )
vlc_object_release( p_playlist );
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::MenuOpenDiscClick( TObject *Sender )
void __fastcall TMainFrameDlg::OpenDiscActionExecute( TObject *Sender )
{
TDiscDlg *p_disc = p_intfGlobal->p_sys->p_disc;
if( p_disc == NULL )
......@@ -164,7 +164,7 @@ void __fastcall TMainFrameDlg::MenuOpenDiscClick( TObject *Sender )
p_disc->Show();
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::MenuNetworkStreamClick( TObject *Sender )
void __fastcall TMainFrameDlg::NetworkStreamActionExecute( TObject *Sender )
{
TNetworkDlg *p_network = p_intfGlobal->p_sys->p_network;
if( p_network == NULL )
......@@ -175,17 +175,12 @@ void __fastcall TMainFrameDlg::MenuNetworkStreamClick( TObject *Sender )
p_network->Show();
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::MenuExitClick( TObject *Sender )
void __fastcall TMainFrameDlg::ExitActionExecute( TObject *Sender )
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::MenuHideinterfaceClick( TObject *Sender )
{
this->SendToBack();
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::MenuFullscreenClick( TObject *Sender )
void __fastcall TMainFrameDlg::FullscreenActionExecute( TObject *Sender )
{
vout_thread_t *p_vout;
......@@ -200,7 +195,7 @@ void __fastcall TMainFrameDlg::MenuFullscreenClick( TObject *Sender )
vlc_object_release( p_vout );
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::MenuPlaylistClick( TObject *Sender )
void __fastcall TMainFrameDlg::PlaylistActionExecute( TObject *Sender )
{
TPlaylistDlg *p_playwin = p_intfGlobal->p_sys->p_playwin;
if( p_playwin->Visible )
......@@ -223,89 +218,64 @@ void __fastcall TMainFrameDlg::MenuPlaylistClick( TObject *Sender )
}
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::MenuMessagesClick( TObject *Sender )
void __fastcall TMainFrameDlg::MessagesActionExecute( TObject *Sender )
{
p_intfGlobal->p_sys->p_messages->Show();
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::MenuPreferencesClick( TObject *Sender )
void __fastcall TMainFrameDlg::PreferencesActionExecute( TObject *Sender )
{
CreatePreferences( "main" );
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::MenuAboutClick( TObject *Sender )
void __fastcall TMainFrameDlg::AboutActionExecute( TObject *Sender )
{
p_intfGlobal->p_sys->p_about = new TAboutDlg( this );
p_intfGlobal->p_sys->p_about->ShowModal();
delete p_intfGlobal->p_sys->p_about;
}
//---------------------------------------------------------------------------
/*****************************************************************************
* Toolbar callbacks
****************************************************************************/
void __fastcall TMainFrameDlg::ToolButtonFileClick( TObject *Sender )
{
MenuOpenFileClick( Sender );
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::ToolButtonDiscClick( TObject *Sender )
{
MenuOpenDiscClick( Sender );
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::ToolButtonNetClick( TObject *Sender )
{
MenuNetworkStreamClick( Sender );
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::ToolButtonPlaylistClick( TObject *Sender )
{
MenuPlaylistClick( Sender );
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::ToolButtonBackClick( TObject *Sender )
void __fastcall TMainFrameDlg::BackActionExecute( TObject *Sender )
{
ControlBack( Sender );
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::ToolButtonStopClick( TObject *Sender )
void __fastcall TMainFrameDlg::PlayActionExecute( TObject *Sender )
{
ControlStop( Sender );
ControlPlay( Sender );
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::ToolButtonPlayClick( TObject *Sender )
void __fastcall TMainFrameDlg::PauseActionExecute( TObject *Sender )
{
ControlPlay( Sender );
ControlPause( Sender );
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::ToolButtonPauseClick( TObject *Sender )
void __fastcall TMainFrameDlg::StopActionExecute( TObject *Sender )
{
ControlPause( Sender );
ControlStop( Sender );
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::ToolButtonSlowClick( TObject *Sender )
void __fastcall TMainFrameDlg::SlowActionExecute( TObject *Sender )
{
ControlSlow( Sender );
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::ToolButtonFastClick( TObject *Sender )
void __fastcall TMainFrameDlg::FastActionExecute( TObject *Sender )
{
ControlFast( Sender );
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::ToolButtonPrevClick( TObject *Sender )
void __fastcall TMainFrameDlg::PreviousActionExecute(TObject *Sender)
{
p_intfGlobal->p_sys->p_playwin->Previous();
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::ToolButtonNextClick( TObject *Sender )
void __fastcall TMainFrameDlg::NextActionExecute(TObject *Sender)
{
p_intfGlobal->p_sys->p_playwin->Next();
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::ToolButtonEjectClick( TObject *Sender )
void __fastcall TMainFrameDlg::EjectActionExecute( TObject *Sender )
{
AnsiString Device = "";
char * psz_current;
......@@ -359,43 +329,11 @@ void __fastcall TMainFrameDlg::ToolButtonEjectClick( TObject *Sender )
/*****************************************************************************
* Popup callbacks
* Menu and popup callbacks
****************************************************************************/
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::PopupPlayClick( TObject *Sender )
{
ToolButtonPlayClick( Sender );
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::PopupPauseClick( TObject *Sender )
{
ToolButtonPauseClick( Sender );
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::PopupStopClick( TObject *Sender )
{
ToolButtonStopClick( Sender );
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::PopupBackClick( TObject *Sender )
{
ToolButtonBackClick( Sender );
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::PopupSlowClick( TObject *Sender )
{
ToolButtonSlowClick( Sender );
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::PopupFastClick( TObject *Sender )
void __fastcall TMainFrameDlg::MenuHideinterfaceClick( TObject *Sender )
{
ToolButtonFastClick( Sender );
this->SendToBack();
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::PopupToggleInterfaceClick( TObject *Sender )
......@@ -403,19 +341,11 @@ void __fastcall TMainFrameDlg::PopupToggleInterfaceClick( TObject *Sender )
this->BringToFront();
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::PopupFullscreenClick( TObject *Sender )
{
MenuFullscreenClick( Sender );
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::PopupNextClick( TObject *Sender )
{
ToolButtonNextClick( Sender );
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::PopupPrevClick( TObject *Sender )
void __fastcall TMainFrameDlg::PopupCloseClick( TObject *Sender )
{
ToolButtonPrevClick( 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 )
......@@ -423,42 +353,12 @@ void __fastcall TMainFrameDlg::PopupJumpClick( TObject *Sender )
// TODO
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::PopupPlaylistClick( TObject *Sender )
{
MenuPlaylistClick( Sender );
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::PopupPreferencesClick( TObject *Sender )
{
MenuPreferencesClick( Sender );
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::PopupExitClick( TObject *Sender )
{
MenuExitClick( Sender );
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::PopupOpenFileClick( TObject *Sender )
{
MenuOpenFileClick( Sender );
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::PopupOpenDiscClick( TObject *Sender )
{
MenuOpenDiscClick( Sender );
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::PopupNetworkStreamClick( TObject *Sender )
{
MenuNetworkStreamClick( Sender );
}
//---------------------------------------------------------------------------
/*****************************************************************************
* Callbacks for DVD/VCD navigation
****************************************************************************/
void __fastcall TMainFrameDlg::ButtonTitlePrevClick( TObject *Sender )
void __fastcall TMainFrameDlg::PrevTitleActionExecute( TObject *Sender )
{
intf_thread_t * p_intf;
input_area_t * p_area;
......@@ -482,7 +382,7 @@ void __fastcall TMainFrameDlg::ButtonTitlePrevClick( TObject *Sender )
}
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::ButtonTitleNextClick( TObject *Sender )
void __fastcall TMainFrameDlg::NextTitleActionExecute( TObject *Sender )
{
intf_thread_t * p_intf;
input_area_t * p_area;
......@@ -505,7 +405,7 @@ void __fastcall TMainFrameDlg::ButtonTitleNextClick( TObject *Sender )
}
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::ButtonChapterPrevClick( TObject *Sender )
void __fastcall TMainFrameDlg::PrevChapterActionExecute( TObject *Sender )
{
intf_thread_t * p_intf = p_intfGlobal;
input_area_t * p_area;
......@@ -526,7 +426,7 @@ void __fastcall TMainFrameDlg::ButtonChapterPrevClick( TObject *Sender )
}
}
//---------------------------------------------------------------------------
void __fastcall TMainFrameDlg::ButtonChapterNextClick( TObject *Sender )
void __fastcall TMainFrameDlg::NextChapterActionExecute( TObject *Sender )
{
intf_thread_t * p_intf = p_intfGlobal;
input_area_t * p_area;
......@@ -685,15 +585,12 @@ void __fastcall TMainFrameDlg::ModeManage()
/* set control items */
ToolButtonBack->Enabled = false;
ToolButtonStop->Enabled = true;
ToolButtonEject->Enabled = !b_control;
ToolButtonPause->Enabled = b_control;
ToolButtonSlow->Enabled = b_control;
ToolButtonFast->Enabled = b_control;
StopAction->Enabled = true;
PauseAction->Enabled = b_control;
SlowAction->Enabled = b_control;
FastAction->Enabled = b_control;
PopupBack->Enabled = false;
PopupPause->Enabled = b_control;
PopupSlow->Enabled = b_control;
PopupFast->Enabled = b_control;
}
//---------------------------------------------------------------------------
......
object MainFrameDlg: TMainFrameDlg
Left = 314
Top = 198
Left = 179
Top = 442
Width = 541
Height = 306
BorderIcons = [biSystemMenu, biMinimize]
......@@ -153,26 +153,17 @@ object MainFrameDlg: TMainFrameDlg
object ToolButtonFile: TToolButton
Left = 0
Top = 0
Hint = 'Open a file'
Caption = 'File'
ImageIndex = 0
OnClick = ToolButtonFileClick
Action = OpenFileAction
end
object ToolButtonDisc: TToolButton
Left = 39
Top = 0
Hint = 'Open a DVD or VCD'
Caption = 'Disc'
ImageIndex = 1
OnClick = ToolButtonDiscClick
Action = OpenDiscAction
end
object ToolButtonNet: TToolButton
Left = 78
Top = 0
Hint = 'Open a network stream'
Caption = 'Net'
ImageIndex = 2
OnClick = ToolButtonNetClick
Action = NetworkStreamAction
end
object ToolButtonSep1: TToolButton
Left = 117
......@@ -185,45 +176,27 @@ object MainFrameDlg: TMainFrameDlg
object ToolButtonBack: TToolButton
Left = 125
Top = 0
Caption = 'Back'
Enabled = False
ImageIndex = 3
OnClick = ToolButtonBackClick
Action = BackAction
end
object ToolButtonPlay: TToolButton
Left = 164
Top = 0
Hint = 'Play stream'
Caption = 'Play'
ImageIndex = 5
OnClick = ToolButtonPlayClick
Action = PlayAction
end
object ToolButtonPause: TToolButton
Left = 203
Top = 0
Hint = 'Pause stream'
Caption = 'Pause'
Enabled = False
ImageIndex = 6
OnClick = ToolButtonPauseClick
Action = PauseAction
end
object ToolButtonStop: TToolButton
Left = 242
Top = 0
Hint = 'Stop stream'
Caption = 'Stop'
Enabled = False
ImageIndex = 4
OnClick = ToolButtonStopClick
Action = StopAction
end
object ToolButtonEject: TToolButton
Left = 281
Top = 0
Hint = 'Eject disc'
Caption = 'Eject'
Enabled = False
ImageIndex = 7
OnClick = ToolButtonEjectClick
Action = EjectAction
end
object ToolButton1: TToolButton
Left = 320
......@@ -236,20 +209,12 @@ object MainFrameDlg: TMainFrameDlg
object ToolButtonSlow: TToolButton
Left = 328
Top = 0
Hint = 'Play slower'
Caption = 'Slow'
Enabled = False
ImageIndex = 8
OnClick = ToolButtonSlowClick
Action = SlowAction
end
object ToolButtonFast: TToolButton
Left = 367
Top = 0
Hint = 'Play faster'
Caption = 'Fast'
Enabled = False
ImageIndex = 9
OnClick = ToolButtonFastClick
Action = FastAction
end
object ToolButtonSep2: TToolButton
Left = 406
......@@ -262,27 +227,18 @@ object MainFrameDlg: TMainFrameDlg
object ToolButtonPlaylist: TToolButton
Left = 414
Top = 0
Hint = 'Open playlist'
Caption = 'Playlist'
ImageIndex = 10
Action = PlaylistAction
Style = tbsCheck
OnClick = ToolButtonPlaylistClick
end
object ToolButtonPrev: TToolButton
Left = 453
Top = 0
Hint = 'Previous file'
Caption = 'Prev'
ImageIndex = 11
OnClick = ToolButtonPrevClick
Action = PreviousAction
end
object ToolButtonNext: TToolButton
Left = 492
Top = 0
Hint = 'Next file'
Caption = 'Next'
ImageIndex = 12
OnClick = ToolButtonNextClick
Action = NextAction
end
end
object StatusBar: TStatusBar
......@@ -403,40 +359,32 @@ object MainFrameDlg: TMainFrameDlg
Top = 8
Width = 33
Height = 19
Hint = 'Jump to previous title'
Caption = 'Prev'
Action = PrevTitleAction
TabOrder = 0
OnClick = ButtonTitlePrevClick
end
object ButtonTitleNext: TButton
Left = 184
Top = 8
Width = 33
Height = 19
Hint = 'Jump to next title'
Caption = 'Next'
Action = NextTitleAction
TabOrder = 1
OnClick = ButtonTitleNextClick
end
object ButtonChapterPrev: TButton
Left = 368
Top = 8
Width = 33
Height = 19
Hint = 'Jump to previous chapter'
Caption = 'Prev'
Action = PrevChapterAction
TabOrder = 2
OnClick = ButtonChapterPrevClick
end
object ButtonChapterNext: TButton
Left = 400
Top = 8
Width = 33
Height = 19
Hint = 'Jump to next chapter'
Caption = 'Next'
Action = NextChapterAction
TabOrder = 3
OnClick = ButtonChapterNextClick
end
end
object GroupBoxSlider: TGroupBox
......@@ -471,41 +419,30 @@ object MainFrameDlg: TMainFrameDlg
object MenuFile: TMenuItem
Caption = '&File'
object MenuOpenFile: TMenuItem
Caption = '&Open file...'
Hint = 'Open a file'
ShortCut = 114
OnClick = MenuOpenFileClick
Action = OpenFileAction
Caption = 'Open &file...'
end
object MenuOpenDisc: TMenuItem
Action = OpenDiscAction
Caption = 'Open &disc...'
Hint = 'Open a DVD or VCD'
ShortCut = 115
OnClick = MenuOpenDiscClick
end
object MenuNetworkStream: TMenuItem
Action = NetworkStreamAction
Caption = '&Network stream...'
Hint = 'Select a network stream'
ShortCut = 116
OnClick = MenuNetworkStreamClick
end
object N8: TMenuItem
Caption = '-'
Visible = False
end
object MenuEjectDisc: TMenuItem
Caption = '&Eject Disc'
Hint = 'Eject disc'
Visible = False
OnClick = ToolButtonEjectClick
Action = EjectAction
Caption = '&Eject disc'
end
object N1: TMenuItem
Caption = '-'
end
object MenuExit: TMenuItem
Caption = 'E&xit'
Hint = 'Exit the program'
ShortCut = 16465
OnClick = MenuExitClick
Action = ExitAction
end
end
object MenuView: TMenuItem
......@@ -516,9 +453,7 @@ object MainFrameDlg: TMainFrameDlg
OnClick = MenuHideinterfaceClick
end
object MenuFullscreen: TMenuItem
Caption = '&Fullscreen'
Hint = 'Toggle fullscreen'
OnClick = MenuFullscreenClick
Action = FullscreenAction
end
object N2: TMenuItem
Caption = '-'
......@@ -547,19 +482,11 @@ object MainFrameDlg: TMainFrameDlg
Caption = '-'
end
object MenuPlaylist: TMenuItem
Action = PlaylistAction
Caption = '&Playlist...'
Hint = 'Open the playlist window'
OnClick = MenuPlaylistClick
end
object MenuModules: TMenuItem
Caption = '&Modules...'
Enabled = False
Hint = 'Open the modules window'
end
object MenuMessages: TMenuItem
Caption = 'Me&ssages...'
Hint = 'Open the messages window'
OnClick = MenuMessagesClick
Action = MessagesAction
end
end
object MenuSettings: TMenuItem
......@@ -578,17 +505,13 @@ object MainFrameDlg: TMainFrameDlg
Caption = '-'
end
object MenuPreferences: TMenuItem
Caption = '&Preferences...'
Hint = 'Configure the application'
OnClick = MenuPreferencesClick
Action = PreferencesAction
end
end
object MenuHelp: TMenuItem
Caption = '&Help'
object MenuAbout: TMenuItem
Caption = '&About...'
Hint = 'About this application'
OnClick = MenuAboutClick
Action = AboutAction
end
end
end
......@@ -2334,100 +2257,96 @@ object MainFrameDlg: TMainFrameDlg
Caption = '&Close this popup'
OnClick = PopupCloseClick
end
object N9: TMenuItem
Caption = '-'
end
object PopupPlay: TMenuItem
Caption = '&Play'
OnClick = PopupPlayClick
end
object PopupPause: TMenuItem
Caption = 'Pause'
OnClick = PopupPauseClick
end
object PopupStop: TMenuItem
Caption = 'Stop'
OnClick = PopupStopClick
end
object PopupBack: TMenuItem
Caption = 'Back'
OnClick = PopupBackClick
end
object PopupSlow: TMenuItem
Caption = 'Slow'
OnClick = PopupSlowClick
end
object PopupFast: TMenuItem
Caption = 'Fast'
OnClick = PopupFastClick
end
object N5: TMenuItem
Caption = '-'
end
object PopupToggleInterface: TMenuItem
Caption = 'Toggle &Interface'
Caption = '&Toggle interface'
OnClick = PopupToggleInterfaceClick
end
object PopupFullscreen: TMenuItem
Caption = '&Fullscreen'
OnClick = PopupFullscreenClick
end
object N6: TMenuItem
object N9: TMenuItem
Caption = '-'
end
object PopupNext: TMenuItem
Caption = 'Next'
OnClick = PopupNextClick
end
object PopupPrev: TMenuItem
Caption = 'Prev'
OnClick = PopupPrevClick
object Control1: TMenuItem
Caption = 'Control'
object PopupBack: TMenuItem
Action = BackAction
end
object PopupPlay: TMenuItem
Action = PlayAction
end
object PopupPause: TMenuItem
Action = PauseAction
end
object PopupStop: TMenuItem
Action = StopAction
end
object PopupSlow: TMenuItem
Action = SlowAction
end
object PopupFast: TMenuItem
Action = FastAction
end
object N5: TMenuItem
Caption = '-'
end
object PopupPrev: TMenuItem
Action = PreviousAction
end
object PopupNext: TMenuItem
Action = NextAction
end
object PopupJump: TMenuItem
Caption = '&Jump...'
OnClick = PopupJumpClick
end
object N6: TMenuItem
Caption = '-'
end
object PopupFullscreen: TMenuItem
Action = FullscreenAction
ShortCut = 70
end
end
object PopupJump: TMenuItem
Caption = '&Jump...'