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

Last change on this file since 719 was 719, checked in by dai, 16 years ago
  • ab_breakpoint.tmpをテンポラリディレクトリに生成するようにした。
  • pgm.tmpをユーザ空間に生成するようにした。
  • GetUserAppDir/GetIdeUserAppDir/GetAbcUserAppDirの各メソッドを用意。用途別に呼び出し側の制御を分けた。
File size: 46.4 KB
Line 
1#include "stdafx.h"
2
3using namespace ActiveBasic::IDE;
4using namespace ActiveBasic::IDE::WindowComponents;
5
6LRESULT CALLBACK WindowFunc(HWND hwnd,UINT message,WPARAM wParam,LPARAM lParam);
7void SetupWindow(HWND hwnd);
8void ResetTextEditFont(HWND hwnd);
9
10void 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
163void MainFrame::OpenWebBrowser( const std::string &url )
164{
165 ShellExecute(m_hWnd,"open",url.c_str(),"",NULL,SW_SHOWNORMAL);
166}
167
168void 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
221void MainFrame::OnSize(UINT nType, CSize size)
222{
223 this->Resized();
224}
225
226BOOL MainFrame::OnQueryEndSession(UINT nSource, UINT uLogOff)
227{
228 OnClose();
229
230 return TRUE;
231}
232
233void 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}
310void MainFrame::OnDestroy()
311{
312 ::PostQuitMessage( 0 );
313}
314
315void backup(void *dummy);
316void 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
336void ResetState_EditMenu(void);
337void MainFrame::OnDrawClipboard()
338{
339 ResetState_EditMenu();
340}
341
342void MenuAdvice(WPARAM msg);
343void MainFrame::OnMenuSelect( UINT nItemID, UINT nFlags, HMENU menu )
344{
345 MenuAdvice( nItemID );
346}
347
348void 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
359void 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
380void 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
405LRESULT 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_STANDARDTOOLBAR*23+SEPNUM_STANDARDTOOLBAR*8;
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_DEBUGGERTOOLBAR*23+SEPNUM_DEBUGGERTOOLBAR*8;
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
517void 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
528void 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,"%s\\pgm.tmp",ActiveBasic::Common::Environment::GetUserAppDir().c_str());
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
609void 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
664void 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
674void 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
680void 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
693void MainFrame::OnCmdProjectSave( UINT uNotifyCode, int nID, CWindow wndCtl )
694{
695 projectInfo.Save();
696}
697
698void MainFrame::OnCmdProjectClose( UINT uNotifyCode, int nID, CWindow wndCtl )
699{
700 projectInfo.Close();
701}
702
703void 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
708void MainFrame::OnCmdSave( UINT uNotifyCode, int nID, CWindow wndCtl )
709{
710 SaveDocument(::GetWindow(hClient,GW_CHILD),NULL);
711}
712
713void 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
723void MainFrame::OnCmdCodeSave( UINT uNotifyCode, int nID, CWindow wndCtl )
724{
725 //文字コードを指定して保存
726 DialogBox(hResInst,MAKEINTRESOURCE(IDD_CODE_SAVE),m_hWnd,(DLGPROC)nkfDlgCodeSave);
727}
728
729void 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
740void MainFrame::OnCmdPageSet( UINT uNotifyCode, int nID, CWindow wndCtl )
741{
742 //ページ設定
743 obj_Page.SetupDlg();
744}
745
746void MainFrame::OnCmdPreview( UINT uNotifyCode, int nID, CWindow wndCtl )
747{
748 //プレビュー(Pro版のみ)
749 Preview();
750}
751
752void MainFrame::OnCmdPrintOut( UINT uNotifyCode, int nID, CWindow wndCtl )
753{
754 //印刷
755 Printout();
756}
757
758void MainFrame::OnCmdExit( UINT uNotifyCode, int nID, CWindow wndCtl )
759{
760 SendMessage(WM_CLOSE);
761}
762
763void 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
782void 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
795void 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
856void 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
901void 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
968void 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
980void 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
1009void MainFrame::OnCmdFind( UINT uNotifyCode, int nID, CWindow wndCtl )
1010{
1011 DialogBox(hResInst,MAKEINTRESOURCE(IDD_FIND),m_hWnd,(DLGPROC)DlgFind);
1012}
1013
1014void MainFrame::OnCmdPermutation( UINT uNotifyCode, int nID, CWindow wndCtl )
1015{
1016 DialogBox(hResInst,MAKEINTRESOURCE(IDD_PERMUTATION),m_hWnd,(DLGPROC)DlgPermutation);
1017}
1018
1019void MainFrame::OnCmdConvertX( UINT uNotifyCode, int nID, CWindow wndCtl )
1020{
1021 TextEdit_Convert( nID );
1022}
1023
1024#ifdef THETEXT
1025void MainFrame::OnCmdStringCount( UINT uNotifyCode, int nID, CWindow wndCtl )
1026{
1027 DialogBoxParam(hResInst,MAKEINTRESOURCE(IDD_STRING_COUNT),m_hWnd,(DLGPROC)DlgStringCount,0);
1028}
1029
1030void 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
1036void 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
1068void MainFrame::OnCmdProjectOption( UINT uNotifyCode, int nID, CWindow wndCtl )
1069{
1070 DlgProjectOptionSetting( m_hWnd );
1071}
1072
1073void 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
1085void ResetState_ViewMenu(void);
1086void MainFrame::OnCmdRightTurn( UINT uNotifyCode, int nID, CWindow wndCtl )
1087{
1088 pobj_nv->bRightTurn^=1;
1089 ResetState_ViewMenu();
1090
1091 //トップのウィンドウを再描画
1092 RedrawAllWindow();
1093}
1094
1095void MainFrame::OnCmdSet( UINT uNotifyCode, int nID, CWindow wndCtl )
1096{
1097 DlgOptionSetting( m_hWnd );
1098}
1099
1100void 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
1122void 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,"%s\\pgm.tmp",ActiveBasic::Common::Environment::GetUserAppDir().c_str());
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
1218void 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
1287void 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
1338void 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
1406void 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
1449void MainFrame::OnCmdStepIn( UINT uNotifyCode, int nID, CWindow wndCtl )
1450{
1451 pobj_Debugger->StepIn();
1452}
1453
1454void MainFrame::OnCmdStepOver( UINT uNotifyCode, int nID, CWindow wndCtl )
1455{
1456 pobj_Debugger->StepOver();
1457}
1458
1459void MainFrame::OnCmdStepCursor( UINT uNotifyCode, int nID, CWindow wndCtl )
1460{
1461 pobj_Debugger->StepToCursor();
1462}
1463
1464void 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
1475void MainFrame::OnCmdDebugStop( UINT uNotifyCode, int nID, CWindow wndCtl )
1476{
1477 pobj_Debugger->DebugStop();
1478}
1479
1480void MainFrame::OnCmdDebugPause( UINT uNotifyCode, int nID, CWindow wndCtl )
1481{
1482 pobj_Debugger->DebugPause();
1483}
1484
1485#endif // not THETEXT
1486
1487void 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
1541void 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
1553void MainFrame::OnCmdAbout( UINT uNotifyCode, int nID, CWindow wndCtl )
1554{
1555 DialogBox(hResInst,MAKEINTRESOURCE(IDD_ABOUT),m_hWnd,(DLGPROC)DialogAbout);
1556}
1557
1558void MainFrame::OnCmdDocSelectBand( UINT uNotifyCode, int nID, CWindow wndCtl )
1559{
1560 pobj_Rebar->ChangeRebarBand(ID_DOCCOMBO);
1561}
1562
1563void MainFrame::OnCmdStandardBand( UINT uNotifyCode, int nID, CWindow wndCtl )
1564{
1565 pobj_Rebar->ChangeRebarBand(ID_STANDARDTOOLBAR);
1566}
1567
1568void MainFrame::OnCmdReleaseBand( UINT uNotifyCode, int nID, CWindow wndCtl )
1569{
1570 pobj_Rebar->ChangeRebarBand(ID_RELEASETOOLBAR);
1571}
1572
1573void MainFrame::OnCmdDebugBand( UINT uNotifyCode, int nID, CWindow wndCtl )
1574{
1575 pobj_Rebar->ChangeRebarBand(ID_DEBUGGERTOOLBAR);
1576}
1577
1578void MainFrame::OnCmdSelectCompilerBand( UINT uNotifyCode, int nID, CWindow wndCtl )
1579{
1580 pobj_Rebar->ChangeRebarBand(ID_SELECTCOMPILERCOMBO);
1581}
1582
1583void 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
1595void 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
1610void 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
1621void 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
1639void 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
1651void 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
1677void 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.