FastReport 3.X 在 Win9X 下的中文折行亂碼問題

bestlong

FastReport 3.X 在 Win9X 下的中文折行亂碼問題

修改 frxGraphicUtils.pas

1. procedure TfrxDrawText.WrapTextLine(s: string; Width, FirstLineWidth,
   
2.   CharSpacing: Integer);
   
3. var
   
4.   n, i, Offset, LineBegin, LastSpace, BreakPos: Integer;
   
5.   sz: TSize;
   
6.   TheWord: string;
   
7.   WasBreak: Boolean;
   
8. 
   
9.   //俄文換行
   
10.   function BreakWord(const s: string; LineBegin, CurPos, LineEnd: Integer):
    
11.       string;
    
12.   var
    
13.     i, BreakPos: Integer;
    
14.     TheWord, Breaks: string;
    
15.   begin
    
16.     // get the whole word
    
17.     i := CurPos;
    
18.     while (i <= LineEnd) and (Pos(s[i], ' .,-;') = 0) do
    
19.       Inc(i);
    
20. 
    
21.     TheWord := Copy(s, LineBegin, i - LineBegin);
    
22.     // get available break positions
    
23.     Breaks := BreakRussianWord(AnsiUpperCase(TheWord));
    
24.     // find the closest position
    
25.     BreakPos := CurPos - LineBegin;
    
26.     for i := Length(Breaks) downto 1 do
    
27.       if Ord(Breaks[i]) < BreakPos then
    
28.       begin
    
29.         BreakPos := Ord(Breaks[i]);
    
30.         break;
    
31.       end;
    
32.     if BreakPos <> CurPos - LineBegin then
    
33.       Result := Copy(TheWord, 1, BreakPos) else
    
34.       Result := '';
    
35.   end;
    
36. 
    
37. begin
    
38.   // remove all HTML tags and build the tag list
    
39.   FHTMLTags.NewLine;
    
40.   FHTMLTags.ExpandHTMLTags(s);
    
41.   FHTMLTags.FPosition := FHTMLTags.FPosition + 2;
    
42. 
    
43.   n := Length(s);
    
44.   if (n < 2) or not FWordWrap then // no need to wrap a string with 0 or 1 symbol
    
45.   begin
    
46.     FText.Add(s);
    
47.     Exit;
    
48.   end;
    
49.   // 字符間空隙和計算寬度
    
50.   // get the intercharacter spacing table and calculate the width
    
51.   sz.cx := FHTMLTags.FillCharSpacingArray(FTempArray, s, FCanvas,
    
52.     FHTMLTags.Count - 1, CharSpacing, True);
    
53. 
    
54.   // 不需換行
    
55.   // text fits, no need to wrap it
    
56.   if sz.cx < FirstLineWidth then
    
57.   begin
    
58.     FText.Add(s);
    
59.     Exit;
    
60.   end;
    
61. 
    
62.   Offset := 0; // 偏移量
    
63.   i := 1;
    
64.   LineBegin := 1; // index of the first symbol in the current line
    
65.   LastSpace := 1; // index of the last space symbol in the current line
    
66. 
    
67. 
    
68.   while i <= n do
    
69.   begin
    
70.     if s[i] = ' ' then
    
71.       LastSpace := i;
    
72. 
    
73.     if FTempArray[i] - Offset > FirstLineWidth then // need wrap
    
74.     begin
    
75.       if LastSpace = LineBegin then // there is only one word without spaces...
    
76.       begin
    
77.         if i <> LineBegin then // ... and it has more than 1 symbol
    
78.         begin
    
79.           if FWordBreak then   // 俄文換行
    
80.           begin
    
81.             TheWord := BreakWord(s, LineBegin, i, n); //俄文換行
    
82.             WasBreak := TheWord <> '';
    
83.             if not WasBreak then
    
84.               TheWord := Copy(s, LineBegin, i - LineBegin);
    
85.             if WasBreak then
    
86.               FText.Add(TheWord + '-') else
    
87.               FText.Add(TheWord);
    
88.             BreakPos := Length(TheWord);
    
89.             FHTMLTags.Wrap(BreakPos, WasBreak);
    
90.             LastSpace := LineBegin + BreakPos - 1;
    
91.           end
    
92.           else
    
93.           begin
    
94.             // mbSingleByte  表示了一個完整的字符時，
    
95.             // mbLeadByte    表示一個雙字節字符的頭一個字節
    
96.             // mbTrailByte   表示一個雙字節字符的第二個字節
    
97. 
    
98.             //todo: [2005-07-29] 狂迷修改中文换行
    
99.             if ByteType(s, i - 1) = mbLeadByte then //判断是否是漢字字節
    
100.             begin
     
101.               FText.Add(Copy(s, LineBegin, i - LineBegin -1));
     
102.               FHTMLTags.Wrap(i - LineBegin -1, False);
     
103.               LastSpace := i - 2;
     
104.             end
     
105.             else
     
106.             begin
     
107.               FText.Add(Copy(s, LineBegin, i - LineBegin));
     
108.               FHTMLTags.Wrap(i - LineBegin, False);
     
109.               LastSpace := i - 1;
     
110.             end;
     
111.           end;
     
112.         end
     
113.         else
     
114.         begin
     
115.           FText.Add(s[LineBegin]);
     
116.           // can't wrap 1 symbol, just add it to the new line
     
117.           FHTMLTags.Wrap(1, False);
     
118.         end;
     
119.       end
     
120.       else // we have a space symbol inside
     
121.       begin
     
122.         if FWordBreak then
     
123.         begin
     
124.           TheWord := BreakWord(s, LastSpace + 1, i, n);
     
125.           WasBreak := TheWord <> '';
     
126.           if WasBreak then
     
127.             FText.Add(Copy(s, LineBegin, LastSpace - LineBegin + 1) + TheWord +
     
128.               '-') else
     
129.             FText.Add(Copy(s, LineBegin, LastSpace - LineBegin));
     
130.           BreakPos := LastSpace - LineBegin + Length(TheWord) + 1;
     
131.           FHTMLTags.Wrap(BreakPos, WasBreak);
     
132.           if WasBreak then
     
133.             LastSpace := LineBegin + BreakPos - 1;
     
134.         end
     
135.         else
     
136.         begin
     
137.           FText.Add(Copy(s, LineBegin, LastSpace - LineBegin));
     
138.           FHTMLTags.Wrap(LastSpace - LineBegin + 1, False);
     
139.         end;
     
140.       end;
     
141. 
     
142.       Offset := FTempArray[LastSpace]; // starting a new line
     
143.       Inc(LastSpace);
     
144.       LineBegin := LastSpace;
     
145.       FirstLineWidth := Width; // this line is not first, so use Width
     
146.     end;
     
147. 
     
148.     Inc(i);
     
149.   end;
     
150. 
     
151.   if n - LineBegin + 1 > 0 then // put the rest of line to FText
     
152.     FText.Add(Copy(s, LineBegin, n - LineBegin + 1));
     
153. end;

複製代碼