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

Last change on this file since 681 was 629, checked in by dai_9181, 16 years ago

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