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

Last change on this file since 625 was 625, checked in by dai_9181, 16 years ago

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