code:

---

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

---

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.                                    /
;/ - 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

---

code:

---

<listview id="inbox"   dragID="Emails">
<listview id="archive" dropID="Emails" >

---

Zitat:

---

Muss nun der Scan Task mit dem befüllen so warten solanbge gezeichnet wird, oder der Gui task mit dem Zeichnen warten solange befüllt wird?

---