[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

code:

---

;///////////////////////////////////////////////////////////////////////////////
;/                                                                             /
;/ Syntax: result.l = _ntui_OpenFont {fontname.s,size.l,flags.l,*scr.Screen}   /
;/                                                                             /
;/ Description:                                                                /
;/ private: open a font for later use in NTUI                                  /
;/                                                                             /
;/ Inputs:                                                                     /
;/ - fontname.s   : name of the font (e.g. "topaz.font")                       /
;/ - size.l       : size of the font (e.g. 8)                                  /
;/ - flags.l      : ntui style flags of the font (e.g. #TUIF_BOLD)             /
;/ - *scr.Screen  : optional screen from were to get the default if this fails /
;/                                                                             /
;/ Result:                                                                     /
;/ - *font.TextFont : font handle                                              /
;/                                                                             /
;///////////////////////////////////////////////////////////////////////////////
Function.l _ntui_OpenFont{*fontnameS.str,size.l,flags.l,*scr.Screen}
DEFTYPE.TextAttr ta

*font.TextFont=#NULL

style.l = 0
If flags&#TUIF_BOLD    Then style | #FSF_BOLD
If flags&#TUIF_ITALIC  Then style | #FSF_ITALIC
If size<6 Then size=6
fontname.s = str_Read{&*fontnameS}

If fontname
  If (LCase$(Right$(fontname,5))><".font") Then fontname = fontname+".font"
  tata_Name  = &fontname
  tata_YSize = size          ;/* height of the font */
  tata_Style = style         ;/* intrinsic font style */
  tata_Flags = #FPF_DISKFONT ;|#FPF_PROPORTIONAL      ;/* font preferences and flags */
  *font = OpenDiskFont_(ta)
End If

If (*font=#NULL) AND ((flags&#TUIF_FIX)=0) ;/* if font cannot be opened, try the screen font */
  If *scr><#NULL
    size = *scrFontta_YSize
    If (flags&#TUIF_SMALL) Then size*2/3 : If size<6 Then size=6
    tata_Name  = *scrFontta_Name
    tata_YSize = size
    tata_Style = style
    tata_Flags = *scrFontta_Flags
    *font = OpenDiskFont_(ta)
  End If
End If

If (*font=#NULL) AND ((flags&#TUIF_FIX)=0);/* if font cannot be opened, try the screen font wihtout styles*/
  If *scr><#NULL
    *font = OpenDiskFont_(*scrFont)
  End If
End If

;If *font=#NULL ;/* if font still cannot be opened, try the default gfx font */
;  *gfxbase.GfxBase = OpenLibrary_ ("graphics.library",0)
;  If *gfxbase
;    *font = *gfxbaseDefaultFont
;  End If
;  CloseLibrary_ *gfxbase
;End If

If (*font=#NULL) ;/* if font still cannot be opened, try the default gfx font */
  InitRastPort_ rp.RastPort
  AskFont_ rp,ta ; might be better
  tata_Style = style
  *font = OpenDiskFont_(ta)
End If

If (*font=#NULL) ;/* if font still cannot be opened, try the default gfx font wihtout styles*/
  InitRastPort_ rp.RastPort
  AskFont_ rp,ta ; might be better
  *font = OpenDiskFont_(ta)
End If

Function Return *font
End Function

---

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von Der_Wanderer:
So kommt man an die Fonts ran (NTUI source)
Die Funktion öffnet eine Font. Wenn die nicht gefunden wird, dann wird die Screenfont (wie im Menu) gesucht, …

---

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von AGSzabo:
@thomas:
Doch, geht, …

---

Na, wenn Du es besser weißt, brauchst Du uns ja nicht zu fragen

Zitat:

---

solange mich nur interesisert wieviel platz der inhalt des fensters braucht.

---

Zitat:

---

Und man muss doch irgendwie an die eingestellten Systemfonts ran kommen können?

---

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von Thore:
Ich schreib aus Erinnerung, daher stelle ich diese These asls Frage:
Ist es möglich, über die IntuitionBase an den ersten screen zu kommen, der normalerweise der WB Screen ist, von dort aus auf den RastPort und von da aus den Font auslesen?

---

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von AGSzabo:
@thomas:

Und man muss doch irgendwie an die eingestellten Systemfonts ran kommen können?

---

Auch wenn's nicht die feine Art ist:
öffne die Font-prefs Datei aus ENV:Sys, da sind alle 3 Systemfonts gespeichert. Ist relativ einfach zu durchschnüffeln

Mach ich auch manchmal so....

inq (duck und weg)

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

Was mich hier am meisten interessiert, wieso musst du Layouten wenn du noch keinen Screen hast?
Du kannst sowieso erst layouten wenn du alle Informationen beisammen hast, um den Screen zu öffnen, dann kannst du auch eine Rastport mit dem Font erzeugen und loslegen.
Oder Du hast einen anderen Grund den Du uns bisher nicht genannt hast

@Holger: Das Abschalten des WB Screens hatte ich vergessen, ich wusste da gabs einen gravierenden Haken.

[ - Antworten - Zitieren - Direktlink - ]

code:

---

InitRastPort_ rp.RastPort
  AskFont_ rp,ta
  *font = OpenDiskFont_(ta)

---

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von Der_Wanderer:
Die serif Font nummt auch wie Workbench Font als Fallback. (ist natürlich nicht richtig, aber AmigaOS hat leider kein Konzept von Font Familien.

---

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von thomas:
@inq:

Das ist aber, wie Holger ganz richtig dargelegt hat, u.U. nicht der Font, der vom später geöffneten Screen benutzt wird.

D.h. wenn du Namen und Größe des Fonts aus einer Datei liest, anstatt aus der gesperrten Screen-Struktur, dann darfst du später auch nicht den Screen-Font benutzen, sondern musst den selbst ermittelten Font mit OpenDiskFont öffnen und nur diesen zur Darstellung der GUI heranziehen. Nicht nur beim Layout, sondern auch beim Zeichnen.

---

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von inq:
Stimmt, aber vielleicht schreibt er ein Tool, das dir sagt, warum die WB nicht so aussieht, wie sie soll?

---

Zitat:

---

Da wir den Grund für die offenbar "linke" Herangehensweise nicht wissen, sollten wir auch alle Optionen beim Namen nennen, oder?

---

Zitat:

---

Original von AGSzabo:
wie kann man die Höhe und Breite eines Textes berechnen lassen, wenn man noch kein Fenster und auch keinen Screen für den RastPort hat? Das frage ich mich gerade, …

---

[ - Antworten - Zitieren - Direktlink - ]