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

chmhelp: clean up

Browse Source 
git-svn-id: trunk@30791 -
This commit is contained in:
mattias 2011-05-18 08:54:24 +00:00
parent dd6e40b0cf
commit 0c220b488f
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/chmhelp/packages/idehelp/chmlangref.pas
View File

@ -8,7 +8,7 @@ uses
Classes, SysUtils,
Dialogs, FileUtil,
LazHelpIntf, HelpIntfs,
IDEHelpIntf, LazHelpHTML, MacroIntf;
IDEHelpIntf, MacroIntf;
const
sFPCLangRef = 'FPC Language Reference';
@ -27,10 +27,10 @@ type
destructor Destroy; override;
procedure LoadKeywordList(Path: string);
function GetNodesForKeyword(const HelpKeyword: string;
var ListOfNodes: THelpNodeQueryList; var ErrMsg: string
var ListOfNodes: THelpNodeQueryList; var {%H-}ErrMsg: string
): TShowHelpResult; override;
function ShowHelp(Query: THelpQuery; BaseNode, NewNode: THelpNode;
QueryItem: THelpQueryItem;
function ShowHelp(Query: THelpQuery; {%H-}BaseNode, NewNode: THelpNode;
{%H-}QueryItem: THelpQueryItem;
var ErrMsg: string): TShowHelpResult; override;
end;

4
components/chmhelp/packages/idehelp/lazchmhelp.pas
View File

@ -37,8 +37,8 @@ type
fHelpConnection: TLHelpConnection;
fChmsFilePath: String;
function GetHelpEXE: String;
function DBFindViewer(HelpDB: THelpDatabase; const MimeType: string;
var ErrMsg: string; out Viewer: THelpViewer): TShowHelpResult;
function DBFindViewer({%H-}HelpDB: THelpDatabase; {%H-}const MimeType: string;
var {%H-}ErrMsg: string; out Viewer: THelpViewer): TShowHelpResult;
function GetHelpLabel: String;
procedure SetChmsFilePath(const AValue: String);
protected