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

codetools: fixed name conflict comparetext

Browse Source 
git-svn-id: trunk@35899 -
This commit is contained in:
mattias 2012-03-12 08:08:43 +00:00
parent 181edb15c2
commit 4ea260ab19
4 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/basiccodetools.pas
View File

@ -153,7 +153,7 @@ procedure AdjustPositionAfterInsert(var p: integer; IsStart: boolean;
// comparison
function CompareText(Txt1: PChar; Len1: integer; Txt2: PChar; Len2: integer;
CaseSensitive: boolean): integer; overload;
function CompareText(const Txt1, Txt2: string;
function CompareTextCT(const Txt1, Txt2: string;
CaseSensitive: boolean = false): integer; overload;
function CompareText(Txt1: PChar; Len1: integer; Txt2: PChar; Len2: integer;
CaseSensitive, IgnoreSpace: boolean): integer; overload;
@ -5382,7 +5382,7 @@ begin
Result:=0;
end;
function CompareText(const Txt1, Txt2: string; CaseSensitive: boolean): integer;
function CompareTextCT(const Txt1, Txt2: string; CaseSensitive: boolean): integer;
begin
Result:=CompareText(PChar(Pointer(Txt1)),length(Txt1),
PChar(Pointer(Txt2)),length(Txt2),CaseSensitive);

11
components/wiki/README.txt
View File

@ -30,3 +30,14 @@ Creating HTML pages:
Creating chm:
./wikiconvert --format=chm --css=chm/wiki.css wikixml/Lazarus_Documentation.g400.xml 'wikixml/*.xml'
ToDos
ToDos wiki parser: see wikiparser.pas
ToDos iphtml:
-too big space between paragraphs
-jump to anchor after loading, Note: before first paint the areas are all 0,0,0,0
-background for pre
-backslashes in text are not shown
-slow on some pages (e.g. lazarus_documentation)

4
components/wiki/lazwiki/wikiformat.pas
View File

@ -664,14 +664,14 @@ var
p1: TW2FormatPage absolute Page1;
p2: TW2FormatPage absolute Page2;
begin
Result:=BasicCodeTools.CompareText(p1.WikiDocumentName,p2.WikiDocumentName,true);
Result:=BasicCodeTools.CompareTextCT(p1.WikiDocumentName,p2.WikiDocumentName,true);
end;
function CompareDocumentNameWithPage(DocumentName, Page: Pointer): integer;
var
p: TW2FormatPage absolute Page;
begin
Result:=BasicCodeTools.CompareText(AnsiString(DocumentName),p.WikiDocumentName,true);
Result:=BasicCodeTools.CompareTextCT(AnsiString(DocumentName),p.WikiDocumentName,true);
end;
function CompareDocumentNameWithPageIgnoreLang(DocumentName, Page: Pointer

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

@ -556,7 +556,7 @@ end;
procedure TWikiSearchDemoForm.UpdateHistoryButtons;
begin
BackToolButton.Visible:=PageHistory.CurrentIndex>0;
BackToolButton.Enabled:=PageHistory.CurrentIndex>0;
ForwardToolButton.Visible:=PageHistory.CurrentIndex+1<PageHistory.Count;
end;