BlackBox Component Builder

Bug #96

Updated by I. Denisov almost 10 years ago

I tied to optimize output of Cyrillic text and found that all the texts go to HostFonts.StringWidth letter by letter. This makes the output slow and not accurate. 

 During the text output the GatherString procedure extensively used to split the lines to words. So I am thinking that it there is the location of was a problem. 
 <pre> 
	 PROCEDURE GatherString (rd: StdReader); 
		 VAR i, len: INTEGER; ch: CHAR; 
	 BEGIN 
		 i := 1; len := LEN(rd.string) - 1; ch := rd.r.char; 
		 WHILE (i < len) 
			 & (rd.r.view = NIL) & (rd.r.attr = rd.attr) 
			 & ( 	  (" " < ch) & (ch <= "~") & (ch # "-") 
				 OR    (ch = digitspace) 
				 OR    (ch >= nbspace) & (ch < 100X) & (ch # softhyphen) 
				 ) 
		 DO 	 (* rd.r.char > " " => ~rd.eot *) 
			 rd.string[i] := ch; INC(i); 
			 rd.eot := rd.r.eot; 
			 rd.r.Read; ch := rd.r.char; INC(rd.pos) 
		 END; 
		 rd.string[i] := 0X; rd.setterOpts := {wordJoin}; 
		 IF i = 1 THEN 
			 IF WordPart(rd.string[0], 0X) THEN INCL(rd.setterOpts, wordPart) END 
		 END; 
		 rd.w := rd.attr.font.StringWidth(rd.string); rd.endW := rd.w 
	 END GatherString; 
 </pre> 

 You can see here, that any Unicode letter will raise the "exception" call (IF i = 1 THEN). 

 Oleg N. Cher had found, that replacing the "~" to 0FFFFX 
 <pre> 
 & ( 	  (" " < ch) & (ch <= 0FFFFX) & (ch # "-") 
 </pre> 
 led words come to HostFonts.StringWidth, however this is temporary solution. 

 The WordPart procedure should check for such case, but somehow algorithm is broken now. 

Back