paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 16:38:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: added UTF8WrapText overload which indents text similar to BreakString function from LazStringUtils unit

Browse Source
This commit is contained in:
Maxim Ganetsky 2024-01-20 04:04:27 +03:00
parent f0eb9b849d
commit 86e979c239
1 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/lazutils/lazutf8.pas
View File

@ -147,6 +147,7 @@ function UTF8ReverseString(p: PChar; const ByteCount: LongInt): string;
function UTF8ReverseString(const AText: string): string; inline;
function UTF8RPos(const Substr, Source: string): PtrInt;
function UTF8WrapText(S, BreakStr: string; BreakChars: TSysCharSet; MaxCol, Indent: integer): string; overload;
function UTF8WrapText(S, BreakStr: string; BreakChars: TSysCharSet; MaxCol: integer): string; overload;
function UTF8WrapText(S: string; MaxCol: integer): string; overload;
@ -3237,9 +3238,10 @@ begin
Result := UTF8Length(PChar(Source), pRev); // Length of the leading part.
end;
function UTF8WrapText(S, BreakStr: string; BreakChars: TSysCharSet; MaxCol: integer): string;
function UTF8WrapText(S, BreakStr: string; BreakChars: TSysCharSet; MaxCol, Indent: integer): string;
var
P : PChar;
IndentStr: string;
RightSpace : integer = 0;
N : integer = 0;
Len : integer = 0;
@ -3248,7 +3250,12 @@ var
begin
Result := '';
if (S = '') or (MaxCol = 0) or (BreakStr = '') or (BreakChars = []) then Exit;
if Indent > MaxCol - 2 then
Indent := MaxCol - 2;
if Indent < 0 then
Indent := 0;
P := PChar(S);
IndentStr := StringOfChar(' ', Indent);
while P^ <> #0 do
begin
CharLen := UTF8CodepointSize(P);
@ -3265,7 +3272,7 @@ begin
Inc(N);
if P^ = BreakStr[Length(BreakStr)] then
N := 0;
if N > MaxCol then
if N > MaxCol - Indent then
begin
Len := Length(Result);
RP := Len;
@ -3280,10 +3287,17 @@ begin
Result := Result + BreakStr;
N := 0;
end;
if N = 0 then
Result := Result + IndentStr;
Inc(P, CharLen);
end;
end;
function UTF8WrapText(S, BreakStr: string; BreakChars: TSysCharSet; MaxCol: integer): string;
begin
Result := UTF8WrapText(S, BreakStr, BreakChars, MaxCol, 0);
end;
function UTF8WrapText(S: string; MaxCol: integer): string;
begin
Result := UTF8WrapText(S, LineEnding, [' ', '-', #9], MaxCol);