|
bBrowser:ToolTipMode |
  
|
|
bBrowser:ToolTipMode |
|
Zweck
Modus der definiert, ob im bBrowser unterschiedliche ToolTips unterstützt werden.
Klasse
Typ
Access / Assign
Datentyp
Symbol
Beschreibung
Der bBrowser unterstützt mehrere Modi, um ToolTips anzuzeigen. Die folgende Tabelle definiert die unterstützten Modi:
Modus |
Beschreibung |
#Control |
Für den gesamten bBrowser wird nur ein ToolTip unterstützt. Der ToolTip kann mit dem Zugriff Control:ToolTipText definiert werden. |
#Column |
Für jede Datenspalte kann ein eigener ToolTip angezeigt werden. Der ToolTip zur Datenspalte wird mit der Callback-Methode CellToolTip() ermittelt. |
#Cell |
Für jede einzelne Datenzelle kann ein eigener ToolTip angezeigt werden. Der ToolTip zur Datenzelle wird mit der Callback-Methode CellToolTip() ermittelt.
Bevor die Callback-Methode CellToolTip() aufgerufen wird, wird folgende Prüfung durchgeführt:
Wenn der ToolTip zu einem Spaltenwert ermittelt werden soll und der Spaltenwert nicht vollständig in der Datenzelle sichtbar ist, dann wird der Spaltenwert als ToolTipText vorgegeben. Dieser kann in der Callback-Methode durch einen anderen Text (siehe auchbCellToolTipEvent:ToolTipText) ersetzt werden. |
Nach dem Erzeugen eines bBrowser-Objekts enthält der Zugriff den Wert #Control.
Beispiele
In dem folgenden Beispiel wird für jede Datenzelle ein unterschiedlicher ToolTip angezeigt. Als ToolTip wird der HyperLabel der Datenspalte und die Spalten- und Zeilennummer der Datenzelle angezeigt.
METHOD PostInit() CLASS myDataWindow
odbsCUSTOMER := DBServer{"CUSTOMER"}
oBrowser := bBrowser{oOwner,;
1000,;
Point{0, 0},;
Dimension{300, 250}}
oBrowser:ToolTipMode := #Cell
oBrowser:Use(odbsCUSTOMER)
oBrowser:Show()
METHOD CellToolTip(oCellToolTipEvent) CLASS myDataWindow
// Callback-Methode zum Ermitteln von ToolTips
LOCAL oBrowser AS bBrowser
LOCAL oColumn AS bDataColumn
LOCAL oCell AS bCell
LOCAL cToolTip AS STRING
// bBrowser ermitteln
oBrowser := oCellToolTipEvent:Control
// Zelle ermitteln
oCell := oCellToolTipEvent:Cell
// Datenspalte zur Zelle ermitteln
oColumn := oBrowser:GetOpenColumn(oCell:Column)
IF !EMPTY(oColumn)
// ToolTip definieren
cToolTip := ""
IF !EMPTY(oColumn:HyperLabel) .and. !EMPTY(oColumn:HyperLabel:Description)
cToolTip := oColumn:HyperLabel:Description+CRLF
ENDIF
cToolTip += "Column: "+NTrim(oCell:Column)+CRLF;
+"Row: "+NTrim(oCell:Row)
oCellToolTipEvent:ToolTipText := cToolTip
ENDIF
RETURN TRUE
Siehe auch
Page url: http://www.YOURSERVER.com/index.html?bbrowser_tooltipmode.htm