Object: FormulaDisplaySubObj
- Updated2024-09-12
- 2 minute(s) read
DIAdem REPORT > Objects > Context Objects > Object: FormulaDisplaySubObj
Object: FormulaDisplaySubObj
The FormulaDisplaySubObj object provides information about a subobject of a formula in DIAdem REPORT when DIAdem calls the event assigned to the OnFormulaDisplay for ToolTipEvents property. DIAdem calls this event if you press the shift key and move the mouse over a REPORT object.
 | Note To test the example script, you must first save the second script and register it as a user command in the dialog box that opens when you select Settings»Extensions»User Commands. |
The following example creates an image and assigns the user command MyToolTipEvent to the OnFormulaDisplay for ToolTipEvents property:
Dim oMyFormula, oMyPosFormula Call Report.NewLayout Set oMyFormula = Report.ActiveSheet.Objects.Add(eReportObjectFormulaDisplay ,"MyFormular") Set oMyPosFormula = oMyFormula.Position.ByCoordinate oMyFormula.Text = "a^2+b^2=c^2" oMyPosFormula.X1 = 20 oMyPosFormula.X2 = 40 oMyPosFormula.Y1 = 20 oMyPosFormula.Y2 = 35 'This event will be raised if the mouse is moved AND the shift key pressed Report.Events.ToolTip.OnFormulaDisplay = "MyToolTipEvent" Call Report.Refresh()
If you press the shift key and move the mouse over the formula, the example displays the mouse position and the name and the type of the subobject over which you idle the mouse. The user command receives two parameters. The first parameter corresponds with the ToolTipFormulaDisplayContext object and provides the information about the formula in DIAdem REPORT when you press the shift key and move the mouse over the formula. The second parameter is a text and corresponds with the tooltip for display:
Sub MyToolTipEvent(Context,ToolTipText) Dim oSubObject Set oSubObject = Context.SubObject ToolTipText = "Sheet: " & Context.Sheet.Name & VBCrLf & "Sub object" & VBCrLf & "Name: " & oSubObject.Name & VBCrLf & "Type: " & GetConstNameForREPORTSubObj(oSubObject, oSubObject.Type) ToolTipText = ToolTipText & VBCrLf & "X position: " & Context.Position.X & VBCrLf & "Y position: " & Context.Position.Y End Sub