home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 74 / IOPROG_74.ISO / ioProg.exe / ioProg.DXR / Internal_66_ScriptLineField.ls < prev    next >
Encoding:
Text File  |  2003-09-30  |  1.6 KB  |  42 lines
  1. global riga, oldLocV, nRighe, pagina, car2, sinistra, caratteri, caratteri2, righeMissing, evidenzia, rsHandleCpp, vaiAvanti, progr, lv, ActualRecordset, lineaEvid, numbersprite
  2.  
  3. on mouseDown me
  4.   member("memberLink").text = EMPTY
  5.   evidenzia = the mouseLine
  6.   lineaEvid = evidenzia
  7.   if (evidenzia <> -1) and (member("testolista").line[evidenzia] <> EMPTY) then
  8.     hilite member("testolista").line[evidenzia]
  9.     progr = chars(sprite(me.spriteNum).member.line[evidenzia], 3, the number of chars in (the member of sprite(the spriteNum of me)).line[evidenzia])
  10.     DGRSMoveFirst(ActualRecordset)
  11.     DGRSMove(evidenzia - 1, ActualRecordset)
  12.     put DGRSGetFieldValue("Applicazione", ActualRecordset) into member "Titolo"
  13.     if DGRSGetFieldValue("Sottotitolo", ActualRecordset) <> EMPTY then
  14.       put DGRSGetFieldValue("Sottotitolo", ActualRecordset) & RETURN & RETURN into member "descriz"
  15.     else
  16.       member("descriz").text = EMPTY
  17.     end if
  18.     put DGRSGetFieldValue("Descrizione", ActualRecordset) after member "descriz"
  19.     put DGRSGetFieldValue("File", ActualRecordset) into member "nomefile"
  20.     put DGRSGetFieldValue("Dim", ActualRecordset) into member "Dim"
  21.     member("descriz").scrollTop = 0
  22.     sprite(13).locV = sprite(76).top
  23.     if DGRSGetFieldValue("Link", ActualRecordset) <> EMPTY then
  24.       put "Registrazione " & DGRSGetFieldValue("Applicazione", ActualRecordset) after member "memberLink"
  25.     else
  26.       member("memberLink").text = EMPTY
  27.     end if
  28.   end if
  29. end
  30.  
  31. on mouseWithin me
  32.   if member(sprite(me.spriteNum).member).line[the mouseLine] <> EMPTY then
  33.     cursor(280)
  34.   else
  35.     cursor(-1)
  36.   end if
  37. end
  38.  
  39. on mouseLeave me
  40.   cursor(-1)
  41. end
  42.