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

* Patch by Graeme Geldenhuys to fix various issues (bug ID 23432)

Browse Source 
git-svn-id: trunk@23222 -
This commit is contained in:
michael 2012-12-26 14:13:10 +00:00
parent bba4932ef9
commit 3588c39a55
3 changed files with 4 additions and 7 deletions

5
utils/fpdoc/dw_ipflin.pas
View File

@ -196,7 +196,6 @@ const
cMax = 100;
var
sl: TStringlist;
ns: string;
i: integer;
lText: string;
begin
@ -632,8 +631,6 @@ begin
end;
function TIPFNewWriter.GetLabel(AElement: TPasElement): String;
var
i: Integer;
begin
if AElement.ClassType = TPasUnresolvedTypeRef then
Result := Engine.ResolveLink(Module, AElement.Name)
@ -704,7 +701,7 @@ end;
Function TIPFNewWriter.StripText(S : String) : String;
var
I,L: Integer;
I: Integer;
begin
//Result := S;
SetLength(Result, 0);

2
utils/fpdoc/dw_latex.pp
View File

@ -128,9 +128,9 @@ Type
procedure DescrBeginTableCell; override;
procedure DescrEndTableCell; override;
// TFPDocWriter class methods
Function InterPretOption(Const Cmd,Arg : String) : boolean; override;
Property ImageDir : String Read FImageDir Write FImageDir;
public
Function InterPretOption(Const Cmd,Arg : String) : boolean; override;
Class Function FileNameExtension : String; override;
end;

4
utils/fpdoc/dwlinear.pp
View File

@ -86,6 +86,8 @@ Type
procedure WriteUnitEntry(UnitRef : TPasType);virtual; Abstract;
procedure EndUnitOverview; virtual; Abstract;
Property LastURL : DomString Read FLastURL Write FLastURL;
// Overriden from fpdocwriter;
procedure DescrWriteText(const AText: DOMString); override;
Public
Constructor Create(APackage: TPasPackage; AEngine: TFPDocEngine); override;
function InterpretOption(const Cmd, Arg: String): Boolean; override;
@ -113,8 +115,6 @@ Type
procedure WriteExample(ADocNode: TDocNode);
procedure WriteSeeAlso(ADocNode: TDocNode);
Procedure WriteTopicNode(Node : TDocNode; Level : Integer);
// Overriden from fpdocwriter;
procedure DescrWriteText(const AText: DOMString); override;
end;
implementation