home *** CD-ROM | disk | FTP | other *** search
/ Galleria D'arte: Manet / Manet.iso / Dati / Theme2.dxr / Internal_48_esporta.ls < prev    next >
Encoding:
Text File  |  2000-12-21  |  4.0 KB  |  135 lines
  1. property pExport, pOldRecentFolder, pRecentFolder
  2.  
  3. on beginSprite me
  4.   if the frameLabel = "article" then
  5.     pExport = #txt
  6.   else
  7.     pExport = #jpg
  8.   end if
  9.   pRecentFolder = dosGetSpecialFolder("recent")
  10. end
  11.  
  12. on saveLastPath me, p, ext
  13.   vResults = []
  14.   vOldDelimiter = the itemDelimiter
  15.   the itemDelimiter = "\"
  16.   vFilePath = p
  17.   delete vResults.item[vFilePath.item.count]
  18.   vResults.addAt(1, vFilePath)
  19.   vFilePath = p
  20.   delete vResults.item[1..vFilePath.item.count - 1]
  21.   vOffset = offset(".", vFilePath)
  22.   if vOffset = 0 then
  23.     put "." & ext after vResults
  24.   else
  25.     put "." & ext into vResults.char[vOffset..length(vFilePath)]
  26.   end if
  27.   vResults.addAt(2, vFilePath)
  28.   the itemDelimiter = vOldDelimiter
  29.   return vResults
  30. end
  31.  
  32. on mDeleteRecentLnk me, ext
  33.   vNewRecentFolder = dosGetFilesInFolder(pRecentFolder & "\*.*")
  34.   vLnkToDelete = []
  35.   totItems = vNewRecentFolder.count
  36.   repeat with i = 1 to totItems
  37.     a = vNewRecentFolder[i]
  38.     if getOne(pOldRecentFolder, a) = 0 then
  39.       if a.char[length(a) - 7..length(a) - 4] <> ext then
  40.         vLnkToDelete.add(vNewRecentFolder[i])
  41.       end if
  42.     end if
  43.   end repeat
  44.   totItems = vLnkToDelete.count
  45.   if totItems > 0 then
  46.     repeat with i = 1 to totItems
  47.       vRecentFolder = pRecentFolder & "\" & vLnkToDelete[i]
  48.       dosDeleteFile(vRecentFolder)
  49.       put dosGetLastError()
  50.     end repeat
  51.   else
  52.     nothing()
  53.   end if
  54. end
  55.  
  56. on mouseUp me
  57.   global gQuadro, gpittore, gDesktop
  58.   pOldRecentFolder = dosGetFilesInFolder(pRecentFolder & "\*.*")
  59.   if pExport = #jpg then
  60.     immagine = the text of field "titolo"
  61.     immagine = controllaCaratteri(immagine)
  62.     immagine = immagine & ".jpg"
  63.     path = dosSelectFile("save", gDesktop, immagine, ["jpg|Immagine JPEG"], "Salva l'immagine - copyright DeAgostini 2001")
  64.     if path = EMPTY then
  65.       exit
  66.     end if
  67.     vRes = saveLastPath(me, path, pExport)
  68.     vFilePath = vRes[1]
  69.     vImmagine = vRes[2]
  70.     repeat while path.char[path.char.count - 3..path.char.count] <> ".jpg"
  71.       path = dosSelectFile("save", vFilePath, vImmagine, ["jpg|Immagine JPEG"], "Salva l'immagine - copyright DeAgostini 2001")
  72.       if path = EMPTY then
  73.         exit repeat
  74.       end if
  75.       vRes = saveLastPath(me, path, pExport)
  76.       vFilePath = vRes[1]
  77.       vImmagine = vRes[2]
  78.     end repeat
  79.     if path = EMPTY then
  80.       mDeleteRecentLnk(me, ".jpg")
  81.       exit
  82.     end if
  83.     immagine = gQuadro & "01"
  84.     dimensione = member(immagine).size
  85.     if spazioDriver(path) < (dimensione * 3) then
  86.       openMessageWindow("Spazio insufficiente sul disco per copiare il file.", "Galleria d'arte", "Warning")
  87.       exit
  88.     end if
  89.     dXport(immagine, path, "Quality", 100)
  90.     mDeleteRecentLnk(me, ".jpg")
  91.   else
  92.     file = new(xtra("fileio"))
  93.     testo = the text of field "titolo"
  94.     testo = controllaCaratteri(testo)
  95.     testo = testo & ".txt"
  96.     path = dosSelectFile("save", gDesktop, testo, ["TXT|File di Testo"], "Salva il testo - copyright DeAgostini 2001")
  97.     if path = EMPTY then
  98.       exit
  99.     end if
  100.     vRes = saveLastPath(me, path, pExport)
  101.     vFilePath = vRes[1]
  102.     vTesto = vRes[2]
  103.     repeat while path.char[path.char.count - 3..path.char.count] <> ".TXT"
  104.       path = dosSelectFile("save", vFilePath, vTesto, ["TXT|File di Testo"], "Salva il testo - copyright DeAgostini 2001")
  105.       if path = EMPTY then
  106.         exit repeat
  107.       end if
  108.       vRes = saveLastPath(me, path, pExport)
  109.       vFilePath = vRes[1]
  110.       vTesto = vRes[2]
  111.     end repeat
  112.     if path = EMPTY then
  113.       mDeleteRecentLnk(me, ".txt")
  114.       exit
  115.     end if
  116.     csttesto = gpittore & gQuadro
  117.     dimensione = member(csttesto).size
  118.     if spazioDriver(path) < dimensione then
  119.       openMessageWindow("Spazio insufficiente sul disco per copiare il file.", "Galleria d'arte", "Warning")
  120.       file = 0
  121.       exit
  122.     end if
  123.     if not voidp(path) and not (path = EMPTY) then
  124.       createFile(file, path)
  125.       openFile(file, path, 2)
  126.       csttesto = gpittore & gQuadro
  127.       testo = the text of field csttesto
  128.       writeString(file, testo)
  129.       closeFile(file)
  130.     end if
  131.     file = 0
  132.     mDeleteRecentLnk(me, ".txt")
  133.   end if
  134. end
  135.