paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 19:20:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: LenghtOfLongestLine. Slightly improve r28830 #ceb5f99b6a

Browse Source 
git-svn-id: trunk@29067 -
This commit is contained in:
martin 2011-01-17 11:11:34 +00:00
parent d80fadfa54
commit 5efeb35240
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/synedit/synedittexttabexpander.pas
View File

@ -318,20 +318,25 @@ var
LineLen: Integer;
CharWidths: PPhysicalCharWidth;
i, j, m: Integer;
Line1, Line2: Integer;
begin
Line1 := 0;
Line2 := Count - 1;
if (fIndexOfLongestLine >= 0) and (fIndexOfLongestLine < Count) then begin
Result := FTabData[fIndexOfLongestLine];
if Result <> LINE_LEN_UNKNOWN then begin
if Result >= NO_TAB_IN_LINE_OFFSET then Result := Result - NO_TAB_IN_LINE_OFFSET;
exit;
end;
Line1 := fIndexOfLongestLine;
Line2 := fIndexOfLongestLine;
end;
try
Result := 0;
m := 0;
CharWidths := nil;
for i := 0 to Count - 1 do begin
for i := Line1 to Line2 do begin
j := FTabData[i];
if j = LINE_LEN_UNKNOWN then begin
// embedd a copy of ExpandedStringLength