File Open Dialog Behavior

 

Compatibilities: Required Xtras: HandyDialog Xtra

Rating:

Generic Behavior to display File Open Dialog.

-- File Open Dialog Behavior -- HandyDialog Xtra 1.0 or later is required -- by Meliora Software www.meliorasoft.com/xtras/ -- Compatibilities: Director 6.0 or higher, Windows property Title, FileType, FileExt, MultiSelect, FileMustExist, ShowReadOnlyBox, InitReadOnlyBox, InitFile, InitDir on getPropertyDescriptionList   set description = [:]   addProp description, #Title, [#default:"", #format:#string, #comment:"Dialog Title:"]   addProp description, #FileType, [#default:"", #format:#string, #comment:"File Group Description:"]   addProp description, #FileExt, [#default:"", #format:#string, #comment:"File Extensions (*.bmp; *.jpg):"]   addProp description, #MultiSelect, [#default:false, #format:#boolean, #comment:"Allow multiselection:"]   addProp description, #FileMustExist, [#default:false, #format:#boolean, #comment:"If the file to be opened must exist:"]   addProp description, #ShowReadOnlyBox, [#default:false, #format:#boolean, #comment:"Display Read Only Checkbox:"]   addProp description, #InitReadOnlyBox, [#default:false, #format:#boolean, #comment:"Read Only Checkbox is checked by default:"]   addProp description, #InitFile, [#default:"", #format:#string, #comment:"Initial file name (uncheck multiselection):"]   addProp description, #InitDir, [#default:the moviePath, #format:#string, #comment:"Initial path:"]   return description end on mouseDown   fileOpenDialog end on fileOpenDialog      -- File Dialog Init Settings   set Filters = [[FileType, FileExt]]   set InitFilter = 1   set InitSettings = [:]   addProp InitSettings, #Filters, Filters   addProp InitSettings, #Title, Title   addProp InitSettings, #InitFilter, InitFilter   addProp InitSettings, #MultiSelect, MultiSelect   addProp InitSettings, #FileMustExist, FileMustExist   addProp InitSettings, #ShowReadOnly, ShowReadOnlyBox   addProp InitSettings, #InitReadOnly, InitReadOnlyBox   addProp InitSettings, #InitFile, InitFile   addProp InitSettings, #InitDir, InitDir      set Ok = showFileDialog("Open", InitSettings)      if getAt(Ok,1) = 0 then     if count(Ok) = 3 then       -- Some file was selected       put getAt(Ok,3)     else       --  Cancel button was clicked       put "Cancel button was clicked"     end if   else     -- Error occured     alert("Error: " & getAt(Ok, 1) & " - base error code")   end if    end on getBehaviorDescription   return "- -   File Open Dialog Behavior   - -" end

Upload Provided by ABCUpload ASP