Customising Forms

Hi,

Thanks to both of you for your inputs.

Actually I already use a fileSelector, but the goal isn't only to browse to the path and select a directory, but to make sure that the user enters a valid address, if he decides to enter it manually.

One way is to verify everything when the user presses OK, but I would like to do that verification before closing the form.

Imagine that, as you enter manually the path, you'll have a label that says "invalid directory" and as you continue typing it will eventually say "Valid Directory !".

In other languages there are events which are triggered whenever the user writes, clicks, etc.

Please find below my code, and make any suggestions you like on it.

Thanks in advance,

José

;==============================================================================
;===================== Building the form "createMainForm" ======================
;==============================================================================

procedure(createMainForm()
let((myLabel myDataPathSelector myRadio1 myRadio2 sep1 mytoggle)

; Create the top label
myLabel=hiCreateLabel(
?name 'myLabelText
?labelText "Settings"
?justification 'center
)

; Create Separator
sep1=hiCreateSeparatorField(?name 'sep1)

; Create Separator
;sep2=hiCreateSeparatorField(?name 'sep2)

; Allows user to select the config file
/*myFileSelector = hiCreateFileSelectorField(
?name 'fileSelector
?mode 'anyFile
?prompt "Path to config file: "
?value "Insert the path to your config file here !"
?defValue "~/Desktop/config.txt"
)*/

; Directory Select allows user to select the directory where to save the files
myDataPathSelector = hiCreateFileSelectorField(
?name 'dataPath
?mode 'directoryOnly
?prompt "Path to saved images: "
?value "Insert the path to your images here !"
?defValue "~/Desktop/"
)

;Radio Buttons
myRadio1 = hiCreateRadioField(
?name 'radio1
?prompt "Always reload this form"
?defValue "No"
?callback list( "RadioBtnCB()")
?choices list("Yes" "No")
)

;Radio Buttons auto naming of pictures
myRadio2 = hiCreateRadioField(
?name 'radio2
?prompt "Image's Naming"
?defValue "Auto"
; ?callback '("dispMessage("\nConfigFilest Radio button callback\n")" "")
?choices list("Auto" "Manual")
)

mytoggle = hiCreateToggleField(
?name 'overwrite
?prompt ""
?choices list('(temp "Overwrite config File ?"))
?value '(t)
?numSelect 1
?callback list( "RadioBtnCB()")
)

hiCreateAppForm(
?name 'settingsForm
?formTitle "Script Configuration"
?callback "";
?fields list(myLabel sep1 myDataPathSelector myRadio1 myRadio2 mytoggle)
?buttonLayout `OKCancelDef
)

) ; End let statment
hiDisplayForm(settingsForm)
) ; End Procedure createMainForm

Hi,

Thanks to both of you for your inputs.

Actually I already use a fileSelector, but the goal isn't only to browse to the path and select a directory, but to make sure that the user enters a valid address, if he decides to enter it manually.

One way is to verify everything when the user presses OK, but I would like to do that verification before closing the form.

Imagine that, as you enter manually the path, you'll have a label that says "invalid directory" and as you continue typing it will eventually say "Valid Directory !".

In other languages there are events which are triggered whenever the user writes, clicks, etc.

Please find below my code, and make any suggestions you like on it.

Thanks in advance,

José

;==============================================================================
;===================== Building the form "createMainForm" ======================
;==============================================================================

procedure(createMainForm()
let((myLabel myDataPathSelector myRadio1 myRadio2 sep1 mytoggle)

; Create the top label
myLabel=hiCreateLabel(
?name 'myLabelText
?labelText "Settings"
?justification 'center
)

; Create Separator
sep1=hiCreateSeparatorField(?name 'sep1)

; Create Separator
;sep2=hiCreateSeparatorField(?name 'sep2)

; Allows user to select the config file
/*myFileSelector = hiCreateFileSelectorField(
?name 'fileSelector
?mode 'anyFile
?prompt "Path to config file: "
?value "Insert the path to your config file here !"
?defValue "~/Desktop/config.txt"
)*/

; Directory Select allows user to select the directory where to save the files
myDataPathSelector = hiCreateFileSelectorField(
?name 'dataPath
?mode 'directoryOnly
?prompt "Path to saved images: "
?value "Insert the path to your images here !"
?defValue "~/Desktop/"
)

;Radio Buttons
myRadio1 = hiCreateRadioField(
?name 'radio1
?prompt "Always reload this form"
?defValue "No"
?callback list( "RadioBtnCB()")
?choices list("Yes" "No")
)

;Radio Buttons auto naming of pictures
myRadio2 = hiCreateRadioField(
?name 'radio2
?prompt "Image's Naming"
?defValue "Auto"
; ?callback '("dispMessage("\nConfigFilest Radio button callback\n")" "")
?choices list("Auto" "Manual")
)

mytoggle = hiCreateToggleField(
?name 'overwrite
?prompt ""
?choices list('(temp "Overwrite config File ?"))
?value '(t)
?numSelect 1
?callback list( "RadioBtnCB()")
)

hiCreateAppForm(
?name 'settingsForm
?formTitle "Script Configuration"
?callback "";
?fields list(myLabel sep1 myDataPathSelector myRadio1 myRadio2 mytoggle)
?buttonLayout `OKCancelDef
)

) ; End let statment
hiDisplayForm(settingsForm)
) ; End Procedure createMainForm