CambridgeSoft Life Science Enterprise Solutions

Software Developer's Kit - ChemDraw

 		Send comments on this topic
Settings Object
See Also  Members 

Description

Member of ChemDraw Control.

For a list of all members defined for this module, see Settings Members.

ChemDraw Settings Class sets and returns the settings for the document or a particular object.

Remarks

Settings shows the general definitions for the document. Settings can be read from a specific file, containing a template, which can be set for a particular type of publishing. Settings enable drawing the objects following a certain style. For example, if chain angle is set to 120 degrees, the bonds will automatically be drawn at this angle.

Example

Private Sub cmdSettings_click()  
 'Sets the Settings.ChainAngle
  Settings.ChainAngle = Text1.text 
 'Displays all the settings
  Label1.Caption = “Settings Display” + chr$(13) + _
     Format(vObject.Settings.BackgroundColor "&h")+ Chr$(13) + _ 
     Settings.BoldWidth + Chr$(13) + _
     Settings.BondLength + Chr$(13) + _
     Settings.BondSpacing + Chr$(13) + _
     Settings.CaptionFace + Chr$(13) + _
     Settings.CaptionFont + Chr$(13) + _   
     Settings.CaptionJustification + Chr$(13) + _ 
     Settings.CaptionLineHeight + Chr$(13) + _ 
     Settings.CaptionSize + Chr$(13) + _
     Settings.ChainAngle + Chr$(13) + _ 
     Settings.HashSpacing + Chr$(13) + _ 
     Settings.HideImplicitHydrogens + Chr$(13) + _
     Settings.ShowAtomEnhancedStereo + Chr$(13) + _
     Settings.InterpretChemically + Chr$(13) + _
     Format(Settings.Color, "&h") + Chr$(13) + _
     Settings.LabelFace + Chr$(13) + _
     Settings.LabelFont + Chr$(13) + _
     Settings.LabelJustification + Chr$(13) + _
     Settings.LabelLineHeight + Chr$(13) + _
     Settings.LabelSize + Chr$(13) + _
     Settings.LineWidth + Chr$(13) + _
     Settings.MarginWidth + Chr$(13) + _
     Settings.ShowAtomNumber + Chr$(13) + _
     Settings.ShowAtomQuery + Chr$(13) + _
     Settings.ShowAtomStereo + Chr$(13) + _
     Settings.ShowBondQuery + Chr$(13) + _
     Settings.ShowBondRxn + Chr$(13) + _
     Settings.ShowBondStereo + Chr$(13) + _
     Settings.ShowNonTerminalCarbonLabels + Chr$(13) + _
     Settings.ShowTerminalCarbonLabels 
 End Sub

See Also