Context Navigation

source: dev/ProjectEditor/ParameterHint.cpp@ 27

Last change on this file since 27 was 24, checked in by dai_9181, 18 years ago
保存されていないドキュメントのタブに(*)をつける機能に対応。 MDITEXTEDITINFOをCMdiTextEditに変更。今後、オブジェクト指向化を進める。
File size: 34.0 KB

Line
1	#include "common.h"
2
3	void ShowCommandMessage(void);
4
5	BOOL CheckGrammar(char *buffer){
6	int i,IsStr,PareNum;
7
8	for(i=0,IsStr=0,PareNum=0;;i++){
9	if(buffer[i]=='\"') IsStr^=1;
10	else if(buffer[i]=='(') PareNum++;
11	else if(buffer[i]==')') PareNum--;
12	else if(buffer[i]=='\0'\|\|(buffer[i]=='\r'&&buffer[i+1]=='\n')){
13	if(IsStr\|\|PareNum) return 0;
14	if(buffer[i]=='\0') break;
15	i++;
16	continue;
17	}
18	else if(buffer[i]=='\''&&IsStr==0){
19	while(!(buffer[i]=='\0'\|\|(buffer[i]=='\r'&&buffer[i+1]=='\n'))) i++;
20	i--;
21	continue;
22	}
23	}
24	return 1;
25	}
26
27	char *GetUserSourceCode(void){
28	//単体ファイルのときはそのファイルを、プロジェクトのときはpjname.abの内容を取得
29	extern HANDLE hHeap;
30	extern PROJECTINFO ProjectInfo;
31	int i;
32	char temporary[MAX_PATH],*pBuf;
33
34	if(ProjectInfo.name[0]){
35	//プロジェクトが開かれているとき
36	lstrcpy(temporary,ProjectInfo.pobj_DBFileInfo->ppobj_FileInfo[0]->m_path);
37	GetFullPath(temporary,ProjectInfo.dir);
38
39	extern MDIINFO MdiInfo[MAX_WNDNUM];
40	for(i=0;i<MAX_WNDNUM;i++){
41	if(MdiInfo[i].hwnd){
42	if(lstrcmpi(MdiInfo[i].path,temporary)==0) break;
43	}
44	}
45	if(i==MAX_WNDNUM){
46	//ファイルから開く
47	pBuf=ReadBuffer(temporary);
48	}
49	else{
50	//エディタから読み込む
51	pBuf=(char *)HeapAlloc(hHeap,0,lstrlen(MdiInfo[i].pMdiTextEdit->buffer)+1);
52	lstrcpy(pBuf,MdiInfo[i].pMdiTextEdit->buffer);
53	}
54	}
55	else{
56	//単体ソースコードのとき
57	extern MDIINFO MdiInfo[MAX_WNDNUM];
58	int WndNum;
59
60	WndNum=GetWndNum(GetWindow(hClient,GW_CHILD));
61
62	pBuf=(char *)HeapAlloc(hHeap,0,lstrlen(MdiInfo[WndNum].pMdiTextEdit->buffer)+1);
63	lstrcpy(pBuf,MdiInfo[WndNum].pMdiTextEdit->buffer);
64	}
65
66	//ファイルをインクルード
67	pBuf=IncludeFiles(pBuf);
68
69	return pBuf;
70	}
71
72	BOOL SetCommandMessageToMethodCheck(char *Command){
73	extern METHODCHECKINFO MethodCheckInfo;
74	int CmdValue;
75
76	CmdValue=IsBasicReservedWord(Command);
77	if(CmdValue==COM_ABSTRACT) lstrcpy(MethodCheckInfo.msg,"Abstract Sub/Function ([arglist]) [As type]]");
78	else if(CmdValue==COM_BEEP) lstrcpy(MethodCheckInfo.msg,"Beep");
79	else if(CmdValue==COM_CHDIR) lstrcpy(MethodCheckInfo.msg,"ChDir directory$");
80	else if(CmdValue==COM_CIRCLE) lstrcpy(MethodCheckInfo.msg,"Circle (x, y), radius, [color], [start], [end], [aspect], [f], [brushcolor]");
81	else if(CmdValue==COM_CLOSE) lstrcpy(MethodCheckInfo.msg,"Close [filenumber]");
82	else if(CmdValue==COM_CLASS) lstrcpy(MethodCheckInfo.msg,"Class name");
83	else if(CmdValue==COM_CLS) lstrcpy(MethodCheckInfo.msg,"Cls [number]");
84	else if(CmdValue==COM_COLOR) lstrcpy(MethodCheckInfo.msg,"Color color, [backcolor]");
85	else if(CmdValue==COM_CONST) lstrcpy(MethodCheckInfo.msg,"Const constname = expression");
86	else if(CmdValue==COM_DEBUG) lstrcpy(MethodCheckInfo.msg,"Debug");
87	else if(CmdValue==COM_DECLARE) lstrcpy(MethodCheckInfo.msg,"Declare Sub/Function name Lib \"libname\" [Alias \"aliasname\"] ([arglist]) [As type]]");
88	else if(CmdValue==COM_DEF) lstrcpy(MethodCheckInfo.msg,"Def func([parms] [,parms2])=expression");
89	else if(CmdValue==COM_DIM) lstrcpy(MethodCheckInfo.msg,"Dim variable [(subscripts)] As type, ...");
90	else if(CmdValue==COM_END) lstrcpy(MethodCheckInfo.msg,"End [type]");
91	else if(CmdValue==COM_ENUM) lstrcpy(MethodCheckInfo.msg,"Enum name");
92	else if(CmdValue==COM_FIELD) lstrcpy(MethodCheckInfo.msg,"Field #filenumber, fieldbyte");
93	else if(CmdValue==COM_FOR) lstrcpy(MethodCheckInfo.msg,"For variable=start To end [Step step]");
94	else if(CmdValue==COM_FUNCTION) lstrcpy(MethodCheckInfo.msg,"Function name ([arglist]) [As type]");
95	else if(CmdValue==COM_GET) lstrcpy(MethodCheckInfo.msg,"Get #filenumber, recode, StrBuffer");
96	else if(CmdValue==COM_GOSUB) lstrcpy(MethodCheckInfo.msg,"GoSub label");
97	else if(CmdValue==COM_GOTO) lstrcpy(MethodCheckInfo.msg,"Goto label");
98	else if(CmdValue==COM_IF) lstrcpy(MethodCheckInfo.msg,"If judgment Then truecommand [Else falsecommand]");
99	else if(CmdValue==COM_INHERITS) lstrcpy(MethodCheckInfo.msg,"Inherits BaseClass");
100	else if(CmdValue==COM_INPUT) lstrcpy(MethodCheckInfo.msg,"Input [# filenumber, ] variable, [...]");
101	else if(CmdValue==COM_INTERFACE) lstrcpy(MethodCheckInfo.msg,"Interface name");
102	else if(CmdValue==COM_KILL) lstrcpy(MethodCheckInfo.msg,"Kill filename$");
103	else if(CmdValue==COM_LET) lstrcpy(MethodCheckInfo.msg,"[Let] variable = expression");
104	else if(CmdValue==COM_LINE) lstrcpy(MethodCheckInfo.msg,"Line [(sx, sy)] -[Step] (ex, ey), [color], [B/Bf], [color2]");
105	else if(CmdValue==COM_LOCATE) lstrcpy(MethodCheckInfo.msg,"Locate x, y");
106	else if(CmdValue==COM_LOOP) lstrcpy(MethodCheckInfo.msg,"Loop while/until judgment");
107	else if(CmdValue==COM_MKDIR) lstrcpy(MethodCheckInfo.msg,"MkDir directory$");
108	else if(CmdValue==COM_MSGBOX) lstrcpy(MethodCheckInfo.msg,"MsgBox hWnd, String$, [Title$], [BoxType], [retAns]");
109	else if(CmdValue==COM_NEXT) lstrcpy(MethodCheckInfo.msg,"Next");
110	else if(CmdValue==COM_OPEN) lstrcpy(MethodCheckInfo.msg,"Open filename$ [For Input/Output/Append] As number");
111	else if(CmdValue==COM_PAINT) lstrcpy(MethodCheckInfo.msg,"Paint (x, y), brushcolor, [linecolor]");
112	else if(CmdValue==COM_PRINT) lstrcpy(MethodCheckInfo.msg,"Print outdata, [...]");
113	else if(CmdValue==COM_PRIVATE) lstrcpy(MethodCheckInfo.msg,"Private");
114	else if(CmdValue==COM_PROTECTED) lstrcpy(MethodCheckInfo.msg,"Protected");
115	else if(CmdValue==COM_PSET) lstrcpy(MethodCheckInfo.msg,"PSet (x, y), [color]");
116	else if(CmdValue==COM_PUBLIC) lstrcpy(MethodCheckInfo.msg,"Public");
117	else if(CmdValue==COM_PUT) lstrcpy(MethodCheckInfo.msg,"Put #filenumber, recode, StrBuffer");
118	else if(CmdValue==COM_RANDOMIZE) lstrcpy(MethodCheckInfo.msg,"Randomize [number]");
119	else if(CmdValue==COM_REM) lstrcpy(MethodCheckInfo.msg,"Rem [comment]");
120	else if(CmdValue==COM_RETURN) lstrcpy(MethodCheckInfo.msg,"Return");
121	else if(CmdValue==COM_SELECT) lstrcpy(MethodCheckInfo.msg,"Select Case testexpression");
122	else if(CmdValue==COM_SUB) lstrcpy(MethodCheckInfo.msg,"Sub name ([arglist])");
123	else if(CmdValue==COM_TYPE) lstrcpy(MethodCheckInfo.msg,"Type name");
124	else if(CmdValue==COM_TYPEDEF) lstrcpy(MethodCheckInfo.msg,"TypeDef newtype = basetype");
125	else if(CmdValue==COM_VIRTUAL) lstrcpy(MethodCheckInfo.msg,"Virtual Sub/Function ([arglist]) [As type]]");
126	else if(CmdValue==COM_OVERRIDE) lstrcpy(MethodCheckInfo.msg,"Override Sub/Function ([arglist]) [As type]]");
127	else if(CmdValue==COM_WEND) lstrcpy(MethodCheckInfo.msg,"Wend");
128	else if(CmdValue==COM_WHILE) lstrcpy(MethodCheckInfo.msg,"While judgment");
129	else if(CmdValue==COM_WINDOW) lstrcpy(MethodCheckInfo.msg,"Window hWnd, OwnerWnd, x, y, width, height, title$, style, [class$], [ID], [callbackfunction], [ExStyle]");
130	else if(CmdValue==COM_WITH) lstrcpy(MethodCheckInfo.msg,"With object");
131	else if(CmdValue==COM_WRITE) lstrcpy(MethodCheckInfo.msg,"Write [data, ...]");
132	else return 0;
133	return 1;
134	}
135
136	void ChangeReturnCode(char *buffer){
137	//改行コードのCRLFをLFに変換
138	int i,i2;
139	for(i=0,i2=0;;i++,i2++){
140	if(buffer[i]=='\r'&&buffer[i+1]=='\n') i++;
141	buffer[i2]=buffer[i];
142	if(buffer[i]=='\0') break;
143	}
144	}
145	void DeleteComment(char *buffer){ //注釈「'」の取り除き
146	int i,i2,i3,IsStr;
147	char *temporary;
148	temporary=(char *)GlobalAlloc(GMEM_FIXED,lstrlen(buffer)+1);
149	for(i=0,i2=0,i3=0,IsStr=0;;i++,i2++){
150	if(buffer[i]=='\"') IsStr^=1;
151	if(buffer[i]=='\n'\|\|buffer[i]=='\0'){
152	i2--;
153	while(temporary[i2]==' '\|\|temporary[i2]=='\t') i2--;
154	i2++;
155
156	if(i3){
157	//複数行に渡る注釈文の中に改行が存在するとき
158	memset(temporary+i2,'\n',i3);
159	i2+=i3;
160	i3=0;
161	}
162	}
163	if(buffer[i]=='\''&&IsStr==0){
164	//注釈文
165	i2--;
166	while(temporary[i2]==' '\|\|temporary[i2]=='\t') i2--;
167	i2++;
168	while(buffer[i]!='\n'&&buffer[i]!='\0') i++;
169	}
170	if(buffer[i]=='/'&&buffer[i+1]=='*'&&IsStr==0){
171	//注釈文（複数行）
172	i+=2;
173	i3=0;
174	while(!(buffer[i]=='*'&&buffer[i+1]=='/')){
175	if(buffer[i]=='\n') i3++;
176	if(buffer[i]=='\0') break;
177	i++;
178	}
179	if(buffer[i]){
180	i+=2;
181	}
182	i--;
183	i2--;
184	continue;
185	}
186	temporary[i2]=buffer[i];
187	if(buffer[i]=='\0') break;
188	}
189	lstrcpy(buffer,temporary);
190	GlobalFree(temporary);
191	}
192
193	BOOL GetDefualtFunctionParameter(char pBuf,char FuncName,char *Parameter){
194	int i,i2;
195	char temporary[VN_SIZE];
196
197	/////////////////////////////////////////
198	// ソースコードから関数定義位置を取得
199	/////////////////////////////////////////
200
201	for(i=0;;i++){
202	while(pBuf[i]==' '\|\|pBuf[i]=='\t') i++;
203
204	if(memicmp(pBuf+i,"Class",5)==0&&(pBuf[i+5]==' '\|\|pBuf[i+5]=='\t')\|\|
205	memicmp(pBuf+i,"Interface",9)==0&&(pBuf[i+9]==' '\|\|pBuf[i+9]=='\t')\|\|
206	memicmp(pBuf+i,"Type",4)==0&&(pBuf[i+4]==' '\|\|pBuf[i+4]=='\t')){
207	/* Class ～ End Class
208	Interface ～ End Interface
209	Type ～ End Type
210	は飛び越す */
211
212	while(1){
213	if(pBuf[i]=='\0'){
214	i2=0;
215	break;
216	}
217
218	if(memicmp(pBuf+i,"End",3)==0){
219	/* End Class
220	End Interface
221	End Type
222	の検出 */
223	i+=3;
224	while(pBuf[i]==' '\|\|pBuf[i]=='\t') i++;
225
226	if(memicmp(pBuf+i,"Class",5)==0&&(!IsVariableChar(pBuf[i+5]))\|\|
227	memicmp(pBuf+i,"Interface",9)==0&&(!IsVariableChar(pBuf[i+9]))\|\|
228	memicmp(pBuf+i,"Type",4)==0&&(!IsVariableChar(pBuf[i+4]))){
229	i2=0;
230	break;
231	}
232	}
233
234	//次の行をサーチ
235	for(;;i++){
236	if(pBuf[i]=='\0') break;
237	i2=IsCommandDelimitation(pBuf,i);
238	if(i2){
239	i+=i2;
240	break;
241	}
242	}
243	JumpBlank(pBuf,&i);
244	}
245	}
246
247	if(memicmp(pBuf+i,"Declare",7)==0&&(pBuf[i+7]==' '\|\|pBuf[i+7]=='\t')){
248	i+=8;
249	while(pBuf[i]==' '\|\|pBuf[i]=='\t') i++;
250
251	if(memicmp(pBuf+i,"Function",8)==0&&(pBuf[i+8]==' '\|\|pBuf[i+8]=='\t')) i+=9;
252	else if(memicmp(pBuf+i,"Sub",3)==0&&(pBuf[i+3]==' '\|\|pBuf[i+3]=='\t')) i+=4;
253	else goto NextCommand;
254
255	while(pBuf[i]==' '\|\|pBuf[i]=='\t') i++;
256
257	for(i2=0;;i++,i2++){
258	if(!IsVariableChar(pBuf[i])){
259	temporary[i2]=0;
260	break;
261	}
262	temporary[i2]=pBuf[i];
263	}
264	if(lstrcmp(temporary,FuncName)==0){
265	//関数名が一致したとき
266	break;
267	}
268	}
269	if(memicmp(pBuf+i,"Function",8)==0&&(pBuf[i+8]==' '\|\|pBuf[i+8]=='\t')\|\|
270	memicmp(pBuf+i,"Sub",3)==0&&(pBuf[i+3]==' '\|\|pBuf[i+3]=='\t')){
271	if(pBuf[i]=='f'\|\|pBuf[i]=='F') i+=9;
272	else i+=4;
273
274	while(pBuf[i]==' '\|\|pBuf[i]=='\t') i++;
275	for(i2=0;;i++,i2++){
276	if(!IsVariableChar(pBuf[i])){
277	temporary[i2]=0;
278	break;
279	}
280	temporary[i2]=pBuf[i];
281	}
282	if(lstrcmpi(temporary,"Export")==0){
283	//"Export"を飛び越す
284	while(pBuf[i]==' '\|\|pBuf[i]=='\t') i++;
285	for(i2=0;;i++,i2++){
286	if(!IsVariableChar(pBuf[i])){
287	temporary[i2]=0;
288	break;
289	}
290	temporary[i2]=pBuf[i];
291	}
292	}
293	if(lstrcmp(temporary,FuncName)==0){
294	//関数名が一致したとき
295	break;
296	}
297
298	}
299
300	NextCommand:
301	for(;;i++){
302	i2=IsCommandDelimitation(pBuf,i);
303	if(i2){
304	if(i2==2) i++;
305	break;
306	}
307	}
308
309	if(pBuf[i]=='\0') return 0;
310	}
311
312	for(;;i++){
313	if(pBuf[i]=='(') break;
314	if(IsCommandDelimitation(pBuf,i)) return 0;
315	}
316
317	//関数名をコピー
318	lstrcpy(Parameter,FuncName);
319	i2=lstrlen(Parameter);
320
321
322	//////////////////////////////////////////////////////
323	//パラメータをコピー
324	//（コメントの挿入、途中改行などの状況を考慮する）
325	//////////////////////////////////////////////////////
326
327	for(;;i++,i2++){
328	if(IsVariableChar(pBuf[i-1])==0&&pBuf[i-1]!=')'&&IS_BLANK(pBuf[i])\|\|
329	pBuf[i]=='\''\|\|
330	pBuf[i]=='/'&&pBuf[i+1]=='*')
331	JumpBlank(pBuf,&i);
332
333	if(IsCommandDelimitation(pBuf,i)){
334	if(IS_RETURN(pBuf,i)&&
335	pBuf[i-1]=='_'\|\|pBuf[i-1]=='('\|\|pBuf[i-1]==','){
336	//改行を許可
337	i2--;
338	if(Parameter[i2]=='_') i2--;
339
340	i+=2;
341	continue;
342	}
343
344	Parameter[i2]=0;
345	break;
346	}
347	Parameter[i2]=pBuf[i];
348	}
349
350
351	//文法チェック
352	if(!CheckGrammar(Parameter)) return 0;
353
354
355	return 1;
356	}
357	BOOL GetClassMemberFunctionParameter(char pBuf,char ClassName,char nest,char Parameter){
358	extern HANDLE hHeap;
359	extern char *pHeaderBuf;
360	extern char *pUserSource;
361	int i,i2;
362	char temporary[8192];
363	DWORD dwClassType;
364	BOOL bRet;
365
366
367	/////////////////////////////////////////
368	// ソースコードからクラス定義位置を取得
369	/////////////////////////////////////////
370	i=GetClassPos(pBuf,ClassName,&dwClassType);
371	if(pBuf[i]=='\0') return 0;
372
373	//クラス、配列の構成要素を解析する
374	char VarName[VN_SIZE]; //変数名
375	char array[VN_SIZE]; //第1次配列
376	char lpPtrOffset[VN_SIZE]; //第2次配列
377	char NestMember[VN_SIZE]; //入れ子メンバ
378	int RefType; //"."参照のときは0、"->"参照のときは1
379	lstrcpy(VarName,nest);
380	if(!GetVarFormatString(VarName,array,lpPtrOffset,NestMember,&RefType)) return 0;
381
382	if(RefType){
383	////////////////////
384	// 入れ子構造の場合
385	////////////////////
386
387	//メンバ変数の型であるクラスの名前を取得
388	char ClassName[VN_SIZE];
389	BOOL bArray;
390	if(!GetClassNameFromClassMember(pBuf,i,VarName,ClassName,&bArray)) return 0;
391
392	//TypeDef宣言を考慮してオリジナルなクラス名を取得
393	GetOriginalClassName(ClassName);
394
395	if(!CheckReferType(ClassName,bArray,array,RefType)) return 0;
396
397	//ユーザーのソースコードをサーチ
398	bRet=GetClassMemberFunctionParameter(pUserSource,ClassName,NestMember,Parameter);
399	if(!bRet){
400	//失敗したときはbasic.sbpをサーチ
401	bRet=GetClassMemberFunctionParameter(pHeaderBuf,ClassName,NestMember,Parameter);
402	}
403	return bRet;
404	}
405
406
407	////////////////////////
408	// メンバ情報を取得
409	////////////////////////
410	DWORD dwProc;
411
412	if(memicmp(pBuf+i,"Inherits",8)==0&&(pBuf[i+8]==' '\|\|pBuf[i+8]=='\t')){
413	i+=9;
414	while(pBuf[i]==' '\|\|pBuf[i]=='\t') i++;
415
416	////////////////////////
417	// 継承先クラスをサーチ
418	////////////////////////
419
420	for(i2=0;;i++,i2++){
421	if(!IsVariableChar(pBuf[i])){
422	temporary[i2]=0;
423	break;
424	}
425	temporary[i2]=pBuf[i];
426	}
427
428	//ユーザーのソースコードをサーチ
429	bRet=GetClassMemberFunctionParameter(pUserSource,temporary,nest,Parameter);
430	if(!bRet){
431	//失敗したときはbasic.sbpをサーチ
432	bRet=GetClassMemberFunctionParameter(pHeaderBuf,temporary,nest,Parameter);
433	}
434	if(bRet) return 1;
435	}
436
437	//メンバ変数、関数を取得
438	while(1){
439	if(pBuf[i]=='\0') break;
440	if(memicmp(pBuf+i,"End",3)==0){
441	/* End Class
442	End Interface
443	End Type
444	の検出 */
445	i2=i+3;
446	while(pBuf[i2]==' '\|\|pBuf[i2]=='\t') i2++;
447
448	if(memicmp(pBuf+i2,"Class",5)==0&&(!IsVariableChar(pBuf[i2+5]))\|\|
449	memicmp(pBuf+i2,"Interface",9)==0&&(!IsVariableChar(pBuf[i2+9]))\|\|
450	memicmp(pBuf+i2,"Type",4)==0&&(!IsVariableChar(pBuf[i2+4]))) break;
451	}
452
453	if(memicmp(pBuf+i,"Abstract",8)==0&&(pBuf[i+8]==' '\|\|pBuf[i+8]=='\t')\|\|
454	memicmp(pBuf+i,"Virtual",7)==0&&(pBuf[i+7]==' '\|\|pBuf[i+7]=='\t')\|\|
455	memicmp(pBuf+i,"Override",8)==0&&(pBuf[i+8]==' '\|\|pBuf[i+8]=='\t')\|\|
456	memicmp(pBuf+i,"Function",8)==0&&(pBuf[i+8]==' '\|\|pBuf[i+8]=='\t')\|\|
457	memicmp(pBuf+i,"Sub",3)==0&&(pBuf[i+3]==' '\|\|pBuf[i+3]=='\t')){
458	//メンバ関数のとき
459	if(pBuf[i]=='a'\|\|pBuf[i]=='A'){
460	i+=9;
461	dwProc=ESC_ABSTRACT;
462
463	while(pBuf[i]==' '\|\|pBuf[i]=='\t') i++;
464	if(memicmp(pBuf+i,"Function",8)==0&&(pBuf[i+8]==' '\|\|pBuf[i+8]=='\t')) i+=9;
465	else if(memicmp(pBuf+i,"Sub",3)==0&&(pBuf[i+3]==' '\|\|pBuf[i+3]=='\t')) i+=4;
466	}
467	else if(pBuf[i]=='v'\|\|pBuf[i]=='V'){
468	i+=8;
469
470	while(pBuf[i]==' '\|\|pBuf[i]=='\t') i++;
471	if(memicmp(pBuf+i,"Function",8)==0&&(pBuf[i+8]==' '\|\|pBuf[i+8]=='\t')){
472	i+=9;
473	dwProc=ESC_FUNCTION;
474	}
475	else if(memicmp(pBuf+i,"Sub",3)==0&&(pBuf[i+3]==' '\|\|pBuf[i+3]=='\t')){
476	i+=4;
477	dwProc=ESC_SUB;
478	}
479	}
480	else if(pBuf[i]=='o'\|\|pBuf[i]=='O'){
481	i+=9;
482
483	while(pBuf[i]==' '\|\|pBuf[i]=='\t') i++;
484	if(memicmp(pBuf+i,"Function",8)==0&&(pBuf[i+8]==' '\|\|pBuf[i+8]=='\t')){
485	i+=9;
486	dwProc=ESC_FUNCTION;
487	}
488	else if(memicmp(pBuf+i,"Sub",3)==0&&(pBuf[i+3]==' '\|\|pBuf[i+3]=='\t')){
489	i+=4;
490	dwProc=ESC_SUB;
491	}
492	}
493	else if(pBuf[i]=='f'\|\|pBuf[i]=='F'){
494	i+=9;
495	dwProc=ESC_FUNCTION;
496	}
497	else if(pBuf[i]=='s'\|\|pBuf[i]=='S'){
498	i+=4;
499	dwProc=ESC_SUB;
500	}
501
502	while(pBuf[i]==' '\|\|pBuf[i]=='\t') i++;
503	}
504	else{
505	//メンバ変数のとき
506	dwProc=0;
507	}
508
509	if(dwProc){
510	//変数名または関数名を取得
511	for(i2=0;;i++,i2++){
512	if(!IsVariableChar(pBuf[i])){
513	temporary[i2]=0;
514	break;
515	}
516	temporary[i2]=pBuf[i];
517	}
518
519	if(lstrcmp(temporary,nest)==0){
520	//ターゲットとなるメンバ関数が見つかったとき
521	for(;;i++){
522	if(pBuf[i]=='(') break;
523	if(IsCommandDelimitation(pBuf,i)) return 0;
524	}
525
526	lstrcpy(Parameter,nest);
527	i2=lstrlen(Parameter);
528	for(;;i++,i2++){
529	if(IsCommandDelimitation(pBuf,i)){
530	Parameter[i2]=0;
531	break;
532	}
533	Parameter[i2]=pBuf[i];
534	}
535
536	if(!CheckGrammar(Parameter)) return 0;
537
538	return 1;
539	}
540	}
541
542	//次の行をサーチ
543	for(;;i++){
544	if(pBuf[i]=='\0') break;
545	i2=IsCommandDelimitation(pBuf,i);
546	if(i2){
547	i+=i2;
548	break;
549	}
550	}
551	JumpBlank(pBuf,&i);
552
553	if((dwProc==ESC_SUB\|\|dwProc==ESC_FUNCTION)&&dwClassType!=ESC_INTERFACE){
554	//End Sub、End Functionまでジャンプする
555
556	while(1){
557	if(pBuf[i]=='\0'){
558	i2=0;
559	break;
560	}
561
562	if(memicmp(pBuf+i,"End",3)==0){
563	/* End Sub
564	End Function
565	の検出 */
566	i+=3;
567	while(pBuf[i]==' '\|\|pBuf[i]=='\t') i++;
568
569	if(memicmp(pBuf+i,"Sub",3)==0&&(!IsVariableChar(pBuf[i+3]))\|\|
570	memicmp(pBuf+i,"Function",8)==0&&(!IsVariableChar(pBuf[i+8]))){
571	i2=1;
572	break;
573	}
574
575	if(memicmp(pBuf+i,"Class",5)==0&&(!IsVariableChar(pBuf[i+5]))\|\|
576	memicmp(pBuf+i,"Interface",9)==0&&(!IsVariableChar(pBuf[i+9]))\|\|
577	memicmp(pBuf+i,"Type",4)==0&&(!IsVariableChar(pBuf[i+4]))){
578	i2=0;
579	break;
580	}
581	}
582
583	//次の行をサーチ
584	for(;;i++){
585	if(pBuf[i]=='\0') break;
586	i2=IsCommandDelimitation(pBuf,i);
587	if(i2){
588	i+=i2;
589	break;
590	}
591	}
592	JumpBlank(pBuf,&i);
593	}
594
595	if(i2==0){
596	//コード解析が不正に終了
597	return 1;
598	}
599
600	//次の行をサーチ
601	for(;;i++){
602	if(pBuf[i]=='\0') break;
603	i2=IsCommandDelimitation(pBuf,i);
604	if(i2){
605	i+=i2;
606	break;
607	}
608	}
609	JumpBlank(pBuf,&i);
610	}
611	}
612
613	return 0;
614	}
615	BOOL GetParameterString(char pEditBuf,int iPos,char FuncName,char *Parameter){
616	extern char *pHeaderBuf;
617	extern char *pUserSource;
618	BOOL bRet;
619
620	//ユーザーソースコードを取得
621	if(pUserSource==0)
622	pUserSource=GetUserSourceCode();
623
624
625	//クラス、配列の構成要素を解析する
626	char VarName[VN_SIZE]; //変数名
627	char array[VN_SIZE]; //第1次配列
628	char lpPtrOffset[VN_SIZE]; //第2次配列
629	char NestMember[VN_SIZE]; //入れ子メンバ
630	int RefType; //"."参照のときは0、"->"参照のときは1
631	lstrcpy(VarName,FuncName);
632	if(!GetVarFormatString(VarName,array,lpPtrOffset,NestMember,&RefType)) return 0;
633
634	if(RefType==0){
635	// キャレット位置のコード領域を判定（クラス/ローカル/グローバル）
636	int iProcPos;
637	char NowClass[VN_SIZE];
638	GetCodeAreaType(pEditBuf,iPos,&iProcPos,NowClass);
639
640	if(NowClass[0]&&iProcPos!=-1){
641	//クラスメンバ関数領域
642	bRet=GetClassMemberFunctionParameter(pUserSource,NowClass,FuncName,Parameter);
643	if(!bRet){
644	bRet=GetClassMemberFunctionParameter(pHeaderBuf,NowClass,FuncName,Parameter);
645	}
646
647	if(bRet) return 1;
648	}
649
650	//通常関数
651	bRet=GetDefualtFunctionParameter(pUserSource,FuncName,Parameter);
652	if(!bRet){
653	bRet=GetDefualtFunctionParameter(pHeaderBuf,FuncName,Parameter);
654	}
655	}
656	else{
657	//メンバ関数
658	char ClassName[VN_SIZE];
659	BOOL bArray;
660
661	//オブジェクトのクラス名を取得
662	if(!GetVariableClassName(pEditBuf,iPos,VarName,ClassName,&bArray)) return 0;
663
664	//TypeDef宣言を考慮してオリジナルなクラス名を取得
665	GetOriginalClassName(ClassName);
666
667	if(!CheckReferType(ClassName,bArray,array,RefType)) return 0;
668
669	bRet=GetClassMemberFunctionParameter(pUserSource,ClassName,NestMember,Parameter);
670	if(!bRet){
671	bRet=GetClassMemberFunctionParameter(pHeaderBuf,ClassName,NestMember,Parameter);
672	}
673	}
674
675	DeleteComment(Parameter);
676
677	return bRet;
678	}
679
680	void ShowParameterHint(int WndNum){
681	extern HANDLE hHeap;
682	extern MDIINFO MdiInfo[MAX_WNDNUM];
683	extern METHODCHECKINFO MethodCheckInfo;
684	int i,i2,i3,IsStr,IsComment,PareNum,iPos;
685	char *pBuf;
686	char temp2[8192];
687
688	pBuf=MdiInfo[WndNum].pMdiTextEdit->buffer;
689
690	//キャレットが示すバッファインデックスを取得
691	iPos=GetBufferIndexFromCaretPos(
692	pBuf,
693	MdiInfo[WndNum].pMdiTextEdit->StartCaretPos.x,
694	MdiInfo[WndNum].pMdiTextEdit->StartCaretPos.y);
695
696	static int Before_StartCaretY;
697	BOOL Before_StartCaretSwitch=0;
698	if(MdiInfo[WndNum].pMdiTextEdit->StartCaretPos.y!=Before_StartCaretY){
699	Before_StartCaretY=MdiInfo[WndNum].pMdiTextEdit->StartCaretPos.y;
700	Before_StartCaretSwitch=1;
701	}
702
703	if(!MethodCheckInfo.hWnd){
704	////////////////////////////////////////////////
705	// 新規の場合は選択されている行の先頭位置を取得
706	////////////////////////////////////////////////
707
708	for(i=iPos;i>0;i--){
709	if(pBuf[i-1]=='\r'&&pBuf[i]=='\n'){
710	i++;
711	break;
712	}
713	}
714	MethodCheckInfo.HeadPos=i;
715
716	//注釈中かどうかを判定
717	for(i2=0,IsStr=0,IsComment=0;i2<MethodCheckInfo.HeadPos;i2++){
718	if(pBuf[i2]=='\"'){
719	i3=i2;
720	IsStr^=1;
721	}
722
723	//注釈（複数行）
724	if(pBuf[i2]=='/'&&pBuf[i2+1]=='*'&&IsStr==0&&IsComment==0){
725	i2+=2;
726	while(!(pBuf[i2]=='*'&&pBuf[i2+1]=='/')){
727	if(pBuf[i2]=='\0'){
728	i2--;
729	break;
730	}
731	i2++;
732	if(i2>=MethodCheckInfo.HeadPos) break;
733	}
734	if(i2>=MethodCheckInfo.HeadPos){
735	IsComment=1;
736	break;
737	}
738	continue;
739	}
740
741	//注釈（単行）
742	if(pBuf[i2]=='\''&&IsStr==0){
743	while(!(pBuf[i2]=='\r'&&pBuf[i2+1]=='\n')){
744	if(pBuf[i2]=='\0'){
745	i2--;
746	break;
747	}
748	i2++;
749	if(i2>=MethodCheckInfo.HeadPos) break;
750	}
751	if(i2>=MethodCheckInfo.HeadPos){
752	IsComment=1;
753	break;
754	}
755	continue;
756	}
757
758	if(pBuf[i2]=='\r'&&pBuf[i2+1]=='\n'){
759	IsComment=0;
760	IsStr=0;
761	}
762	}
763
764	if(IsComment){
765	//注釈文の位置のときは抜け出す
766	return;
767	}
768	}
769	else{
770	/*既存のパラメータヒントが存在し、
771	以前の先頭位置よりも手前にカーソルが移動されたときは破棄する*/
772	if(iPos<=MethodCheckInfo.HeadPos){
773	DestroyWindow(MethodCheckInfo.hWnd);
774	MethodCheckInfo.hWnd=0;
775	}
776	}
777
778
779	////////////////////////////////////////
780	// ダブルクォートの中かどうかを判別する
781	////////////////////////////////////////
782
783	IsStr=0;
784	IsComment=0;
785	PareNum=0;
786	for(i2=MethodCheckInfo.HeadPos;i2<iPos;i2++){
787	if(pBuf[i2]=='\"'){
788	i3=i2;
789	IsStr^=1;
790	}
791
792	if(pBuf[i2]=='('&&IsStr==0&&IsComment==0) PareNum++;
793	if(pBuf[i2]==')'&&IsStr==0&&IsComment==0) PareNum--;
794
795	//注釈（複数行）
796	if(pBuf[i2]=='/'&&pBuf[i2+1]=='*'&&IsStr==0&&IsComment==0){
797	i2+=2;
798	while(!(pBuf[i2]=='*'&&pBuf[i2+1]=='/')){
799	if(pBuf[i2]=='\0'){
800	i2--;
801	break;
802	}
803	i2++;
804	if(i2>=iPos) break;
805	}
806	if(i2>=iPos){
807	IsComment=1;
808	break;
809	}
810	continue;
811	}
812
813	//注釈（単行）
814	if(pBuf[i2]=='\''&&IsStr==0){
815	while(!(pBuf[i2]=='\r'&&pBuf[i2+1]=='\n')){
816	if(pBuf[i2]=='\0'){
817	i2--;
818	break;
819	}
820	i2++;
821	if(i2>=iPos) break;
822	}
823	if(i2>=iPos){
824	IsComment=1;
825	break;
826	}
827	continue;
828	}
829
830	if(pBuf[i2]=='\r'&&pBuf[i2+1]=='\n'){
831	if(PareNum==0){
832	//複数行にパラメータ記述がなされないとき
833	DestroyWindow(MethodCheckInfo.hWnd);
834	MethodCheckInfo.hWnd=0;
835	return;
836	}
837	IsComment=0;
838	IsStr=0;
839	}
840
841	}
842	if(IsStr){
843	if(!MethodCheckInfo.hWnd){
844	return;
845	}
846	i=i3-1;
847	}
848	else i=iPos-1;
849
850
851	for(PareNum=0;i>=MethodCheckInfo.HeadPos;i--){
852	if(pBuf[i]=='\"'){
853	i--;
854	while(pBuf[i]!='\"'){
855	i--;
856	if(i<MethodCheckInfo.HeadPos) break;
857	}
858	if(i<MethodCheckInfo.HeadPos) break;
859	continue;
860	}
861
862	//文の第一パラメータ時に表示する（すでに表示されている場合は無関係）
863	if((!MethodCheckInfo.hWnd)&&pBuf[i]==',') break;
864
865	if(pBuf[i]==')') PareNum--;
866	if(pBuf[i]=='('){
867	PareNum++;
868	if(PareNum>0){
869	i3=i+1;
870	i--;
871	while(pBuf[i]==' '\|\|pBuf[i]=='\t') i--;
872	for(i2=0;i>=0;i--,i2++){
873	if(!IsVariableChar(pBuf[i])){
874	if(pBuf[i-1]=='-'&&pBuf[i]=='>'){
875	// "->" を含ませる
876	i--;
877	i2++;
878	continue;
879	}
880	break;
881	}
882	}
883	i++;
884	memcpy(temp2,pBuf+i,i2);
885	temp2[i2]=0;
886	if(i3<=iPos){
887	for(i2=0,IsStr=0,PareNum=0;i3<iPos;i3++){
888	if(pBuf[i3]=='\"') IsStr^=1;
889	if(pBuf[i3]=='('&&IsStr==0) PareNum++;
890	if(pBuf[i3]==')'&&IsStr==0){
891	PareNum--;
892	if(PareNum<0) break;
893	}
894	if(pBuf[i3]==','&&IsStr==0&&PareNum==0) i2++;
895	}
896	if(PareNum<0) i2=0x7FFFFFFF;
897	}
898	else i2=0x7FFFFFFF;
899
900	if(temp2[0]==0){
901	PareNum=0;
902	iPos=i;
903	continue;
904	}
905
906	if(lstrcmp(MethodCheckInfo.BeforeMethodName,temp2)!=0){
907	//新規の場合はパラメータ文字列を取得
908	if(!GetParameterString(pBuf,iPos,temp2,MethodCheckInfo.msg)){
909	PareNum=0;
910	iPos=i;
911	continue;
912	}
913	}
914	else if(MethodCheckInfo.ParmNum==i2&&Before_StartCaretSwitch==0){
915	//表示中のパラメータヒントに変更がないとき
916	//※行移動が行われた場合を除く
917	break;
918	}
919
920	//第何パラメータを太字にするかを示す
921	MethodCheckInfo.ParmNum=i2;
922
923	//パラメータヒントを表示
924	ShowCommandMessage();
925
926	lstrcpy(MethodCheckInfo.BeforeMethodName,temp2);
927	break;
928	}
929	}
930	if(i==MethodCheckInfo.HeadPos){
931
932	//行番号を飛び越す
933	while(pBuf[i]>='0'&&pBuf[i]<='9') i++;
934
935	while(pBuf[i]==' '\|\|pBuf[i]=='\t') i++;
936	for(i2=0;;i++,i2++){
937	if(!IsVariableChar(pBuf[i])){
938	temp2[i2]=0;
939	break;
940	}
941	temp2[i2]=pBuf[i];
942	}
943	while(pBuf[i]==' '\|\|pBuf[i]=='\t') i++;
944	if(pBuf[i]=='(') i++;
945	if(i<=iPos){
946	for(i2=0,IsStr=0,PareNum=0;i<iPos;i++){
947	if(pBuf[i]=='\"') IsStr^=1;
948	if(pBuf[i]=='('&&IsStr==0) PareNum++;
949	if(pBuf[i]==')'&&IsStr==0){
950	PareNum--;
951	if(PareNum<0) break;
952	}
953	if(pBuf[i]==','&&IsStr==0&&PareNum==0) i2++;
954	}
955	if(PareNum<0) temp2[0]=0;
956	}
957	else i2=0x7FFFFFFF;
958	if(SetCommandMessageToMethodCheck(temp2)){
959	//第何パラメータを太字にするかを示す
960	MethodCheckInfo.ParmNum=i2;
961
962	//パラメータヒントを表示
963	ShowCommandMessage();
964
965	lstrcpy(MethodCheckInfo.BeforeMethodName,temp2);
966	}
967	else{
968	if(MethodCheckInfo.hWnd){
969	UpdateWindow(MdiInfo[WndNum].pMdiTextEdit->hEdit); //ちらつき防止
970
971	DestroyWindow(MethodCheckInfo.hWnd);
972	MethodCheckInfo.hWnd=0;
973	}
974	}
975	break;
976	}
977	}
978
979	extern char *pUserSource;
980	if(pUserSource){
981	HeapDefaultFree(pUserSource);
982	pUserSource=0;
983	}
984	}
985
986
987	//////////////////////////////////////
988	// パラメータヒントのインターフェイス
989	//////////////////////////////////////
990
991	int DrawParam_StartScreenPosX;
992	int DrawParam_PosY;
993	int DrawParam_TextHeight;
994	int DrawParam_MaxX;
995	void TextOut_ToParmHint(HDC hdc,HFONT hFont,char buffer,SIZE pSize){
996	int i,i2;
997	HFONT hOldFont;
998
999	i=lstrlen(buffer);
1000	hOldFont=(HFONT)SelectObject(hdc,hFont);
1001
1002	i2=pSize->cx;
1003	GetTextExtentPoint32(hdc,buffer,i,pSize);
1004	if(DrawParam_StartScreenPosX+i2+pSize->cx >= ScreenX){
1005	DrawParam_PosY+=DrawParam_TextHeight;
1006	i2=10;
1007	}
1008	TextOut(hdc,i2,DrawParam_PosY,buffer,i);
1009	pSize->cx+=i2;
1010
1011	if(DrawParam_MaxX<pSize->cx) DrawParam_MaxX=pSize->cx;
1012
1013	SelectObject(hdc,hOldFont);
1014	}
1015	void DrawParameterHint(HDC hdc,SIZE *pSize){
1016	extern METHODCHECKINFO MethodCheckInfo;
1017	int i,i2,i3,counter;
1018	char temporary[8192];
1019	HFONT hOldFont;
1020
1021	SetBkMode(hdc,TRANSPARENT);
1022
1023	DrawParam_PosY=2;
1024
1025	//命令語、関数の識別名
1026	for(i=0;;i++){
1027	temporary[i]=MethodCheckInfo.msg[i];
1028	if(MethodCheckInfo.msg[i]=='\0') break;
1029	if(MethodCheckInfo.msg[i]==' '\|\|MethodCheckInfo.msg[i]=='('){
1030	i++;
1031	temporary[i]=0;
1032	break;
1033	}
1034	}
1035	hOldFont=(HFONT)SelectObject(hdc,MethodCheckInfo.hFont);
1036	TextOut(hdc,2,2,temporary,lstrlen(temporary));
1037	GetTextExtentPoint32(hdc,temporary,lstrlen(temporary),pSize);
1038	SelectObject(hdc,hOldFont);
1039	pSize->cx+=2;
1040	DrawParam_TextHeight=pSize->cy;
1041
1042	DrawParam_MaxX=pSize->cx;
1043
1044	for(i2=0,counter=0;;i++,i2++){
1045	if(MethodCheckInfo.msg[i]=='('){
1046	i3=GetStringInPare(temporary+i2,MethodCheckInfo.msg+i);
1047	i+=i3-1;
1048	i2+=i3-1;
1049	}
1050	if(MethodCheckInfo.msg[i]==','\|\|
1051	MethodCheckInfo.msg[i]==')'\|\|
1052	MethodCheckInfo.msg[i]=='\0'){
1053	temporary[i2]=0;
1054	if(MethodCheckInfo.ParmNum==counter){
1055	//太字フォントパラメータ
1056	TextOut_ToParmHint(hdc,MethodCheckInfo.hBoldFont,temporary,pSize);
1057	}
1058	else{
1059	//通常フォントパラメータ
1060	TextOut_ToParmHint(hdc,MethodCheckInfo.hFont,temporary,pSize);
1061	}
1062	counter++;
1063
1064	if(MethodCheckInfo.msg[i]==','){
1065	temporary[0]=',';
1066	temporary[1]=' ';
1067	temporary[2]=0;
1068
1069	TextOut_ToParmHint(hdc,MethodCheckInfo.hFont,temporary,pSize);
1070
1071	i++;
1072	while(MethodCheckInfo.msg[i]==' '\|\|MethodCheckInfo.msg[i]=='\t') i++;
1073	i--;
1074	}
1075	else if(MethodCheckInfo.msg[i]==')'){
1076	lstrcpy(temporary,MethodCheckInfo.msg+i);
1077
1078	TextOut_ToParmHint(hdc,MethodCheckInfo.hFont,temporary,pSize);
1079
1080	break;
1081	}
1082	else if(MethodCheckInfo.msg[i]=='\0') break;
1083
1084	i2=-1;
1085	continue;
1086	}
1087	temporary[i2]=MethodCheckInfo.msg[i];
1088	}
1089
1090	pSize->cx=DrawParam_MaxX+20;
1091	pSize->cy=DrawParam_PosY+DrawParam_TextHeight+2;
1092	}
1093	void ShowHelp_FromParamHint(void){
1094	extern METHODCHECKINFO MethodCheckInfo;
1095	int i;
1096	char temporary[MAX_PATH],temp2[255];
1097	HH_AKLINK ak;
1098
1099	for(i=0;;i++){
1100	if(MethodCheckInfo.msg[i]=='('\|\|MethodCheckInfo.msg[i]==' '\|\|
1101	MethodCheckInfo.msg[i]=='\0'){
1102	temp2[i]=0;
1103	break;
1104	}
1105	temp2[i]=MethodCheckInfo.msg[i];
1106	}
1107
1108	memset(&ak, 0, sizeof(HH_AKLINK));
1109	ak.cbStruct = sizeof(HH_AKLINK);
1110	ak.pszKeywords = temp2;
1111	ak.fIndexOnFail=1;
1112
1113	sprintf(temporary,"%sBasicHelp.chm",pj_editor_Dir);
1114	HtmlHelp(NULL,temporary,HH_KEYWORD_LOOKUP,(DWORD)&ak);
1115	}
1116	LRESULT CALLBACK MethodCheckWindow(HWND hwnd,UINT message,WPARAM wParam,LPARAM lParam){
1117	extern METHODCHECKINFO MethodCheckInfo;
1118	HDC hdc;
1119	HPEN hOldPen;
1120	HBRUSH hBrush,hOldBrush;
1121	PAINTSTRUCT ps;
1122	SIZE size;
1123	RECT rect;
1124	POINT pos;
1125
1126	switch(message){
1127	case WM_CREATE:
1128	GetCaretPos(&pos);
1129	ClientToScreen(GetWindow(hClient,GW_CHILD),&pos);
1130	DrawParam_StartScreenPosX=pos.x;
1131
1132	SetTimer(hwnd,1,50,0);
1133	return 0;
1134	case WM_PAINT:
1135	hdc=BeginPaint(hwnd,&ps);
1136
1137	//枠を描画
1138	GetClientRect(hwnd,&rect);
1139	hBrush=CreateSolidBrush(RGB(255,255,180));
1140	hOldPen=(HPEN)SelectObject(hdc,GetStockObject(BLACK_PEN));
1141	hOldBrush=(HBRUSH)SelectObject(hdc,hBrush);
1142	Rectangle(hdc,0,0,rect.right,rect.bottom);
1143	SelectObject(hdc,hOldPen);
1144	SelectObject(hdc,hOldBrush);
1145	DeleteObject(hBrush);
1146
1147	//パラメータヒントを描画
1148	DrawParameterHint(hdc,&size);
1149
1150	//[?]マークを描画
1151	HBITMAP hBmp,hOldBmp;
1152	HDC memdc;
1153	hBmp=(HBITMAP)LoadImage(hResInst,MAKEINTRESOURCE(IDB_PARAMHINT_QUESTION),IMAGE_BITMAP,0,0,LR_DEFAULTSIZE);
1154	memdc=CreateCompatibleDC(hdc);
1155	hOldBmp=(HBITMAP)SelectObject(memdc,hBmp);
1156	GetClientRect(hwnd,&rect);
1157	BitBlt(hdc,rect.right-14,rect.bottom-14,13,13,memdc,0,0,SRCCOPY);
1158	SelectObject(memdc,hOldBmp);
1159	DeleteDC(memdc);
1160	DeleteObject(hBmp);
1161
1162	EndPaint(hwnd,&ps);
1163	return 0;
1164	case WM_TIMER:
1165	//[?]マークを描画
1166	static BOOL bOnMouse;
1167	GetClientRect(hwnd,&rect);
1168	GetCursorPos(&pos);
1169	ScreenToClient(hwnd,&pos);
1170	if(rect.right-14<=pos.x&&pos.x<=rect.right-1&&
1171	rect.bottom-14<=pos.y&&pos.y<=rect.bottom-1){
1172	if(bOnMouse) return 0;
1173
1174	hdc=GetDC(hwnd);
1175
1176	hBmp=(HBITMAP)LoadImage(hResInst,MAKEINTRESOURCE(IDB_PARAMHINT_QUESTION2),IMAGE_BITMAP,0,0,LR_DEFAULTSIZE);
1177	memdc=CreateCompatibleDC(hdc);
1178	hOldBmp=(HBITMAP)SelectObject(memdc,hBmp);
1179	GetClientRect(hwnd,&rect);
1180	BitBlt(hdc,rect.right-14,rect.bottom-14,13,13,memdc,0,0,SRCCOPY);
1181	SelectObject(memdc,hOldBmp);
1182	DeleteDC(memdc);
1183	DeleteObject(hBmp);
1184
1185	ReleaseDC(hwnd,hdc);
1186
1187	bOnMouse=1;
1188	}
1189	else{
1190	if(!bOnMouse) return 0;
1191
1192	hdc=GetDC(hwnd);
1193
1194	hBmp=(HBITMAP)LoadImage(hResInst,MAKEINTRESOURCE(IDB_PARAMHINT_QUESTION),IMAGE_BITMAP,0,0,LR_DEFAULTSIZE);
1195	memdc=CreateCompatibleDC(hdc);
1196	hOldBmp=(HBITMAP)SelectObject(memdc,hBmp);
1197	GetClientRect(hwnd,&rect);
1198	BitBlt(hdc,rect.right-14,rect.bottom-14,13,13,memdc,0,0,SRCCOPY);
1199	SelectObject(memdc,hOldBmp);
1200	DeleteDC(memdc);
1201	DeleteObject(hBmp);
1202
1203	ReleaseDC(hwnd,hdc);
1204	bOnMouse=0;
1205	}
1206	return 0;
1207	case WM_ACTIVATE:
1208	if(LOWORD(wParam)==WA_ACTIVE\|\|LOWORD(wParam)==WA_CLICKACTIVE){
1209	SetFocus(GetWindow(hClient,GW_CHILD));
1210
1211	if(LOWORD(wParam)==WA_CLICKACTIVE){
1212	GetClientRect(hwnd,&rect);
1213	GetCursorPos(&pos);
1214	ScreenToClient(hwnd,&pos);
1215	if(rect.right-14<=pos.x&&pos.x<=rect.right-1&&
1216	rect.bottom-14<=pos.y&&pos.y<=rect.bottom-1){
1217	ShowHelp_FromParamHint();
1218	}
1219	}
1220	}
1221	return 0;
1222	case WM_DESTROY:
1223	MethodCheckInfo.BeforeMethodName[0]=0;
1224	return 0;
1225	}
1226	return DefWindowProc(hwnd,message,wParam,lParam);
1227	}
1228	void ShowCommandMessage(void){
1229	extern METHODCHECKINFO MethodCheckInfo;
1230	int i;
1231	int sw;
1232
1233	if(pobj_nv->dwParameterHint==1){
1234	//ポップアップ表示
1235
1236	extern HINSTANCE hInst;
1237	extern METHODCHECKINFO MethodCheckInfo;
1238	extern MDIINFO MdiInfo[MAX_WNDNUM];
1239	HDC hdc,memdc;
1240	RECT rect,rc2;
1241	SIZE size;
1242	POINT pos;
1243	if(!MethodCheckInfo.hWnd){
1244	MethodCheckInfo.hWnd=CreateWindow("MethodCheckWindow",NULL,WS_POPUP,
1245	0,0,0,0,
1246	hOwner,NULL,hInst,0);
1247	sw=1;
1248	}
1249	else sw=0;
1250	i=GetWndNum(GetWindow(hClient,GW_CHILD));
1251
1252	hdc=GetDC(MethodCheckInfo.hWnd);
1253	memdc=CreateCompatibleDC(hdc);
1254	DrawParameterHint(memdc,&size);
1255	DeleteDC(memdc);
1256	ReleaseDC(MethodCheckInfo.hWnd,hdc);
1257
1258	GetWindowRect(MdiInfo[i].hwnd,&rect);
1259	GetCaretPos(&pos);
1260	ClientToScreen(MdiInfo[i].pMdiTextEdit->hEdit,&pos);
1261	rect.left=pos.x-20;
1262	rect.top=pos.y-pobj_nv->lf.lfHeight;
1263	if(sw){
1264	MoveWindow(MethodCheckInfo.hWnd,rect.left,rect.top,size.cx,size.cy,1);
1265	ShowWindow(MethodCheckInfo.hWnd,SW_SHOWNOACTIVATE);
1266	}
1267	else{
1268	GetWindowRect(MethodCheckInfo.hWnd,&rc2);
1269
1270	MoveWindow(MethodCheckInfo.hWnd,
1271	rc2.left,
1272	rect.top,
1273	size.cx,
1274	size.cy,
1275	1);
1276
1277	InvalidateRect(MethodCheckInfo.hWnd,NULL,0);
1278	}
1279	}
1280
1281	//ステータスバーに表示
1282	else if(pobj_nv->dwParameterHint==2)
1283	SetStatusText(MethodCheckInfo.msg);
1284	}

Note: See TracBrowser for help on using the repository browser.

Download in other formats: