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

Last change on this file since 619 was 619, checked in by dai_9181, 15 years ago

Projectクラスをリファクタリング中。
File size: 41.1 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::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
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
63BOOL MainFrame::OnQueryEndSession(UINT nSource, UINT uLogOff)
64{
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;
80    if( hCompileView && ::IsWindow( hCompileView ) )
81    {
82        SendMessage(hCompileView,WM_COMMAND,IDCANCEL,0);
83    }
84
85    //次回起動時にMDIウィンドウを最大化させるかを判定
86    HWND hChild=::GetWindow(hClient,GW_CHILD);
87    pobj_nv->bMDIZoomed=::IsZoomed(hChild);
88
89    //プロジェクトを閉じる
90    if( projectInfo.IsOpened() ){
91        if(!projectInfo.Close()) return;
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
145    DestroyWindow();
146}
147void MainFrame::OnDestroy()
148{
149    mdiWindow->DestroyWindow();
150    delete mdiWindow;
151
152    ::PostQuitMessage( 0 );
153}
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);
183void MainFrame::OnMenuSelect( UINT nItemID, UINT nFlags, HMENU menu )
184{
185    MenuAdvice( nItemID );
186}
187
188void MainFrame::OnInitMenu( HMENU menu )
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;
318                if(MdiInfo[WndNum].path[0]){
319                    _splitpath(MdiInfo[WndNum].path,NULL,NULL,temporary,temp2);
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                                                コマンドを場合によって無効化にする */
331                if(MdiInfo[WndNum].path[0]){
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}
356
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)){
385            if(lstrcmpi(MdiInfo[WndNum].path,temporary)==0) break;
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
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");
448        GetFullPath(temporary,projectInfo.dir);
449    }
450    else bAddToProject=0;
451
452    switch(FileType){
453        case FT_BASICPROGRAM:       //Basicプログラム
454        case FT_SUBPROGRAM:
455            if(bAddToProject){
456                WriteBuffer(temporary,0,0);
457                NewTextEditWindow(temporary,WNDTYPE_BASIC);
458                Project_File_Insert(temporary);
459            }
460            else NewTextEditWindow(NULL,WNDTYPE_BASIC);
461            break;
462
463        case FT_PROJECT:
464            DlgNewProjectWizard(hOwner);
465            break;
466
467        case FT_TEXT:
468            NewTextEditWindow(NULL,WNDTYPE_TEXT);
469            break;
470
471        case FT_HTML:
472            NewTextEditWindow(NULL,WNDTYPE_HTML);
473            break;
474
475        case FT_ICON:
476            NewIconEditWindow(NULL);
477            break;
478    }
479#endif
480}
481
482void MainFrame::OnCmdOpen( UINT uNotifyCode, int nID, CWindow wndCtl )
483{
484    //"ファイルを指定してください"
485    extern LPSTR DefFileFilter;
486    char temporary[1024];
487    if(!GetFilePathDialog(m_hWnd,temporary,DefFileFilter,STRING_FILEOPENTITLE_DEFAULT,TRUE)) return;
488
489    OpenFileWithExtension( temporary );
490}
491
492void MainFrame::OnCmdClose( UINT uNotifyCode, int nID, CWindow wndCtl )
493{
494    HWND hChild=::GetWindow(hClient,GW_CHILD);
495    if(::IsWindow(hChild)) SendMessage(hChild,WM_CLOSE,0,0);
496}
497
498void MainFrame::OnCmdProjectOpen( UINT uNotifyCode, int nID, CWindow wndCtl )
499{
500    //"プロジェクト ファイルを指定して下さい"
501    extern LPSTR ProjectFileFilter;
502    char temporary[1024];
503    if(!GetFilePathDialog(m_hWnd,temporary,ProjectFileFilter,STRING_FILEOPENTITLE_PROJECT,TRUE))
504    {
505        return;
506    }
507
508    projectInfo.Open(temporary);
509}
510
511void MainFrame::OnCmdProjectSave( UINT uNotifyCode, int nID, CWindow wndCtl )
512{
513    SaveProject();
514}
515
516void MainFrame::OnCmdProjectClose( UINT uNotifyCode, int nID, CWindow wndCtl )
517{
518    projectInfo.Close();
519}
520
521void MainFrame::OnCmdProjectFolderOpen( UINT uNotifyCode, int nID, CWindow wndCtl )
522{
523    ShellExecute(m_hWnd,"explore",projectInfo.dir,NULL,NULL,SW_SHOWNORMAL);
524}
525
526void MainFrame::OnCmdSave( UINT uNotifyCode, int nID, CWindow wndCtl )
527{
528    SaveDocument(::GetWindow(hClient,GW_CHILD),NULL);
529}
530
531void MainFrame::OnCmdNewSave( UINT uNotifyCode, int nID, CWindow wndCtl )
532{
533    //"保存先のファイルを指定してください"
534    extern LPSTR DefFileFilter;
535    char temporary[1024];
536    if(!GetFilePathDialog(m_hWnd,temporary,DefFileFilter,STRING_FILESAVETITLE_DEFAULT,FALSE)) return;
537
538    SaveDocument(::GetWindow(hClient,GW_CHILD),temporary);
539}
540
541void MainFrame::OnCmdCodeSave( UINT uNotifyCode, int nID, CWindow wndCtl )
542{
543    //文字コードを指定して保存
544    DialogBox(hResInst,MAKEINTRESOURCE(IDD_CODE_SAVE),m_hWnd,(DLGPROC)nkfDlgCodeSave);
545}
546
547void MainFrame::OnCmdAllSave( UINT uNotifyCode, int nID, CWindow wndCtl )
548{
549    for( int i=0;i<MAX_WNDNUM;i++){
550        if(MdiInfo[i].hwnd) SaveDocument(MdiInfo[i].hwnd,NULL);
551    }
552    if( projectInfo.IsOpened() ) SaveProject();
553}
554
555void MainFrame::OnCmdPageSet( UINT uNotifyCode, int nID, CWindow wndCtl )
556{
557    //ページ設定
558    obj_Page.SetupDlg();
559}
560
561void MainFrame::OnCmdPreview( UINT uNotifyCode, int nID, CWindow wndCtl )
562{
563    //プレビュー（Pro版のみ）
564    Preview();
565}
566
567void MainFrame::OnCmdPrintOut( UINT uNotifyCode, int nID, CWindow wndCtl )
568{
569    //印刷
570    Printout();
571}
572
573void MainFrame::OnCmdExit( UINT uNotifyCode, int nID, CWindow wndCtl )
574{
575    SendMessage(WM_CLOSE);
576}
577
578void MainFrame::OnCmdUndo( UINT uNotifyCode, int nID, CWindow wndCtl )
579{
580    HWND hChild=::GetWindow(hClient,GW_CHILD);
581    if(!hChild) return;
582    int WndNum=GetWndNum(hChild);
583    if(IS_DOCUMENT_TEXT(MdiInfo[WndNum].DocType))
584        TextEdit_UndoCommand(WndNum);
585    else if(MdiInfo[WndNum].DocType==WNDTYPE_RAD)
586        Rad_UndoCommand(WndNum);
587    else if(MdiInfo[WndNum].DocType==WNDTYPE_ICONEDIT)
588        IconEdit_UndoCommand(WndNum);
589}
590
591void MainFrame::OnCmdRedo( UINT uNotifyCode, int nID, CWindow wndCtl )
592{
593    HWND hChild=::GetWindow(hClient,GW_CHILD);
594    if(!hChild) return;
595    int WndNum=GetWndNum(hChild);
596    if(IS_DOCUMENT_TEXT(MdiInfo[WndNum].DocType))
597        TextEdit_RedoCommand(WndNum);
598    else if(MdiInfo[WndNum].DocType==WNDTYPE_RAD)
599        Rad_RedoCommand(WndNum);
600    else if(MdiInfo[WndNum].DocType==WNDTYPE_ICONEDIT)
601        IconEdit_RedoCommand(WndNum);
602}
603
604void MainFrame::OnCmdCut( UINT uNotifyCode, int nID, CWindow wndCtl )
605{
606    HWND hChild=::GetWindow(hClient,GW_CHILD);
607    int WndNum=GetWndNum(hChild);
608    if(IS_DOCUMENT_TEXT(MdiInfo[WndNum].DocType)){
609        HWND hEdit=::GetWindow(hChild,GW_CHILD);
610
611        CHARRANGE CharRange;
612        TextEdit_GetSel(WndNum,&CharRange);
613
614        HGLOBAL hGlobal=(char *)GlobalAlloc(GMEM_MOVEABLE,CharRange.cpMax-CharRange.cpMin+1);
615        char *pTemp=(char *)GlobalLock(hGlobal);
616        memcpy(pTemp,MdiInfo[WndNum].pMdiTextEdit->buffer+CharRange.cpMin,CharRange.cpMax-CharRange.cpMin);
617        pTemp[CharRange.cpMax-CharRange.cpMin]=0;
618        GlobalUnlock(hGlobal);
619
620        //クリップボードに保存
621        OpenClipboard();
622        EmptyClipboard();
623        SetClipboardData(CF_TEXT,hGlobal);
624        CloseClipboard();
625
626        //選択文字列を消去
627        SendMessage(hEdit,WM_KEYDOWN,VK_DELETE,0);
628    }
629    else if(MdiInfo[WndNum].DocType==WNDTYPE_RAD){
630        WindowInfo *pWindowInfo = GetWndInfo(MdiInfo[WndNum].path);
631        int indexOfWndInfo = GetWndInfoNum(MdiInfo[WndNum].path);
632
633        //クリップボードに格納するためのデータを用意する
634        pWindowInfo->childWindowInfos[MdiInfo[WndNum].MdiRadInfo->SelectingItem[0]]->pos.x-=17;
635        pWindowInfo->childWindowInfos[MdiInfo[WndNum].MdiRadInfo->SelectingItem[0]]->pos.y-=10;
636        HGLOBAL hGlobal=Rad_GetChildInfoClipboardData(WndNum,indexOfWndInfo);
637        pWindowInfo->childWindowInfos[MdiInfo[WndNum].MdiRadInfo->SelectingItem[0]]->pos.x+=17;
638        pWindowInfo->childWindowInfos[MdiInfo[WndNum].MdiRadInfo->SelectingItem[0]]->pos.y+=10;
639
640        OpenClipboard();
641        EmptyClipboard();
642        extern DWORD dwRadClipboardID;
643        SetClipboardData(dwRadClipboardID,hGlobal);
644        CloseClipboard();
645
646        SendMessage(MdiInfo[WndNum].MdiRadInfo->hRad,WM_COMMAND,IDM_RAD_ITEM_DELETE,0);
647    }
648    else if(MdiInfo[WndNum].DocType==WNDTYPE_ICONEDIT){
649        //クリップボードに格納するためのデータを用意する
650        HGLOBAL hGlobal=IconEdit_GetChildInfoClipboardData(WndNum);
651        if(hGlobal==0) return;
652
653        OpenClipboard();
654        EmptyClipboard();
655        SetClipboardData(CF_BITMAP,hGlobal);
656        CloseClipboard();
657
658        DeleteObject(MdiInfo[WndNum].MdiIconEditInfo->hSelectingBmp);
659        MdiInfo[WndNum].MdiIconEditInfo->SelectLevel=0;
660
661        IconEdit_EraseRect(WndNum,&MdiInfo[WndNum].MdiIconEditInfo->DraggingRect);
662    }
663}
664
665void MainFrame::OnCmdCopy( UINT uNotifyCode, int nID, CWindow wndCtl )
666{
667    HWND hChild=::GetWindow(hClient,GW_CHILD);
668    int WndNum=GetWndNum(hChild);
669    if(IS_DOCUMENT_TEXT(MdiInfo[WndNum].DocType)){
670        HWND hEdit = ::GetWindow(hChild,GW_CHILD);
671
672        CHARRANGE CharRange;
673        TextEdit_GetSel(WndNum,&CharRange);
674
675        HGLOBAL hGlobal=(char *)GlobalAlloc(GMEM_MOVEABLE,CharRange.cpMax-CharRange.cpMin+1);
676        char *pTemp=(char *)GlobalLock(hGlobal);
677        memcpy(pTemp,MdiInfo[WndNum].pMdiTextEdit->buffer+CharRange.cpMin,CharRange.cpMax-CharRange.cpMin);
678        pTemp[CharRange.cpMax-CharRange.cpMin]=0;
679        GlobalUnlock(hGlobal);
680
681        //クリップボードに保存
682        OpenClipboard();
683        EmptyClipboard();
684        SetClipboardData(CF_TEXT,hGlobal);
685        CloseClipboard();
686    }
687    else if(MdiInfo[WndNum].DocType==WNDTYPE_RAD){
688        int indexOfWndInfo = GetWndInfoNum(MdiInfo[WndNum].path);
689
690        //クリップボードに格納するためのデータを用意する
691        HGLOBAL hGlobal=Rad_GetChildInfoClipboardData(WndNum,indexOfWndInfo);
692
693        OpenClipboard();
694        EmptyClipboard();
695        extern DWORD dwRadClipboardID;
696        SetClipboardData(dwRadClipboardID,hGlobal);
697        CloseClipboard();
698    }
699    else if(MdiInfo[WndNum].DocType==WNDTYPE_ICONEDIT){
700        //クリップボードに格納するためのデータを用意する
701        HGLOBAL hGlobal=IconEdit_GetChildInfoClipboardData(WndNum);
702
703        OpenClipboard();
704        EmptyClipboard();
705        SetClipboardData(CF_BITMAP,hGlobal);
706        CloseClipboard();
707    }
708}
709
710void MainFrame::OnCmdPaste( UINT uNotifyCode, int nID, CWindow wndCtl )
711{
712    HWND hChild=::GetWindow(hClient,GW_CHILD);
713    int WndNum=GetWndNum(hChild);
714    if(IS_DOCUMENT_TEXT(MdiInfo[WndNum].DocType)){
715        HWND hEdit=::GetWindow(hChild,GW_CHILD);
716
717        //クリップボードを開く
718        OpenClipboard();
719        HGLOBAL hGlobal=GetClipboardData(CF_TEXT);
720        if(!hGlobal){
721            CloseClipboard();
722            return;
723        }
724
725
726        char *pTemp;
727        if(pobj_nv->bPasteIndent){
728            //インデント整形
729            pTemp=CodeFormatter((char *)GlobalLock(hGlobal));
730            GlobalUnlock(hGlobal);
731        }
732        else pTemp=(char *)GlobalLock(hGlobal);
733
734
735        //テキストエディタの文字列をリプレイス
736        TextEdit_ReplaceUpdateUndoData(WndNum,
737            pTemp,
738            1,
739            1);
740
741        if(pobj_nv->bPasteIndent)
742            HeapDefaultFree(pTemp);
743        else
744            GlobalUnlock(hGlobal);
745
746        //クリップボードを閉じる
747        CloseClipboard();
748
749
750        //キャレット位置までスクロールする
751        TextEdit_ScrollCaret(WndNum,0);
752        ResetCaretPos(WndNum);
753    }
754    else if(MdiInfo[WndNum].DocType==WNDTYPE_RAD){
755        OpenClipboard();
756        extern DWORD dwRadClipboardID;
757        HGLOBAL hGlobal=GetClipboardData(dwRadClipboardID);
758        if(!hGlobal){
759            CloseClipboard();
760            return;
761        }
762        Rad_PasteChildInfoClipboardData(WndNum,hGlobal);
763        CloseClipboard();
764    }
765    else if(MdiInfo[WndNum].DocType==WNDTYPE_ICONEDIT){
766        OpenClipboard();
767        HGLOBAL hGlobal=GetClipboardData(CF_BITMAP);
768        if(!hGlobal){
769            CloseClipboard();
770            return;
771        }
772        IconEdit_PasteChildInfoClipboardData(WndNum,(HBITMAP)hGlobal);
773        CloseClipboard();
774    }
775}
776
777void MainFrame::OnCmdDelete( UINT uNotifyCode, int nID, CWindow wndCtl )
778{
779    HWND hChild=::GetWindow(hClient,GW_CHILD);
780    int WndNum=GetWndNum(hChild);
781    if(IS_DOCUMENT_TEXT(MdiInfo[WndNum].DocType)){
782        HWND hEdit=::GetWindow(hChild,GW_CHILD);
783        TextEdit_ReplaceUpdateUndoData(WndNum,"",0,1);
784    }
785    else if(MdiInfo[WndNum].DocType==WNDTYPE_RAD)
786        SendMessage(MdiInfo[WndNum].MdiRadInfo->hRad,WM_COMMAND,IDM_RAD_ITEM_DELETE,0);
787}
788
789void MainFrame::OnCmdAllSelect( UINT uNotifyCode, int nID, CWindow wndCtl )
790{
791    HWND hChild=::GetWindow(hClient,GW_CHILD);
792    int WndNum=GetWndNum(hChild);
793    if(IS_DOCUMENT_TEXT(MdiInfo[WndNum].DocType)){
794        HWND hEdit=::GetWindow(hChild,GW_CHILD);
795
796        MdiInfo[WndNum].pMdiTextEdit->StartCaretPos.x=0;
797        MdiInfo[WndNum].pMdiTextEdit->StartCaretPos.y=0;
798
799        GetCaretPosFromBufferIndex(
800            MdiInfo[WndNum].pMdiTextEdit->buffer,
801            lstrlen(MdiInfo[WndNum].pMdiTextEdit->buffer),
802            &MdiInfo[WndNum].pMdiTextEdit->EndCaretPos);
803
804        ::InvalidateRect(hEdit,NULL,0);
805
806        ResetState_EditMenu();
807    }
808    else if(MdiInfo[WndNum].DocType==WNDTYPE_RAD){
809        WindowInfo *pWindowInfo = GetWndInfo(MdiInfo[WndNum].path);
810        for(int i3=0;i3<pWindowInfo->childWindowInfos.size();i3++){
811            MdiInfo[WndNum].MdiRadInfo->SelectingItem[i3]=i3;
812        }
813        DrawRadWindow(WndNum,pWindowInfo);
814    }
815}
816
817void MainFrame::OnCmdFind( UINT uNotifyCode, int nID, CWindow wndCtl )
818{
819    DialogBox(hResInst,MAKEINTRESOURCE(IDD_FIND),m_hWnd,(DLGPROC)DlgFind);
820}
821
822void MainFrame::OnCmdPermutation( UINT uNotifyCode, int nID, CWindow wndCtl )
823{
824    DialogBox(hResInst,MAKEINTRESOURCE(IDD_PERMUTATION),m_hWnd,(DLGPROC)DlgPermutation);
825}
826
827void MainFrame::OnCmdConvertX( UINT uNotifyCode, int nID, CWindow wndCtl )
828{
829    TextEdit_Convert( nID );
830}
831
832#ifdef THETEXT
833void MainFrame::OnCmdStringCount( UINT uNotifyCode, int nID, CWindow wndCtl )
834{
835    DialogBoxParam(hResInst,MAKEINTRESOURCE(IDD_STRING_COUNT),m_hWnd,(DLGPROC)DlgStringCount,0);
836}
837
838void MainFrame::OnCmdSelStringCount( UINT uNotifyCode, int nID, CWindow wndCtl )
839{
840    DialogBoxParam(hResInst,MAKEINTRESOURCE(IDD_STRING_COUNT),m_hWnd,(DLGPROC)DlgStringCount,1);
841}
842#endif
843
844void MainFrame::OnCmdProjectView( UINT uNotifyCode, int nID, CWindow wndCtl )
845{
846    extern HWND hProjectView;
847    bool isCheck = false;
848    if(pobj_nv->bClipProjectView){
849        if(::IsWindowVisible(hProjectView)){
850            ::ShowWindow(hProjectView,SW_HIDE);
851        }
852        else{
853            ::ShowWindow(hProjectView,SW_SHOW);
854            isCheck = true;
855        }
856    }
857    else{
858        extern HWND hProjectView_ToolWindow;
859        if(::IsWindowVisible(hProjectView_ToolWindow)){
860            ::ShowWindow(hProjectView_ToolWindow,SW_HIDE);
861        }
862        else{
863            ::ShowWindow(hProjectView_ToolWindow,SW_SHOW);
864            ::ShowWindow(hProjectView,SW_SHOW);
865            isCheck = true;
866        }
867    }
868    pobj_MainMenu->CheckMenu(IDM_PROJECTVIEW,isCheck);
869
870    //再配置
871    ResizeOwnerWnd();
872
873    ::ShowWindow(hClient,SW_SHOW);
874}
875
876void MainFrame::OnCmdProjectOption( UINT uNotifyCode, int nID, CWindow wndCtl )
877{
878    DlgProjectOptionSetting( m_hWnd );
879}
880
881void MainFrame::OnCmdTopMost( UINT uNotifyCode, int nID, CWindow wndCtl )
882{
883    if(pobj_MainMenu->IsCheck(IDM_TOPMOST)){
884        SetWindowPos( HWND_NOTOPMOST,0,0,0,0,SWP_NOMOVE|SWP_NOSIZE);
885        pobj_MainMenu->CheckMenu(IDM_TOPMOST,0);
886    }
887    else{
888        SetWindowPos( HWND_TOPMOST,0,0,0,0,SWP_NOMOVE|SWP_NOSIZE);
889        pobj_MainMenu->CheckMenu(IDM_TOPMOST,1);
890    }
891}
892
893void ResetState_ViewMenu(void);
894void MainFrame::OnCmdRightTurn( UINT uNotifyCode, int nID, CWindow wndCtl )
895{
896    pobj_nv->bRightTurn^=1;
897    ResetState_ViewMenu();
898
899    //トップのウィンドウを再描画
900    RedrawAllWindow();
901}
902
903void MainFrame::OnCmdSet( UINT uNotifyCode, int nID, CWindow wndCtl )
904{
905    DlgOptionSetting( m_hWnd );
906}
907
908void CreateProcessWithStdHandle( const std::string &appPath, const std::string &cmdLine)
909{
910    std::string argsStr = (std::string)"\"" + appPath + "\" " + cmdLine;
911    STARTUPINFO si;
912    PROCESS_INFORMATION pi;
913    memset(&si,0,sizeof(STARTUPINFO));
914    si.cb=sizeof(STARTUPINFO);
915    si.dwFlags = STARTF_USESTDHANDLES | STARTF_USESHOWWINDOW;
916    si.wShowWindow = SW_HIDE;
917    si.hStdOutput = GetStdHandle(STD_OUTPUT_HANDLE);
918    si.hStdInput = GetStdHandle(STD_INPUT_HANDLE);
919    si.hStdError = GetStdHandle(STD_ERROR_HANDLE);
920   
921    char args[8192];
922    lstrcpy( args, argsStr.c_str() );
923
924    CreateProcess( NULL, args, NULL, NULL, FALSE, NORMAL_PRIORITY_CLASS, NULL, NULL, &si, &pi );
925}
926
927#ifndef THETEXT
928void MainFrame::OnCmdDebug( UINT uNotifyCode, int nID, CWindow wndCtl )
929{
930    char temporary[1024], temp2[1024], temp3[1024];
931    if(pobj_Debugger->IsDebugging()){
932        pobj_Debugger->DebugContinue();
933        return;
934    }
935
936    HWND hChild = ::GetWindow(hClient,GW_CHILD);
937    if( projectInfo.IsOpened() ){
938        //プロジェクトが開かれている場合
939        if(!SetProjectToRun()) return;
940
941        //デバッグ用のコマンドライン及び実行可能ファイル（DLLのみ）
942        sprintf(temporary,"%s\r\n%s",projectInfo.szExePath,projectInfo.szCmdLine);
943        sprintf(temp2,"%spgm.tmp",pj_editor_Dir);
944        HANDLE hFile=CreateFile(temp2,GENERIC_WRITE,0,NULL,CREATE_ALWAYS,FILE_ATTRIBUTE_ARCHIVE|FILE_ATTRIBUTE_HIDDEN|FILE_ATTRIBUTE_TEMPORARY,NULL);
945        DWORD dwAccessBytes;
946        WriteFile(hFile,temporary,lstrlen(temporary),&dwAccessBytes,NULL);
947        CloseHandle(hFile);
948
949        //ソースファイル名をtemp2へ
950        projectInfo.pobj_DBFileInfo->ppobj_FileInfo[0]->GetFullPath(temp2);
951
952        //出力ファイル名をtemp3へ
953        lstrcpy(temp3,projectInfo.lpszOutput_Debug);
954        GetFullPath(temp3,projectInfo.dir);
955
956        if(IsNeedCompileForProject(1))
957            sprintf(temporary,"\"%s\" \"%s\" /debug /run /wnd:%08x",temp2,temp3,m_hWnd);
958        else
959            sprintf(temporary,"\"%s\" \"%s\" /run /wnd:%08x",temp2,temp3,m_hWnd);
960
961        // DLLオプション
962        if( projectInfo.GetModuleType() == ActiveBasic::Common::TargetModuleType::Dll )
963        {
964            lstrcat(temporary," /dll");
965        }
966
967        // SLLオプション
968        if( projectInfo.GetModuleType() == ActiveBasic::Common::TargetModuleType::Sll )
969        {
970            lstrcat(temporary," /static_library");
971        }
972
973        //Unicodeオプション
974        if(projectInfo.dwOption & PJ_OP_UNICODE) lstrcat(temporary," /unicode");
975
976        //ブレークポイントをセーブ
977        projectInfo.pobj_DBBreakPoint->SaveToTempFile();
978    }
979    else{
980        //単独ソースコード
981        if(!SetRunning(hChild)) return;
982        if(IsNeedCompile(MdiInfo[GetWndNum(hChild)].path,1))
983            sprintf(temporary,"\"%s\" /debug /run /wnd:%08x",MdiInfo[GetWndNum(hChild)].path,m_hWnd);
984        else
985            sprintf(temporary,"\"%s\" /run /wnd:%08x",MdiInfo[GetWndNum(hChild)].path,m_hWnd);
986
987        //ブレークポイントをセーブ
988        extern CDBBreakPoint *pobj_DBBreakPoint;
989        pobj_DBBreakPoint->SaveToTempFile();
990    }
991
992    //コンパイルビューをクリップするかどうか
993    extern BOOL bClipCompileView;
994    if(bClipCompileView){
995        lstrcat(temporary," /clip_compile_view");
996
997        //コンパイラビューを閉じる
998        extern HWND hCompileView;
999        if(hCompileView==(HWND)-1) return;
1000        if(hCompileView){
1001            hChild=hCompileView;
1002            hCompileView=(HWND)-1;
1003            SendMessage(hChild,WM_COMMAND,IDCANCEL,0);
1004        }
1005
1006        //重複起動防止のため
1007        hCompileView=(HWND)-1;
1008    }
1009
1010    //インクルードディレクトリ
1011    sprintf(temp2," /include_dir:\"%s\"",pobj_nv->GetIncludeDirFullPath().c_str());
1012    lstrcat(temporary,temp2);
1013
1014    extern ActiveBasic::Common::Platform::EnumType selectingPlatform;
1015    CreateProcessWithStdHandle( ActiveBasic::Common::Environment::GetCompilerExePath( selectingPlatform ), temporary );
1016}
1017
1018void MainFrame::OnCmdDebugCompile( UINT uNotifyCode, int nID, CWindow wndCtl )
1019{
1020    char temporary[1024], temp2[1024], temp3[1024];
1021
1022    HWND hChild=::GetWindow(hClient,GW_CHILD);
1023    if( projectInfo.IsOpened() ){
1024        //プロジェクトが開かれている場合
1025        if(!SetProjectToRun()) return;
1026
1027        //ソースファイル名をtemp2へ
1028        projectInfo.pobj_DBFileInfo->ppobj_FileInfo[0]->GetFullPath(temp2);
1029
1030        //出力ファイル名をtemp3へ
1031        lstrcpy(temp3,projectInfo.lpszOutput_Debug);
1032        GetFullPath(temp3,projectInfo.dir);
1033
1034        sprintf(temporary,"\"%s\" \"%s\" /debug /wnd:%08x",temp2,temp3,m_hWnd);
1035
1036        //DLLオプション
1037        if( projectInfo.GetModuleType() == ActiveBasic::Common::TargetModuleType::Dll )
1038        {
1039            lstrcat(temporary," /dll");
1040        }
1041
1042        //Unicodeオプション
1043        if(projectInfo.dwOption & PJ_OP_UNICODE) lstrcat(temporary," /unicode");
1044    }
1045    else{
1046        //単独ソースコード
1047        if(!SetRunning(hChild)) return;
1048        sprintf(temporary,"\"%s\" /debug /wnd:%08x",MdiInfo[GetWndNum(hChild)].path,m_hWnd);
1049    }
1050
1051    //コンパイルビューをクリップするかどうか
1052    extern BOOL bClipCompileView;
1053    if(bClipCompileView){
1054        lstrcat(temporary," /clip_compile_view");
1055
1056        //コンパイラビューを閉じる
1057        extern HWND hCompileView;
1058        if(hCompileView==(HWND)-1) return;
1059        if(hCompileView){
1060            hChild=hCompileView;
1061            hCompileView=(HWND)-1;
1062            if( ::IsWindow( hChild ) )
1063            {
1064                SendMessage(hChild,WM_COMMAND,IDCANCEL,0);
1065            }
1066        }
1067
1068        //重複起動防止のため
1069        hCompileView=(HWND)-1; 
1070    }
1071
1072    //インクルードディレクトリ
1073    sprintf(temp2," /include_dir:\"%s\"",pobj_nv->GetIncludeDirFullPath().c_str());
1074    lstrcat(temporary,temp2);
1075
1076    extern ActiveBasic::Common::Platform::EnumType selectingPlatform;
1077    CreateProcessWithStdHandle( ActiveBasic::Common::Environment::GetCompilerExePath( selectingPlatform ), temporary );
1078
1079}
1080
1081void MainFrame::OnCmdAttach( UINT uNotifyCode, int nID, CWindow wndCtl )
1082{
1083    char temporary[1024], temp2[1024];
1084
1085    int idProcess;
1086    DWORD dwPlatform;
1087    idProcess=DialogBoxParam(hResInst,MAKEINTRESOURCE(IDD_ATTACH),m_hWnd,(DLGPROC)DlgAttach,(LPARAM)&dwPlatform);
1088    if(idProcess==0) return;
1089
1090    sprintf(temporary,"/attach:%08x /wnd:%08x",idProcess,m_hWnd);
1091
1092    //コンパイルビューをクリップするかどうか
1093    extern BOOL bClipCompileView;
1094    if(bClipCompileView){
1095        lstrcat(temporary," /clip_compile_view");
1096
1097        //コンパイラビューを閉じる
1098        extern HWND hCompileView;
1099        if(hCompileView==(HWND)-1) return;
1100        if(hCompileView){
1101            HWND hChild=hCompileView;
1102            hCompileView=(HWND)-1;
1103            SendMessage(hChild,WM_COMMAND,IDCANCEL,0);
1104        }
1105
1106        //重複起動防止のため
1107        hCompileView=(HWND)-1;
1108    }
1109
1110    //インクルードディレクトリ
1111    sprintf(temp2," /include_dir:\"%s\"",pobj_nv->GetIncludeDirFullPath().c_str());
1112    lstrcat(temporary,temp2);
1113
1114    ActiveBasic::Common::Platform::EnumType platform;
1115    if(dwPlatform==IMAGE_FILE_MACHINE_I386)
1116    {
1117        platform = ActiveBasic::Common::Platform::X86;
1118    }
1119    else if(dwPlatform==IMAGE_FILE_MACHINE_AMD64)
1120    {
1121        platform = ActiveBasic::Common::Platform::X64;
1122    }
1123    else
1124    {
1125        throw;
1126    }
1127
1128    extern ActiveBasic::Common::Platform::EnumType selectingPlatform;
1129    CreateProcessWithStdHandle( ActiveBasic::Common::Environment::GetCompilerExePath( platform ), temporary );
1130}
1131
1132void MainFrame::OnCmdReleaseCompile( UINT uNotifyCode, int nID, CWindow wndCtl )
1133{
1134    char temporary[1024], temp2[1024], temp3[1024];
1135
1136    HWND hChild=::GetWindow(hClient,GW_CHILD);
1137    if( projectInfo.IsOpened() ){
1138        //プロジェクトが開かれている場合
1139        if(!SetProjectToRun()) return;
1140
1141        //ソースファイル名をtemp2へ
1142        projectInfo.pobj_DBFileInfo->ppobj_FileInfo[0]->GetFullPath(temp2);
1143
1144        //出力ファイル名をtemp3へ
1145        lstrcpy(temp3,projectInfo.lpszOutput_Release);
1146        GetFullPath(temp3,projectInfo.dir);
1147
1148        sprintf(temporary,"\"%s\" \"%s\" /wnd:%08x",temp2,temp3,m_hWnd);
1149
1150        //DLLオプション
1151        if( projectInfo.GetModuleType() == ActiveBasic::Common::TargetModuleType::Dll )
1152        {
1153            lstrcat(temporary," /dll");
1154        }
1155
1156        //Unicodeオプション
1157        if(projectInfo.dwOption & PJ_OP_UNICODE) lstrcat(temporary," /unicode");
1158    }
1159    else{
1160        //単独ソースコード
1161        if(!SetRunning(hChild)) return;
1162        sprintf(temporary,"\"%s\" /wnd:%08x",MdiInfo[GetWndNum(hChild)].path,m_hWnd);
1163    }
1164
1165    //コンパイルビューをクリップするかどうか
1166    extern BOOL bClipCompileView;
1167    if(bClipCompileView){
1168        lstrcat(temporary," /clip_compile_view");
1169
1170        //コンパイラビューを閉じる
1171        extern HWND hCompileView;
1172        if(hCompileView==(HWND)-1) return;
1173        if(hCompileView){
1174            hChild=hCompileView;
1175            hCompileView=(HWND)-1;
1176            SendMessage(hChild,WM_COMMAND,IDCANCEL,0);
1177        }
1178
1179        //重複起動防止のため
1180        hCompileView=(HWND)-1;
1181    }
1182
1183    //インクルードディレクトリ
1184    sprintf(temp2," /include_dir:\"%s\"",pobj_nv->GetIncludeDirFullPath().c_str());
1185    lstrcat(temporary,temp2);
1186
1187    extern ActiveBasic::Common::Platform::EnumType selectingPlatform;
1188    CreateProcessWithStdHandle( ActiveBasic::Common::Environment::GetCompilerExePath( selectingPlatform ), temporary );
1189}
1190
1191void MainFrame::OnCmdReleaseRun( UINT uNotifyCode, int nID, CWindow wndCtl )
1192{
1193    char temporary[1024], temp2[1024], temp3[1024];
1194
1195    HWND hChild=::GetWindow(hClient,GW_CHILD);
1196    if( projectInfo.IsOpened() ){
1197/*                      //プロジェクトが開かれている場合
1198        if(!SetProjectToRun()) return;
1199
1200        //必要であればリリースコンパイル
1201        if(IsNeedCompileForProject(0))
1202            SendMessage(WM_COMMAND,IDM_RELEASECOMPILE,0);*/
1203
1204        if( projectInfo.GetModuleType() == ActiveBasic::Common::TargetModuleType::Dll )
1205        {
1206            lstrcpy(temporary,projectInfo.szExePath);
1207        }
1208        else{
1209            lstrcpy(temporary,projectInfo.lpszOutput_Debug);
1210            GetFullPath(temporary,projectInfo.dir);
1211        }
1212    }
1213    else{
1214/*                      //必要であればリリースコンパイル
1215        if(!SetRunning(hChild)) return;
1216
1217        if(IsNeedCompile(MdiInfo[GetWndNum(hChild)].path,0))
1218            SendMessage(WM_COMMAND,IDM_RELEASECOMPILE,0);*/
1219
1220        //単独ソースコード
1221        _splitpath(MdiInfo[GetWndNum(hChild)].path,temporary,temp2,temp3,NULL);
1222        lstrcat(temporary,temp2);
1223        lstrcat(temporary,temp3);
1224        lstrcat(temporary,".exe");
1225    }
1226
1227    //インクルードディレクトリ
1228    sprintf(temp2," /include_dir:\"%s\"",pobj_nv->GetIncludeDirFullPath().c_str());
1229    lstrcat(temporary,temp2);
1230
1231    ShellExecute(m_hWnd,"open",temporary,NULL,NULL,SW_SHOWNORMAL);
1232}
1233
1234void MainFrame::OnCmdStepIn( UINT uNotifyCode, int nID, CWindow wndCtl )
1235{
1236    pobj_Debugger->StepIn();
1237}
1238
1239void MainFrame::OnCmdStepOver( UINT uNotifyCode, int nID, CWindow wndCtl )
1240{
1241    pobj_Debugger->StepOver();
1242}
1243
1244void MainFrame::OnCmdStepCursor( UINT uNotifyCode, int nID, CWindow wndCtl )
1245{
1246    pobj_Debugger->StepToCursor();
1247}
1248
1249void MainFrame::OnCmdBreakPoint( UINT uNotifyCode, int nID, CWindow wndCtl )
1250{
1251    if( projectInfo.IsOpened() ){
1252        projectInfo.pobj_DBBreakPoint->Event_BreakPoint();
1253    }
1254    else{
1255        extern CDBBreakPoint *pobj_DBBreakPoint;
1256        pobj_DBBreakPoint->Event_BreakPoint();
1257    }
1258}
1259
1260void MainFrame::OnCmdDebugStop( UINT uNotifyCode, int nID, CWindow wndCtl )
1261{
1262    pobj_Debugger->DebugStop();
1263}
1264
1265void MainFrame::OnCmdDebugPause( UINT uNotifyCode, int nID, CWindow wndCtl )
1266{
1267    pobj_Debugger->DebugPause();
1268}
1269
1270#endif  // not THETEXT
1271
1272void MainFrame::OnCmdWebLink( UINT uNotifyCode, int nID, CWindow wndCtl )
1273{
1274    switch( nID )
1275    {
1276#ifndef THETEXT
1277    case IDM_COMMUNITY:
1278        OpenWebBrowser( "http://www.activebasic.com/forum/" );
1279        break;
1280    case IDM_COMMU_SEARCH:
1281        OpenWebBrowser( "http://www.activebasic.com/forum/search.php" );
1282        break;
1283    case IDM_COMMU_PM:
1284        OpenWebBrowser( "http://www.activebasic.com/forum/privmsg.php?folder=inbox" );
1285        break;
1286    case ID_COMMU_FORUM1:
1287        OpenWebBrowser( "http://www.activebasic.com/forum/viewforum.php?f=1" );
1288        break;
1289    case ID_COMMU_FORUM2:
1290        OpenWebBrowser( "http://www.activebasic.com/forum/viewforum.php?f=2" );
1291        break;
1292    case ID_COMMU_FORUM3:
1293        OpenWebBrowser( "http://www.activebasic.com/forum/viewforum.php?f=5" );
1294        break;
1295    case ID_COMMU_FORUM4:
1296        OpenWebBrowser( "http://www.activebasic.com/forum/viewforum.php?f=3" );
1297        break;
1298    case ID_COMMU_FORUM5:
1299        OpenWebBrowser( "http://www.activebasic.com/forum/viewforum.php?f=6" );
1300        break;
1301    case ID_COMMU_FORUM6:
1302        OpenWebBrowser( "http://www.activebasic.com/forum/viewforum.php?f=8" );
1303        break;
1304    case ID_COMMU_FORUM7:
1305        OpenWebBrowser( "http://www.activebasic.com/forum/viewforum.php?f=4" );
1306        break;
1307    case ID_COMMU_FORUM8:
1308        OpenWebBrowser( "http://www.activebasic.com/forum/viewforum.php?f=7" );
1309        break;
1310    case IDM_AB_WEBSITE:
1311        OpenWebBrowser( "http://www.activebasic.com/" );
1312        break;
1313    case IDM_ACTBDL:
1314        OpenWebBrowser( "http://www.activebasic.com/activebasic5/download.htm" );
1315        break;
1316#else
1317    case IDM_DSHOMEPAGE:
1318        OpenWebBrowser( "http://www.discoversoft.net/" );
1319        break;
1320#endif // not THETEXT
1321    default:
1322        throw;
1323    }
1324}
1325
1326void MainFrame::OnCmdTopics( UINT uNotifyCode, int nID, CWindow wndCtl )
1327{
1328    char temporary[1024];
1329#ifdef THETEXT
1330    sprintf(temporary,"%sTopics\\index.html",pj_editor_Dir);
1331    ShellExecute(m_hWnd,"open",temporary,NULL,NULL,SW_SHOWNORMAL);
1332#else
1333    sprintf(temporary,"%sBasicHelp.chm",pj_editor_Dir);
1334    HtmlHelp(NULL,temporary,HH_DISPLAY_TOPIC,0);
1335#endif
1336}
1337
1338void MainFrame::OnCmdAbout( UINT uNotifyCode, int nID, CWindow wndCtl )
1339{
1340    DialogBox(hResInst,MAKEINTRESOURCE(IDD_ABOUT),m_hWnd,(DLGPROC)DialogAbout);
1341}
1342
1343void MainFrame::OnCmdDocSelectBand( UINT uNotifyCode, int nID, CWindow wndCtl )
1344{
1345    pobj_Rebar->ChangeRebarBand(ID_DOCCOMBO);
1346}
1347
1348void MainFrame::OnCmdStandardBand( UINT uNotifyCode, int nID, CWindow wndCtl )
1349{
1350    pobj_Rebar->ChangeRebarBand(ID_STANDARDTOOLBAR);
1351}
1352
1353void MainFrame::OnCmdReleaseBand( UINT uNotifyCode, int nID, CWindow wndCtl )
1354{
1355    pobj_Rebar->ChangeRebarBand(ID_RELEASETOOLBAR);
1356}
1357
1358void MainFrame::OnCmdDebugBand( UINT uNotifyCode, int nID, CWindow wndCtl )
1359{
1360    pobj_Rebar->ChangeRebarBand(ID_DEBUGGERTOOLBAR);
1361}
1362
1363void MainFrame::OnCmdSelectCompilerBand( UINT uNotifyCode, int nID, CWindow wndCtl )
1364{
1365    pobj_Rebar->ChangeRebarBand(ID_SELECTCOMPILERCOMBO);
1366}
1367
1368void MainFrame::OnCmdNoGripper( UINT uNotifyCode, int nID, CWindow wndCtl )
1369{
1370    if(pobj_nv->bNoGripper) pobj_nv->bNoGripper=0;
1371    else pobj_nv->bNoGripper=1;
1372
1373    //レバーコントロールを再生成
1374    pobj_Rebar->ResetRebar();
1375
1376    //メニュー状態を設定
1377    ResetState_DocMenu();
1378}
1379
1380void MainFrame::OnCmdResetRebar( UINT uNotifyCode, int nID, CWindow wndCtl )
1381{
1382    //"ツールバーの配置をすべて初期状態に戻します。\nよろしいですか？"
1383    if( MessageBox(STRING_TOOLBAR_RESET,APPLICATION_NAME,MB_OKCANCEL|MB_ICONEXCLAMATION) == IDCANCEL )
1384    {
1385        return;
1386    }
1387
1388    //レバーコントロールを再生成
1389    pobj_Rebar->ResetInitRebar();
1390
1391    //メニュー状態を設定
1392    ResetState_DocMenu();
1393}
1394
1395void MainFrame::OnCmdAllCloseOmitMyself( UINT uNotifyCode, int nID, CWindow wndCtl )
1396{
1397    //このウィンドウ以外をすべて閉じる(&A)
1398    HWND hChild=::GetWindow(hClient,GW_CHILD);
1399    int WndNum=GetWndNum(hChild);
1400    for(int i=0;i<MAX_WNDNUM;i++){
1401        if(i==WndNum) continue;
1402        if(MdiInfo[i].hwnd) SendMessage(MdiInfo[i].hwnd,WM_CLOSE,0,0);
1403    }
1404}
1405
1406void MainFrame::OnCmdPathCopy( UINT uNotifyCode, int nID, CWindow wndCtl )
1407{
1408    HWND hChild=::GetWindow(hClient,GW_CHILD);
1409    int WndNum=GetWndNum(hChild);
1410
1411    //絶対パスをコピー
1412    HGLOBAL hGlobal=(char *)GlobalAlloc(GMEM_MOVEABLE,lstrlen(MdiInfo[WndNum].path)+1);
1413    char *pTemp=(char *)GlobalLock(hGlobal);
1414    lstrcpy(pTemp,MdiInfo[WndNum].path);
1415    GlobalUnlock(hGlobal);
1416
1417    //クリップボードに保存
1418    OpenClipboard();
1419    EmptyClipboard();
1420    SetClipboardData(CF_TEXT,hGlobal);
1421    CloseClipboard();
1422}
1423
1424void MainFrame::OnCmdFolderOpen( UINT uNotifyCode, int nID, CWindow wndCtl )
1425{
1426    HWND hChild=::GetWindow(hClient,GW_CHILD);
1427    int WndNum=GetWndNum(hChild);
1428
1429    char temporary[1024], temp2[1024];
1430    _splitpath(MdiInfo[WndNum].path,temporary,temp2,NULL,NULL);
1431    lstrcat(temporary,temp2);
1432
1433    OpenExplorer( temporary );
1434}
1435
1436void MainFrame::OnCmdDeleteFile( UINT uNotifyCode, int nID, CWindow wndCtl )
1437{
1438    HWND hChild=::GetWindow(hClient,GW_CHILD);
1439    int WndNum=GetWndNum(hChild);
1440
1441    char temporary[1024], temp2[1024];
1442    _splitpath(MdiInfo[WndNum].path,NULL,NULL,temporary,temp2);
1443    lstrcat(temporary,temp2);
1444
1445    lstrcat(temporary," をごみ箱に移動して閉じます。よろしいですか？");
1446    if(MessageBox(temporary,APPLICATION_NAME,MB_OKCANCEL|MB_ICONQUESTION)==IDCANCEL) return;
1447
1448    //ゴミ箱へ
1449    SHFILEOPSTRUCT fo;
1450    fo.hwnd=m_hWnd;
1451    fo.wFunc=FO_DELETE;
1452    fo.pFrom =MdiInfo[WndNum].path;
1453    fo.pTo="\0";
1454    fo.fFlags =FOF_ALLOWUNDO|FOF_NOCONFIRMATION;
1455    SHFileOperation(&fo);
1456
1457    //閉じる
1458    MdiInfo[WndNum].pMdiTextEdit->UnModify();
1459    SendMessage(MdiInfo[WndNum].hwnd,WM_CLOSE,0,0);
1460}
1461
1462void MainFrame::OnCmdColor( UINT uNotifyCode, int nID, CWindow wndCtl )
1463{
1464    static COLORREF colorUser=RGB(255,255,255);
1465
1466    switch( nID )
1467    {
1468    case IDM_USER_COLOR:
1469        {
1470            CHOOSECOLOR cc;
1471            COLORREF CusColors[16]={
1472                RGB(255,255,255),
1473                RGB(0,0,0),
1474                RGB(128,128,128),
1475                RGB(192,192,192),
1476                RGB(128,0,0),
1477                RGB(255,0,0),
1478                RGB(128,128,0),
1479                RGB(255,255,0),
1480                RGB(0,128,0),
1481                RGB(0,255,0),
1482                RGB(0,128,128),
1483                RGB(0,255,255),
1484                RGB(0,0,128),
1485                RGB(0,0,255),
1486                RGB(128,0,128),
1487                RGB(255,0,255)};
1488            cc.lStructSize=sizeof(CHOOSECOLOR);
1489            cc.hwndOwner=m_hWnd;
1490            cc.rgbResult=colorUser;
1491            cc.lpCustColors=CusColors;
1492            cc.Flags=CC_RGBINIT|CC_FULLOPEN;
1493            if(!ChooseColor(&cc)){
1494                return;
1495            }
1496            colorUser=cc.rgbResult;
1497        }
1498    case IDM_GRAY:
1499    case IDM_WHITE:
1500    case IDM_RED:
1501    case IDM_GREEN:
1502    case IDM_BLUE:
1503    case IDM_YELLOW:
1504        {
1505            HWND hChild=::GetWindow(hClient,GW_CHILD);
1506            int WndNum=GetWndNum(hChild);
1507
1508            TC_ITEM tcItem;
1509            tcItem.mask=TCIF_PARAM;
1510            if(nID==IDM_GRAY)   tcItem.lParam=TABCOLOR_GRAY;
1511            if(nID==IDM_WHITE)  tcItem.lParam=TABCOLOR_WHITE;
1512            if(nID==IDM_RED)        tcItem.lParam=TABCOLOR_RED;
1513            if(nID==IDM_GREEN)  tcItem.lParam=TABCOLOR_GREEN;
1514            if(nID==IDM_BLUE)   tcItem.lParam=TABCOLOR_BLUE;
1515            if(nID==IDM_YELLOW) tcItem.lParam=TABCOLOR_YELLOW;
1516            if(nID==IDM_USER_COLOR) tcItem.lParam=colorUser;
1517            TabCtrl_SetItem(pobj_MainTab->hTab,
1518                TabCtrl_GetCurSel(pobj_MainTab->hTab),
1519                &tcItem);
1520            ::InvalidateRect(pobj_MainTab->hTab,NULL,0);
1521            break;
1522        }
1523    default:
1524        throw;
1525    }
1526}
Note: See TracBrowser for help on using the repository browser.