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

IDE: fpdoc editor: implemented saving seealso links

Browse Source 
git-svn-id: trunk@15969 -
This commit is contained in:
mattias 2008-08-06 10:08:18 +00:00
parent 88dafd0030
commit d13eb6c161
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/fpdoceditwindow.pas
View File

@ -365,10 +365,18 @@ begin
end;
procedure TFPDocEditor.LinkChange(Sender: TObject);
var
NewLink: String;
OldLink: string;
begin
if LinkListBox.ItemIndex<0 then
Exit;
LinkListBox.Items[LinkListBox.ItemIndex] := MakeLink;
NewLink:=MakeLink;
OldLink:=LinkListBox.Items[LinkListBox.ItemIndex];
if NewLink<>OldLink then begin
LinkListBox.Items[LinkListBox.ItemIndex] := NewLink;
Modified:=true;
end;
end;
procedure TFPDocEditor.LinkListBoxClick(Sender: TObject);
@ -1041,8 +1049,7 @@ begin
CurDocFile.SetChildValue(TopNode,'elementlink',Values[fpdiElementLink]);
CurDocFile.SetChildValue(TopNode,'descr',Values[fpdiDescription]);
CurDocFile.SetChildValue(TopNode,'errors',Values[fpdiErrors]);
// ToDo:
//CurDocFile.SetChildValue(TopNode,'seealso',Values[fpdiSeeAlso]);
CurDocFile.SetChildValue(TopNode,'seealso',Values[fpdiSeeAlso]);
CurDocFile.SetChildValue(TopNode,'example',Values[fpdiExample]);
finally
CurDocFile.EndUpdate;