Hilfe
GadgetFont
Aufruf
Parameter
Rückgabewert
Beschreibung
Beispiel
Siehe auch
font = GadgetFont (gadget)
Parameter
gadget | Identität eines Gadget-Objekts |
Rückgabewert
Identität einer Schrift
Beschreibung
Die Funktion GadgetFont ermittelt die Identität einer Schrift aus einem Gadget-Objekt. Schrift kann mit SetGadgetFont geändert werden.
Dies ist ein undokumentierter Befehl. Sollte dieser Befehl wieder offiziell entfernt werden, wären Programme zu allen zukünftigen Updates nicht mehr kompatibel und müssten umgeschrieben werden. Die Anwendung ist daher auf eigenes Risiko.
Beispiel
Standardbeispiel:
window = CreateWindow( "", 0, 0, 640, 480 )
haupt_menu = CreateMenu( "Menü", 0, WindowMenu(window) )
font_menu = CreateMenu( "Font setzen", 1, haupt_menu )
unfont_menu = CreateMenu( "Font lesen", 2, haupt_menu )
label = CreateLabel("Dies ist der Label, bei dem die Font geändert wird.", 0, 0, ClientWidth(window), ClientHeight(window), window)
UpdateWindowMenu window
While WaitEvent()<>$803
If EventID() = $1001 Then
Select EventData()
Case 1
SetGadgetFont(label, RequestFont())
Case 2
Notify GadgetFont(label)
End Select
EndIf
Wend
End
haupt_menu = CreateMenu( "Menü", 0, WindowMenu(window) )
font_menu = CreateMenu( "Font setzen", 1, haupt_menu )
unfont_menu = CreateMenu( "Font lesen", 2, haupt_menu )
label = CreateLabel("Dies ist der Label, bei dem die Font geändert wird.", 0, 0, ClientWidth(window), ClientHeight(window), window)
UpdateWindowMenu window
While WaitEvent()<>$803
If EventID() = $1001 Then
Select EventData()
Case 1
SetGadgetFont(label, RequestFont())
Case 2
Notify GadgetFont(label)
End Select
EndIf
Wend
End
Siehe auch

