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

IDE: fixed result

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/buildmanager.pas
View File

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

9
ide/codehelp.pas
View File

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