paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 20:49:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

* try to get nicer html index for our docs

Browse Source 
git-svn-id: trunk@7134 -
This commit is contained in:
pierre 2007-04-18 22:24:16 +00:00
parent 4da2a20cc3
commit 411c7fa241
2 changed files with 32 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
ide/whtml.pas
View File

@ -810,9 +810,33 @@ begin
end;
procedure THTMLParser.DocTable(Entered: boolean);
var
S: String;
begin
if Entered then
begin
if DocGetTagParam('CLASS',S) then
if S='bar' then
begin
DisableCrossIndexing:=true;
{$ifdef DEBUG}
DebugMessage(GetFileName,'Bar table found, cross indexing disabled ',Line,LinePos);
{$endif DEBUG}
end;
end
else
begin
{$ifdef DEBUG}
if DisableCrossIndexing then
begin
DebugMessage(GetFileName,'Bar table end found',Line,LinePos);
end;
{$endif DEBUG}
DisableCrossIndexing:=false;
end;
end;
procedure THTMLParser.DocTableRow(Entered: boolean);
begin
end;

11
ide/whtmlhlp.pas
View File

@ -62,6 +62,7 @@ type
GlobalOffset,
GlobalTextBegin : sw_word;
WithBorder : boolean;
IsBar : boolean;
FirstLine : PTableLine;
LastLine : PTableLine;
PreviousTable : PTable;
@ -262,6 +263,7 @@ begin
LastLine:=nil;
WithBorder:=false;
IsBar:=false;
end;
procedure TTable.AddLine(PL : PTableLine);
@ -938,7 +940,7 @@ end;
procedure THTMLTopicRenderer.DocTable(Entered: boolean);
var
ATable : PTable;
Border : String;
Param : String;
begin
if AnyCharsInLine then
begin
@ -951,9 +953,12 @@ begin
New(ATable,Init(CurrentTable));
CurrentTable:=ATable;
CurrentTable^.Renderer:=@Self;
if DocGetTagParam('BORDER',border) then
if Border<>'0' then
if DocGetTagParam('BORDER',Param) then
if Param<>'0' then
CurrentTable^.WithBorder:=true;
if DocGetTagParam('CLASS',Param) then
if Param='bar' then
CurrentTable^.IsBar:=true;
end
else
begin