LPARAMETERS vhod

LOCAL r_razm
r_razm="32"

LOCAL maxpage
maxpage=1

LOCAL local_file,local_file2
LOCAL pic_fol
local_file=nacal_dire+"\maple4_ru_navigator\procedure\panel6\properties\picture_folder.txt"
IF FILE(local_file)
	pic_fol=nacal_dire+"\maple4_ru_navigator\procedure\panel6\styles\"+FILETOSTR(local_file)+"\"
ELSE
	pic_fol=nacal_dire+"\maple4_ru_navigator\procedure\panel6\styles\default\"
ENDIF
pic_fol=STRTRAN(pic_fol,"\","/")
LOCAL pic_ext
local_file=pic_fol+"file_ext.txt"
IF FILE(local_file)
	pic_ext="."+FILETOSTR(local_file)
ELSE
	pic_ext=".jpg"
ENDIF


LOCAL over_out
over_out=pic_fol+"over_out.txt"
IF FILE(over_out)
	over_out=FILETOSTR(over_out)
ELSE
	over_out=""
ENDIF



LOCAL yes_ref

local_file=nacal_dire+"\maple4_ru_navigator\procedure\panel6\properties\properties_refresh.txt"
LOCAL post_ref
post_ref=CTOT(IIF( FILE( local_file),FILETOSTR(local_file),'01/01/1901'))
IF DATETIME()-post_ref<300
	yes_ref=.T.
ELSE
	yes_ref=.F.
ENDIF


LOCAL codeedit_prop
local_file=nacal_dire+"\maple4_ru_navigator\procedure\panel6\properties\properties_codeedit.txt"
codeedit_prop=IIF( FILE( local_file),VAL(FILETOSTR(local_file)),0)

LOCAL view_vib_style
IF yes_ref AND codeedit_prop=50
	view_vib_style=.T.
ELSE
	view_vib_style=.F.
ENDIF


LOCAL iaz
iaz=IIF(pub_lan="RUS","rus","eng")


LOCAL gl_kt1,gl_kt2




LOCAL vih

vih=""

vih=vih+"<p>"



LOCAL fi,pfold,nacalpr,nacalis,nacalisla
nacalpr=nacal_dire+"\maple4_ru_navigator\procedure\help\properties\types\"




LOCAL old_vers,new_vers

ooooo00000=ADIR(ooooo000000,nacalpr+"*","D",1 )
LOCAL scetc
scetc=0
FOR fi=1 TO ooooo00000
	IF RIGHT(ooooo000000(fi,5),1)="D" AND LEFT(ooooo000000(fi,1),1)<>"." AND LEFT(ooooo000000(fi,1),2)<>".."
		scetc=scetc+1

		pfold=LOWER(ALLTRIM(ooooo000000(fi,1)))

		local_file=nacalpr+pfold+"\main.txt"
		IF FILE(local_file)
			local_file=nacal_dire+"\maple4_ru_navigator\procedure\help\properties\types\"+pfold+"\version.txt"
			old_vers=IIF(FILE(local_file),FILETOSTR(local_file),"1")
			local_file2=nacal_dire+"\maple4_ru_navigator\procedure\help\properties\types\"+pfold+"\new\version.txt"
			new_vers=IIF(FILE(local_file2),FILETOSTR(local_file2),"1")

			vih=vih+"<a href='vfj://help/select_type("+pfold+").prg'><img src='"+STRTRAN(nacalpr+pfold+"\icon.jpg","\","/")+"' title='"+FILETOSTR(nacalpr+pfold+"\"+iaz+"\title.txt")+" v."+old_vers+"' border=0></a>"
			IF VAL(new_vers)>VAL(old_vers)
				vih=vih+"<a href='"+FILETOSTR(nacalpr+pfold+"\new\zip.txt")+"'><img src='"+STRTRAN(nacalpr+pfold+"\icon.jpg","\","/")+"' title='"+;
					IIF(pub_lan="RUS","Скачать/Обновить из Интернет: ","Load/Update From Internet: ")+;
					+FILETOSTR(nacalpr+pfold+"\new\"+iaz+"\title.txt")+" v."+new_vers+"' border=5 width=22px></a>"
			ENDIF
		ELSE
			local_file2=nacal_dire+"\maple4_ru_navigator\procedure\help\properties\types\"+pfold+"\new\version.txt"
			new_vers=IIF(FILE(local_file2),FILETOSTR(local_file2),"1")

			vih=vih+"<a href='"+FILETOSTR(nacalpr+pfold+"\new\zip.txt")+"'><img src='"+STRTRAN(nacalpr+pfold+"\icon.jpg","\","/")+"' title='"+;
				IIF(pub_lan="RUS","Скачать/Обновить из Интернет: ","Load/Update From Internet: ")+;
				+FILETOSTR(nacalpr+pfold+"\new\"+iaz+"\title.txt")+" v."+new_vers+"' border=5 width=22px></a>"

		ENDIF
		vih=vih+"&nbsp;&nbsp;"


		IF scetc>10
			vih=vih+"<br>"
			scetc=0
		ENDIF


	ENDIF
ENDFOR
vih=vih+"</p>"




IF NOT FILE(nacal_dire+"\maple4_ru_navigator\procedure\help\properties\help_selected.txt")
RETURN vih
ENDIF 




local_file=nacal_dire+"\maple4_ru_navigator\procedure\help\properties\types\"+;
	FILETOSTR(nacal_dire+"\maple4_ru_navigator\procedure\help\properties\help_selected.txt")+;
	"\blank.txt"


LOCAL foldermain,foldermainint
foldermain=nacal_dire+"\maple4_ru_navigator\procedure\help\properties\types\"+;
	FILETOSTR(nacal_dire+"\maple4_ru_navigator\procedure\help\properties\help_selected.txt")+"\"

foldermainint=STRTRAN(foldermain,"\","/")

nacalisla=nacal_dire+"\maple4_ru_navigator\procedure\help\properties\types\"+;
	FILETOSTR(nacal_dire+"\maple4_ru_navigator\procedure\help\properties\help_selected.txt")+;
	"\"+iaz+"\"

LOCAL file_blank
file_blank=FILETOSTR(local_file)





LOCAL nsect,subnsect
LOCAL subnsect2


local_file=nacal_dire+"\maple4_ru_navigator\procedure\help\properties\subsection.txt"
IF FILE(local_file)
	subnsect=VAL(FILETOSTR(local_file))
	IF subnsect=0
		subnsect=1
	ENDIF
ELSE
	subnsect=1
ENDIF
*RETURN "!!"

local_file=nacal_dire+"\maple4_ru_navigator\procedure\help\properties\subsection2.txt"
IF FILE(local_file)
	subnsect2=VAL(FILETOSTR(local_file))
	IF subnsect2=0
		subnsect2=1
	ENDIF
ELSE
	subnsect2=1
ENDIF




local_file=nacal_dire+"\maple4_ru_navigator\procedure\help\properties\section.txt"
IF FILE(local_file)
	nsect=VAL(FILETOSTR(local_file))
	IF nsect=0
		nsect="001"
	ELSE
		nsect=PADL(LTRIM(STR(nsect)),3,"0")
	ENDIF
ELSE
	nsect="001"
ENDIF




LOCAL k1,k2,cc1,cc2,zagl,endl
zagl=""
endl=""

cc1="<!-- START000 -->"
cc2="<!-- END000 -->"
k1=AT(cc1,file_blank)
k2=AT(cc2,file_blank)
IF k1<>0 AND k2<>0
	zagl=SUBSTR(file_blank,k1+LEN(cc1),k2-(k1+LEN(cc1)))
*<!-- MAXPAGE008 -->
	IF ATC("<!-- MAXPAGE",zagl,1)<>0
		maxpage=VAL(SUBSTR(zagl,ATC("<!-- MAXPAGE",zagl,1)+12,3))
	ENDIF

ENDIF

IF VAL(nsect)>maxpage
	nsect="001"
ENDIF





LOCAL etoel,slovoel,ele,ctoel,elzam


zagl=zagl+"<center><font color=green><b>"+FILETOSTR(nacalisla+"title.txt")+"</b></font>&nbsp;&nbsp;v. "+old_vers+"</center><br>"
IF NOT EMPTY(zagl)
	LOCAL actp
	actp=0
	DO WHILE .T.
		actp=actp+1
		etoel=AT("%pages",zagl)
		IF etoel=0
			EXIT
		ENDIF
		elzam=""
		slovoel=SUBSTR(zagl,etoel,21)
		ele=SUBSTR(slovoel,7,14)
		ctoel=LEFT(ele,4)
		IF FILE(nacalisla+"pages"+ele)
			elzam=IIF(actp=VAL(nsect),"<font size=+1>","")+"<b><a href='vfj://help/set_page("+LTRIM(STR(actp))+").prg'>"+FILETOSTR(nacalisla+"pages"+ele)+"</a></b>"+IIF(actp=VAL(nsect),"</font>","")
		ENDIF
		zagl=STRTRAN(zagl,slovoel,elzam,1,1)
	ENDDO
ENDIF




cc1="<!-- START999 -->"
cc2="<!-- END999 -->"
k1=AT(cc1,file_blank)
k2=AT(cc2,file_blank)
IF k1<>0 AND k2<>0
	endl=SUBSTR(file_blank,k1+LEN(cc1),k2-(k1+LEN(cc1)))
ENDIF




cc1="<!-- START"+nsect+" -->"
cc2="<!-- END"+nsect+" -->"
k1=AT(cc1,file_blank)
k2=AT(cc2,file_blank)
IF k1<>0 AND k2<>0
	file_blank=SUBSTR(file_blank,k1+LEN(cc1),k2-(k1+LEN(cc1)))
ELSE
	file_blank=""
ENDIF






file_blank=zagl+"<br>"+file_blank+"<br>"+endl





LOCAL nsub,etoel1,etoel2,typesubrow,nactext,elzam1,elzam2

nsub=0
* SUBS <!-- SUBSCREEN -->
IF 	AT("<!-- SUBSCREEN -->",file_blank)<>0
	typesubrow=.F.
ELSE
	typesubrow=.T.
ENDIF
DO WHILE .T.
	etoel1=AT("<!-- STARTSUB -->",file_blank)
	IF etoel1=0
		EXIT
	ENDIF
	etoel2=AT("<!-- ENDSUB -->",file_blank)
	IF etoel2=0
		EXIT
	ENDIF
	slovoel=SUBSTR(file_blank,etoel1,etoel2-etoel1+15)
	nsub=nsub+1
	elzam=""
	IF subnsect=nsub && именно эта!
		nactext=AT("<!-- TEXTSUB -->",slovoel)
		IF nactext=0
			elzam=""
		ELSE
			elzam1=SUBSTR(slovoel,18,nactext-18)
			elzam2=SUBSTR(slovoel,nactext+16,LEN(slovoel)-(nactext+15)-15  )
			IF typesubrow=.T.
				elzam="<b><a href='vfj://help/set_subsection("+LTRIM(STR(nsub))+").prg'>"+;
				elzam1+"</a></b>"+;
				"<br>"+elzam2
			ELSE
				elzam="<b><a href='vfj://help/set_subsection("+LTRIM(STR(nsub))+").prg'>"+;
				elzam1+"</a></b>"
				file_blank=STRTRAN(file_blank,"<!-- SUBSCREEN -->",elzam2,1,1)				
			ENDIF
		ENDIF
	ELSE && не эта...
		nactext=AT("<!-- TEXTSUB -->",slovoel)
		IF nactext=0
			elzam=""
		ELSE
			elzam="<a href='vfj://help/set_subsection("+LTRIM(STR(nsub))+").prg'>"+SUBSTR(slovoel,18,nactext-18)+"</a>"
		ENDIF
	ENDIF
	file_blank=STRTRAN(file_blank,slovoel,elzam,1,1)
ENDDO


nsub=0
* SUBS <!-- SUBSCREED -->
IF 	AT("<!-- SUBSCREED -->",file_blank)<>0
	typesubrow=.F.
ELSE
	typesubrow=.T.
ENDIF
DO WHILE .T.
	etoel1=AT("<!-- STARTSUD -->",file_blank)
	IF etoel1=0
		EXIT
	ENDIF
	etoel2=AT("<!-- ENDSUD -->",file_blank)
	IF etoel2=0
		EXIT
	ENDIF
	slovoel=SUBSTR(file_blank,etoel1,etoel2-etoel1+15)
	nsub=nsub+1
	elzam=""
	IF subnsect2=nsub && именно эта!
		nactext=AT("<!-- TEXTSUD -->",slovoel)
		IF nactext=0
			elzam=""
		ELSE
			elzam1=SUBSTR(slovoel,18,nactext-18)
			elzam2=SUBSTR(slovoel,nactext+16,LEN(slovoel)-(nactext+15)-15  )
			IF typesubrow=.T.
				elzam="<b><a href='vfj://help/set_subsection2("+LTRIM(STR(nsub))+").prg'>"+;
				elzam1+"</a></b>"+;
				"<br>"+elzam2
			ELSE
				elzam="<b><a href='vfj://help/set_subsection2("+LTRIM(STR(nsub))+").prg'>"+;
				elzam1+"</a></b>"
				file_blank=STRTRAN(file_blank,"<!-- SUBSCREED -->",elzam2,1,1)				
			ENDIF
		ENDIF
	ELSE && не эта...
		nactext=AT("<!-- TEXTSUD -->",slovoel)
		IF nactext=0
			elzam=""
		ELSE
			elzam="<a href='vfj://help/set_subsection2("+LTRIM(STR(nsub))+").prg'>"+SUBSTR(slovoel,18,nactext-18)+"</a>"
		ENDIF
	ENDIF
	file_blank=STRTRAN(file_blank,slovoel,elzam,1,1)
ENDDO







LOCAL delek


DO WHILE .T.
	etoel=AT("%pager",file_blank)
	IF etoel=0
		EXIT
	ENDIF
	slovoel=SUBSTR(file_blank,etoel,21)
	ele=SUBSTR(slovoel,7,14)
	ctoel=LEFT(ele,4)
	elzam=""


	IF maxpage<>0
		DO CASE
		CASE ele="text000001.txt"
			IF VAL(nsect)=1 && start

			ELSE

				elzam="<a href='vfj://help/set_page("+LTRIM(STR(VAL(nsect)-1))+").prg'><img src='"+;
					STRTRAN(nacal_dire+"\maple4_ru_navigator\procedure\help\prev1.jpg","\","/")+"' border=0 title='"+;
					IIF(pub_lan="RUS","Назад","Previous")+;
					+"' width=32px height=32px>"+"</a>"
			ENDIF
		CASE ele="text000002.txt"
			IF maxpage=VAL(nsect) && end

			ELSE
				elzam="<a href='vfj://help/set_page("+LTRIM(STR(VAL(nsect)+1))+").prg'><img src='"+;
					STRTRAN(nacal_dire+"\maple4_ru_navigator\procedure\help\next1.jpg","\","/")+"' border=0 title='"+;
					IIF(pub_lan="RUS","Дальше","Next")+;
					+"' width=32px height=32px>"+"</a>"
			ENDIF
		ENDCASE
	ENDIF


	file_blank=STRTRAN(file_blank,slovoel,elzam,1,1)


ENDDO




LOCAL view_edit
local_file=nacal_dire+"\maple4_ru_navigator\procedure\help\properties\viewedit.txt"
IF FILE(local_file)
	view_edit=IIF(VAL( IIF(FILE(local_file),FILETOSTR(local_file),"") )=0,.F.,.T.)
ELSE
	view_edit=.F.
ENDIF







DO WHILE .T.
	delek=""
	etoel=AT("%terra",file_blank)
	IF etoel=0
		EXIT
	ENDIF
	slovoel=SUBSTR(file_blank,etoel,21)
	ele=SUBSTR(slovoel,7,14)
	ctoel=LEFT(ele,4)
	elzam=""





	DO CASE

	CASE ctoel=="edit" && с возм редактирования  - файлов вида "edit000001.txt"
*elzam=""
		elzam=IIF(view_edit,"<a href='vfj://help/forma_wiz_edit_edit("+LEFT(ele,10)+").prg'><img src='"+STRTRAN(nacal_dire+"\maple4_ru_navigator\procedure\help\wzedit.jpg","\","/")+"' alt='"+IIF(pub_lan="RUS","Редактировать","Edit")+"' border=0></a> ","")+;
			IIF(FILE(nacalisla+ele),STRTRAN(FILETOSTR(nacalisla+ele),CHR(13),"<br>"),"")
		IF view_edit
			delek="<a href='vfj://help/clear_prop("+LEFT(ele,10)+").prg'><img src='"+STRTRAN(nacal_dire+"\maple4_ru_navigator\procedure\help\delete.jpg","\","/")+;
				"'   title='"+IIF(pub_lan="RUS","Очистить ","Clear ")+"' border=0>"+"</a>&nbsp;&nbsp;&nbsp;"
			elzam=delek+" "+elzam
		ENDIF

	CASE ctoel="text" && без возм редактирования -  - файлов вида "text000001.txt"
		elzam=IIF(FILE(nacalisla+ele),STRTRAN(FILETOSTR(nacalisla+ele),CHR(13),"<br>"),"")
*elzam=""

	CASE ctoel=="texx" && без возм редактирования + ОБЩЕЕ для всех языков, в папке без языка - файлов вида "texx000001.txt"
		elzam=IIF(FILE(foldermain+ele),STRTRAN(FILETOSTR(foldermain+ele),CHR(13),"<br>"),"")

	CASE ctoel=="fldr" && рабочая папка - для доступа, напрмер, к рисункам в общей папке
		elzam=foldermainint

	CASE ctoel=="flia" && рабочая папка + язык, для доступа, напрмер, к рисункам в папках по языкам
		elzam=foldermainint+iaz+"/"

	CASE ctoel=="knop" && кнопки инструментов с запуском

		DO CASE



*********************************************
		CASE ele=="knop000002.txt"

* запуск
			local_file=pic_fol+"maple4_2"+pic_ext
			local_file2=pic_fol+"maple4_2"+over_out+pic_ext
			elzam="<a href='VFZ://2'><img src='"+local_file+"' border=0 width='"+r_razm+"' height='"+r_razm+"' title='"+IIF(pub_lan="RUS","Открыть проект","Open Project")+"' "+;
				+" onmouseout="+'"'+"this.src='"+local_file+"'"+'"'+;
				" onmouseover="+'"'+"this.src='"+local_file2+"'"+'"'+;
				" ></a>"


		CASE ele=="knop000004.txt"
* structure
			local_file=pic_fol+"maple4_4"+pic_ext
			local_file2=pic_fol+"maple4_4"+over_out+pic_ext
			elzam="<a href='VFZ://4'><img src='"+local_file+"' border=0 width='"+r_razm+"' height='"+r_razm+"' title='"+IIF(pub_lan="RUS","Страницы - Структура проекта","Pages")+"' "+;
				+" onmouseout="+'"'+"this.src='"+local_file+"'"+'"'+;
				" onmouseover="+'"'+"this.src='"+local_file2+"'"+'"'+;
				+"></a>"

		CASE ele=="knop000001.txt"
* prev



			local_file=pic_fol+"maple4_1"+pic_ext
			local_file2=pic_fol+"maple4_1"+over_out+pic_ext
			elzam="<a href='VFZ://1'><img src='"+local_file+"' border=0 width='"+r_razm+"' height='"+r_razm+"' title='"+IIF(pub_lan="RUS","Предпросмотр","Preview")+"' "+;
				+" onmouseout="+'"'+"this.src='"+local_file+"'"+'"'+;
				" onmouseover="+'"'+"this.src='"+local_file2+"'"+'"'+;
				"></a>"

		CASE ele=="knop000003.txt"
* gen
			local_file=pic_fol+"maple4_3"+pic_ext
			local_file2=pic_fol+"maple4_3"+over_out+pic_ext

			elzam=	"<a href='VFZ://3'><img src='"+local_file+"' border=0 width='"+r_razm+"' height='"+r_razm+"' title='"+IIF(pub_lan="RUS","Сформировать страницы","Generate")+"' "+;
				+" onmouseout="+'"'+"this.src='"+local_file+"'"+'"'+;
				" onmouseover="+'"'+"this.src='"+local_file2+"'"+'"'+;
				"></a>"


		CASE ele=="knop000005.txt"
* projects
			local_file=pic_fol+"maple4_5"+pic_ext
			local_file2=pic_fol+"maple4_5"+over_out+pic_ext

			elzam="<a href='VFZ://5'><img src='"+local_file+"' border=0 width='"+r_razm+"' height='"+r_razm+"' title='"+IIF(pub_lan="RUS","Список проектов, Добавление нового проекта, Выбор проекта","Projects, Append New Project, Select Project")+"' "+;
				+" onmouseout="+'"'+"this.src='"+local_file+"'"+'"'+;
				" onmouseover="+'"'+"this.src='"+local_file2+"'"+'"'+;
				"></a>"


		CASE ele=="knop000006.txt"
* style
			local_file=pic_fol+"maple4_6"+pic_ext
			local_file2=pic_fol+"maple4_6"+over_out+pic_ext

			elzam="<a href='VFZ://6'><img src='"+local_file+"' border=0 width='"+r_razm+"' height='"+r_razm+"' title='"+IIF(pub_lan="RUS","Список стилей, Добавление нового стиля, Выбор стиля","Styles, Append New Style, Select Style")+"' "+;
				+" onmouseout="+'"'+"this.src='"+local_file+"'"+'"'+;
				" onmouseover="+'"'+"this.src='"+local_file2+"'"+'"'+;
				"></a>"



		CASE ele=="knop000015.txt"
* style creator
			local_file=pic_fol+"maple4_15"+pic_ext
			local_file2=pic_fol+"maple4_15"+over_out+pic_ext

			elzam="<a href='vfn://stylecreator/start(default).prg'><img src='"+local_file+"' border=0 width='"+r_razm+"' height='"+r_razm+"' title='"+IIF(pub_lan="RUS","Создание стиля из шаблона (скаченного в Интернете)","Create style from shablons")+"' "+;
				+" onmouseout="+'"'+"this.src='"+local_file+"'"+'"'+;
				" onmouseover="+'"'+"this.src='"+local_file2+"'"+'"'+;
				"></a>"



		CASE ele=="knop000008.txt"
* objects
			local_file=pic_fol+"maple4_8"+pic_ext
			local_file2=pic_fol+"maple4_8"+over_out+pic_ext

			elzam="<a href='VFZ://8'><img src='"+local_file+"' border=0 width='"+r_razm+"' height='"+r_razm+"' title='"+IIF(pub_lan="RUS","Что входит в объекты","In Objects")+"' "+;
				+" onmouseout="+'"'+"this.src='"+local_file+"'"+'"'+;
				" onmouseover="+'"'+"this.src='"+local_file2+"'"+'"'+;
				"></a>"



		CASE ele=="knop000009.txt"
* help
			local_file=pic_fol+"maple4_9"+pic_ext
			local_file2=pic_fol+"maple4_9"+over_out+pic_ext

			elzam="<a href='VFZ://9'><img src='"+local_file+"' border=0 width='"+r_razm+"' height='"+r_razm+"' title='"+IIF(pub_lan="RUS","Помощь в интернете","Help (Internet)")+"' "+;
				+" onmouseout="+'"'+"this.src='"+local_file+"'"+'"'+;
				" onmouseover="+'"'+"this.src='"+local_file2+"'"+'"'+;
				"></a>"


		CASE ele=="knop000010.txt"
* home
			local_file=pic_fol+"maple4_10"+pic_ext
			local_file2=pic_fol+"maple4_10"+over_out+pic_ext

			elzam="<a href='VFZ://10'><img src='"+local_file+"' border=0 width='"+r_razm+"' height='"+r_razm+"' title='"+IIF(pub_lan="RUS","На первую страницу","Main Page")+"' "+;
				+" onmouseout="+'"'+"this.src='"+local_file+"'"+'"'+;
				" onmouseover="+'"'+"this.src='"+local_file2+"'"+'"'+;
				"></a>"



		CASE ele=="knop000011.txt"
* refresh navigator
			local_file=pic_fol+"maple4_11"+pic_ext
			local_file2=pic_fol+"maple4_11"+over_out+pic_ext

			elzam="<a href='VFZ://11'><img src='"+local_file+"' border=0 width='"+r_razm+"' height='"+r_razm+"' title='"+IIF(pub_lan="RUS","Обновить Навигатор из Интернета","Refresh Navigator")+"' "+;
				+" onmouseout="+'"'+"this.src='"+local_file+"'"+'"'+;
				" onmouseover="+'"'+"this.src='"+local_file2+"'"+'"'+;
				"></a>"


		CASE ele=="knop000012.txt"
			local_file=pic_fol+"maple4_12"+pic_ext
			local_file2=pic_fol+"maple4_12"+over_out+pic_ext

			elzam="<a href='VFZ://12'><img src='"+local_file+"' border=0 width='"+r_razm+"' height='"+r_razm+"' title='"+IIF(pub_lan="RUS","УСТАНОВКА загруженных обновлений","SETUP updates")+"' "+;
				+" onmouseout="+'"'+"this.src='"+local_file+"'"+'"'+;
				" onmouseover="+'"'+"this.src='"+local_file2+"'"+'"'+;
				"></a>"


		CASE ele=="knop000016.txt"

			elzam="<a href='http://www.maple4.ru/i_all_styles.htm'><img src='"+pic_fol+"maple4_16"+pic_ext+"' border=0 alt='"+IIF(pub_lan="RUS","Добавить еще ... ","Add New ... ")+"' width='"+r_razm+"px' "+;
				+" onmouseout="+'"'+"this.src='"+pic_fol+"maple4_16"+pic_ext+"'"+'"'+;
				" onmouseover="+'"'+"this.src='"+pic_fol+"maple4_16"+over_out+pic_ext+"'"+'"'+;
				"></a>"


*********************************************

		ENDCASE

	OTHERWISE
*		WAIT WINDOW slovoel
*		elzam=""

	ENDCASE

	file_blank=STRTRAN(file_blank,slovoel,elzam,1,1)
ENDDO




*RETURN vih+"******!"+file_blank

IF view_edit
	vih=vih+file_blank+"<br><br><br><br><br><br>"+IIF(view_edit,"<a href='vfj://help/select_edit(0).prg'>",;
		"<a href='vfj://help/select_edit(1).prg'>")+;
		"<img src='"+;
		STRTRAN(nacal_dire+"\maple4_ru_navigator\procedure\help\wzedit.jpg","\","/")+;
		"' border=0 title='"+IIF(pub_lan="RUS",IIF(view_edit,"Убрать редактирование","Добавить редактирование"),IIF(view_edit,"Edit OFF","Edit ON"))+"'>"+;
		"</a>"
ELSE 
vih=vih+file_blank
ENDIF

RETURN vih





