source: dev/trunk/ab5.0/abdev/ProjectEditor/MessageCallOperation.cpp @ 475

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

構成管理を変更中・・・（いったんコミット）
File size: 29.8 KB
Line 
1#include "stdafx.h"
2
3#include "Common.h"
4
5////////////////////////////////////////////////////////////////////////////
6//このソースファイルではイベントプロシージャの管理を行う（MainWnd.abなど）
7////////////////////////////////////////////////////////////////////////////
8
9int NowMenuNum;
10
11int GetItemMessageInfo(int WndInfoNum,char *buffer,char *EventName){
12    extern PROJECTINFO ProjectInfo; 
13    int i;
14
15    for(i=lstrlen(buffer);i>=0;i--){
16        if(buffer[i]=='_') break;
17    }
18    if(i==-1) return 0;
19    lstrcpy(EventName,buffer+i+1);
20    buffer[i]=0;
21    if(lstrcmp(EventName,"MenuClick")==0) return CT_MENU;
22    for(i=0;i<ProjectInfo.pWindowInfo[WndInfoNum].NumberOfChildWindows;i++){
23        if(lstrcmp(buffer,ProjectInfo.pWindowInfo[WndInfoNum].pChildInfo[i].IdName)==0) break;
24    }
25    if(i==ProjectInfo.pWindowInfo[WndInfoNum].NumberOfChildWindows) return 0;
26
27    return ProjectInfo.pWindowInfo[WndInfoNum].pChildInfo[i].Control;
28}
29char **GetProcedureNamesOfMessageCall(int WndInfoNum,ITEMEVENTINFO **ppItemEventInfo,int *num,BOOL *pbAlways){
30    extern HANDLE hHeap;
31    extern PROJECTINFO ProjectInfo;
32    int i,i2,i3,i4,i5,i6,NameLen,CallBackNameLen;
33    char *buffer,**ppNames,temporary[MAX_PATH],temp2[MAX_PATH];
34
35    NameLen=lstrlen(ProjectInfo.pWindowInfo[WndInfoNum].name);
36    CallBackNameLen=lstrlen(ProjectInfo.pWindowInfo[WndInfoNum].CallBackName);
37
38    sprintf(temporary,"%s%s",ProjectInfo.dir,ProjectInfo.pWindowInfo[WndInfoNum].filepath);
39    buffer=ReadBuffer(temporary);
40
41    *num=0;
42    ppNames=(char **)HeapAlloc(hHeap,0,1);
43
44    *pbAlways=0;
45
46    //メッセージ
47    *ppItemEventInfo=(ITEMEVENTINFO *)HeapAlloc(hHeap,HEAP_ZERO_MEMORY,sizeof(ITEMEVENTINFO));
48    for(i=0,i4=0;;i++){
49        if(buffer[i]=='\0') break;
50
51        //注釈（複数行）
52        if(buffer[i]=='/'&&buffer[i+1]=='*'){
53            i+=2;
54            while(!(buffer[i]=='*'&&buffer[i+1]=='/')){
55                if(buffer[i]=='\0'){
56                    i--;
57                    break;
58                }
59                i++;
60            }
61            continue;
62        }
63
64        if((buffer[i]=='\r'&&buffer[i+1]=='\n'&&buffer[i+2]!='\0')||i==0){
65            if(buffer[i]=='\r'&&buffer[i+1]=='\n') i2=i+2;
66            else i2=i;
67            while(buffer[i2]>='0'&&buffer[i2]<='9') i2++;
68            while(buffer[i2]==' '||buffer[i2]=='\t') i2++;
69            if(memicmp(buffer+i2,"Sub",3)==0&&(buffer[i2+3]==' '||buffer[i2+3]=='\t')){
70                i2+=4;
71                while(buffer[i2]==' '||buffer[i2]=='\t') i2++;
72                strncpy(temporary,buffer+i2,NameLen);
73                temporary[NameLen]=0;
74                if(lstrcmp(temporary,ProjectInfo.pWindowInfo[WndInfoNum].name)==0&&buffer[i2+NameLen]=='_'){
75                    for(i2+=NameLen+1,i3=0;;i2++,i3++){
76                        if(!IsVariableChar(buffer[i2])){
77                            temporary[i3]=0;
78                            break;
79                        }
80                        temporary[i3]=buffer[i2];
81                    }
82                    i6=GetItemMessageInfo(WndInfoNum,temporary,temp2);
83                    if(i6){
84                        //アイテムメッセージ（WM_COMMAND、WM_NOTIFY）
85                        for(i5=0;;i5++){
86                            if((*ppItemEventInfo)[i5].IdName==0){
87                                *ppItemEventInfo=(ITEMEVENTINFO *)HeapReAlloc(hHeap,HEAP_ZERO_MEMORY,*ppItemEventInfo,(i4+2)*sizeof(ITEMEVENTINFO));
88                                (*ppItemEventInfo)[i4].IdName=(char *)HeapAlloc(hHeap,0,lstrlen(temporary)+1);
89                                lstrcpy((*ppItemEventInfo)[i4].IdName,temporary);
90                                (*ppItemEventInfo)[i4].pEventNames=(char **)HeapAlloc(hHeap,0,1);
91                                (*ppItemEventInfo)[i4].ClassID=i6;
92                                i4++;
93                                break;
94                            }
95                            if(lstrcmp((*ppItemEventInfo)[i5].IdName,temporary)==0) break;
96                        }
97                        (*ppItemEventInfo)[i5].pEventNames=(char **)HeapReAlloc(hHeap,0,(*ppItemEventInfo)[i5].pEventNames,((*ppItemEventInfo)[i5].EventNum+1)*sizeof(char *));
98                        (*ppItemEventInfo)[i5].pEventNames[(*ppItemEventInfo)[i5].EventNum]=(char *)HeapAlloc(hHeap,0,lstrlen(temp2)+1);
99                        lstrcpy((*ppItemEventInfo)[i5].pEventNames[(*ppItemEventInfo)[i5].EventNum],temp2);
100                        (*ppItemEventInfo)[i5].EventNum++;
101                    }
102                    else if(temporary[0]){
103                        //一般メッセージ
104                        ppNames=(char **)HeapReAlloc(hHeap,0,ppNames,(*num+1)*sizeof(char *));
105                        ppNames[*num]=(char *)HeapAlloc(hHeap,0,lstrlen(temporary)+1);
106                        lstrcpy(ppNames[*num],temporary);
107                        (*num)++;
108                    }
109                }
110            }
111            if(memicmp(buffer+i2,"Function",8)==0&&(buffer[i2+8]==' '||buffer[i2+8]=='\t')){
112                //[WndName]_WindowProcのみFunction定義
113                i2+=9;
114                while(buffer[i2]==' '||buffer[i2]=='\t') i2++;
115                if(memicmp(buffer+i2,ProjectInfo.pWindowInfo[WndInfoNum].CallBackName,CallBackNameLen)==0&&
116                    (buffer[i2+CallBackNameLen]==' '||buffer[i2+CallBackNameLen]=='\t'||buffer[i2+CallBackNameLen]=='(')){
117                    *pbAlways=1;
118                }
119            }
120        }
121    }
122    HeapDefaultFree(buffer);
123
124    return ppNames;
125}
126void SelectProcedureOfMessageCall(int WndInfoNum,char *ProcedureName,char *Parameter){
127    extern MDIINFO MdiInfo[MAX_WNDNUM];
128    extern PROJECTINFO ProjectInfo;
129    int i,i2,i3,WndNum;
130    char temporary[MAX_PATH],*pBuf;
131    HWND hChild;
132    POINT pos;
133
134    sprintf(temporary,"%s%s",ProjectInfo.dir,ProjectInfo.pWindowInfo[WndInfoNum].filepath);
135    hChild=OpenFileWithExtension(temporary);
136    if(!hChild) return;
137    WndNum=GetWndNum(hChild);
138
139    pBuf=MdiInfo[WndNum].pMdiTextEdit->buffer;
140
141    for(i=0;;i++){
142        if(pBuf[i]=='\0') break;
143        if((pBuf[i]=='\r'&&pBuf[i+1]=='\n'&&pBuf[i+2]!='\0')||i==0){
144            if(i) i2=i+2;
145            else i2=i;
146            while(pBuf[i2]>='0'&&pBuf[i2]<='9') i2++;
147            while(pBuf[i2]==' '||pBuf[i2]=='\t') i2++;
148            strncpy(temporary,pBuf+i2,3);
149            temporary[3]=0;
150            if(lstrcmpi(temporary,"Sub")==0&&(pBuf[i2+3]==' '||pBuf[i2+3]=='\t')){
151                pos.x=i2;
152                i2+=4;
153                while(pBuf[i2]==' '||pBuf[i2]=='\t') i2++;
154                for(i3=0;;i2++,i3++){
155                    if(!IsVariableChar(pBuf[i2])){
156                        temporary[i3]=0;
157                        break;
158                    }
159                    temporary[i3]=pBuf[i2];
160                }
161                if(lstrcmpi(temporary,ProcedureName)==0){
162                    for(;;i2++){
163                        if(pBuf[i2]=='\r'||pBuf[i2]=='\0'){
164                            if(pBuf[i2]=='\r'){
165                                if(pBuf[i2+1]!='\n') continue;
166                            }
167                            pos.y=i2;
168                            break;
169                        }
170                    }
171                    break;
172                }
173            }
174        }
175    }
176    if(pBuf[i]){
177        //プロシージャが見つかったとき
178        TextEdit_SetSel(WndNum,pos.x,pos.y);
179    }
180    else{
181        //プロシージャがないときは生成する
182
183        //挿入位置にキャレットを移動
184        TextEdit_SetSel(WndNum,i,i);
185
186        //挿入
187        sprintf(temporary,"\r\nSub %s(%s)",ProcedureName,Parameter);
188        i2=lstrlen(temporary);
189        lstrcat(temporary,"\r\n\r\nEnd Sub\r\n");
190        TextEdit_ReplaceUpdateUndoData(WndNum,temporary,1,1);
191
192        TextEdit_SetSel(WndNum,i+2,i+i2);
193    }
194    SetFocus(MdiInfo[WndNum].pMdiTextEdit->hEdit);
195}
196void InsertEventToList(HWND hList,int ItemNum,char *EventName,char *MessageName,char *OutLine){
197    LV_ITEM item;
198
199    item.mask=LVIF_TEXT;
200    item.pszText=EventName;
201    item.iItem=ItemNum;
202    item.iSubItem=0;
203    ListView_InsertItem(hList,&item);
204    item.pszText=MessageName;
205    item.iItem=ItemNum;
206    item.iSubItem=1;
207    ListView_SetItem(hList,&item);
208    item.pszText=OutLine;
209    item.iItem=ItemNum;
210    item.iSubItem=2;
211    ListView_SetItem(hList,&item);
212}
213BOOL GetEventProcedureNameFromListView(HWND hList,int WndNum,int WndInfoNum,char *EventName,char *Parameter,DWORD dwEventType){
214    extern PROJECTINFO ProjectInfo;
215    extern MDIINFO MdiInfo[MAX_WNDNUM];
216    int i,MaxCount;
217    char temporary[MAX_PATH];
218
219    MaxCount=ListView_GetItemCount(hList);
220    if(MdiInfo[WndNum].MdiRadInfo->SelectingItem[0]==SELECT_WINDOW){
221        if(dwEventType==EVENTTYPE_DEFAULT){
222            for(i=0;i<MaxCount;i++){
223                if(ListView_GetItemState(hList,i,LVIS_SELECTED)){
224                    ListView_GetItemText(hList,i,0,temporary,MAX_PATH);
225                    sprintf(EventName,"%s_%s",
226                        ProjectInfo.pWindowInfo[WndInfoNum].name,
227                        temporary);
228                    break;
229                }
230            }
231            if(i==MaxCount) return 0;
232
233            if(i==0) lstrcpy(Parameter,"state As Integer, minimized As Integer");
234            else if(i==1) lstrcpy(Parameter,"ByRef CreateStruct As CREATESTRUCT");
235            else if(i==2) Parameter[0]=0;
236            else if(i==3) lstrcpy(Parameter,"hDrop As HDROP");
237            else if(i==4) lstrcpy(Parameter,"nScrollCode As Long, nPos As Integer, hwndScrollBar As HWND");
238            else if(i==5) lstrcpy(Parameter,"KeyCode As Long, flags As Long");
239            else if(i==6) lstrcpy(Parameter,"KeyCode As Long, flags As Long");
240            else if(i==7) lstrcpy(Parameter,"KeyCode As Long, flags As Long");
241            else if(i==8) lstrcpy(Parameter,"flags As Long, x As Integer, y As Integer");
242            else if(i==9) lstrcpy(Parameter,"flags As Long, x As Integer, y As Integer");
243            else if(i==10) lstrcpy(Parameter,"flags As Long, x As Integer, y As Integer");
244            else if(i==11) lstrcpy(Parameter,"flags As Long, x As Integer, y As Integer");
245            else if(i==12) lstrcpy(Parameter,"flags As Long, x As Integer, y As Integer");
246            else if(i==13) lstrcpy(Parameter,"flags As Long, x As Integer, y As Integer");
247            else if(i==14) lstrcpy(Parameter,"flags As Long, x As Integer, y As Integer");
248            else if(i==15) lstrcpy(Parameter,"x As Integer, y As Integer");
249            else if(i==16) lstrcpy(Parameter,"ByRef nmHdr As NMHDR");
250            else if(i==17) lstrcpy(Parameter,"hDC As HDC");
251            else if(i==18) lstrcpy(Parameter,"ByRef cancel As Integer");
252            else if(i==19) lstrcpy(Parameter,"flags As Long, x As Integer, y As Integer");
253            else if(i==20) lstrcpy(Parameter,"flags As Long, x As Integer, y As Integer");
254            else if(i==21) lstrcpy(Parameter,"flags As Long, x As Integer, y As Integer");
255            else if(i==22) lstrcpy(Parameter,"SizeType As Long, cx As Integer, cy As Integer");
256            else if(i==23) Parameter[0]=0;
257            else if(i==24) lstrcpy(Parameter,"TimerID As DWord");
258            else if(i==25) lstrcpy(Parameter,"nScrollCode As Long, nPos As Integer, hwndScrollBar As HWND");
259        }
260        else if(dwEventType==EVENTTYPE_MENU){
261            for(i=0;i<MaxCount;i++){
262                if(ListView_GetItemState(hList,i,LVIS_SELECTED)){
263                    ListView_GetItemText(hList,i,0,temporary,MAX_PATH);
264                    sprintf(EventName,"%s_%s_MenuClick",
265                        ProjectInfo.pWindowInfo[WndInfoNum].name,
266                        temporary);
267                    break;
268                }
269            }
270            if(i==MaxCount) return 0;
271
272            Parameter[0]=0;
273        }
274        else if(dwEventType==EVENTTYPE_MMSYS){
275            for(i=0;i<MaxCount;i++){
276                if(ListView_GetItemState(hList,i,LVIS_SELECTED)){
277                    ListView_GetItemText(hList,i,0,temporary,MAX_PATH);
278                    sprintf(EventName,"%s_%s",
279                        ProjectInfo.pWindowInfo[WndInfoNum].name,
280                        temporary);
281                    break;
282                }
283            }
284            if(i==MaxCount) return 0;
285
286            if(i==0) lstrcpy(Parameter,"flags As Long, DevID As DWord");
287        }
288    }
289    else{
290        for(i=0;i<MaxCount;i++){
291            if(ListView_GetItemState(hList,i,LVIS_SELECTED)){
292                ListView_GetItemText(hList,i,0,temporary,MAX_PATH);
293                sprintf(EventName,"%s_%s_%s",
294                    ProjectInfo.pWindowInfo[WndInfoNum].name,
295                    ProjectInfo.pWindowInfo[WndInfoNum].pChildInfo[MdiInfo[WndNum].MdiRadInfo->SelectingItem[0]].IdName,
296                    temporary);
297                break;
298            }
299        }
300        if(i==MaxCount) return 0;
301
302        if(ProjectInfo.pWindowInfo[WndInfoNum].pChildInfo[MdiInfo[WndNum].MdiRadInfo->SelectingItem[0]].Control==CT_LISTVIEW){
303            //ListView
304            if(i==0) lstrcpy(Parameter,"ByRef nmListView As NMLISTVIEW");
305            else if(i==1) lstrcpy(Parameter,"ByRef nmListView As NMLISTVIEW");
306            else if(i==2) lstrcpy(Parameter,"ByRef nmHdr As NMHDR");
307            else if(i==3) lstrcpy(Parameter,"ByRef nmHdr As NMHDR");
308            else if(i==4) lstrcpy(Parameter,"ByRef nmListView As NMLISTVIEW");
309            else if(i==5) lstrcpy(Parameter,"ByRef nmListView As NMLISTVIEW");
310            else if(i==6) lstrcpy(Parameter,"ByRef nmHdr As NMHDR");
311            else if(i==7) lstrcpy(Parameter,"ByRef nmHdr As NMHDR");
312            else if(i==8) lstrcpy(Parameter,"ByRef nmListView As NMLISTVIEW");
313            else if(i==9) lstrcpy(Parameter,"ByRef nmLVDispInfo As NMLVDISPINFO");
314            else if(i==10) lstrcpy(Parameter,"ByRef nmListView As NMLISTVIEW");
315            else if(i==11) lstrcpy(Parameter,"ByRef nmListView As NMLISTVIEW");
316            else if(i==12) lstrcpy(Parameter,"ByRef nmListView As NMLISTVIEW");
317            else if(i==13) lstrcpy(Parameter,"ByRef nmListView As NMLISTVIEW");
318            else if(i==14) lstrcpy(Parameter,"ByRef nmLVDispInfo As NMLVDISPINFO");
319            else if(i==15) lstrcpy(Parameter,"ByRef nmLVDispInfo As NMLVDISPINFO");
320            else if(i==16) lstrcpy(Parameter,"ByRef nmListView As NMLISTVIEW");
321            else if(i==17) lstrcpy(Parameter,"ByRef nmListView As NMLISTVIEW");
322            else if(i==18) lstrcpy(Parameter,"ByRef nmListView As NMLISTVIEW");
323            else if(i==19) lstrcpy(Parameter,"ByRef nmLVKeyDown As NMLVKEYDOWN");
324            else if(i==20) lstrcpy(Parameter,"ByRef nmLVDispInfo As NMLVDISPINFO");
325        }
326        else if(ProjectInfo.pWindowInfo[WndInfoNum].pChildInfo[MdiInfo[WndNum].MdiRadInfo->SelectingItem[0]].Control==CT_PROGRESSBAR){
327            //ProgressBar
328            lstrcpy(Parameter,"ByRef nmHdr As NMHDR");
329        }
330        else if(ProjectInfo.pWindowInfo[WndInfoNum].pChildInfo[MdiInfo[WndNum].MdiRadInfo->SelectingItem[0]].Control==CT_TRACKBAR){
331            //TrackBar
332            lstrcpy(Parameter,"ByRef nmHdr As NMHDR");
333        }
334        else if(ProjectInfo.pWindowInfo[WndInfoNum].pChildInfo[MdiInfo[WndNum].MdiRadInfo->SelectingItem[0]].Control==CT_TREEVIEW){
335            //TreeView
336            if(0<=i&&i<=7) lstrcpy(Parameter,"ByRef nmHdr As NMHDR");
337            else lstrcpy(Parameter,"ByRef nmTreeView As NMTREEVIEW");
338        }
339        else if(ProjectInfo.pWindowInfo[WndInfoNum].pChildInfo[MdiInfo[WndNum].MdiRadInfo->SelectingItem[0]].Control==CT_UPDOWN){
340            //UpDown
341            if(i==0) lstrcpy(Parameter,"ByRef nmHdr As NMHDR");
342            else if(i==1) lstrcpy(Parameter,"ByRef nmUpDown As NMUPDOWN");
343        }
344        else Parameter[0]=0;
345    }
346
347    return 1;
348}
349int SetDefaultNotifyMessagesInList(HWND hList,int ClassID){
350    int i;
351    i=0;
352    InsertEventToList(hList,i++,"Click","NM_CLICK","ｺﾝﾄﾛｰﾙ内でﾏｳｽの左ﾎﾞﾀﾝがｸﾘｯｸされた時");
353    InsertEventToList(hList,i++,"DblClick","NM_DBLCLK","ｺﾝﾄﾛｰﾙ内でﾏｳｽの左ﾎﾞﾀﾝがﾀﾞﾌﾞﾙ ｸﾘｯｸされた時");
354    InsertEventToList(hList,i++,"KillFocus","NM_KILLFOCUS","入力ﾌｫｰｶｽを失った時");
355    InsertEventToList(hList,i++,"OutOfMemory","NM_OUTOFMEMORY","ﾒﾓﾘ不足でｺﾝﾄﾛｰﾙの動作が完了できない時");
356    InsertEventToList(hList,i++,"RClick","NM_RCLICK","ｺﾝﾄﾛｰﾙ内でﾏｳｽの右ﾎﾞﾀﾝがｸﾘｯｸされた時");
357    InsertEventToList(hList,i++,"RDblClick","NM_RDBLCLK","ｺﾝﾄﾛｰﾙ内でﾏｳｽの右ﾎﾞﾀﾝがﾀﾞﾌﾞﾙ ｸﾘｯｸされた時");
358    InsertEventToList(hList,i++,"Return","NM_RETURN","ｺﾝﾄﾛｰﾙに入力ﾌｫｰｶｽがあるときにEnterｷｰが押された時");
359    InsertEventToList(hList,i++,"SetFocus","NM_SETFOCUS","入力ﾌｫｰｶｽを取得した時");
360    if(ClassID==CT_LISTVIEW){
361        InsertEventToList(hList,i++,"BeginDrag","LVN_BEGINDRAG","ﾏｳｽの左ﾎﾞﾀﾝでﾄﾞﾗｯｸﾞ&ﾄﾞﾛｯﾌﾟを始める時");
362        InsertEventToList(hList,i++,"BeginLabelEdit","LVN_BEGINLABELEDIT","ｱｲﾃﾑのﾗﾍﾞﾙの編集が開始された時");
363        InsertEventToList(hList,i++,"BeginRDrag","LVN_BEGINRDRAG","ﾏｳｽの右ﾎﾞﾀﾝでﾄﾞﾗｯｸﾞ&ﾄﾞﾛｯﾌﾟを始める時");
364        InsertEventToList(hList,i++,"ColumnClick","LVN_COLUMNCLICK","ｶﾗﾑの1つがｸﾘｯｸされた時");
365        InsertEventToList(hList,i++,"DeleteAllItems","LVN_DELETEALLITEMS","ﾋﾞｭｰ内のすべてのｱｲﾃﾑが削除された時");
366        InsertEventToList(hList,i++,"DeleteItem","LVN_DELETEITEM","ﾋﾞｭｰ内のｱｲﾃﾑが削除された時");
367        InsertEventToList(hList,i++,"EndLabelEdit","LVN_ENDLABELEDIT","ｱｲﾃﾑのﾗﾍﾞﾙの編集が終了した時");
368        InsertEventToList(hList,i++,"GetDispInfo","LVN_GETDISPINFO","親ｳｨﾝﾄﾞｳがﾃﾞｨｽﾌﾟﾚｲに関する情報を供給した時");
369        InsertEventToList(hList,i++,"InsertItem","LVN_INSERTITEM","ﾋﾞｭｰ内にｱｲﾃﾑが挿入された時");
370        InsertEventToList(hList,i++,"ItemChanged","LVN_ITEMCHANGED","ﾋﾞｭｰ内のｱｲﾃﾑが変更された時");
371        InsertEventToList(hList,i++,"ItemChanging","LVN_ITEMCHANGING","ﾋﾞｭｰ内のｱｲﾃﾑを変更する時");
372        InsertEventToList(hList,i++,"KeyDown","LVN_KEYDOWN","ｷｰが押された時");
373        InsertEventToList(hList,i++,"SetDispInfo","LVN_SETDISPINFO","親ｳｨﾝﾄﾞｳがｱｲﾃﾑに対して情報を更新する必要がある時");
374    }
375    else if(ClassID==CT_TREEVIEW){
376        //未完成
377    }
378    return i;
379}
380void SetMenuEventToList(HWND hList,MENU_INFO *pMenuInfo,int *pListNum,int *pPos){
381    int i;
382    for(i=0;i<pMenuInfo->NumberOfMenu;i++){
383        if((!pMenuInfo->pMenuInfo[i].pMenuInfo)&&pMenuInfo->pMenuInfo[i].type==MFT_STRING)
384            InsertEventToList(hList,(*pListNum)++,pMenuInfo->pMenuInfo[i].IdName,"WM_COMMAND",pMenuInfo->pMenuInfo[i].caption);
385        (*pPos)++;
386        if(pMenuInfo->pMenuInfo[i].pMenuInfo)
387            SetMenuEventToList(hList,&pMenuInfo->pMenuInfo[i],pListNum,pPos);
388    }
389}
390void SetEventToList(HWND hDlg,DWORD dwEventType){
391    extern MDIINFO MdiInfo[MAX_WNDNUM];
392    extern PROJECTINFO ProjectInfo;
393    int i,i2,WndNum,WndInfoNum;
394    HWND hList;
395
396    hList=GetDlgItem(hDlg,IDC_EVENTLIST);
397    ListView_DeleteAllItems(hList);
398    SetDlgItemText(hDlg,IDC_PROCEDURENAME,"");
399
400    WndNum=GetWndNum(GetWindow(hClient,GW_CHILD));
401    WndInfoNum=GetWndInfoNum(MdiInfo[WndNum].path);
402    i=0;
403    if(MdiInfo[WndNum].MdiRadInfo->SelectingItem[0]==SELECT_WINDOW){
404        EnableWindow(GetDlgItem(hDlg,IDC_DEFAULT),1);
405        EnableWindow(GetDlgItem(hDlg,IDC_MENU),1);
406        EnableWindow(GetDlgItem(hDlg,IDC_MMSYS),1);
407        if(dwEventType==EVENTTYPE_DEFAULT){
408            SendDlgItemMessage(hDlg,IDC_DEFAULT,BM_SETCHECK,BST_CHECKED,0);
409            InsertEventToList(hList,i++,"Activate","WM_ACTIVATE","ｳｨﾝﾄﾞｳがｱｸﾃｨﾌﾞ、または非ｱｸﾃｨﾌﾞになった時");
410            InsertEventToList(hList,i++,"Create","WM_CREATE","ｳｨﾝﾄﾞｳ作成時");
411            InsertEventToList(hList,i++,"Destroy","WM_DESTROY","ｳｨﾝﾄﾞｳ破棄時");
412            InsertEventToList(hList,i++,"DropFiles","WM_DROPFILES","ｳｨﾝﾄﾞｳにﾌｧｲﾙがﾄﾞﾛｯﾌﾟされた時");
413            InsertEventToList(hList,i++,"HScroll","WM_HSCROLL","水平ｽｸﾛｰﾙ ﾊﾞｰ・ﾄﾗｯｸ ﾊﾞｰが移動した時");
414            InsertEventToList(hList,i++,"KeyDown","WM_KEYDOWN","ｷｰが押された時");
415            InsertEventToList(hList,i++,"KeyPress","WM_CHAR","ANSI文字ｷｰを押して離した時");
416            InsertEventToList(hList,i++,"KeyUp","WM_KEYUP","ｷｰが離された時");
417            InsertEventToList(hList,i++,"LButtonDblClick","WM_LBUTTONDBLCLK","ﾏｳｽの左ﾎﾞﾀﾝがﾀﾞﾌﾞﾙ ｸﾘｯｸされた時");
418            InsertEventToList(hList,i++,"LButtonDown","WM_LBUTTONDOWN","ﾏｳｽの左ﾎﾞﾀﾝが押された時");
419            InsertEventToList(hList,i++,"LButtonUp","WM_LBUTTONUP","ﾏｳｽの左ﾎﾞﾀﾝが離された時");
420            InsertEventToList(hList,i++,"MButtonDblClick","WM_MBUTTONDBLCLK","ﾏｳｽの中央ﾎﾞﾀﾝがﾀﾞﾌﾞﾙ ｸﾘｯｸされた時");
421            InsertEventToList(hList,i++,"MButtonDown","WM_MBUTTONDOWN","ﾏｳｽの中央ﾎﾞﾀﾝが押された時");
422            InsertEventToList(hList,i++,"MButtonUp","WM_MBUTTONUP","ﾏｳｽの中央ﾎﾞﾀﾝが離された時");
423            InsertEventToList(hList,i++,"MouseMove","WM_MOUSEMOVE","ﾏｳｽが移動した時");
424            InsertEventToList(hList,i++,"Move","WM_MOVE","ｳｨﾝﾄﾞｳが移動した時");
425            InsertEventToList(hList,i++,"Notify","WM_NOTIFY","ｺﾓﾝｺﾝﾄﾛｰﾙからﾒｯｾｰｼﾞが通知された時");
426            InsertEventToList(hList,i++,"Paint","WM_PAINT","再描画要求が出された時");
427            InsertEventToList(hList,i++,"QueryClose","WM_CLOSE","ｳｨﾝﾄﾞｳの終了ﾎﾞﾀﾝが押された時");
428            InsertEventToList(hList,i++,"RButtonDblClick","WM_RBUTTONDBLCLK","ﾏｳｽの右ﾎﾞﾀﾝがﾀﾞﾌﾞﾙ ｸﾘｯｸされた時");
429            InsertEventToList(hList,i++,"RButtonDown","WM_RBUTTONDOWN","ﾏｳｽの右ﾎﾞﾀﾝが押された時");
430            InsertEventToList(hList,i++,"RButtonUp","WM_RBUTTONUP","ﾏｳｽの右ﾎﾞﾀﾝが離された時");
431            InsertEventToList(hList,i++,"Resize","WM_SIZE","ｳｨﾝﾄﾞｳの大きさが変更された時");
432            InsertEventToList(hList,i++,"SetFocus","WM_SETFOCUS","ｷｰﾎﾞｰﾄﾞ ﾌｫｰｶｽを受け取った時");
433            InsertEventToList(hList,i++,"Timer","WM_TIMER","設定したﾀｲﾏｰのﾀｲﾑ ｱｳﾄ時");
434            InsertEventToList(hList,i++,"VScroll","WM_VSCROLL","垂直ｽｸﾛｰﾙ ﾊﾞｰ・ﾄﾗｯｸ ﾊﾞｰが移動した時");
435        }
436        else if(dwEventType==EVENTTYPE_MENU){
437            //メニュー イベント
438            SendDlgItemMessage(hDlg,IDC_MENU,BM_SETCHECK,BST_CHECKED,0);
439            if(ProjectInfo.pWindowInfo[WndInfoNum].MenuID){
440                int MenuInfoNum;
441                MenuInfoNum=GetMenuInfoNum(ProjectInfo.pWindowInfo[WndInfoNum].MenuID);
442                i=0;
443                i2=0;
444
445                SetMenuEventToList(hList,&ProjectInfo.pMenuInfo[MenuInfoNum],&i,&i2);
446            }
447        }
448        else if(dwEventType==EVENTTYPE_MMSYS){
449            SendDlgItemMessage(hDlg,IDC_MMSYS,BM_SETCHECK,BST_CHECKED,0);
450            InsertEventToList(hList,i++,"MciNotify","MM_MCINOTIFY","MCIｺﾏﾝﾄﾞが完了したり異常終了した場合");
451        }
452    }
453    else{
454        EnableWindow(GetDlgItem(hDlg,IDC_DEFAULT),1);
455        EnableWindow(GetDlgItem(hDlg,IDC_MENU),0);
456        EnableWindow(GetDlgItem(hDlg,IDC_MMSYS),0);
457        SendDlgItemMessage(hDlg,IDC_DEFAULT,BM_SETCHECK,BST_CHECKED,0);
458        if(ProjectInfo.pWindowInfo[WndInfoNum].pChildInfo[MdiInfo[WndNum].MdiRadInfo->SelectingItem[0]].Control==CT_BUTTON){
459            //Button
460            InsertEventToList(hList,i++,"Click","BN_CLICKED","ﾎﾞﾀﾝがｸﾘｯｸされた時");
461            InsertEventToList(hList,i++,"DblClick","BN_DBLCLK","ﾎﾞﾀﾝがﾀﾞﾌﾞﾙ ｸﾘｯｸされた時");
462        }
463        else if(ProjectInfo.pWindowInfo[WndInfoNum].pChildInfo[MdiInfo[WndNum].MdiRadInfo->SelectingItem[0]].Control==CT_CHECKBOX){
464            //CheckBox
465            InsertEventToList(hList,i++,"Click","BN_CLICKED","ﾁｪｯｸ ﾎﾞｯｸｽがｸﾘｯｸされた時");
466            InsertEventToList(hList,i++,"DblClick","BN_DBLCLK","ﾁｪｯｸ ﾎﾞｯｸｽがﾀﾞﾌﾞﾙ ｸﾘｯｸされた時");
467        }
468        else if(ProjectInfo.pWindowInfo[WndInfoNum].pChildInfo[MdiInfo[WndNum].MdiRadInfo->SelectingItem[0]].Control==CT_COMBOBOX){
469            //ComboBox
470            InsertEventToList(hList,i++,"CloseUp","CBN_CLOSEUP","ﾘｽﾄ ﾎﾞｯｸｽが非表示になる時");
471            InsertEventToList(hList,i++,"DblClick","CBN_DBLCLK","ﾘｽﾄ内のｱｲﾃﾑがﾀﾞﾌﾞﾙ ｸﾘｯｸされた時");
472            InsertEventToList(hList,i++,"DropDown","CBN_DROPDOWN","ﾘｽﾄ ﾎﾞｯｸｽがﾄﾞﾛｯﾌﾟ ﾀﾞｳﾝされる時");
473            InsertEventToList(hList,i++,"EditChange","CBN_EDITCHANGE","ｴﾃﾞｨｯﾄ ﾎﾞｯｸｽの内容が変化した時（後処理）");
474            InsertEventToList(hList,i++,"EditUpdate","CBN_EDITUPDATE","ﾘｽﾄ ﾎﾞｯｸｽが非表示になった時");
475            InsertEventToList(hList,i++,"ErrSpace","CBN_ERRSPACE","ﾒﾓﾘ割り当てに失敗した時");
476            InsertEventToList(hList,i++,"KillFocus","CBN_KILLFOCUS","入力ﾌｫｰｶｽを失った時");
477            InsertEventToList(hList,i++,"SelChange","CBN_SELCHANGE","ﾘｽﾄ内の選択が変更された時");
478            InsertEventToList(hList,i++,"SelEndCancel","CBN_SELENDCANCEL","ｺﾝﾎﾞ ﾎﾞｯｸｽの選択を取り消した時");
479            InsertEventToList(hList,i++,"SelEndOk","CBN_SELENDOK","選択した項目が有効である時");
480            InsertEventToList(hList,i++,"SetFocus","CBN_SETFOCUS","入力ﾌｫｰｶｽを取得した時");
481        }
482        else if(ProjectInfo.pWindowInfo[WndInfoNum].pChildInfo[MdiInfo[WndNum].MdiRadInfo->SelectingItem[0]].Control==CT_EDIT){
483            //Edit
484            InsertEventToList(hList,i++,"Change","EN_CHANGE","ｴﾃﾞｨｯﾄ ﾎﾞｯｸｽの内容が変更された時（後処理）");
485            InsertEventToList(hList,i++,"ErrSpace","EN_ERRSPACE","ﾒﾓﾘ割り当てに失敗した時");
486            InsertEventToList(hList,i++,"HScroll","EN_HSCROLL","水平ｽｸﾛｰﾙを行った時");
487            InsertEventToList(hList,i++,"KillFocus","EN_KILLFOCUS","入力ﾌｫｰｶｽを失った時");
488            InsertEventToList(hList,i++,"MaxText","EN_MAXTEXT","文字数が上限を超えた時");
489            InsertEventToList(hList,i++,"SetFocus","EN_SETFOCUS","入力ﾌｫｰｶｽを取得した時");
490            InsertEventToList(hList,i++,"Update","EN_UPDATE","ｴﾃﾞｨｯﾄ ﾎﾞｯｸｽの内容が変更される時（前処理）");
491            InsertEventToList(hList,i++,"VScroll","EN_VSCROLL","垂直ｽｸﾛｰﾙを行った時");
492        }
493        else if(ProjectInfo.pWindowInfo[WndInfoNum].pChildInfo[MdiInfo[WndNum].MdiRadInfo->SelectingItem[0]].Control==CT_IMAGEBOX){
494            //ImageBox
495            InsertEventToList(hList,i++,"Click","STN_CLICKED","ｲﾒｰｼﾞ ﾎﾞｯｸｽがｸﾘｯｸされた時");
496            InsertEventToList(hList,i++,"DblClick","STN_DBLCLK","ｲﾒｰｼﾞ ﾎﾞｯｸｽがﾀﾞﾌﾞﾙ ｸﾘｯｸされた時");
497        }
498        else if(ProjectInfo.pWindowInfo[WndInfoNum].pChildInfo[MdiInfo[WndNum].MdiRadInfo->SelectingItem[0]].Control==CT_LISTBOX){
499            //ListBox
500            InsertEventToList(hList,i++,"SelChange","LBN_SELCHANGE","ﾘｽﾄ内の選択が変更された時");
501            InsertEventToList(hList,i++,"DblClick","LBN_DBLCLK","ﾘｽﾄ内の文字列がﾀﾞﾌﾞﾙ ｸﾘｯｸされた時");
502            InsertEventToList(hList,i++,"ErrSpace","LBN_ERRSPACE","ﾘｽﾄのﾒﾓﾘ割り当てに失敗した時");
503            InsertEventToList(hList,i++,"KillFocus","LBN_KILLFOCUS","入力ﾌｫｰｶｽを失った時");
504            InsertEventToList(hList,i++,"SelCancel","LBN_SELCANCEL","ﾘｽﾄ内の選択が取り消された時");
505            InsertEventToList(hList,i++,"SetFocus","LBN_SETFOCUS","入力ﾌｫｰｶｽを取得した時");
506        }
507        else if(ProjectInfo.pWindowInfo[WndInfoNum].pChildInfo[MdiInfo[WndNum].MdiRadInfo->SelectingItem[0]].Control==CT_LISTVIEW){
508            //ListView
509            i=SetDefaultNotifyMessagesInList(hList,CT_LISTVIEW);
510        }
511        else if(ProjectInfo.pWindowInfo[WndInfoNum].pChildInfo[MdiInfo[WndNum].MdiRadInfo->SelectingItem[0]].Control==CT_PROGRESSBAR){
512            //ProgressBar
513            InsertEventToList(hList,i++,"OutOfMemory","NM_OUTOFMEMORY","ﾒﾓﾘ不足でｺﾝﾄﾛｰﾙの動作が完了できない時");
514        }
515        else if(ProjectInfo.pWindowInfo[WndInfoNum].pChildInfo[MdiInfo[WndNum].MdiRadInfo->SelectingItem[0]].Control==CT_RADIOBUTTON){
516            //RadioButton
517            InsertEventToList(hList,i++,"Click","BN_CLICKED","ﾗｼﾞｵ ﾎﾞﾀﾝがｸﾘｯｸされた時");
518            InsertEventToList(hList,i++,"DblClick","BN_DBLCLK","ﾗｼﾞｵ ﾎﾞﾀﾝがﾀﾞﾌﾞﾙ ｸﾘｯｸされた時");
519        }
520        else if(ProjectInfo.pWindowInfo[WndInfoNum].pChildInfo[MdiInfo[WndNum].MdiRadInfo->SelectingItem[0]].Control==CT_STATIC){
521            //Static
522            InsertEventToList(hList,i++,"Click","STN_CLICKED","ｽﾀﾃｨｯｸ ﾃｷｽﾄがｸﾘｯｸされた時");
523            InsertEventToList(hList,i++,"DblClick","STN_DBLCLK","ｽﾀﾃｨｯｸ ﾃｷｽﾄがﾀﾞﾌﾞﾙ ｸﾘｯｸされた時");
524        }
525        else if(ProjectInfo.pWindowInfo[WndInfoNum].pChildInfo[MdiInfo[WndNum].MdiRadInfo->SelectingItem[0]].Control==CT_TRACKBAR){
526            //TrackBar
527            InsertEventToList(hList,i++,"OutOfMemory","NM_OUTOFMEMORY","ﾒﾓﾘ不足でｺﾝﾄﾛｰﾙの動作が完了できない時");
528            InsertEventToList(hList,i++,"ReleasedCapture","NM_RELEASEDCAPTURE ","ﾏｳｽ ｷｬﾌﾟﾁｬ ﾘﾘｰｽの通知");
529            InsertEventToList(hList,i++,"CustomDraw","NM_CUSTOMDRAW ","ｶｽﾀﾑ描画操作の通知");
530        }
531        else if(ProjectInfo.pWindowInfo[WndInfoNum].pChildInfo[MdiInfo[WndNum].MdiRadInfo->SelectingItem[0]].Control==CT_TREEVIEW){
532            //TreeView
533            i=SetDefaultNotifyMessagesInList(hList,CT_TREEVIEW);
534        }
535        else if(ProjectInfo.pWindowInfo[WndInfoNum].pChildInfo[MdiInfo[WndNum].MdiRadInfo->SelectingItem[0]].Control==CT_UPDOWN){
536            //UpDown
537            InsertEventToList(hList,i++,"OutOfMemory","NM_OUTOFMEMORY","ﾒﾓﾘ不足でｺﾝﾄﾛｰﾙの動作が完了できない時");
538            InsertEventToList(hList,i++,"Deltapos","UDN_DELTAPOS","ｺﾝﾄﾛｰﾙの位置が変えられようとしている時");
539        }
540    }
541}
542void Popup_SelectMenu(HWND hDlg){
543    extern PROJECTINFO ProjectInfo;
544    int i;
545    POINT pos;
546    HMENU hMenu;
547
548    if(ProjectInfo.NumberOfMenu==0) return;
549
550    GetCursorPos(&pos);
551
552    hMenu=CreatePopupMenu();
553
554    MENUITEMINFO mii;
555    mii.cbSize=sizeof(MENUITEMINFO);
556    for(i=0;i<ProjectInfo.NumberOfMenu;i++){
557        if(NowMenuNum==i){
558            mii.fMask=MIIM_TYPE|MIIM_ID|MIIM_STATE;
559            mii.fState=MFS_CHECKED;
560        }
561        else mii.fMask=MIIM_TYPE|MIIM_ID;
562        mii.fType=MFT_STRING;
563        mii.wID=100+i;
564        mii.dwTypeData=ProjectInfo.pMenuInfo[i].IdName;
565        InsertMenuItem(hMenu,i,1,&mii);
566    }
567
568    extern HMENU hRadMenuBase;
569    TrackPopupMenu(hMenu,TPM_LEFTALIGN,pos.x,pos.y,0,hDlg,0);
570
571    DestroyMenu(hMenu);
572}
573
574WNDPROC OldEventListViewProc;
575LRESULT CALLBACK EventListViewProc(HWND hwnd,UINT message,WPARAM wParam,LPARAM lParam){
576    if(message==WM_RBUTTONDOWN){
577        if(SendDlgItemMessage(GetParent(hwnd),IDC_MENU,BM_GETCHECK,0,0))
578            Popup_SelectMenu(GetParent(hwnd));
579        return 0;
580    }
581    return CallWindowProc(OldEventListViewProc,hwnd,message,wParam,lParam);
582}
583BOOL CALLBACK DlgEventCode(HWND hwnd,UINT message,WPARAM wParam,LPARAM lParam){
584    extern MDIINFO MdiInfo[MAX_WNDNUM];
585    extern PROJECTINFO ProjectInfo;
586    int WndNum,WndInfoNum,i,i2;
587    char temporary[MAX_PATH],temp2[MAX_PATH];
588    HWND hList;
589    DWORD dwStyle;
590    RECT rect;
591    LV_COLUMN ListView_Column;
592
593    static DWORD dwEventType;
594
595    if(message==WM_COMMAND&&100<=wParam&&wParam<200){
596        hList=GetDlgItem(hwnd,IDC_EVENTLIST);
597        WndNum=GetWndNum(GetWindow(hClient,GW_CHILD));
598        WndInfoNum=GetWndInfoNum(MdiInfo[WndNum].path);
599
600        ListView_DeleteAllItems(hList);
601        SetDlgItemText(hwnd,IDC_PROCEDURENAME,"");
602        i=0;
603        i2=0;
604
605        NowMenuNum=wParam-100;
606        SetMenuEventToList(hList,&ProjectInfo.pMenuInfo[wParam-100],&i,&i2);
607    }
608
609    switch(message){
610        case WM_INITDIALOG:
611            SetPosCenter(hwnd);
612            SetFocus(GetDlgItem(hwnd,IDC_EVENTLIST));
613
614            hList=GetDlgItem(hwnd,IDC_EVENTLIST);
615            GetClientRect(hList,&rect);
616            dwStyle=ListView_GetExtendedListViewStyle(hList);
617            dwStyle|=LVS_EX_FULLROWSELECT;
618            ListView_SetExtendedListViewStyle(hList,dwStyle);
619
620            ListView_Column.mask=LVCF_FMT | LVCF_WIDTH | LVCF_TEXT | LVCF_SUBITEM;
621            ListView_Column.fmt=LVCFMT_LEFT;
622
623            ListView_Column.cx=100;
624            ListView_Column.pszText="イベント";
625            ListView_Column.iSubItem=0;
626            ListView_InsertColumn(hList,0,&ListView_Column);
627
628            ListView_Column.cx=120;
629            ListView_Column.pszText="対応メッセージ";
630            ListView_Column.iSubItem=1;
631            ListView_InsertColumn(hList,1,&ListView_Column);
632
633            ListView_Column.cx=rect.right-240;
634            ListView_Column.pszText="概要";
635            ListView_Column.iSubItem=2;
636            ListView_InsertColumn(hList,2,&ListView_Column);
637
638            dwEventType=lParam;
639            SetEventToList(hwnd,dwEventType);
640            EnableWindow(GetDlgItem(hwnd,IDOK),0);
641
642            OldEventListViewProc=(WNDPROC)GetWindowLongPtr(GetDlgItem(hwnd,IDC_EVENTLIST),GWLP_WNDPROC);
643            SetWindowLongPtr(GetDlgItem(hwnd,IDC_EVENTLIST),GWLP_WNDPROC,(long)EventListViewProc);
644
645            WndNum=GetWndNum(GetWindow(hClient,GW_CHILD));
646            WndInfoNum=GetWndInfoNum(MdiInfo[WndNum].path);
647            NowMenuNum=GetMenuInfoNum(ProjectInfo.pWindowInfo[WndInfoNum].MenuID);
648            break;
649        case WM_COMMAND:
650            switch(LOWORD(wParam)){
651                case IDC_DEFAULT:
652                    dwEventType=EVENTTYPE_DEFAULT;
653                    SetEventToList(hwnd,dwEventType);
654                    EnableWindow(GetDlgItem(hwnd,IDOK),0);
655                    break;
656                case IDC_MENU:
657                    dwEventType=EVENTTYPE_MENU;
658                    SetEventToList(hwnd,dwEventType);
659                    EnableWindow(GetDlgItem(hwnd,IDOK),0);
660
661                    //「対象メニュー」選択メニューを表示
662                    Popup_SelectMenu(hwnd);
663                    break;
664                case IDC_MMSYS:
665                    dwEventType=EVENTTYPE_MMSYS;
666                    SetEventToList(hwnd,dwEventType);
667                    EnableWindow(GetDlgItem(hwnd,IDOK),0);
668                    break;
669                case IDOK:
670                    hList=GetDlgItem(hwnd,IDC_EVENTLIST);
671                    WndNum=GetWndNum(GetWindow(hClient,GW_CHILD));
672                    WndInfoNum=GetWndInfoNum(MdiInfo[WndNum].path);
673                    if(GetEventProcedureNameFromListView(hList,WndNum,WndInfoNum,temporary,temp2,dwEventType)){
674                        SelectProcedureOfMessageCall(WndInfoNum,temporary,temp2);
675                        EndDialog(hwnd,0);
676                    }
677                    return 1;
678                case IDCANCEL:
679                    EndDialog(hwnd,0);
680                    return 1;
681            }
682            break;
683        case WM_NOTIFY:
684            NMLISTVIEW *nmListView;
685            nmListView=(NMLISTVIEW *)lParam;
686            if(nmListView->hdr.idFrom==IDC_EVENTLIST){
687                if(nmListView->hdr.code==LVN_ITEMCHANGED){
688                    hList=GetDlgItem(hwnd,IDC_EVENTLIST);
689                    WndNum=GetWndNum(GetWindow(hClient,GW_CHILD));
690                    WndInfoNum=GetWndInfoNum(MdiInfo[WndNum].path);
691                    if(GetEventProcedureNameFromListView(hList,WndNum,WndInfoNum,temporary,temp2,dwEventType)){
692                        sprintf(temporary+lstrlen(temporary),"(%s)",temp2);
693                        EnableWindow(GetDlgItem(hwnd,IDOK),1);
694                    }
695                    else{
696                        temporary[0]=0;
697                        EnableWindow(GetDlgItem(hwnd,IDOK),0);
698                    }
699                    SetDlgItemText(hwnd,IDC_PROCEDURENAME,temporary);
700                    return 1;
701                }
702                else if(nmListView->hdr.code==NM_DBLCLK)
703                    SendMessage(hwnd,WM_COMMAND,IDOK,0);
704            }               
705            break;
706    }
707    return 0;
708}
Note: See TracBrowser for help on using the repository browser.