Context Navigation

source: dev/trunk/ab5.0/abdev/abdev/src/MainFrame.cpp@ 705

Last change on this file since 705 was 705, checked in by イグトランス (egtra), 16 years ago
ファイルハンドルが解放されず困ることがあるのでCHandleへ入れた。
File size: 46.3 KB

Line
1	#include "stdafx.h"
2
3	using namespace ActiveBasic::IDE;
4	using namespace ActiveBasic::IDE::WindowComponents;
5
6	LRESULT CALLBACK WindowFunc(HWND hwnd,UINT message,WPARAM wParam,LPARAM lParam);
7	void SetupWindow(HWND hwnd);
8	void ResetTextEditFont(HWND hwnd);
9
10	void MainFrame::Resized()
11	{
12	int width_owner,height_owner;
13	int height_Rebar;
14	int height_MdiClient;
15	RECT rect,StatusRect,RebarRect;
16
17	this->GetClientRect( &rect );
18	width_owner=rect.right;
19	height_owner=rect.bottom;
20
21	//Rebar
22	SendMessage(pobj_Rebar->hRebar,WM_SIZE,0,MAKELONG(width_owner,height_owner));
23	::UpdateWindow(pobj_Rebar->hRebar);
24
25	//Status bar
26	#define STATUSBAR_PARTS_NUM 5
27	int sb_size[STATUSBAR_PARTS_NUM];
28	sb_size[0]=width_owner-340;
29	sb_size[1]=width_owner-220;
30	sb_size[2]=width_owner-120;
31	sb_size[3]=width_owner-50;
32	sb_size[4]=width_owner;
33	extern HWND hStatusBar;
34	::SendMessage(hStatusBar,SB_SETPARTS,STATUSBAR_PARTS_NUM,(LPARAM)sb_size);
35	::SendMessage(hStatusBar,WM_SIZE,0,MAKELONG(width_owner,height_owner));
36	::UpdateWindow(hStatusBar);
37
38	//Status bar
39	int height_Statusbar;
40	SendMessage(hStatusBar,SB_GETRECT,0,(long)&StatusRect);
41	height_Statusbar=StatusRect.bottom;
42
43	::GetWindowRect(pobj_Rebar->hRebar,&RebarRect);
44	height_Rebar=RebarRect.bottom-RebarRect.top+2;
45
46	int height_dv; //Width of Debugger View
47	int height_cv; //Width of Compiler View
48	height_dv=0;
49	height_cv=0;
50	#ifndef THETEXT
51	extern BOOL bClipCompileView;
52	if(bClipCompileView){
53	if(pobj_Debugger->IsDebuggerView()){
54	//デバッガビューが表示されているとき
55	height_dv=pobj_nv->height_ClipDebuggerView+LEVER_THICK;
56	}
57
58	extern HWND hCompileView;
59	if(hCompileView){
60	//コンパイラビューが表示されているとき
61	height_cv=pobj_nv->height_ClipCompileView+LEVER_THICK;
62	}
63	}
64	#endif
65
66	int width_pjv=0; //Width of Project View
67	if(pobj_nv->bClipProjectView){
68	extern HWND hProjectView;
69	if(::IsWindowVisible(hProjectView)){
70	//プロジェクトビューが表示されているとき
71	width_pjv=pobj_nv->width_ClipProjectView+LEVER_THICK;
72	}
73	}
74
75	int width_SideWeb=0;
76	if( pobj_SideWeb )
77	{
78	if(pobj_SideWeb->bShow){
79	width_SideWeb=pobj_nv->width_WebSearchView+LEVER_THICK;
80	}
81	}
82
83	//MDIクライアントの高さ
84	height_MdiClient=height_owner-(
85	height_Rebar+
86	height_dv+
87	height_cv+
88	height_Statusbar
89	);
90
91	//タブコントロール
92	int tab_height;
93	if(TabCtrl_GetItemCount(pobj_MainTab->hTab)==0) tab_height=0;
94	else{
95	RECT rc;
96	TabCtrl_GetItemRect(pobj_MainTab->hTab,0,&rc);
97	tab_height=rc.bottom-rc.top;
98	}
99	::MoveWindow(pobj_MainTab->hTab,
100	width_pjv,
101	height_Rebar,
102	width_owner-width_pjv-width_SideWeb,
103	tab_height,
104	1);
105
106	//MDIクライアント
107	::MoveWindow(
108	hClient,
109	width_pjv,
110	height_Rebar+tab_height,
111	width_owner-width_pjv-width_SideWeb,
112	height_MdiClient-tab_height,
113	1
114	);
115
116	if( pobj_SideWeb )
117	{
118	if(pobj_SideWeb->bShow){
119	//SideWeb
120	pobj_SideWeb->resize(
121	width_owner - pobj_nv->width_WebSearchView,
122	height_Rebar,
123	pobj_nv->width_WebSearchView,
124	height_MdiClient);
125	}
126	else pobj_SideWeb->resize(0,0,0,0);
127	}
128
129	if(width_pjv){
130	//プロジェクトビュー
131	extern HWND hProjectView;
132	::MoveWindow(hProjectView,
133	0,
134	height_Rebar,
135	pobj_nv->width_ClipProjectView,
136	height_MdiClient,
137	1);
138	::InvalidateRect(hProjectView,NULL,0);
139	}
140
141	if(height_dv){
142	#ifndef THETEXT
143	//デバッガビュー
144	pobj_Debugger->resize(
145	0,
146	height_Rebar+height_MdiClient+LEVER_THICK,
147	width_owner,
148	pobj_nv->height_ClipDebuggerView);
149	#endif
150	}
151	if(height_cv){
152	//コンパイラビュー
153	extern HWND hCompileView;
154	::MoveWindow(hCompileView,
155	0,
156	height_Rebar+height_MdiClient+height_dv+LEVER_THICK,
157	width_owner,
158	pobj_nv->height_ClipCompileView,
159	1);
160	}
161	}
162
163	void MainFrame::OpenWebBrowser( const std::string &url )
164	{
165	ShellExecute(m_hWnd,"open",url.c_str(),"",NULL,SW_SHOWNORMAL);
166	}
167
168	void MainFrame::OpenExplorer( const std::string &path )
169	{
170	ShellExecute(m_hWnd,"explore",path.c_str(),NULL,NULL,SW_SHOWNORMAL);
171	}
172
173	::LRESULT MainFrame::OnCreate( ::CREATESTRUCT const* )
174	{
175	// ウィンドウエリアマネージャに親ウィンドウを登録
176	wam.SetParentWnd( m_hWnd );
177
178	RECT rect;
179	GetClientRect( &rect );
180
181	// MDIベースを作成
182	// フレームウィンドウのビューウィンドウを作成
183	int indexOfWindowSubMenu = pobj_MainMenu->FindSubMenuIndex( "ウィンドウ(&W)" );
184	HMENU hWindowSubMenu = NULL;
185	if( indexOfWindowSubMenu != -1 )
186	{
187	hWindowSubMenu = GetSubMenu( pobj_MainMenu->hMenu, indexOfWindowSubMenu );
188	}
189	CreateMDIClient( hWindowSubMenu );
190	wam.AddMdiClientWindow( m_hWndClient );
191
192	// TODO: hClientを廃止し、m_hWndClientに統一すること
193	extern HWND hClient;
194	hClient = m_hWndClient;
195
196	// メッセージループにメッセージフィルタとアイドルハンドラを追加
197	CMessageLoop* pLoop = Program::_Module.GetMessageLoop();
198	pLoop->AddMessageFilter(this);
199	pLoop->AddIdleHandler(this);
200
201
202
203
204
205	extern HWND hOwner;
206	hOwner = m_hWnd;
207	extern WNDPROC oldMainFrameWndProc;
208	oldMainFrameWndProc = (WNDPROC)::GetWindowLong( hOwner, GWL_WNDPROC );
209	::SetWindowLongPtr( hOwner, GWL_WNDPROC, reinterpret_cast<LONG_PTR>(WindowFunc) );
210
211	SetupWindow(hOwner);
212
213	//テキストエディタフォント設定
214	ResetTextEditFont(hOwner);
215
216
217
218	return 0;
219	}
220
221	void MainFrame::OnSize(UINT nType, CSize size)
222	{
223	this->Resized();
224	}
225
226	BOOL MainFrame::OnQueryEndSession(UINT nSource, UINT uLogOff)
227	{
228	OnClose();
229
230	return TRUE;
231	}
232
233	void MainFrame::OnClose()
234	{
235	extern BOOL bSearchingClasses;
236	if(bSearchingClasses){
237	pobj_ClassTreeView->bCloseSwitch=1;
238	return;
239	}
240
241	//コンパイラビューを閉じる
242	extern HWND hCompileView;
243	if( hCompileView && ::IsWindow( hCompileView ) )
244	{
245	SendMessage(hCompileView,WM_COMMAND,IDCANCEL,0);
246	}
247
248	//次回起動時にMDIウィンドウを最大化させるかを判定
249	HWND hChild=::GetWindow(hClient,GW_CHILD);
250	pobj_nv->bMDIZoomed=::IsZoomed(hChild);
251
252	//プロジェクトを閉じる
253	if( projectInfo.IsOpened() ){
254	if(!projectInfo.Close()) return;
255	}
256
257	//MDIウィンドウの保存確認
258	hChild=::GetWindow(hClient,GW_CHILD);
259	while(hChild){
260	if(!DocumentModifyCheck(hChild)) return;
261	hChild=::GetNextWindow(hChild,GW_HWNDNEXT);
262	}
263
264
265	KillTimer(ID_TIMER_BACKUP);
266
267
268	//ProjectViewの位置を保存、ProjectViewを破棄
269	extern HWND hProjectView;
270	extern HWND hProjectView_ToolWindow;
271	::GetWindowRect(hProjectView_ToolWindow,&pobj_nv->rectProjectView);
272	::DestroyWindow(hProjectView);
273	::DestroyWindow(hProjectView_ToolWindow);
274
275	//Rebarの位置を保存、Rebarを破棄
276	delete pobj_Rebar;
277	pobj_Rebar=0;
278
279	//タブコントロールを破棄
280	delete pobj_MainTab;
281	pobj_MainTab=0;
282
283	//SideWebを破棄
284	delete pobj_SideWeb;
285	pobj_SideWeb=0;
286
287	//メインウィンドウの最大化有無、座標を保存
288	if(IsZoomed()) pobj_nv->bWindowMax=1;
289	else if(!IsIconic()){
290	pobj_nv->bWindowMax=0;
291	GetWindowRect(&pobj_nv->StartupWindowRect);
292	}
293
294	hChild=::GetWindow(hClient,GW_CHILD);
295	while(hChild){
296	CloseDocWindow(GetWndNum(hChild));
297	::DestroyWindow(hChild);
298	hChild=::GetWindow(hClient,GW_CHILD);
299	}
300
301	EndProjectEditor(); //ProjectEditorの情報を保存
302
303	//エディタ用フォントを破棄
304	extern HFONT hFont_TextEdit,hFont_HyperLink_TextEdit;
305	if(hFont_TextEdit) DeleteObject(hFont_TextEdit);
306	if(hFont_HyperLink_TextEdit) DeleteObject(hFont_HyperLink_TextEdit);
307
308	DestroyWindow();
309	}
310	void MainFrame::OnDestroy()
311	{
312	::PostQuitMessage( 0 );
313	}
314
315	void backup(void *dummy);
316	void MainFrame::OnTimer( UINT_PTR id )
317	{
318	switch( id )
319	{
320	case ID_TIMER_BACKUP:
321	_beginthread( backup, 0, 0 );
322	break;
323
324	#ifndef THETEXT
325	case ID_DEBUGSAFTY:
326	{
327	//BasicCompiler.exeが強制終了しているかどうかを検証
328	extern CDebugger *pobj_Debugger;
329	pobj_Debugger->SaftyCheck();
330	break;
331	}
332	#endif
333	}
334	}
335
336	void ResetState_EditMenu(void);
337	void MainFrame::OnDrawClipboard()
338	{
339	ResetState_EditMenu();
340	}
341
342	void MenuAdvice(WPARAM msg);
343	void MainFrame::OnMenuSelect( UINT nItemID, UINT nFlags, HMENU menu )
344	{
345	MenuAdvice( nItemID );
346	}
347
348	void MainFrame::OnInitMenu( HMENU menu )
349	{
350	extern CNonVolatile *pobj_nv;
351	extern CSubMenuEx *pobj_FileHistoryMenu;
352	pobj_nv->pobj_History->ResetFileMenu(pobj_FileHistoryMenu,1);
353	#ifndef THETEXT
354	extern CSubMenuEx *pobj_ProjectHistoryMenu;
355	pobj_nv->pobj_ProjectHistory->ResetFileMenu(pobj_ProjectHistoryMenu,0);
356	#endif
357	}
358
359	void MainFrame::OnMeasureItem( int nIDCtl, LPMEASUREITEMSTRUCT lpMI )
360	{
361	if(lpMI->CtlType==ODT_MENU){
362	SIZE size;
363	CMenuItemData *pobj_MenuItemData;
364	pobj_MenuItemData=(CMenuItemData *)lpMI->itemData;
365	if(pobj_MenuItemData->pobj_ThisMenu->hMenu==pobj_MainMenu->hMenu){
366	//メインメニューの親アイテム
367	pobj_MainMenu->GetItemSize(pobj_MenuItemData->item_index,&size);
368	lpMI->itemWidth = size.cx;
369	lpMI->itemHeight = size.cy;
370	}
371	else{
372	//メインメニューにぶらさがるサブメニュー
373	pobj_MenuItemData->pobj_ThisMenu->GetItemSize(pobj_MenuItemData->item_index,&size);
374	lpMI->itemWidth = size.cx;
375	lpMI->itemHeight = size.cy;
376	}
377	}
378	}
379
380	void MainFrame::OnDrawItem( int nIDCtl, LPDRAWITEMSTRUCT lpDrawItemStruct )
381	{
382	if(lpDrawItemStruct->CtlType==ODT_MENU){
383	if(!pobj_MainMenu) return;
384
385	CMenuItemData *pobj_MenuItemData;
386	pobj_MenuItemData=(CMenuItemData *)lpDrawItemStruct->itemData;
387	if(pobj_MainMenu->hMenu==pobj_MenuItemData->pobj_ThisMenu->hMenu){
388	//メインメニューの親アイテム
389	pobj_MainMenu->OwnerDrawMenu(lpDrawItemStruct->hDC,
390	&lpDrawItemStruct->rcItem,
391	(lpDrawItemStruct->itemState&ODS_SELECTED)!=0,
392	pobj_MenuItemData->item_index);
393	}
394	else{
395	//メインメニューにぶらさがるサブメニュー
396	pobj_MainMenu->OwnerDrawSubMenu(pobj_MenuItemData->pobj_ThisMenu->hMenu,
397	lpDrawItemStruct->hDC,
398	&lpDrawItemStruct->rcItem,
399	(lpDrawItemStruct->itemState&ODS_SELECTED)!=0,
400	pobj_MenuItemData->item_index);
401	}
402	}
403	}
404
405	LRESULT MainFrame::OnNotify( int idCtrl, LPNMHDR pnmh )
406	{
407	NMPGCALCSIZE *lpCalcSize;
408	NMPGSCROLL *lpScroll;
409
410	if(!pnmh) return 0;
411	LPTOOLTIPTEXT TipText=(LPTOOLTIPTEXT)pnmh;
412	if(TipText->hdr.code==TTN_NEEDTEXT) ShowToolTipText(TipText);
413
414	extern HWND hStandardToolbarPager;
415	extern HWND hDebuggerToolbarPager;
416	if(pobj_Rebar){
417	//レバーオブジェクトが存在するとき
418	if(pnmh->hwndFrom==pobj_Rebar->hRebar&&pnmh->code==RBN_HEIGHTCHANGE){
419	this->Resized();
420	return 0;
421	}
422	}
423	if(pnmh->hwndFrom==hStandardToolbarPager){
424	if(pnmh->code==PGN_CALCSIZE){
425	lpCalcSize=(LPNMPGCALCSIZE)pnmh;
426	if(lpCalcSize->dwFlag==PGF_CALCWIDTH)
427	lpCalcSize->iWidth=BMPNUM_STANDARDTOOLBAR23+SEPNUM_STANDARDTOOLBAR8;
428	}
429	else if(pnmh->code==PGN_SCROLL){
430	lpScroll=(LPNMPGSCROLL)pnmh;
431	lpScroll->iScroll=20;
432	}
433	}
434	else if(pnmh->hwndFrom==hDebuggerToolbarPager){
435	if(pnmh->code==PGN_CALCSIZE){
436	lpCalcSize=(LPNMPGCALCSIZE)pnmh;
437	if(lpCalcSize->dwFlag==PGF_CALCWIDTH)
438	lpCalcSize->iWidth=BMPNUM_DEBUGGERTOOLBAR23+SEPNUM_DEBUGGERTOOLBAR8;
439	}
440	else if(pnmh->code==PGN_SCROLL){
441	lpScroll=(LPNMPGSCROLL)pnmh;
442	lpScroll->iScroll=20;
443	}
444	}
445
446	if(pobj_MainTab){
447	if(pnmh->hwndFrom==pobj_MainTab->hTab){
448	if(pnmh->code==TCN_SELCHANGE)
449	pobj_MainTab->SelChangeEvent();
450
451	if(pnmh->code==NM_RCLICK){
452
453	TCHITTESTINFO tcHitTest;
454	GetCursorPos(&tcHitTest.pt);
455	::ScreenToClient(pobj_MainTab->hTab,&tcHitTest.pt);
456	int index = TabCtrl_HitTest(pobj_MainTab->hTab,&tcHitTest);
457	if( index == -1 ) return 0;
458
459	TabCtrl_SetCurSel(pobj_MainTab->hTab,index);
460
461	pobj_MainTab->SelChangeEvent();
462
463
464	/////////////////////
465	// メニューを表示
466	/////////////////////
467
468	HWND hChild=::GetWindow(hClient,GW_CHILD);
469	int WndNum=GetWndNum(hChild);
470
471	//保存コマンドの文字列をセット
472	char temporary[1024], temp2[1024];
473	MENUITEMINFO mii;
474	mii.cbSize=sizeof(MENUITEMINFO);
475	mii.fMask=MIIM_TYPE;
476	mii.dwTypeData=temporary;
477	mii.fType=MFT_STRING;
478	if(!MdiInfo[WndNum]->path.empty()){
479	_splitpath(MdiInfo[WndNum]->path.c_str(),NULL,NULL,temporary,temp2);
480	lstrcat(temporary,temp2);
481	lstrcat(temporary," を保存(&S)");
482	}
483	else{
484	lstrcpy(temporary,"保存(&S)");
485	}
486	extern HMENU hTabMenu;
487	SetMenuItemInfo(hTabMenu,IDM_SAVE,FALSE,&mii);
488
489	/*「絶対パスをコピー」「フォルダを開く」「ファイルを削除」
490	コマンドを場合によって無効化にする */
491	if(!MdiInfo[WndNum]->path.empty()){
492	EnableMenuItem(hTabMenu,IDM_PATH_COPY,MF_BYCOMMAND\|MF_ENABLED);
493	EnableMenuItem(hTabMenu,IDM_FOLDER_OPEN,MF_BYCOMMAND\|MF_ENABLED);
494	EnableMenuItem(hTabMenu,IDM_DELETE_FILE,MF_BYCOMMAND\|MF_ENABLED);
495	}
496	else{
497	EnableMenuItem(hTabMenu,IDM_PATH_COPY,MF_BYCOMMAND\|MF_GRAYED);
498	EnableMenuItem(hTabMenu,IDM_FOLDER_OPEN,MF_BYCOMMAND\|MF_GRAYED);
499	EnableMenuItem(hTabMenu,IDM_DELETE_FILE,MF_BYCOMMAND\|MF_GRAYED);
500	}
501
502	POINT MousePos;
503	GetCursorPos(&MousePos);
504	TrackPopupMenu(hTabMenu,TPM_LEFTALIGN\|TPM_RIGHTBUTTON,MousePos.x,MousePos.y,0,hOwner,NULL);
505	}
506	}
507	}
508	if(pobj_SideWeb){
509	if(pnmh->hwndFrom==pobj_SideWeb->hTab&&pnmh->code==TCN_SELCHANGE){
510	pobj_SideWeb->SelChangeEvent();
511	}
512	}
513
514	return 0;
515	}
516
517	void MainFrame::OnDropFiles( HDROP hDropInfo )
518	{
519	int max = DragQueryFile(hDropInfo,static_cast<DWORD>(-1),0,0);
520	for(int i=0;i<max;i++){
521	char temporary[1024];
522	DragQueryFile(hDropInfo,i,temporary,MAX_PATH);
523	OpenFileWithExtension(temporary);
524	}
525	DragFinish(hDropInfo);
526	}
527
528	void MainFrame::OnPaint( HDC )
529	{
530	PAINTSTRUCT ps;
531	HDC hdc = this->BeginPaint( &ps );
532
533	HBRUSH hBrush = CreateSolidBrush( GetSysColor( COLOR_3DFACE ) );
534
535	RECT rect;
536	this->GetClientRect( &rect );
537
538	FillRect( hdc, &rect, hBrush );
539
540	DeleteObject( hBrush );
541
542	this->EndPaint( &ps );
543	}
544
545	::LRESULT MainFrame::OnShowSourceLine( ::UINT msg, ::WPARAM wParam, ::LPARAM lParam, ::BOOL& handled )
546	{
547	char temporary[1024];
548
549	//エラー部分を反転表示
550	DWORD AccBytes;
551	{
552	sprintf(temporary,"%spgm.tmp",pj_editor_Dir);
553	ATL::CHandle fh(CreateFile(temporary,GENERIC_READ,FILE_SHARE_READ\|FILE_SHARE_WRITE,NULL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,NULL));
554	if(fh==INVALID_HANDLE_VALUE){
555	fh.Detach();
556	return 0;
557	}
558	ReadFile(fh,temporary,MAX_PATH,&AccBytes,NULL);
559	}
560	temporary[AccBytes]=0;
561	HWND hChild=::GetWindow(hClient,GW_CHILD);
562	int WndNum = -1;
563	while(hChild){
564	WndNum=GetWndNum(hChild);
565	if(IS_DOCUMENT_TEXT(MdiInfo[WndNum]->DocType)){
566	if(lstrcmpi(MdiInfo[WndNum]->path.c_str(),temporary)==0) break;
567	}
568	hChild=::GetNextWindow(hChild,GW_HWNDNEXT);
569	}
570	if(!hChild){
571	hChild=OpenFileWithExtension(temporary);
572	WndNum=GetWndNum(hChild);
573	}
574
575	if(WndNum==-1) return 0;
576
577	//ウィンドウを最前面に表示
578	::BringWindowToTop(hChild);
579	::UpdateWindow(hChild);
580
581	char *pTemp=MdiInfo[WndNum]->pMdiTextEdit->buffer;
582
583	//行の先頭インデックスを取得（取得する行の番号はwParamで渡される）
584	int i,i2;
585	for(i=0,i2=0;;i++){
586	if(i2>=(int)wParam) break;
587	if(pTemp[i]=='\0') break;
588	if(pTemp[i]=='\r'&&pTemp[i+1]=='\n'){
589	i++;
590	i2++;
591	}
592	}
593	POINT pos;
594	pos.x=i;
595
596	//行の終端インデックスを取得
597	for(;;i++){
598	if(pTemp[i]=='\0') break;
599	if(pTemp[i]=='\r'&&pTemp[i+1]=='\n') break;
600	}
601	pos.y=i;
602
603	//行を選択する
604	TextEdit_SetSel(WndNum,pos.x,pos.y,TRUE);
605
606	return 0;
607	}
608
609	void MainFrame::OnCmdNew( UINT uNotifyCode, int nID, CWindow wndCtl )
610	{
611
612	#ifdef THETEXT
613	NewTextEditWindow(NULL,WNDTYPE_TEXT);
614	return;
615	#else
616	int FileType;
617	BOOL bAddToProject;
618	char temporary[MAX_PATH];
619
620	FileType=DialogBox(hResInst,MAKEINTRESOURCE(IDD_NEWFILE),hOwner,(DLGPROC)DlgNewFile);
621	if(FileType==-1) return;
622
623	if(FileType&0x00008000){
624	bAddToProject=1;
625	FileType&=0x0FFF;
626	extern char NewFileName[MAX_PATH];
627	lstrcpy(temporary,NewFileName);
628	if(!strstr(temporary,".")) lstrcat(temporary,".ab");
629
630	lstrcpy( temporary, projectInfo.GetWorkDir().GetFullPath( temporary ).c_str() );
631	}
632	else bAddToProject=0;
633
634	switch(FileType){
635	case FT_BASICPROGRAM: //Basicプログラム
636	case FT_SUBPROGRAM:
637	if(bAddToProject){
638	WriteBuffer(temporary,0,0);
639	NewTextEditWindow(temporary,WNDTYPE_BASIC);
640	Project_File_Insert(temporary);
641	}
642	else NewTextEditWindow(NULL,WNDTYPE_BASIC);
643	break;
644
645	case FT_PROJECT:
646	DlgNewProjectWizard(hOwner);
647	break;
648
649	case FT_TEXT:
650	NewTextEditWindow(NULL,WNDTYPE_TEXT);
651	break;
652
653	case FT_HTML:
654	NewTextEditWindow(NULL,WNDTYPE_HTML);
655	break;
656
657	case FT_ICON:
658	NewIconEditWindow(NULL);
659	break;
660	}
661	#endif
662	}
663
664	void MainFrame::OnCmdOpen( UINT uNotifyCode, int nID, CWindow wndCtl )
665	{
666	//"ファイルを指定してください"
667	extern LPSTR DefFileFilter;
668	char temporary[1024];
669	if(!GetFilePathDialog(m_hWnd,temporary,DefFileFilter,STRING_FILEOPENTITLE_DEFAULT,TRUE)) return;
670
671	OpenFileWithExtension( temporary );
672	}
673
674	void MainFrame::OnCmdClose( UINT uNotifyCode, int nID, CWindow wndCtl )
675	{
676	HWND hChild=::GetWindow(hClient,GW_CHILD);
677	if(::IsWindow(hChild)) SendMessage(hChild,WM_CLOSE,0,0);
678	}
679
680	void MainFrame::OnCmdProjectOpen( UINT uNotifyCode, int nID, CWindow wndCtl )
681	{
682	//"プロジェクトファイルを指定して下さい"
683	extern LPSTR ProjectFileFilter;
684	char temporary[1024];
685	if(!GetFilePathDialog(m_hWnd,temporary,ProjectFileFilter,STRING_FILEOPENTITLE_PROJECT,TRUE))
686	{
687	return;
688	}
689
690	projectInfo.Load(temporary);
691	}
692
693	void MainFrame::OnCmdProjectSave( UINT uNotifyCode, int nID, CWindow wndCtl )
694	{
695	projectInfo.Save();
696	}
697
698	void MainFrame::OnCmdProjectClose( UINT uNotifyCode, int nID, CWindow wndCtl )
699	{
700	projectInfo.Close();
701	}
702
703	void MainFrame::OnCmdProjectFolderOpen( UINT uNotifyCode, int nID, CWindow wndCtl )
704	{
705	ShellExecute(m_hWnd,"explore",projectInfo.GetWorkDir().GetPath().c_str(),NULL,NULL,SW_SHOWNORMAL);
706	}
707
708	void MainFrame::OnCmdSave( UINT uNotifyCode, int nID, CWindow wndCtl )
709	{
710	SaveDocument(::GetWindow(hClient,GW_CHILD),NULL);
711	}
712
713	void MainFrame::OnCmdNewSave( UINT uNotifyCode, int nID, CWindow wndCtl )
714	{
715	//"保存先のファイルを指定してください"
716	extern LPSTR DefFileFilter;
717	char temporary[1024];
718	if(!GetFilePathDialog(m_hWnd,temporary,DefFileFilter,STRING_FILESAVETITLE_DEFAULT,FALSE)) return;
719
720	SaveDocument(::GetWindow(hClient,GW_CHILD),temporary);
721	}
722
723	void MainFrame::OnCmdCodeSave( UINT uNotifyCode, int nID, CWindow wndCtl )
724	{
725	//文字コードを指定して保存
726	DialogBox(hResInst,MAKEINTRESOURCE(IDD_CODE_SAVE),m_hWnd,(DLGPROC)nkfDlgCodeSave);
727	}
728
729	void MainFrame::OnCmdAllSave( UINT uNotifyCode, int nID, CWindow wndCtl )
730	{
731	for( int i=0;i<MdiInfo.size();i++){
732	if(MdiInfo[i]->hwnd) SaveDocument(MdiInfo[i]->hwnd,NULL);
733	}
734	if( projectInfo.IsOpened() )
735	{
736	projectInfo.Save();
737	}
738	}
739
740	void MainFrame::OnCmdPageSet( UINT uNotifyCode, int nID, CWindow wndCtl )
741	{
742	//ページ設定
743	obj_Page.SetupDlg();
744	}
745
746	void MainFrame::OnCmdPreview( UINT uNotifyCode, int nID, CWindow wndCtl )
747	{
748	//プレビュー（Pro版のみ）
749	Preview();
750	}
751
752	void MainFrame::OnCmdPrintOut( UINT uNotifyCode, int nID, CWindow wndCtl )
753	{
754	//印刷
755	Printout();
756	}
757
758	void MainFrame::OnCmdExit( UINT uNotifyCode, int nID, CWindow wndCtl )
759	{
760	SendMessage(WM_CLOSE);
761	}
762
763	void MainFrame::OnCmdUndo( UINT uNotifyCode, int nID, CWindow wndCtl )
764	{
765	HWND hChild=::GetWindow(hClient,GW_CHILD);
766	if(!hChild) return;
767	int WndNum=GetWndNum(hChild);
768	if( IS_DOCUMENT_TEXT(MdiInfo[WndNum]->DocType) )
769	{
770	TextEdit_UndoCommand(WndNum);
771	}
772	else if( MdiInfo[WndNum]->DocType == WNDTYPE_RAD )
773	{
774	Rad_UndoCommand(WndNum);
775	}
776	else if( MdiInfo[WndNum]->DocType == WNDTYPE_ICONEDIT )
777	{
778	IconEdit_UndoCommand(WndNum);
779	}
780	}
781
782	void MainFrame::OnCmdRedo( UINT uNotifyCode, int nID, CWindow wndCtl )
783	{
784	HWND hChild=::GetWindow(hClient,GW_CHILD);
785	if(!hChild) return;
786	int WndNum=GetWndNum(hChild);
787	if(IS_DOCUMENT_TEXT(MdiInfo[WndNum]->DocType))
788	TextEdit_RedoCommand(WndNum);
789	else if(MdiInfo[WndNum]->DocType==WNDTYPE_RAD)
790	Rad_RedoCommand(WndNum);
791	else if(MdiInfo[WndNum]->DocType==WNDTYPE_ICONEDIT)
792	IconEdit_RedoCommand(WndNum);
793	}
794
795	void MainFrame::OnCmdCut( UINT uNotifyCode, int nID, CWindow wndCtl )
796	{
797	HWND hChild=::GetWindow(hClient,GW_CHILD);
798	int WndNum=GetWndNum(hChild);
799	if(IS_DOCUMENT_TEXT(MdiInfo[WndNum]->DocType)){
800	HWND hEdit=::GetWindow(hChild,GW_CHILD);
801
802	CHARRANGE CharRange;
803	TextEdit_GetSel(WndNum,&CharRange);
804
805	HGLOBAL hGlobal=(char *)GlobalAlloc(GMEM_MOVEABLE,CharRange.cpMax-CharRange.cpMin+1);
806	char pTemp=(char )GlobalLock(hGlobal);
807	memcpy(pTemp,MdiInfo[WndNum]->pMdiTextEdit->buffer+CharRange.cpMin,CharRange.cpMax-CharRange.cpMin);
808	pTemp[CharRange.cpMax-CharRange.cpMin]=0;
809	GlobalUnlock(hGlobal);
810
811	//クリップボードに保存
812	OpenClipboard();
813	EmptyClipboard();
814	SetClipboardData(CF_TEXT,hGlobal);
815	CloseClipboard();
816
817	//選択文字列を消去
818	SendMessage(hEdit,WM_KEYDOWN,VK_DELETE,0);
819	}
820	else if(MdiInfo[WndNum]->DocType==WNDTYPE_RAD){
821	ActiveBasic::PM::WindowInfo *pWindowInfo = GetWndInfo(MdiInfo[WndNum]->path);
822	int indexOfWndInfo = GetWndInfoNum(MdiInfo[WndNum]->path);
823
824	//クリップボードに格納するためのデータを用意する
825	pWindowInfo->childWindowInfos[MdiInfo[WndNum]->MdiRadInfo->SelectingItem[0]]->pos.x-=17;
826	pWindowInfo->childWindowInfos[MdiInfo[WndNum]->MdiRadInfo->SelectingItem[0]]->pos.y-=10;
827	HGLOBAL hGlobal=Rad_GetChildInfoClipboardData(WndNum,indexOfWndInfo);
828	pWindowInfo->childWindowInfos[MdiInfo[WndNum]->MdiRadInfo->SelectingItem[0]]->pos.x+=17;
829	pWindowInfo->childWindowInfos[MdiInfo[WndNum]->MdiRadInfo->SelectingItem[0]]->pos.y+=10;
830
831	OpenClipboard();
832	EmptyClipboard();
833	extern DWORD dwRadClipboardID;
834	SetClipboardData(dwRadClipboardID,hGlobal);
835	CloseClipboard();
836
837	SendMessage(MdiInfo[WndNum]->MdiRadInfo->hRad,WM_COMMAND,IDM_RAD_ITEM_DELETE,0);
838	}
839	else if(MdiInfo[WndNum]->DocType==WNDTYPE_ICONEDIT){
840	//クリップボードに格納するためのデータを用意する
841	HGLOBAL hGlobal=IconEdit_GetChildInfoClipboardData(WndNum);
842	if(hGlobal==0) return;
843
844	OpenClipboard();
845	EmptyClipboard();
846	SetClipboardData(CF_BITMAP,hGlobal);
847	CloseClipboard();
848
849	DeleteObject(MdiInfo[WndNum]->MdiIconEditInfo->hSelectingBmp);
850	MdiInfo[WndNum]->MdiIconEditInfo->SelectLevel=0;
851
852	IconEdit_EraseRect(WndNum,&MdiInfo[WndNum]->MdiIconEditInfo->DraggingRect);
853	}
854	}
855
856	void MainFrame::OnCmdCopy( UINT uNotifyCode, int nID, CWindow wndCtl )
857	{
858	HWND hChild=::GetWindow(hClient,GW_CHILD);
859	int WndNum=GetWndNum(hChild);
860	if(IS_DOCUMENT_TEXT(MdiInfo[WndNum]->DocType)){
861	HWND hEdit = ::GetWindow(hChild,GW_CHILD);
862
863	CHARRANGE CharRange;
864	TextEdit_GetSel(WndNum,&CharRange);
865
866	HGLOBAL hGlobal=(char *)GlobalAlloc(GMEM_MOVEABLE,CharRange.cpMax-CharRange.cpMin+1);
867	char pTemp=(char )GlobalLock(hGlobal);
868	memcpy(pTemp,MdiInfo[WndNum]->pMdiTextEdit->buffer+CharRange.cpMin,CharRange.cpMax-CharRange.cpMin);
869	pTemp[CharRange.cpMax-CharRange.cpMin]=0;
870	GlobalUnlock(hGlobal);
871
872	//クリップボードに保存
873	OpenClipboard();
874	EmptyClipboard();
875	SetClipboardData(CF_TEXT,hGlobal);
876	CloseClipboard();
877	}
878	else if(MdiInfo[WndNum]->DocType==WNDTYPE_RAD){
879	int indexOfWndInfo = GetWndInfoNum(MdiInfo[WndNum]->path);
880
881	//クリップボードに格納するためのデータを用意する
882	HGLOBAL hGlobal=Rad_GetChildInfoClipboardData(WndNum,indexOfWndInfo);
883
884	OpenClipboard();
885	EmptyClipboard();
886	extern DWORD dwRadClipboardID;
887	SetClipboardData(dwRadClipboardID,hGlobal);
888	CloseClipboard();
889	}
890	else if(MdiInfo[WndNum]->DocType==WNDTYPE_ICONEDIT){
891	//クリップボードに格納するためのデータを用意する
892	HGLOBAL hGlobal=IconEdit_GetChildInfoClipboardData(WndNum);
893
894	OpenClipboard();
895	EmptyClipboard();
896	SetClipboardData(CF_BITMAP,hGlobal);
897	CloseClipboard();
898	}
899	}
900
901	void MainFrame::OnCmdPaste( UINT uNotifyCode, int nID, CWindow wndCtl )
902	{
903	HWND hChild=::GetWindow(hClient,GW_CHILD);
904	int WndNum=GetWndNum(hChild);
905	if(IS_DOCUMENT_TEXT(MdiInfo[WndNum]->DocType)){
906	HWND hEdit=::GetWindow(hChild,GW_CHILD);
907
908	//クリップボードを開く
909	OpenClipboard();
910	HGLOBAL hGlobal=GetClipboardData(CF_TEXT);
911	if(!hGlobal){
912	CloseClipboard();
913	return;
914	}
915
916
917	char *pTemp;
918	if(pobj_nv->bPasteIndent){
919	//インデント整形
920	pTemp=CodeFormatter((char *)GlobalLock(hGlobal));
921	GlobalUnlock(hGlobal);
922	}
923	else pTemp=(char *)GlobalLock(hGlobal);
924
925
926	//テキストエディタの文字列をリプレイス
927	TextEdit_ReplaceUpdateUndoData(WndNum,
928	pTemp,
929	1,
930	1);
931
932	if(pobj_nv->bPasteIndent)
933	HeapDefaultFree(pTemp);
934	else
935	GlobalUnlock(hGlobal);
936
937	//クリップボードを閉じる
938	CloseClipboard();
939
940
941	//キャレット位置までスクロールする
942	TextEdit_ScrollCaret(WndNum,0);
943	ResetCaretPos(WndNum);
944	}
945	else if(MdiInfo[WndNum]->DocType==WNDTYPE_RAD){
946	OpenClipboard();
947	extern DWORD dwRadClipboardID;
948	HGLOBAL hGlobal=GetClipboardData(dwRadClipboardID);
949	if(!hGlobal){
950	CloseClipboard();
951	return;
952	}
953	Rad_PasteChildInfoClipboardData(WndNum,hGlobal);
954	CloseClipboard();
955	}
956	else if(MdiInfo[WndNum]->DocType==WNDTYPE_ICONEDIT){
957	OpenClipboard();
958	HGLOBAL hGlobal=GetClipboardData(CF_BITMAP);
959	if(!hGlobal){
960	CloseClipboard();
961	return;
962	}
963	IconEdit_PasteChildInfoClipboardData(WndNum,(HBITMAP)hGlobal);
964	CloseClipboard();
965	}
966	}
967
968	void MainFrame::OnCmdDelete( UINT uNotifyCode, int nID, CWindow wndCtl )
969	{
970	HWND hChild=::GetWindow(hClient,GW_CHILD);
971	int WndNum=GetWndNum(hChild);
972	if(IS_DOCUMENT_TEXT(MdiInfo[WndNum]->DocType)){
973	HWND hEdit=::GetWindow(hChild,GW_CHILD);
974	TextEdit_ReplaceUpdateUndoData(WndNum,"",0,1);
975	}
976	else if(MdiInfo[WndNum]->DocType==WNDTYPE_RAD)
977	SendMessage(MdiInfo[WndNum]->MdiRadInfo->hRad,WM_COMMAND,IDM_RAD_ITEM_DELETE,0);
978	}
979
980	void MainFrame::OnCmdAllSelect( UINT uNotifyCode, int nID, CWindow wndCtl )
981	{
982	HWND hChild=::GetWindow(hClient,GW_CHILD);
983	int WndNum=GetWndNum(hChild);
984	if(IS_DOCUMENT_TEXT(MdiInfo[WndNum]->DocType)){
985	HWND hEdit=::GetWindow(hChild,GW_CHILD);
986
987	MdiInfo[WndNum]->pMdiTextEdit->StartCaretPos.x=0;
988	MdiInfo[WndNum]->pMdiTextEdit->StartCaretPos.y=0;
989
990	GetCaretPosFromBufferIndex(
991	MdiInfo[WndNum]->pMdiTextEdit->buffer,
992	lstrlen(MdiInfo[WndNum]->pMdiTextEdit->buffer),
993	&MdiInfo[WndNum]->pMdiTextEdit->EndCaretPos);
994
995	::InvalidateRect(hEdit,NULL,0);
996
997	ResetState_EditMenu();
998	}
999	else if(MdiInfo[WndNum]->DocType==WNDTYPE_RAD){
1000	ActiveBasic::PM::WindowInfo *pWindowInfo = GetWndInfo(MdiInfo[WndNum]->path);
1001	for( int i3=0; i3<static_cast<int>(pWindowInfo->childWindowInfos.size()); i3++ )
1002	{
1003	MdiInfo[WndNum]->MdiRadInfo->SelectingItem[i3] = i3;
1004	}
1005	DrawRadWindow(WndNum,pWindowInfo);
1006	}
1007	}
1008
1009	void MainFrame::OnCmdFind( UINT uNotifyCode, int nID, CWindow wndCtl )
1010	{
1011	DialogBox(hResInst,MAKEINTRESOURCE(IDD_FIND),m_hWnd,(DLGPROC)DlgFind);
1012	}
1013
1014	void MainFrame::OnCmdPermutation( UINT uNotifyCode, int nID, CWindow wndCtl )
1015	{
1016	DialogBox(hResInst,MAKEINTRESOURCE(IDD_PERMUTATION),m_hWnd,(DLGPROC)DlgPermutation);
1017	}
1018
1019	void MainFrame::OnCmdConvertX( UINT uNotifyCode, int nID, CWindow wndCtl )
1020	{
1021	TextEdit_Convert( nID );
1022	}
1023
1024	#ifdef THETEXT
1025	void MainFrame::OnCmdStringCount( UINT uNotifyCode, int nID, CWindow wndCtl )
1026	{
1027	DialogBoxParam(hResInst,MAKEINTRESOURCE(IDD_STRING_COUNT),m_hWnd,(DLGPROC)DlgStringCount,0);
1028	}
1029
1030	void MainFrame::OnCmdSelStringCount( UINT uNotifyCode, int nID, CWindow wndCtl )
1031	{
1032	DialogBoxParam(hResInst,MAKEINTRESOURCE(IDD_STRING_COUNT),m_hWnd,(DLGPROC)DlgStringCount,1);
1033	}
1034	#endif
1035
1036	void MainFrame::OnCmdProjectView( UINT uNotifyCode, int nID, CWindow wndCtl )
1037	{
1038	extern HWND hProjectView;
1039	bool isCheck = false;
1040	if(pobj_nv->bClipProjectView){
1041	if(::IsWindowVisible(hProjectView)){
1042	::ShowWindow(hProjectView,SW_HIDE);
1043	}
1044	else{
1045	::ShowWindow(hProjectView,SW_SHOW);
1046	isCheck = true;
1047	}
1048	}
1049	else{
1050	extern HWND hProjectView_ToolWindow;
1051	if(::IsWindowVisible(hProjectView_ToolWindow)){
1052	::ShowWindow(hProjectView_ToolWindow,SW_HIDE);
1053	}
1054	else{
1055	::ShowWindow(hProjectView_ToolWindow,SW_SHOW);
1056	::ShowWindow(hProjectView,SW_SHOW);
1057	isCheck = true;
1058	}
1059	}
1060	pobj_MainMenu->CheckMenu(IDM_PROJECTVIEW,isCheck);
1061
1062	//再配置
1063	this->Resized();
1064
1065	::ShowWindow(hClient,SW_SHOW);
1066	}
1067
1068	void MainFrame::OnCmdProjectOption( UINT uNotifyCode, int nID, CWindow wndCtl )
1069	{
1070	DlgProjectOptionSetting( m_hWnd );
1071	}
1072
1073	void MainFrame::OnCmdTopMost( UINT uNotifyCode, int nID, CWindow wndCtl )
1074	{
1075	if(pobj_MainMenu->IsCheck(IDM_TOPMOST)){
1076	SetWindowPos( HWND_NOTOPMOST,0,0,0,0,SWP_NOMOVE\|SWP_NOSIZE);
1077	pobj_MainMenu->CheckMenu(IDM_TOPMOST,0);
1078	}
1079	else{
1080	SetWindowPos( HWND_TOPMOST,0,0,0,0,SWP_NOMOVE\|SWP_NOSIZE);
1081	pobj_MainMenu->CheckMenu(IDM_TOPMOST,1);
1082	}
1083	}
1084
1085	void ResetState_ViewMenu(void);
1086	void MainFrame::OnCmdRightTurn( UINT uNotifyCode, int nID, CWindow wndCtl )
1087	{
1088	pobj_nv->bRightTurn^=1;
1089	ResetState_ViewMenu();
1090
1091	//トップのウィンドウを再描画
1092	RedrawAllWindow();
1093	}
1094
1095	void MainFrame::OnCmdSet( UINT uNotifyCode, int nID, CWindow wndCtl )
1096	{
1097	DlgOptionSetting( m_hWnd );
1098	}
1099
1100	void CreateProcessWithStdHandle( const std::string &appPath, const std::string &cmdLine)
1101	{
1102	std::string argsStr = "\"" + appPath + "\" " + cmdLine;
1103	STARTUPINFO si;
1104	PROCESS_INFORMATION pi;
1105	memset(&si,0,sizeof(STARTUPINFO));
1106	si.cb=sizeof(STARTUPINFO);
1107	si.dwFlags = STARTF_USESTDHANDLES \| STARTF_USESHOWWINDOW;
1108	si.wShowWindow = SW_HIDE;
1109	si.hStdOutput = GetStdHandle(STD_OUTPUT_HANDLE);
1110	si.hStdInput = GetStdHandle(STD_INPUT_HANDLE);
1111	si.hStdError = GetStdHandle(STD_ERROR_HANDLE);
1112
1113	char args[8192];
1114	lstrcpy( args, argsStr.c_str() );
1115
1116	CreateProcess( NULL, args, NULL, NULL, FALSE, NORMAL_PRIORITY_CLASS, NULL, NULL, &si, &pi );
1117	CloseHandle( pi.hProcess );
1118	CloseHandle( pi.hThread );
1119	}
1120
1121	#ifndef THETEXT
1122	void MainFrame::OnCmdDebug( UINT uNotifyCode, int nID, CWindow wndCtl )
1123	{
1124	char temporary[1024], temp2[1024], temp3[1024];
1125	if(pobj_Debugger->IsDebugging()){
1126	pobj_Debugger->DebugContinue();
1127	return;
1128	}
1129
1130	HWND hChild = ::GetWindow(hClient,GW_CHILD);
1131	if( projectInfo.IsOpened() ){
1132	//プロジェクトが開かれている場合
1133	if(!SetProjectToRun()) return;
1134
1135	//デバッグ用のコマンドライン及び実行可能ファイル（DLLのみ）
1136	sprintf(temporary,"%s\r\n%s",projectInfo.szExePath,projectInfo.szCmdLine);
1137	sprintf(temp2,"%spgm.tmp",pj_editor_Dir);
1138	{
1139	ATL::CHandle hFile(CreateFile(temp2,GENERIC_WRITE,0,NULL,CREATE_ALWAYS,FILE_ATTRIBUTE_ARCHIVE\|FILE_ATTRIBUTE_HIDDEN\|FILE_ATTRIBUTE_TEMPORARY,NULL));
1140	if(hFile==INVALID_HANDLE_VALUE){
1141	hFile.Detach();
1142	MessageBox(TEXT("デバッグ用ファイルを開けませんでした。"));
1143	return;
1144	}
1145	DWORD dwAccessBytes;
1146	WriteFile(hFile,temporary,lstrlen(temporary),&dwAccessBytes,NULL);
1147	}
1148
1149	//ソースファイル名をtemp2へ
1150	lstrcpy( temp2, projectInfo.fileSystem.root.files[0].GetFullPath().c_str() );
1151
1152	//出力ファイル名をtemp3へ
1153	lstrcpy(temp3,projectInfo.lpszOutput_Debug);
1154	lstrcpy( temp3, projectInfo.GetWorkDir().GetFullPath( temp3 ).c_str() );
1155
1156	if(IsNeedCompileForProject(1))
1157	sprintf(temporary,"\"%s\" \"%s\" /debug /run /wnd:%p",temp2,temp3,m_hWnd);
1158	else
1159	sprintf(temporary,"\"%s\" \"%s\" /run /wnd:%p",temp2,temp3,m_hWnd);
1160
1161	// DLLオプション
1162	if( projectInfo.GetModuleType() == ActiveBasic::Common::TargetModuleType::Dll )
1163	{
1164	lstrcat(temporary," /dll");
1165	}
1166
1167	// SLLオプション
1168	if( projectInfo.GetModuleType() == ActiveBasic::Common::TargetModuleType::Sll )
1169	{
1170	lstrcat(temporary," /static_library");
1171	}
1172
1173	//Unicodeオプション
1174	if(projectInfo.dwOption & PJ_OP_UNICODE) lstrcat(temporary," /unicode");
1175
1176	//ブレークポイントをセーブ
1177	projectInfo.pobj_DBBreakPoint->SaveToTempFile();
1178	}
1179	else{
1180	//単独ソースコード
1181	if(!SetRunning(hChild)) return;
1182	if(IsNeedCompile(MdiInfo[GetWndNum(hChild)]->path,1))
1183	sprintf(temporary,"\"%s\" /debug /run /wnd:%p",MdiInfo[GetWndNum(hChild)]->path.c_str(),m_hWnd);
1184	else
1185	sprintf(temporary,"\"%s\" /run /wnd:%p",MdiInfo[GetWndNum(hChild)]->path.c_str(),m_hWnd);
1186
1187	//ブレークポイントをセーブ
1188	extern CDBBreakPoint *pobj_DBBreakPoint;
1189	pobj_DBBreakPoint->SaveToTempFile();
1190	}
1191
1192	//コンパイルビューをクリップするかどうか
1193	extern BOOL bClipCompileView;
1194	if(bClipCompileView){
1195	lstrcat(temporary," /clip_compile_view");
1196
1197	//コンパイラビューを閉じる
1198	extern HWND hCompileView;
1199	if(hCompileView==(HWND)-1) return;
1200	if(hCompileView){
1201	hChild=hCompileView;
1202	hCompileView=(HWND)-1;
1203	SendMessage(hChild,WM_COMMAND,IDCANCEL,0);
1204	}
1205
1206	//重複起動防止のため
1207	hCompileView=(HWND)-1;
1208	}
1209
1210	//インクルードディレクトリ
1211	sprintf(temp2," /include_dir:\"%s\"",pobj_nv->GetIncludeDirFullPath().c_str());
1212	lstrcat(temporary,temp2);
1213
1214	extern ActiveBasic::Common::Platform::EnumType selectingPlatform;
1215	CreateProcessWithStdHandle( ActiveBasic::Common::Environment::GetCompilerExePath( selectingPlatform ), temporary );
1216	}
1217
1218	void MainFrame::OnCmdDebugCompile( UINT uNotifyCode, int nID, CWindow wndCtl )
1219	{
1220	char temporary[1024], temp2[1024], temp3[1024];
1221
1222	HWND hChild=::GetWindow(hClient,GW_CHILD);
1223	if( projectInfo.IsOpened() ){
1224	//プロジェクトが開かれている場合
1225	if(!SetProjectToRun()) return;
1226
1227	//ソースファイル名をtemp2へ
1228	lstrcpy( temp2, projectInfo.fileSystem.root.files[0].GetFullPath().c_str() );
1229
1230	//出力ファイル名をtemp3へ
1231	lstrcpy(temp3,projectInfo.lpszOutput_Debug);
1232	lstrcpy( temp3, projectInfo.GetWorkDir().GetFullPath( temp3 ).c_str() );
1233
1234	sprintf(temporary,"\"%s\" \"%s\" /debug /wnd:%p",temp2,temp3,m_hWnd);
1235
1236	//DLLオプション
1237	if( projectInfo.GetModuleType() == ActiveBasic::Common::TargetModuleType::Dll )
1238	{
1239	lstrcat(temporary," /dll");
1240	}
1241
1242	// SLLオプション
1243	if( projectInfo.GetModuleType() == ActiveBasic::Common::TargetModuleType::Sll )
1244	{
1245	lstrcat(temporary," /static_library");
1246	}
1247
1248	//Unicodeオプション
1249	if(projectInfo.dwOption & PJ_OP_UNICODE) lstrcat(temporary," /unicode");
1250	}
1251	else{
1252	//単独ソースコード
1253	if(!SetRunning(hChild)) return;
1254	sprintf(temporary,"\"%s\" /debug /wnd:%p",MdiInfo[GetWndNum(hChild)]->path.c_str(),m_hWnd);
1255	}
1256
1257	//コンパイルビューをクリップするかどうか
1258	extern BOOL bClipCompileView;
1259	if(bClipCompileView){
1260	lstrcat(temporary," /clip_compile_view");
1261
1262	//コンパイラビューを閉じる
1263	extern HWND hCompileView;
1264	if(hCompileView==(HWND)-1) return;
1265	if(hCompileView){
1266	hChild=hCompileView;
1267	hCompileView=(HWND)-1;
1268	if( ::IsWindow( hChild ) )
1269	{
1270	SendMessage(hChild,WM_COMMAND,IDCANCEL,0);
1271	}
1272	}
1273
1274	//重複起動防止のため
1275	hCompileView=(HWND)-1;
1276	}
1277
1278	//インクルードディレクトリ
1279	sprintf(temp2," /include_dir:\"%s\"",pobj_nv->GetIncludeDirFullPath().c_str());
1280	lstrcat(temporary,temp2);
1281
1282	extern ActiveBasic::Common::Platform::EnumType selectingPlatform;
1283	CreateProcessWithStdHandle( ActiveBasic::Common::Environment::GetCompilerExePath( selectingPlatform ), temporary );
1284
1285	}
1286
1287	void MainFrame::OnCmdAttach( UINT uNotifyCode, int nID, CWindow wndCtl )
1288	{
1289	char temporary[1024], temp2[1024];
1290
1291	int idProcess;
1292	DWORD dwPlatform;
1293	idProcess=DialogBoxParam(hResInst,MAKEINTRESOURCE(IDD_ATTACH),m_hWnd,(DLGPROC)DlgAttach,(LPARAM)&dwPlatform);
1294	if(idProcess==0) return;
1295
1296	sprintf(temporary,"/attach:%08x /wnd:%p",idProcess,m_hWnd);
1297
1298	//コンパイルビューをクリップするかどうか
1299	extern BOOL bClipCompileView;
1300	if(bClipCompileView){
1301	lstrcat(temporary," /clip_compile_view");
1302
1303	//コンパイラビューを閉じる
1304	extern HWND hCompileView;
1305	if(hCompileView==(HWND)-1) return;
1306	if(hCompileView){
1307	HWND hChild=hCompileView;
1308	hCompileView=(HWND)-1;
1309	SendMessage(hChild,WM_COMMAND,IDCANCEL,0);
1310	}
1311
1312	//重複起動防止のため
1313	hCompileView=(HWND)-1;
1314	}
1315
1316	//インクルードディレクトリ
1317	sprintf(temp2," /include_dir:\"%s\"",pobj_nv->GetIncludeDirFullPath().c_str());
1318	lstrcat(temporary,temp2);
1319
1320	ActiveBasic::Common::Platform::EnumType platform;
1321	if(dwPlatform==IMAGE_FILE_MACHINE_I386)
1322	{
1323	platform = ActiveBasic::Common::Platform::X86;
1324	}
1325	else if(dwPlatform==IMAGE_FILE_MACHINE_AMD64)
1326	{
1327	platform = ActiveBasic::Common::Platform::X64;
1328	}
1329	else
1330	{
1331	throw;
1332	}
1333
1334	extern ActiveBasic::Common::Platform::EnumType selectingPlatform;
1335	CreateProcessWithStdHandle( ActiveBasic::Common::Environment::GetCompilerExePath( platform ), temporary );
1336	}
1337
1338	void MainFrame::OnCmdReleaseCompile( UINT uNotifyCode, int nID, CWindow wndCtl )
1339	{
1340	char temporary[1024], temp2[1024], temp3[1024];
1341
1342	HWND hChild=::GetWindow(hClient,GW_CHILD);
1343	if( projectInfo.IsOpened() ){
1344	//プロジェクトが開かれている場合
1345	if(!SetProjectToRun()) return;
1346
1347	//ソースファイル名をtemp2へ
1348	lstrcpy( temp2, projectInfo.fileSystem.root.files[0].GetFullPath().c_str() );
1349
1350	//出力ファイル名をtemp3へ
1351	lstrcpy(temp3,projectInfo.lpszOutput_Release);
1352	lstrcpy( temp3, projectInfo.GetWorkDir().GetFullPath( temp3 ).c_str() );
1353
1354	sprintf(temporary,"\"%s\" \"%s\" /wnd:%p",temp2,temp3,m_hWnd);
1355
1356	//DLLオプション
1357	if( projectInfo.GetModuleType() == ActiveBasic::Common::TargetModuleType::Dll )
1358	{
1359	lstrcat(temporary," /dll");
1360	}
1361
1362	// SLLオプション
1363	if( projectInfo.GetModuleType() == ActiveBasic::Common::TargetModuleType::Sll )
1364	{
1365	lstrcat(temporary," /static_library");
1366	}
1367
1368	//Unicodeオプション
1369	if(projectInfo.dwOption & PJ_OP_UNICODE) lstrcat(temporary," /unicode");
1370	}
1371	else{
1372	//単独ソースコード
1373	if(!SetRunning(hChild)) return;
1374	sprintf(temporary,"\"%s\" /wnd:%p",MdiInfo[GetWndNum(hChild)]->path.c_str(),m_hWnd);
1375	}
1376
1377	//コンパイルビューをクリップするかどうか
1378	extern BOOL bClipCompileView;
1379	if(bClipCompileView){
1380	lstrcat(temporary," /clip_compile_view");
1381
1382	//コンパイラビューを閉じる
1383	extern HWND hCompileView;
1384	if(hCompileView==(HWND)-1) return;
1385	if(hCompileView){
1386	hChild=hCompileView;
1387	hCompileView=(HWND)-1;
1388	if( ::IsWindow( hChild ) )
1389	{
1390	SendMessage(hChild,WM_COMMAND,IDCANCEL,0);
1391	}
1392	}
1393
1394	//重複起動防止のため
1395	hCompileView=(HWND)-1;
1396	}
1397
1398	//インクルードディレクトリ
1399	sprintf(temp2," /include_dir:\"%s\"",pobj_nv->GetIncludeDirFullPath().c_str());
1400	lstrcat(temporary,temp2);
1401
1402	extern ActiveBasic::Common::Platform::EnumType selectingPlatform;
1403	CreateProcessWithStdHandle( ActiveBasic::Common::Environment::GetCompilerExePath( selectingPlatform ), temporary );
1404	}
1405
1406	void MainFrame::OnCmdReleaseRun( UINT uNotifyCode, int nID, CWindow wndCtl )
1407	{
1408	char temporary[1024], temp2[1024], temp3[1024];
1409
1410	HWND hChild=::GetWindow(hClient,GW_CHILD);
1411	if( projectInfo.IsOpened() ){
1412	/* //プロジェクトが開かれている場合
1413	if(!SetProjectToRun()) return;
1414
1415	//必要であればリリースコンパイル
1416	if(IsNeedCompileForProject(0))
1417	SendMessage(WM_COMMAND,IDM_RELEASECOMPILE,0);*/
1418
1419	if( projectInfo.GetModuleType() == ActiveBasic::Common::TargetModuleType::Dll )
1420	{
1421	lstrcpy(temporary,projectInfo.szExePath);
1422	}
1423	else{
1424	lstrcpy(temporary,projectInfo.lpszOutput_Debug);
1425	lstrcpy( temporary, projectInfo.GetWorkDir().GetFullPath( temporary ).c_str() );
1426	}
1427	}
1428	else{
1429	/* //必要であればリリースコンパイル
1430	if(!SetRunning(hChild)) return;
1431
1432	if(IsNeedCompile(MdiInfo[GetWndNum(hChild)]->path,0))
1433	SendMessage(WM_COMMAND,IDM_RELEASECOMPILE,0);*/
1434
1435	//単独ソースコード
1436	_splitpath(MdiInfo[GetWndNum(hChild)]->path.c_str(),temporary,temp2,temp3,NULL);
1437	lstrcat(temporary,temp2);
1438	lstrcat(temporary,temp3);
1439	lstrcat(temporary,".exe");
1440	}
1441
1442	//インクルードディレクトリ
1443	sprintf(temp2," /include_dir:\"%s\"",pobj_nv->GetIncludeDirFullPath().c_str());
1444	lstrcat(temporary,temp2);
1445
1446	ShellExecute(m_hWnd,"open",temporary,NULL,NULL,SW_SHOWNORMAL);
1447	}
1448
1449	void MainFrame::OnCmdStepIn( UINT uNotifyCode, int nID, CWindow wndCtl )
1450	{
1451	pobj_Debugger->StepIn();
1452	}
1453
1454	void MainFrame::OnCmdStepOver( UINT uNotifyCode, int nID, CWindow wndCtl )
1455	{
1456	pobj_Debugger->StepOver();
1457	}
1458
1459	void MainFrame::OnCmdStepCursor( UINT uNotifyCode, int nID, CWindow wndCtl )
1460	{
1461	pobj_Debugger->StepToCursor();
1462	}
1463
1464	void MainFrame::OnCmdBreakPoint( UINT uNotifyCode, int nID, CWindow wndCtl )
1465	{
1466	if( projectInfo.IsOpened() ){
1467	projectInfo.pobj_DBBreakPoint->Event_BreakPoint();
1468	}
1469	else{
1470	extern CDBBreakPoint *pobj_DBBreakPoint;
1471	pobj_DBBreakPoint->Event_BreakPoint();
1472	}
1473	}
1474
1475	void MainFrame::OnCmdDebugStop( UINT uNotifyCode, int nID, CWindow wndCtl )
1476	{
1477	pobj_Debugger->DebugStop();
1478	}
1479
1480	void MainFrame::OnCmdDebugPause( UINT uNotifyCode, int nID, CWindow wndCtl )
1481	{
1482	pobj_Debugger->DebugPause();
1483	}
1484
1485	#endif // not THETEXT
1486
1487	void MainFrame::OnCmdWebLink( UINT uNotifyCode, int nID, CWindow wndCtl )
1488	{
1489	switch( nID )
1490	{
1491	#ifndef THETEXT
1492	case IDM_COMMUNITY:
1493	OpenWebBrowser( "http://www.activebasic.com/forum/" );
1494	break;
1495	case IDM_COMMU_SEARCH:
1496	OpenWebBrowser( "http://www.activebasic.com/forum/search.php" );
1497	break;
1498	case IDM_COMMU_PM:
1499	OpenWebBrowser( "http://www.activebasic.com/forum/privmsg.php?folder=inbox" );
1500	break;
1501	case ID_COMMU_FORUM1:
1502	OpenWebBrowser( "http://www.activebasic.com/forum/viewforum.php?f=1" );
1503	break;
1504	case ID_COMMU_FORUM2:
1505	OpenWebBrowser( "http://www.activebasic.com/forum/viewforum.php?f=2" );
1506	break;
1507	case ID_COMMU_FORUM3:
1508	OpenWebBrowser( "http://www.activebasic.com/forum/viewforum.php?f=5" );
1509	break;
1510	case ID_COMMU_FORUM4:
1511	OpenWebBrowser( "http://www.activebasic.com/forum/viewforum.php?f=3" );
1512	break;
1513	case ID_COMMU_FORUM5:
1514	OpenWebBrowser( "http://www.activebasic.com/forum/viewforum.php?f=6" );
1515	break;
1516	case ID_COMMU_FORUM6:
1517	OpenWebBrowser( "http://www.activebasic.com/forum/viewforum.php?f=8" );
1518	break;
1519	case ID_COMMU_FORUM7:
1520	OpenWebBrowser( "http://www.activebasic.com/forum/viewforum.php?f=4" );
1521	break;
1522	case ID_COMMU_FORUM8:
1523	OpenWebBrowser( "http://www.activebasic.com/forum/viewforum.php?f=7" );
1524	break;
1525	case IDM_AB_WEBSITE:
1526	OpenWebBrowser( "http://www.activebasic.com/" );
1527	break;
1528	case IDM_ACTBDL:
1529	OpenWebBrowser( "http://www.activebasic.com/activebasic5/download.htm" );
1530	break;
1531	#else
1532	case IDM_DSHOMEPAGE:
1533	OpenWebBrowser( "http://www.discoversoft.net/" );
1534	break;
1535	#endif // not THETEXT
1536	default:
1537	throw;
1538	}
1539	}
1540
1541	void MainFrame::OnCmdTopics( UINT uNotifyCode, int nID, CWindow wndCtl )
1542	{
1543	char temporary[1024];
1544	#ifdef THETEXT
1545	sprintf(temporary,"%sTopics\\index.html",pj_editor_Dir);
1546	ShellExecute(m_hWnd,"open",temporary,NULL,NULL,SW_SHOWNORMAL);
1547	#else
1548	sprintf(temporary,"%sBasicHelp.chm",pj_editor_Dir);
1549	HtmlHelp(NULL,temporary,HH_DISPLAY_TOPIC,0);
1550	#endif
1551	}
1552
1553	void MainFrame::OnCmdAbout( UINT uNotifyCode, int nID, CWindow wndCtl )
1554	{
1555	DialogBox(hResInst,MAKEINTRESOURCE(IDD_ABOUT),m_hWnd,(DLGPROC)DialogAbout);
1556	}
1557
1558	void MainFrame::OnCmdDocSelectBand( UINT uNotifyCode, int nID, CWindow wndCtl )
1559	{
1560	pobj_Rebar->ChangeRebarBand(ID_DOCCOMBO);
1561	}
1562
1563	void MainFrame::OnCmdStandardBand( UINT uNotifyCode, int nID, CWindow wndCtl )
1564	{
1565	pobj_Rebar->ChangeRebarBand(ID_STANDARDTOOLBAR);
1566	}
1567
1568	void MainFrame::OnCmdReleaseBand( UINT uNotifyCode, int nID, CWindow wndCtl )
1569	{
1570	pobj_Rebar->ChangeRebarBand(ID_RELEASETOOLBAR);
1571	}
1572
1573	void MainFrame::OnCmdDebugBand( UINT uNotifyCode, int nID, CWindow wndCtl )
1574	{
1575	pobj_Rebar->ChangeRebarBand(ID_DEBUGGERTOOLBAR);
1576	}
1577
1578	void MainFrame::OnCmdSelectCompilerBand( UINT uNotifyCode, int nID, CWindow wndCtl )
1579	{
1580	pobj_Rebar->ChangeRebarBand(ID_SELECTCOMPILERCOMBO);
1581	}
1582
1583	void MainFrame::OnCmdNoGripper( UINT uNotifyCode, int nID, CWindow wndCtl )
1584	{
1585	if(pobj_nv->bNoGripper) pobj_nv->bNoGripper=0;
1586	else pobj_nv->bNoGripper=1;
1587
1588	//レバーコントロールを再生成
1589	pobj_Rebar->ResetRebar();
1590
1591	//メニュー状態を設定
1592	ResetState_DocMenu();
1593	}
1594
1595	void MainFrame::OnCmdResetRebar( UINT uNotifyCode, int nID, CWindow wndCtl )
1596	{
1597	//"ツールバーの配置をすべて初期状態に戻します。\nよろしいですか？"
1598	if( MessageBox(STRING_TOOLBAR_RESET,APPLICATION_NAME,MB_OKCANCEL\|MB_ICONEXCLAMATION) == IDCANCEL )
1599	{
1600	return;
1601	}
1602
1603	//レバーコントロールを再生成
1604	pobj_Rebar->ResetInitRebar();
1605
1606	//メニュー状態を設定
1607	ResetState_DocMenu();
1608	}
1609
1610	void MainFrame::OnCmdAllCloseOmitMyself( UINT uNotifyCode, int nID, CWindow wndCtl )
1611	{
1612	//このウィンドウ以外をすべて閉じる(&A)
1613	HWND hChild=::GetWindow(hClient,GW_CHILD);
1614	int WndNum=GetWndNum(hChild);
1615	for(int i=0;i<MdiInfo.size();i++){
1616	if(i==WndNum) continue;
1617	if(MdiInfo[i]->hwnd) SendMessage(MdiInfo[i]->hwnd,WM_CLOSE,0,0);
1618	}
1619	}
1620
1621	void MainFrame::OnCmdPathCopy( UINT uNotifyCode, int nID, CWindow wndCtl )
1622	{
1623	HWND hChild=::GetWindow(hClient,GW_CHILD);
1624	int WndNum=GetWndNum(hChild);
1625
1626	//絶対パスをコピー
1627	HGLOBAL hGlobal=(char *)GlobalAlloc(GMEM_MOVEABLE,MdiInfo[WndNum]->path.size()+1);
1628	char pTemp=(char )GlobalLock(hGlobal);
1629	lstrcpy(pTemp,MdiInfo[WndNum]->path.c_str());
1630	GlobalUnlock(hGlobal);
1631
1632	//クリップボードに保存
1633	OpenClipboard();
1634	EmptyClipboard();
1635	SetClipboardData(CF_TEXT,hGlobal);
1636	CloseClipboard();
1637	}
1638
1639	void MainFrame::OnCmdFolderOpen( UINT uNotifyCode, int nID, CWindow wndCtl )
1640	{
1641	HWND hChild=::GetWindow(hClient,GW_CHILD);
1642	int WndNum=GetWndNum(hChild);
1643
1644	char temporary[1024], temp2[1024];
1645	_splitpath(MdiInfo[WndNum]->path.c_str(),temporary,temp2,NULL,NULL);
1646	lstrcat(temporary,temp2);
1647
1648	OpenExplorer( temporary );
1649	}
1650
1651	void MainFrame::OnCmdDeleteFile( UINT uNotifyCode, int nID, CWindow wndCtl )
1652	{
1653	HWND hChild=::GetWindow(hClient,GW_CHILD);
1654	int WndNum=GetWndNum(hChild);
1655
1656	char temporary[1024], temp2[1024];
1657	_splitpath(MdiInfo[WndNum]->path.c_str(),NULL,NULL,temporary,temp2);
1658	lstrcat(temporary,temp2);
1659
1660	lstrcat(temporary," をごみ箱に移動して閉じます。よろしいですか？");
1661	if(MessageBox(temporary,APPLICATION_NAME,MB_OKCANCEL\|MB_ICONQUESTION)==IDCANCEL) return;
1662
1663	//ゴミ箱へ
1664	SHFILEOPSTRUCT fo;
1665	fo.hwnd=m_hWnd;
1666	fo.wFunc=FO_DELETE;
1667	fo.pFrom =MdiInfo[WndNum]->path.c_str();
1668	fo.pTo="\0";
1669	fo.fFlags =FOF_ALLOWUNDO\|FOF_NOCONFIRMATION;
1670	SHFileOperation(&fo);
1671
1672	//閉じる
1673	MdiInfo[WndNum]->pMdiTextEdit->UnModify();
1674	SendMessage(MdiInfo[WndNum]->hwnd,WM_CLOSE,0,0);
1675	}
1676
1677	void MainFrame::OnCmdColor( UINT uNotifyCode, int nID, CWindow wndCtl )
1678	{
1679	static COLORREF colorUser=RGB(255,255,255);
1680
1681	switch( nID )
1682	{
1683	case IDM_USER_COLOR:
1684	{
1685	CHOOSECOLOR cc;
1686	COLORREF CusColors[16]={
1687	RGB(255,255,255),
1688	RGB(0,0,0),
1689	RGB(128,128,128),
1690	RGB(192,192,192),
1691	RGB(128,0,0),
1692	RGB(255,0,0),
1693	RGB(128,128,0),
1694	RGB(255,255,0),
1695	RGB(0,128,0),
1696	RGB(0,255,0),
1697	RGB(0,128,128),
1698	RGB(0,255,255),
1699	RGB(0,0,128),
1700	RGB(0,0,255),
1701	RGB(128,0,128),
1702	RGB(255,0,255)};
1703	cc.lStructSize=sizeof(CHOOSECOLOR);
1704	cc.hwndOwner=m_hWnd;
1705	cc.rgbResult=colorUser;
1706	cc.lpCustColors=CusColors;
1707	cc.Flags=CC_RGBINIT\|CC_FULLOPEN;
1708	if(!ChooseColor(&cc)){
1709	return;
1710	}
1711	colorUser=cc.rgbResult;
1712	}
1713	case IDM_GRAY:
1714	case IDM_WHITE:
1715	case IDM_RED:
1716	case IDM_GREEN:
1717	case IDM_BLUE:
1718	case IDM_YELLOW:
1719	{
1720	HWND hChild=::GetWindow(hClient,GW_CHILD);
1721
1722	TC_ITEM tcItem;
1723	tcItem.mask=TCIF_PARAM;
1724	if(nID==IDM_GRAY) tcItem.lParam=TABCOLOR_GRAY;
1725	if(nID==IDM_WHITE) tcItem.lParam=TABCOLOR_WHITE;
1726	if(nID==IDM_RED) tcItem.lParam=TABCOLOR_RED;
1727	if(nID==IDM_GREEN) tcItem.lParam=TABCOLOR_GREEN;
1728	if(nID==IDM_BLUE) tcItem.lParam=TABCOLOR_BLUE;
1729	if(nID==IDM_YELLOW) tcItem.lParam=TABCOLOR_YELLOW;
1730	if(nID==IDM_USER_COLOR) tcItem.lParam=colorUser;
1731	TabCtrl_SetItem(pobj_MainTab->hTab,
1732	TabCtrl_GetCurSel(pobj_MainTab->hTab),
1733	&tcItem);
1734	::InvalidateRect(pobj_MainTab->hTab,NULL,0);
1735	break;
1736	}
1737	default:
1738	throw;
1739	}
1740	}

Note: See TracBrowser for help on using the repository browser.

Download in other formats: