Subversion Repositories Kolibri OS

Rev

Rev 9577 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9577 Rev 9646
Line 69... Line 69...
69 
   returns: char width (0 = error)
 69 
   returns: char width (0 = error)
70 
*)
 70 
*)
Line 71... Line 71...
71 
 
 71 
 
72 
  // calculate amount of valid chars in UTF-8 string
 72 
  // calculate amount of valid chars in UTF-8 string
73 
  // supports zero terminated string (set byteQuantity = -1)
 73 
  // supports zero terminated string (set byteQuantity = -1)
Line 74... Line 74...
74 
  cntUTF_8 *: PROCEDURE (string, byteQuantity: INTEGER): INTEGER;
 74 
  countUTF8Z *: PROCEDURE (string, byteQuantity: INTEGER): INTEGER;
75 
 
 75 
 
Line 111... Line 111...
111 
 
 111 
 
112 
BEGIN
 112 
BEGIN
113 
  Lib := KOSAPI.LoadLib("/sys/lib/RasterWorks.obj");
 113 
  Lib := KOSAPI.LoadLib("/sys/lib/RasterWorks.obj");
114 
  ASSERT(Lib # 0);
 114 
  ASSERT(Lib # 0);
115 
  GetProc(Lib, sys.ADR(drawText), "drawText");
 115 
  GetProc(Lib, sys.ADR(drawText),   "drawText");
116 
  GetProc(Lib, sys.ADR(cntUTF_8), "cntUTF-8");
 116 
  GetProc(Lib, sys.ADR(countUTF8Z), "countUTF8Z");
117 
  GetProc(Lib, sys.ADR(charsFit), "charsFit");
 117 
  GetProc(Lib, sys.ADR(charsFit),   "charsFit");
118 
  GetProc(Lib, sys.ADR(strWidth), "strWidth");
 118 
  GetProc(Lib, sys.ADR(strWidth),   "strWidth");