Changeset 84 in dev


Ignore:
Timestamp:
Mar 29, 2007, 3:28:28 AM (18 years ago)
Author:
dai_9181
Message:
 
Files:
8 edited

Legend:

Unmodified
Added
Removed

  • BasicCompiler64/BasicCompiler.vcproj

    r79 r84  
    383383                LinkIncremental="2"
    384384                SuppressStartupBanner="true"
    385                 IgnoreDefaultLibraryNames=""
     385                IgnoreDefaultLibraryNames="libcpmtd"
    386386                GenerateDebugInformation="false"
    387387                ProgramDatabaseFile=".\Release/BasicCompiler64.pdb"

  • BasicCompiler_Common/ParamImpl.cpp

    r78 r84  
    151151        }
    152152        else{
    153             if(NATURAL_TYPE(argType.GetBasicType())==DEF_OBJECT || NATURAL_TYPE(argType.GetBasicType())==DEF_STRUCT){
     153            //if(NATURAL_TYPE(argType.GetBasicType())==DEF_OBJECT || NATURAL_TYPE(argType.GetBasicType())==DEF_STRUCT){
     154            if( NATURAL_TYPE(argType.GetBasicType())==DEF_STRUCT){
    154155                if(argType.GetIndex()!=param.GetIndex()){
     156                    return false;
     157                }
     158            }
     159            else if( NATURAL_TYPE(argType.GetBasicType())==DEF_OBJECT ){
     160                if( !param.GetClass().IsEqualsOrSubClass( &argType.GetClass() ) ){
    155161                    return false;
    156162                }

  • BasicCompiler_Common/common.h

    r79 r84  
    4747
    4848#ifdef _AMD64_
    49 #define VER_INFO        "β17 (x64)"
     49#define VER_INFO        "(x64) β rev.184"
    5050#else
    51 #define VER_INFO        "β17"
     51#define VER_INFO        "β rev.184"
    5252#endif
    5353

  • ProjectEditor/Common.h

    r80 r84  
    6666#define APPLICATION_NAME "ActiveBasic 5.0"
    6767#define VERSION_APPLI_NAME APPLICATION_NAME
    68 #define VERSION_STRING "5.00.00 β17"
     68#define VERSION_STRING "5.00.00 β rev.193"
    6969
    7070#endif
    … …  
    10871087void ResizeProjectView_ToolWindow(void);
    10881088LRESULT CALLBACK ProjectView_ToolWindowProc(HWND hwnd,UINT message,WPARAM wParam,LPARAM lParam);
     1089void ShowFileView();
     1090void ShowClassView();
     1091void ShowMaterialView();
    10891092LRESULT CALLBACK ProjectViewProc(HWND hwnd,UINT message,WPARAM wParam,LPARAM lParam);
    10901093void Project_File_Insert(char *path);

  • ProjectEditor/ProjectControl.cpp

    r81 r84  
    398398    return DefWindowProc(hwnd,message,wParam,lParam);
    399399}
     400void ShowFileView(){
     401    TabCtrl_SetCurSel(hProjectViewTab,0);
     402    ShowWindow(pobj_FileTree->hTree,SW_SHOW);
     403    ShowWindow(hProcedureTreeView,SW_HIDE);
     404    ShowWindow(hMaterialTreeView,SW_HIDE);
     405}
     406void ShowClassView(){
     407    TabCtrl_SetCurSel(hProjectViewTab,1);
     408    ShowWindow(pobj_FileTree->hTree,SW_HIDE);
     409    ShowWindow(hMaterialTreeView,SW_HIDE);
     410    ShowWindow(hProcedureTreeView,SW_SHOW);
     411}
     412void ShowMaterialView(){
     413    TabCtrl_SetCurSel(hProjectViewTab,2);
     414    ShowWindow(pobj_FileTree->hTree,SW_HIDE);
     415    ShowWindow(hProcedureTreeView,SW_HIDE);
     416    ShowWindow(hMaterialTreeView,SW_SHOW);
     417}
    400418LRESULT CALLBACK ProjectViewProc(HWND hwnd,UINT message,WPARAM wParam,LPARAM lParam){
    401419    extern HINSTANCE hInst,hResInst;
    … …  
    404422    extern HFONT hStatusFont;
    405423    extern HWND hProjectView_ToolWindow;
    406     int i;
    407424    RECT rect;
    408425    HWND hButton;
    … …  
    510527            hdr=(NMHDR *)lParam;
    511528            if(hdr->hwndFrom==hProjectViewTab&&hdr->code==TCN_SELCHANGE){
    512                 i=TabCtrl_GetCurSel(hProjectViewTab);
    513                 if(i==0){
    514                     ShowWindow(pobj_FileTree->hTree,SW_SHOW);
    515                     ShowWindow(hProcedureTreeView,SW_HIDE);
    516                     ShowWindow(hMaterialTreeView,SW_HIDE);
    517                 }
    518                 else if(i==1){
    519                     ShowWindow(pobj_FileTree->hTree,SW_HIDE);
    520                     ShowWindow(hMaterialTreeView,SW_HIDE);
    521                     ShowWindow(hProcedureTreeView,SW_SHOW);
    522                 }
    523                 else if(i==2){
    524                     ShowWindow(pobj_FileTree->hTree,SW_HIDE);
    525                     ShowWindow(hProcedureTreeView,SW_HIDE);
    526                     ShowWindow(hMaterialTreeView,SW_SHOW);
     529                switch( TabCtrl_GetCurSel(hProjectViewTab) ){
     530                    case 0:
     531                        ShowFileView();
     532                        break;
     533                    case 1:
     534                        ShowClassView();
     535                        break;
     536                    case 2:
     537                        ShowMaterialView();
     538                        break;
    527539                }
    528540            }
    … …  
    16011613            }
    16021614            sscanf(temporary,"%d",&i2);
    1603             TabCtrl_SetCurSel(hProjectViewTab,i2);
    1604             if(i2==0){
    1605                 ShowWindow(pobj_FileTree->hTree,SW_SHOW);
    1606                 ShowWindow(hProcedureTreeView,SW_HIDE);
    1607                 ShowWindow(hMaterialTreeView,SW_HIDE);
    1608             }
    1609             else if(i2==1){
    1610                 ShowWindow(pobj_FileTree->hTree,SW_HIDE);
    1611                 ShowWindow(hMaterialTreeView,SW_HIDE);
    1612                 ShowWindow(hProcedureTreeView,SW_SHOW);
    1613             }
    1614             else if(i2==2){
    1615                 ShowWindow(pobj_FileTree->hTree,SW_HIDE);
    1616                 ShowWindow(hProcedureTreeView,SW_HIDE);
    1617                 ShowWindow(hMaterialTreeView,SW_SHOW);
    1618             }
     1615
     1616            switch( i2 ){
     1617                case 0:
     1618                    ShowFileView();
     1619                    break;
     1620                case 1:
     1621                    ShowClassView();
     1622                    break;
     1623                case 2:
     1624                    ShowMaterialView();
     1625                    break;
     1626            }
     1627
    16191628            if(buffer[i]=='\0') goto EndToSetWorkFile;
    16201629
    … …  
    17261735            }
    17271736            sscanf(temporary,"%d",&i2);
    1728             TabCtrl_SetCurSel(hProjectViewTab,i2);
    1729             if(i2==0){
    1730                 ShowWindow(hProcedureTreeView,SW_HIDE);
    1731                 ShowWindow(hMaterialTreeView,SW_HIDE);
    1732                 ShowWindow(pobj_FileTree->hTree,SW_SHOW);
    1733             }
    1734             else if(i2==1){
    1735                 ShowWindow(pobj_FileTree->hTree,SW_HIDE);
    1736                 ShowWindow(hMaterialTreeView,SW_HIDE);
    1737                 ShowWindow(hProcedureTreeView,SW_SHOW);
    1738             }
    1739             else if(i2==2){
    1740                 ShowWindow(pobj_FileTree->hTree,SW_HIDE);
    1741                 ShowWindow(hProcedureTreeView,SW_HIDE);
    1742                 ShowWindow(hMaterialTreeView,SW_SHOW);
    1743             }
     1737
     1738            switch( i2 ){
     1739                case 0:
     1740                    ShowFileView();
     1741                    break;
     1742                case 1:
     1743                    ShowClassView();
     1744                    break;
     1745                case 2:
     1746                    ShowMaterialView();
     1747                    break;
     1748            }
     1749
    17441750            if(buffer[i]=='\0') goto EndToSetWorkFile;
    17451751

  • ProjectEditor/ProjectEditor.cpp

    r81 r84  
    953953    ResetState_DocMenu();
    954954
     955    if( DocumentType == WNDTYPE_BASIC && ProjectInfo.name[0] == '\0' ){
     956        // 単体ソースコードを開いたとき
     957        if( !IsWindowVisible( hProjectView ) ){
     958            // クラスビューを表示する
     959            SendMessage(hOwner,WM_COMMAND,IDM_PROJECTVIEW,0);
     960            ShowClassView();
     961
     962            // クラスビューを更新
     963            ResetClassTree(-1);
     964        }
     965    }
     966
    955967    return hChild;
    956968}
    … …  
    11871199            //タブコントロール
    11881200            pobj_MainTab->MdiActiveEvent(MdiInfo[i].title);
     1201
     1202            if( !ProjectInfo.name[0] ){
     1203                ResetClassTree(-1);
     1204            }
    11891205
    11901206            return 0;

  • ProjectEditor/SubOperation.cpp

    r83 r84  
    645645    }
    646646
    647     DeleteDC(hdc);
     647    ReleaseDC(GetDesktopWindow(),hdc);
    648648
    649649    return hBitmap;
    … …  
    691691    }
    692692
    693     DeleteDC(hdc);
     693    ReleaseDC(GetDesktopWindow(),hdc);
    694694
    695695    return hBitmap;
    … …  
    733733    }
    734734
    735     DeleteDC(hdc);
     735    ReleaseDC(GetDesktopWindow(),hdc);
    736736
    737737    return hBitmap;
    … …  
    808808    HeapDefaultFree(pByte);
    809809
    810     DeleteDC(hdc);
     810    ReleaseDC(GetDesktopWindow(),hdc);
    811811
    812812
    … …  
    12361236
    12371237    extern char *pHeaderBuf;
    1238     sprintf(temporary,"%sInclude\\basic.sbp",pj_editor_Dir);
     1238    sprintf(temporary,"%sbasic.sbp",pobj_nv->szIncludeDir);
     1239    GetFullPath( temporary, pj_editor_Dir );
    12391240    pHeaderBuf=ReadBuffer(temporary);
     1241
     1242    if( !pHeaderBuf ){
     1243        pHeaderBuf=(char *)HeapAlloc(hHeap,HEAP_ZERO_MEMORY,1);
     1244    }
    12401245
    12411246    //ファイルをインクルード

  • ProjectEditor/menu.cpp

    r3 r84  
    210210    if(ppobj_MenuItemData[item_index]->str){
    211211        HDC hdc;
    212         hdc = GetDC(hOwner);
     212        hdc = GetDC(GetDesktopWindow());
    213213        HFONT hOldFont;
    214214        hOldFont = (HFONT)SelectObject(hdc, hMenuFont);
    … …  
    220220
    221221        SelectObject(hdc,hOldFont);
    222         DeleteDC(hdc);
     222        ReleaseDC(GetDesktopWindow(),hdc);
    223223    }
    224224    else{
    … …  
    347347    if(ppobj_MenuItemData[item_index]->str){
    348348        HDC hdc;
    349         hdc = GetDC(hOwner);
     349        hdc = GetDC(GetDesktopWindow());
    350350        HFONT hOldFont;
    351351        hOldFont = (HFONT)SelectObject(hdc, hMenuFont);
    … …  
    357357
    358358        SelectObject(hdc,hOldFont);
    359         DeleteDC(hdc);
     359        ReleaseDC(GetDesktopWindow(),hdc);
    360360
    361361        pSize->cx+=50;
Note: See TracChangeset for help on using the changeset viewer.