Property: FormulaDisplay for ToolTipFormulaDisplayContext

DIAdem 2018 Help

Edition Date: June 2018
Part Number: 370858P-01
View Product Info

DOWNLOAD (Windows Only)

DIAdem 2017 Help
DIAdem 2018 Help
DIAdem 2019 Help
DIAdem 2020 Help
DIAdem 2020 SP1 Help

Returns 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.

Set oFormulaDisplay = Object.FormulaDisplay
Object with this property
Returned 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


Not Helpful