<%

 * FCKeditor - The text editor for Internet - http://www.fckeditor.net

 * Copyright (C) 2003-2007 Frederico Caldeira Knabben

 *

 * == BEGIN LICENSE ==

 *

 * Licensed under the terms of any of the following licenses at your

 * choice:

 *

 *  - GNU General Public License Version 2 or later (the "GPL")

 *    http://www.gnu.org/licenses/gpl.html

 *

 *  - GNU Lesser General Public License Version 2.1 or later (the "LGPL")

 *    http://www.gnu.org/licenses/lgpl.html

 *

 *  - Mozilla Public License Version 1.1 or later (the "MPL")

 *    http://www.mozilla.org/MPL/MPL-1.1.html

 *

 * == END LICENSE ==

 *

 * This is the integration file for Active FoxPro Pages.

 *



DEFINE CLASS goFckeditor AS CONTAINER OLEPUBLIC



	cInstanceName =""

	BasePath =""

	cWIDTH =""

	cHEIGHT =""

	ToolbarSet =""

	cValue=""

	DIMENSION aConfig(10,2)



&& -----------------------------------------------------------------------

	FUNCTION fckeditor( tcInstanceName )

		LOCAL lnLoop,lnLoop2

		THIS.cInstanceName	= tcInstanceName

		THIS.BasePath	= '/fckeditor/'

		THIS.cWIDTH		= '100%'

		THIS.cHEIGHT	= '200'

		THIS.ToolbarSet	= 'Default'

		THIS.cValue		= ''

		FOR lnLoop=1 TO 10

			FOR lnLoop2=1 TO 2

				THIS.aConfig(lnLoop,lnLoop2)	= ""

			NEXT

		NEXT

		RETURN

	ENDFUNC





&& -----------------------------------------------------------------------

	FUNCTION CREATE()

		? THIS.CreateHtml()

		RETURN

	ENDFUNC



&& -----------------------------------------------------------------------

	FUNCTION CreateHtml()

		LOCAL html

		LOCAL lcLink



		HtmlValue = THIS.cValue		&& HTMLSPECIALCHARS()



		html = [<div>]

		IF THIS.IsCompatible()

			lcLink = THIS.BasePath+[editor/fckeditor.html?InstanceName=]+THIS.cInstanceName



			IF ( !THIS.ToolbarSet == '' )

				lcLink = lcLink + [&Toolbar=]+THIS.ToolbarSet

			ENDIF



			&& Render the LINKED HIDDEN FIELD.

			html = html + [<input type="hidden" id="]+THIS.cInstanceName +[" name="]+THIS.cInstanceName +[" value="]+HtmlValue+[" style="display:none" />]



			&& Render the configurations HIDDEN FIELD.

			html = html + [<input type="hidden" id="]+THIS.cInstanceName +[___Config" value="]+THIS.GetConfigFieldString() + [" style="display:none" />] +CHR(13)+CHR(10)



			&& Render the EDITOR IFRAME.

			html = html + [<iframe id="]+THIS.cInstanceName +[___Frame" src="Link" width="]+THIS.cWIDTH+[" height="]+THIS.cHEIGHT+[" frameborder="0" scrolling="no"></iframe>]

		ELSE

			IF ( AT("%", THIS.cWIDTH)=0 )

				WidthCSS = THIS.cWIDTH + 'px'

			ELSE

				WidthCSS = THIS.cWIDTH

			ENDIF



			IF ( AT("%",THIS.cHEIGHT)=0  )

				HeightCSS = THIS.cHEIGHT + 'px'

			ELSE

				HeightCSS = THIS.cHEIGHT

			ENDIF



			html = html + [<textarea name="]+THIS.cInstanceName +[" rows="4" cols="40" style="width: ]+WidthCSS+[ height: ]+HeightCSS+[">]+HtmlValue+[</textarea>]

		ENDIF



		html = html + [</div>]



		RETURN (html)

	ENDFUNC





&& -----------------------------------------------------------------------

	FUNCTION IsCompatible()

		LOCAL llRetval

		LOCAL sAgent



		llRetval=.F.



		SET POINT TO "."



		sAgent = LOWER(ALLTRIM(request.servervariables("HTTP_USER_AGENT")))



		IF AT("msie",sAgent) >0 .AND. AT("mac",sAgent)=0 .AND. AT("opera",sAgent)=0

			iVersion=VAL(SUBSTR(sAgent,AT("msie",sAgent)+5,3))

			llRetval= iVersion > 5.5

		ELSE

			IF AT("gecko/",sAgent)>0

				iVersion=VAL(SUBSTR(sAgent,AT("gecko/",sAgent)+6,8))

				llRetval =iVersion > 20030210

			ENDIF

		ELSE

			IF AT("opera/",sAgent)>0

				iVersion=VAL(SUBSTR(sAgent,AT("opera/",sAgent)+6,4))

				llRetval =iVersion >= 9.5

			ENDIF

		ELSE

			IF AT("applewebkit/",sAgent)>0

				iVersion=VAL(SUBSTR(sAgent,AT("applewebkit/",sAgent)+12,3))

				llRetval =iVersion >= 522

			ENDIF

		ENDIF



		SET POINT TO



		RETURN (llRetval)

	ENDFUNC



&& -----------------------------------------------------------------------

	FUNCTION GetConfigFieldString()

		LOCAL sParams

		LOCAL bFirst

		LOCAL sKey

		sParams = ""

		bFirst = .T.

		FOR lnLoop=1 TO 10 && ALEN(this.aconfig)

			IF !EMPTY(THIS.aConfig(lnLoop,1))

				IF bFirst = .F.

					sParams = sParams + "&"

				ELSE

					bFirst = .F.

				ENDIF

				sParams = sParams +THIS.aConfig(lnLoop,1)+[=]+THIS.aConfig(lnLoop,2)

			ELSE

				EXIT

			ENDIF

		NEXT

		RETURN(sParams)

	ENDFUNC

ENDDEFINE

%>