home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 September / Personal_Computer_World_Sep_97.iso / DXRS / CDXPCW09.DXR / 00009_CDXShowResults.ls < prev    next >
Encoding:
Text File  |  1997-06-25  |  4.9 KB  |  125 lines
  1. on CDXShowResults
  2.   global CDXpageselect, CDXrecordsfound, CDProdList, CDDescList, CDSectionList, CDCatlist, CDStatusList, CDIssueList, CDXResFieldsList, CDXSearchMasterList, CDXTitle
  3.   set display to EMPTY
  4.   put EMPTY into field "CDXRESPROD"
  5.   repeat with g = 1 to count(CDProdList)
  6.     set display to display & getAt(CDProdList, g) & RETURN
  7.   end repeat
  8.   put display into field "CDXRESPROD"
  9.   set the textSize of member "CDXRESPROD" to 9
  10.   set the boxType of member "CDXRESPROD" to #adjust
  11.   if the machineType > 200 then
  12.     set the textFont of member "CDXRESPROD" to "arial"
  13.   else
  14.     set the textFont of member "CDXRESPROD" to "geneva"
  15.   end if
  16.   set display to EMPTY
  17.   put EMPTY into field "CDXRESDesc"
  18.   repeat with g = 1 to count(CDDescList)
  19.     set display to display & getAt(CDDescList, g) & RETURN
  20.   end repeat
  21.   put display into field "CDXRESDesc"
  22.   set display to EMPTY
  23.   set the textSize of member "CDXRESDesc" to 9
  24.   set the boxType of member "CDXRESDesc" to #adjust
  25.   if the machineType > 200 then
  26.     set the textFont of member "CDXRESDesc" to "arial"
  27.   else
  28.     set the textFont of member "CDXRESDesc" to "geneva"
  29.   end if
  30.   put EMPTY into field "CDXRESsection"
  31.   repeat with g = 1 to count(CDSectionList)
  32.     set display to display & getAt(CDSectionList, g) & RETURN
  33.   end repeat
  34.   put display into field "CDXRESsection"
  35.   set the textSize of member "CDXRESsection" to 9
  36.   set the boxType of member "CDXRESsection" to #adjust
  37.   if the machineType > 200 then
  38.     set the textFont of member "CDXRESsection" to "arial"
  39.   else
  40.     set the textFont of member "CDXRESsection" to "geneva"
  41.   end if
  42.   set display to EMPTY
  43.   put EMPTY into field "CDXRESCat"
  44.   repeat with g = 1 to count(CDCatlist)
  45.     set display to display & getAt(CDCatlist, g) & RETURN
  46.   end repeat
  47.   put display into field "CDXRESCat"
  48.   set the textSize of member "CDXRESCat" to 9
  49.   set the boxType of member "CDXRESCat" to #adjust
  50.   if the machineType > 200 then
  51.     set the textFont of member "CDXRESCat" to "arial"
  52.   else
  53.     set the textFont of member "CDXRESCat" to "geneva"
  54.   end if
  55.   set display to EMPTY
  56.   put EMPTY into field "CDXRESstatus"
  57.   repeat with g = 1 to count(CDStatusList)
  58.     set display to display & getAt(CDStatusList, g) & RETURN
  59.   end repeat
  60.   put display into field "CDXRESstatus"
  61.   set the textSize of member "CDXRESstatus" to 9
  62.   set the boxType of member "CDXRESstatus" to #adjust
  63.   if the machineType > 200 then
  64.     set the textFont of member "CDXRESstatus" to "arial"
  65.   else
  66.     set the textFont of member "CDXRESstatus" to "geneva"
  67.   end if
  68.   set display to EMPTY
  69.   put EMPTY into field "CDXRESissue"
  70.   repeat with g = 1 to count(CDIssueList)
  71.     set display to display & getAt(CDIssueList, g) & RETURN
  72.   end repeat
  73.   put display into field "CDXRESissue"
  74.   set the textSize of member "CDXRESissue" to 9
  75.   set the boxType of member "CDXRESissue" to #adjust
  76.   if the machineType > 200 then
  77.     set the textFont of member "CDXRESissue" to "arial"
  78.   else
  79.     set the textFont of member "CDXRESissue" to "geneva"
  80.   end if
  81.   if CDXpageselect > 0 then
  82.     put "Table" && CDXpageselect && "of " && integer(CDXrecordsfound / 18) + 1 into field "CDpagexofy"
  83.     set the textSize of member "CDPagexofy" to 12
  84.     set the boxType of member "CDPagexofy" to #adjust
  85.     if the machineType > 200 then
  86.       set the textFont of member "CDPagexofy" to "arial"
  87.     else
  88.       set the textFont of member "CDPagexofy" to "geneva"
  89.     end if
  90.     set the textStyle of member "CDPagexofy" to "bold"
  91.   else
  92.     put "Table 1 of 1" into field "CDpagexofy"
  93.   end if
  94.   repeat with t = 1 to count(CDXSearchMasterList)
  95.     if getAt(getAt(CDXSearchMasterList, t), 1) <> 31 then
  96.       set the locH of sprite getAt(getAt(CDXSearchMasterList, t), 1) to 2000
  97.     end if
  98.   end repeat
  99.   repeat with t = 1 to count(CDXResFieldsList)
  100.     set the member of sprite getAt(getAt(CDXResFieldsList, t), 1) to member getAt(getAt(CDXResFieldsList, t), 5)
  101.     set the loc of sprite getAt(getAt(CDXResFieldsList, t), 1) to point(getAt(getAt(CDXResFieldsList, t), 2), getAt(getAt(CDXResFieldsList, t), 3))
  102.     set the ink of sprite getAt(getAt(CDXResFieldsList, t), 1) to getAt(getAt(CDXResFieldsList, t), 4)
  103.   end repeat
  104.   set the member of sprite CDXTitle to member "CDXResult"
  105.   set the member of sprite 4 to member "CDXExplanation"
  106.   set the loc of sprite 4 to point(262, 451)
  107.   set the ink of sprite 4 to 36
  108.   set the member of sprite 23 to member "CDXSomethingGraphic"
  109.   set the loc of sprite 23 to point(209, 156)
  110.   set the ink of sprite 23 to 36
  111.   if CDXrecordsfound > 18 then
  112.     set the castNum of sprite 31 to the number of member "CDXPREVIOUS"
  113.     set the castNum of sprite 32 to the number of member "CDXNEXT"
  114.     if CDXpageselect = (integer(CDXrecordsfound / 18) + 1) then
  115.       set the locH of sprite 32 to 2000
  116.     else
  117.       set the loc of sprite 32 to point(95, 420)
  118.     end if
  119.   end if
  120.   set the castNum of sprite 33 to the number of member "CDpagexofy"
  121.   set the loc of sprite 33 to point(21, 388)
  122.   set the ink of sprite 33 to 36
  123.   updateStage()
  124. end
  125.