Context Navigation

source: dev/trunk/ab5.0/abdev/abdev/ParameterHint.cpp@ 655

Last change on this file since 655 was 655, checked in by dai_9181, 16 years ago
FileManager周りをリファクタリング
File size: 33.9 KB

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

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

Download in other formats: