home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Bonus / lotus123rel9 / approach / scripts / makecalc.tpl < prev   
Encoding:
Text File  |  1996-09-17  |  1.2 KB  |  40 lines
  1. 'Create calculated field
  2.     'Field1 and Field2 are valid fields in the table attached to this apr
  3.     'If there are joins, you must specify the table name, as in
  4.     ' tablename.fieldname
  5.     rval = CurrentDocument.createcalcfield("AddIt", "Field1 + Field2")
  6.  
  7.     'Create a new fieldbox to place on the body panel of the current view
  8.     Set myField= New Fieldbox(CurrentView.body)
  9.  
  10.     'Set the dimensions of the fieldbox.  Values are  in twips
  11.     myfield.left = 800
  12.     myField.top = 2000
  13.     myfield.width = 1500
  14.     myfield.height =500
  15.  
  16.     'Don't enclose the field label text
  17.     myfield.border.encloselabel = 0
  18.  
  19.     'Set the border properties
  20.     myfield.border.pattern = $LTSBORDERPATTERNDOUBLE
  21.     myfield.border.color.setrgb color_black
  22.     myfield.border.width = $APR6POINT
  23.  
  24.     'Make the field visible
  25.     myfield.visible = True
  26.  
  27.     'Set the text for the label and its properties
  28.     myField.labeltext = "AddIt"
  29.     myfield.labelposition=$ltspositiontop
  30.     myField.labelalignment = $ltsAlignmentLEFT
  31.  
  32.     'Add shadow color to the fieldbox
  33.     myfield.shadowcolor.setrgb color_30_gray
  34.  
  35.     'Attach the calculated field that was created to the field box
  36.     myfield.datafield = "Addit"
  37.  
  38.     'Set the fill color for the field box
  39.     myfield.background.color.setrgb color_White
  40.