diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-03-26 21:28:08 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-03-26 21:28:08 +0200 |
commit | 765174856a17c57894718c6bde442a85edaa4f77 (patch) | |
tree | d824a4e5ca2016b645b48e8f1123cccbefec64b3 /docview | |
parent | 5419e53bddf37d667c135d0449eeb33d0ff75b01 (diff) | |
download | fpGUI-765174856a17c57894718c6bde442a85edaa4f77.tar.xz |
Minor code changes so docview is compilable with FPC 2.5.1
Thanks to Michael van Canneyt for the patch.
Diffstat (limited to 'docview')
-rw-r--r-- | docview/src/HelpFile.pas | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/docview/src/HelpFile.pas b/docview/src/HelpFile.pas index f7e436fe..298afd73 100644 --- a/docview/src/HelpFile.pas +++ b/docview/src/HelpFile.pas @@ -106,11 +106,11 @@ type procedure ReadFontTableData; procedure ParseFontTable; - function GetTopic( Index: longint ): TTopic; + function GetTopic( AIndex: longint ): TTopic; function GetTopicCount: longint; function GetDictionaryCount: longint; - function GetDictionaryWord( Index: longint ): string; + function GetDictionaryWord( AIndex: longint ): string; function GetHighlightWords: UInt32ArrayPointer; @@ -146,7 +146,7 @@ type function GetImage( ImageOffset: longint ): THelpBitmap; property DictionaryCount: longint read GetDictionaryCount; - property DictionaryWords[ Index: longint ]: string read GetDictionaryWord; + property DictionaryWords[ AIndex: longint ]: string read GetDictionaryWord; function IndexOfTopic( Topic: TTopic ): longint; @@ -1117,13 +1117,13 @@ begin end; end; -function THelpFile.GetTopic( Index: longint ): TTopic; +function THelpFile.GetTopic( AIndex: longint ): TTopic; begin - if ( Index < 0 ) - or ( Index > _Topics.Count - 1 ) then + if ( AIndex < 0 ) + or ( AIndex > _Topics.Count - 1 ) then Result := nil else - Result := TTopic(_Topics[ Index ]); + Result := TTopic(_Topics[ AIndex ]); end; function THelpFile.GetTopicCount: longint; @@ -1141,9 +1141,9 @@ begin Result := _Dictionary.Count; end; -function THelpFile.GetDictionaryWord( Index: longint ): string; +function THelpFile.GetDictionaryWord( AIndex: longint ): string; begin - Result := _Dictionary[ Index ]; + Result := _Dictionary[ AIndex ]; end; |