Object: ToolTipSpiderContext
- Updated2024-09-12
- 2 minute(s) read
DIAdem REPORT > Objects > Context Objects > Object: ToolTipSpiderContext
Object: ToolTipSpiderContext
The ToolTipSpiderContext object provides information on a 2D spider axis system in DIAdem REPORT when DIAdem calls the event assigned to the OnSpider 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 polar axis system and assigns the user command MyToolTipEvent to the OnSpider for ToolTipEvents property:
Dim oMyAxisSystem, oMyPos, oMyCurve Call Report.NewLayout() Call Data.Root.Clear() Call DataFileLoad("Example.tdm","TDM","") Set oMyAxisSystem = Report.ActiveSheet.Objects.Add(eReportObjectSpider, "MySpiderAxisSystem") Set oMyPos = oMyAxisSystem.Position.ByCoordinate oMyPos.X1 = 20 oMyPos.X2 = 80 oMyPos.Y1 = 20 oMyPos.Y2 = 80 Set oMyCurve = oMyAxisSystem.CurvesSpider.Add(eSpiderShapeLine, "MySpiderCurve") oMyCurve.Shape.Channel.Reference = "[5]/[3]" 'This event will be raised if the mouse is moved AND the shift key pressed Report.Events.ToolTip.OnSpider = "MyToolTipEvent" Call Report.Refresh()
If you press the shift key and move the mouse over the spider axis system, 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 ToolTipSpiderContext object and provides the information about the spider axis system in DIAdem REPORT when you press the shift key and move the mouse over the polar axis system. 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