What PC? 1996 August/WPCAUG96.ISO/multi/singing/shared.dxr/01983.ls

Text File | 1996-06-12 | 753 b | 28 lines

on resizecast
  global dataFirst, dataLast
  InitDataRange()
  repeat with i = dataFirst to dataLast
    put i
    if the castType of cast i <> #empty then
      set the rect of cast i to rect(0, 0, 279 - 16, 292)
    end if
  end repeat
end

on colorisefields
  repeat with i = 861 to 3000
    if the castType of cast i <> #empty then
      put i
      set the textFont of field i to "Helvetica"
      set the textSize of field i to 12
      set textlength to the number of words in field i
      repeat with t = 1 to textlength
        if the textStyle of word t of cast i contains "bold" then
          put i && "blueing word " & t
          set the foreColor of word t of cast i to Blue()
        end if
      end repeat
    end if
  end repeat
end