source: dev/trunk/ab5.0/abdev/abdev/WindowControl.cpp@ 481

Last change on this file since 481 was 477, checked in by dai_9181, 16 years ago

構成管理を大幅に改良。
File size: 82.7 KB
Line 
1#include "stdafx.h"
2
3#include "Common.h"
4
5using namespace ActiveBasic::IDE;
6
7#if defined(JPN)
8//日本語
9#include "pj_msg_jpn.h"
10#else
11//英語
12#include "pj_msg_eng.h"
13#endif
14
15int GetWndInfoNum(char *name){
16 extern PROJECTINFO ProjectInfo;
17 int i;
18 for(i=0;i<ProjectInfo.NumberOfWindows;i++){
19 if(lstrcmpi(name,ProjectInfo.pWindowInfo[i].name)==0) return i;
20 }
21 return -1;
22}
23void ChangeDivisionToOrSign(char *CopyBuffer,const char *ReadBuffer){
24 int i,i2;
25 for(i=0,i2=0;;i++,i2++){
26 if(ReadBuffer[i]=='|'){
27 CopyBuffer[i2]=0;
28 lstrcpy(CopyBuffer+i2," or ");
29 i2+=3;
30 continue;
31 }
32 CopyBuffer[i2]=ReadBuffer[i];
33 if(ReadBuffer[i]=='\0') break;
34 }
35}
36void ChangeOrSignToDivision(char *CopyBuffer,const char *ReadBuffer){
37 int i,i2,IsStr;
38 for(i=0,i2=0,IsStr=0;;i++,i2++){
39 if(ReadBuffer[i]=='\"') IsStr^=1;
40 if(ReadBuffer[i]=='\0'){
41 CopyBuffer[i2]=0;
42 break;
43 }
44 if(ReadBuffer[i+3]=='\0'){
45 memcpy(CopyBuffer+i2,ReadBuffer+i,3);
46 CopyBuffer[i2+3]=0;
47 break;
48 }
49 if((ReadBuffer[i]==' '||ReadBuffer[i]=='\t')&&
50 (ReadBuffer[i+1]=='O'||ReadBuffer[i+1]=='o')&&(ReadBuffer[i+2]=='R'||ReadBuffer[i+2]=='r')&&
51 (ReadBuffer[i+3]==' '||ReadBuffer[i+3]=='\t')&&IsStr==0){
52 CopyBuffer[i2]='|';
53 i+=3;
54 continue;
55 }
56 CopyBuffer[i2]=ReadBuffer[i];
57 }
58}
59
60HGLOBAL Rad_GetChildInfoClipboardData(int WndNum,int WndInfoNum){
61 //CHILDINFO構造体をクリップボード用データ（pByteが示すバッファ）に変換する
62 extern PROJECTINFO ProjectInfo;
63 extern MDIINFO MdiInfo[MAX_WNDNUM];
64 HGLOBAL hGlobal;
65 BYTE *pByte;
66 int i2,i3,MemSize;
67 CHILDINFO *pChildInfo;
68
69 for(i3=0;;i3++){
70 if(MdiInfo[WndNum].MdiRadInfo->SelectingItem[i3]==-1) break;
71 }
72
73
74 hGlobal=GlobalAlloc(GMEM_MOVEABLE,sizeof(int));
75 pByte=(BYTE *)GlobalLock(hGlobal);
76 *((int *)pByte)=i3;
77 GlobalUnlock(hGlobal);
78 i2=sizeof(int);
79
80 MemSize=i2;
81
82 for(i3--;i3>=0;i3--){
83 pChildInfo=&ProjectInfo.pWindowInfo[WndInfoNum].pChildInfo[MdiInfo[WndNum].MdiRadInfo->SelectingItem[i3]];
84
85 MemSize+=lstrlen(pChildInfo->IdName)+1+
86 sizeof(POINT)+
87 sizeof(SIZE)+
88 lstrlen(pChildInfo->caption)+1+
89 sizeof(DWORD)+
90 sizeof(DWORD)+
91 sizeof(int)+
92 sizeof(int)+
93 lstrlen(pChildInfo->ImageCtrlInfo.path)+1;
94
95 hGlobal=GlobalReAlloc(hGlobal,MemSize,0);
96 pByte=(BYTE *)GlobalLock(hGlobal);
97
98 lstrcpy((char *)pByte+i2,pChildInfo->IdName);
99 i2+=lstrlen(pChildInfo->IdName)+1;
100
101 memcpy(pByte+i2,&pChildInfo->pos,sizeof(POINT));
102 i2+=sizeof(POINT);
103
104 memcpy(pByte+i2,&pChildInfo->size,sizeof(SIZE));
105 i2+=sizeof(SIZE);
106
107 lstrcpy((char *)pByte+i2,pChildInfo->caption);
108 i2+=lstrlen(pChildInfo->caption)+1;
109
110 memcpy(pByte+i2,&pChildInfo->style,sizeof(DWORD));
111 i2+=sizeof(DWORD);
112
113 memcpy(pByte+i2,&pChildInfo->ExStyle,sizeof(DWORD));
114 i2+=sizeof(DWORD);
115
116 memcpy(pByte+i2,&pChildInfo->Control,sizeof(int));
117 i2+=sizeof(int);
118
119 memcpy(pByte+i2,&pChildInfo->ImageCtrlInfo.type,sizeof(int));
120 i2+=sizeof(int);
121
122 if(!pChildInfo->ImageCtrlInfo.path){
123 lstrcpy((char *)pByte+i2,"");
124 i2++;
125 }
126 else{
127 lstrcpy((char *)pByte+i2,pChildInfo->ImageCtrlInfo.path);
128 i2+=lstrlen(pChildInfo->ImageCtrlInfo.path)+1;
129 }
130
131 GlobalUnlock(hGlobal);
132 }
133
134 return hGlobal;
135}
136void Rad_PasteChildInfoClipboardData(int WndNum,HGLOBAL hGlobal){
137 //hGlobalに格納されているクリップボードデータをRAD画面に挿入する
138 extern MDIINFO MdiInfo[MAX_WNDNUM];
139 BYTE *pByte;
140 int i2,i3,WndInfoNum;
141 CHILDINFO ChildInfo;
142 char temporary[255];
143
144 for(i2=1;i2<MAX_RAD_SELITEM;i2++) MdiInfo[WndNum].MdiRadInfo->SelectingItem[i2]=-1;
145
146 WndInfoNum=GetWndInfoNum(MdiInfo[WndNum].path);
147 pByte=(BYTE *)GlobalLock(hGlobal);
148 i3=*((int *)pByte);
149 i2=sizeof(int);
150
151 for(i3--;i3>=0;i3--){
152 //IdNameメンバは変更される可能性がある
153 ChildInfo.IdName=(char *)temporary;
154 lstrcpy(ChildInfo.IdName,(char *)pByte+i2);
155 i2+=lstrlen(ChildInfo.IdName)+1;
156
157 memcpy(&ChildInfo.pos,pByte+i2,sizeof(POINT));
158 i2+=sizeof(POINT);
159
160 memcpy(&ChildInfo.size,pByte+i2,sizeof(SIZE));
161 i2+=sizeof(SIZE);
162
163 ChildInfo.caption=(char *)pByte+i2;
164 i2+=lstrlen(ChildInfo.caption)+1;
165
166 memcpy(&ChildInfo.style,pByte+i2,sizeof(DWORD));
167 i2+=sizeof(DWORD);
168
169 memcpy(&ChildInfo.ExStyle,pByte+i2,sizeof(DWORD));
170 i2+=sizeof(DWORD);
171
172 memcpy(&ChildInfo.Control,pByte+i2,sizeof(int));
173 i2+=sizeof(int);
174
175 memcpy(&ChildInfo.ImageCtrlInfo.type,pByte+i2,sizeof(int));
176 i2+=sizeof(int);
177
178 ChildInfo.ImageCtrlInfo.path=(char *)pByte+i2;
179 if(lstrlen(ChildInfo.ImageCtrlInfo.path)==0){
180 ChildInfo.ImageCtrlInfo.path=0;
181 i2++;
182 }
183 else i2+=lstrlen(ChildInfo.ImageCtrlInfo.path)+1;
184
185 ChildInfo.pos.x+=17;
186 ChildInfo.pos.y+=10;
187
188 MdiInfo[WndNum].MdiRadInfo->SelectingItem[i3]=InsertDlgItem(WndNum,
189 WndInfoNum,
190 -1,
191 &ChildInfo.pos,
192 &ChildInfo.size,
193 ChildInfo.IdName,
194 ChildInfo.caption,
195 ChildInfo.style,
196 ChildInfo.ExStyle,
197 ChildInfo.Control,
198 ChildInfo.ImageCtrlInfo.type,
199 ChildInfo.ImageCtrlInfo.path,
200 2);
201 }
202
203 GlobalUnlock(hGlobal);
204
205 ChangePropertyWindow(WndNum,WndInfoNum);
206}
207
208char *FormatCaption(char *caption){
209 extern HANDLE hHeap;
210 int i2,i3,BufSize;
211 char *buffer;
212
213 BufSize=256*2;
214 buffer=(char *)HeapAlloc(hHeap,0,BufSize);
215 for(i2=0,i3=0;;i2++,i3++){
216 if(i2+256>=BufSize){
217 BufSize+=256;
218 buffer=(char *)HeapReAlloc(hHeap,0,buffer,BufSize);
219 }
220 if(caption[i3]=='\"'){
221 lstrcpy(buffer+i2,"\"+Chr$(34)+\"");
222 i2+=lstrlen(buffer+i2);
223 i2--;
224 continue;
225 }
226 buffer[i2]=caption[i3];
227 if(caption[i3]=='\0') break;
228 }
229
230 return buffer;
231}
232char *SetCaptionSequence(char *caption){
233 extern HANDLE hHeap;
234 int i2,i3,BufSize;
235 char *buffer;
236
237 BufSize=256*2;
238 buffer=(char *)HeapAlloc(hHeap,0,BufSize);
239 for(i2=0,i3=0;;i2++,i3++){
240 if(i2+256>=BufSize){
241 BufSize+=256;
242 buffer=(char *)HeapReAlloc(hHeap,0,buffer,BufSize);
243 }
244 buffer[i2]=caption[i3];
245 if(caption[i3]=='\"'){
246 buffer[i2++]='\\';
247 buffer[i2]='1';
248 }
249 else if(caption[i3]=='\\'){
250 buffer[i2++]='\\';
251 buffer[i2]='\\';
252 }
253 else if(caption[i3]=='\0') break;
254 }
255
256 return buffer;
257}
258void RestoreCaptionSequence(char *caption){
259 int i2,i3;
260
261 for(i2=0,i3=0;;i2++,i3++){
262 caption[i2]=caption[i3];
263 if(caption[i3]=='\\'){
264 i3++;
265 if(caption[i3]=='1') caption[i2]='\"';
266 else caption[i2]=caption[i3];
267 }
268 else if(caption[i3]=='\0') break;
269 }
270}
271
272//テンプレートソースファイルに値をセットする
273char *PermutationWndPgmTemplate(char *pBuf,char *pPjName, char *pWndName, char *pHandleName, char *pProcName){
274 extern HANDLE hHeap;
275 int i,i2;
276
277 for(i=0;;i++){
278 if(pBuf[i]=='\0') break;
279 if(memicmp(pBuf+i,"#name#",6)==0){
280 //プロジェクト名を置換
281 i2=lstrlen(pPjName);
282 if(i2>6) pBuf=(char *)HeapReAlloc(hHeap,HEAP_ZERO_MEMORY,pBuf,lstrlen(pBuf)+(i2-6)+1);
283 SlideString(pBuf+i+6,i2-6);
284 memcpy(pBuf+i,pPjName,i2);
285 }
286 if(memicmp(pBuf+i,"#window#",8)==0){
287 //ウィンドウ名を置換
288 i2=lstrlen(pWndName);
289 if(i2>6) pBuf=(char *)HeapReAlloc(hHeap,HEAP_ZERO_MEMORY,pBuf,lstrlen(pBuf)+(i2-8)+1);
290 SlideString(pBuf+i+8,i2-8);
291 memcpy(pBuf+i,pWndName,i2);
292 }
293 if(memicmp(pBuf+i,"#handle#",8)==0){
294 //ハンドル名を置換
295 i2=lstrlen(pHandleName);
296 if(i2>6) pBuf=(char *)HeapReAlloc(hHeap,HEAP_ZERO_MEMORY,pBuf,lstrlen(pBuf)+(i2-8)+1);
297 SlideString(pBuf+i+8,i2-8);
298 memcpy(pBuf+i,pHandleName,i2);
299 }
300 if(memicmp(pBuf+i,"#procedure#",11)==0){
301 //プロシージャ名を置換
302 i2=lstrlen(pProcName);
303 if(i2>6) pBuf=(char *)HeapReAlloc(hHeap,HEAP_ZERO_MEMORY,pBuf,lstrlen(pBuf)+(i2-11)+1);
304 SlideString(pBuf+i+11,i2-11);
305 memcpy(pBuf+i,pProcName,i2);
306 }
307 }
308
309 return pBuf;
310}
311
312BOOL GetItemNotifyMessageNameByEvent(char *buffer,int ClassID,const char *EventName){
313 if(lstrcmp(EventName,"Click")==0) lstrcpy(buffer,"NM_CLICK");
314 else if(lstrcmp(EventName,"CustomDraw")==0) lstrcpy(buffer,"NM_CUSTOMDRAW");
315 else if(lstrcmp(EventName,"DblClick")==0) lstrcpy(buffer,"NM_DBLCLK");
316 else if(lstrcmp(EventName,"KillFocus")==0) lstrcpy(buffer,"NM_KILLFOCUS");
317 else if(lstrcmp(EventName,"OutOfMemory")==0) lstrcpy(buffer,"NM_OUTOFMEMORY");
318 else if(lstrcmp(EventName,"RClick")==0) lstrcpy(buffer,"NM_RCLICK");
319 else if(lstrcmp(EventName,"RDblClick")==0) lstrcpy(buffer,"NM_RDBLCLK");
320 else if(lstrcmp(EventName,"ReleasedCapture")==0) lstrcpy(buffer,"NM_RELEASEDCAPTURE");
321 else if(lstrcmp(EventName,"Return")==0) lstrcpy(buffer,"NM_RETURN");
322 else if(lstrcmp(EventName,"SetFocus")==0) lstrcpy(buffer,"NM_SETFOCUS");
323 else{
324 if(ClassID==CT_LISTVIEW){
325 if(lstrcmp(EventName,"BeginDrag")==0) lstrcpy(buffer,"LVN_BEGINDRAG");
326 else if(lstrcmp(EventName,"BeginLabelEdit")==0) lstrcpy(buffer,"LVN_BEGINLABELEDIT");
327 else if(lstrcmp(EventName,"BeginRDrag")==0) lstrcpy(buffer,"LVN_BEGINRDRAG");
328 else if(lstrcmp(EventName,"ColumnClick")==0) lstrcpy(buffer,"LVN_COLUMNCLICK");
329 else if(lstrcmp(EventName,"DeleteAllItems")==0) lstrcpy(buffer,"LVN_DELETEALLITEMS");
330 else if(lstrcmp(EventName,"DeleteItem")==0) lstrcpy(buffer,"LVN_DELETEITEM");
331 else if(lstrcmp(EventName,"EndLabelEdit")==0) lstrcpy(buffer,"LVN_ENDLABELEDIT");
332 else if(lstrcmp(EventName,"GetDispInfo")==0) lstrcpy(buffer,"LVN_GETDISPINFO");
333 else if(lstrcmp(EventName,"InsertItem")==0) lstrcpy(buffer,"LVN_INSERTITEM");
334 else if(lstrcmp(EventName,"ItemChanged")==0) lstrcpy(buffer,"LVN_ITEMCHANGED");
335 else if(lstrcmp(EventName,"ItemChanging")==0) lstrcpy(buffer,"LVN_ITEMCHANGING");
336 else if(lstrcmp(EventName,"KeyDown")==0) lstrcpy(buffer,"LVN_KEYDOWN");
337 else if(lstrcmp(EventName,"SetDispInfo")==0) lstrcpy(buffer,"LVN_SETDISPINFO");
338 else return 0;
339 }
340 else if(ClassID==CT_UPDOWN){
341 if(lstrcmp(EventName,"Deltapos")==0) lstrcpy(buffer,"UDN_DELTAPOS");
342 else return 0;
343 }
344 else return 0;
345 //未完成
346 }
347 return 1;
348}
349BOOL GetNotifyCommandByItemMessage(WINDOW_INFO *pWindowInfo,ITEMEVENTINFO *pItemEventInfo,char *Command,char *spaces){
350 int i,i2,i3,sw;
351 char temporary[MAX_PATH];
352
353 i2=0;
354 sw=0;
355 for(i=0;;i++){
356 if(pItemEventInfo[i].IdName==0) break;
357 if(pItemEventInfo[i].ClassID==CT_LISTVIEW||
358 pItemEventInfo[i].ClassID==CT_TREEVIEW||
359 pItemEventInfo[i].ClassID==CT_UPDOWN||
360 pItemEventInfo[i].ClassID==CT_PROGRESSBAR||
361 pItemEventInfo[i].ClassID==CT_TRACKBAR){
362 //コモン コントロール（WM_NOTIFY）
363 sw=1;
364 sprintf(Command+i2,"%sCase %s\r\n",spaces,pItemEventInfo[i].IdName);
365 i2+=lstrlen(Command+i2);
366 sprintf(Command+i2,"%s\tSelect Case pnmHdr->code\r\n",spaces);
367 i2+=lstrlen(Command+i2);
368 for(i3=0;i3<pItemEventInfo[i].EventNum;i3++){
369 if(GetItemNotifyMessageNameByEvent(temporary,pItemEventInfo[i].ClassID,pItemEventInfo[i].pEventNames[i3])){
370 sprintf(Command+i2,"%s\t\tCase %s\r\n",spaces,temporary);
371 i2+=lstrlen(Command+i2);
372 sprintf(Command+i2,"%s\t\t\t%s_%s_%s(ByVal (pnmHdr As VoidPtr))\r\n",spaces,pWindowInfo->name,pItemEventInfo[i].IdName,pItemEventInfo[i].pEventNames[i3]);
373 i2+=lstrlen(Command+i2);
374 }
375 }
376 sprintf(Command+i2,"%s\tEnd Select\r\n",spaces);
377 i2+=lstrlen(Command+i2);
378 }
379 }
380 return sw;
381}
382void GetItemMessageNameByEvent(char *buffer,int ClassID,const char *EventName){
383 if(ClassID==CT_BUTTON||
384 ClassID==CT_CHECKBOX||
385 ClassID==CT_RADIOBUTTON){
386 if(lstrcmp(EventName,"Click")==0) lstrcpy(buffer,"BN_CLICKED");
387 else if(lstrcmp(EventName,"DblClick")==0) lstrcpy(buffer,"BN_DBLCLK");
388 }
389 else if(ClassID==CT_COMBOBOX){
390 if(lstrcmp(EventName,"CloseUp")==0) lstrcpy(buffer,"CBN_CLOSEUP");
391 else if(lstrcmp(EventName,"DblClick")==0) lstrcpy(buffer,"CBN_DBLCLK");
392 else if(lstrcmp(EventName,"DropDown")==0) lstrcpy(buffer,"CBN_DROPDOWN");
393 else if(lstrcmp(EventName,"EditChange")==0) lstrcpy(buffer,"CBN_EDITCHANGE");
394 else if(lstrcmp(EventName,"EditUpdate")==0) lstrcpy(buffer,"CBN_EDITUPDATE");
395 else if(lstrcmp(EventName,"ErrSpace")==0) lstrcpy(buffer,"CBN_ERRSPACE");
396 else if(lstrcmp(EventName,"KillFocus")==0) lstrcpy(buffer,"CBN_KILLFOCUS");
397 else if(lstrcmp(EventName,"SelChange")==0) lstrcpy(buffer,"CBN_SELCHANGE");
398 else if(lstrcmp(EventName,"SelEndCancel")==0) lstrcpy(buffer,"CBN_SELENDCANCEL");
399 else if(lstrcmp(EventName,"SelEndOk")==0) lstrcpy(buffer,"CBN_SELENDOK");
400 else if(lstrcmp(EventName,"SetFocus")==0) lstrcpy(buffer,"CBN_SETFOCUS");
401 }
402 else if(ClassID==CT_EDIT){
403 if(lstrcmp(EventName,"Change")==0) lstrcpy(buffer,"EN_CHANGE");
404 else if(lstrcmp(EventName,"ErrSpace")==0) lstrcpy(buffer,"EN_ERRSPACE");
405 else if(lstrcmp(EventName,"HScroll")==0) lstrcpy(buffer,"EN_HSCROLL");
406 else if(lstrcmp(EventName,"KillFocus")==0) lstrcpy(buffer,"EN_KILLFOCUS");
407 else if(lstrcmp(EventName,"MaxText")==0) lstrcpy(buffer,"EN_MAXTEXT");
408 else if(lstrcmp(EventName,"SetFocus")==0) lstrcpy(buffer,"EN_SETFOCUS");
409 else if(lstrcmp(EventName,"Update")==0) lstrcpy(buffer,"EN_UPDATE");
410 else if(lstrcmp(EventName,"VScroll")==0) lstrcpy(buffer,"EN_VSCROLL");
411 }
412 else if(ClassID==CT_IMAGEBOX||
413 ClassID==CT_STATIC){
414 if(lstrcmp(EventName,"Click")==0) lstrcpy(buffer,"STN_CLICKED");
415 else if(lstrcmp(EventName,"DblClick")==0) lstrcpy(buffer,"STN_DBLCLK");
416 }
417 else if(ClassID==CT_LISTBOX){
418 if(lstrcmp(EventName,"SelChange")==0) lstrcpy(buffer,"LBN_SELCHANGE");
419 else if(lstrcmp(EventName,"DblClick")==0) lstrcpy(buffer,"LBN_DBLCLK");
420 else if(lstrcmp(EventName,"ErrSpace")==0) lstrcpy(buffer,"LBN_ERRSPACE");
421 else if(lstrcmp(EventName,"KillFocus")==0) lstrcpy(buffer,"LBN_KILLFOCUS");
422 else if(lstrcmp(EventName,"SelCancel")==0) lstrcpy(buffer,"LBN_SELCANCEL");
423 else if(lstrcmp(EventName,"SetFocus")==0) lstrcpy(buffer,"LBN_SETFOCUS");
424 }
425}
426void GetCommandByItemMessage(WINDOW_INFO *pWindowInfo,ITEMEVENTINFO *pItemEventInfo,char *Command,char *spaces){
427 extern HANDLE hHeap;
428 int i,i2,i3;
429 char temporary[MAX_PATH];
430
431 i2=0;
432 for(i=0;;i++){
433 if(pItemEventInfo[i].IdName==0) break;
434 if(pItemEventInfo[i].ClassID!=CT_LISTVIEW&&
435 pItemEventInfo[i].ClassID!=CT_PROGRESSBAR&&
436 pItemEventInfo[i].ClassID!=CT_TREEVIEW&&
437 pItemEventInfo[i].ClassID!=CT_TRACKBAR&&
438 pItemEventInfo[i].ClassID!=CT_UPDOWN
439 ){
440 //WM_COMMAND
441 sprintf(Command+i2,"%sCase %s\r\n",spaces,pItemEventInfo[i].IdName);
442 i2+=lstrlen(Command+i2);
443 if(pItemEventInfo[i].ClassID==CT_MENU){
444 sprintf(Command+i2,"%s\t%s_%s_MenuClick()\r\n",spaces,pWindowInfo->name,pItemEventInfo[i].IdName);
445 i2+=lstrlen(Command+i2);
446 for(i3=0;i3<pItemEventInfo[i].EventNum;i3++)
447 HeapDefaultFree(pItemEventInfo[i].pEventNames[i3]);
448 }
449 else{
450 sprintf(Command+i2,"%s\tSelect Case HIWORD(wParam)\r\n",spaces);
451 i2+=lstrlen(Command+i2);
452 for(i3=0;i3<pItemEventInfo[i].EventNum;i3++){
453 GetItemMessageNameByEvent(temporary,pItemEventInfo[i].ClassID,pItemEventInfo[i].pEventNames[i3]);
454 sprintf(Command+i2,"%s\t\tCase %s\r\n",spaces,temporary);
455 i2+=lstrlen(Command+i2);
456 sprintf(Command+i2,"%s\t\t\t%s_%s_%s()\r\n",spaces,pWindowInfo->name,pItemEventInfo[i].IdName,pItemEventInfo[i].pEventNames[i3]);
457 i2+=lstrlen(Command+i2);
458 HeapDefaultFree(pItemEventInfo[i].pEventNames[i3]);
459 }
460 sprintf(Command+i2,"%s\tEnd Select\r\n",spaces);
461 i2+=lstrlen(Command+i2);
462 }
463 HeapDefaultFree(pItemEventInfo[i].IdName);
464 HeapDefaultFree(pItemEventInfo[i].pEventNames);
465 }
466 else{
467 //WM_NOTIFY情報のメモリ解放
468 for(i3=0;i3<pItemEventInfo[i].EventNum;i3++)
469 HeapDefaultFree(pItemEventInfo[i].pEventNames[i3]);
470 HeapDefaultFree(pItemEventInfo[i].IdName);
471 HeapDefaultFree(pItemEventInfo[i].pEventNames);
472 }
473 }
474}
475
476void GetItemClassName(char *buffer,int Control){
477 switch(Control){
478 case CT_BUTTON:
479 case CT_CHECKBOX:
480 case CT_GROUPBOX:
481 case CT_RADIOBUTTON:
482 lstrcpy(buffer,"BUTTON");
483 break;
484 case CT_COMBOBOX:
485 lstrcpy(buffer,"COMBOBOX");
486 break;
487 case CT_EDIT:
488 lstrcpy(buffer,"EDIT");
489 break;
490 case CT_HSCROLLBAR:
491 case CT_VSCROLLBAR:
492 lstrcpy(buffer,"SCROLLBAR");
493 break;
494 case CT_LISTBOX:
495 lstrcpy(buffer,"LISTBOX");
496 break;
497 case CT_LISTVIEW:
498 lstrcpy(buffer,"SysListView32");
499 break;
500 case CT_IMAGEBOX:
501 case CT_STATIC:
502 lstrcpy(buffer,"STATIC");
503 break;
504 case CT_PROGRESSBAR:
505 lstrcpy(buffer,"msctls_progress32");
506 break;
507 case CT_TRACKBAR:
508 lstrcpy(buffer,"msctls_trackbar32");
509 break;
510 case CT_TREEVIEW:
511 lstrcpy(buffer,"SysTreeView32");
512 break;
513 //CT_UPDOWNはCreateUpDownControl関数で独自に作成される
514 }
515}
516long GetCommandByMessage(int WndInfoNum,const char *MessageName,BOOL bProcedureCall,char *Command,char *spaces){
517 extern PROJECTINFO ProjectInfo;
518 int i,i2,sw;
519 char temporary[MAX_PATH],*temp2;
520 WINDOW_INFO *pWindowInfo;
521
522 pWindowInfo=&ProjectInfo.pWindowInfo[WndInfoNum];
523
524 Command[0]=0;
525
526
527 /////////////////////
528 // Default コマンド
529
530 if(lstrcmp(MessageName,"Activate")==0){
531 sprintf(Command,"%sCase WM_ACTIVATE\r\n",spaces);
532 i=lstrlen(Command);
533 sprintf(Command+i,"%s\t%s_%s(LOWORD(wParam),HIWORD(wParam))\r\n",spaces,pWindowInfo->name,MessageName);
534 }
535 else if(lstrcmp(MessageName,"Create")==0){
536 if(pWindowInfo->type==WNDTYPE_MODALDLG||pWindowInfo->type==WNDTYPE_MODELESSDLG)
537 sprintf(Command,"%sCase WM_INITDIALOG\r\n",spaces);
538 else sprintf(Command,"%sCase WM_CREATE\r\n",spaces);
539 i=lstrlen(Command);
540
541 sprintf(Command+i,"%s\t%s=hWnd\r\n",spaces,pWindowInfo->HandleName);
542 i+=lstrlen(Command+i);
543
544 if(pWindowInfo->MenuID){
545 //メニュー作成
546 for(i2=0;i2<ProjectInfo.NumberOfMenu;i2++){
547 if(lstrcmpi(ProjectInfo.pMenuInfo[i2].IdName,pWindowInfo->MenuID)==0) break;
548 }
549 if(i2!=ProjectInfo.NumberOfMenu){
550 sprintf(Command+i,"%s\tSetMenu(hWnd,hMenu_%s)\r\n",spaces,ProjectInfo.pMenuInfo[i2].IdName);
551 i+=lstrlen(Command+i);
552 }
553 }
554
555 //子ウィンドウ作成
556 for(i2=0,sw=0;i2<pWindowInfo->NumberOfChildWindows;i2++){
557 if(pWindowInfo->pChildInfo[i2].Control==CT_UPDOWN){
558 sprintf(Command+i,"%s\tCreateUpDownControl(%d,%d,%d,%d,%d,hWnd,%s,GetWindowLongPtr(hWnd,GWLP_HINSTANCE) As HINSTANCE,0,0,100,0)\r\n",
559 spaces,
560 pWindowInfo->pChildInfo[i2].style,
561 pWindowInfo->pChildInfo[i2].pos.x,pWindowInfo->pChildInfo[i2].pos.y,
562 pWindowInfo->pChildInfo[i2].size.cx,pWindowInfo->pChildInfo[i2].size.cy,
563 pWindowInfo->pChildInfo[i2].IdName);
564 i+=lstrlen(Command+i);
565 }
566 else{
567 GetItemClassName(temporary,pWindowInfo->pChildInfo[i2].Control);
568 temp2=FormatCaption(pWindowInfo->pChildInfo[i2].caption);
569 sprintf(Command+i,"%s\tCreateWindowEx(&H%08x,\"%s\",\"%s\",&H%08x,%d,%d,%d,%d,hWnd,%s As HMENU,GetModuleHandle(0),0)\r\n",
570 spaces,
571 pWindowInfo->pChildInfo[i2].ExStyle,
572 temporary,
573 temp2,
574 pWindowInfo->pChildInfo[i2].style,
575 pWindowInfo->pChildInfo[i2].pos.x,
576 pWindowInfo->pChildInfo[i2].pos.y,
577 pWindowInfo->pChildInfo[i2].size.cx,
578 pWindowInfo->pChildInfo[i2].size.cy,
579 pWindowInfo->pChildInfo[i2].IdName);
580 i+=lstrlen(Command+i);
581 HeapDefaultFree(temp2);
582 sprintf(Command+i,"%s\tSendMessage(GetDlgItem(hWnd,%s),WM_SETFONT,hFont_%s As WPARAM,0)\r\n",
583 spaces,
584 pWindowInfo->pChildInfo[i2].IdName,
585 pWindowInfo->name);
586 i+=lstrlen(Command+i);
587
588 if(pWindowInfo->pChildInfo[i2].Control==CT_IMAGEBOX){
589 //イメージ ボックスの場合
590 if((pWindowInfo->pChildInfo[i2].style&0x000F)==SS_ICON){
591 if(pWindowInfo->pChildInfo[i2].ImageCtrlInfo.type==IMGTYPE_FILE){
592 if(strstr(pWindowInfo->pChildInfo[i2].ImageCtrlInfo.path,":")||
593 strstr(pWindowInfo->pChildInfo[i2].ImageCtrlInfo.path,"\\\\")){
594 sprintf(Command+i,"%s\thImage_%s_%s=LoadImage(GetWindowLongPtr(hWnd,GWLP_HINSTANCE) As HINSTANCE,\"%s\",IMAGE_ICON,0,0,LR_DEFAULTSIZE or LR_LOADFROMFILE)\r\n",
595 spaces,
596 pWindowInfo->name,
597 pWindowInfo->pChildInfo[i2].IdName,
598 pWindowInfo->pChildInfo[i2].ImageCtrlInfo.path);
599 }
600 else{
601 if(sw==0){
602 sw=1;
603 lstrcpy(Command+i,"\r\n");
604 i+=2;
605 sprintf(Command+i,"%s\tDim ImageFilePath[MAX_PATH] As Byte\r\n",spaces);
606 i+=lstrlen(Command+i);
607 sprintf(Command+i,"%s\tDim ModulePath[MAX_PATH] As Byte, i As Long\r\n",spaces);
608 i+=lstrlen(Command+i);
609 sprintf(Command+i,"%s\tGetModuleFileName(GetModuleHandle(0),ModulePath,MAX_PATH)\r\n",spaces);
610 i+=lstrlen(Command+i);
611 sprintf(Command+i,"%s\tFor i=lstrlen(ModulePath)-1 To 0 Step -1\r\n",spaces);
612 i+=lstrlen(Command+i);
613 sprintf(Command+i,"%s\t\tIf ModulePath[i]=&H5C Then Exit For\r\n",spaces);
614 i+=lstrlen(Command+i);
615 sprintf(Command+i,"%s\tNext\r\n",spaces);
616 i+=lstrlen(Command+i);
617 sprintf(Command+i,"%s\tModulePath[i+1]=0\r\n",spaces);
618 i+=lstrlen(Command+i);
619 lstrcpy(Command+i,"\r\n");
620 i+=2;
621 }
622 sprintf(Command+i,"%s\twsprintf(ImageFilePath,\"%%s%s\",ModulePath)\r\n",spaces,pWindowInfo->pChildInfo[i2].ImageCtrlInfo.path);
623 i+=lstrlen(Command+i);
624 sprintf(Command+i,"%s\thImage_%s_%s=LoadImage(GetWindowLongPtr(hWnd,GWLP_HINSTANCE) As HINSTANCE,ImageFilePath,IMAGE_ICON,0,0,LR_DEFAULTSIZE or LR_LOADFROMFILE)\r\n",
625 spaces,
626 pWindowInfo->name,
627 pWindowInfo->pChildInfo[i2].IdName);
628 }
629 i+=lstrlen(Command+i);
630 }
631 else if(pWindowInfo->pChildInfo[i2].ImageCtrlInfo.type==IMGTYPE_RES){
632 sprintf(Command+i,"%s\thImage_%s_%s=LoadImage(GetWindowLongPtr(hWnd,GWLP_HINSTANCE) As HINSTANCE,%s As *Byte,IMAGE_ICON,0,0,LR_DEFAULTSIZE)\r\n",
633 spaces,
634 pWindowInfo->name,
635 pWindowInfo->pChildInfo[i2].IdName,
636 pWindowInfo->pChildInfo[i2].ImageCtrlInfo.path);
637 i+=lstrlen(Command+i);
638 }
639 sprintf(Command+i,"%s\tSendMessage(GetDlgItem(hWnd,%s),STM_SETICON,hImage_%s_%s As WPARAM,0)\r\n",
640 spaces,
641 pWindowInfo->pChildInfo[i2].IdName,
642 pWindowInfo->name,
643 pWindowInfo->pChildInfo[i2].IdName);
644 i+=lstrlen(Command+i);
645 }
646 else if((pWindowInfo->pChildInfo[i2].style&0x000F)==SS_BITMAP){
647 if(pWindowInfo->pChildInfo[i2].ImageCtrlInfo.type==IMGTYPE_FILE){
648 if(strstr(pWindowInfo->pChildInfo[i2].ImageCtrlInfo.path,":")||
649 strstr(pWindowInfo->pChildInfo[i2].ImageCtrlInfo.path,"\\\\")){
650 sprintf(Command+i,"%s\thImage_%s_%s=LoadImage(GetWindowLongPtr(hWnd,GWLP_HINSTANCE) As HINSTANCE,\"%s\",IMAGE_BITMAP,0,0,LR_DEFAULTSIZE or LR_LOADFROMFILE)\r\n",
651 spaces,
652 pWindowInfo->name,
653 pWindowInfo->pChildInfo[i2].IdName,
654 pWindowInfo->pChildInfo[i2].ImageCtrlInfo.path);
655 }
656 else{
657 if(sw==0){
658 sw=1;
659 lstrcpy(Command+i,"\r\n");
660 i+=2;
661 sprintf(Command+i,"%s\tDim ImageFilePath[MAX_PATH] As Byte\r\n",spaces);
662 i+=lstrlen(Command+i);
663 sprintf(Command+i,"%s\tDim ModulePath[MAX_PATH] As Byte, i As Long\r\n",spaces);
664 i+=lstrlen(Command+i);
665 sprintf(Command+i,"%s\tGetModuleFileName(GetModuleHandle(0),ModulePath,MAX_PATH)\r\n",spaces);
666 i+=lstrlen(Command+i);
667 sprintf(Command+i,"%s\tFor i=lstrlen(ModulePath)-1 To 0 Step -1\r\n",spaces);
668 i+=lstrlen(Command+i);
669 sprintf(Command+i,"%s\t\tIf ModulePath[i]=&H5C Then Exit For\r\n",spaces);
670 i+=lstrlen(Command+i);
671 sprintf(Command+i,"%s\tNext\r\n",spaces);
672 i+=lstrlen(Command+i);
673 sprintf(Command+i,"%s\tModulePath[i+1]=0\r\n",spaces);
674 i+=lstrlen(Command+i);
675 lstrcpy(Command+i,"\r\n");
676 i+=2;
677 }
678 sprintf(Command+i,"%s\twsprintf(ImageFilePath,\"%%s%s\",ModulePath)\r\n",spaces,pWindowInfo->pChildInfo[i2].ImageCtrlInfo.path);
679 i+=lstrlen(Command+i);
680 sprintf(Command+i,"%s\thImage_%s_%s=LoadImage(GetWindowLongPtr(hWnd,GWLP_HINSTANCE) As HINSTANCE,ImageFilePath,IMAGE_BITMAP,0,0,LR_LOADFROMFILE)\r\n",
681 spaces,
682 pWindowInfo->name,
683 pWindowInfo->pChildInfo[i2].IdName);
684 }
685 i+=lstrlen(Command+i);
686 }
687 else if(pWindowInfo->pChildInfo[i2].ImageCtrlInfo.type==IMGTYPE_RES){
688 sprintf(Command+i,"%s\thImage_%s_%s=LoadImage(GetWindowLongPtr(hWnd,GWLP_HINSTANCE) As HINSTANCE,%s As *Byte,IMAGE_BITMAP,0,0,LR_DEFAULTSIZE)\r\n",
689 spaces,
690 pWindowInfo->name,
691 pWindowInfo->pChildInfo[i2].IdName,
692 pWindowInfo->pChildInfo[i2].ImageCtrlInfo.path);
693 i+=lstrlen(Command+i);
694 }
695 sprintf(Command+i,"%s\tSendMessage(GetDlgItem(hWnd,%s),STM_SETIMAGE,IMAGE_BITMAP,hImage_%s_%s As LPARAM)\r\n",
696 spaces,
697 pWindowInfo->pChildInfo[i2].IdName,
698 pWindowInfo->name,
699 pWindowInfo->pChildInfo[i2].IdName);
700 i+=lstrlen(Command+i);
701 }
702 }
703 }
704 }
705
706 if(bProcedureCall)
707 sprintf(Command+i,"%s\t%s_%s(ByVal (lParam As VoidPtr))\r\n",spaces,pWindowInfo->name,MessageName);
708 return WM_CREATE;
709 }
710 else if(lstrcmp(MessageName,"Destroy")==0){
711 sprintf(Command,"%sCase WM_DESTROY\r\n",spaces);
712 i=lstrlen(Command);
713 if(bProcedureCall){
714 sprintf(Command+i,"%s\t%s_%s()\r\n",spaces,pWindowInfo->name,MessageName);
715 i+=lstrlen(Command+i);
716 }
717
718 if(pWindowInfo->MenuID){
719 //メニューを解放
720 for(i2=0;i2<ProjectInfo.NumberOfMenu;i2++){
721 if(lstrcmpi(ProjectInfo.pMenuInfo[i2].IdName,pWindowInfo->MenuID)==0) break;
722 }
723 if(i2!=ProjectInfo.NumberOfMenu){
724 sprintf(Command+i,"%s\tSetMenu(hWnd,NULL)\r\n",spaces);
725 i+=lstrlen(Command+i);
726 }
727 }
728
729 //イメージ ボックス用の変数を解放
730 for(i2=0;i2<pWindowInfo->NumberOfChildWindows;i2++){
731 if(pWindowInfo->pChildInfo[i2].Control==CT_IMAGEBOX){
732 if((pWindowInfo->pChildInfo[i2].style&0x000F)==SS_ICON)
733 sprintf(Command+i,"%s\tDestroyIcon(hImage_%s_%s)\r\n",spaces,pWindowInfo->name,pWindowInfo->pChildInfo[i2].IdName);
734 else if((pWindowInfo->pChildInfo[i2].style&0x000F)==SS_BITMAP)
735 sprintf(Command+i,"%s\tDeleteObject(hImage_%s_%s)\r\n",spaces,pWindowInfo->name,pWindowInfo->pChildInfo[i2].IdName);
736 i+=lstrlen(Command+i);
737 }
738 }
739 return WM_DESTROY;
740 }
741 else if(lstrcmp(MessageName,"DropFiles")==0){
742 sprintf(Command,"%sCase WM_DROPFILES\r\n",spaces);
743 i=lstrlen(Command);
744 sprintf(Command+i,"%s\t%s_%s(wParam As HDROP)\r\n",spaces,pWindowInfo->name,MessageName);
745 }
746 else if(lstrcmp(MessageName,"HScroll")==0){
747 sprintf(Command,"%sCase WM_HSCROLL\r\n",spaces);
748 i=lstrlen(Command);
749 sprintf(Command+i,"%s\t%s_%s(LOWORD(wParam),HIWORD(wParam),lParam As HWND)\r\n",spaces,pWindowInfo->name,MessageName);
750 }
751 else if(lstrcmp(MessageName,"KeyDown")==0){
752 sprintf(Command,"%sCase WM_KEYDOWN\r\n",spaces);
753 i=lstrlen(Command);
754 sprintf(Command+i,"%s\t%s_%s(wParam As Long,lParam As Long)\r\n",spaces,pWindowInfo->name,MessageName);
755 }
756 else if(lstrcmp(MessageName,"KeyPress")==0){
757 sprintf(Command,"%sCase WM_CHAR\r\n",spaces);
758 i=lstrlen(Command);
759 sprintf(Command+i,"%s\t%s_%s(wParam As Long,lParam As Long)\r\n",spaces,pWindowInfo->name,MessageName);
760 }
761 else if(lstrcmp(MessageName,"KeyUp")==0){
762 sprintf(Command,"%sCase WM_KEYUP\r\n",spaces);
763 i=lstrlen(Command);
764 sprintf(Command+i,"%s\t%s_%s(wParam As Long,lParam As Long)\r\n",spaces,pWindowInfo->name,MessageName);
765 }
766 else if(lstrcmp(MessageName,"LButtonDown")==0){
767 sprintf(Command,"%sCase WM_LBUTTONDOWN\r\n",spaces);
768 i=lstrlen(Command);
769 sprintf(Command+i,"%s\t%s_%s(wParam As Long,LOWORD(lParam),HIWORD(lParam))\r\n",spaces,pWindowInfo->name,MessageName);
770 }
771 else if(lstrcmp(MessageName,"LButtonDblClick")==0){
772 sprintf(Command,"%sCase WM_LBUTTONDBLCLK\r\n",spaces);
773 i=lstrlen(Command);
774 sprintf(Command+i,"%s\t%s_%s(wParam As Long,LOWORD(lParam),HIWORD(lParam))\r\n",spaces,pWindowInfo->name,MessageName);
775 }
776 else if(lstrcmp(MessageName,"LButtonUp")==0){
777 sprintf(Command,"%sCase WM_LBUTTONUP\r\n",spaces);
778 i=lstrlen(Command);
779 sprintf(Command+i,"%s\t%s_%s(wParam As Long,LOWORD(lParam),HIWORD(lParam))\r\n",spaces,pWindowInfo->name,MessageName);
780 }
781 else if(lstrcmp(MessageName,"MButtonDown")==0){
782 sprintf(Command,"%sCase WM_MBUTTONDOWN\r\n",spaces);
783 i=lstrlen(Command);
784 sprintf(Command+i,"%s\t%s_%s(wParam As Long,LOWORD(lParam),HIWORD(lParam))\r\n",spaces,pWindowInfo->name,MessageName);
785 }
786 else if(lstrcmp(MessageName,"MButtonDblClick")==0){
787 sprintf(Command,"%sCase WM_MBUTTONDBLCLK\r\n",spaces);
788 i=lstrlen(Command);
789 sprintf(Command+i,"%s\t%s_%s(wParam As Long,LOWORD(lParam),HIWORD(lParam))\r\n",spaces,pWindowInfo->name,MessageName);
790 }
791 else if(lstrcmp(MessageName,"MButtonUp")==0){
792 sprintf(Command,"%sCase WM_MBUTTONUP\r\n",spaces);
793 i=lstrlen(Command);
794 sprintf(Command+i,"%s\t%s_%s(wParam As Long,LOWORD(lParam),HIWORD(lParam))\r\n",spaces,pWindowInfo->name,MessageName);
795 }
796 else if(lstrcmp(MessageName,"MouseMove")==0){
797 sprintf(Command,"%sCase WM_MOUSEMOVE\r\n",spaces);
798 i=lstrlen(Command);
799 sprintf(Command+i,"%s\t%s_%s(wParam As Long,LOWORD(lParam),HIWORD(lParam))\r\n",spaces,pWindowInfo->name,MessageName);
800 }
801 else if(lstrcmp(MessageName,"Move")==0){
802 sprintf(Command,"%sCase WM_MOVE\r\n",spaces);
803 i=lstrlen(Command);
804 sprintf(Command+i,"%s\t%s_%s(LOWORD(lParam),HIWORD(lParam))\r\n",spaces,pWindowInfo->name,MessageName);
805 }
806 else if(lstrcmp(MessageName,"Notify")==0){
807 //コモンコントロールメッセージと共に挿入
808 return WM_NOTIFY;
809 }
810 else if(lstrcmp(MessageName,"Paint")==0){
811 sprintf(Command,"%sCase WM_PAINT\r\n",spaces);
812 i=lstrlen(Command);
813 sprintf(Command+i,"%s\tDim ps As PAINTSTRUCT\r\n",spaces);
814 i+=lstrlen(Command+i);
815 sprintf(Command+i,"%s\tDim hDC As HDC\r\n",spaces);
816 i+=lstrlen(Command+i);
817 sprintf(Command+i,"%s\thDC=BeginPaint(hWnd,ps)\r\n",spaces);
818 i+=lstrlen(Command+i);
819 sprintf(Command+i,"%s\t%s_%s(hDC)\r\n",spaces,pWindowInfo->name,MessageName);
820 i+=lstrlen(Command+i);
821 sprintf(Command+i,"%s\tEndPaint(hWnd,ps)\r\n",spaces);
822 return WM_PAINT;
823 }
824 else if(lstrcmp(MessageName,"QueryClose")==0){
825 sprintf(Command,"%sCase WM_CLOSE\r\n",spaces);
826 i=lstrlen(Command);
827 sprintf(Command+i,"%s\tDim cancel=0 As Integer\r\n",spaces);
828 i+=lstrlen(Command+i);
829 if(bProcedureCall){
830 sprintf(Command+i,"%s\t%s_%s(cancel)\r\n",spaces,pWindowInfo->name,MessageName);
831 i+=lstrlen(Command+i);
832 }
833 if(pWindowInfo->type==WNDTYPE_MODALDLG)
834 sprintf(Command+i,"%s\tIf cancel=0 Then EndDialog(hWnd,0)\r\n",spaces);
835 else
836 sprintf(Command+i,"%s\tIf cancel=0 Then DestroyWindow(hWnd)\r\n",spaces);
837 return WM_CLOSE;
838 }
839 else if(lstrcmp(MessageName,"RButtonDblClick")==0){
840 sprintf(Command,"%sCase WM_RBUTTONDBLCLK\r\n",spaces);
841 i=lstrlen(Command);
842 sprintf(Command+i,"%s\t%s_%s(wParam As Long,LOWORD(lParam),HIWORD(lParam))\r\n",spaces,pWindowInfo->name,MessageName);
843 }
844 else if(lstrcmp(MessageName,"RButtonDown")==0){
845 sprintf(Command,"%sCase WM_RBUTTONDOWN\r\n",spaces);
846 i=lstrlen(Command);
847 sprintf(Command+i,"%s\t%s_%s(wParam As Long,LOWORD(lParam),HIWORD(lParam))\r\n",spaces,pWindowInfo->name,MessageName);
848 }
849 else if(lstrcmp(MessageName,"RButtonUp")==0){
850 sprintf(Command,"%sCase WM_RBUTTONUP\r\n",spaces);
851 i=lstrlen(Command);
852 sprintf(Command+i,"%s\t%s_%s(wParam As Long,LOWORD(lParam),HIWORD(lParam))\r\n",spaces,pWindowInfo->name,MessageName);
853 }
854 else if(lstrcmp(MessageName,"Resize")==0){
855 sprintf(Command,"%sCase WM_SIZE\r\n",spaces);
856 i=lstrlen(Command);
857 sprintf(Command+i,"%s\t%s_%s(wParam As Long,LOWORD(lParam),HIWORD(lParam))\r\n",spaces,pWindowInfo->name,MessageName);
858 }
859 else if(lstrcmp(MessageName,"SetFocus")==0){
860 sprintf(Command,"%sCase WM_SETFOCUS\r\n",spaces);
861 i=lstrlen(Command);
862 sprintf(Command+i,"%s\t%s_%s()\r\n",spaces,pWindowInfo->name,MessageName);
863 }
864 else if(lstrcmp(MessageName,"Timer")==0){
865 sprintf(Command,"%sCase WM_TIMER\r\n",spaces);
866 i=lstrlen(Command);
867 sprintf(Command+i,"%s\t%s_%s(wParam As DWord)\r\n",spaces,pWindowInfo->name,MessageName);
868 }
869 else if(lstrcmp(MessageName,"VScroll")==0){
870 sprintf(Command,"%sCase WM_VSCROLL\r\n",spaces);
871 i=lstrlen(Command);
872 sprintf(Command+i,"%s\t%s_%s(LOWORD(wParam),HIWORD(wParam),lParam As HWND)\r\n",spaces,pWindowInfo->name,MessageName);
873 }
874
875
876 ///////////////////
877 // MMSYS コマンド
878
879 else if(lstrcmp(MessageName,"MciNotify")==0){
880 sprintf(Command,"%sCase MM_MCINOTIFY\r\n",spaces);
881 i=lstrlen(Command);
882 sprintf(Command+i,"%s\t%s_%s(wParam,lParam)\r\n",spaces,pWindowInfo->name,MessageName);
883 }
884 return 0;
885}
886
887char **GetMenuItemConstData(MENU_INFO *pMenuInfo,int NumberOfMenu,int *ConstNumber,char **ppNames,int *NamesNum,char *buffer,int *base){
888 extern HANDLE hHeap;
889 int i,i2,sw1;
890
891 for(i=0;i<NumberOfMenu;i++){
892 if(pMenuInfo[i].pMenuInfo){
893 //ポップアップ
894 ppNames=GetMenuItemConstData(pMenuInfo[i].pMenuInfo,pMenuInfo[i].NumberOfMenu,ConstNumber,ppNames,NamesNum,buffer,base);
895 }
896 else if(pMenuInfo[i].type==MFT_STRING){
897 //重複チェック
898 for(i2=0,sw1=0;i2<*NamesNum;i2++){
899 if(lstrcmpi(ppNames[i2],pMenuInfo[i].IdName)==0){
900 sw1=1;
901 break;
902 }
903 }
904 if(sw1==0){
905 ppNames=(char **)HeapReAlloc(hHeap,0,ppNames,sizeof(char *)*((*NamesNum)+1));
906 ppNames[*NamesNum]=pMenuInfo[i].IdName;
907 (*NamesNum)++;
908
909 sprintf(buffer+(*base),"Const %s=%d\r\n",pMenuInfo[i].IdName,*ConstNumber);
910 (*base)+=lstrlen(buffer+(*base));
911 (*ConstNumber)++;
912 }
913 }
914 }
915 return ppNames;
916}
917int GetMakeMenuCommand(MENU_INFO *pMenuInfo,int NumberOfMenu,char *MenuHandle,char *Command,BOOL bMain){
918 int i,i2;
919 char temporary[MAX_PATH];
920
921 i=0;
922 sprintf(Command+i,"Dim %s As HMENU\r\n",MenuHandle);
923 i+=lstrlen(Command+i);
924 if(bMain) sprintf(Command+i,"%s=CreateMenu()\r\n",MenuHandle);
925 else sprintf(Command+i,"%s=CreatePopupMenu()\r\n",MenuHandle);
926 i+=lstrlen(Command+i);
927
928 for(i2=NumberOfMenu-1;i2>=0;i2--){
929 if(pMenuInfo[i2].pMenuInfo){
930 sprintf(temporary,"%s_%d",MenuHandle,i2);
931 i+=GetMakeMenuCommand(pMenuInfo[i2].pMenuInfo,pMenuInfo[i2].NumberOfMenu,temporary,Command+i,0);
932 sprintf(Command+i,"InsMenu %s,0,MF_BYPOSITION,Ex\"%s\",0,%s,%d\r\n",
933 MenuHandle,
934 pMenuInfo[i2].caption,
935 temporary,
936 pMenuInfo[i2].state);
937 i+=lstrlen(Command+i);
938 }
939 else{
940 if(pMenuInfo[i2].type==MFT_STRING){
941 sprintf(Command+i,"InsMenu %s,0,MF_BYPOSITION,Ex\"%s\",%s,0,%d\r\n",
942 MenuHandle,
943 pMenuInfo[i2].caption,
944 pMenuInfo[i2].IdName,
945 pMenuInfo[i2].state);
946 i+=lstrlen(Command+i);
947 }
948 else if(pMenuInfo[i2].type==MFT_SEPARATOR){
949 sprintf(Command+i,"InsMenu %s,0,MF_BYPOSITION,\"\"\r\n",
950 MenuHandle);
951 i+=lstrlen(Command+i);
952 }
953 }
954 }
955 return i;
956}
957int GetDestroyMenuCommand(MENU_INFO *pMenuInfo,int NumberOfMenu,char *MenuHandle,char *Command){
958 int i,i2;
959 char temporary[MAX_PATH];
960
961 i=0;
962 sprintf(Command+i,"\tDestroyMenu(%s)\r\n",MenuHandle);
963 i+=lstrlen(Command+i);
964
965 for(i2=NumberOfMenu-1;i2>=0;i2--){
966 if(pMenuInfo[i2].pMenuInfo){
967 sprintf(temporary,"%s_%d",MenuHandle,i2);
968 i+=GetDestroyMenuCommand(pMenuInfo[i2].pMenuInfo,pMenuInfo[i2].NumberOfMenu,temporary,Command+i);
969 }
970 }
971 return i;
972}
973void SaveWindowProgram(){
974 extern HANDLE hHeap;
975 extern PROJECTINFO ProjectInfo;
976 int i,i2,i3,i4,i5,i6,sw1,sw2,sw3,sw4,size;
977 char *buffer,**ppNames,temporary[MAX_PATH];
978 WINDOW_INFO *pWindowInfo;
979
980 pWindowInfo=ProjectInfo.pWindowInfo;
981
982 size=2;
983 buffer=(char *)HeapAlloc(hHeap,0,65535*size);
984 lstrcpy(buffer,"'このファイルはウィンドウ定義ファイル（*.wnd）をもとに生成されています\r\n\r\n");
985 i2=lstrlen(buffer);
986
987 if(ProjectInfo.dwOption&PJ_OP_COMMCTRL){
988 //コマンコントロールを初期化
989 lstrcpy(buffer+i2,"Dim _RadSys_InitCtrls As INITCOMMONCONTROLSEX\r\n");
990 i2+=lstrlen(buffer+i2);
991 lstrcpy(buffer+i2,"_RadSys_InitCtrls.dwSize=Len(_RadSys_InitCtrls)\r\n");
992 i2+=lstrlen(buffer+i2);
993 lstrcpy(buffer+i2,"_RadSys_InitCtrls.dwICC=ICC_WIN95_CLASSES\r\n");
994 i2+=lstrlen(buffer+i2);
995 lstrcpy(buffer+i2,"InitCommonControlsEx(_RadSys_InitCtrls)\r\n\r\n");
996 i2+=lstrlen(buffer+i2);
997 }
998
999
1000 ////////////
1001 //IDを定義
1002
1003 ppNames=(char **)HeapAlloc(hHeap,0,1);
1004 for(i=0,i4=1000,i5=0;i<ProjectInfo.NumberOfWindows;i++){
1005 for(i3=0;i3<pWindowInfo[i].NumberOfChildWindows;i3++){
1006
1007 //重複チェック
1008 for(i6=0,sw1=0;i6<i5;i6++){
1009 if(lstrcmpi(ppNames[i6],pWindowInfo[i].pChildInfo[i3].IdName)==0){
1010 sw1=1;
1011 break;
1012 }
1013 }
1014 if(sw1) continue;
1015
1016 ppNames=(char **)HeapReAlloc(hHeap,0,ppNames,sizeof(char *)*(i5+1));
1017 ppNames[i5]=pWindowInfo[i].pChildInfo[i3].IdName;
1018 i5++;
1019
1020 sprintf(buffer+i2,"Const %s=%d\r\n",pWindowInfo[i].pChildInfo[i3].IdName,i4);
1021 i2+=lstrlen(buffer+i2);
1022 i4++;
1023
1024 while(i2>65535*(size-1)){
1025 size++;
1026 buffer=(char *)HeapReAlloc(hHeap,0,buffer,65535*size);
1027 }
1028 }
1029 }
1030
1031 //メニューのIDを定義
1032 ppNames=GetMenuItemConstData(ProjectInfo.pMenuInfo,ProjectInfo.NumberOfMenu,&i4,ppNames,&i5,buffer,&i2);
1033
1034 HeapDefaultFree(ppNames);
1035 lstrcpy(buffer+i2,"\r\n");
1036 i2+=lstrlen(buffer+i2);
1037
1038
1039 //ハンドル変数を定義
1040 for(i=0;i<ProjectInfo.NumberOfWindows;i++){
1041 sprintf(buffer+i2,"Dim %s As HWND\r\n",pWindowInfo[i].HandleName);
1042 i2+=lstrlen(buffer+i2);
1043 sprintf(buffer+i2,"Dim hFont_%s As HFONT\r\n",pWindowInfo[i].name);
1044 i2+=lstrlen(buffer+i2);
1045 sprintf(buffer+i2,"hFont_%s=CreateFont(%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,\"%s\")\r\n",
1046 pWindowInfo[i].name,
1047 pWindowInfo[i].LogFont.lfHeight,
1048 pWindowInfo[i].LogFont.lfWidth,
1049 pWindowInfo[i].LogFont.lfEscapement,
1050 pWindowInfo[i].LogFont.lfOrientation,
1051 pWindowInfo[i].LogFont.lfWeight,
1052 pWindowInfo[i].LogFont.lfItalic,
1053 pWindowInfo[i].LogFont.lfUnderline,
1054 pWindowInfo[i].LogFont.lfStrikeOut,
1055 pWindowInfo[i].LogFont.lfCharSet,
1056 pWindowInfo[i].LogFont.lfOutPrecision,
1057 pWindowInfo[i].LogFont.lfClipPrecision,
1058 pWindowInfo[i].LogFont.lfQuality,
1059 pWindowInfo[i].LogFont.lfPitchAndFamily,
1060 pWindowInfo[i].LogFont.lfFaceName);
1061 i2+=lstrlen(buffer+i2);
1062
1063 while(i2>65535*(size-1)){
1064 size++;
1065 buffer=(char *)HeapReAlloc(hHeap,0,buffer,65535*size);
1066 }
1067 }
1068
1069 //背景に使用するブラシを定義
1070 lstrcpy(buffer+i2,"Dim h3DFaceBrush As HBRUSH\r\n");
1071 i2+=lstrlen(buffer+i2);
1072 lstrcpy(buffer+i2,"h3DFaceBrush=CreateSolidBrush(GetSysColor(COLOR_3DFACE))\r\n");
1073 i2+=lstrlen(buffer+i2);
1074 for(i=0;i<ProjectInfo.NumberOfWindows;i++){
1075 if(pWindowInfo[i].bgColor<=0&&
1076 pWindowInfo[i].bgColor!=-(int)RGB(255,255,255)&&
1077 pWindowInfo[i].bgColor!=-(int)RGB(0,0,0)){
1078 sprintf(buffer+i2,"Dim _RadSys_hBackBrush%d As HBRUSH\r\n",i);
1079 i2+=lstrlen(buffer+i2);
1080 sprintf(buffer+i2,"_RadSys_hBackBrush%d=CreateSolidBrush(%d)\r\n",i,-pWindowInfo[i].bgColor);
1081 i2+=lstrlen(buffer+i2);
1082 }
1083 if(pWindowInfo[i].bgColor>=0x1000){
1084 sprintf(buffer+i2,"Dim _RadSys_hBackBrush%d As HBRUSH\r\n",i);
1085 i2+=lstrlen(buffer+i2);
1086 sprintf(buffer+i2,"_RadSys_hBackBrush%d=CreatePatternBrush(LoadImage(GetModuleHandle(0),%s,IMAGE_BITMAP,0,0,LR_DEFAULTSIZE or LR_SHARED))\r\n",
1087 i,
1088 ProjectInfo.res.pBitmapResInfo[pWindowInfo[i].bgColor-0x1000].IdName);
1089 i2+=lstrlen(buffer+i2);
1090 }
1091 }
1092
1093 lstrcpy(buffer+i2,"\r\n");
1094 i2+=lstrlen(buffer+i2);
1095
1096 //イメージ ボックス用の変数を定義
1097 for(i=0;i<ProjectInfo.NumberOfWindows;i++){
1098 for(i3=0;i3<pWindowInfo[i].NumberOfChildWindows;i3++){
1099 if(pWindowInfo[i].pChildInfo[i3].Control==CT_IMAGEBOX){
1100 if((pWindowInfo[i].pChildInfo[i3].style&0x000F)==SS_ICON||
1101 (pWindowInfo[i].pChildInfo[i3].style&0x000F)==SS_BITMAP){
1102 sprintf(buffer+i2,"Dim hImage_%s_%s As HANDLE\r\n",pWindowInfo[i].name,pWindowInfo[i].pChildInfo[i3].IdName);
1103 i2+=lstrlen(buffer+i2);
1104
1105 while(i2>65535*(size-1)){
1106 size++;
1107 buffer=(char *)HeapReAlloc(hHeap,0,buffer,65535*size);
1108 }
1109 }
1110 }
1111 }
1112 }
1113
1114 lstrcpy(buffer+i2,"\r\n");
1115 i2+=lstrlen(buffer+i2);
1116
1117 //メニュー作成
1118 for(i=0;i<ProjectInfo.NumberOfMenu;i++){
1119 sprintf(temporary,"hMenu_%s",ProjectInfo.pMenuInfo[i].IdName);
1120
1121 //InsertMenuItem郡
1122 i2+=GetMakeMenuCommand(ProjectInfo.pMenuInfo[i].pMenuInfo,ProjectInfo.pMenuInfo[i].NumberOfMenu,temporary,buffer+i2,1);
1123
1124 lstrcpy(buffer+i2,"\r\n");
1125 i2+=lstrlen(buffer+i2);
1126
1127 while(i2>65535*(size-1)){
1128 size++;
1129 buffer=(char *)HeapReAlloc(hHeap,0,buffer,65535*size);
1130 }
1131 }
1132
1133
1134 //////////////////////////
1135 //オブジェクトの解放処理
1136 sprintf(buffer+i2,"Sub %s_DestroyObjects()\r\n",ProjectInfo.name);
1137 i2+=lstrlen(buffer+i2);
1138
1139 //メニュー解放
1140 for(i=0;i<ProjectInfo.NumberOfMenu;i++){
1141 sprintf(temporary,"hMenu_%s",ProjectInfo.pMenuInfo[i].IdName);
1142 i2+=GetDestroyMenuCommand(ProjectInfo.pMenuInfo[i].pMenuInfo,ProjectInfo.pMenuInfo[i].NumberOfMenu,temporary,buffer+i2);
1143
1144 while(i2>65535*(size-1)){
1145 size++;
1146 buffer=(char *)HeapReAlloc(hHeap,0,buffer,65535*size);
1147 }
1148 }
1149
1150 for(i=0;i<ProjectInfo.NumberOfWindows;i++){
1151 //フォントハンドル解放
1152 sprintf(buffer+i2,"\tDeleteObject(hFont_%s)\r\n",ProjectInfo.pWindowInfo[i].name);
1153 i2+=lstrlen(buffer+i2);
1154
1155 while(i2>65535*(size-1)){
1156 size++;
1157 buffer=(char *)HeapReAlloc(hHeap,0,buffer,65535*size);
1158 }
1159 }
1160
1161 //背景ブラシを解放
1162 lstrcpy(buffer+i2,"\tDeleteObject(h3DFaceBrush)\r\n");
1163 i2+=lstrlen(buffer+i2);
1164 for(i=0;i<ProjectInfo.NumberOfWindows;i++){
1165 if(pWindowInfo[i].bgColor<=0&&
1166 pWindowInfo[i].bgColor!=-(int)RGB(255,255,255)&&
1167 pWindowInfo[i].bgColor!=-(int)RGB(0,0,0)){
1168 sprintf(buffer+i2,"\tDeleteObject(_RadSys_hBackBrush%d)\r\n",i);
1169 i2+=lstrlen(buffer+i2);
1170 }
1171 }
1172
1173 sprintf(buffer+i2,"End Sub\r\n\r\n");
1174 i2+=lstrlen(buffer+i2);
1175
1176 //ユーザー定義のコールバック関数が存在するかどうか
1177 BOOL bAvailUserProc[MAX_WNDNUM];
1178
1179
1180 for(i=0;i<ProjectInfo.NumberOfWindows;i++){
1181 if(i!=0){
1182 lstrcpy(buffer+i2,"\r\n");
1183 i2+=lstrlen(buffer+i2);
1184 }
1185
1186 //////////////////////////
1187 //コールバック関数を生成
1188
1189 //処理メッセージを抽出
1190 ITEMEVENTINFO *pItemEventInfo;
1191 ppNames=GetProcedureNamesOfMessageCall(i,&pItemEventInfo,&i3,&bAvailUserProc[i]);
1192
1193 sprintf(buffer+i2,"Function EventCall_%s(hWnd As HWND, message As DWord, wParam As WPARAM, lParam As LPARAM) As LRESULT\r\n",pWindowInfo[i].name);
1194 i2+=lstrlen(buffer+i2);
1195
1196 lstrcpy(buffer+i2,"\tSelect Case message\r\n");
1197 i2+=lstrlen(buffer+i2);
1198
1199 //通常メッセージ郡
1200 for(i4=0,sw1=0,sw2=0,sw3=0,sw4=0;i4<i3;i4++){
1201 i5=GetCommandByMessage(i,ppNames[i4],1,buffer+i2,"\t\t");
1202 i2+=lstrlen(buffer+i2);
1203 if(i5==WM_CREATE) sw1=1;
1204 else if(i5==WM_DESTROY) sw2=1;
1205 else if(i5==WM_CLOSE) sw3=1;
1206 else if(i5==WM_NOTIFY) sw4=1;
1207 HeapDefaultFree(ppNames[i4]);
1208 }
1209 HeapDefaultFree(ppNames);
1210
1211 //WM_CREATE、WM_DESTROY、WM_PAINTが呼び出されていない場合
1212 if(!sw1){
1213 GetCommandByMessage(i,"Create",0,buffer+i2,"\t\t");
1214 i2+=lstrlen(buffer+i2);
1215 }
1216 if(!sw2){
1217 GetCommandByMessage(i,"Destroy",0,buffer+i2,"\t\t");
1218 i2+=lstrlen(buffer+i2);
1219 }
1220 if(!sw3){
1221 GetCommandByMessage(i,"QueryClose",0,buffer+i2,"\t\t");
1222 i2+=lstrlen(buffer+i2);
1223 }
1224
1225 //アイテムメッセージ郡（WM_NOTIFY）
1226 if(pItemEventInfo[0].IdName){
1227 i3=i2;
1228 lstrcpy(buffer+i2,"\t\tCase WM_NOTIFY\r\n");
1229 i2+=lstrlen(buffer+i2);
1230 if(sw4){
1231 sprintf(buffer+i2,"\t\t\t%s_Notify(ByVal (lParam As *NMHDR))\r\n",pWindowInfo[i].name);
1232 i2+=lstrlen(buffer+i2);
1233 }
1234 lstrcpy(buffer+i2,"\t\t\tDim pnmHdr As *NMHDR\r\n");
1235 i2+=lstrlen(buffer+i2);
1236 lstrcpy(buffer+i2,"\t\t\tpnmHdr=lParam As *NMHDR\r\n");
1237 i2+=lstrlen(buffer+i2);
1238 lstrcpy(buffer+i2,"\t\t\tSelect Case LOWORD(wParam)\r\n");
1239 i2+=lstrlen(buffer+i2);
1240
1241 if(GetNotifyCommandByItemMessage(&pWindowInfo[i],pItemEventInfo,buffer+i2,"\t\t\t\t")){
1242 i2+=lstrlen(buffer+i2);
1243
1244 lstrcpy(buffer+i2,"\t\t\tEnd Select\r\n");
1245 i2+=lstrlen(buffer+i2);
1246 }
1247 else{
1248 //WM_NOTIFYを削除
1249 i2=i3;
1250 if(sw4) goto DefaultNotifyEvent;
1251 }
1252 }
1253 else if(sw4){
1254DefaultNotifyEvent:
1255 lstrcpy(buffer+i2,"\t\tCase WM_NOTIFY\r\n");
1256 i2+=lstrlen(buffer+i2);
1257 sprintf(buffer+i2,"\t\t\t%s_Notify(ByVal (lParam As *NMHDR))\r\n",pWindowInfo[i].name);
1258 i2+=lstrlen(buffer+i2);
1259 }
1260
1261 //アイテムメッセージ郡（WM_COMMAND）
1262 if(pItemEventInfo[0].IdName){
1263 lstrcpy(buffer+i2,"\t\tCase WM_COMMAND\r\n");
1264 i2+=lstrlen(buffer+i2);
1265 lstrcpy(buffer+i2,"\t\t\tSelect Case LOWORD(wParam)\r\n");
1266 i2+=lstrlen(buffer+i2);
1267
1268 //pItemEventInfoのIdName、EventNameメンバのメモリ解放はこの関数内で行う
1269 GetCommandByItemMessage(&pWindowInfo[i],pItemEventInfo,buffer+i2,"\t\t\t\t");
1270 i2+=lstrlen(buffer+i2);
1271
1272 lstrcpy(buffer+i2,"\t\t\tEnd Select\r\n");
1273 i2+=lstrlen(buffer+i2);
1274 }
1275 HeapDefaultFree(pItemEventInfo);
1276
1277 // DefWindowProc関数
1278 lstrcpy(buffer+i2,"\t\tCase Else\r\n");
1279 i2+=lstrlen(buffer+i2);
1280 sprintf(buffer+i2,"\t\t\tEventCall_%s=DefWindowProc(hWnd,message,wParam,lParam)\r\n",pWindowInfo[i].name);
1281 i2+=lstrlen(buffer+i2);
1282 lstrcpy(buffer+i2,"\t\t\tExit Function\r\n");
1283 i2+=lstrlen(buffer+i2);
1284
1285 lstrcpy(buffer+i2,"\tEnd Select\r\n");
1286 i2+=lstrlen(buffer+i2);
1287
1288 sprintf(buffer+i2,"\tEventCall_%s=0\r\n",pWindowInfo[i].name);
1289 i2+=lstrlen(buffer+i2);
1290 lstrcpy(buffer+i2,"End Function\r\n");
1291 i2+=lstrlen(buffer+i2);
1292
1293 while(i2>65535*(size-1)){
1294 size++;
1295 buffer=(char *)HeapReAlloc(hHeap,0,buffer,65535*size);
1296 }
1297 }
1298
1299
1300 //////////////////////////
1301 //ダイアログボックス関連
1302
1303 //クラス登録
1304 lstrcpy(buffer+i2,"\r\nFunction DefaultCallProc(hWnd As HWND, message As DWord, wParam As WPARAM, lParam As LPARAM) As LRESULT\r\n");
1305 i2+=lstrlen(buffer+i2);
1306 lstrcpy(buffer+i2,"\tDefaultCallProc=DefWindowProc(hWnd,message,wParam,lParam)\r\n");
1307 i2+=lstrlen(buffer+i2);
1308 lstrcpy(buffer+i2,"End Function\r\n");
1309 i2+=lstrlen(buffer+i2);
1310 lstrcpy(buffer+i2,"\r\nDim _RadSys_dlgwcl As WNDCLASSEX\r\n");
1311 i2+=lstrlen(buffer+i2);
1312 lstrcpy(buffer+i2,"FillMemory(VarPtr(_RadSys_dlgwcl),Len(_RadSys_dlgwcl),0)\r\n");
1313 i2+=lstrlen(buffer+i2);
1314 lstrcpy(buffer+i2,"_RadSys_dlgwcl.cbSize=Len(_RadSys_dlgwcl)\r\n");
1315 i2+=lstrlen(buffer+i2);
1316 lstrcpy(buffer+i2,"_RadSys_dlgwcl.hInstance=GetModuleHandle(0)\r\n");
1317 i2+=lstrlen(buffer+i2);
1318 lstrcpy(buffer+i2,"_RadSys_dlgwcl.style=CS_HREDRAW or CS_VREDRAW or CS_DBLCLKS\r\n");
1319 i2+=lstrlen(buffer+i2);
1320 lstrcpy(buffer+i2,"_RadSys_dlgwcl.hIcon=LoadIcon(NULL,MAKEINTRESOURCE(IDI_APPLICATION))\r\n");
1321 i2+=lstrlen(buffer+i2);
1322 lstrcpy(buffer+i2,"_RadSys_dlgwcl.hIconSm=LoadIcon(NULL,MAKEINTRESOURCE(IDI_WINLOGO))\r\n");
1323 i2+=lstrlen(buffer+i2);
1324 lstrcpy(buffer+i2,"_RadSys_dlgwcl.hCursor=LoadCursor(NULL,MAKEINTRESOURCE(IDC_ARROW))\r\n");
1325 i2+=lstrlen(buffer+i2);
1326 lstrcpy(buffer+i2,"_RadSys_dlgwcl.lpszClassName=\"NORMALDLG\"\r\n");
1327 i2+=lstrlen(buffer+i2);
1328 lstrcpy(buffer+i2,"_RadSys_dlgwcl.hbrBackground=h3DFaceBrush\r\n");
1329 i2+=lstrlen(buffer+i2);
1330 lstrcpy(buffer+i2,"_RadSys_dlgwcl.lpfnWndProc=AddressOf(DefaultCallProc)\r\n");
1331 i2+=lstrlen(buffer+i2);
1332 lstrcpy(buffer+i2,"RegisterClassEx(_RadSys_dlgwcl)\r\n");
1333 i2+=lstrlen(buffer+i2);
1334
1335 //DialogBox関数
1336 lstrcpy(buffer+i2,"\r\nFunction DialogBox(hOwnerWnd As HWND, TemplateName As LPSTR) As LONG_PTR\r\n");
1337 i2+=lstrlen(buffer+i2);
1338 lstrcpy(buffer+i2,"\tDim hDlg As HWND\r\n");
1339 i2+=lstrlen(buffer+i2);
1340 for(i=0,sw1=0;i<ProjectInfo.NumberOfWindows;i++){
1341 if(pWindowInfo[i].type==WNDTYPE_MODALDLG){
1342 if(sw1==0){
1343 sprintf(buffer+i2,"\tIf lstrcmp(TemplateName,\"%s\")=0 Then\r\n",pWindowInfo[i].name);
1344 i2+=lstrlen(buffer+i2);
1345 sw1=1;
1346 }
1347 else{
1348 sprintf(buffer+i2,"\tElseIf lstrcmp(TemplateName,\"%s\")=0 Then\r\n",pWindowInfo[i].name);
1349 i2+=lstrlen(buffer+i2);
1350 }
1351 sprintf(buffer+i2,"\t\t%s=CreateWindowEx(&H%08x,\"NORMALDLG\",\"%s\",&H%08x,%d,%d,%d,%d,hOwnerWnd,%d As HMENU,GetModuleHandle(0),0)\r\n",
1352 pWindowInfo[i].HandleName,
1353 pWindowInfo[i].ExStyle,
1354 pWindowInfo[i].caption,
1355 pWindowInfo[i].style,
1356 pWindowInfo[i].pos.x,
1357 pWindowInfo[i].pos.y,
1358 pWindowInfo[i].size.cx,
1359 pWindowInfo[i].size.cy,
1360 pWindowInfo[i].id);
1361 i2+=lstrlen(buffer+i2);
1362 sprintf(buffer+i2,"\t\thDlg=%s\r\n",
1363 pWindowInfo[i].HandleName);
1364 i2+=lstrlen(buffer+i2);
1365 if(bAvailUserProc[i]){
1366 sprintf(buffer+i2,"\t\tSetWindowLongPtr(%s,GWLP_WNDPROC,AddressOf(%s) As LONG_PTR)\r\n",
1367 pWindowInfo[i].HandleName,
1368 pWindowInfo[i].CallBackName);
1369 }
1370 else{
1371 sprintf(buffer+i2,"\t\tSetWindowLongPtr(%s,GWLP_WNDPROC,AddressOf(EventCall_%s) As LONG_PTR)\r\n",
1372 pWindowInfo[i].HandleName,
1373 pWindowInfo[i].name);
1374 }
1375 i2+=lstrlen(buffer+i2);
1376 sprintf(buffer+i2,"\t\tSendMessage(%s,WM_INITDIALOG,0,0)\r\n",pWindowInfo[i].HandleName);
1377 i2+=lstrlen(buffer+i2);
1378 if(pWindowInfo[i].IconResName){
1379 sprintf(buffer+i2,"\t\tSendMessage(%s,WM_SETICON,ICON_SMALL,LoadIcon(GetModuleHandle(0),MAKEINTRESOURCE(%s)) As LPARAM)\r\n",pWindowInfo[i].HandleName,pWindowInfo[i].IconResName);
1380 i2+=lstrlen(buffer+i2);
1381 }
1382 sprintf(buffer+i2,"\t\tShowWindow(%s,SW_SHOW)\r\n",pWindowInfo[i].HandleName);
1383 i2+=lstrlen(buffer+i2);
1384 }
1385 while(i2>65535*(size-1)){
1386 size++;
1387 buffer=(char *)HeapReAlloc(hHeap,0,buffer,65535*size);
1388 }
1389 }
1390 if(sw1){
1391 lstrcpy(buffer+i2,"\tElse\r\n");
1392 i2+=lstrlen(buffer+i2);
1393 lstrcpy(buffer+i2,"\t\tExit Function\r\n");
1394 i2+=lstrlen(buffer+i2);
1395 lstrcpy(buffer+i2,"\tEnd If\r\n");
1396 i2+=lstrlen(buffer+i2);
1397 lstrcpy(buffer+i2,"\tEnableWindow(hOwnerWnd,0)\r\n\r\n");
1398 i2+=lstrlen(buffer+i2);
1399 lstrcpy(buffer+i2,"\tDim msg As MSG, iResult As Long\r\n");
1400 i2+=lstrlen(buffer+i2);
1401 lstrcpy(buffer+i2,"\tDo\r\n");
1402 i2+=lstrlen(buffer+i2);
1403 lstrcpy(buffer+i2,"\t\tiResult=GetMessage(msg,0,0,0)\r\n");
1404 i2+=lstrlen(buffer+i2);
1405 lstrcpy(buffer+i2,"\t\tIf iResult=0 or iResult=-1 Then Exit Do\r\n");
1406 i2+=lstrlen(buffer+i2);
1407 lstrcpy(buffer+i2,"\t\tIf IsDialogMessage(hDlg,msg) Then Continue\r\n");
1408 i2+=lstrlen(buffer+i2);
1409 lstrcpy(buffer+i2,"\t\tTranslateMessage(msg)\r\n");
1410 i2+=lstrlen(buffer+i2);
1411 lstrcpy(buffer+i2,"\t\tDispatchMessage(msg)\r\n");
1412 i2+=lstrlen(buffer+i2);
1413 lstrcpy(buffer+i2,"\tLoop\r\n");
1414 i2+=lstrlen(buffer+i2);
1415 lstrcpy(buffer+i2,"\tDialogBox=msg.wParam\r\n");
1416 i2+=lstrlen(buffer+i2);
1417 }
1418 lstrcpy(buffer+i2,"End Function\r\n");
1419 i2+=lstrlen(buffer+i2);
1420
1421 //EndDialog関数
1422 lstrcpy(buffer+i2,"Sub EndDialog(hWnd As HWND, lResult As Long)\r\n");
1423 i2+=lstrlen(buffer+i2);
1424 lstrcpy(buffer+i2,"\tEnableWindow(GetWindow(hWnd,GW_OWNER),1)\r\n");
1425 i2+=lstrlen(buffer+i2);
1426 lstrcpy(buffer+i2,"\tDestroyWindow(hWnd)\r\n");
1427 i2+=lstrlen(buffer+i2);
1428 lstrcpy(buffer+i2,"\tPostMessage(0,WM_QUIT,lResult,0)\r\n");
1429 i2+=lstrlen(buffer+i2);
1430 lstrcpy(buffer+i2,"End Sub\r\n");
1431 i2+=lstrlen(buffer+i2);
1432
1433 //CreateDialog関数
1434 lstrcpy(buffer+i2,"\r\nFunction CreateDialog(hOwnerWnd As HWND, TemplateName As LPSTR) As HWND\r\n");
1435 i2+=lstrlen(buffer+i2);
1436 for(i=0;i<ProjectInfo.NumberOfWindows;i++){
1437 if(pWindowInfo[i].type==WNDTYPE_MODELESSDLG){
1438 sprintf(buffer+i2,"\tIf lstrcmp(TemplateName,\"%s\")=0 Then\r\n",pWindowInfo[i].name);
1439 i2+=lstrlen(buffer+i2);
1440
1441 sprintf(buffer+i2,"\t\t%s=CreateWindowEx(&H%08x,\"NORMALDLG\",\"%s\",&H%08x,%d,%d,%d,%d,hOwnerWnd,%d As HMENU,GetModuleHandle(0),0)\r\n",
1442 pWindowInfo[i].HandleName,
1443 pWindowInfo[i].ExStyle,
1444 pWindowInfo[i].caption,
1445 pWindowInfo[i].style,
1446 pWindowInfo[i].pos.x,
1447 pWindowInfo[i].pos.y,
1448 pWindowInfo[i].size.cx,
1449 pWindowInfo[i].size.cy,
1450 pWindowInfo[i].id);
1451 i2+=lstrlen(buffer+i2);
1452 sprintf(buffer+i2,"\t\tCreateDialog=%s\r\n",pWindowInfo[i].HandleName);
1453 i2+=lstrlen(buffer+i2);
1454 if(bAvailUserProc[i]){
1455 sprintf(buffer+i2,"\t\tSetWindowLongPtr(%s,GWLP_WNDPROC,AddressOf(%s) As LONG_PTR)\r\n",
1456 pWindowInfo[i].HandleName,
1457 pWindowInfo[i].CallBackName);
1458 }
1459 else{
1460 sprintf(buffer+i2,"\t\tSetWindowLongPtr(%s,GWLP_WNDPROC,AddressOf(EventCall_%s) As LONG_PTR)\r\n",
1461 pWindowInfo[i].HandleName,
1462 pWindowInfo[i].name);
1463 }
1464 i2+=lstrlen(buffer+i2);
1465 sprintf(buffer+i2,"\t\tSendMessage(%s,WM_INITDIALOG,0,0)\r\n",pWindowInfo[i].HandleName);
1466 i2+=lstrlen(buffer+i2);
1467 if(pWindowInfo[i].IconResName){
1468 sprintf(buffer+i2,"\t\tSendMessage(%s,WM_SETICON,ICON_SMALL,LoadIcon(GetModuleHandle(0),MAKEINTRESOURCE(%s)) As LPARAM)\r\n",pWindowInfo[i].HandleName,pWindowInfo[i].IconResName);
1469 i2+=lstrlen(buffer+i2);
1470 }
1471 sprintf(buffer+i2,"\tEnd If\r\n",pWindowInfo[i].name);
1472 i2+=lstrlen(buffer+i2);
1473 }
1474 while(i2>65535*(size-1)){
1475 size++;
1476 buffer=(char *)HeapReAlloc(hHeap,0,buffer,65535*size);
1477 }
1478 }
1479 lstrcpy(buffer+i2,"End Function\r\n");
1480 i2+=lstrlen(buffer+i2);
1481
1482
1483 ///////////////////////
1484 // 保存（Callback.wbp）
1485 sprintf(temporary,"%sCallback.wbp",ProjectInfo.dir);
1486 WriteBuffer(temporary,buffer,i2);
1487
1488
1489
1490 lstrcpy(buffer,"'このファイルはウィンドウ定義ファイル（*.wnd）をもとに生成されています\r\n\r\n");
1491 i2=lstrlen(buffer);
1492
1493 lstrcpy(buffer+i2,"Dim _RadSys_wcl As WNDCLASSEX\r\n");
1494 i2+=lstrlen(buffer+i2);
1495 lstrcpy(buffer+i2,"FillMemory(VarPtr(_RadSys_wcl),Len(_RadSys_wcl),0)\r\n");
1496 i2+=lstrlen(buffer+i2);
1497 lstrcpy(buffer+i2,"_RadSys_wcl.cbSize=Len(_RadSys_wcl)\r\n");
1498 i2+=lstrlen(buffer+i2);
1499 lstrcpy(buffer+i2,"_RadSys_wcl.hInstance=GetModuleHandle(0)\r\n");
1500 i2+=lstrlen(buffer+i2);
1501 lstrcpy(buffer+i2,"_RadSys_wcl.style=CS_HREDRAW or CS_VREDRAW or CS_DBLCLKS\r\n");
1502 i2+=lstrlen(buffer+i2);
1503 lstrcpy(buffer+i2,"_RadSys_wcl.hCursor=LoadCursor(NULL,MAKEINTRESOURCE(IDC_ARROW))\r\n");
1504 i2+=lstrlen(buffer+i2);
1505
1506 for(i=0;i<ProjectInfo.NumberOfWindows;i++){
1507 if(pWindowInfo[i].type==WNDTYPE_DEFAULT){
1508 //////////////////////
1509 //通常ウィンドウ作成
1510
1511 lstrcpy(buffer+i2,"\r\n");
1512 i2+=2;
1513
1514 if(pWindowInfo[i].IconResName==0){
1515 lstrcpy(buffer+i2,"_RadSys_wcl.hIcon=LoadIcon(NULL,MAKEINTRESOURCE(IDI_APPLICATION))\r\n");
1516 i2+=lstrlen(buffer+i2);
1517 lstrcpy(buffer+i2,"_RadSys_wcl.hIconSm=LoadIcon(NULL,MAKEINTRESOURCE(IDI_WINLOGO))\r\n");
1518 i2+=lstrlen(buffer+i2);
1519 }
1520 else{
1521 sprintf(buffer+i2,"_RadSys_wcl.hIcon=LoadIcon(_RadSys_wcl.hInstance,MAKEINTRESOURCE(%s))\r\n",pWindowInfo[i].IconResName);
1522 i2+=lstrlen(buffer+i2);
1523 sprintf(buffer+i2,"_RadSys_wcl.hIconSm=LoadIcon(_RadSys_wcl.hInstance,MAKEINTRESOURCE(%s))\r\n",pWindowInfo[i].IconResName);
1524 i2+=lstrlen(buffer+i2);
1525 }
1526
1527 sprintf(buffer+i2,"_RadSys_wcl.lpszClassName=\"NORMAL%d\"\r\n",i);
1528 i2+=lstrlen(buffer+i2);
1529 if(bAvailUserProc[i])
1530 sprintf(buffer+i2,"_RadSys_wcl.lpfnWndProc=AddressOf(%s)\r\n",pWindowInfo[i].CallBackName);
1531 else sprintf(buffer+i2,"_RadSys_wcl.lpfnWndProc=AddressOf(EventCall_%s)\r\n",pWindowInfo[i].name);
1532 i2+=lstrlen(buffer+i2);
1533 if(pWindowInfo[i].bgColor==COLOR_3DFACE)
1534 lstrcpy(buffer+i2,"_RadSys_wcl.hbrBackground=h3DFaceBrush\r\n");
1535 else if(pWindowInfo[i].bgColor==-(int)RGB(255,255,255))
1536 lstrcpy(buffer+i2,"_RadSys_wcl.hbrBackground=GetStockObject(WHITE_BRUSH)\r\n");
1537 else if(pWindowInfo[i].bgColor==-(int)RGB(0,0,0))
1538 lstrcpy(buffer+i2,"_RadSys_wcl.hbrBackground=GetStockObject(BLACK_BRUSH)\r\n");
1539 else if(pWindowInfo[i].bgColor<=0||
1540 pWindowInfo[i].bgColor>=0x1000){
1541 //色指定またはビットマップ
1542 sprintf(buffer+i2,"_RadSys_wcl.hbrBackground=_RadSys_hBackBrush%d\r\n",i);
1543 }
1544 i2+=lstrlen(buffer+i2);
1545 lstrcpy(buffer+i2,"RegisterClassEx(_RadSys_wcl)\r\n");
1546 i2+=lstrlen(buffer+i2);
1547 sprintf(buffer+i2,"CreateWindowEx(&H%08x,\"%s%d\",\"%s\",&H%08x,%d,%d,%d,%d,0,0,GetModuleHandle(0),0)\r\n",
1548 pWindowInfo[i].ExStyle,
1549 pWindowInfo[i].ClassName,i,
1550 pWindowInfo[i].caption,
1551 pWindowInfo[i].style,
1552 pWindowInfo[i].pos.x,
1553 pWindowInfo[i].pos.y,
1554 pWindowInfo[i].size.cx,
1555 pWindowInfo[i].size.cy);
1556 i2+=lstrlen(buffer+i2);
1557 }
1558
1559 while(i2>65535*(size-1)){
1560 size++;
1561 buffer=(char *)HeapReAlloc(hHeap,0,buffer,65535*size);
1562 }
1563 }
1564
1565
1566 /////////////////////////
1567 // 保存（MakeWindow.wbp）
1568 sprintf(temporary,"%sMakeWindow.wbp",ProjectInfo.dir);
1569 WriteBuffer(temporary,buffer,i2);
1570 HeapDefaultFree(buffer);
1571}
1572int GetSaveMenuData(char *buffer,int SpaceNum,MENU_INFO *pMenuInfo,int ItemNum){
1573 int i,i2;
1574 char spaces[MAX_PATH];
1575
1576 memset(spaces,' ',SpaceNum*4);
1577 spaces[SpaceNum*4]=0;
1578
1579 for(i=0,i2=0;i<ItemNum;i++){
1580 if(pMenuInfo[i].pMenuInfo){
1581 sprintf(buffer+i2,"%sPOPUP = \"%s\",%d\r\n",spaces,pMenuInfo[i].caption,pMenuInfo[i].state);
1582 i2+=lstrlen(buffer+i2);
1583 i2+=GetSaveMenuData(buffer+i2,SpaceNum+1,pMenuInfo[i].pMenuInfo,pMenuInfo[i].NumberOfMenu);
1584 sprintf(buffer+i2,"%sEND\r\n",spaces);
1585 i2+=lstrlen(buffer+i2);
1586 }
1587 else if(pMenuInfo[i].type==MFT_STRING){
1588 sprintf(buffer+i2,"%sITEM = %s,\"%s\",%d\r\n",spaces,pMenuInfo[i].IdName,pMenuInfo[i].caption,pMenuInfo[i].state);
1589 i2+=lstrlen(buffer+i2);
1590 }
1591 else if(pMenuInfo[i].type==MFT_SEPARATOR){
1592 sprintf(buffer+i2,"%sSEPARATOR\r\n",spaces);
1593 i2+=lstrlen(buffer+i2);
1594 }
1595 }
1596 return i2;
1597}
1598void SaveWindowFile(char *path,WINDOW_INFO *pWindowInfo,int NumberOfWindowInfo){
1599 extern HANDLE hHeap;
1600 extern MDIINFO MdiInfo[MAX_WNDNUM];
1601 extern PROJECTINFO ProjectInfo;
1602 int i,i2,i3,size;
1603 char *buffer,*temporary;
1604
1605 size=2;
1606 buffer=(char *)HeapAlloc(hHeap,0,GENERAL_SIZE*size);
1607 for(i=0,i2=0;i<NumberOfWindowInfo;i++){
1608 sprintf(buffer+i2,"WINDOW:%s\r\n",pWindowInfo[i].name);
1609 i2+=lstrlen(buffer+i2);
1610 sprintf(buffer+i2," HANDLE = %s\r\n",pWindowInfo[i].HandleName);
1611 i2+=lstrlen(buffer+i2);
1612 sprintf(buffer+i2," POINT = %d,%d\r\n",pWindowInfo[i].pos.x,pWindowInfo[i].pos.y);
1613 i2+=lstrlen(buffer+i2);
1614 sprintf(buffer+i2," SIZE = %d,%d\r\n",pWindowInfo[i].size.cx,pWindowInfo[i].size.cy);
1615 i2+=lstrlen(buffer+i2);
1616 sprintf(buffer+i2," CAPTION = \"%s\"\r\n",pWindowInfo[i].caption);
1617 i2+=lstrlen(buffer+i2);
1618 sprintf(buffer+i2," STYLE = &H%08x\r\n",pWindowInfo[i].style);
1619 i2+=lstrlen(buffer+i2);
1620 sprintf(buffer+i2," EXSTYLE = &H%08x\r\n",pWindowInfo[i].ExStyle);
1621 i2+=lstrlen(buffer+i2);
1622 if(pWindowInfo[i].MenuID){
1623 sprintf(buffer+i2," MENUID = %s\r\n",pWindowInfo[i].MenuID);
1624 i2+=lstrlen(buffer+i2);
1625 }
1626 sprintf(buffer+i2," ID = %d\r\n",pWindowInfo[i].id);
1627 i2+=lstrlen(buffer+i2);
1628 sprintf(buffer+i2," BGCOLOR = %d\r\n",pWindowInfo[i].bgColor);
1629 i2+=lstrlen(buffer+i2);
1630 sprintf(buffer+i2," FONT = %d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,\"%s\"\r\n",
1631 pWindowInfo[i].LogFont.lfHeight,
1632 pWindowInfo[i].LogFont.lfWidth,
1633 pWindowInfo[i].LogFont.lfEscapement,
1634 pWindowInfo[i].LogFont.lfOrientation,
1635 pWindowInfo[i].LogFont.lfWeight,
1636 pWindowInfo[i].LogFont.lfItalic,
1637 pWindowInfo[i].LogFont.lfUnderline,
1638 pWindowInfo[i].LogFont.lfStrikeOut,
1639 pWindowInfo[i].LogFont.lfCharSet,
1640 pWindowInfo[i].LogFont.lfOutPrecision,
1641 pWindowInfo[i].LogFont.lfClipPrecision,
1642 pWindowInfo[i].LogFont.lfQuality,
1643 pWindowInfo[i].LogFont.lfPitchAndFamily,
1644 pWindowInfo[i].LogFont.lfFaceName);
1645 i2+=lstrlen(buffer+i2);
1646 if(pWindowInfo[i].IconResName){
1647 sprintf(buffer+i2," ICONID = %s\r\n",pWindowInfo[i].IconResName);
1648 i2+=lstrlen(buffer+i2);
1649 }
1650 sprintf(buffer+i2," CLASS = \"%s\"\r\n",pWindowInfo[i].ClassName);
1651 i2+=lstrlen(buffer+i2);
1652 sprintf(buffer+i2," CALLBACK = %s\r\n",pWindowInfo[i].CallBackName);
1653 i2+=lstrlen(buffer+i2);
1654 sprintf(buffer+i2," TYPE = %d\r\n",pWindowInfo[i].type);
1655 i2+=lstrlen(buffer+i2);
1656 sprintf(buffer+i2," FILEPATH = %s\r\n",pWindowInfo[i].filepath);
1657 i2+=lstrlen(buffer+i2);
1658 for(i3=0;i3<pWindowInfo[i].NumberOfChildWindows;i3++){
1659 temporary=SetCaptionSequence(pWindowInfo[i].pChildInfo[i3].caption);
1660 sprintf(buffer+i2," ITEM = %s,%d,%d,%d,%d,\"%s\",&H%08x,&H%08x,%d",
1661 pWindowInfo[i].pChildInfo[i3].IdName,
1662 pWindowInfo[i].pChildInfo[i3].pos.x,pWindowInfo[i].pChildInfo[i3].pos.y,
1663 pWindowInfo[i].pChildInfo[i3].size.cx,pWindowInfo[i].pChildInfo[i3].size.cy,
1664 temporary,
1665 pWindowInfo[i].pChildInfo[i3].style,
1666 pWindowInfo[i].pChildInfo[i3].ExStyle,
1667 pWindowInfo[i].pChildInfo[i3].Control
1668 );
1669 i2+=lstrlen(buffer+i2);
1670 HeapDefaultFree(temporary);
1671 if(pWindowInfo[i].pChildInfo[i3].Control==CT_IMAGEBOX){
1672 sprintf(buffer+i2,",%d,\"%s\"",pWindowInfo[i].pChildInfo[i3].ImageCtrlInfo.type,pWindowInfo[i].pChildInfo[i3].ImageCtrlInfo.path);
1673 i2+=lstrlen(buffer+i2);
1674 }
1675 lstrcpy(buffer+i2,"\r\n");
1676 i2+=lstrlen(buffer+i2);
1677 if(i2-GENERAL_SIZE<GENERAL_SIZE){
1678 size++;
1679 buffer=(char *)HeapReAlloc(hHeap,0,buffer,GENERAL_SIZE*size);
1680 }
1681 }
1682 sprintf(buffer+i2,"END\r\n",pWindowInfo[i].name);
1683 i2+=lstrlen(buffer+i2);
1684 if(i2-GENERAL_SIZE<GENERAL_SIZE){
1685 size++;
1686 buffer=(char *)HeapReAlloc(hHeap,0,buffer,GENERAL_SIZE*size);
1687 }
1688 }
1689 for(i=0;i<ProjectInfo.NumberOfMenu;i++){
1690 sprintf(buffer+i2,"MENU:%s\r\n",ProjectInfo.pMenuInfo[i].IdName);
1691 i2+=lstrlen(buffer+i2);
1692 i2+=GetSaveMenuData(buffer+i2,1,ProjectInfo.pMenuInfo[i].pMenuInfo,ProjectInfo.pMenuInfo[i].NumberOfMenu);
1693 sprintf(buffer+i2,"END\r\n",pWindowInfo[i].name);
1694 i2+=lstrlen(buffer+i2);
1695 if(i2-GENERAL_SIZE<GENERAL_SIZE){
1696 size++;
1697 buffer=(char *)HeapReAlloc(hHeap,0,buffer,GENERAL_SIZE*size);
1698 }
1699 }
1700 WriteBuffer(path,buffer,i2);
1701 HeapDefaultFree(buffer);
1702
1703 extern PROJECTINFO ProjectInfo;
1704 ProjectInfo.ModifyOfMaterial=0;
1705}
1706
1707MENU_INFO *GetMenuData(char *buffer,int *pPos,int *pMenuNum){
1708 extern HANDLE hHeap;
1709 int i,i2,i3,i4;
1710 char temporary[MAX_PATH],*temp2,temp3[MAX_PATH];
1711 MENU_INFO *pMenuInfo;
1712
1713 temp2=(char *)HeapAlloc(hHeap,0,lstrlen(buffer)+1);
1714
1715 *pMenuNum=0;
1716 pMenuInfo=(MENU_INFO *)HeapAlloc(hHeap,HEAP_ZERO_MEMORY,1);
1717
1718 for(i=*pPos;;i++){
1719 if(buffer[i]=='\0') return 0;
1720 if((buffer[i]=='\r'&&buffer[i+1]=='\n')||i==0){
1721 if(buffer[i]=='\r'&&buffer[i+1]=='\n') i+=2;
1722 for(i2=0;;i++,i2++){
1723 if(!IsVariableChar(buffer[i])){
1724 temporary[i2]=0;
1725 break;
1726 }
1727 temporary[i2]=buffer[i];
1728 }
1729 if(i2==0){
1730 i--;
1731 continue;
1732 }
1733 if(buffer[i]=='='){
1734 for(i++,i2=0;;i++,i2++){
1735 if((buffer[i]=='\r'&&buffer[i+1]=='\n')||buffer[i]=='\0'){
1736 temp2[i2]=0;
1737 break;
1738 }
1739 temp2[i2]=buffer[i];
1740 }
1741 }
1742 else{
1743 temp2[0]=0;
1744 i2=0;
1745 }
1746
1747
1748 if(lstrcmpi(temporary,"POPUP")==0){
1749 (*pMenuNum)++;
1750 pMenuInfo=(MENU_INFO *)HeapReAlloc(hHeap,HEAP_ZERO_MEMORY,pMenuInfo,(*pMenuNum)*sizeof(MENU_INFO));
1751 i3=*pMenuNum-1;
1752
1753 i4=GetOneParameter(temp2,0,temp3);
1754 RemoveStringQuotes(temp3);
1755 pMenuInfo[i3].caption=(char *)HeapAlloc(hHeap,0,lstrlen(temp3)+1);
1756 lstrcpy(pMenuInfo[i3].caption,temp3);
1757
1758 i4=GetOneParameter(temp2,i4,temp3);
1759 pMenuInfo[i3].state=GetValue(temp3);
1760
1761 pMenuInfo[i3].pMenuInfo=GetMenuData(buffer,&i,&pMenuInfo[i3].NumberOfMenu);
1762 }
1763 else if(lstrcmpi(temporary,"ITEM")==0){
1764 (*pMenuNum)++;
1765 pMenuInfo=(MENU_INFO *)HeapReAlloc(hHeap,HEAP_ZERO_MEMORY,pMenuInfo,(*pMenuNum)*sizeof(MENU_INFO));
1766 i3=*pMenuNum-1;
1767
1768 i4=GetOneParameter(temp2,0,temp3);
1769 pMenuInfo[i3].IdName=(char *)HeapAlloc(hHeap,0,lstrlen(temp3)+1);
1770 lstrcpy(pMenuInfo[i3].IdName,temp3);
1771
1772 i4=GetOneParameter(temp2,i4,temp3);
1773 RemoveStringQuotes(temp3);
1774 pMenuInfo[i3].caption=(char *)HeapAlloc(hHeap,0,lstrlen(temp3)+1);
1775 lstrcpy(pMenuInfo[i3].caption,temp3);
1776
1777 i4=GetOneParameter(temp2,i4,temp3);
1778 pMenuInfo[i3].state=GetValue(temp3);
1779
1780 pMenuInfo[i3].type=0;
1781 }
1782 else if(lstrcmpi(temporary,"SEPARATOR")==0){
1783 (*pMenuNum)++;
1784 pMenuInfo=(MENU_INFO *)HeapReAlloc(hHeap,HEAP_ZERO_MEMORY,pMenuInfo,(*pMenuNum)*sizeof(MENU_INFO));
1785 i3=*pMenuNum-1;
1786
1787 pMenuInfo[i3].type=MFT_SEPARATOR;
1788 }
1789 else if(lstrcmpi(temporary,"END")==0) break;
1790 i--;
1791 }
1792 }
1793 *pPos=i;
1794
1795 HeapDefaultFree(temp2);
1796
1797 return pMenuInfo;
1798}
1799_int8 OpenWindowFile(char *path){
1800 extern HANDLE hHeap;
1801 extern PROJECTINFO ProjectInfo;
1802 int i,i2,i3,i4,i5;
1803 char *buffer,temporary[MAX_PATH],*temp2,temp3[MAX_PATH];
1804 CHILDINFO *pChildInfo;
1805
1806 buffer=ReadBuffer(path);
1807 if(!buffer) return 0;
1808 temp2=(char *)HeapAlloc(hHeap,0,lstrlen(buffer)+1);
1809 ChangeOrSignToDivision(temp2,buffer);
1810 KillSpaces(temp2,buffer);
1811 //temp2はこの後の処理の一時保存バッファにも利用するので解放しない
1812
1813 ProjectInfo.NumberOfMenu=0;
1814 ProjectInfo.pMenuInfo=(MENU_INFO *)HeapAlloc(hHeap,HEAP_ZERO_MEMORY,1);
1815
1816 ProjectInfo.NumberOfWindows=0;
1817 ProjectInfo.pWindowInfo=(WINDOW_INFO *)HeapAlloc(hHeap,0,1);
1818
1819 for(i=0,i3=0;;i++){
1820 if(buffer[i]=='\0') break;
1821 if((buffer[i]=='\r'&&buffer[i+1]=='\n')||i==0){
1822 if(buffer[i]=='\r'&&buffer[i+1]=='\n') i+=2;
1823 for(i2=0;;i++,i2++){
1824 if(!IsVariableChar(buffer[i])){
1825 temporary[i2]=0;
1826 break;
1827 }
1828 temporary[i2]=buffer[i];
1829 }
1830 if(i2==0){
1831 i--;
1832 continue;
1833 }
1834 if(buffer[i]==':'||buffer[i]=='='){
1835 for(i++,i2=0;;i++,i2++){
1836 if((buffer[i]=='\r'&&buffer[i+1]=='\n')||buffer[i]=='\0'){
1837 temp2[i2]=0;
1838 break;
1839 }
1840 temp2[i2]=buffer[i];
1841 }
1842 }
1843 else{
1844 temp2[0]=0;
1845 i2=0;
1846 }
1847
1848
1849 //////////////
1850 //ウィンドウ
1851 if(lstrcmpi(temporary,"WINDOW")==0&&i3==0){
1852 ProjectInfo.NumberOfWindows++;
1853 ProjectInfo.pWindowInfo=(WINDOW_INFO *)HeapReAlloc(hHeap,HEAP_ZERO_MEMORY,ProjectInfo.pWindowInfo,ProjectInfo.NumberOfWindows*sizeof(WINDOW_INFO));
1854 i4=ProjectInfo.NumberOfWindows-1;
1855 i3=1;
1856
1857 ProjectInfo.pWindowInfo[i4].name=(char *)HeapAlloc(hHeap,0,i2+1);
1858 lstrcpy(ProjectInfo.pWindowInfo[i4].name,temp2);
1859
1860 ProjectInfo.pWindowInfo[i4].NumberOfChildWindows=0;
1861 ProjectInfo.pWindowInfo[i4].pChildInfo=(CHILDINFO *)HeapAlloc(hHeap,HEAP_ZERO_MEMORY,1);
1862 }
1863 else if(lstrcmpi(temporary,"HANDLE")==0&&i3==1){
1864 ProjectInfo.pWindowInfo[i4].HandleName=(char *)HeapAlloc(hHeap,0,i2+1);
1865 lstrcpy(ProjectInfo.pWindowInfo[i4].HandleName,temp2);
1866 }
1867 else if(lstrcmpi(temporary,"POINT")==0&&i3==1){
1868 sscanf(temp2,"%d,%d",
1869 &ProjectInfo.pWindowInfo[i4].pos.x,
1870 &ProjectInfo.pWindowInfo[i4].pos.y);
1871 if(ProjectInfo.pWindowInfo[i4].pos.x==-1) ProjectInfo.pWindowInfo[i4].pos.x=CW_USEDEFAULT;
1872 if(ProjectInfo.pWindowInfo[i4].pos.y==-1) ProjectInfo.pWindowInfo[i4].pos.y=CW_USEDEFAULT;
1873 }
1874 else if(lstrcmpi(temporary,"SIZE")==0&&i3==1){
1875 sscanf(temp2,"%d,%d",
1876 &ProjectInfo.pWindowInfo[i4].size.cx,
1877 &ProjectInfo.pWindowInfo[i4].size.cy);
1878 }
1879 else if(lstrcmpi(temporary,"CAPTION")==0&&i3==1){
1880 if(temp2[0]=='\"'&&temp2[lstrlen(temp2)-1]=='\"'){
1881 temp2[lstrlen(temp2)-1]=0;
1882 ProjectInfo.pWindowInfo[i4].caption=(char *)HeapAlloc(hHeap,0,i2+1);
1883 lstrcpy(ProjectInfo.pWindowInfo[i4].caption,temp2+1);
1884 }
1885 }
1886 else if(lstrcmpi(temporary,"STYLE")==0&&i3==1) ProjectInfo.pWindowInfo[i4].style=GetValue(temp2);
1887 else if(lstrcmpi(temporary,"EXSTYLE")==0&&i3==1) ProjectInfo.pWindowInfo[i4].ExStyle=GetValue(temp2);
1888 else if(lstrcmpi(temporary,"MENUID")==0&&i3==1){
1889 ProjectInfo.pWindowInfo[i4].MenuID=(char *)HeapAlloc(hHeap,0,i2+1);
1890 lstrcpy(ProjectInfo.pWindowInfo[i4].MenuID,temp2);
1891 }
1892 else if(lstrcmpi(temporary,"ID")==0&&i3==1) ProjectInfo.pWindowInfo[i4].id=GetValue(temp2);
1893 else if(lstrcmpi(temporary,"BGCOLOR")==0&&i3==1){
1894 ProjectInfo.pWindowInfo[i4].bgColor=GetValue(temp2);
1895 if(ProjectInfo.dwVersion<=3){
1896 //プロジェクトバージョンが3以前のときは新値に変換する
1897 if(ProjectInfo.pWindowInfo[i4].bgColor==-1)
1898 ProjectInfo.pWindowInfo[i4].bgColor=-(int)RGB(255,255,255);
1899 }
1900 }
1901 else if(lstrcmpi(temporary,"FONT")==0&&i3==1){
1902 i5=GetOneParameter(temp2,0,temp3);
1903 ProjectInfo.pWindowInfo[i4].LogFont.lfHeight=GetValue(temp3);
1904
1905 i5=GetOneParameter(temp2,i5,temp3);
1906 ProjectInfo.pWindowInfo[i4].LogFont.lfWidth=GetValue(temp3);
1907
1908 i5=GetOneParameter(temp2,i5,temp3);
1909 ProjectInfo.pWindowInfo[i4].LogFont.lfEscapement=GetValue(temp3);
1910
1911 i5=GetOneParameter(temp2,i5,temp3);
1912 ProjectInfo.pWindowInfo[i4].LogFont.lfOrientation=GetValue(temp3);
1913
1914 i5=GetOneParameter(temp2,i5,temp3);
1915 ProjectInfo.pWindowInfo[i4].LogFont.lfWeight=GetValue(temp3);
1916
1917 i5=GetOneParameter(temp2,i5,temp3);
1918 ProjectInfo.pWindowInfo[i4].LogFont.lfItalic=(BYTE)GetValue(temp3);
1919
1920 i5=GetOneParameter(temp2,i5,temp3);
1921 ProjectInfo.pWindowInfo[i4].LogFont.lfUnderline=(BYTE)GetValue(temp3);
1922
1923 i5=GetOneParameter(temp2,i5,temp3);
1924 ProjectInfo.pWindowInfo[i4].LogFont.lfStrikeOut=(BYTE)GetValue(temp3);
1925
1926 i5=GetOneParameter(temp2,i5,temp3);
1927 ProjectInfo.pWindowInfo[i4].LogFont.lfCharSet=(BYTE)GetValue(temp3);
1928
1929 i5=GetOneParameter(temp2,i5,temp3);
1930 ProjectInfo.pWindowInfo[i4].LogFont.lfOutPrecision=(BYTE)GetValue(temp3);
1931
1932 i5=GetOneParameter(temp2,i5,temp3);
1933 ProjectInfo.pWindowInfo[i4].LogFont.lfClipPrecision=(BYTE)GetValue(temp3);
1934
1935 i5=GetOneParameter(temp2,i5,temp3);
1936 ProjectInfo.pWindowInfo[i4].LogFont.lfQuality=(BYTE)GetValue(temp3);
1937
1938 i5=GetOneParameter(temp2,i5,temp3);
1939 ProjectInfo.pWindowInfo[i4].LogFont.lfPitchAndFamily=(BYTE)GetValue(temp3);
1940
1941 i5=GetOneParameter(temp2,i5,temp3);
1942 RemoveStringQuotes(temp3);
1943 lstrcpy(ProjectInfo.pWindowInfo[i4].LogFont.lfFaceName,temp3);
1944 }
1945 else if(lstrcmpi(temporary,"ICONID")==0&&i3==1){
1946 ProjectInfo.pWindowInfo[i4].IconResName=(char *)HeapAlloc(hHeap,0,i2+1);
1947 lstrcpy(ProjectInfo.pWindowInfo[i4].IconResName,temp2);
1948 }
1949 else if(lstrcmpi(temporary,"CLASS")==0&&i3==1){
1950 if(temp2[0]=='\"'&&temp2[lstrlen(temp2)-1]=='\"'){
1951 temp2[lstrlen(temp2)-1]=0;
1952 ProjectInfo.pWindowInfo[i4].ClassName=(char *)HeapAlloc(hHeap,0,i2+1);
1953 lstrcpy(ProjectInfo.pWindowInfo[i4].ClassName,temp2+1);
1954 }
1955 }
1956 else if(lstrcmpi(temporary,"CALLBACK")==0&&i3==1){
1957 ProjectInfo.pWindowInfo[i4].CallBackName=(char *)HeapAlloc(hHeap,0,i2+1);
1958 lstrcpy(ProjectInfo.pWindowInfo[i4].CallBackName,temp2);
1959 }
1960
1961 //以前のバージョンとの互換用
1962 else if(lstrcmpi(temporary,"DLGTMP")==0&&i3==1) ProjectInfo.pWindowInfo[i4].type=GetValue(temp2);
1963
1964 else if(lstrcmpi(temporary,"TYPE")==0&&i3==1) ProjectInfo.pWindowInfo[i4].type=GetValue(temp2);
1965 else if(lstrcmpi(temporary,"FILEPATH")==0&&i3==1){
1966 ProjectInfo.pWindowInfo[i4].filepath=(char *)HeapAlloc(hHeap,0,i2+1);
1967 lstrcpy(ProjectInfo.pWindowInfo[i4].filepath,temp2);
1968 }
1969 else if(lstrcmpi(temporary,"ITEM")==0&&i3==1){
1970 ProjectInfo.pWindowInfo[i4].pChildInfo=(CHILDINFO *)HeapReAlloc(hHeap,HEAP_ZERO_MEMORY,ProjectInfo.pWindowInfo[i4].pChildInfo,(ProjectInfo.pWindowInfo[i4].NumberOfChildWindows+1)*sizeof(CHILDINFO));
1971 pChildInfo=&ProjectInfo.pWindowInfo[i4].pChildInfo[ProjectInfo.pWindowInfo[i4].NumberOfChildWindows];
1972
1973 //ID
1974 i5=GetOneParameter(temp2,0,temp3);
1975 pChildInfo->IdName=(char *)HeapAlloc(hHeap,0,lstrlen(temp3)+1);
1976 lstrcpy(pChildInfo->IdName,temp3);
1977
1978 //位置
1979 i5=GetOneParameter(temp2,i5,temp3);
1980 pChildInfo->pos.x=GetValue(temp3);
1981 i5=GetOneParameter(temp2,i5,temp3);
1982 pChildInfo->pos.y=GetValue(temp3);
1983 i5=GetOneParameter(temp2,i5,temp3);
1984 pChildInfo->size.cx=GetValue(temp3);
1985 i5=GetOneParameter(temp2,i5,temp3);
1986 pChildInfo->size.cy=GetValue(temp3);
1987
1988 //テキスト
1989 i5=GetOneParameter(temp2,i5,temp3);
1990 RemoveStringQuotes(temp3);
1991 RestoreCaptionSequence(temp3);
1992 pChildInfo->caption=(char *)HeapAlloc(hHeap,0,lstrlen(temp3)+1);
1993 lstrcpy(pChildInfo->caption,temp3);
1994
1995 //スタイル
1996 i5=GetOneParameter(temp2,i5,temp3);
1997 pChildInfo->style=GetValue(temp3);
1998
1999 //拡張スタイル
2000 i5=GetOneParameter(temp2,i5,temp3);
2001 pChildInfo->ExStyle=GetValue(temp3);
2002
2003 //クラス
2004 i5=GetOneParameter(temp2,i5,temp3);
2005 pChildInfo->Control=GetValue(temp3);
2006
2007 if(pChildInfo->Control==CT_IMAGEBOX){
2008 //イメージ ボックスの場合
2009 i5=GetOneParameter(temp2,i5,temp3);
2010 pChildInfo->ImageCtrlInfo.type=GetValue(temp3);
2011 i5=GetOneParameter(temp2,i5,temp3);
2012 RemoveStringQuotes(temp3);
2013 pChildInfo->ImageCtrlInfo.path=(char *)HeapAlloc(hHeap,0,lstrlen(temp3)+1);
2014 lstrcpy(pChildInfo->ImageCtrlInfo.path,temp3);
2015 }
2016
2017 ProjectInfo.pWindowInfo[i4].NumberOfChildWindows++;
2018 }
2019
2020
2021 ////////////
2022 //メニュー
2023 else if(lstrcmpi(temporary,"MENU")==0&&i3==0){
2024 ProjectInfo.NumberOfMenu++;
2025 ProjectInfo.pMenuInfo=(MENU_INFO *)HeapReAlloc(hHeap,HEAP_ZERO_MEMORY,ProjectInfo.pMenuInfo,ProjectInfo.NumberOfMenu*sizeof(MENU_INFO));
2026 i4=ProjectInfo.NumberOfMenu-1;
2027
2028 //ID名
2029 ProjectInfo.pMenuInfo[i4].IdName=(char *)HeapAlloc(hHeap,0,lstrlen(temp2)+1);
2030 lstrcpy(ProjectInfo.pMenuInfo[i4].IdName,temp2);
2031 ProjectInfo.pMenuInfo[i4].pMenuInfo=GetMenuData(buffer,&i,&ProjectInfo.pMenuInfo[i4].NumberOfMenu);
2032 if(!ProjectInfo.pMenuInfo[i4].pMenuInfo){
2033 //"ウィンドウ定義ファイルが壊れています。\n\n%s"
2034 sprintf(temporary,STRING_ERROR_BROKEN_WNDFILE,path);
2035 MessageBox(hOwner,temporary,STRING_ERROR,MB_OK|MB_ICONEXCLAMATION);
2036
2037 HeapDefaultFree(temp2);
2038 HeapDefaultFree(buffer);
2039 return 0;
2040 }
2041 }
2042
2043
2044 else if(lstrcmpi(temporary,"END")==0&&i3) i3=0;
2045 else{
2046 //"ウィンドウ定義ファイルが壊れています。\n\n%s"
2047 sprintf(temporary,STRING_ERROR_BROKEN_WNDFILE,path);
2048 MessageBox(hOwner,temporary,APPLICATION_NAME,MB_OK|MB_ICONEXCLAMATION);
2049
2050 HeapDefaultFree(temp2);
2051 HeapDefaultFree(buffer);
2052 return 0;
2053 }
2054 i--;
2055 }
2056 }
2057
2058 HeapDefaultFree(temp2);
2059 HeapDefaultFree(buffer);
2060 return 1;
2061}
2062
2063struct NEW_WINDOW{
2064 char name[MAX_PATH];
2065 char HandleName[MAX_PATH];
2066 char CallBackName[MAX_PATH];
2067 BOOL type;
2068};
2069NEW_WINDOW NewWindow;
2070BOOL CALLBACK DlgProject_NewWindow(HWND hwnd,UINT message,WPARAM wParam,LPARAM lParam){
2071 char temporary[MAX_PATH],temp2[MAX_PATH];
2072 switch(message){
2073 case WM_INITDIALOG:
2074 SetPosCenter(hwnd);
2075 SendDlgItemMessage(hwnd,IDC_AUTOSET,BM_SETCHECK,BST_CHECKED,0);
2076 SendMessage(hwnd,WM_COMMAND,IDC_AUTOSET,0);
2077 SendDlgItemMessage(hwnd,IDC_MODALDLG,BM_SETCHECK,BST_CHECKED,0);
2078 break;
2079 case WM_COMMAND:
2080 switch(LOWORD(wParam)){
2081 case IDOK:
2082 GetDlgItemText(hwnd,IDC_WINDOWNAME,NewWindow.name,MAX_PATH);
2083 GetDlgItemText(hwnd,IDC_WINDOWHANDLE,NewWindow.HandleName,MAX_PATH);
2084 GetDlgItemText(hwnd,IDC_WINDOWPROC,NewWindow.CallBackName,MAX_PATH);
2085 if(SendDlgItemMessage(hwnd,IDC_DEFWINDOW,BM_GETCHECK,0,0))
2086 NewWindow.type=WNDTYPE_DEFAULT;
2087 else if(SendDlgItemMessage(hwnd,IDC_MODALDLG,BM_GETCHECK,0,0))
2088 NewWindow.type=WNDTYPE_MODALDLG;
2089 else if(SendDlgItemMessage(hwnd,IDC_MODELESSDLG,BM_GETCHECK,0,0))
2090 NewWindow.type=WNDTYPE_MODELESSDLG;
2091 EndDialog(hwnd,1);
2092 return 1;
2093 case IDCANCEL:
2094 EndDialog(hwnd,0);
2095 return 1;
2096 case IDC_WINDOWNAME:
2097 if(HIWORD(wParam)==EN_CHANGE) SendMessage(hwnd,WM_COMMAND,IDC_AUTOSET,0);
2098 return 1;
2099 case IDC_AUTOSET:
2100 if(SendDlgItemMessage(hwnd,IDC_AUTOSET,BM_GETCHECK,0,0)){
2101 SendDlgItemMessage(hwnd,IDC_WINDOWHANDLE,EM_SETREADONLY,1,0);
2102 SendDlgItemMessage(hwnd,IDC_WINDOWPROC,EM_SETREADONLY,1,0);
2103 GetDlgItemText(hwnd,IDC_WINDOWNAME,temporary,MAX_PATH);
2104 if(temporary[0]){
2105 sprintf(temp2,"h%s",temporary);
2106 SetDlgItemText(hwnd,IDC_WINDOWHANDLE,temp2);
2107 sprintf(temp2,"%sProc",temporary);
2108 SetDlgItemText(hwnd,IDC_WINDOWPROC,temp2);
2109 }
2110 else{
2111 SetDlgItemText(hwnd,IDC_WINDOWHANDLE,"");
2112 SetDlgItemText(hwnd,IDC_WINDOWPROC,"");
2113 }
2114 }
2115 else{
2116 SendDlgItemMessage(hwnd,IDC_WINDOWHANDLE,EM_SETREADONLY,0,0);
2117 SendDlgItemMessage(hwnd,IDC_WINDOWPROC,EM_SETREADONLY,0,0);
2118 }
2119 return 1;
2120 }
2121 break;
2122 }
2123 return 0;
2124}
2125void GetDefaultWindowFont(LOGFONT *LogFont){
2126 LogFont->lfHeight=-12;
2127 LogFont->lfWidth=0;
2128 LogFont->lfEscapement=0;
2129 LogFont->lfOrientation=0;
2130 LogFont->lfWeight=FW_REGULAR;
2131 LogFont->lfItalic=0;
2132 LogFont->lfUnderline=0;
2133 LogFont->lfStrikeOut=0;
2134 LogFont->lfCharSet=SHIFTJIS_CHARSET;
2135 LogFont->lfOutPrecision=OUT_STROKE_PRECIS;
2136 LogFont->lfClipPrecision=CLIP_STROKE_PRECIS;
2137 LogFont->lfQuality=DRAFT_QUALITY;
2138 LogFont->lfPitchAndFamily=FF_SWISS;
2139 lstrcpy(LogFont->lfFaceName,"ＭＳ Ｐゴシック");
2140}
2141void Project_Window_Insert(void){
2142 extern HANDLE hHeap;
2143 extern PROJECTINFO ProjectInfo;
2144 int i;
2145 char temporary[MAX_PATH],temp2[1024],*pTemp;
2146
2147 if(!DialogBox(hResInst,MAKEINTRESOURCE(IDD_PROJECT_NEWWINDOW),hOwner,(DLGPROC)DlgProject_NewWindow)) return;
2148
2149 //重複チェック
2150 sprintf(temporary,"%s.sbp",NewWindow.name);
2151 if(ProjectInfo.pobj_DBFileInfo->dupli_check(temporary)){
2152 sprintf(temp2,"\"%s\" ファイルは既にプロジェクト内に存在します。",temporary);
2153 MessageBox(hOwner,temp2,APPLICATION_NAME,MB_OK|MB_ICONEXCLAMATION);
2154 return;
2155 }
2156 for(i=0;i<ProjectInfo.NumberOfWindows;i++){
2157 if(lstrcmpi(NewWindow.name,ProjectInfo.pWindowInfo[i].name)==0){
2158 //"\"%s\" ウィンドウは既にプロジェクト内に存在します。"
2159 sprintf(temporary,STRING_DUPLICATIONERROR_WINDOW_IN_PROJECT,ProjectInfo.pWindowInfo[i].name);
2160 MessageBox(hOwner,temporary,STRING_ERROR,MB_OK|MB_ICONEXCLAMATION);
2161 return;
2162 }
2163 if(lstrcmpi(NewWindow.HandleName,ProjectInfo.pWindowInfo[i].HandleName)==0){
2164 //"\"%s\" ハンドルは既にプロジェクト内に存在します。"
2165 sprintf(temporary,STRING_DUPLICATIONERROR_HANDLE_IN_PROJECT,ProjectInfo.pWindowInfo[i].HandleName);
2166 MessageBox(hOwner,temporary,STRING_ERROR,MB_OK|MB_ICONEXCLAMATION);
2167 return;
2168 }
2169 if(lstrcmpi(NewWindow.CallBackName,ProjectInfo.pWindowInfo[i].CallBackName)==0){
2170 //"\"%s\" プロシージャは既にプロジェクト内に存在します。"
2171 sprintf(temporary,STRING_DUPLICATIONERROR_PROC_IN_PROJECT,ProjectInfo.pWindowInfo[i].CallBackName);
2172 MessageBox(hOwner,temporary,STRING_ERROR,MB_OK|MB_ICONEXCLAMATION);
2173 return;
2174 }
2175 }
2176
2177 //ProjectInfo.pWindowInfo構造体に追加
2178 ProjectInfo.pWindowInfo=(WINDOW_INFO *)HeapReAlloc(hHeap,0,ProjectInfo.pWindowInfo,(ProjectInfo.NumberOfWindows+1)*sizeof(WINDOW_INFO));
2179
2180
2181 ///////////////////////////////////////
2182 //ProjectInfo.pWindowInfo構造体を設定
2183
2184 //ウィンドウ名
2185 ProjectInfo.pWindowInfo[ProjectInfo.NumberOfWindows].name=(char *)HeapAlloc(hHeap,0,lstrlen(NewWindow.name)+1);
2186 lstrcpy(ProjectInfo.pWindowInfo[ProjectInfo.NumberOfWindows].name,NewWindow.name);
2187
2188 //ハンドル名
2189 ProjectInfo.pWindowInfo[ProjectInfo.NumberOfWindows].HandleName=(char *)HeapAlloc(hHeap,0,lstrlen(NewWindow.HandleName)+1);
2190 lstrcpy(ProjectInfo.pWindowInfo[ProjectInfo.NumberOfWindows].HandleName,NewWindow.HandleName);
2191
2192 //位置情報
2193 ProjectInfo.pWindowInfo[ProjectInfo.NumberOfWindows].pos.x=-1;
2194 ProjectInfo.pWindowInfo[ProjectInfo.NumberOfWindows].pos.y=-1;
2195 ProjectInfo.pWindowInfo[ProjectInfo.NumberOfWindows].size.cx=480;
2196 ProjectInfo.pWindowInfo[ProjectInfo.NumberOfWindows].size.cy=360;
2197
2198 //ウィンドウテキスト
2199 ProjectInfo.pWindowInfo[ProjectInfo.NumberOfWindows].caption=(char *)HeapAlloc(hHeap,0,lstrlen(NewWindow.name)+1);
2200 lstrcpy(ProjectInfo.pWindowInfo[ProjectInfo.NumberOfWindows].caption,NewWindow.name);
2201
2202 //スタイル
2203 switch(NewWindow.type){
2204 case WNDTYPE_DEFAULT:
2205 //通常ウィンドウ
2206 ProjectInfo.pWindowInfo[ProjectInfo.NumberOfWindows].style=WS_OVERLAPPED|WS_CAPTION|WS_SYSMENU|WS_THICKFRAME|WS_MINIMIZEBOX|WS_MAXIMIZEBOX;
2207 break;
2208 case WNDTYPE_MODALDLG:
2209 case WNDTYPE_MODELESSDLG:
2210 //ダイアログ テンプレート（最大化、最小化ボタンをなくして、細枠にする）
2211 ProjectInfo.pWindowInfo[ProjectInfo.NumberOfWindows].style=WS_OVERLAPPED|WS_CAPTION|WS_SYSMENU;
2212 break;
2213 }
2214
2215 //拡張スタイル
2216 ProjectInfo.pWindowInfo[ProjectInfo.NumberOfWindows].ExStyle=0;
2217
2218 //メニュー
2219 ProjectInfo.pWindowInfo[ProjectInfo.NumberOfWindows].MenuID=0;
2220
2221 //ID
2222 ProjectInfo.pWindowInfo[ProjectInfo.NumberOfWindows].id=0;
2223
2224 //背景色
2225 ProjectInfo.pWindowInfo[ProjectInfo.NumberOfWindows].bgColor=COLOR_3DFACE;
2226
2227 //フォント
2228 GetDefaultWindowFont(&ProjectInfo.pWindowInfo[ProjectInfo.NumberOfWindows].LogFont);
2229
2230 //アイコン
2231 ProjectInfo.pWindowInfo[ProjectInfo.NumberOfWindows].IconResName=0;
2232
2233 //クラス名
2234 lstrcpy(temporary,"NORMAL");
2235 ProjectInfo.pWindowInfo[ProjectInfo.NumberOfWindows].ClassName=(char *)HeapAlloc(hHeap,0,lstrlen(temporary)+1);
2236 lstrcpy(ProjectInfo.pWindowInfo[ProjectInfo.NumberOfWindows].ClassName,temporary);
2237
2238 //コールバック関数名
2239 ProjectInfo.pWindowInfo[ProjectInfo.NumberOfWindows].CallBackName=(char *)HeapAlloc(hHeap,0,lstrlen(NewWindow.CallBackName)+1);
2240 lstrcpy(ProjectInfo.pWindowInfo[ProjectInfo.NumberOfWindows].CallBackName,NewWindow.CallBackName);
2241
2242 //タイプ識別
2243 ProjectInfo.pWindowInfo[ProjectInfo.NumberOfWindows].type=NewWindow.type;
2244
2245 //子ウィンドウ情報
2246 ProjectInfo.pWindowInfo[ProjectInfo.NumberOfWindows].NumberOfChildWindows=0;
2247 ProjectInfo.pWindowInfo[ProjectInfo.NumberOfWindows].pChildInfo=(CHILDINFO *)HeapAlloc(hHeap,HEAP_ZERO_MEMORY,1);
2248
2249
2250 //メッセージ処理ファイル名
2251 sprintf(temporary,"%s.ab",ProjectInfo.pWindowInfo[ProjectInfo.NumberOfWindows].name);
2252 ProjectInfo.pWindowInfo[ProjectInfo.NumberOfWindows].filepath=(char *)HeapAlloc(hHeap,0,lstrlen(temporary)+1);
2253 lstrcpy(ProjectInfo.pWindowInfo[ProjectInfo.NumberOfWindows].filepath,temporary);
2254
2255
2256 //////////////////////////
2257 // メッセージ処理ファイル
2258 //////////////////////////
2259
2260 //テンプレートを読み込む
2261 const std::string newWindowTemplateSbpPath = ActiveBasic::Common::Environment::GetAbdevSystemDirPath() + "\\new_window_template.sbp";
2262 pTemp = ReadBuffer( newWindowTemplateSbpPath );
2263
2264 //#name#をプロジェクト名に置換
2265 pTemp=PermutationWndPgmTemplate(pTemp,
2266 ProjectInfo.name,
2267 NewWindow.name,
2268 NewWindow.HandleName,
2269 NewWindow.CallBackName);
2270
2271 sprintf(temporary,"%s%s.ab",ProjectInfo.dir,ProjectInfo.pWindowInfo[ProjectInfo.NumberOfWindows].name);
2272
2273 //書き込み
2274 WriteBuffer(temporary,pTemp,lstrlen(pTemp));
2275 Project_File_Insert(temporary);
2276
2277 HeapDefaultFree(pTemp);
2278
2279
2280 //////////////////////
2281 //ツリービューに追加
2282
2283 extern HWND hMaterialTreeView;
2284 TV_INSERTSTRUCT tv;
2285 tv.hInsertAfter=TVI_SORT;
2286 tv.item.mask=TVIF_TEXT|TVIF_IMAGE|TVIF_SELECTEDIMAGE;
2287 tv.item.iImage=2;
2288 tv.item.iSelectedImage=2;
2289 tv.hParent=ProjectInfo.hWindowTreeItem;
2290 tv.item.pszText=ProjectInfo.pWindowInfo[ProjectInfo.NumberOfWindows].name;
2291
2292 ProjectInfo.pWindowInfo[ProjectInfo.NumberOfWindows].hTreeItem=TreeView_InsertItem(hMaterialTreeView,&tv);
2293
2294 TreeView_SelectItem(hMaterialTreeView,ProjectInfo.pWindowInfo[ProjectInfo.NumberOfWindows].hTreeItem);
2295
2296
2297 ProjectInfo.NumberOfWindows++;
2298 ProjectInfo.ModifyOfMaterial=1;
2299
2300 NewRadWindow(ProjectInfo.NumberOfWindows-1);
2301}
2302void Project_Window_Delete(int WndInfoNum){
2303 extern HANDLE hHeap;
2304 extern MDIINFO MdiInfo[MAX_WNDNUM];
2305 extern PROJECTINFO ProjectInfo;
2306 int i;
2307
2308 //ウィンドウが開かれている場合は閉じる
2309 for(i=0;i<MAX_WNDNUM;i++){
2310 if(MdiInfo[i].hwnd&&lstrcmpi(ProjectInfo.pWindowInfo[WndInfoNum].name,MdiInfo[i].path)==0){
2311 SendMessage(MdiInfo[i].hwnd,WM_CLOSE,0,0);
2312 break;
2313 }
2314 }
2315
2316 //ウィンドウ情報のメモリを解放
2317 HeapDefaultFree(ProjectInfo.pWindowInfo[WndInfoNum].name);
2318 HeapDefaultFree(ProjectInfo.pWindowInfo[WndInfoNum].filepath);
2319 HeapDefaultFree(ProjectInfo.pWindowInfo[WndInfoNum].HandleName);
2320 HeapDefaultFree(ProjectInfo.pWindowInfo[WndInfoNum].caption);
2321 HeapDefaultFree(ProjectInfo.pWindowInfo[WndInfoNum].ClassName);
2322 HeapDefaultFree(ProjectInfo.pWindowInfo[WndInfoNum].CallBackName);
2323
2324 //子ウィンドウのメモリを解放
2325 for(i=0;i<ProjectInfo.pWindowInfo[WndInfoNum].NumberOfChildWindows;i++){
2326 HeapDefaultFree(ProjectInfo.pWindowInfo[WndInfoNum].pChildInfo[i].IdName);
2327 HeapDefaultFree(ProjectInfo.pWindowInfo[WndInfoNum].pChildInfo[i].caption);
2328 }
2329 HeapDefaultFree(ProjectInfo.pWindowInfo[WndInfoNum].pChildInfo);
2330
2331 //ツリービューから削除
2332 extern HWND hMaterialTreeView;
2333 TreeView_DeleteItem(hMaterialTreeView,ProjectInfo.pWindowInfo[WndInfoNum].hTreeItem);
2334
2335 //ProjectInfo.pWindowInfo構造体から削除
2336 ProjectInfo.NumberOfWindows--;
2337 for(i=WndInfoNum;i<ProjectInfo.NumberOfWindows;i++) ProjectInfo.pWindowInfo[i]=ProjectInfo.pWindowInfo[i+1];
2338 if(ProjectInfo.NumberOfWindows==0) ProjectInfo.pWindowInfo=(WINDOW_INFO *)HeapReAlloc(hHeap,0,ProjectInfo.pWindowInfo,1);
2339 else ProjectInfo.pWindowInfo=(WINDOW_INFO *)HeapReAlloc(hHeap,0,ProjectInfo.pWindowInfo,ProjectInfo.NumberOfWindows*sizeof(WINDOW_INFO));
2340
2341 ProjectInfo.ModifyOfMaterial=1;
2342}
Note: See TracBrowser for help on using the repository browser.