Hilfe
SetToolBarTips
Aufruf
Parameter
Rückgabewert
Beschreibung
Beispiel
Siehe auch
SetToolBarTips toolbar, text$
Parameter
| toolbar | Identität von Toolbar-Objekt |
| Text | Hinweistexte, durch komma getrennt |
Rückgabewert
-
Beschreibung
Die Anweisung SetToolBarTips ändert bzw. setzt Hinweistexte in Toolbar-Objekt. Toolbar ist eine horizontale Leiste mit Symbolen. Wenn die Maus eine kurze Zeit über einem Symbol gehalten wird, dann erscheint ein Hinweistext zu dem Symbol. Normalerweise sind mehrere Symbole in einer Toolbar - deshalb werden mehrere Texte durch Komma getrennt angegeben.
Beispiel
Erstellt ein Fenster mit Toolbar:
img = CreateImage(96, 32)
SetBuffer ImageBuffer(img, 0)
Color 255, 0, 0
Rect 1, 1, 30, 30, 1
Color 255, 255, 0
Rect 33, 1, 30, 30, 1
Color 0, 255, 0
Rect 65, 1, 30, 30, 1
SaveImage img, "C:\bild.tmp"
FreeImage img
window = CreateWindow("Window", 0, 0, 300, 300, 0, 1)
toolbar = CreateToolBar("c:\bild.tmp", 0, 0, 96, 32, window)
SetToolBarTips toolbar, "Rot,Gelb,Grün"
Repeat
If GetKey() = 27 Then End
nr = WaitEvent()
If nr = $803 Then DeleteFile "c:\bild.tmp" : End
If nr = $401 And EventSource() = toolbar Then
Notify "Symbol=" + EventData()
EndIf
Forever
SetBuffer ImageBuffer(img, 0)
Color 255, 0, 0
Rect 1, 1, 30, 30, 1
Color 255, 255, 0
Rect 33, 1, 30, 30, 1
Color 0, 255, 0
Rect 65, 1, 30, 30, 1
SaveImage img, "C:\bild.tmp"
FreeImage img
window = CreateWindow("Window", 0, 0, 300, 300, 0, 1)
toolbar = CreateToolBar("c:\bild.tmp", 0, 0, 96, 32, window)
SetToolBarTips toolbar, "Rot,Gelb,Grün"
Repeat
If GetKey() = 27 Then End
nr = WaitEvent()
If nr = $803 Then DeleteFile "c:\bild.tmp" : End
If nr = $401 And EventSource() = toolbar Then
Notify "Symbol=" + EventData()
EndIf
Forever
Siehe auch
GUI Toolbar
2D Grafik
GUI