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

* ifdef'd the chm searching code so an older fpc can compile it

Browse Source 
git-svn-id: trunk@17672 -
This commit is contained in:
andrew 2008-12-03 12:13:47 +00:00
parent 3e23380837
commit 2e2ae63b1a
1 changed files with 10 additions and 1 deletions

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

@ -3,6 +3,7 @@ unit chmcontentprovider;
{$mode objfpc}{$H+}
{off $DEFINE CHM_DEBUG_TIME}
{off $DEFINE CHM_SEARCH}
interface
@ -62,8 +63,10 @@ type
procedure ViewMenuContentsClick(Sender: TObject);
procedure SetTitle(const ATitle: String);
procedure SearchEditChange(Sender: TObject);
{$IFDEF CHM_SEARCH}
procedure SearchButtonClick(Sender: TObject);
procedure SearchResultsDblClick(Sender: TObject);
{$ENDIF}
public
function CanGoBack: Boolean; override;
function CanGoForward: Boolean; override;
@ -80,7 +83,7 @@ type
implementation
uses ChmSpecialParser, chmFIftiMain;
uses ChmSpecialParser{$IFDEF CHM_SEARCH}, chmFIftiMain{$ENDIF};
function GetURIFileName(AURI: String): String;
var
@ -312,6 +315,7 @@ begin
{$ENDIF}
fFillingToc := False;
{$IFDEF CHM_SEARCH}
i := 0;
while (HasSearchIndex = False) and (i < fChms.Count) do
begin
@ -320,6 +324,7 @@ begin
end;
fSearchTab.TabVisible := HasSearchIndex;
{$ENDIF}
end;
@ -419,6 +424,7 @@ begin
end;
end;
{$IFDEF CHM_SEARCH}
procedure TChmContentProvider.SearchButtonClick ( Sender: TObject ) ;
type
TTopicEntry = record
@ -585,6 +591,7 @@ begin
DoLoadUri(MakeURI(Item.SubItems[2], TChmReader(Item.Data)));
end;
{$ENDIF}
function TChmContentProvider.CanGoBack: Boolean;
@ -747,6 +754,7 @@ begin
ReadOnly := True;
end;
{$IFDEF CHM_SEARCH}
fSearchTab := TTabSheet.Create(fTabsControl);
with fSearchTab do begin
Caption := 'Search';
@ -815,6 +823,7 @@ begin
{$ENDIF}
OnDblClick := @SearchResultsDblClick;
end;
{$ENDIF}
fSplitter := TSplitter.Create(Parent);
with fSplitter do begin