FontID()-Beispiel aus PB-Hilfe

[marco2007]

Hi,

folgendes Problem habe ich:

1. Wozu das UsedFont im PB-Beispiel?

Code: Alles auswählen

  If OpenWindow(0, 0, 0, 222, 130, "FontID()", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0)) 
    ButtonGadget(0, 10, 10, 200, 30, "Anklicken zum Ändern des Fonts...")
    Font1 = LoadFont(#PB_Any, "Arial"  ,  8, #PB_Font_Bold) 
    Font2 = LoadFont(#PB_Any, "Verdana", 12, #PB_Font_StrikeOut) 
    UsedFont = 1
  EndIf 
  
  Repeat 
    Event = WaitWindowEvent()
  
    If Event = #PB_Event_Gadget
      If EventGadget() = 0
        If UsedFont = 1 
          SetGadgetFont(0, FontID(Font2)) 
          UsedFont = 2
        Else
          SetGadgetFont(0, FontID(Font1)) 
          UsedFont = 1
        EndIf
      EndIf
    EndIf
  Until Event = #PB_Event_CloseWindow  

2.
kurz:
If UsedFont=2
usedFont=1
endif


Danke
Marco

[a14xerus]

um den benutzen font zu switchen.
Wie du erkennst, sind da 2 fonts geladen
Um das benutzen mehrere Fonts zu demonstrieren wird hier zwischen den 2 fonts gewechselt.
Dabei wird die Variable als "hilfe" benutzt.
Mit dem font selber hat das nichts zu tun

[marco2007]

Danke

Die usedFont-Strategie (Status setzen) ist irgendwie interessant.
Mein Code hat aber keine Nachteile, oder?

Code: Alles auswählen

  Enumeration
  #gad
  EndEnumeration
   
  If OpenWindow(0, 0, 0, 222, 130, "FontID()", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0)) 
    ButtonGadget(#gad, 10, 10, 200, 30, "Anklicken zum Ändern des Fonts...")
    Font1 = LoadFont(#PB_Any, "Arial"  ,  8, #PB_Font_Bold) 
    Font2 = LoadFont(#PB_Any, "Verdana", 12, #PB_Font_StrikeOut) 
  EndIf 
  
  Repeat 
    Event = WaitWindowEvent()
  
    If Event = #PB_Event_Gadget
      If EventGadget() = 0
        If GetGadgetFont(#gad)=FontID(Font1)
          SetGadgetFont(#gad, FontID(Font2)) 
         Else
          SetGadgetFont(#gad, FontID(Font1)) 

        EndIf
      EndIf
    EndIf
  Until Event = #PB_Event_CloseWindow  

[Fluid Byte]

Du brauchst kein GetGadgetFont(). Welcher Schrifttyp gearde gewählt ist weisst anhand vom boolschen Flag:

Code: Alles auswählen

OpenWindow(0,0,0,222,130,"FontID()", #PB_Window_SystemMenu | 1)
CreateGadgetList(WindowID(0))
ButtonGadget(0,10,10,200,30,"Anklicken zum Ändern des Fonts...")

LoadFont(0,"Arial", 8,#PB_Font_Bold)
LoadFont(1,"Verdana",12,#PB_Font_StrikeOut)

Repeat
	Event = WaitWindowEvent()
	
	If Event = #PB_Event_Gadget And EventGadget() = 0
		bCustomFont = 1 - bCustomFont
		
		If bCustomFont
			SetGadgetFont(0,FontID(0))
		Else
			SetGadgetFont(0,FontID(1))
		EndIf
	EndIf
Until Event = 16 

[ts-soft]

Oder kürzer:

Code: Alles auswählen

OpenWindow(0,0,0,222,130,"FontID()", #PB_Window_SystemMenu | 1)
CreateGadgetList(WindowID(0))
ButtonGadget(0,10,10,200,30,"Anklicken zum Ändern des Fonts...")

LoadFont(0,"Arial", 8,#PB_Font_Bold)
LoadFont(1,"Verdana",12,#PB_Font_StrikeOut)

Repeat
  Event = WaitWindowEvent()

  If Event = #PB_Event_Gadget And EventGadget() = 0
    font ! 1
    SetGadgetFont(0,FontID(font))
  EndIf
Until Event = 16

[Andre]

Da habt ihr aber mal wieder optimiert

Ich glaube aber trotzdem, dass ich die Hilfe so lassen sollte, wie sie jetzt ist. Soll ja schließlich in erster Linie den Anfängern helfen, die Profis proggen solche Beispiele ja eh aus dem Kopf...