home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 August / Personal_Computer_World_Aug_97.iso / dxrs / cdxpcw08.dxr / 00032_CDXdisplay.ls < prev    next >
Encoding:
Text File  |  1997-05-22  |  4.5 KB  |  116 lines
  1. on CDXdisplay
  2.   global CDXresultlist, CDProdList, CDDescList, CDCatlist, CDStatusList, CDSectionList, CDIssueList, CDXResFieldsList, CDXfieldnamesList, CDrecordsfound, CDpageselect
  3.   set display to EMPTY
  4.   put EMPTY into field "CDRESPROD"
  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 "CDRESPROD"
  9.   set the textSize of member "CDRESPROD" to 9
  10.   set the boxType of member "CDRESPROD" to #fixed
  11.   if the machineType > 200 then
  12.     set the textFont of member "CDRESPROD" to "arial"
  13.   else
  14.     set the textFont of member "CDRESPROD" to "geneva"
  15.   end if
  16.   set display to EMPTY
  17.   put EMPTY into field "CDRESDesc"
  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 "CDRESDesc"
  22.   set display to EMPTY
  23.   set the textSize of member "CDRESDesc" to 9
  24.   set the boxType of member "CDRESDesc" to #fixed
  25.   if the machineType > 200 then
  26.     set the textFont of member "CDRESDesc" to "arial"
  27.   else
  28.     set the textFont of member "CDRESDesc" to "geneva"
  29.   end if
  30.   put EMPTY into field "CDRESsection"
  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 "CDRESsection"
  35.   set the textSize of member "CDRESsection" to 9
  36.   set the boxType of member "CDRESsection" to #fixed
  37.   if the machineType > 200 then
  38.     set the textFont of member "CDRESsection" to "arial"
  39.   else
  40.     set the textFont of member "CDRESsection" to "geneva"
  41.   end if
  42.   set display to EMPTY
  43.   put EMPTY into field "CDRESCat"
  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 "CDRESCat"
  48.   set the textSize of member "CDRESCat" to 9
  49.   set the boxType of member "CDRESCat" to #fixed
  50.   if the machineType > 200 then
  51.     set the textFont of member "CDRESCat" to "arial"
  52.   else
  53.     set the textFont of member "CDRESCat" to "geneva"
  54.   end if
  55.   set display to EMPTY
  56.   put EMPTY into field "CDRESstatus"
  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 "CDRESstatus"
  61.   set the textSize of member "CDRESstatus" to 9
  62.   set the boxType of member "CDRESstatus" to #fixed
  63.   if the machineType > 200 then
  64.     set the textFont of member "CDRESstatus" to "arial"
  65.   else
  66.     set the textFont of member "CDRESstatus" to "geneva"
  67.   end if
  68.   set display to EMPTY
  69.   put EMPTY into field "CDRESissue"
  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 "CDRESissue"
  74.   set the textSize of member "CDRESissue" to 9
  75.   set the boxType of member "CDRESissue" to #fixed
  76.   if the machineType > 200 then
  77.     set the textFont of member "CDRESissue" to "arial"
  78.   else
  79.     set the textFont of member "CDRESissue" to "geneva"
  80.   end if
  81.   if CDpageselect > 0 then
  82.     put "Table" && CDpageselect && "of " && integer(CDrecordsfound / 18) + 1 into field "CDpagexofy"
  83.     set the textSize of member "CDPagexofy" to 12
  84.     set the boxType of member "CDPagexofy" to #fixed
  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(CDXResFieldsList)
  95.     set the castNum of sprite getAt(getAt(CDXResFieldsList, t), 1) to the number of member getAt(getAt(CDXResFieldsList, t), 5)
  96.     set the loc of sprite getAt(getAt(CDXResFieldsList, t), 1) to point(getAt(getAt(CDXResFieldsList, t), 2), getAt(getAt(CDXResFieldsList, t), 3))
  97.     set the ink of sprite getAt(getAt(CDXResFieldsList, t), 1) to getAt(getAt(CDXResFieldsList, t), 4)
  98.   end repeat
  99.   set the castNum of sprite 35 to the number of member "SomethingGraphic"
  100.   set the loc of sprite 35 to point(217, 156)
  101.   updateStage()
  102.   if CDrecordsfound > 18 then
  103.     set the castNum of sprite 31 to the number of member "CDPREVIOUS"
  104.     set the castNum of sprite 32 to the number of member "CDNEXT"
  105.     if CDpageselect = (integer(CDrecordsfound / 18) + 1) then
  106.       set the locH of sprite 32 to 2000
  107.     else
  108.       set the loc of sprite 32 to point(95, 413)
  109.     end if
  110.   end if
  111.   set the castNum of sprite 33 to the number of member "CDpagexofy"
  112.   set the loc of sprite 33 to point(21, 388)
  113.   set the ink of sprite 33 to 36
  114.   updateStage()
  115. end
  116.