diff options
author | Graeme Geldenhuys <graemeg@gmail.com> | 2009-10-01 01:06:59 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graemeg@gmail.com> | 2009-10-01 01:06:59 +0200 |
commit | 927bd8d465cc780d3c710e28239f872f107de3da (patch) | |
tree | bd860222ef4e625f74ec89abbc5ae0946aee3a37 /src/HelpFile.pas | |
parent | 724bf25b2f5ad0e1709f7cb0be225fca3c988947 (diff) | |
download | fpGUI-927bd8d465cc780d3c710e28239f872f107de3da.tar.xz |
Forgot to set a few properties in the Topic object.
Signed-off-by: Graeme Geldenhuys <graemeg@gmail.com>
Diffstat (limited to 'src/HelpFile.pas')
-rw-r--r-- | src/HelpFile.pas | 30 |
1 files changed, 16 insertions, 14 deletions
diff --git a/src/HelpFile.pas b/src/HelpFile.pas index 22236175..4f4de9f6 100644 --- a/src/HelpFile.pas +++ b/src/HelpFile.pas @@ -245,30 +245,32 @@ begin _Header, _Dictionary, pEntry ); + Topic.HelpFile := Self; + Topic.Index := EntryIndex; _Topics.Add(Topic); end; SetLength(tocarray, 0); exit; //---------------------------------- - pEntry:= _Data + _Header.tocstart; + //pEntry:= _Data + _Header.tocstart; -writeln('----------- old method '); - for EntryIndex := 0 to _Header.ntoc-1 do - begin - Topic:= TTopic.Create( _Data, - _Header, - _Dictionary, - pEntry ); +//writeln('----------- old method '); + //for EntryIndex := 0 to _Header.ntoc-1 do + //begin + //Topic:= TTopic.Create( _Data, + //_Header, + //_Dictionary, + //pEntry ); - Topic.HelpFile := Self; - Topic.Index := EntryIndex; + //Topic.HelpFile := Self; + //Topic.Index := EntryIndex; - _Topics.Add( Topic ); + //_Topics.Add( Topic ); - inc( pEntry, pEntry^.Length ); - writeln('Topic ' + IntToStr(EntryIndex) + ' length = ' + IntToStr(pEntry^.Length)); - end; + //inc( pEntry, pEntry^.Length ); + //writeln('Topic ' + IntToStr(EntryIndex) + ' length = ' + IntToStr(pEntry^.Length)); + //end; end; procedure THelpFile.ReadDictionary; |