Problem mit TextHeight

[Waldixxl]

Hallo

Sollten beim diesem Beispiel nicht unterschitliche Texthöhen ausgegeben werden?

Code: Alles auswählen

If OpenWindow(0, 0, 0, 222, 130, "SetGadgetFont", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    If LoadFont(0, "Arial", 16)
      SetGadgetFont(#PB_Default, FontID(0))   ; geladenen Arial 16 Zeichensatz als neuen Standard festlegen
    EndIf
    
    ButtonGadget(0, 10, 10, 200, 30, "Button - Arial 16")
    StartDrawing(WindowOutput(0))
       Debug TextHeight(GetGadgetText(0))
    StopDrawing()
       
    SetGadgetFont(#PB_Default, #PB_Default)   ; Zeichensatzeinstellungen auf den originalen Standard zurücksetzen
    ButtonGadget(1, 10, 50, 200, 30, "Button - standard")
    StartDrawing(WindowOutput(0))
          Debug TextHeight(GetGadgetText(1))
    StopDrawing()
          
    If LoadFont(1,"Courier",10, #PB_Font_Bold | #PB_Font_Underline)
      SetGadgetFont(#PB_Default, FontID(1))   ; geladenen Courier 10 Zeichensatz als neuen Standard festlegen
    EndIf
    TextGadget(2, 10, 90, 200, 40, "Bold + underlined Courier 10 Text", #PB_Text_Center)
    StartDrawing(WindowOutput(0))
       Debug TextHeight(GetGadgetText(2))
    StopDrawing()
    
    Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
  EndIf

oder mache ich etwas falsch.

Walter

[Danilo]

DrawingFont(FontID(...)) vergessen?

Code: Alles auswählen

If OpenWindow(0, 0, 0, 222, 130, "SetGadgetFont", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    If LoadFont(0, "Arial", 16)
      SetGadgetFont(#PB_Default, FontID(0))   ; geladenen Arial 16 Zeichensatz als neuen Standard festlegen
    EndIf
    
    ButtonGadget(0, 10, 10, 200, 30, "Button - Arial 16")
    StartDrawing(WindowOutput(0))
       DrawingFont(FontID(0))
       Debug TextHeight(GetGadgetText(0))
    StopDrawing()
       
    SetGadgetFont(#PB_Default, #PB_Default)   ; Zeichensatzeinstellungen auf den originalen Standard zurücksetzen
    ButtonGadget(1, 10, 50, 200, 30, "Button - standard")
    StartDrawing(WindowOutput(0))
       Debug TextHeight(GetGadgetText(1))
    StopDrawing()
          
    If LoadFont(1,"Courier",10, #PB_Font_Bold | #PB_Font_Underline)
      SetGadgetFont(#PB_Default, FontID(1))   ; geladenen Courier 10 Zeichensatz als neuen Standard festlegen
    EndIf
    TextGadget(2, 10, 90, 200, 40, "Bold + underlined Courier 10 Text", #PB_Text_Center)
    StartDrawing(WindowOutput(0))
       DrawingFont(FontID(1))
       Debug TextHeight(GetGadgetText(2))
    StopDrawing()
    
    Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

[Waldixxl]

Hallo Danilo
Ich wußte das ICH schuld bin.
DANKE

Walter