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

forgotten file

Browse Source 
git-svn-id: trunk@16644 -
This commit is contained in:
paul 2008-09-19 07:03:14 +00:00
parent 736b46028b
commit 35e4c88db4
1 changed files with 17 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
components/codetools/definetemplates.pas
View File

@ -161,20 +161,20 @@ type
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
// TDefineTemplate stores a define action, the variablename and the value // TDefineTemplate stores a define action, the variablename and the value
TDefineAction = ( TDefineAction = (
da_None, da_None,
da_Block, da_Block,
da_Define, da_Define,
da_DefineRecurse, da_DefineRecurse,
da_Undefine, da_Undefine,
da_UndefineRecurse, da_UndefineRecurse,
da_UndefineAll, da_UndefineAll,
da_If, da_If,
da_IfDef, da_IfDef,
da_IfNDef, da_IfNDef,
da_ElseIf, da_ElseIf,
da_Else, da_Else,
da_Directory da_Directory
); );
const const
DefineActionBlocks = [da_Block, da_Directory, da_If, da_IfDef, da_IfNDef, DefineActionBlocks = [da_Block, da_Directory, da_If, da_IfDef, da_IfNDef,
@ -185,6 +185,9 @@ const
'None', 'Block', 'Define', 'DefineRecurse', 'Undefine', 'UndefineRecurse', 'None', 'Block', 'Define', 'DefineRecurse', 'Undefine', 'UndefineRecurse',
'UndefineAll', 'If', 'IfDef', 'IfNDef', 'ElseIf', 'Else', 'Directory' 'UndefineAll', 'If', 'IfDef', 'IfNDef', 'ElseIf', 'Else', 'Directory'
); );
var
DefineActionImages: array[TDefineAction] of integer;
AutogeneratedImage: Integer;
type type
TDefineTree = class; TDefineTree = class;