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

codetools: using Martins fix for MethodKindAsString

Browse Source 
git-svn-id: trunk@29014 -
This commit is contained in:
mattias 2011-01-14 22:16:20 +00:00
parent ad706e155e
commit 2c75ddebd7
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/codetools/eventcodetool.pas
View File

@ -120,11 +120,11 @@ const
MethodKindAsString: array[TMethodKind] of shortstring = (
'procedure', 'function', 'constructor', 'destructor',
'class procedure', 'class function'
{$IFNDEF VER2_4}
,'class constructor', 'class destructor'
{$ENDIF}
{$IFDEF VER2_5}
,'operator overload'
{$IF high(TMethodKind)<> mkClassFunction}
,'class constructor', 'class destructor'
{$IF high(TMethodKind)<> mkClassDestructor}
,'operator overload'
{$ENDIF}
{$ENDIF}
);