paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 12:55:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: fix TSimpleHTMLControl:

Browse Source 
- don't place new spaces after new lines, tabs and spaces
  - use 4px border around

git-svn-id: trunk@22164 -
This commit is contained in:
paul 2009-10-14 08:32:53 +00:00
parent 62850ac64c
commit c91e24b39a
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/helpmanager.pas
View File

@ -297,12 +297,17 @@ begin
inc(p,length(NewTag));
end;
end else if Result[p] in [' ',#9,#10,#13] then begin
// replace spaces and newline characters with single space
// replace spaces and newline characters with a single space
EndPos:=p+1;
while (EndPos<=length(Result)) and (Result[EndPos] in [' ',#9,#10,#13]) do
inc(EndPos);
Result:=copy(Result,1,p-1)+' '+copy(Result,EndPos,length(Result));
inc(p);
if (p > 1) and not (Result[p-1] in [' ',#9,#10,#13]) then
begin
Result:=copy(Result,1,p-1)+' '+copy(Result,EndPos,length(Result));
inc(p);
end
else
Result:=copy(Result,1,p-1)+copy(Result,EndPos,length(Result));
end else
inc(p);
end;
@ -316,6 +321,7 @@ begin
Layout := tlCenter;
Alignment := taLeftJustify;
Font.Color := clInfoText;
BorderSpacing.Around := 4;
end;
function TSimpleHTMLControl.GetURL: string;