Проблемы с переносом слов
Если длина слова превышает размеры Memo и Wordwrap = True то слово режется в произвольном месте. например
"Celeron\FDD\5" - переход на строку
"12MB"
- Есть ли возможность настроить дополнительные символы которые будут считатся разрывом слова ?
Желательна возможность задать их по умолчанию для всех форм.
"Celeron\FDD\5" - переход на строку
"12MB"
- Есть ли возможность настроить дополнительные символы которые будут считатся разрывом слова ?
Желательна возможность задать их по умолчанию для всех форм.
Комментарии
Решить можно внесением изменений в метод 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;