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

ideintf: fix compilation with new tkHelper element

Browse Source 
git-svn-id: trunk@30332 -
This commit is contained in:
paul 2011-04-17 04:59:32 +00:00
parent cb09a7c687
commit a8af9fd0da
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ideintf/propedits.pp
View File

@ -1741,11 +1741,12 @@ end;
const
{ TypeKinds see typinfo.pp
TTypeKind = (tkUnknown,tkInteger,tkChar,tkEnumeration,
tkFloat,tkSet,tkMethod,tkSString,tkLString,tkAString,
TTypeKind = (tkUnknown,tkInteger,tkChar,tkEnumeration,tkFloat,
tkSet,tkMethod,tkSString,tkLString,tkAString,
tkWString,tkVariant,tkArray,tkRecord,tkInterface,
tkClass,tkObject,tkWChar,tkBool,tkInt64,tkQWord,
tkDynArray,tkInterfaceRaw);
tkDynArray,tkInterfaceRaw,tkProcVar,tkUString,tkUChar,
tkHelper);
}
PropClassMap:array[TypInfo.TTypeKind] of TPropertyEditorClass=(
@ -1777,6 +1778,9 @@ const
,nil, // tkProcVar
nil, // tkUString
nil // tkUChar
{$ENDIF}
{$IF declared(tkHelper)}
,nil // tkHelper
{$ENDIF}
);