Проблемы с переносом слов

Комментарии

• AlexTZ

  August 2005 отредактировано 00:08

  Нет, такой возможности нет. Перенос делается исключительно по пробелам, остальные символы пробельными не считаются.
• Basken

  August 2005 отредактировано August 2005

  Сталкивался с похожей проблемой.
  Решить можно внесением изменений в метод procedure TfrxDrawText.WrapTextLine(s: String; Width, FirstLineWidth,
  CharSpacing: Integer);
  
  procedure TfrxDrawText.WrapTextLine(s: String; Width, FirstLineWidth,
   CharSpacing: Integer);
  var
   n, i, Offset, LineBegin, LastSpace, BreakPos: Integer;
   sz: TSize;
   TheWord: String;
   WasBreak: Boolean;
  
   function BreakWord(const s: String; LineBegin, CurPos, LineEnd: Integer): String;
   var
     i, BreakPos: Integer;
     TheWord, Breaks: String;
   begin
     // get the whole word
     i := CurPos;
     while (i <= LineEnd) and (Pos(s, ' .,-;') = 0) do
       Inc(i);
     TheWord := Copy(s, LineBegin, i - LineBegin);
     // get available break positions
     Breaks := BreakRussianWord(AnsiUpperCase(TheWord));
     // find the closest position
     BreakPos := CurPos - LineBegin;
     for i := Length(Breaks) downto 1 do
       if Ord(Breaks) < BreakPos then
       begin
         BreakPos := Ord(Breaks);
         break;
       end;
     if BreakPos <> CurPos - LineBegin then
       Result := Copy(TheWord, 1, BreakPos) else
       Result := '';
   end;
  
  begin
  // remove all HTML tags and build the tag list
   FHTMLTags.NewLine;
   FHTMLTags.ExpandHTMLTags(s);
   FHTMLTags.FPosition := FHTMLTags.FPosition + 2;
  
   n := Length(s);
   if (n < 2) or not FWordWrap then  // no need to wrap a string with 0 or 1 symbol
   begin
     FText.Add(s);
     Exit;
   end;
  
  // get the intercharacter spacing table and calculate the width
   sz.cx := FHTMLTags.FillCharSpacingArray(FTempArray, s, FCanvas,
     FHTMLTags.Count - 1, CharSpacing, True);
  
  // text fits, no need to wrap it
   if sz.cx < FirstLineWidth then
   begin
     FText.Add(s);
     Exit;
   end;
  
   Offset := 0;
   i := 1;
   LineBegin := 1; // index of the first symbol in the current line
   LastSpace := 1; // index of the last space symbol in the current line
  
   while i <= n do
   begin
     if (s = ' ') or (s ='\') or (s ='/') or (s ='-') then
       LastSpace := i;
  
     if FTempArray - Offset > FirstLineWidth then  // need wrap
     begin
       if LastSpace = LineBegin then  // there is only one word without spaces...
       begin
         if i <> LineBegin then       // ... and it has more than 1 symbol
         begin
           if FWordBreak then
           begin
             TheWord := BreakWord(s, LineBegin, i, n);
             WasBreak := TheWord <> '';
             if not WasBreak then
               TheWord := Copy(s, LineBegin, i - LineBegin);
             if WasBreak then
               FText.Add(TheWord + '-') else
               FText.Add(TheWord);
             BreakPos := Length(TheWord);
             FHTMLTags.Wrap(BreakPos, WasBreak);
             LastSpace := LineBegin + BreakPos - 1;
           end
           else
           begin
             FText.Add(Copy(s, LineBegin, i - LineBegin));
             FHTMLTags.Wrap(i - LineBegin, False);
             LastSpace := i - 1;
           end;
         end
         else
         begin
           FText.Add(s[LineBegin]); // can't wrap 1 symbol, just add it to the new line
           FHTMLTags.Wrap(1, False);
         end;
       end
       else // we have a space symbol inside
       begin
         if FWordBreak then
         begin
           TheWord := BreakWord(s, LastSpace + 1, i, n);
           WasBreak := TheWord <> '';
           if WasBreak then
             FText.Add(Copy(s, LineBegin, LastSpace - LineBegin + 1) + TheWord + '-') else
             FText.Add(Copy(s, LineBegin, LastSpace - LineBegin));
           BreakPos := LastSpace - LineBegin + Length(TheWord) + 1;
           FHTMLTags.Wrap(BreakPos, WasBreak);
           if WasBreak then
             LastSpace := LineBegin + BreakPos - 1;
         end
         else
         begin
           FText.Add(Copy(s, LineBegin, LastSpace - LineBegin));
           FHTMLTags.Wrap(LastSpace - LineBegin + 1, False);
         end;
       end;
  
       Offset := FTempArray[LastSpace]; // starting a new line
       i := LastSpace;
       Inc(LastSpace);
       LineBegin := LastSpace;
       FirstLineWidth := Width; // this line is not first, so use Width
     end;
  
     Inc(i);
   end;
  
   if n - LineBegin + 1 > 0 then   // put the rest of line to FText
     FText.Add(Copy(s, LineBegin, n - LineBegin + 1));
  end;