Fontattribute aus FontID ermitteln

[ts-soft]

Ich möchte aus der FontID, die von PB bei LoadFont() zurückgegeben wird,
die Attribute ermitteln. Also Fontnamen, Size usw.
Hat da jemand eine Lösung?

[Macros]

Ich habe mal rumexperimentiert, aber die Font ID ändert sich immer wieder,
auch wenn man genau die gleichen Parameter gibt.

Ich glaube die Attribute lassen sich nicht auslesen

[ts-soft]

Ist doch ein OS-Handle, bzw. ein Pointer auf eine OS-Structure
So ungefähr stehts in der Hilfe. Wenn es eine Structure ist, wäre es ja
einfach, ich müßte diese nur kennen!

[ABBKlaus]

Vielleicht hilf dir das ja weiter

Code: Alles auswählen

LoadFont(1,"Arial",18)

If OpenWindow(0,0,0,222,200,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"Test") And CreateGadgetList(WindowID(0))
  
  DC=GetDC_(WindowID(0))
  UseFont(1)
  SelectObject_(DC,FontID())
  If DC
    If GetTextMetrics_(DC,TM.TEXTMETRIC)
      Debug TM\tmHeight
      Debug TM\tmAscent
      Debug TM\tmDescent
      Debug TM\tmWeight
    EndIf
    Buf$=Space(255)
    If GetTextFace_(DC,255,@Buf$)
      Debug Buf$
    EndIf
  EndIf
  
  Repeat
  Until WaitWindowEvent()=#PB_Event_CloseWindow
EndIf

[ts-soft]

Vielleicht hilf dir das ja weiter

Danke, das gesuchte gefunden