home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 October A / Pcwk10a98.iso / Lotus / LOTUS / SAMPLES / APPROACH / SCPTDEMO.LSS < prev   
Encoding:
Text File  |  1995-08-24  |  1.3 KB  |  39 lines
  1. Sub Recordchange(Source As Docwindow)
  2.  
  3. If currentview.body.objradio.isclicked=True Then
  4. currentview.body.company.background.color.setrgb(COLOR_YELLOW)
  5. Print "Done!"
  6.  
  7. Elseif currentview.body.objradio3.isclicked=True Then
  8. currentview.body.company.background.color.setrgb(COLOR_RED)
  9. currentview.body.company.font.bold=True
  10. currentview.body.company.font.italic=True
  11. currentview.body.company.font.size=12
  12. Set currentview.body.lastname.font = currentview.body.company.font
  13.         
  14. Else
  15.  
  16.     
  17. currentview.body.company.background.color.setrgb(COLOR_WHITE)
  18. Set currentview.body.company.font = currentview.body.firstname.font
  19.  
  20. End If
  21.     
  22. '    Brief Comments about the LotusScript Example
  23. '
  24. 'The example above changes the fill color of the COMPANY
  25. 'field based on 'the value in the STATUS field.  When it 
  26. 'encounters a PREMIUM customer, it changes the font information 
  27. 'in the LASTNAME field to those of the COMPANY field.  
  28. '
  29. 'Please note that the object-oriented capabilities of Approach
  30. 'allow us to set the LASTNAME field to ALL of the font 
  31. 'characteristics of another field -- with a single statement.  
  32. 'Visual BASIC would have required that the developer reissue 
  33. 'all of the individual statements for:     
  34. '    currentview.body.company.font.bold=True
  35. '    currentview.body.company.font.italic=True
  36. '    currentview.body.company.font.size=12
  37.  
  38.  
  39. End Sub