IwaoDev

コンソール AP で，レジストリを読み取るために以下の様な関数を用意した．

　　int Reg_GetInt (HKEY hKey,LPCTSTR subKey,LPCTSTR ent,const int defValue=0)
　　{
　　　　 DWORD value = defValue ;
　　#ifdef _ATL_VER
　　　　 {
　　　　　　 CRegKey reg ;
　　　　　　 reg.Open(hKey,subKey) ;
　　　　 #if (_ATL_VER >= 0x700)
　　　　　　 reg.QueryDWORDValue(ent,value) ;
　　　　 #else
　　　　　　 reg.QueryValue(value,ent) ;
　　　　 #endif
　　　　　　 }
　　#else
　　　　 {
　　　　　　 HKEY hSecKey = NULL ;
　　　　　　 LONG openStatus = ::RegOpenKeyEx(hKey,subKey,0,KEY_READ,&hSecKey) ;
　　　　　　 if (hSecKey == NULL) { return value ; }
　　　　　　 DWORD type = REG_NONE ;
　　　　　　 DWORD count = sizeof(DWORD) ;
　　　　　　 LONG queryStatus = ::RegQueryValueEx(hSecKey,ent,NULL,&type,(LPBYTE)&value,&count) ;
　　　　　　 ::RegCloseKey(hSecKey) ;
　　　　　　 }
　　#endif
　　　　 return int(value) ;
　　　　 }
＊::Reg～ などのエラーチェックは省いている．
呼出すのはこんな感じ．
　　int value = ::Reg_GetInt(HKEY_CURRENT_USER,_T(“Software\\Iwao\\Test\\RegAcc”),_T(“T_RegKey_DW”)) ;

CWinApp::GetProfileInt などが使えないかとやってみたが，…
1. AfxGetApp() を呼びだしても，NULL で戻ってくる．
　　次の様に領域を確保．
　　　　CWinApp theApp;
2. SetRegistryKey(key) が直接呼びだせないので，
　　class C_SRK_WinApp : public CWinApp {
　　public:
　　　　　　 void SetRegKey (LPCTSTR key) { SetRegistryKey(key) ; }
　　　　 } ;
　　変数の確保は次の様に変更．
　　　　C_SRK_WinApp theApp ;
3. SetRegistryKey の中で ASSERT(m_pszAppName != NULL)
　　以下を追加して，CWinApp を初期化．
　　　　 AfxWinInit(::GetModuleHandle(NULL), NULL, ::GetCommandLine(), 0) ;
4. これで CWinApp::GetProfileInt は利用できるようになるが，CWinApp::m_pszProfileName が邪魔．
　　 C_SRK_WinApp* app = (C_SRK_WinApp*)AfxGetApp() ;
　　 int val = app->GetProfileInt(_T(“Test\\RegAcc”),_T(“T_RegKey_DW”),0) ;
　　HKCU\Software\Iwao\(m_pszProfileName)\Test\RegAcc となってしまう．
5. m_pszProfileName を _T(“”) とすることにより，意図した値を取得できる様にはなった．
　　 C_SRK_WinApp* app = (C_SRK_WinApp*)AfxGetApp() ;
　　 if (app != NULL) {
　　　　 AfxWinInit(::GetModuleHandle(NULL), NULL, ::GetCommandLine(), 0) ;
　　　　 app->SetRegKey(_T(“Iwao”)) ;
　　　　 free((void*)app->m_pszProfileName) ;
　　　　 app->m_pszProfileName = _tcsdup(_T(“”)) ;
　　　　 int val = app->GetProfileInt(_T(“Test\\RegAcc”),_T(“T_RegKey_DW”),0) ;
　　　　 }

コンソール AP で CWinApp::GetProfileInt などを使うことは，やめ．

以前 DoDragDrop で少し調べたが，その時は途中になっていた．
その時の内容で，例えば CListBox に表示されてるファイルリストのすべてを，CListBox の外側でドラッグするすることはできる．
　　void CDragLBDlg::OnLButtonDown(UINT nFlags, CPoint point)
　　{
　　　　CStringArray sa ;
　　　　::ToStringArray(FileNames,&sa) ;
　　　　::StringArrayToDoDragFiles(sa) ;
　　　　}

CListCtrl であれば，OnBegindragXxxx が利用できるので，
　　void CDragLVDlg::OnBegindragListFiles(NMHDR* pNMHDR, LRESULT* pResult)
　　{
　　　　NM_LISTVIEW* pNMListView = (NM_LISTVIEW*)pNMHDR;
　　　　{
　　　　　　CStringArray sa ;
　　　　　　for (int index=0 ; index<m_ListFiles.GetItemCount() ; index++) {
　　　　　　　　if (m_ListFiles.GetItemState(index,LVIS_SELECTED) == LVIS_SELECTED) {
　　　　　　　　　　tstring str = FileNames[index] ;
　　　　　　　　　　sa.Add(str.c_str()) ;
　　　　　　　　　　}
　　　　　　　　}
　　　　　　if (sa.GetSize() > 0) {
　　　　　　　　::StringArrayToDoDragFiles(sa) ;
　　　　　　　　}
　　　　　　}
　　　　*pResult = 0;
　　　　}

今回やりたかったのは，CListBox の項目のドラッグ．
ドラッグ部分は CListCtrl とほぼ同様となると思われるが，ドラッグ開始のタイミングが取れない．
CDragListBox と開始時の動きは似ているが，MFC のコードを見るとちょっと難しそう．
いろいろと検索すると，CListBox のサブクラス化で対応するみたいとわかったが，手順が．．．
動的なサブクラス化と言うらしい．
Inside Visual C++ には，囲み記事に CNonNumericEdit がある．
利用する手順はわかるが，作成する手順がわからない
今も利用はしている CView からの VXxxxView ファミリがあるが，10 年以上前で手順は覚えてない．

いろいろ探して「MFC クラスウィザード」を利用することがわかった．
今まで，よく見ていたダイアログなのに．．．

後は，WM_LBUTTONDOWN を処理する様にして，
　　void CMyListBox::OnLButtonDown(UINT nFlags, CPoint point)
　　{
　　　　CListBox::OnLButtonDown(nFlags, point);
　　　　int sel = GetCurSel() ;
　　　　if (sel == LB_ERR) { return ; }
　　　　CString str ;
　　　　GetText(sel,str) ;
　　　　CStringArray sa ;
　　　　sa.Add(str) ;
　　　　::StringArrayToDoDragFiles(sa) ;
　　　　}
ダイアログに追加したリスボックスで，これを利用する様にダイアログのヘッダを修正．

MSDN CTRLTEST サンプル
テクニカル ノート 14
標準コントロールからのコントロールの派生
[MSVC] MFCを使用しての動的サブクラス化
Create Client Windows, Drag and Drop Between Listboxes

2014/08/11 追記
COleDataSource を利用して，他の AP に CF_HDROP で渡そうとすると，
—————————
Microsoft Visual C++ Debug Library
—————————
Debug Assertion Failed!
Program: …Documents\Visual Studio 2010\Projects\TestVC10\Debug\T_SC.exe
File: f:\dd\vctools\vc7libs\ship\atlmfc\src\mfc\cmdtarg.cpp
Line: 43
For information on how your program can cause an assertion
failure, see the Visual C++ documentation on asserts.
(Press Retry to debug the application)
—————————
中止(A) 再試行(R) 無視(I)
—————————

COleDataSource の使い方が間違っていた．
開放する時に delete ではうまくない．
データ オブジェクトとデータ ソース : 作成と破棄

VC 7 以降，MDI AP のモードレスダイアログが独立して動作してしまう現象があった．
その AP は，VC 4 の頃作成したもので CMainFrame::OnCreate 内でモードレスダイアログを作成している．
VC 6 までは特に問題なかったが，VC 7 以降タスクバーにアイコンが 2 つ存在する状態になってしまっていた．
過去に何度か対応方法を調べたが，わからずそのままとなっていた．

今日別の事を調べていて，「モードレスダイアログで親子にならなくする」方法が目に留まった．
CDialog::Create で，デフォルトの NULL ではなく，GetDesktopWindow() を与えるというもの．
VC 7 AP のダイアログの情報を，Spy++ で見ると，親ウィンドウが （なし） になっている．
今度はデバッガで，Create の付近を追いかけると AfxGetMainWnd() で NULL がかえっている．
ThrdCore.cpp より
CWnd* CWinThread::GetMainWnd()
{
　　if (m_pActiveWnd != NULL)
　　　　return m_pActiveWnd;
　　if (m_pMainWnd != NULL)
　　　　return m_pMainWnd;
　　return CWnd::GetActiveWindow();
}

CXxxApp::InitInstance で以下の部分を修正．
　　CMainFrame* pMainFrame = new CMainFrame;
　　m_pMainWnd = pMainFrame;　　　// ここを追加
　　if (!pMainFrame->LoadFrame(IDR_MAINFRAME))
　　　　return FALSE;
　　m_pMainWnd = pMainFrame;

SDI で，MDI の「新しいウィンドウを開く」で 4 つのビューを表示した様な動作が欲しかったので，調べてみた．
動的な分割ウィンドウである程度の所まではできそう．

1. MainFrm.h の CMainFrame に以下を追加．
　　　　CSplitterWnd m_wndSplitter;
　　　　virtual BOOL OnCreateClient(LPCREATESTRUCT lpcs, CCreateContext* pContext);
2. CMainFrame::OnCreateClient の追加．
　　　　BOOL CMainFrame::OnCreateClient(LPCREATESTRUCT lpcs, CCreateContext* pContext)
　　　　{
　　　　　　{
　　　　　　　　if (!m_wndSplitter.Create(this,2, 2,CSize(10, 10), pContext,
　　　　　　　　　　　　WS_CHILD | WS_VISIBLE /* | WS_HSCROLL | WS_VSCROLL */ | SPLS_DYNAMIC_SPLIT))	{
　　　　　　　　　　TRACE0("Failed to create split bar ");
　　　　　　　　　　return FALSE;
　　　　　　　　　　}
　　　　　　　　return TRUE;
　　　　　　　　}
　　　　　　}
　　　　スクロールバーを付加したくなかったので，6 つ目のウィンドウスタイルを変更している．
テスト用に分割動作をコマンドとして実装．
　　　　void CMainFrame::OnSplit() 
　　　　{
　　　　　　if (IsSplit)	{
　　　　　　　　if (m_wndSplitter.GetColumnCount() > 1) {	m_wndSplitter.DeleteColumn(1) ;	}
　　　　　　　　if (m_wndSplitter.GetRowCount() > 1) {     	m_wndSplitter.DeleteRow   (1) ;	}
　　　　　　　　IsSplit = !IsSplit ;
　　　　　　　　}
　　　　　　else {
　　　　　　　　CRect	rect ;
　　　　　　　　m_wndSplitter.GetClientRect(&rect) ;
　　　　　　　　if (m_wndSplitter.GetColumnCount() == 1) {	m_wndSplitter.SplitColumn(rect.Width ()/2) ; }
　　　　　　　　if (m_wndSplitter.GetRowCount() == 1) {		m_wndSplitter.SplitRow   (rect.Height()/2) ; }
　　　　　　　　IsSplit = !IsSplit ;
　　　　　　　　}
　　　　　　}

2 x 2 の分割ウィンドウのコントロールの ID (Spy++ で確認)
　　左上(0,0)　　E900　　AFX_IDW_PANE_FIRST
　　右上(0,1)　　E901
　　左下(1,0)　　E910
　　右下(1,1)　　E911

ビューの OnDraw を以下の様に書き換えると

　　void CSpltWView::OnDraw(CDC* pDC)
　　{
　　　　int		row = -1 ;
　　　　int		clm = -1 ;
　　　　CMainFrame*		mw = (CMainFrame*)AfxGetMainWnd() ;
　　　　CSplitterWnd*	sw = &mw->m_wndSplitter ;
　　　　CString			str ;
　　　　if (sw->IsChildPane(this,&row,&clm)) {
　　　　　　int	id = sw->IdFromRowCol(row,clm) ;
　　　　　　CString	tmp1 ;	tmp1.Format(_T("row = %d  ,  clm = %d"),row,clm) ;
　　　　　　CString	tmp2 ;	tmp2.Format(_T("IdFromRowCol = %04X"),	id) ;
　　　　　　str += tmp1 + _T("\r\n") ;
　　　　　　str += tmp2 + _T("\r\n") ;
　　　　　　}
　　　　{
　　　　　　UINT	nID = GetDlgCtrlID() ;
　　　　　　CString	tmp ;	tmp.Format(_T("GetDlgCtrlID  = %04X"),nID) ;
　　　　　　str += tmp + _T("\r\n") ;
　　　　　　}
　　　　{
　　　　　　CWnd*	pw = GetParent() ;
　　　　　　CString	tmp1 ;	tmp1.Format(_T("Splitter = %08x "),sw->GetSafeHwnd()) ;
　　　　　　CString	tmp2 ;	tmp2.Format(_T("Parent  = %08x "),pw->GetSafeHwnd()) ;
　　　　　　str += tmp1 + _T("\r\n") ;
　　　　　　str += tmp2 + _T("\r\n") ;
　　　　　　}
　　　　CRect	rect ;
　　　　GetClientRect(rect) ;
　　　　rect.top = rect.left = 10 ;
　　　　pDC->DrawText(str,rect,0) ;
　　　　}

MFC の ソースを眺めていると CView::GetParentSplitter があったので，間接的にはそれを使えば良さそう．

ビューでどの位置かを求めるだけなら，
　　　　short	texNo = 0 ;
　　　　{
　　　　　　UINT	nID = GetDlgCtrlID() ;
　　　　　　switch	(nID)	{
　　　　　　　　case	AFX_IDW_PANE_FIRST + 0x00 :	texNo = 1 ;		break ;
　　　　　　　　case	AFX_IDW_PANE_FIRST + 0x01 :	texNo = 2 ;		break ;
　　　　　　　　case	AFX_IDW_PANE_FIRST + 0x10 :	texNo = 3 ;		break ;
　　　　　　　　case	AFX_IDW_PANE_FIRST + 0x11 :	texNo = 4 ;		break ;
　　　　　　　　}
　　　　　　}