source: dev/trunk/ab5.0/abdev/abdev/SubOperation.cpp @ 491

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

デバッグ用のメッセージを削除。
stdafx.hでresource.hをincludeしないようにした。
File size: 43.2 KB
Line 
1#include "stdafx.h"
2
3#include "Common.h"
4
5using namespace ActiveBasic::IDE;
6
7void ScreenToClient(HWND hwnd,RECT *pRect){
8    ScreenToClient(hwnd,(POINT *)pRect);
9    ScreenToClient(hwnd,(POINT *)(((long)(void *)pRect)+sizeof(POINT)));
10}
11void ClientToScreen(HWND hwnd,RECT *pRect){
12    ClientToScreen(hwnd,(POINT *)pRect);
13    ClientToScreen(hwnd,(POINT *)(((long)(void *)pRect)+sizeof(POINT)));
14}
15
16
17typedef BOOL (WINAPI *LPFN_ISWOW64PROCESS) (HANDLE hProcess,PBOOL Wow64Process);
18BOOL IsWow64(void){
19    ///////////////////////////////////////////////////////////
20    // ProjectEditor.exeがWOW64技術で動作しているのかどうか
21    ///////////////////////////////////////////////////////////
22    BOOL bIsWow64 = FALSE;
23    LPFN_ISWOW64PROCESS fnIsWow64Process = (LPFN_ISWOW64PROCESS)GetProcAddress(GetModuleHandle("kernel32"),"IsWow64Process");
24
25    if (NULL != fnIsWow64Process)
26    {
27        if (!fnIsWow64Process(GetCurrentProcess(),&bIsWow64))
28        {
29            // handle error
30            bIsWow64 = FALSE;
31        }
32    }
33    return bIsWow64;
34}
35
36void URLEncode(LPSTR pszSrc){
37    char *temp;
38    temp=(char *)malloc(65535);
39
40    int i,i2;
41    for (i = 0,i2=0; ; i++,i2++)
42    {
43        if(pszSrc[i]=='\0'){
44            temp[i2] = 0;
45            break;
46        }
47
48        // 英数字 _ . - は変換しないでそのまま
49        if (isalnum((BYTE)pszSrc[i]) || pszSrc[i] == '_' || pszSrc[i] == '.' || pszSrc[i] == '-'){
50            temp[i2] = pszSrc[i];
51        }
52        // それ以外は %3B のような形式に変換
53        else{
54            sprintf(temp+i2,"%%%02X", (BYTE)pszSrc[i]);
55            i2+=lstrlen(temp+i2);
56            i2--;
57        }
58    }
59
60    lstrcpy(pszSrc,temp);
61    free(temp);
62}
63
64void Digit(int num,char *buffer){
65    char temporary[255];
66    int i,iPos;
67
68    sprintf(temporary,"%d",abs(num));
69
70    //カンマが不要の場合は抜ける
71    if(lstrlen(temporary)<=3){
72        wsprintf(buffer,"%d",num);
73        return;
74    }
75
76    //合計の文字数からバッファを確保
77    if(num<0){
78        buffer[0]='-';
79        iPos=1;
80    }
81    else{
82        buffer[0]=0;
83        iPos=0;
84    }
85
86    //3桁毎にカンマを加えながら文字列をコピーする
87    int iFirst;
88    iFirst=lstrlen(temporary)%3;
89    if(iFirst==0) iFirst=3;
90    memcpy(buffer+iPos,temporary,iFirst);
91    iPos+=iFirst;
92
93    int i2;
94    i2=(lstrlen(temporary)-4)/3;
95
96    for(i=0;i<=i2;i++){
97        buffer[iPos]=',';
98        iPos++;
99        memcpy(buffer+iPos,temporary+i*3+iFirst,3);
100        iPos+=3;
101        buffer[iPos]=0;
102    }
103}
104
105void RectNaturalFormat(RECT *ReadRect,RECT *CopyRect){
106    if(ReadRect->left > ReadRect->right){
107        CopyRect->left=ReadRect->right;
108        CopyRect->right=ReadRect->left;
109    }
110    else{
111        CopyRect->left=ReadRect->left;
112        CopyRect->right=ReadRect->right;
113    }
114    if(ReadRect->top > ReadRect->bottom){
115        CopyRect->top=ReadRect->bottom;
116        CopyRect->bottom=ReadRect->top;
117    }
118    else{
119        CopyRect->top=ReadRect->top;
120        CopyRect->bottom=ReadRect->bottom;
121    }
122}
123void RectNaturalFormat(int *x1,int *y1,int *x2,int *y2){
124    int temp;
125    if(*x1>*x2){
126        temp=*x1;
127        *x1=*x2;
128        *x2=temp;
129    }
130    if(*y1>*y2){
131        temp=*y1;
132        *y1=*y2;
133        *y2=temp;
134    }
135}
136void KillSpaces(char *str1,char *str2){
137    int i,i2,IsStr;
138    for(i=0,i2=0,IsStr=0;;i++,i2++){
139        while((str1[i]==' '||str1[i]=='\t')&&IsStr==0&&str1[i]!='\0') i++;
140        if(str1[i]=='\"') IsStr^=1;
141        str2[i2]=str1[i];
142        if(str1[i]=='\0') break;
143    }
144}
145void RemoveStringQuotes(char *str){
146    int i;
147    if(str[0]!='\"') return;
148    for(i=0;;i++){
149        str[i]=str[i+1];
150        if(str[i]=='\"') break;
151    }
152    str[i]=0;
153}
154void SlideString(char *buffer, int slide){
155    char *temp;
156    temp=(char *)malloc(lstrlen(buffer)+1);
157    lstrcpy(temp,buffer);
158    lstrcpy(buffer+slide,temp);
159    free(temp);
160}
161void SlideBuffer(char *buffer,int length,int slide){
162    void *temp;
163    temp=malloc(length+1);
164    memcpy(temp,buffer,length);
165    memcpy(buffer+slide,temp,length);
166    free(temp);
167}
168BOOL IsVariableTopChar(char c){
169    if((c>='A'&&c<='Z')||(c>='a'&&c<='z')||c=='_') return 1;
170    return 0;
171}
172bool IsNumberChar( char c ){
173    if(c>='0'&&c<='9'){
174        return true;
175    }
176    return false;
177}
178BOOL IsVariableChar(char c){
179    if((c>='A'&&c<='Z')||(c>='a'&&c<='z')||(c>='0'&&c<='9')||
180        c=='_'||c=='.'||c=='$') return 1;
181    return 0;
182}
183
184BOOL IsCommandBackDelimitation(char *buffer,int pos){
185    if(buffer[pos]=='\n'||buffer[pos]==':') return 1;
186    return 0;
187}
188BOOL IsCommandDelimitation(char *buffer,int p){
189    if(buffer[p]=='\r'&&buffer[p+1]=='\n') return 2;
190    if(buffer[p]=='\n'||buffer[p]==':'||buffer[p]=='\0') return 1;
191    return 0;
192}
193
194char *ComparisonString( char *str1, char *str2, bool isBigSmall, bool isWordUnit ){
195    char *temp1 = (char *)malloc( lstrlen( str1 ) +1 );
196    char *temp2 = (char *)malloc( lstrlen( str2 ) +1 );
197
198    lstrcpy( temp1, str1 );
199    lstrcpy( temp2, str2 );
200
201    if( isBigSmall == false ){
202        // 大文字小文字を区別しない場合
203        // すべて大文字にしておく
204        CharUpper( temp1 );
205        CharUpper( temp2 );
206    }
207
208    int len2 = lstrlen( temp2 );
209
210    const char *temp3 = strstr( temp1, temp2 );
211    while( temp3 ){
212        if( isWordUnit ){
213            int pos = (int)temp3 - (int)temp1;
214            if( pos == 0 ){
215                if( !( IsVariableTopChar( temp1[len2] ) || IsNumberChar( temp1[len2] ) ) ){
216                        break;
217                }
218            }
219            else{
220                if( !( IsVariableTopChar( temp1[pos-1] ) || IsNumberChar( temp1[pos-1] ) )
221                    && !( IsVariableTopChar( temp1[pos+len2] ) || IsNumberChar( temp1[pos+len2] ) )
222                    ){
223                        break;
224                }
225            }
226        }
227        else{
228            break;
229        }
230
231        temp3 = strstr( temp3 + 1, temp2 );
232    }
233
234    char *result = NULL;
235    if( temp3 ){
236        int pos = (int)temp3 - (int)temp1;
237        result = str1 + pos;
238    }
239
240    free( temp1 );
241    free( temp2 );
242
243    return result;
244}
245int GetOneParameter(char *Parameter,int pos,char *retAns){
246    int i,i2,IsStr,PareNum;
247    for(i=pos,i2=0,IsStr=0,PareNum=0;;i++,i2++){
248        if(IsDBCSLeadByte(Parameter[i])){
249            retAns[i2]=Parameter[i];
250            retAns[++i2]=Parameter[++i];
251            continue;
252        }
253        if(Parameter[i]=='\"') IsStr^=1;
254        if(Parameter[i]=='('&&IsStr==0) PareNum++;
255        if(Parameter[i]==')'&&IsStr==0) PareNum--;
256        if(Parameter[i]==','&&IsStr==0&&PareNum==0){
257            retAns[i2]=0;
258            break;
259        }
260        retAns[i2]=Parameter[i];
261        if(Parameter[i]=='\0'||Parameter[i]=='\r'&&Parameter[i+1]=='\n'){
262            retAns[i2]=0;
263            break;
264        }
265    }
266    if(Parameter[i]==',') i++;
267    return i;
268}
269int GetStringInPare(char *buffer,char *ReadBuffer){
270    int i,IsStr,PareNum;
271    for(i=0,IsStr=0,PareNum=0;;i++){
272        buffer[i]=ReadBuffer[i];
273        if(ReadBuffer[i]=='\"') IsStr^=1;
274        else if(ReadBuffer[i]=='('&&IsStr==0) PareNum++;
275        else if(ReadBuffer[i]==')'&&IsStr==0){
276            PareNum--;
277            if(PareNum==0){
278                i++;
279                buffer[i]=0;
280                break;
281            }
282        }
283        else if(ReadBuffer[i]=='\0') return 0;
284    }
285    return i;
286}
287int GetStringInBracket(char *buffer,char *ReadBuffer){
288    int i,IsStr,PareNum;
289    for(i=0,IsStr=0,PareNum=0;;i++){
290        buffer[i]=ReadBuffer[i];
291        if(IsDBCSLeadByte(ReadBuffer[i])){
292            i++;
293            buffer[i]=ReadBuffer[i];
294            continue;
295        }
296        if(ReadBuffer[i]=='\"') IsStr^=1;
297        else if(ReadBuffer[i]=='['&&IsStr==0) PareNum++;
298        else if(ReadBuffer[i]==']'&&IsStr==0){
299            PareNum--;
300            if(PareNum==0){
301                i++;
302                buffer[i]=0;
303                break;
304            }
305        }
306        else if(ReadBuffer[i]=='\0') return 0;
307    }
308    return i;
309}
310void JumpBlank(char *pBuf,int *piPos){
311    int i;
312    i=*piPos;
313
314    while(1){
315        while(pBuf[i]==' '||pBuf[i]=='\t') i++;
316        if(pBuf[i]=='\0') break;
317        if(pBuf[i]=='\''){
318            //注釈文（一行）
319            for(i++;;i++){
320                if(pBuf[i]=='\0') break;
321                if(pBuf[i]=='\r'&&pBuf[i+1]=='\n'){
322                    i+=2;
323                    break;
324                }
325            }
326            while(pBuf[i]==' '||pBuf[i]=='\t') i++;
327        }
328        if(pBuf[i]=='/'&&pBuf[i+1]=='*'){
329            //注釈文（複数行）
330            i+=2;
331            while(!(pBuf[i]=='*'&&pBuf[i+1]=='/')){
332                i++;
333                if(pBuf[i]=='\0') break;
334            }
335            if(pBuf[i]){
336                i+=2;
337            }
338        }
339        while(pBuf[i]=='\r'&&pBuf[i+1]=='\n') i+=2;
340
341        if(!(
342            pBuf[i]==' '||
343            pBuf[i]=='\t'||
344            pBuf[i]=='\''||
345            (pBuf[i]=='/'&&pBuf[i+1]=='*')
346            )) break;
347    }
348
349    *piPos=i;
350}
351
352BOOL CheckParenthesis(char *buffer){
353    int i,IsStr,PareNum,sw;
354    _int8 bracket[1024];
355
356    for(i=0,IsStr=0,PareNum=0,sw=0;;i++){
357        if(buffer[i]=='\"'){
358            IsStr^=1;
359            continue;
360        }
361
362        else if(buffer[i]=='('&&IsStr==0){
363            bracket[PareNum]=0;
364            PareNum++;
365        }
366        else if(buffer[i]=='['&&IsStr==0){
367            bracket[PareNum]=1;
368            PareNum++;
369        }
370
371        else if(buffer[i]==')'&&IsStr==0){
372            PareNum--;
373            if(bracket[PareNum]!=0||PareNum<0){
374                //"カッコ \'( )\'"
375                return 0;
376            }
377        }
378        else if(buffer[i]==']'&&IsStr==0){
379            PareNum--;
380            if(bracket[PareNum]!=1||PareNum<0){
381                //"カッコ \'( )\'"
382                return 0;
383            }
384        }
385
386        else if(buffer[i]=='\n'||buffer[i]=='\0'){
387
388            //"カッコ \'( )\'"
389            if(buffer[i]=='\0'){
390                if(PareNum!=0){
391                    return 0;
392                }
393
394                if(IsStr!=0){
395                    return 0;
396                }
397            }
398            if(buffer[i]=='\0') break;
399
400            sw=0;
401        }
402    }
403    return 1;
404}
405
406DWORD GetValue(char *value){
407    unsigned long ans;
408    if(value[0]=='&'){
409        if(value[1]=='o'||value[1]=='O') sscanf(value+2,"%o",&ans);
410        if(value[1]=='h'||value[1]=='H') sscanf(value+2,"%x",&ans);
411    }
412    else ans=atol(value);
413    return ans;
414}
415BOOL IsManagementCommand(int ComNum){
416    switch(ComNum){
417        case -1:
418        case COM_ABSTRACT:
419        case COM_CLASS:
420        case COM_CONST:
421        case COM_DEBUG:
422        case COM_DECLARE:
423        case COM_DEF:
424        case COM_DIM:
425        case COM_DO:
426        case COM_END:
427        case COM_ENUM:
428        case COM_FOR:
429        case COM_FUNCTION:
430        case COM_GOSUB:
431        case COM_GOTO:
432        case COM_IF:
433        case COM_INHERITS:
434        case COM_INTERFACE:
435        case COM_LOOP:
436        case COM_NAMESPACE:
437        case COM_NEXT:
438        case COM_PRIVATE:
439        case COM_PROTECTED:
440        case COM_PUBLIC:
441        case COM_RETURN:
442        case COM_SELECT:
443        case COM_SUB:
444        case COM_TRY:
445        case COM_TYPE:
446        case COM_TYPEDEF:
447        case COM_VIRTUAL:
448        case COM_OVERRIDE:
449        case COM_WEND:
450        case COM_WHILE:
451        case COM_WITH:
452            return 1;
453        default:
454            break;
455    }
456    return 0;
457}
458int IsBasicReservedWord(char *str){
459    if(str[0]=='a'||str[0]=='A'){
460        if(lstrcmpi(str,"Abstract")==0) return COM_ABSTRACT;
461        if(lstrcmpi(str,"As")==0) return -1;
462    }
463    else if(str[0]=='b'||str[0]=='B'){
464        if(lstrcmpi(str,"Beep")==0) return COM_BEEP;
465        if(lstrcmp(str,"Boolean")==0) return -1;
466        if(lstrcmpi(str,"ByRef")==0) return -1;
467        if(lstrcmpi(str,"ByVal")==0) return -1;
468        if(lstrcmp(str,"Byte")==0) return -1;
469    }
470    else if(str[0]=='c'||str[0]=='C'){
471        if(lstrcmpi(str,"Catch")==0) return -1;
472        if(lstrcmpi(str,"Case")==0) return -1;
473        if(lstrcmp(str,"Char")==0) return -1;
474        if(lstrcmpi(str,"ChDir")==0) return COM_CHDIR;
475        if(lstrcmpi(str,"Circle")==0) return COM_CIRCLE;
476        if(lstrcmpi(str,"Class")==0) return COM_CLASS;
477        if(lstrcmpi(str,"Close")==0) return COM_CLOSE;
478        if(lstrcmpi(str,"Cls")==0) return COM_CLS;
479        if(lstrcmpi(str,"Color")==0) return COM_COLOR;
480        if(lstrcmpi(str,"Const")==0) return COM_CONST;
481        if(lstrcmpi(str,"Continue")==0) return -1;
482    }
483    else if(str[0]=='d'||str[0]=='D'){
484        if(lstrcmpi(str,"Debug")==0) return COM_DEBUG;
485        if(lstrcmpi(str,"Declare")==0) return COM_DECLARE;
486        if(lstrcmpi(str,"Def")==0) return COM_DEF;
487        if(lstrcmpi(str,"Delegate")==0) return -1;
488        if(lstrcmpi(str,"Delete")==0) return -1;
489        if(lstrcmpi(str,"DelWnd")==0) return COM_DELWND;
490        if(lstrcmpi(str,"Dim")==0) return COM_DIM;
491        if(lstrcmpi(str,"Do")==0) return COM_DO;
492        if(lstrcmp(str,"Double")==0) return -1;
493        if(lstrcmp(str,"DWord")==0) return -1;
494    }
495    else if(str[0]=='e'||str[0]=='E'){
496        if(lstrcmpi(str,"Else")==0) return -1;
497        if(lstrcmpi(str,"ElseIf")==0) return -1;
498        if(lstrcmpi(str,"End")==0) return COM_END;
499        if(lstrcmpi(str,"EndIf")==0) return -1;
500        if(lstrcmpi(str,"EndFunction")==0) return -1;
501        if(lstrcmpi(str,"EndSub")==0) return -1;
502        if(lstrcmpi(str,"EndType")==0) return -1;
503        if(lstrcmpi(str,"EndSelect")==0) return -1;
504        if(lstrcmpi(str,"EndWith")==0) return -1;
505        if(lstrcmpi(str,"Enum")==0) return COM_ENUM;
506        if(lstrcmpi(str,"Exit")==0) return -1;
507        if(lstrcmpi(str,"ExitDo")==0) return -1;
508        if(lstrcmpi(str,"ExitFor")==0) return -1;
509        if(lstrcmpi(str,"ExitFunction")==0) return -1;
510        if(lstrcmpi(str,"ExitSub")==0) return -1;
511        if(lstrcmpi(str,"ExitWhile")==0) return -1;
512    }
513    else if(str[0]=='f'||str[0]=='F'){
514        if(lstrcmp(str,"False")==0) return -1;
515        if(lstrcmpi(str,"Field")==0) return COM_FIELD;
516        if(lstrcmpi(str,"Finally")==0) return -1;
517        if(lstrcmpi(str,"For")==0) return COM_FOR;
518        if(lstrcmpi(str,"Foreach")==0) return -1;
519        if(lstrcmpi(str,"Function")==0) return COM_FUNCTION;
520    }
521    else if(str[0]=='g'||str[0]=='G'){
522        if(lstrcmpi(str,"Get")==0) return COM_GET;
523        if(lstrcmpi(str,"GoSub")==0) return COM_GOSUB;
524        if(lstrcmpi(str,"Goto")==0) return COM_GOTO;
525    }
526    else if(str[0]=='i'||str[0]=='I'){
527        if(lstrcmpi(str,"If")==0) return COM_IF;
528        if(lstrcmpi(str,"Imports")==0) return -1;
529        if(lstrcmpi(str,"Implements")==0) return -1;
530        if(lstrcmpi(str,"In")==0) return -1;
531        if(lstrcmpi(str,"Inherits")==0) return COM_INHERITS;
532        if(lstrcmpi(str,"Input")==0) return COM_INPUT;
533        if(lstrcmp(str,"Int64")==0) return -1;
534        if(lstrcmp(str,"Integer")==0) return -1;
535        if(lstrcmpi(str,"Interface")==0) return COM_INTERFACE;
536    }
537    else if(str[0]=='k'||str[0]=='K'){
538        if(lstrcmpi(str,"Kill")==0) return COM_KILL;
539    }
540    else if(str[0]=='l'||str[0]=='L'){
541        if(lstrcmpi(str,"Let")==0) return COM_LET;
542        if(lstrcmpi(str,"Line")==0) return COM_LINE;
543        if(lstrcmpi(str,"Locate")==0) return COM_LOCATE;
544        if(lstrcmp(str,"Long")==0) return -1;
545        if(lstrcmpi(str,"Loop")==0) return COM_LOOP;
546    }
547    else if(str[0]=='m'||str[0]=='M'){
548        if(lstrcmpi(str,"MkDir")==0) return COM_MKDIR;
549        if(lstrcmpi(str,"MsgBox")==0) return COM_MSGBOX;
550    }
551    else if(str[0]=='n'||str[0]=='N'){
552        if(lstrcmpi(str,"Namespace")==0) return COM_NAMESPACE;
553        if(lstrcmpi(str,"Next")==0) return COM_NEXT;
554        if(lstrcmpi(str,"New")==0) return -1;
555        if(lstrcmpi(str,"Nothing")==0) return -1;
556    }
557    else if(str[0]=='o'||str[0]=='O'){
558        if(lstrcmp(str,"Object")==0) return -1;
559        if(lstrcmpi(str,"Open")==0) return COM_OPEN;
560        if(lstrcmpi(str,"Operator")==0) return -1;
561        if(lstrcmpi(str,"Override")==0) return COM_OVERRIDE;
562    }
563    else if(str[0]=='p'||str[0]=='P'){
564        if(lstrcmpi(str,"Paint")==0) return COM_PAINT;
565        if(lstrcmpi(str,"Print")==0) return COM_PRINT;
566        if(lstrcmpi(str,"Private")==0) return COM_PRIVATE;
567        if(lstrcmpi(str,"Protected")==0) return COM_PROTECTED;
568        if(lstrcmpi(str,"PSet")==0) return COM_PSET;
569        if(lstrcmpi(str,"Put")==0) return COM_PUT;
570        if(lstrcmpi(str,"Public")==0) return COM_PUBLIC;
571    }
572    else if(str[0]=='q'||str[0]=='Q'){
573        if(lstrcmp(str,"QWord")==0) return -1;
574    }
575    else if(str[0]=='r'||str[0]=='R'){
576        if(lstrcmpi(str,"Randomize")==0) return COM_RANDOMIZE;
577        if(lstrcmpi(str,"Rem")==0) return COM_REM;
578        if(lstrcmpi(str,"Return")==0) return COM_RETURN;
579    }
580    else if(str[0]=='s'||str[0]=='S'){
581        if(lstrcmp(str,"SByte")==0) return -1;
582        if(lstrcmpi(str,"Select")==0) return COM_SELECT;
583        if(lstrcmpi(str,"SelectCase")==0) return COM_SELECT;
584        if(lstrcmp(str,"Single")==0) return -1;
585        if(lstrcmpi(str,"Sleep")==0) return COM_SLEEP;
586        if(lstrcmp(str,"Static")==0) return -1;
587        if(lstrcmpi(str,"Step")==0) return -1;
588        if(lstrcmp(str,"String")==0) return -1;
589        if(lstrcmpi(str,"Sub")==0) return COM_SUB;
590        if(lstrcmpi(str,"Super")==0) return -1;
591    }
592    else if(str[0]=='t'||str[0]=='T'){
593        if(lstrcmpi(str,"Then")==0) return -1;
594        if(lstrcmpi(str,"This")==0) return -1;
595        if(lstrcmpi(str,"Throw")==0) return -1;
596        if(lstrcmpi(str,"To")==0) return -1;
597        if(lstrcmp(str,"True")==0) return -1;
598        if(lstrcmp(str,"Try")==0) return COM_TRY;
599        if(lstrcmpi(str,"Type")==0) return COM_TYPE;
600        if(lstrcmpi(str,"TypeDef")==0) return COM_TYPEDEF;
601    }
602    else if(str[0]=='u'||str[0]=='U'){
603        if(lstrcmpi(str,"Until")==0) return -1;
604    }
605    else if(str[0]=='v'||str[0]=='V'){
606        if(lstrcmpi(str,"Virtual")==0) return COM_VIRTUAL;
607    }
608    else if(str[0]=='w'||str[0]=='W'){
609        if(lstrcmpi(str,"Wend")==0) return COM_WEND;
610        if(lstrcmpi(str,"While")==0) return COM_WHILE;
611        if(lstrcmpi(str,"Window")==0) return COM_WINDOW;
612        if(lstrcmpi(str,"With")==0) return COM_WITH;
613        if(lstrcmp(str,"Word")==0) return -1;
614        if(lstrcmpi(str,"Write")==0) return COM_WRITE;
615    }
616    else if(str[0]=='#'){
617        if(lstrcmpi(str,"#include")==0) return -1;
618        if(lstrcmpi(str,"#strict")==0) return -1;
619        if(lstrcmpi(str,"#console")==0) return -1;
620        if(lstrcmpi(str,"#prompt")==0) return -1;
621        if(lstrcmpi(str,"#N88BASIC")==0) return -1;
622        if(lstrcmpi(str,"#define")==0) return -1;
623        if(lstrcmpi(str,"#ifdef")==0) return -1;
624        if(lstrcmpi(str,"#ifndef")==0) return -1;
625        if(lstrcmpi(str,"#else")==0) return -1;
626        if(lstrcmpi(str,"#endif")==0) return -1;
627    }
628    return 0;
629}
630
631HBITMAP CreateGradationBitmap(SIZE *pSize,COLORREF color1,COLORREF color2){
632    //グラデーションビットマップを生成
633
634    BITMAPINFO BitmapInfo;
635    memset(&BitmapInfo.bmiHeader,0,sizeof(BITMAPINFOHEADER));
636    BitmapInfo.bmiHeader.biSize=sizeof(BITMAPINFOHEADER);
637    BitmapInfo.bmiHeader.biWidth=pSize->cx;
638    BitmapInfo.bmiHeader.biHeight=pSize->cy;
639    BitmapInfo.bmiHeader.biPlanes=1;
640    BitmapInfo.bmiHeader.biBitCount=24;
641
642    HDC hdc;
643    hdc=GetDC(GetDesktopWindow());
644
645    HBITMAP hBitmap;
646    BYTE *pByte;
647    hBitmap=CreateDIBSection(hdc,&BitmapInfo,DIB_RGB_COLORS,(void **)&pByte,0,0);
648
649    int i,i2,x,y;
650    COLORREF rgb;
651    i=BitmapInfo.bmiHeader.biWidth*3;
652    if(i%sizeof(LONG)!=0) i+=sizeof(LONG)-(i%sizeof(LONG));
653    for(y=0;y<BitmapInfo.bmiHeader.biHeight;y++){
654        if(y<BitmapInfo.bmiHeader.biHeight/2-2) rgb=color2;
655        else if(y>BitmapInfo.bmiHeader.biHeight/2+2) rgb=color1;
656        else{
657            double ratio;
658            ratio=((double)y-((double)BitmapInfo.bmiHeader.biHeight/(double)2-(double)2))/(double)4;
659            //ratio=(double)y/(double)BitmapInfo.bmiHeader.biHeight;
660            rgb=RGB(
661                LOBYTE(LOWORD(color2))+(int)(double)(LOBYTE(LOWORD(color1))-LOBYTE(LOWORD(color2)))*(ratio),    //赤要素
662                HIBYTE(LOWORD(color2))+(int)(double)(HIBYTE(LOWORD(color1))-HIBYTE(LOWORD(color2)))*(ratio),    //緑要素
663                LOBYTE(HIWORD(color2))+(int)(double)(LOBYTE(HIWORD(color1))-LOBYTE(HIWORD(color2)))*(ratio)     //青要素
664                );
665        }
666        for(x=0;x<BitmapInfo.bmiHeader.biWidth;x++){
667            i2=y*i+x*3;
668            pByte[i2+2]=LOBYTE(LOWORD(rgb));
669            pByte[i2+1]=HIBYTE(LOWORD(rgb));
670            pByte[i2]=LOBYTE(HIWORD(rgb));
671        }
672    }
673
674    ReleaseDC(GetDesktopWindow(),hdc);
675
676    return hBitmap;
677}
678HBITMAP CreateVertGradationBitmap(SIZE *pSize,COLORREF color1,COLORREF color2){
679    //グラデーションビットマップを生成
680
681    BITMAPINFO BitmapInfo;
682    memset(&BitmapInfo.bmiHeader,0,sizeof(BITMAPINFOHEADER));
683    BitmapInfo.bmiHeader.biSize=sizeof(BITMAPINFOHEADER);
684    BitmapInfo.bmiHeader.biWidth=pSize->cx;
685    BitmapInfo.bmiHeader.biHeight=pSize->cy;
686    BitmapInfo.bmiHeader.biPlanes=1;
687    BitmapInfo.bmiHeader.biBitCount=24;
688
689    HDC hdc;
690    hdc=GetDC(GetDesktopWindow());
691
692    HBITMAP hBitmap;
693    BYTE *pByte;
694    hBitmap=CreateDIBSection(hdc,&BitmapInfo,DIB_RGB_COLORS,(void **)&pByte,0,0);
695
696    int i,i2,x,y;
697    COLORREF rgb;
698    i=BitmapInfo.bmiHeader.biWidth*3;
699    if(i%sizeof(LONG)!=0) i+=sizeof(LONG)-(i%sizeof(LONG));
700    for(y=0;y<BitmapInfo.bmiHeader.biHeight;y++){
701        if(y<BitmapInfo.bmiHeader.biHeight/2-2) rgb=color2;
702        else if(y>BitmapInfo.bmiHeader.biHeight/2+2) rgb=color1;
703        else{
704            double ratio;
705            ratio=(double)y/(double)BitmapInfo.bmiHeader.biHeight;
706            rgb=RGB(
707                LOBYTE(LOWORD(color2))+(int)(double)(LOBYTE(LOWORD(color1))-LOBYTE(LOWORD(color2)))*(ratio),    //赤要素
708                HIBYTE(LOWORD(color2))+(int)(double)(HIBYTE(LOWORD(color1))-HIBYTE(LOWORD(color2)))*(ratio),    //緑要素
709                LOBYTE(HIWORD(color2))+(int)(double)(LOBYTE(HIWORD(color1))-LOBYTE(HIWORD(color2)))*(ratio)     //青要素
710                );
711        }
712        for(x=0;x<BitmapInfo.bmiHeader.biWidth;x++){
713            i2=y*i+x*3;
714            pByte[i2+2]=LOBYTE(LOWORD(rgb));
715            pByte[i2+1]=HIBYTE(LOWORD(rgb));
716            pByte[i2]=LOBYTE(HIWORD(rgb));
717        }
718    }
719
720    ReleaseDC(GetDesktopWindow(),hdc);
721
722    return hBitmap;
723}
724HBITMAP CreateHorzGradationBitmap(SIZE *pSize,COLORREF color1,COLORREF color2){
725    //グラデーションビットマップを生成
726
727    BITMAPINFO BitmapInfo;
728    memset(&BitmapInfo.bmiHeader,0,sizeof(BITMAPINFOHEADER));
729    BitmapInfo.bmiHeader.biSize=sizeof(BITMAPINFOHEADER);
730    BitmapInfo.bmiHeader.biWidth=pSize->cx;
731    BitmapInfo.bmiHeader.biHeight=pSize->cy;
732    BitmapInfo.bmiHeader.biPlanes=1;
733    BitmapInfo.bmiHeader.biBitCount=24;
734
735    HDC hdc;
736    hdc=GetDC(GetDesktopWindow());
737
738    HBITMAP hBitmap;
739    BYTE *pByte;
740    hBitmap=CreateDIBSection(hdc,&BitmapInfo,DIB_RGB_COLORS,(void **)&pByte,0,0);
741
742    int i,i2,x,y;
743    COLORREF rgb;
744    i=BitmapInfo.bmiHeader.biWidth*3;
745    if(i%sizeof(LONG)!=0) i+=sizeof(LONG)-(i%sizeof(LONG));
746    for(x=0;x<BitmapInfo.bmiHeader.biWidth;x++){
747        double ratio;
748        ratio=(double)x/(double)BitmapInfo.bmiHeader.biWidth;
749        rgb=RGB(
750            LOBYTE(LOWORD(color1))+(int)(double)(LOBYTE(LOWORD(color2))-LOBYTE(LOWORD(color1)))*(ratio),    //赤要素
751            HIBYTE(LOWORD(color1))+(int)(double)(HIBYTE(LOWORD(color2))-HIBYTE(LOWORD(color1)))*(ratio),    //緑要素
752            LOBYTE(HIWORD(color1))+(int)(double)(LOBYTE(HIWORD(color2))-LOBYTE(HIWORD(color1)))*(ratio)     //青要素
753            );
754        for(y=0;y<BitmapInfo.bmiHeader.biHeight;y++){
755            i2=y*i+x*3;
756            pByte[i2+2]=LOBYTE(LOWORD(rgb));
757            pByte[i2+1]=HIBYTE(LOWORD(rgb));
758            pByte[i2]=LOBYTE(HIWORD(rgb));
759        }
760    }
761
762    ReleaseDC(GetDesktopWindow(),hdc);
763
764    return hBitmap;
765}
766HICON CreateGrayIcon(HICON hBaseIcon){
767    ////////////////////////
768    // 淡色アイコンを生成
769    ////////////////////////
770
771    HICON hGrayIcon;
772
773    ICONINFO IconInfo;
774    GetIconInfo(hBaseIcon,&IconInfo);
775
776
777    //ビットマップを加工
778    BITMAP Bitmap;
779    GetObject(IconInfo.hbmColor,sizeof(Bitmap),&Bitmap);
780
781    BITMAPINFO BitmapInfo;
782    memset(&BitmapInfo.bmiHeader,0,sizeof(BITMAPINFOHEADER));
783    BitmapInfo.bmiHeader.biSize=sizeof(BITMAPINFOHEADER);
784    BitmapInfo.bmiHeader.biWidth=Bitmap.bmWidth;
785    BitmapInfo.bmiHeader.biHeight=Bitmap.bmHeight;
786    BitmapInfo.bmiHeader.biPlanes=1;
787    BitmapInfo.bmiHeader.biBitCount=24;
788    BitmapInfo.bmiHeader.biCompression=BI_RGB;
789
790    HDC hdc;
791    hdc=GetDC(GetDesktopWindow());
792
793    BYTE *pByte;
794    pByte=(BYTE *)HeapAlloc(hHeap,0,Bitmap.bmWidth*Bitmap.bmHeight*sizeof(COLORREF));
795    GetDIBits(hdc,
796        IconInfo.hbmColor,
797        0,
798        Bitmap.bmHeight,
799        (void *)pByte,
800        &BitmapInfo,
801        DIB_RGB_COLORS);
802
803    int i,i2,x,y;
804    i=BitmapInfo.bmiHeader.biWidth*3;
805    if(i%sizeof(LONG)!=0) i+=sizeof(LONG)-(i%sizeof(LONG));
806    for(x=0;x<BitmapInfo.bmiHeader.biWidth;x++){
807        for(y=0;y<BitmapInfo.bmiHeader.biHeight;y++){
808            i2=y*i+x*3;
809            if(pByte[i2+2]==0&&pByte[i2+1]==0&&pByte[i2]==0){
810                //透明色
811                //何もしない
812            }
813            else{
814                double ratio=0.5;   //明るさ
815
816                pByte[i2+2]+=(BYTE)((double)(255-pByte[i2+2])*ratio);
817                pByte[i2+1]+=(BYTE)((double)(255-pByte[i2+1])*ratio);
818                pByte[i2]+=(BYTE)((double)(255-pByte[i2])*ratio);
819
820                pByte[i2+2]=(BYTE)(((int)pByte[i2+2]+(int)pByte[i2+1]+(int)pByte[i2])/3);
821                pByte[i2+1]=pByte[i2+2];
822                pByte[i2]=pByte[i2+2];
823            }
824        }
825    }
826
827    SetDIBits(hdc,
828        IconInfo.hbmColor,
829        0,
830        Bitmap.bmHeight,
831        (void *)pByte,
832        &BitmapInfo,
833        DIB_RGB_COLORS);
834
835    HeapDefaultFree(pByte);
836
837    ReleaseDC(GetDesktopWindow(),hdc);
838
839
840    hGrayIcon=CreateIconIndirect(&IconInfo);
841
842    //不要なビットマップを破棄
843    DeleteObject(IconInfo.hbmMask);
844    DeleteObject(IconInfo.hbmColor);
845
846    return hGrayIcon;
847}
848void GetSize(SIZE *pSize,RECT *pRect){
849    pSize->cx=pRect->right-pRect->left;
850    pSize->cy=pRect->bottom-pRect->top;
851}
852BOOL HitTest(RECT *pRect,POINT *pPos){
853    if(pRect->left<=pPos->x&&pPos->x<pRect->right&&
854        pRect->top<=pPos->y&&pPos->y<pRect->bottom) return 1;
855    return 0;
856}
857BOOL Rectangle(HDC hdc,RECT *pRect){
858    return Rectangle(hdc,pRect->left,pRect->top,pRect->right,pRect->bottom);
859}
860
861void ComboBox_SetSelText(HWND hCombo,char *lpszText){
862    SendMessage(hCombo,CB_SETCURSEL,
863        SendMessage(hCombo,CB_FINDSTRINGEXACT,0,(LPARAM)lpszText),
864        0);
865}
866
867void SetCursorByState(int state){
868    if(state==FRAME_UPPER_LEFT||state==FRAME_LOWER_RIGHT) SetCursor(LoadCursor(0,IDC_SIZENWSE));
869    else if(state==FRAME_UPPER_RIGHT||state==FRAME_LOWER_LEFT) SetCursor(LoadCursor(0,IDC_SIZENESW));
870    else if(state==FRAME_LEFT||state==FRAME_RIGHT) SetCursor(LoadCursor(0,IDC_SIZEWE));
871    else if(state==FRAME_UPPER||state==FRAME_LOWER) SetCursor(LoadCursor(0,IDC_SIZENS));
872    else if(state==FRAME_INSIDE) SetCursor(LoadCursor(0,IDC_SIZEALL));
873    else SetCursor(LoadCursor(0,IDC_ARROW));
874}
875
876void SetTextEditColorDesign(TEXTEDIT_COLOR_INFO *pColorInfo,CTheme *pobj_Theme,BOOL bRedraw){
877    pColorInfo->rgbDefault=pobj_Theme->TextColorInfo.rgbDefault;
878    pColorInfo->rgbComment=pobj_Theme->TextColorInfo.rgbComment;
879    pColorInfo->rgbStatement=pobj_Theme->TextColorInfo.rgbStatement;
880    pColorInfo->rgbString=pobj_Theme->TextColorInfo.rgbString;
881    pColorInfo->rgbCursorBack=pobj_Theme->TextColorInfo.rgbCursorBack;
882    pColorInfo->rgbBackground=pobj_Theme->TextColorInfo.rgbBackground;
883
884    //アクティブテーマにセット
885    lstrcpy(pobj_nv->szActiveTheme,pobj_Theme->m_name);
886
887    //テーマ依存の描画リソースを取得
888    pobj_DBTheme->unlock();
889    pobj_DBTheme->lock();
890
891    if(bRedraw){
892        //再描画
893        extern MDIINFO MdiInfo[MAX_WNDNUM];
894        int i;
895        for(i=0;i<MAX_WNDNUM;i++){
896            if(MdiInfo[i].hwnd){
897                if(IS_DOCUMENT_TEXT(MdiInfo[i].DocType)){
898                    SetTextEditWordColor(i);
899                    InvalidateRect(MdiInfo[i].pMdiTextEdit->hEdit,NULL,0);
900                }
901            }
902        }
903    }
904}
905
906BOOL SetupProjectEditor(void){
907    extern HINSTANCE hInst;
908    int i;
909    char str[MAX_PATH],temporary[MAX_PATH];
910
911
912    //リソース用DLLをマッピング
913    const std::string resDllPath = ActiveBasic::Common::Environment::GetAbdevSystemDirPath() + "\\res.dll";
914    hResInst = LoadLibrary( resDllPath.c_str() );
915
916    //アイコンリソースDLLをマッピング
917    const std::string iconResDllPath = ActiveBasic::Common::Environment::GetAbdevSystemDirPath() + "\\icon_res.dll";
918    hIconResInst = LoadLibrary( iconResDllPath.c_str() );
919
920    //LuxCtrl.dllをマッピング
921    const std::string luxCtrlDllPath = ActiveBasic::Common::Environment::GetAbdevSystemDirPath() + "\\LuxCtrl.dll";
922    hLib_LuxCtrl = LoadLibrary( luxCtrlDllPath.c_str() );
923    if(!hLib_LuxCtrl){
924        MessageBox(0,"LuxCtrl.dllの読み込みに失敗しました。",APPLICATION_NAME,MB_OK|MB_ICONEXCLAMATION);
925        return 0;
926    }
927    LuxToolbar_CreateInstance=
928        (PROC_LuxToolbar_CreateInstance)GetProcAddress(hLib_LuxCtrl,"LuxToolbar_CreateInstance");
929
930
931    //モジュールディレクトリを取得
932    GetModuleFileName(hInst,temporary,MAX_PATH);
933    _splitpath(temporary,pj_editor_Dir,str,NULL,NULL);
934    lstrcat(pj_editor_Dir,str);
935
936    //ヒープオブジェクトを作成
937    extern HANDLE hHeap;
938    hHeap=HeapCreate(HEAP_GENERATE_EXCEPTIONS,0,0);
939
940
941    //自動バックアップ用のディレクトリを生成
942    CreateBackupDir();
943
944
945    //COMを初期化
946    CoInitialize(0);
947
948    //スクリーンサイズを取得
949    ScreenX=GetSystemMetrics(SM_CXSCREEN);
950    ScreenY=GetSystemMetrics(SM_CYSCREEN);
951
952    //不揮発性のデータを取得
953    pobj_nv=new CNonVolatile;
954    pobj_nv->load();
955
956
957    //アルファブレンド用のAPIを取得
958    extern FWINLAYER pSetLayeredWindowAttributes;
959    extern HINSTANCE hUser32Lib;
960    hUser32Lib=LoadLibrary("user32.dll");
961    pSetLayeredWindowAttributes=(FWINLAYER)GetProcAddress(hUser32Lib,"pSetLayeredWindowAttributes");
962
963
964
965
966    /////////////////////
967    // フォントを定義
968    /////////////////////
969
970    //パラメータ ヒント フォント
971    extern METHODCHECKINFO MethodCheckInfo;
972    MethodCheckInfo.hFont=CreateFontIndirect(&MethodCheckInfo.LogFont);
973    i=MethodCheckInfo.LogFont.lfWeight;
974    MethodCheckInfo.LogFont.lfWeight=FW_BOLD;
975    MethodCheckInfo.hBoldFont=CreateFontIndirect(&MethodCheckInfo.LogFont);
976    MethodCheckInfo.LogFont.lfWeight=i;
977
978    //ステータスバー フォント
979    LOGFONT LogFont;
980    extern HFONT hStatusFont;
981    LogFont.lfHeight=-12;
982    LogFont.lfWidth=0;
983    LogFont.lfEscapement=0;
984    LogFont.lfOrientation=0;
985    LogFont.lfWeight=FW_REGULAR;
986    LogFont.lfItalic=NULL;
987    LogFont.lfUnderline=NULL;
988    LogFont.lfStrikeOut=NULL;
989    LogFont.lfCharSet=SHIFTJIS_CHARSET;
990    LogFont.lfOutPrecision=OUT_STRING_PRECIS;
991    LogFont.lfClipPrecision=CLIP_STROKE_PRECIS;
992    LogFont.lfQuality=DRAFT_QUALITY;
993    LogFont.lfPitchAndFamily=VARIABLE_PITCH;
994    sprintf(LogFont.lfFaceName,"ＭＳ Ｐゴシック");
995    hStatusFont=CreateFontIndirect(&LogFont);
996
997    //ハイパーリンク フォント
998    extern HFONT hHyperLinkFont;
999    LogFont.lfHeight=-12;
1000    LogFont.lfWidth=0;
1001    LogFont.lfEscapement=0;
1002    LogFont.lfOrientation=0;
1003    LogFont.lfWeight=FW_REGULAR;
1004    LogFont.lfItalic=NULL;
1005    LogFont.lfUnderline=TRUE;
1006    LogFont.lfStrikeOut=NULL;
1007    LogFont.lfCharSet=SHIFTJIS_CHARSET;
1008    LogFont.lfOutPrecision=OUT_STRING_PRECIS;
1009    LogFont.lfClipPrecision=CLIP_STROKE_PRECIS;
1010    LogFont.lfQuality=DRAFT_QUALITY;
1011    LogFont.lfPitchAndFamily=VARIABLE_PITCH;
1012    sprintf(LogFont.lfFaceName,"ＭＳ Ｐゴシック");
1013    hHyperLinkFont=CreateFontIndirect(&LogFont);
1014
1015    //ルーラー フォント
1016    extern HFONT hRulerFont;
1017    LogFont.lfHeight=-10;
1018    LogFont.lfWidth=0;
1019    LogFont.lfEscapement=0;
1020    LogFont.lfOrientation=0;
1021    LogFont.lfWeight=FW_REGULAR;
1022    LogFont.lfItalic=NULL;
1023    LogFont.lfUnderline=0;
1024    LogFont.lfStrikeOut=NULL;
1025    LogFont.lfCharSet=SHIFTJIS_CHARSET;
1026    LogFont.lfOutPrecision=OUT_STRING_PRECIS;
1027    LogFont.lfClipPrecision=CLIP_STROKE_PRECIS;
1028    LogFont.lfQuality=DRAFT_QUALITY;
1029    LogFont.lfPitchAndFamily=VARIABLE_PITCH;
1030    sprintf(LogFont.lfFaceName,"ＭＳ ゴシック");
1031    hRulerFont=CreateFontIndirect(&LogFont);
1032
1033    //行番号の描画用
1034    extern HFONT hFont_LineNumber;
1035    LogFont.lfHeight=-11;
1036    LogFont.lfWidth=0;
1037    LogFont.lfEscapement=0;
1038    LogFont.lfOrientation=0;
1039    LogFont.lfWeight=FW_BOLD;
1040    LogFont.lfItalic=NULL;
1041    LogFont.lfUnderline=NULL;
1042    LogFont.lfStrikeOut=NULL;
1043    LogFont.lfCharSet=ANSI_CHARSET;
1044    LogFont.lfOutPrecision=OUT_STRING_PRECIS;
1045    LogFont.lfClipPrecision=CLIP_STROKE_PRECIS;
1046    LogFont.lfQuality=DRAFT_QUALITY;
1047    LogFont.lfPitchAndFamily=VARIABLE_PITCH;
1048    sprintf(LogFont.lfFaceName,"Courier New");
1049    hFont_LineNumber=CreateFontIndirect(&LogFont);
1050
1051    //メニューフォント
1052    NONCLIENTMETRICS NCMetrics;
1053    int sizeof_NONCLIENTMETRICS = sizeof( NONCLIENTMETRICS );
1054#if WINVER >= 0x0600
1055    sizeof_NONCLIENTMETRICS -= sizeof(int);
1056#endif
1057    NCMetrics.cbSize = sizeof_NONCLIENTMETRICS;
1058    SystemParametersInfo( SPI_GETNONCLIENTMETRICS, sizeof_NONCLIENTMETRICS, &NCMetrics, 0 );
1059    hMenuFont=CreateFontIndirect(&NCMetrics.lfMenuFont);
1060
1061
1062
1063    //背景ブラシ
1064    extern HBRUSH h3DFaceBackBrush;
1065    h3DFaceBackBrush=CreateSolidBrush(GetSysColor(COLOR_3DFACE));
1066
1067    //アイコン
1068    extern HICON hOwnerIcon,hBasicProgramIcon,hTextDocumentIcon,hWindowDocumentIcon;
1069    hOwnerIcon=(HICON)LoadImage(hInst,MAKEINTRESOURCE(IDI_MAIN),IMAGE_ICON,16,16,LR_DEFAULTCOLOR);
1070    hBasicProgramIcon=(HICON)LoadImage(hResInst,MAKEINTRESOURCE(IDI_BASICPROGRAM),IMAGE_ICON,16,16,LR_DEFAULTCOLOR);
1071    hTextDocumentIcon=(HICON)LoadImage(hResInst,MAKEINTRESOURCE(IDI_TEXTDOCUMENT),IMAGE_ICON,16,16,LR_DEFAULTCOLOR);
1072    hWindowDocumentIcon=(HICON)LoadImage(hResInst,MAKEINTRESOURCE(IDI_WINDOW),IMAGE_ICON,16,16,LR_DEFAULTCOLOR);
1073
1074
1075
1076
1077    //メインメニュー
1078    pobj_MainMenu=new CMenuEx(LoadMenu(hResInst,MAKEINTRESOURCE(IDR_MAINMENU)));
1079
1080    pobj_MainMenu->InitOwnerDraw(1);            //オーナー描画の初期化
1081
1082    CSubMenuEx *pobj_FileMenu;
1083    pobj_FileMenu=pobj_MainMenu->ppobj_MenuItemData[0]->pobj_SubMenu;
1084
1085    //未完成
1086    extern HMENU hFirstMainMenu;
1087    hFirstMainMenu=0;
1088
1089    //「最近使ったファイル」サブメニューを取得（と同時にも正規のメニュー文字列を指定）
1090    for(i=0;i<pobj_FileMenu->iMenuItemNum;i++){
1091        if(pobj_FileMenu->ppobj_MenuItemData[i]->str){
1092            if(lstrcmp(pobj_FileMenu->ppobj_MenuItemData[i]->str,"FileHistory")==0){
1093                pobj_FileMenu->RenameMenuItem(i,"最近使ったファイル(&F)");
1094
1095                extern CSubMenuEx *pobj_FileHistoryMenu;
1096                pobj_FileHistoryMenu=pobj_FileMenu->ppobj_MenuItemData[i]->pobj_SubMenu;
1097            }
1098
1099#ifndef THETEXT
1100            //「最近使ったプロジェクト」サブメニューを取得（と同時にも正規のメニュー文字列を指定）
1101            //※ProjectEditorのみ
1102            if(lstrcmp(pobj_FileMenu->ppobj_MenuItemData[i]->str,"ProjectHistory")==0){
1103                pobj_FileMenu->RenameMenuItem(i,"最近使ったプロジェクト(&J)");
1104
1105                extern CSubMenuEx *pobj_ProjectHistoryMenu;
1106                pobj_ProjectHistoryMenu=pobj_FileMenu->ppobj_MenuItemData[i]->pobj_SubMenu;
1107            }
1108#endif
1109        }
1110    }
1111
1112#define ICONSET(itemID,iconID) pobj_MainMenu->SetIcon(itemID,(HICON)LoadImage(hIconResInst,MAKEINTRESOURCE(iconID),IMAGE_ICON,16,16,0));
1113    //メニューアイコンをセット
1114
1115    //ファイル
1116    ICONSET(IDM_NEW,IDI_NEW);
1117    ICONSET(IDM_OPEN,IDI_OPEN);
1118    ICONSET(IDM_SAVE,IDI_SAVE);
1119    ICONSET(IDM_ALLSAVE,IDI_ALLSAVE);
1120    ICONSET(IDM_PREVIEW,IDI_PREVIEW);
1121    ICONSET(IDM_PRINTOUT,IDI_PRINT);
1122
1123    //編集
1124    ICONSET(IDM_CUT,IDI_CUT);
1125    ICONSET(IDM_COPY,IDI_COPY);
1126    ICONSET(IDM_PASTE,IDI_PASTE);
1127    ICONSET(IDM_UNDO,IDI_UNDO);
1128    ICONSET(IDM_REDO,IDI_REDO);
1129    ICONSET(IDM_FIND,IDI_FIND);
1130
1131    //表示
1132    ICONSET(IDM_SET,IDI_OPTION);
1133
1134    //変換
1135    ICONSET(IDM_CONV_ALPHA_SMALL,IDI_CONV_ALPHA_SMALL);
1136    ICONSET(IDM_CONV_ALPHA_BIG,IDI_CONV_ALPHA_BIG);
1137    ICONSET(IDM_CONV_HALF,IDI_CONV_HALF);
1138    ICONSET(IDM_CONV_MULTI,IDI_CONV_MULTI);
1139    ICONSET(IDM_CONV_KATAKANA,IDI_CONV_KATAKANA);
1140    ICONSET(IDM_CONV_HIRAGANA,IDI_CONV_HIRAGANA);
1141
1142    //ヘルプ
1143    ICONSET(IDM_TOPIC,IDI_HELP);
1144
1145#ifdef THETEXT
1146    //TheTextのみの機能
1147    ICONSET(IDM_STRING_COUNT,IDI_STRINGCOUNT);
1148#else
1149    //ProjectEditorのみの機能
1150
1151    //リリース
1152    ICONSET(IDM_RELEASECOMPILE,IDI_RELEASECOMPILE);
1153    ICONSET(IDM_RELEASERUN,IDI_RELEASERUN);
1154
1155    //デバッグ
1156    ICONSET(IDM_ATTACH,IDI_ATTACH);
1157    ICONSET(IDM_DEBUGCOMPILE,IDI_DEBUGCOMPILE);
1158    ICONSET(IDM_DEBUG,IDI_DEBUGRUN);
1159    ICONSET(IDM_BREAKPOINT,IDI_BREAKPOINT);
1160    ICONSET(IDM_STEP_IN,IDI_STEPIN);
1161    ICONSET(IDM_STEP_OVER,IDI_STEPOVER);
1162    ICONSET(IDM_STEP_CURSOR,IDI_STEPTOCURSOR);
1163    ICONSET(IDM_DEBUG_PAUSE,IDI_DEBUGPAUSE);
1164    ICONSET(IDM_DEBUG_STOP,IDI_DEBUGSTOP);
1165
1166    //コミュニティ
1167    ICONSET(IDM_COMMUNITY,IDI_COMMUNITY_MAIN);
1168    ICONSET(IDM_COMMU_SEARCH,IDI_COMMUNITY_FIND);
1169    ICONSET(IDM_COMMU_PM,IDI_COMMUNITY_PRIVATEMSG);
1170    ICONSET(ID_COMMU_FORUM1,IDI_COMMUNITY_FORUM);
1171    ICONSET(ID_COMMU_FORUM2,IDI_COMMUNITY_FORUM);
1172    ICONSET(ID_COMMU_FORUM3,IDI_COMMUNITY_FORUM);
1173    ICONSET(ID_COMMU_FORUM4,IDI_COMMUNITY_FORUM);
1174    ICONSET(ID_COMMU_FORUM5,IDI_COMMUNITY_FORUM);
1175    ICONSET(ID_COMMU_FORUM6,IDI_COMMUNITY_FORUM_SECRET);
1176    ICONSET(ID_COMMU_FORUM7,IDI_COMMUNITY_FORUM);
1177    ICONSET(ID_COMMU_FORUM8,IDI_COMMUNITY_FORUM);
1178#endif
1179
1180#undef ICONSET
1181
1182
1183
1184
1185    extern HMENU hEditMenuBase,hEditMenu;
1186    hEditMenuBase=LoadMenu(hResInst,MAKEINTRESOURCE(IDR_EDITMENU));
1187    hEditMenu=GetSubMenu(hEditMenuBase,0);
1188
1189    extern HMENU hRebarMenuBase,hRebarMenu;
1190    hRebarMenuBase=LoadMenu(hResInst,MAKEINTRESOURCE(IDR_REBARMENU));
1191    hRebarMenu=GetSubMenu(hRebarMenuBase,0);
1192
1193    extern HMENU hTabMenuBase,hTabMenu,hTabColorMenu;
1194    hTabMenuBase=LoadMenu(hResInst,MAKEINTRESOURCE(IDR_TABMENU));
1195    hTabMenu=GetSubMenu(hTabMenuBase,0);
1196    hTabColorMenu=GetSubMenu(hTabMenu,0);
1197
1198    extern HMENU hFileTreeMenuBase;
1199    hFileTreeMenuBase=LoadMenu(hResInst,MAKEINTRESOURCE(IDR_PROJECTVIEW_FILETREEMENU));
1200
1201    extern HMENU hProcedureTreeMenuBase;
1202    hProcedureTreeMenuBase=LoadMenu(hResInst,MAKEINTRESOURCE(IDR_PROJECTVIEW_PROCEDURETREEMENU));
1203
1204    extern HMENU hMaterialTreeMenuBase;
1205    hMaterialTreeMenuBase=LoadMenu(hResInst,MAKEINTRESOURCE(IDR_PROJECTVIEW_MATERIALTREEMENU));
1206
1207    extern HMENU hRadMenuBase;
1208    hRadMenuBase=LoadMenu(hResInst,MAKEINTRESOURCE(IDR_RADCONTEXTMENU));
1209
1210    //クリップボードのデータ形式（RAD用）を新規登録
1211    extern DWORD dwRadClipboardID;
1212    dwRadClipboardID=RegisterClipboardFormat("ProjectEditor-RAD");
1213
1214    //256色の標準パレットを読み込む
1215    extern RGBQUAD DefaultColorTable256[256];
1216    HANDLE hFile;
1217    DWORD dw;
1218    const std::string pltPath = ActiveBasic::Common::Environment::GetAbdevSystemDirPath() + "\\8bit.plt";
1219    hFile=CreateFile(pltPath.c_str(),GENERIC_READ,FILE_SHARE_READ|FILE_SHARE_WRITE,NULL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,NULL);
1220    if(hFile==INVALID_HANDLE_VALUE){
1221        //"\"%s\" ファイルの読み込みに失敗しました。"
1222        sprintf(str,STRING_ERROR_CANT_FILEOPEN,temporary);
1223        MessageBox(NULL,str,STRING_ERROR,MB_OK|MB_ICONEXCLAMATION);
1224        return 0;
1225    }
1226    ReadFile(hFile,DefaultColorTable256,sizeof(RGBQUAD)*256,&dw,NULL);
1227    CloseHandle(hFile);
1228
1229
1230
1231    //デザインテーマオブジェクトを生成
1232    pobj_DBTheme=new CDBTheme();
1233
1234
1235    /////////////////////////
1236    // カラーデザインを設定
1237    CTheme *pobj_Theme;
1238    pobj_Theme=pobj_DBTheme->GetActiveTheme();
1239    if(!pobj_Theme) pobj_Theme=pobj_DBTheme->ppobj_Theme[0];
1240
1241    SetTextEditColorDesign(&tci,pobj_Theme,0);
1242
1243
1244#ifndef THETEXT
1245    /////////////////////////////////////////////////////
1246    // ProjectEditorのみ
1247    /////////////////////////////////////////////////////
1248
1249
1250    //クラスビュー管理オブジェクトを生成
1251    pobj_ClassTreeView=new CClassTreeView();
1252
1253
1254    /////////////////////////
1255    // basic.sbpの内容を取得
1256    /////////////////////////
1257
1258    extern char *pHeaderBuf;
1259    sprintf(temporary,"%sbasic.sbp",pobj_nv->szIncludeDir);
1260    GetFullPath( temporary, pj_editor_Dir );
1261    pHeaderBuf = ReadBuffer_NonErrMsg( temporary );
1262
1263    if( !pHeaderBuf ){
1264        pHeaderBuf=(char *)HeapAlloc(hHeap,HEAP_ZERO_MEMORY,1);
1265    }
1266
1267    //ファイルをインクルード
1268    pHeaderBuf=IncludeFiles(pHeaderBuf);
1269
1270
1271    //デバッガ管理オブジェクトを生成
1272    pobj_Debugger=new CDebugger();
1273#endif
1274
1275
1276    //ブレークポイント管理オブジェクトを生成
1277    extern CDBBreakPoint *pobj_DBBreakPoint;
1278    pobj_DBBreakPoint=new CDBBreakPoint();
1279
1280
1281    return 1;
1282}
1283void EndProjectEditor(void){
1284
1285#ifndef THETEXT
1286    /////////////////////////////////////////////////////
1287    // ProjectEditorのみ
1288    /////////////////////////////////////////////////////
1289
1290
1291    //クラスビュー管理オブジェクトを破棄
1292    delete pobj_ClassTreeView;
1293    pobj_ClassTreeView=0;
1294
1295    //basic.sbpのソースコードバッファを解放
1296    extern char *pHeaderBuf;
1297    HeapDefaultFree(pHeaderBuf);
1298
1299    //デバッガ管理オブジェクトを破棄
1300    delete pobj_Debugger;
1301#endif
1302
1303    //ブレークポイント管理オブジェクトを破棄
1304    extern CDBBreakPoint *pobj_DBBreakPoint;
1305    delete pobj_DBBreakPoint;
1306
1307    //デザインテーマオブジェクトを破棄
1308    delete pobj_DBTheme;
1309
1310    //不揮発性のデータを保存
1311    pobj_nv->save();
1312    delete pobj_nv;
1313    pobj_nv=0;
1314
1315    //メインメニューオブジェクトを破棄
1316    delete pobj_MainMenu;
1317    pobj_MainMenu=0;
1318
1319    extern HFONT hStatusFont;
1320    DeleteObject(hStatusFont);
1321    extern HFONT hHyperLinkFont;
1322    DeleteObject(hHyperLinkFont);
1323    extern HFONT hRulerFont;
1324    DeleteObject(hRulerFont);
1325    extern HFONT hFont_LineNumber;
1326    DeleteObject(hFont_LineNumber);
1327    extern METHODCHECKINFO MethodCheckInfo;
1328    DeleteObject(MethodCheckInfo.hFont);
1329    DeleteObject(MethodCheckInfo.hBoldFont);
1330    extern HICON hOwnerIcon,hBasicProgramIcon,hTextDocumentIcon,hWindowDocumentIcon;
1331    DestroyIcon(hOwnerIcon);
1332    DestroyIcon(hBasicProgramIcon);
1333    DestroyIcon(hTextDocumentIcon);
1334    DestroyIcon(hWindowDocumentIcon);
1335    extern HMENU hEditMenuBase,hRebarMenuBase,hTabMenuBase;
1336    DestroyMenu(hEditMenuBase);
1337    DestroyMenu(hRebarMenuBase);
1338    DestroyMenu(hTabMenuBase);
1339    extern HMENU hFileTreeMenuBase;
1340    DestroyMenu(hFileTreeMenuBase);
1341    extern HMENU hProcedureTreeMenuBase;
1342    DestroyMenu(hProcedureTreeMenuBase);
1343    extern HMENU hMaterialTreeMenuBase;
1344    DestroyMenu(hMaterialTreeMenuBase);
1345    extern HMENU hRadMenuBase;
1346    DestroyMenu(hRadMenuBase);
1347
1348    //背景ブラシ
1349    extern HBRUSH h3DFaceBackBrush;
1350    DeleteObject(h3DFaceBackBrush);
1351
1352    //スタンダードツールバーを破棄
1353    if(pobj_StandardToolbar){
1354        pobj_StandardToolbar->Release();
1355        pobj_StandardToolbar=0;
1356    }
1357
1358    //ビルドツールバーを破棄
1359    if(pobj_ReleaseToolbar){
1360        pobj_ReleaseToolbar->Release();
1361        pobj_ReleaseToolbar=0;
1362    }
1363
1364    //デバッガ用ツールバーを破棄
1365    if(pobj_DebuggerToolbar){
1366        pobj_DebuggerToolbar->Release();
1367        pobj_DebuggerToolbar=0;
1368    }
1369
1370    //ヒープオブジェクトを解放
1371    extern HANDLE hHeap;
1372    HeapDestroy(hHeap);
1373
1374    //DLLを解放
1375    FreeLibrary(hResInst);
1376    FreeLibrary(hIconResInst);
1377    FreeLibrary(hLib_LuxCtrl);
1378
1379    //アルファブレンド用のAPIを解放
1380    extern HINSTANCE hUser32Lib;
1381    FreeLibrary(hUser32Lib);
1382
1383
1384
1385
1386    //////////////////////////////////////
1387    // バックアップ用ファイルを削除
1388    //////////////////////////////////////
1389    extern char szBackupDirPath[MAX_PATH];
1390    RemoveDirectoryStrong(szBackupDirPath);
1391
1392}
1393
1394//各ウィンドウ生成
1395void SetupWindow(HWND hwnd){
1396    extern HINSTANCE hInst;
1397    extern HMENU hFirstMainMenu;
1398    RECT rect;
1399    CLIENTCREATESTRUCT ccs;
1400
1401    INITCOMMONCONTROLSEX InitCommCtrl;
1402    InitCommCtrl.dwSize=sizeof(INITCOMMONCONTROLSEX);
1403    InitCommCtrl.dwICC=ICC_COOL_CLASSES|ICC_PAGESCROLLER_CLASS|ICC_WIN95_CLASSES|ICC_TAB_CLASSES;
1404    InitCommonControlsEx(&InitCommCtrl);
1405
1406    //タブウィンドウ
1407    pobj_MainTab=new CMainTab(hwnd);
1408
1409    //MDIの親ウィンドウ（クライアントウィンドウ）を作成
1410    ccs.hWindowMenu=hFirstMainMenu;
1411    ccs.idFirstChild=ID_FIRSTCHILD;
1412    GetClientRect(hwnd,&rect);
1413    hClient=CreateWindowEx(WS_EX_CLIENTEDGE,"MDICLIENT",NULL,
1414        WS_CHILD|WS_CLIPCHILDREN|WS_CLIPSIBLINGS|WS_VISIBLE,
1415        0,0,0,0,
1416        hwnd,(HMENU)1,hInst,(LPSTR)&ccs);
1417
1418    //レバーオブジェクトを生成
1419    pobj_Rebar=new CMainRebar(hwnd);
1420
1421    //ステータスバー
1422    extern HWND hStatusBar;
1423    extern HFONT hStatusFont;
1424    hStatusBar=CreateStatusWindow(
1425        WS_VISIBLE|WS_CHILD|WS_CLIPSIBLINGS|SBARS_SIZEGRIP|CCS_BOTTOM,
1426        NULL,hwnd,NULL);
1427    SendMessage(hStatusBar,WM_SETFONT,(long)hStatusFont,0);
1428
1429    //プロジェクト ビュー
1430    extern HWND hProjectView;
1431    extern HWND hProjectView_ToolWindow;
1432    RECT *prc;
1433    prc=&pobj_nv->rectProjectView;
1434    hProjectView_ToolWindow=CreateWindowEx(WS_EX_TOOLWINDOW,"ProjectView_ToolWindow","ProjectView",
1435        WS_POPUP|WS_CAPTION|WS_SYSMENU|WS_THICKFRAME|WS_CLIPCHILDREN,
1436        prc->left,prc->top,prc->right-prc->left,prc->bottom-prc->top,
1437        hwnd,0,hInst,0);
1438    hProjectView=CreateWindowEx(WS_EX_STATICEDGE,"ProjectView","ProjectView",
1439        WS_CHILD|WS_CLIPCHILDREN,
1440        0,0,0,0,
1441        hwnd,0,hInst,0);
1442    if(pobj_nv->bClipProjectView==0){
1443        SetWindowLongPtr(hProjectView,GWL_EXSTYLE,0);
1444        SetParent(hProjectView,hProjectView_ToolWindow);
1445        ResizeProjectView_ToolWindow();
1446    }
1447
1448    //メニュー状態を設定
1449    ResetState_DocMenu();
1450
1451
1452    //SideWebを生成
1453    //pobj_SideWeb=new CSideWeb(hwnd);
1454}
1455
1456//実行コマンド
1457BOOL SetRunning(HWND hChild){
1458    extern MDIINFO MdiInfo[MAX_WNDNUM];
1459    extern LPSTR DefFileFilter;
1460    int WndNum;
1461    char temp2[MAX_PATH];
1462    HANDLE hFind;
1463    WIN32_FIND_DATA wfd;
1464
1465    extern ActiveBasic::Common::Platform::EnumType selectingPlatform;
1466    hFind=FindFirstFile(ActiveBasic::Common::Environment::GetCompilerExePath( selectingPlatform ).c_str(),&wfd);
1467    if(hFind==INVALID_HANDLE_VALUE){
1468        //"BasicCompiler.exe が見つかりません"
1469        MessageBox(hOwner,STRING_ERROR_NOBASICCOMPILER,STRING_ERROR,MB_OK|MB_ICONEXCLAMATION);
1470        return FALSE;
1471    }
1472    FindClose(hFind);
1473
1474    WndNum=GetWndNum(hChild);
1475    if(IS_DOCUMENT_TEXT(MdiInfo[WndNum].DocType)){
1476        if(MdiInfo[WndNum].path[0]=='\0'){
1477            //"保存先のファイルを指定してください"
1478            if(!GetFilePathDialog(hOwner,temp2,DefFileFilter,STRING_FILESAVETITLE_DEFAULT,0)) return FALSE;
1479
1480            if(!SaveDocument(hChild,temp2)) return 0;
1481        }
1482        else{
1483            if( MdiInfo[WndNum].pMdiTextEdit->IsModified() ){
1484                if(!SaveDocument(hChild,NULL)) return 0;
1485            }
1486            else{
1487                if(hFind=FindFirstFile(MdiInfo[WndNum].path,&wfd)){
1488                    if(hFind==INVALID_HANDLE_VALUE){
1489                        if(!SaveDocument(hChild,NULL)) return 0;
1490                    }
1491                    else FindClose(hFind);
1492                }
1493            }
1494        }
1495    }
1496    return 1;
1497}
1498
1499BOOL IsNeedCompile(char *FileName,BOOL bDebug){
1500    char temporary[MAX_PATH],temp2[MAX_PATH],temp3[MAX_PATH];
1501    HANDLE hFind,hFile;
1502    WIN32_FIND_DATA wfd;
1503    FILETIME SourceTime,ExeTime;
1504
1505    _splitpath(FileName,temporary,temp2,temp3,NULL);
1506    lstrcat(temporary,temp2);
1507    lstrcat(temporary,temp3);
1508    if(bDebug) lstrcat(temporary,"_debug.exe");
1509    else lstrcat(temporary,".exe");
1510
1511    hFind=FindFirstFile(temporary,&wfd);
1512    if(hFind==INVALID_HANDLE_VALUE) return 1;
1513    FindClose(hFind);
1514
1515    hFile=CreateFile(FileName,GENERIC_READ,FILE_SHARE_READ|FILE_SHARE_WRITE,NULL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,NULL);
1516    GetFileTime(hFile,NULL,NULL,&SourceTime);
1517    CloseHandle(hFile);
1518
1519    hFile=CreateFile(temporary,GENERIC_READ,FILE_SHARE_READ|FILE_SHARE_WRITE,NULL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,NULL);
1520    GetFileTime(hFile,NULL,NULL,&ExeTime);
1521    CloseHandle(hFile);
1522
1523    if(SourceTime.dwHighDateTime<ExeTime.dwHighDateTime) return 0;
1524    else if(SourceTime.dwHighDateTime==ExeTime.dwHighDateTime&&
1525        SourceTime.dwLowDateTime<=ExeTime.dwLowDateTime) return 0;
1526    return 1;
1527}
1528
1529string GetLastErrorString(){
1530    char *lpMsgBuf;
1531
1532    FormatMessage( 
1533        FORMAT_MESSAGE_ALLOCATE_BUFFER | 
1534        FORMAT_MESSAGE_FROM_SYSTEM | 
1535        FORMAT_MESSAGE_IGNORE_INSERTS,
1536        NULL,
1537        GetLastError(),
1538        MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), // デフォルト言語
1539        (LPTSTR) &lpMsgBuf,
1540        0,
1541        NULL 
1542    );
1543
1544    string result = lpMsgBuf;
1545
1546    LocalFree( lpMsgBuf );
1547
1548    return result;
1549}
Note: See TracBrowser for help on using the repository browser.