home *** CD-ROM | disk | FTP | other *** search
/ Aminet 10 / aminetcdnumber101996.iso / Aminet / dev / e / dd_Modules.lha / dd_Modules / dd_graphics / dd_maxTextLen.e next >
Encoding:
Text File  |  1995-10-28  |  307 b   |  13 lines
  1. OPT MODULE
  2.  
  3. MODULE 'graphics/text'
  4. MODULE 'graphics/rastport'
  5.  
  6. EXPORT PROC maxTextLen(stringlist:PTR TO LONG,textfont:PTR TO textfont)
  7.   DEF rastport:rastport,x,max=0
  8.   InitRastPort(rastport)
  9.   SetFont(rastport,textfont)
  10.   ForAll({x},stringlist,`max:=Max(max,TextLength(rastport,x,StrLen(x))))
  11. ENDPROC max
  12.  
  13.