LiveCode Forums.

Code: Select all

on mouseUp
   answer file "CHOOSE A PHOTO"
   if the result is "Cancel" then exit mouseUp
   else
      if it is not empty then
         set the filename of image "i1" of stack "ImageArea"  to it
      end if
   end if

Code: Select all

on mouseUp
   
answer folder "CHOOSE AN IMAGE FOLDER"
if the result is "Cancel" then exit mouseUp
else
      
if it <> "" then

 set the defaultfolder to it
put the files into myListOfFiles
filter myListOfFiles with "*.png"     
repeat for each line myFile in myListOfFiles        
import paint from file myFile into card "Images" of stack "ImageLoad"
end repeat
         
end if
end if

Code: Select all

on mouseUp
   
   ## Don't YELL at your users :-)
   answer folder "Choose a folder:"
   
   ##  if the result is "Cancel" then exit mouseUp
   ## When THE RESULT = CANCEL, IT is also EMPTY!
   if it = EMPTY then
      exit mouseup
   end if   
   ## I alsway avoid END IFs wherever possible!
   
   ## NEVER use IT more than neccessary!
   put it into tFolder
   
   ## set the defaultfolder to it
   ## New syntax:
   put files(tFolder) into myListOfFiles
   ## put the files into myListOfFiles
   
   ## Maybe there is a REGEX pattern we could usewith FILTER, but this is still a complete mistery to me :-D
   put myListOfFiles into tJpegs
   put myListOfFiles into tPngs
   put myListOfFiles into tBmps
   
   filter tJpegs with "*.jpg" 
   filter tPngs with "*.png" 
   filter tBmps with "*.bmp"    
   
   put tJpegs & CR & tPngs & CR & tBmps into tCompleteList
   
   ## Remove empty lines:
   filter tCompleteList without EMPTY
   
   repeat for each line myFile in tCompleteList        
    ##  import paint from file myFile into card "Images" of stack "ImageLoad"
      import paint from file (tFolder & "/" & myFile)
      
      ## "import ... INTO ..." will not work, IMPORT always goes into the current card!
      ## But if I remember correctly we already had this one 8-)
   end repeat 
end mouseup

Code: Select all

...
## Remove empty lines:
filter tCompleteList without EMPTY

## No images in folder:
if tCompleteList = EMPTY then
  answer "No images in this folder, idiot!"
  exit to top
end if
...

Code: Select all

 put "Images/crow.jpg" into image "Image1" 

Code: Select all

on mouseUp
   local tMyPath
   local tFile

   set the itemDelimiter to "/"
   put (item 1 to -2 of the effective fileName of this stack) & "/images/" into tMyPath
   -- tMyPath now contains the path to your stack and sub folder images
   
   put tMyPath & "crow.jpg" into tFile
   -- tFile contains the full path to your image
   
   put  Url ("binfile:" & tFile) into image "Image1"
   -- "binfile:" tell the stack that it is expecting data in binary format
end mouseUp