IDE: fixed result

git-svn-id: trunk@55219 -
This commit is contained in:
mattias 2017-06-04 20:35:01 +00:00
parent 6e41e1e216
commit 34b48ac437
2 changed files with 4 additions and 6 deletions

View File

@ -1880,6 +1880,7 @@ var
AnUnitInfo: TUnitInfo; AnUnitInfo: TUnitInfo;
Code: TCodeBuffer; Code: TCodeBuffer;
begin begin
Result:=mrOk;
// update project resource // update project resource
Project1.ProjResources.Regenerate(Project1.MainFileName, False, True, TestDir); Project1.ProjResources.Regenerate(Project1.MainFileName, False, True, TestDir);
AnUnitInfo := Project1.FirstPartOfProject; AnUnitInfo := Project1.FirstPartOfProject;

View File

@ -885,14 +885,11 @@ function TLazFPDocFile.GetValuesFromNode(Node: TDOMNode): TFPDocElementValues;
// simple function to return the values as string // simple function to return the values as string
var var
S: String; S: String;
i: TFPDocItem;
begin begin
//DebugLn(['TLazFPDocFile.GetValuesFromNode ',Node.NodeName,' ',dbgsName(Node),' ',Node is TDomElement]); //DebugLn(['TLazFPDocFile.GetValuesFromNode ',Node.NodeName,' ',dbgsName(Node),' ',Node is TDomElement]);
Result[fpdiShort] := ''; for i in TFPDocItem do
Result[fpdiElementLink] := ''; Result[i] := '';
Result[fpdiDescription] := '';
Result[fpdiErrors] := '';
Result[fpdiSeeAlso] := '';
Result[fpdiExample] := '';
if Node is TDomElement then if Node is TDomElement then
Result[fpdiElementLink] := TDomElement(Node).GetAttribute('link'); Result[fpdiElementLink] := TDomElement(Node).GetAttribute('link');
Node := Node.FirstChild; Node := Node.FirstChild;