fckeditor.afp
159 lines
| 4.2 KiB
| application/vnd.ibm.modcap
|
TextLexer
arturo
|
r0 | <% | ||
| * FCKeditor - The text editor for Internet - http://www.fckeditor.net | ||||
| * Copyright (C) 2003-2008 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 = [] | ||||
| 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 | ||||
| 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 | ||||
| %> | ||||