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

wiki test: alt in href

Browse Source 
git-svn-id: trunk@35748 -
This commit is contained in:
mattias 2012-03-05 19:22:14 +00:00
parent 278a3ef6ac
commit e1b2c61f10
3 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/wiki/test/wikihelpmanager.pas
View File

@ -1349,7 +1349,10 @@ var
HeaderNode: TWHTextNode;
begin
// link to the page
Result:='<a href="'+StrToXMLValue(aPage.WikiDocumentName)+'" class="wikiLinkPage">'
Result:='<a href="'+StrToXMLValue(aPage.WikiDocumentName)+'"'
+' class="wikiLinkPage"'
+' alt="'+StrToXMLValue(aPage.WikiPage.Title)+'"'
+'>'
+TextToHTMLSnipped(aPage.WikiPage.Title,aQuery.LoPhrases,200)+'</a><br>'+LineEnding;
if aNode<>nil then begin
HeaderNode:=aNode;
@ -1357,7 +1360,10 @@ begin
HeaderNode:=HeaderNode.Previous;
if HeaderNode<>nil then begin
// add a direct link to the sub topic
Result+='Topic <a href="'+StrToXMLValue(aPage.WikiDocumentName+'#'+WikiHeaderToLink(HeaderNode.Txt))+'" class="wikiLinkTopic">'
Result+='Topic <a href="'+StrToXMLValue(aPage.WikiDocumentName+'#'+WikiHeaderToLink(HeaderNode.Txt))+'"'
+' class="wikiLinkTopic"'
+' alt="'+StrToXMLValue(HeaderNode.Txt)+'"'
+'>'
+TextToHTMLSnipped(HeaderNode.Txt,aQuery.LoPhrases,200)+'</a>: ';
end;
if HeaderNode<>aNode then begin

4
components/wiki/test/wikisearchmain.lfm
View File

@ -61,7 +61,7 @@ object WikiSearchDemoForm: TWikiSearchDemoForm
Align = alLeft
FixedTypeface = 'Courier New'
DefaultTypeFace = 'default'
DefaultFontSize = 8
DefaultFontSize = 10
FlagErrors = False
PrintSettings.MarginLeft = 0.5
PrintSettings.MarginTop = 0.5
@ -86,7 +86,7 @@ object WikiSearchDemoForm: TWikiSearchDemoForm
Align = alClient
FixedTypeface = 'Courier New'
DefaultTypeFace = 'default'
DefaultFontSize = 12
DefaultFontSize = 10
FlagErrors = False
PrintSettings.MarginLeft = 0.5
PrintSettings.MarginTop = 0.5

2
components/wiki/test/wikisearchmain.pas
View File

@ -77,7 +77,7 @@ begin
Result:=nil;
if URL='' then exit;
if URL=WikiHelp.ResultsCSSURL then begin
debugln(['TWikiIpHtmlDataProvider.DoGetStream loading css ']);
//debugln(['TWikiIpHtmlDataProvider.DoGetStream loading css ']);
Result:=TMemoryStream.Create;
if WikiHelp.ResultsCSS<>'' then
Result.Write(WikiHelp.ResultsCSS[1],length(WikiHelp.ResultsCSS));