< script src="[code.jquery.com]; /script>
< script src="[code.jquery.com]; /script>

jQuery(function() {
	
	// Define
	var resizeTimeout = null;
	
	// Detect Resize Event
	jQuery(window).resize(function () {
		
		// Clear Previous Timer
		window.clearTimeout(resizeTimeout);
		
		// Set New Timer
		window.setTimeout(function () {
			
			// Trigger Event
			jQuery("td:contains('Window Resize Event')").parents("tr").find("input").val(jQuery(window).width()).trigger("change");
			
		}, 350);
		
	});

})

PROCEDURE Save_SplitterPos(nPos)
INIWrite("store","splitter",NumToString(nPos),fExeDir()+"\settings.ini")

AJAXExecute(Save_SplitterPos,BTN_Splitter..X)

nSplitterPos=Val(INIRead("store","splitter","0",fExeDir()+"\settings.ini"))

IF nSplitterPos<>0 THEN
   bMoving=True  //set the global boolean to true to enable the move
   Move_Splitter(nSplitterPos)  //do the move
   bMoving=False //reset the global boolean to false to stop move mode.
END
CELL_Left..Height=ZONE_Body..Height-10
CELL_Right..Height=ZONE_Body..Height-10
CELL_Right..Width=ZONE_Body..Width-CELL_Left..Width-50

sError,sControl is string

x is string

x=Check_Input(edt_Roepnaam..Name+RC+edt_Voorl..Name+RC+edt_Naam..Name+RC+edt_GebDat..Name+TAB+"date"+RC+edt_Email..Name+TAB+"email")
IF x<>"" THEN
	sError=ExtractString(x,1)
	sControl=ExtractString(x,2)
	RETURN
        //code continued, validation o.k.
END

PROCEDURE Check_Input(sFieldList)
x,sError,sControl,sStart is string

FOR EACH STRING sField OF sFieldList SEPARATED BY CR
	x=ExtractString(sField,1)
	sStart="The field '"+{x,indControl}..Caption+"' "
	SWITCH ExtractString(sField,2)
		CASE "email" 
			IF NOT CheckEmail({x,indControl}) THEN
				sError=sStart+"does not contain a valid email addres"
			END
		CASE "date" 
			IF NOT DateValid({x,indControl}) THEN
				sError=sStart+"does not contain a valid date."
			END
		CASE "bank" 
                        //this is a typical Dutch check for bank account numbers
			IF NOT Elfproef_OK(0,{x,indControl},True,9) THEN
				sError=sStart+"voldoet niet aan de 11-proef."
			END
		OTHER CASE
			IF {x,indControl}="" THEN
				sError=sStart+" is required."
			END
	END
	IF sError<>"" THEN
		sControl={x,indControl}..Alias  //By using the alias we can use the sControlname in browser code
		BREAK
	END
END
IF sError="" THEN
	RESULT ""
ELSE
	RESULT sError+TAB+sControl
END

IF sError<>"" THEN
	Info(sError)
	ReturnToCapture(sControl)
END

$uploadpath = "/MyProject_WEB/my_images/";

#BEGIN PHP INSTALLER EDITS - REMOVE ONLY ON UNINSTALL
PHPIniDir "C:\Program Files (x86)\PHP"
LoadModule php5_module "C:\Program Files (x86)\PHP/php5apache2_2.dll"
#END PHP INSTALLER EDITS - REMOVE ONLY ON UNINSTALL

LOCAL
	sParam,sUploadDir is string 
	
sParam="/MyProject_WEB/pdw_file_browser/index.php?editor=ckeditor"
sUploadDir="/MyProject_WEB/"+"/my_images/"

JSMethod("CKEDITOR","replace",edt_Text1..Alias)   //edt_Text1 is the edit control
//JSProperty("CKEDITOR.config","filebrowserBrowseUrl")=sParam
JSProperty("CKEDITOR.config","filebrowserImageBrowseUrl")=sParam+"&filter=image
//JSProperty("CKEDITOR.config","filebrowserFlashBrowseUrl")=sParam+"&filter=flash
JSProperty("CKEDITOR.config","filebrowserWindowWidth")=1000
JSProperty("CKEDITOR.config","filebrowserWindowHeight")=720

<Files YourApp_Name/pdw_file_browser>  
	ForceType None
</Files>

// $uploadpath = "/VZTC_WEB_WEB/02303/my_images/"; // absolute path from root to upload folder (DON'T FORGET SLASHES)

// Modified PVZ : $uploadpath becomes a parameter when calling index.php
// Get upload path
if(!empty($_REQUEST['upload_path'])) {
    $uploadpath = $_REQUEST['upload_path'];
    $_SESSION['upload_path'] = $uploadpath;
} elseif (isset($_SESSION['upload_path'])) {
    $uploadpath = $_SESSION['upload_path'];
} else {
    $uploadpath = "";
}

LOCAL
	sParam,sUploadDir is string 
	
sParam="/MyProject_WEB/pdw_file_browser/index.php?editor=ckeditor"
sUploadDir="/MyProject_WEB/"+sVerNr+"/my_images/"

JSMethod("CKEDITOR","replace",edt_Text1..Alias)
//JSProperty("CKEDITOR.config","filebrowserBrowseUrl")=sParam+"&upload_path="+sUploadDir
JSProperty("CKEDITOR.config","filebrowserImageBrowseUrl")=sParam+"&filter=image&upload_path="+sUploadDir
//JSProperty("CKEDITOR.config","filebrowserFlashBrowseUrl")=sParam+"&filter=flash&upload_path="+sUploadDir
JSProperty("CKEDITOR.config","filebrowserWindowWidth")=1000
JSProperty("CKEDITOR.config","filebrowserWindowHeight")=720

CellDisplayDialog(WaitCell)  //check the other possible parameters for this function.
GaugeActivate(PROGBAR_NoName1,50)

i is int
PROGBAR_NoName1..MaxValue=HNbRec(MyFile)
TableDeleteAll(Table_Table1)
FOR ALL MyFile_or_Query ON MyKey
   i++
   PROGBAR_NoName1=i
   Multitask(-1)
   //do your processing here
   TableAddLine(blablabla)
END
PROGBAR_NoName1=0  //reset to zero for next time