//---------------------------------------------------------------------------
__fastcall TScpExplorerForm::TScpExplorerForm(TComponent* Owner)
: TCustomScpExplorerForm(Owner)
{
UnixPathComboBox->Images = FSystemImageList;
UnixPathComboBox->SubMenuImages = UnixPathComboBox->Images;
BackButton->LinkSubitems = HistoryMenu(osRemote, true)->Items;
ForwardButton->LinkSubitems = HistoryMenu(osRemote, false)->Items;
TopDock->PopupMenu = NonVisualDataModule->ExplorerBarPopup;
RemoteStatusBar->PopupMenu = TopDock->PopupMenu;
QueueDock->PopupMenu = TopDock->PopupMenu;
QueueLabel->PopupMenu = TopDock->PopupMenu;
RemoteDriveView->PopupMenu = TopDock->PopupMenu;
BottomDock->PopupMenu = TopDock->PopupMenu;
LeftDock->PopupMenu = TopDock->PopupMenu;
RightDock->PopupMenu = TopDock->PopupMenu;
reinterpret_cast<TLabel*>(RemotePanelSplitter)->OnDblClick = RemotePanelSplitterDblClick;
QueuePanel->Parent = RemotePanel;
QueueSplitter->Parent = RemotePanel;
// set common explorer shorcuts to our actions
NonVisualDataModule->ExplorerShortcuts();
NonVisualDataModule->QueueSpeedComboBoxItem(QueueSpeedComboBoxItem);
}
int History::Select(const wchar_t *Title, const wchar_t *HelpTopic, string &strStr, int &Type)
{
int Height=ScrY-8;
VMenu HistoryMenu(Title,nullptr,0,Height);
HistoryMenu.SetFlags(VMENU_SHOWAMPERSAND|VMENU_WRAPMODE);
if (HelpTopic)
HistoryMenu.SetHelp(HelpTopic);
HistoryMenu.SetPosition(-1,-1,0,0);
HistoryMenu.AssignHighlights(TRUE);
return ProcessMenu(strStr, Title, HistoryMenu, Height, Type, nullptr);
}
