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

* enhance html display

Browse Source 
git-svn-id: trunk@7141 -
This commit is contained in:
pierre 2007-04-20 09:57:09 +00:00
parent 1d1412c593
commit e98fc7e396
2 changed files with 37 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ide/whtml.pas
View File

@ -103,10 +103,10 @@ type
procedure DocDiv(Entered: boolean); virtual;
procedure DocList(Entered: boolean); virtual;
procedure DocOrderedList(Entered: boolean); virtual;
procedure DocListItem; virtual;
procedure DocListItem(Entered: boolean); virtual;
procedure DocDefList(Entered: boolean); virtual;
procedure DocDefTerm; virtual;
procedure DocDefExp; virtual;
procedure DocDefTerm(Entered: boolean); virtual;
procedure DocDefExp(Entered: boolean); virtual;
procedure DocTable(Entered: boolean); virtual;
procedure DocTableRow(Entered: boolean); virtual;
procedure DocTableHeaderItem(Entered: boolean); virtual;
@ -593,11 +593,11 @@ begin
{ Unordered & ordered lists }
if (ETagName='UL') then DocList(NotEndTag) else
if (ETagName='OL') then DocOrderedList(NotEndTag) else
if (UTagName='LI') then DocListItem else
if (ETagName='LI') then DocListItem(NotEndTag) else
{ Definition list }
if (ETagName='DL') then DocDefList(NotEndTag) else
if (UTagName='DT') then DocDefTerm else
if (UTagName='DD') then DocDefExp else
if (ETagName='DT') then DocDefTerm(NotEndTag) else
if (ETagName='DD') then DocDefExp(NotEndTag) else
{ Table }
if (ETagName='TABLE') then DocTable(NotEndTag) else
if (ETagName='TR') then DocTableRow(NotEndTag) else
@ -793,7 +793,7 @@ procedure THTMLParser.DocOrderedList(Entered: boolean);
begin
end;
procedure THTMLParser.DocListItem;
procedure THTMLParser.DocListItem(Entered: boolean);
begin
end;
@ -801,11 +801,11 @@ procedure THTMLParser.DocDefList(Entered: boolean);
begin
end;
procedure THTMLParser.DocDefTerm;
procedure THTMLParser.DocDefTerm(Entered: boolean);
begin
end;
procedure THTMLParser.DocDefExp;
procedure THTMLParser.DocDefExp(Entered: boolean);
begin
end;

37
ide/whtmlhlp.pas
View File

@ -106,10 +106,10 @@ type
procedure DocSpan(Entered: boolean); virtual;
procedure DocList(Entered: boolean); virtual;
procedure DocOrderedList(Entered: boolean); virtual;
procedure DocListItem; virtual;
procedure DocListItem(Entered: boolean); virtual;
procedure DocDefList(Entered: boolean); virtual;
procedure DocDefTerm; virtual;
procedure DocDefExp; virtual;
procedure DocDefTerm(Entered: boolean); virtual;
procedure DocDefExp(Entered: boolean); virtual;
procedure DocTable(Entered: boolean); virtual;
procedure DocTableRow(Entered: boolean); virtual;
procedure DocTableHeaderItem(Entered: boolean); virtual;
@ -127,6 +127,7 @@ type
InAnchor: boolean;
InParagraph: boolean;
InPreformatted: boolean;
InDefExp: boolean;
TopicTitle: string;
Indent: integer;
AnyCharsInLine: boolean;
@ -311,6 +312,9 @@ var
TextBegin,TextEnd : sw_word;
i,j,k,Length : sw_word;
begin
{ do nothing for single cell tables }
if (NumCols=1) and (NumLines=1) then
exit;
GetMem(ColLengthArray,Sizeof(sw_word)*NumCols);
FillChar(ColLengthArray^,Sizeof(sw_word)*NumCols,#0);
GetMem(RowSizeArray,Sizeof(sw_word)*NumLines);
@ -906,8 +910,10 @@ begin
DocList(Entered);
end;
procedure THTMLTopicRenderer.DocListItem;
procedure THTMLTopicRenderer.DocListItem(Entered: boolean);
begin
if not Entered then
exit;
if AnyCharsInLine then
DocBreak;
AddText('þ'+hscLineStart);
@ -922,19 +928,32 @@ begin
else
begin
if AnyCharsInLine then DocBreak;
InDefExp:=false;
end;
end;
procedure THTMLTopicRenderer.DocDefTerm;
procedure THTMLTopicRenderer.DocDefTerm(Entered: boolean);
begin
if not Entered then
exit;
DocBreak;
end;
procedure THTMLTopicRenderer.DocDefExp;
procedure THTMLTopicRenderer.DocDefExp(Entered: boolean);
begin
Inc(Indent,DefIndent);
DocBreak;
Dec(Indent,DefIndent);
if not Entered then
begin
if InDefExp then
Dec(Indent,DefIndent);
InDefExp:=false;
end
else
begin
if not InDefExp then
Inc(Indent,DefIndent);
InDefExp:=true;
DocBreak;
end;
end;
procedure THTMLTopicRenderer.DocTable(Entered: boolean);