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

* some code cleanup

Browse Source 
git-svn-id: trunk@21988 -
This commit is contained in:
andrew 2009-10-02 22:28:54 +00:00
parent c8166c62ea
commit 0bd3f3c363
1 changed files with 1 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/chmhelp/lhelp/chmspecialparser.pas
View File

@ -35,13 +35,7 @@ type
public
property Url:String read fUrl write fUrl;
end;
TContentNode = record
Name: String;
Url: String;
LineCount: Integer;
end;
TIndexItem = class(TListITem)
private
fUrl: String;
@ -57,7 +51,6 @@ type
fTreeView: TTreeView;
fSitemap: TChmSiteMap;
fChm: TObject;
fBranchCount: DWord;
fStop: PBoolean;
procedure CustomCreateContentTreeItem(Sender: TCustomTreeView; var ATreeNode: TTreenode);
@ -66,8 +59,6 @@ type
constructor Create(ATreeView: TTreeView; AStream: TStream; StopBoolean: PBoolean; AChm: TObject);
destructor Destroy; override;
procedure DoFill(ParentNode: TTreeNode);
end;
{ TIndexFiller }
@ -78,12 +69,10 @@ type
fSitemap: TChmSiteMap;
fChm: Tobject;
procedure AddItem(Item: TChmSiteMapItem; ASubItem: Boolean);
public
constructor Create(AListView: TListView; AStream: TStream; AChm: TObject);
destructor Destroy; override;
procedure DoFill;
end;
implementation
@ -158,16 +147,11 @@ begin
OrigEvent := fTreeView.OnCustomCreateItem;
fTreeView.OnCustomCreateItem := @CustomCreateContentTreeItem;
fTreeView.BeginUpdate;
for X := 0 to fSitemap.Items.Count-1 do
AddItem(fSitemap.Items.Item[X], ParentNode);
fTreeView.OnCustomCreateItem := OrigEvent;
fTreeView.EndUpdate;