paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 18:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Graeme Geldenhuys to fix some tab->spaces (bug 22658)

Browse Source 
git-svn-id: trunk@22140 -
This commit is contained in:
michael 2012-08-19 22:17:29 +00:00
parent 1da4c0c3ce
commit 1c32e34395
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
utils/fpdoc/dw_html.pp
View File

@ -383,11 +383,11 @@ begin
while AElement.Name[i] <> ')' do
begin
if AElement.Name[i] = ',' then
begin
s := s + '-';
Inc(i);
end else
s := s + AElement.Name[i];
begin
s := s + '-';
Inc(i);
end else
s := s + AElement.Name[i];
Inc(i);
end;
Result := Result + LowerCase(s) + '-' + LowerCase(Copy(AElement.Name,
@ -752,7 +752,7 @@ begin
CreatePath(Filename);
WriteHTMLFile(PageDoc, Filename);
except
on E: Exception do
on E: Exception do
DoLog(SErrCouldNotCreateFile, [FileName, e.Message]);
end;
finally
@ -1903,9 +1903,9 @@ begin
AppendNbSp(CodeEl, NestingLevel * 2 + 4);
for j := 0 to CurVariant.Values.Count - 1 do
begin
if j > 0 then
AppendSym(CodeEl, ', ');
AppendPasSHFragment(CodeEl, TPasElement(CurVariant.Values[j]).GetDeclaration(true), 0);
if j > 0 then
AppendSym(CodeEl, ', ');
AppendPasSHFragment(CodeEl, TPasElement(CurVariant.Values[j]).GetDeclaration(true), 0);
end;
AppendSym(CodeEl, ': (');
AppendType(CodeEl, TableEl, CurVariant.Members, True, NestingLevel + 3);
@ -2314,8 +2314,7 @@ begin
end;
end;
procedure THTMLWriter.CreateIndexPage(L : TStringList);
procedure THTMLWriter.CreateIndexPage(L : TStringList);
Var
Lists : Array['A'..'Z'] of TStringList;
LOther : TStringList;