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

* some const added

Browse Source 
git-svn-id: trunk@62588 -
This commit is contained in:
marco 2020-01-25 22:29:59 +00:00
parent 518d306921
commit bda4078a93
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
components/chmhelp/lhelp/chmcontentprovider.pas
View File

@ -69,12 +69,12 @@ type
fActiveChmTitle: String; fActiveChmTitle: String;
FLoadingSearchURL: Boolean; // use this to try to highlight search terms FLoadingSearchURL: Boolean; // use this to try to highlight search terms
function MakeURI(AUrl: String; AChm: TChmReader): String; function MakeURI(Const AUrl: String; AChm: TChmReader): String;
procedure BeginUpdate; override; procedure BeginUpdate; override;
procedure EndUpdate; override; procedure EndUpdate; override;
procedure AddHistory(URL: String); procedure AddHistory(Const URL: String);
procedure DoOpenChm(AFile: String; ACloseCurrent: Boolean = True); procedure DoOpenChm(Const AFile: String; ACloseCurrent: Boolean = True);
procedure DoCloseChm; procedure DoCloseChm;
procedure DoLoadContext(Context: THelpContext); procedure DoLoadContext(Context: THelpContext);
procedure DoLoadUri(Uri: String; AChm: TChmReader = nil); procedure DoLoadUri(Uri: String; AChm: TChmReader = nil);
@ -100,7 +100,7 @@ type
procedure SearchEditChange(Sender: TObject); procedure SearchEditChange(Sender: TObject);
procedure TOCExpand(Sender: TObject; Node: TTreeNode); procedure TOCExpand(Sender: TObject; Node: TTreeNode);
procedure TOCCollapse(Sender: TObject; Node: TTreeNode); procedure TOCCollapse(Sender: TObject; Node: TTreeNode);
procedure SelectTreeItemFromURL(AUrl: String); procedure SelectTreeItemFromURL(Const AUrl: String);
{$IFDEF CHM_SEARCH} {$IFDEF CHM_SEARCH}
procedure SearchButtonClick(Sender: TObject); procedure SearchButtonClick(Sender: TObject);
procedure SearchResultsDblClick(Sender: TObject); procedure SearchResultsDblClick(Sender: TObject);
@ -219,7 +219,7 @@ begin
end; end;
function GetURIFileName(AURI: String): String; function GetURIFileName(Const AURI: String): String;
var var
FileStart, FileStart,
FileEnd: Integer; FileEnd: Integer;
@ -230,7 +230,7 @@ begin
Result := Copy(AURI, FileStart, FileEnd-FileStart); Result := Copy(AURI, FileStart, FileEnd-FileStart);
end; end;
function GetURIURL(AURI: String): String; function GetURIURL(Const AURI: String): String;
var var
URLStart: Integer; URLStart: Integer;
begin begin
@ -238,7 +238,7 @@ begin
Result := Copy(AURI, URLStart, Length(AURI)); Result := Copy(AURI, URLStart, Length(AURI));
end; end;
function ChmURI(AUrl: String; AFileName: String): String; function ChmURI(Const AUrl: String; Const AFileName: String): String;
var var
FileNameNoPath: String; FileNameNoPath: String;
begin begin
@ -262,7 +262,7 @@ begin
fStatusbar.Visible := AValue; fStatusbar.Visible := AValue;
end; end;
function TChmContentProvider.MakeURI ( AUrl: String; AChm: TChmReader ) : String; function TChmContentProvider.MakeURI (Const AUrl: String; AChm: TChmReader ) : String;
var var
ChmIndex: Integer; ChmIndex: Integer;
begin begin
@ -291,7 +291,7 @@ begin
end; end;
end; end;
procedure TChmContentProvider.AddHistory(URL: String); procedure TChmContentProvider.AddHistory(Const URL: String);
begin begin
if fHistoryIndex < fHistory.Count then if fHistoryIndex < fHistory.Count then
begin begin
@ -307,7 +307,7 @@ type
TCHMHack = class(TChmFileList) TCHMHack = class(TChmFileList)
end; end;
procedure TChmContentProvider.DoOpenChm(AFile: String; ACloseCurrent: Boolean = True); procedure TChmContentProvider.DoOpenChm(Const AFile: String; ACloseCurrent: Boolean = True);
begin begin
if (fChms <> nil) and fChms.IsAnOpenFile(AFile) then Exit; if (fChms <> nil) and fChms.IsAnOpenFile(AFile) then Exit;
if ACloseCurrent then DoCloseChm; if ACloseCurrent then DoCloseChm;
@ -832,7 +832,7 @@ begin
end; end;
end; end;
procedure TChmContentProvider.SelectTreeItemFromURL(AUrl: String); procedure TChmContentProvider.SelectTreeItemFromURL(Const AUrl: String);
var var
FileName: String; FileName: String;
URL: String; URL: String;