thisform.LockScreen=.t.
local lcSQLString, lnWords, lcWord, i, lnFunctions, j, lcOut, lcColorWithOut
this.cSelect = alltrim(this.pf_text.page_text.edt_select.value)
lcSQLString = this.cSelect
local array lArrOfWords( 1 ), lArrOfFunctions( 1 )
* разбираем всю строку на слова
lnWords = alines(lArrOfWords,lcSQLString, 16 ,[ ],[,],[(],[)],['])
this.RtfReport = ""
for i =1 to lnWords
	lcWord = lArrOfWords(i)
	do case
	case inlist(lower(alltrim(lcWord)),'select','as','on','from')
		this.showrtf(0,rcBlue+lcWord,0)
	case lower(alltrim(lcWord))=='left'
		this.showrtf(1,"",0)
		this.showrtf(0,rcMagenta+'  '+lcWord,0)
	case lower(alltrim(lcWord))=='join'
		this.showrtf(0,rcGray+lcWord,0)
		*case inlist(lower(alltrim(lcWord)),'isnull(','rtrim(','ltrim(')
		*     this.showrtf(0,rcMagenta+lcWord,0)
	case inlist(lower(alltrim(lcWord)),',')	
		this.showrtf(0,rcRed+lcWord,0)
	otherwise
		lnFunctions = alines(lArrOfFunctions,lcWord,16,"(","+",",")
		for j=1 to lnFunctions
			lcFunctionWithParser = lArrOfFunctions(j)
			lcFunction = strtran(lcFunctionWithParser,"(",'')
			do case
			case inlist(lower(alltrim(lcFunction)),'isnull','rtrim','ltrim')
			    lcOut = iif(len(lcFunction)<len(lcFunctionWithParser),strtran(lcFunctionWithParser,lcFunction,''),'')
				lcColorWithOut = icase(at(",",lcOut)>0,rcRed,at("'",lcOut)> 0 ,rcRed,rcBlack) + lcOut 
				this.showrtf( 0 , rcMagenta+lcFunction+iif(len(lcOut)> 0 ,lcColorWithOut,''), 0 )
			otherwise
				this.showrtf( 0 ,rcBlack+lcFunctionWithParser, 0 )
			endcase
		endfor
		*this.showrtf( 0 ,rcBlack+lcWord, 0 )
	endcase
endfor

*	this.showrtf( 1 , rcBlue+this.pf_text.page_text.edt_select.value , 1 )
thisform.LockScreen=.f.