LiveCode Forums

Code: Select all

start using font file (specialFolderPath("Resources") & "/Fonts/Pacifico.ttf")

Code: Select all

set the textFont of field "fancyText" to "Pacifico"

Code: Select all

on mouseDown
   open stack "Text"
end mouseDown

Code: Select all

on openStack
   if the environment is not "development" then
      iphoneUseDeviceResolution true
   end if
    
   put "Pacifico.ttf,Anton.ttf,Schoolbell.ttf" into tFonts
   repeat for each item tFont in tFonts
      start using font file (specialFolderPath ("resources") & "/Fonts/" & tFont)
      if the result <> empty then
         answer the result
      end if    
   end repeat

   ## Load first, then use!
   set the textfont of button "Pacifico" to "Pacfico"
   set the textfont of button "Schoolbell" to "Schoolbell"
   set the textfont of button "Anton" to "Anton"   
end openStack

Code: Select all

on mouseUp
   answer folder "select a 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 "Nums" of stack "ImageLoad"           
         end repeat        
      end if
end if    
   end mouseUp

Code: Select all

on mouseUp
   focus on nothing
   open printing with dialog
   if the result is "Cancel" then exit mouseUp
   set the printPaperOrientation to "landscape"
   set the printMargins to 0,0,0,0
   set the printPaperSize to "595,842"
   set the printScale to 1
   print stack "ImageArea"
   close printing
end mouseUp