Hilfe

GadgetFont

B+

Aufruf

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


Siehe auch

SetGadgetFont

Übersicht GUI Gadget