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

DocEditor: Keep contents of SeeAlso section when saving the description file. Issue #34631, patch from Oleg.

Browse Source 
git-svn-id: trunk@60823 -
This commit is contained in:
juha 2019-04-02 23:14:44 +00:00
parent 67258421da
commit 979beb76a8
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
doceditor/freditor.pp
View File

@ -431,7 +431,7 @@ Function TElementEditor.CurrentXML : String;
Var Var
I : Integer; I : Integer;
S,L,LT : String; S,L,LT,T : String;
begin begin
Result:=''; Result:='';
@ -446,9 +446,9 @@ begin
LT:=Trim(lbxSeeAlso.Items[i]); LT:=Trim(lbxSeeAlso.Items[i]);
if (LT<>'') then if (LT<>'') then
begin begin
SplitLinkText(LT,L,LT); SplitLinkText(LT,L,T);
If (LT<>'') then If (T<>'') then
S:=S+'<link id="'+L+'">'+LT+'</link>' S:=S+'<link id="'+L+'">'+T+'</link>'
else else
S:=S+'<link id="'+L+'"/>'; S:=S+'<link id="'+L+'"/>';
end; end;