SetOMROptions Example for Visual Basic
Private Sub Command18_Click()
RasterDoc.GetOMROptions
If RasterDoc.OMRModuleOptions.EnableFill = False Then
RasterDoc.OMRModuleOptions.EnableFill = True
End If
If RasterDoc.OMRModuleOptions.Frame <> OMRFRAME_YES Then
RasterDoc.OMRModuleOptions.Frame = OMRFRAME_YES
End If
If RasterDoc.OMRModuleOptions.Sense <> OMRSENSE_NORMAL Then
RasterDoc.OMRModuleOptions.Sense = OMRSENSE_NORMAL
End If
RasterDoc.SetOMROptions
End Sub