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

IDE: fpdoc editor: implemented saving example filename

Browse Source 
git-svn-id: trunk@15968 -
This commit is contained in:
mattias 2008-08-06 09:24:39 +00:00
parent 2e066c2d2a
commit 88dafd0030
2 changed files with 28 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
ide/codehelp.pas
View File

@ -608,7 +608,6 @@ procedure TLazFPDocFile.SetChildValue(Node: TDOMNode; const ChildName: string;
var
Child: TDOMNode;
OldNode: TDOMNode;
FileAttribute, LinkAttribute: TDOMAttr;
begin
NewValue:=ToUnixLineEnding(NewValue);
@ -637,21 +636,30 @@ begin
// update sub node
Child:=Node.FindNode(ChildName);
if ChildName = FPDocItemNames[fpdiExample] then begin
OldNode:=nil;
if Child<>nil then
OldNode:=Child.Attributes.GetNamedItem('file');
// update sub node example, attribute file
NewValue:=FilenameToURLPath(NewValue);
if (NewValue<>'')
or (not (OldNode is TDOMAttr))
or (TDOMAttr(OldNode).Value<>NewValue) then begin
FileAttribute:=nil;
if Child is TDomElement then
FileAttribute:=TDomElement(Child).GetAttributeNode('file');
if ((NewValue='') and (FileAttribute<>nil))
or ((NewValue<>'') and ((FileAttribute=nil) or (FileAttribute.NodeValue<>NewValue)))
then begin
// delete, add or change attribute 'file'
DebugLn(['TLazFPDocFile.SetChildValue Changing example file Name=',ChildName,' NewValue="',NewValue,'"']);
// add, change or delete example file
DocChanging;
try
FileAttribute := Doc.CreateAttribute('file');
FileAttribute.Value := NewValue;
OldNode:=Node.Attributes.SetNamedItem(FileAttribute);
OldNode.Free;
if NewValue='' then begin
// remove old content
while Child.LastChild<>nil do
Child.RemoveChild(Child.LastChild);
Node.RemoveChild(Child);
end else begin
if Child=nil then begin
Child := Doc.CreateElement(ChildName);
Node.AppendChild(Child);
end;
TDomElement(Child).SetAttribute('file',NewValue);
end;
finally
DocChanged;
end;
@ -681,8 +689,13 @@ begin
// remove old content
while Child.LastChild<>nil do
Child.RemoveChild(Child.LastChild);
// set new content
ReadXMLFragmentFromString(Child,NewValue);
if NewValue='' then begin
// remove entire child
Node.RemoveChild(Child);
end else begin
// set new content
ReadXMLFragmentFromString(Child,NewValue);
end;
finally
DocChanged;
end;

2
ide/fpdoceditwindow.pas
View File

@ -1043,7 +1043,7 @@ begin
CurDocFile.SetChildValue(TopNode,'errors',Values[fpdiErrors]);
// ToDo:
//CurDocFile.SetChildValue(TopNode,'seealso',Values[fpdiSeeAlso]);
//CurDocFile.SetChildValue(TopNode,'example',Values[fpdiExample]);
CurDocFile.SetChildValue(TopNode,'example',Values[fpdiExample]);
finally
CurDocFile.EndUpdate;
fChain.MakeValid;