aber Marlett sieht wirklich besch...eiden aus.
Code: Alles auswählen
#Window = 0
Enumeration
#Button11
#Button12
#Button13
#Button14
#Button21
#Button22
#Button23
#Button24
EndEnumeration
#Font_Webdings = 0
#Font_Marlett = 1
LoadFont( #Font_Webdings, "Webdings", 48 )
LoadFont( #Font_Marlett , "Marlett", 48 )
OpenWindow( #Window, #PB_Ignore, #PB_Ignore, 336, 172, "Button Test")
CreateGadgetList( WindowID( #Window ) )
ButtonGadget ( #Button11, 16, 16, 64, 64, Chr( $30 ) )
SetGadgetFont ( #Button11, FontID( #Font_Webdings ) )
ButtonGadget ( #Button12, 96, 16, 64, 64, Chr( $32 ) )
SetGadgetFont ( #Button12, FontID( #Font_Webdings ) )
ButtonGadget ( #Button13, 176, 16, 64, 64, Chr( $31 ) )
SetGadgetFont ( #Button13, FontID( #Font_Webdings ) )
ButtonGadget ( #Button14, 256, 16, 64, 64, Chr( $72 ) )
SetGadgetFont ( #Button14, FontID( #Font_Webdings ) )
ButtonGadget ( #Button21, 16, 96, 64, 64, Chr( $30 ) )
SetGadgetFont ( #Button21, FontID( #Font_Marlett ) )
ButtonGadget ( #Button22, 96, 96, 64, 64, Chr( $32 ) )
SetGadgetFont ( #Button22, FontID( #Font_Marlett ) )
ButtonGadget ( #Button23, 176, 96, 64, 64, Chr( $31 ) )
SetGadgetFont ( #Button23, FontID( #Font_Marlett ) )
ButtonGadget ( #Button24, 256, 96, 64, 64, Chr( $72 ) )
SetGadgetFont ( #Button24, FontID( #Font_Marlett ) )
Repeat
EvID = WaitWindowEvent()
Until Evid = #PB_Event_CloseWindow
