//--------------------------------------------------------------------------- __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); }