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

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

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