diff options
Diffstat (limited to 'test/delphi/pluto.out.raydebug')
| -rw-r--r-- | test/delphi/pluto.out.raydebug | 10829 |
1 files changed, 0 insertions, 10829 deletions
diff --git a/test/delphi/pluto.out.raydebug b/test/delphi/pluto.out.raydebug deleted file mode 100644 index 032e8d4..0000000 --- a/test/delphi/pluto.out.raydebug +++ /dev/null @@ -1,10829 +0,0 @@ -reserved(unit) ident(FindTH)operator(;) - -reserved(interface) - -reserved(uses) - ident(Classes)operator(,) ident(windows)operator(,) ident(Dialogs)operator(,) ident(ComCtrls)operator(,) ident(CompEx)operator(,) ident(SysUtils)operator(,) ident(YTools)operator(,) ident(YTypes)operator(,) - ident(clock)operator(,) ident(plutoconst)operator(,) ident(StdCtrls)operator(,) ident(Masks)operator(,) ident(Forms)operator(,) ident(XReg)operator(;) - -reserved(const) - ident(RegMoleVersion) operator(=) string<delimiter(')content(1.1)delimiter(')>operator(;) - -reserved(type) - ident(TFindThreadProgress) operator(=) operator(()ident(fpNone)operator(,) ident(fpEvery512th)operator(,) ident(fpEach)operator(\);) - - ident(TRegFindThread) operator(=) reserved(class)operator(()ident(TThread)operator(\)) - directive(private) - ident(SearchText)operator(:) reserved(string)operator(;) - ident(SearchFor)operator(:) ident(TSearchOptions)operator(;) - ident(Progress)operator(:) ident(TFindThreadProgress)operator(;) - ident(FindNodeText)operator(:) reserved(string)operator(;) - ident(TimeElapsed)operator(:) ident(Double)operator(;) - ident(syncIcon)operator(:) ident(Integer)operator(;) - ident(syncStatusText)operator(:) reserved(string)operator(;) - ident(CurrentPath)operator(:) reserved(string)operator(;) - ident(KeysScanned)operator(:) ident(Integer)operator(;) - ident(Mask)operator(:) ident(TMask)operator(;) - ident(dwordVal)operator(:) ident(DWORD)operator(;) - ident(SearchForValues)operator(:) ident(Boolean)operator(;) - - reserved(procedure) ident(Find)operator(;) - - comment(//Synchronizers) - reserved(procedure) ident(Start)operator(;) - reserved(procedure) ident(Add)operator(;) - reserved(procedure) ident(UpdateStatus)operator(;) - reserved(procedure) ident(Finish)operator(;) - directive(protected) - reserved(procedure) ident(Execute)operator(;) directive(override)operator(;) - directive(public) - ident(SpecialPath)operator(:) reserved(string)operator(;) - ident(FindNode)operator(:) ident(TTreeNode)operator(;) - ident(ListTV)operator(:) ident(TTreeView)operator(;) - ident(ObjectsFound)operator(,) ident(KeysFound)operator(,) ident(ValuesFound)operator(,) ident(DataFound)operator(:) ident(Integer)operator(;) - ident(Ranges)operator(:) ident(TRanges)operator(;) - reserved(destructor) ident(Destroy)operator(;) directive(override)operator(;) - reserved(constructor) ident(CreateIt)operator(()ident(PriorityLevel)operator(:) ident(TThreadPriority)operator(;) ident(s)operator(:) reserved(string)operator(;) - ident(SearchFor)operator(:) ident(TSearchOptions)operator(;) ident(Progress)operator(:) ident(TFindThreadProgress)operator(\);) - reserved(end)operator(;) - -reserved(implementation) - -reserved(uses) - ident(ValuesU)operator(,) ident(StrUtils)operator(;) - -comment({ TRegFindThread }) - -reserved(procedure) ident(TRegFindThread)operator(.)ident(Add)operator(;) -reserved(var) - ident(Node)operator(:) ident(TTreeNode)operator(;) -reserved(begin) - reserved(with) ident(ListTV) reserved(do) reserved(begin) - comment(//Items.BeginUpdate;) - ident(Node) operator(:=) ident(TTreeNode)operator(.)ident(Create)operator(()ident(Items)operator(\);) - ident(SetTNImage)operator(()ident(Node)operator(,) ident(syncIcon)operator(\);) - ident(Items)operator(.)ident(AddNode)operator(()ident(Node)operator(,) ident(FindNode)operator(,) ident(Copy)operator(()ident(CurrentPath)operator(,) integer(1)operator(,) integer(255)operator(\),) reserved(nil)operator(,) - ident(naAddChildFirst)operator(\);) - reserved(if) reserved(not) ident(FindNode)operator(.)ident(Expanded) reserved(and) operator(()ident(FindNode)operator(.)ident(Count) operator(=) integer(1)operator(\)) reserved(then) comment(//First Node) - ident(FindNode)operator(.)ident(Expand)operator(()ident(False)operator(\);) - comment(//Items.EndUpdate;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(constructor) ident(TRegFindThread)operator(.)ident(CreateIt)operator(()ident(PriorityLevel)operator(:) ident(TThreadPriority)operator(;) ident(s)operator(:) reserved(string)operator(;) - ident(SearchFor)operator(:) ident(TSearchOptions)operator(;) ident(Progress)operator(:) ident(TFindThreadProgress)operator(\);) -reserved(begin) - reserved(inherited) ident(Create)operator(()ident(True)operator(\);) comment(// Create thread suspended) - ident(Priority) operator(:=) ident(PriorityLevel)operator(;) comment(// Set Priority Level) - ident(FreeOnTerminate) operator(:=) ident(True)operator(;) comment(// Thread Free Itself when terminated) - - ident(SearchText) operator(:=) ident(s)operator(;) - ident(Ranges) operator(:=) reserved(nil)operator(;) - ident(Self)operator(.)ident(SearchFor) operator(:=) ident(SearchFor)operator(;) - ident(Self)operator(.)ident(Progress) operator(:=) ident(Progress)operator(;) -reserved(end)operator(;) - -reserved(destructor) ident(TRegFindThread)operator(.)ident(Destroy)operator(;) -reserved(begin) - reserved(if) ident(Assigned)operator(()ident(FindNode)operator(\)) reserved(then) - ident(FindNode)operator(.)ident(Data) operator(:=) reserved(nil)operator(;) - reserved(inherited)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TRegFindThread)operator(.)ident(Execute)operator(;) -reserved(begin) - ident(Synchronize)operator(()ident(Start)operator(\);) - ident(Find)operator(;) - ident(Synchronize)operator(()ident(Finish)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TRegFindThread)operator(.)ident(Find)operator(;) -reserved(var) - ident(SpecialKey)operator(:) ident(HKEY)operator(;) - - reserved(procedure) ident(Add)operator(()reserved(const) ident(Path)operator(:) reserved(string)operator(;) reserved(const) ident(Icon)operator(:) ident(Integer)operator(\);) - reserved(var) - ident(zCurrentPath)operator(:) reserved(string)operator(;) - reserved(begin) - ident(zCurrentPath) operator(:=) ident(CurrentPath)operator(;) - - ident(CurrentPath) operator(:=) ident(Path)operator(;) - ident(syncIcon) operator(:=) ident(Icon)operator(;) - ident(Synchronize)operator(()ident(Self)operator(.)ident(Add)operator(\);) - - ident(CurrentPath) operator(:=) ident(zCurrentPath)operator(;) - reserved(end)operator(;) - - reserved(procedure) ident(AddValueName)operator(()reserved(const) ident(ValueName)operator(:) reserved(string)operator(;) ident(Typ)operator(:) ident(TRegDataType)operator(\);) - reserved(begin) - ident(Add)operator(()ident(CurrentPath) operator(+) string<delimiter(')content(\\\\)delimiter(')> operator(+) ident(ValueName)operator(,) ident(IconOfDataType)operator(()ident(Typ)operator(\)\);) - reserved(end)operator(;) - - reserved(procedure) ident(AddValueData)operator(()reserved(const) ident(ValueName)operator(:) reserved(string)operator(;) ident(Context)operator(:) ident(TRegContext)operator(\);) - reserved(begin) - ident(Add)operator(()ident(CurrentPath) operator(+) string<delimiter(')content(\\\\)delimiter(')> operator(+) ident(ValueName) operator(+) string<delimiter(')content( = )delimiter(')> operator(+) ident(DataPreviewOfContext)operator(()ident(Context)operator(\),) - ident(IconOfDataType)operator(()ident(Context)operator(.)ident(Typ)operator(\)\);) - reserved(end)operator(;) - - reserved(function) ident(FoundInStr)operator(()reserved(const) ident(Data)operator(:) reserved(string)operator(\):) ident(Boolean)operator(;) - reserved(begin) - ident(Result) operator(:=) ident(False)operator(;) - reserved(if) ident(SearchText) operator(=) string<delimiter(')delimiter(')> reserved(then) - ident(Exit)operator(;) - - reserved(if) operator(()ident(Data) operator(=) string<delimiter(')delimiter(')>operator(\)) reserved(and) reserved(not) operator(()ident(sfWildCards) reserved(in) ident(SearchFor)operator(\)) reserved(then) - ident(Exit)operator(;) - - reserved(if) ident(sfWildCards) reserved(in) ident(SearchFor) reserved(then) reserved(begin) - reserved(if) ident(Assigned)operator(()ident(Mask)operator(\)) reserved(then) - ident(Result) operator(:=) ident(Mask)operator(.)ident(Matches)operator(()ident(Data)operator(\);) - reserved(end) reserved(else) reserved(begin) - comment({if not (sfFileNames in SearchFor\) then begin - if TextBegin(SearchText, UntilChar(Data, '~'\)\) and FileExists(Data\) then - Result := SameFileName(SearchText, GetFileNew(Data\)\); - Exit; - end; }) - - reserved(if) operator([)ident(sfParts)operator(,) ident(sfIgnoreCase)operator(]) operator(<=) ident(SearchFor) reserved(then) - reserved(if) ident(SfUseLocales) reserved(in) ident(SearchFor) reserved(then) - ident(Result) operator(:=) integer(0)operator(<)ident(PosEx)operator(()ident(SearchText)operator(,) ident(AnsiLowerCase)operator(()ident(Data)operator(\)\)) - reserved(else) - ident(Result) operator(:=) integer(0)operator(<)ident(PosExText)operator(()ident(SearchText)operator(,) ident(Data)operator(\)) - reserved(else) reserved(if) ident(sfParts) reserved(in) ident(SearchFor) reserved(then) - ident(Result) operator(:=) integer(0)operator(<)ident(PosEx)operator(()ident(SearchText)operator(,) ident(Data)operator(\)) - reserved(else) reserved(if) ident(sfIgnoreCase) reserved(in) ident(SearchFor) reserved(then) - reserved(if) ident(SfUseLocales) reserved(in) ident(SearchFor) reserved(then) - ident(Result) operator(:=) operator(()ident(AnsiLowerCase)operator(()ident(Data)operator(\)) operator(=) ident(SearchText)operator(\)) - reserved(else) - ident(Result) operator(:=) ident(SameText)operator(()ident(Data)operator(,) ident(SearchText)operator(\)) - reserved(else) - ident(Result) operator(:=) operator(()ident(SearchText) operator(=) ident(Data)operator(\);) - reserved(end)operator(;) - reserved(end)operator(;) - - reserved(function) ident(FoundInByteA)operator(()reserved(const) ident(Data)operator(:) ident(TByteA)operator(\):) ident(Boolean)operator(;) - reserved(begin) - ident(Result) operator(:=) ident(FoundInStr)operator(()ident(StrOfByteA)operator(()ident(Data)operator(\)\);) - reserved(end)operator(;) - - reserved(procedure) ident(ScanValues)operator(()ident(Key)operator(:) ident(HKEY)operator(;) ident(Info)operator(:) ident(TRegKeyInfo)operator(\);) - reserved(var) - ident(i)operator(:) ident(Integer)operator(;) - ident(MaxLen)operator(,) ident(NameLen)operator(,) ident(Len)operator(,) ident(Typ)operator(:) ident(Cardinal)operator(;) - ident(Buffer)operator(:) ident(PByte)operator(;) - ident(ValueName)operator(:) ident(PChar)operator(;) - - reserved(procedure) ident(ScanValue)operator(()reserved(const) ident(ValueName)operator(:) reserved(string)operator(;) reserved(const) ident(Typ)operator(:) ident(TRegDataType)operator(;) - reserved(const) ident(Data)operator(:) reserved(string)operator(\);) - reserved(begin) - reserved(if) operator(()ident(sfSpecialTypes) reserved(in) ident(SearchFor)operator(\)) reserved(and) reserved(not) ident(InRanges)operator(()ident(Ranges)operator(,) ident(Typ)operator(\)) reserved(then) - ident(Exit)operator(;) - - reserved(case) ident(Typ) reserved(of) - ident(rdString)operator(,) ident(rdExpandString)operator(:) reserved(if) ident(sfString) reserved(in) ident(SearchFor) reserved(then) reserved(begin) - reserved(if) ident(FoundInStr)operator(()ident(Data)operator(\)) reserved(then) reserved(begin) - ident(Inc)operator(()ident(DataFound)operator(\);) - ident(AddValueData)operator(()ident(ValueName)operator(,) - ident(RegContext)operator(()ident(Typ)operator(,) ident(TByteA)operator(()ident(Copy)operator(()ident(Data)operator(,) integer(1)operator(,) ident(Length)operator(()ident(Data)operator(\)-)integer(1)operator(\)\)\)\);) - reserved(end)operator(;) - reserved(end)operator(;) - - ident(rdCardinal)operator(,) ident(rdCardBigEndian)operator(:) reserved(if) ident(sfDWord) reserved(in) ident(SearchFor) reserved(then) reserved(begin) - reserved(if) operator(()ident(Length)operator(()ident(Data)operator(\)) operator(>=) ident(SizeOf)operator(()ident(Cardinal)operator(\)\)) reserved(and) - operator(()ident(dwordVal) operator(=) ident(PCardinal)operator(()ident(Copy)operator(()ident(Data)operator(,) integer(1)operator(,) ident(SizeOf)operator(()ident(Cardinal)operator(\)\)\)^\)) reserved(then) reserved(begin) - ident(Inc)operator(()ident(DataFound)operator(\);) - ident(AddValueData)operator(()ident(ValueName)operator(,) - ident(RegContext)operator(()ident(Typ)operator(,) ident(ByteAOfStr)operator(()ident(Data)operator(\)\)\);) - reserved(end)operator(;) - reserved(end)operator(;) - - reserved(else) - reserved(if) ident(sfOtherTypes) reserved(in) ident(SearchFor) reserved(then) reserved(begin) - reserved(if) ident(FoundInStr)operator(()ident(Data)operator(\)) reserved(then) reserved(begin) - ident(Inc)operator(()ident(DataFound)operator(\);) - ident(AddValueData)operator(()ident(ValueName)operator(,) - ident(RegContext)operator(()ident(Typ)operator(,) ident(ByteAOfStr)operator(()ident(Data)operator(\)\)\);) - reserved(end)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - - reserved(begin) - ident(MaxLen) operator(:=) ident(Info)operator(.)ident(MaxValueLen) operator(+) integer(1)operator(;) comment(//Include Nullbyte) - - ident(Buffer) operator(:=) reserved(nil)operator(;) - reserved(if) ident(sfValueData) reserved(in) ident(SearchFor) reserved(then) - ident(GetMem)operator(()ident(Buffer)operator(,) ident(Info)operator(.)ident(MaxDataLen)operator(\);) - - ident(GetMem)operator(()ident(ValueName)operator(,) ident(MaxLen)operator(\);) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Info)operator(.)ident(NumValues)operator(-)integer(1) reserved(do) reserved(begin) - ident(NameLen) operator(:=) ident(MaxLen)operator(;) - ident(Len) operator(:=) ident(Info)operator(.)ident(MaxDataLen)operator(;) - reserved(if) reserved(not) ident(Success)operator(()ident(RegEnumValue)operator(()ident(Key)operator(,) ident(i)operator(,) ident(ValueName)operator(,) ident(NameLen)operator(,) reserved(nil)operator(,) operator(@)ident(Typ)operator(,) - ident(Buffer)operator(,) operator(@)ident(Len)operator(\)\)) reserved(then) - ident(Continue)operator(;) - - reserved(if) ident(sfValueNames) reserved(in) ident(SearchFor) reserved(then) - reserved(if) ident(FoundInStr)operator(()ident(ValueName)operator(\)) reserved(then) reserved(begin) - ident(Inc)operator(()ident(ValuesFound)operator(\);) - ident(AddValueName)operator(()ident(ValueName)operator(,) ident(Typ)operator(\);) - reserved(end)operator(;) - - reserved(if) ident(sfValueData) reserved(in) ident(SearchFor) reserved(then) - ident(ScanValue)operator(()ident(ValueName)operator(,) ident(Typ)operator(,) reserved(string)operator(()ident(Copy)operator(()ident(TByteA)operator(()ident(Buffer)operator(\),) integer(0)operator(,) ident(Len)operator(\)\)\);) - reserved(end)operator(;) - - ident(FreeMem)operator(()ident(ValueName)operator(,) ident(MaxLen)operator(\);) - reserved(if) ident(sfValueData) reserved(in) ident(SearchFor) reserved(then) - ident(FreeMem)operator(()ident(Buffer)operator(,) ident(Info)operator(.)ident(MaxDataLen)operator(\);) - reserved(end)operator(;) - - reserved(procedure) ident(ScanKey)operator(()ident(Key)operator(:) ident(HKEY)operator(;) reserved(const) ident(KeyName)operator(:) reserved(string) operator(=) string<delimiter(')delimiter(')>operator(\);) - reserved(var) - ident(p)operator(:) ident(PChar)operator(;) - ident(i)operator(,) ident(z)operator(:) ident(Integer)operator(;) - ident(l)operator(,) ident(Len)operator(:) ident(DWORD)operator(;) - ident(NewKey)operator(:) ident(HKEY)operator(;) - ident(Info)operator(:) ident(TRegKeyInfo)operator(;) - reserved(begin) - reserved(if) ident(Terminated) reserved(then) ident(Exit)operator(;) - - ident(Inc)operator(()ident(KeysScanned)operator(\);) - reserved(if) ident(Progress) operator(<>) ident(fpNone) reserved(then) - reserved(if) operator(()ident(Progress) operator(=) ident(fpEach)operator(\)) reserved(or) - operator((()ident(Progress) operator(=) ident(fpEvery512th)operator(\)) reserved(and) operator((()ident(KeysScanned) reserved(and) hex($1FF)operator(\)) operator(=) integer(0)operator(\)\)) reserved(then) reserved(begin) - ident(syncStatusText) operator(:=) char<delimiter(')content(()delimiter(')> operator(+) ident(IntToStr)operator(()ident(KeysScanned)operator(\)) operator(+) string<delimiter(')content( k\) )delimiter(')> operator(+) ident(CurrentPath)operator(;) - ident(Synchronize)operator(()ident(UpdateStatus)operator(\);) - reserved(end)operator(;) - - reserved(with) ident(Info) reserved(do) - reserved(if) reserved(not) ident(Success)operator(()ident(RegQueryInfoKey)operator(()ident(Key)operator(,) reserved(nil)operator(,) reserved(nil)operator(,) reserved(nil)operator(,) operator(@)ident(NumSubKeys)operator(,) - operator(@)ident(MaxSubKeyLen)operator(,) reserved(nil)operator(,) operator(@)ident(NumValues)operator(,) operator(@)ident(MaxValueLen)operator(,) operator(@)ident(MaxDataLen)operator(,) - reserved(nil)operator(,) reserved(nil)operator(\)\)) reserved(then) - ident(Exit)operator(;) - - reserved(if) operator(()ident(Info)operator(.)ident(NumValues) operator(>) integer(0)operator(\)) reserved(and) ident(SearchForValues) reserved(then) - ident(ScanValues)operator(()ident(Key)operator(,) ident(Info)operator(\);) - - reserved(if) ident(Info)operator(.)ident(NumSubKeys) operator(<=) integer(0) reserved(then) - ident(Exit)operator(;) - - ident(Len) operator(:=) ident(Info)operator(.)ident(MaxSubKeyLen) operator(+) integer(1)operator(;) - ident(GetMem)operator(()ident(p)operator(,) ident(Len)operator(\);) - - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Info)operator(.)ident(NumSubKeys)operator(-)integer(1) reserved(do) reserved(begin) - ident(l) operator(:=) ident(Len)operator(;) - ident(RegEnumKeyEx)operator(()ident(Key)operator(,) ident(i)operator(,) ident(p)operator(,) ident(l)operator(,) reserved(nil)operator(,) reserved(nil)operator(,) reserved(nil)operator(,) reserved(nil)operator(\);) - reserved(if) ident(sfKeys) reserved(in) ident(SearchFor) reserved(then) - reserved(if) ident(FoundInStr)operator(()ident(p)operator(\)) reserved(then) reserved(begin) - ident(Inc)operator(()ident(KeysFound)operator(\);) - ident(Add)operator(()ident(CurrentPath) operator(+) char<delimiter(')content(\\)delimiter(')> operator(+) ident(p)operator(,) ident(iconKeyMiddle)operator(\);) - reserved(end)operator(;) - - reserved(if) ident(Success)operator(()ident(RegOpenKey)operator(()ident(Key)operator(,) ident(p)operator(,) ident(NewKey)operator(\)\)) reserved(then) reserved(begin) - ident(z) operator(:=) ident(Length)operator(()ident(CurrentPath)operator(\);) - ident(CurrentPath) operator(:=) ident(CurrentPath) operator(+) char<delimiter(')content(\\)delimiter(')> operator(+) ident(p)operator(;) - - reserved(try) - ident(ScanKey)operator(()ident(NewKey)operator(,) ident(p)operator(\);) - reserved(finally) - ident(RegCloseKey)operator(()ident(NewKey)operator(\);) - reserved(end)operator(;) - - ident(SetLength)operator(()ident(CurrentPath)operator(,) ident(z)operator(\);) - reserved(end)operator(;) - - reserved(if) ident(Terminated) reserved(then) ident(Break)operator(;) - reserved(end)operator(;) - - ident(FreeMem)operator(()ident(p)operator(,) ident(Len)operator(\);) - reserved(end)operator(;) - -reserved(begin) - reserved(with) ident(TClock)operator(.)ident(Create) reserved(do) reserved(begin) - ident(FindNode)operator(.)ident(Text) operator(:=) ident(FindNodeText) operator(+) string<delimiter(')content(: )delimiter(')>operator(;) - - reserved(try) - reserved(if) ident(sfHKU) reserved(in) ident(SearchFor) reserved(then) reserved(begin) - ident(CurrentPath) operator(:=) string<delimiter(')content(HKU)delimiter(')>operator(;) - ident(ScanKey)operator(()ident(HKEY_USERS)operator(\);) - reserved(end)operator(;) - reserved(if) ident(sfHKLM) reserved(in) ident(SearchFor) reserved(then) reserved(begin) - ident(CurrentPath) operator(:=) string<delimiter(')content(HKLM)delimiter(')>operator(;) - ident(ScanKey)operator(()ident(HKEY_LOCAL_MACHINE)operator(\);) - reserved(end)operator(;) - reserved(if) ident(sfHKDD) reserved(in) ident(SearchFor) reserved(then) reserved(begin) - ident(CurrentPath) operator(:=) string<delimiter(')content(HKDD)delimiter(')>operator(;) - ident(ScanKey)operator(()ident(HKEY_DYN_DATA)operator(\);) - reserved(end)operator(;) - - reserved(if) ident(SpecialPath) operator(<>) string<delimiter(')delimiter(')> reserved(then) reserved(begin) - reserved(if) ident(Success)operator(()ident(RegOpenKey)operator(()ident(HKEYOfStr)operator(()ident(ExRegRoot)operator(()ident(SpecialPath)operator(\)\),) - ident(PChar)operator(()ident(ExRegKey)operator(()ident(SpecialPath)operator(\)\),) ident(SpecialKey)operator(\)\)) reserved(then) reserved(begin) - ident(CurrentPath) operator(:=) ident(LWPSolve)operator(()ident(SpecialPath)operator(\);) - ident(ScanKey)operator(()ident(SpecialKey)operator(\);) - ident(RegCloseKey)operator(()ident(SpecialKey)operator(\);) - reserved(end) reserved(else) - ident(ShowMessage)operator(()string<delimiter(')content(Could not open)delimiter(')> operator(+) ident(EOL) operator(+) - ident(Quote)operator(()ident(SpecialPath)operator(\)\);) - reserved(end)operator(;) - reserved(except) - ident(syncStatusText) operator(:=) char<delimiter(')content(()delimiter(')> operator(+) ident(IntToStr)operator(()ident(KeysScanned)operator(\)) operator(+) string<delimiter(')content( k\) )delimiter(')> operator(+) ident(CurrentPath) operator(+) - string<delimiter(')content(Error --> Terminated.)delimiter(')>operator(;) - ident(Synchronize)operator(()ident(UpdateStatus)operator(\);) - ident(Sleep)operator(()integer(1000)operator(\);) - reserved(end)operator(;) - - ident(TimeElapsed) operator(:=) ident(SecondsPassed)operator(;) - ident(Free)operator(;) reserved(end)operator(;) -reserved(end)operator(;) - -reserved(function) ident(StrOfSearchOptions)operator(()reserved(const) ident(Options)operator(:) ident(TSearchOptions)operator(\):) reserved(string)operator(;) - - reserved(procedure) ident(Add)operator(()reserved(const) ident(s)operator(:) reserved(string)operator(\);) - reserved(begin) - ident(Result) operator(:=) ident(Result) operator(+) ident(s)operator(;) - reserved(end)operator(;) - - reserved(procedure) ident(AddOption)operator(()reserved(const) ident(Option)operator(:) reserved(string)operator(;) reserved(const) ident(Flag)operator(:) ident(TSearchVar)operator(;) - reserved(const) ident(Optional)operator(:) ident(Boolean) operator(=) ident(False)operator(\);) - reserved(begin) - reserved(if) ident(Flag) reserved(in) ident(Options) reserved(then) - ident(Add)operator(()ident(Option)operator(\)) - reserved(else) - reserved(if) reserved(not) ident(Optional) reserved(then) - ident(Add)operator(()char<delimiter(')content(^)delimiter(')> operator(+) ident(Option)operator(\);) - reserved(end)operator(;) - -reserved(begin) - ident(Result) operator(:=) string<delimiter(')delimiter(')>operator(;) - - ident(Add)operator(()char<delimiter(')content([)delimiter(')>operator(\);) - ident(AddOption)operator(()char<delimiter(')content(H)delimiter(')>operator(,) ident(sfAsHex)operator(,) ident(True)operator(\);) - ident(AddOption)operator(()string<delimiter(')content(W )delimiter(')>operator(,) ident(sfWildcards)operator(,) ident(True)operator(\);) - - ident(AddOption)operator(()char<delimiter(')content(C)delimiter(')>operator(,) ident(sfIgnoreCase)operator(\);) - ident(AddOption)operator(()char<delimiter(')content(L)delimiter(')>operator(,) ident(sfUseLocales)operator(\);) - ident(AddOption)operator(()string<delimiter(')content(P )delimiter(')>operator(,) ident(sfParts)operator(\);) - - ident(AddOption)operator(()char<delimiter(')content(K)delimiter(')>operator(,) ident(sfKeys)operator(\);) - ident(AddOption)operator(()char<delimiter(')content(N)delimiter(')>operator(,) ident(sfValueNames)operator(\);) - ident(AddOption)operator(()string<delimiter(')content(D )delimiter(')>operator(,) ident(sfValueData)operator(\);) - - ident(AddOption)operator(()char<delimiter(')content(S)delimiter(')>operator(,) ident(sfString)operator(\);) - ident(AddOption)operator(()char<delimiter(')content(D)delimiter(')>operator(,) ident(sfDWORD)operator(\);) - ident(AddOption)operator(()char<delimiter(')content(O)delimiter(')>operator(,) ident(sfOtherTypes)operator(\);) - ident(AddOption)operator(()char<delimiter(')content(?)delimiter(')>operator(,) ident(sfSpecialTypes)operator(\);) - - ident(Add)operator(()string<delimiter(')content(] [)delimiter(')>operator(\);) - - reserved(if) operator([)ident(sfHKU)operator(,) ident(sfHKLM)operator(,) ident(sfHKDD)operator(]) operator(<=) ident(Options) reserved(then) - ident(Add)operator(()string<delimiter(')content(ALL)delimiter(')>operator(\)) - reserved(else) reserved(begin) - ident(AddOption)operator(()string<delimiter(')content(HKU )delimiter(')>operator(,) ident(sfHKU)operator(,) ident(True)operator(\);) - ident(AddOption)operator(()string<delimiter(')content(HKLM )delimiter(')>operator(,) ident(sfHKLM)operator(,) ident(True)operator(\);) - ident(AddOption)operator(()string<delimiter(')content(HKDD )delimiter(')>operator(,) ident(sfHKDD)operator(,) ident(True)operator(\);) - ident(Result) operator(:=) ident(TrimRight)operator(()ident(Result)operator(\);) - reserved(end)operator(;) - - ident(Add)operator(()char<delimiter(')content(])delimiter(')>operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TRegFindThread)operator(.)ident(Start)operator(;) -reserved(begin) - ident(Mask) operator(:=) reserved(nil)operator(;) - ident(KeysFound) operator(:=) integer(0)operator(;) - ident(ValuesFound) operator(:=) integer(0)operator(;) - ident(DataFound) operator(:=) integer(0)operator(;) - ident(KeysScanned) operator(:=) integer(0)operator(;) - - comment(//Prepare for options) - reserved(if) ident(sfAsHex) reserved(in) ident(SearchFor) reserved(then) reserved(begin) - ident(SearchText) operator(:=) reserved(string)operator(()ident(ByteAOfHex)operator(()ident(SearchText)operator(\)\);) - ident(SearchFor) operator(:=) ident(SearchFor) operator(-) operator([)ident(sfDWord)operator(,) ident(sfIgnoreCase)operator(];) - reserved(end) reserved(else) reserved(begin) - reserved(if) ident(SfUseLocales) reserved(in) ident(SearchFor) reserved(then) - ident(SearchText) operator(:=) ident(AnsiLowerCase)operator(()ident(SearchText)operator(\);) - - ident(dwordVal) operator(:=) integer(0)operator(;) - reserved(if) ident(sfDWord) reserved(in) ident(SearchFor) reserved(then) - reserved(if) ident(IsValidInteger)operator(()ident(SearchText)operator(\)) reserved(then) - ident(dwordVal) operator(:=) ident(StrToInt)operator(()ident(SearchText)operator(\)) - reserved(else) - ident(Exclude)operator(()ident(SearchFor)operator(,) ident(sfDWord)operator(\);) - - reserved(if) ident(sfWildCards) reserved(in) ident(SearchFor) reserved(then) - reserved(try) - ident(Mask) operator(:=) ident(TMask)operator(.)ident(Create)operator(()ident(SearchText)operator(\);) - reserved(except) - ident(Mask)operator(.)ident(Free)operator(;) - ident(Mask) operator(:=) reserved(nil)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - - ident(SearchForValues) operator(:=) operator(()ident(sfValueNames) reserved(in) ident(SearchFor)operator(\)) - reserved(or) operator(()ident(sfValueData) reserved(in) ident(SearchFor)operator(\);) - - ident(FindNodeText) operator(:=) string<delimiter(')content(Find )delimiter(')> operator(+) ident(Quote)operator(()ident(FriendlyStr)operator(()ident(SearchText)operator(\)\)) operator(+) char<delimiter(')content( )delimiter(')> operator(+) - ident(StrOfSearchOptions)operator(()ident(SearchFor)operator(\);) - - reserved(with) ident(ListTV)operator(.)ident(Items) reserved(do) reserved(begin) - ident(BeginUpdate)operator(;) - ident(FindNode) operator(:=) ident(AddChildObject)operator(()reserved(nil)operator(,) ident(FindNodeText) operator(+) string<delimiter(')content(...)delimiter(')>operator(,) reserved(nil)operator(\);) - ident(FindNode)operator(.)ident(Data) operator(:=) ident(Self)operator(;) - ident(SetTNImage)operator(()ident(FindNode)operator(,) ident(iconHostReg)operator(\);) - ident(EndUpdate)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TRegFindThread)operator(.)ident(UpdateStatus)operator(;) -reserved(begin) - ident(FindNode)operator(.)ident(Text) operator(:=) ident(FindNodeText) operator(+) char<delimiter(')content( )delimiter(')> operator(+) ident(syncStatusText)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TRegFindThread)operator(.)ident(Finish)operator(;) -reserved(var) - ident(Found)operator(:) reserved(string)operator(;) -reserved(begin) - ident(ObjectsFound) operator(:=) ident(KeysFound) operator(+) ident(ValuesFound) operator(+) ident(DataFound)operator(;) - - ident(Found) operator(:=) ident(StrNumerus)operator(()ident(ObjectsFound)operator(,) string<delimiter(')content(object)delimiter(')>operator(,) string<delimiter(')content(objects)delimiter(')>operator(,) string<delimiter(')content(No)delimiter(')>operator(\);) - reserved(if) ident(ObjectsFound) operator(<) integer(2) reserved(then) - ident(Found) operator(:=) ident(Found) operator(+) string<delimiter(')content( found.)delimiter(')> - reserved(else) reserved(begin) - ident(Found) operator(:=) ident(Found) operator(+) string<delimiter(')content( found: )delimiter(')>operator(;) - reserved(if) ident(KeysFound) operator(>) integer(0) reserved(then) - ident(Found) operator(:=) ident(Found) operator(+) ident(StrNumerus)operator(()ident(KeysFound)operator(,) string<delimiter(')content(KeyName, )delimiter(')>operator(,) string<delimiter(')content(KeyNames, )delimiter(')>operator(,) string<delimiter(')content(No)delimiter(')>operator(\);) - reserved(if) ident(ValuesFound) operator(>) integer(0) reserved(then) - ident(Found) operator(:=) ident(Found) operator(+) ident(StrNumerus)operator(()ident(ValuesFound)operator(,) string<delimiter(')content(ValueName, )delimiter(')>operator(,) string<delimiter(')content(ValueNames, )delimiter(')>operator(,) - string<delimiter(')content(No)delimiter(')>operator(\);) - reserved(if) ident(DataFound) operator(>) integer(0) reserved(then) - ident(Found) operator(:=) ident(Found) operator(+) ident(StrNumerus)operator(()ident(DataFound)operator(,) string<delimiter(')content(Data)delimiter(')>operator(,) string<delimiter(')content(Datas)delimiter(')>operator(,) string<delimiter(')content(No)delimiter(')>operator(\);) - - reserved(if) ident(RightStr)operator(()ident(Found)operator(,) integer(2)operator(\)) operator(=) string<delimiter(')content(, )delimiter(')> reserved(then) - ident(Delete)operator(()ident(Found)operator(,) ident(Length)operator(()ident(Found)operator(\)) operator(-) integer(1)operator(,) integer(2)operator(\);) - reserved(end)operator(;) - - ident(FindNode)operator(.)ident(Text) operator(:=) ident(FindNodeText) operator(+) ident(Format)operator(()string<delimiter(')content( OK (%0.1f s\) %s)delimiter(')>operator(,) - operator([)ident(TimeElapsed)operator(,) ident(Found)operator(]\);) -reserved(end)operator(;) - -reserved(end)operator(.) -reserved(unit) ident(FindWinU)operator(;) - -reserved(interface) - -reserved(uses) - ident(Windows)operator(,) ident(Messages)operator(,) ident(SysUtils)operator(,) ident(Classes)operator(,) ident(Graphics)operator(,) ident(Controls)operator(,) ident(Forms)operator(,) ident(Dialogs)operator(,) - ident(ComCtrls)operator(,) ident(StdCtrls)operator(,) ident(ExtCtrls)operator(,) ident(Clipbrd)operator(,) ident(NewPanels)operator(,) ident(plutoconst)operator(,) ident(FindTH)operator(,) ident(YTools)operator(,) - ident(PrefTools)operator(,) ident(Menus)operator(,) ident(XReg)operator(,) ident(RangeEdit)operator(;) - -reserved(type) - ident(TFindWin) operator(=) reserved(class)operator(()ident(TForm)operator(\)) - ident(ListTV)operator(:) ident(TTreeView)operator(;) - ident(FindP)operator(:) ident(TPanel)operator(;) - ident(FindE)operator(:) ident(TEdit)operator(;) - ident(ColorPanel1)operator(:) ident(TColorPanel)operator(;) - ident(ResultsPopup)operator(:) ident(TPopupMenu)operator(;) - ident(Copy1)operator(:) ident(TMenuItem)operator(;) - ident(ColorPanel2)operator(:) ident(TColorPanel)operator(;) - ident(FindPrefP)operator(:) ident(TPanel)operator(;) - ident(CommonGB)operator(:) ident(TGroupBox)operator(;) - ident(Label4)operator(:) ident(TLabel)operator(;) - ident(SfWildCardsCB)operator(:) ident(TCheckBox)operator(;) - ident(SfPartsCB)operator(:) ident(TCheckBox)operator(;) - ident(SfIgnoreCaseCB)operator(:) ident(TCheckBox)operator(;) - ident(SfAsHexCB)operator(:) ident(TCheckBox)operator(;) - ident(SfAsDWord)operator(:) ident(TCheckBox)operator(;) - ident(SfUseLocalesCB)operator(:) ident(TCheckBox)operator(;) - ident(FindGB)operator(:) ident(TGroupBox)operator(;) - ident(SfHKUCB)operator(:) ident(TCheckBox)operator(;) - ident(SfHKLMCB)operator(:) ident(TCheckBox)operator(;) - ident(SfHKDDCB)operator(:) ident(TCheckBox)operator(;) - ident(SfRootKeyRB)operator(:) ident(TRadioButton)operator(;) - ident(SfCurKeyRB)operator(:) ident(TRadioButton)operator(;) - ident(SfCLSIDCB)operator(:) ident(TCheckBox)operator(;) - ident(SfInterfaceCB)operator(:) ident(TCheckBox)operator(;) - ident(SfKeysCb)operator(:) ident(TCheckBox)operator(;) - ident(SfValuesCB)operator(:) ident(TCheckBox)operator(;) - ident(SfDataCB)operator(:) ident(TCheckBox)operator(;) - ident(SfStringCB)operator(:) ident(TCheckBox)operator(;) - ident(SfOtherCB)operator(:) ident(TCheckBox)operator(;) - ident(SfDWordCB)operator(:) ident(TCheckBox)operator(;) - ident(Panel2)operator(:) ident(TPanel)operator(;) - ident(GroupBox1)operator(:) ident(TGroupBox)operator(;) - ident(Label1)operator(:) ident(TLabel)operator(;) - ident(ThreadPriorityComB)operator(:) ident(TComboBox)operator(;) - ident(ProgressRG)operator(:) ident(TRadioGroup)operator(;) - ident(Panel5)operator(:) ident(TPanel)operator(;) - ident(BorderPanel1)operator(:) ident(TBorderPanel)operator(;) - ident(MoleLogoI)operator(:) ident(TImage)operator(;) - ident(TypeRangeE)operator(:) ident(TRangeEdit)operator(;) - ident(SfTypesCB)operator(:) ident(TCheckBox)operator(;) - ident(Panel1)operator(:) ident(TPanel)operator(;) - ident(TransparentCB)operator(:) ident(TPrefCheckBox)operator(;) - ident(StayOnTopCB)operator(:) ident(TPrefCheckBox)operator(;) - ident(FindB)operator(:) ident(TButton)operator(;) - ident(FindPrefB)operator(:) ident(TButton)operator(;) - reserved(procedure) ident(FindBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(ListTVKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);) - reserved(procedure) ident(FindEKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);) - reserved(procedure) ident(ActivateIt)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(DeActivateIt)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(FormDeactivate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(FormActivate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(FormKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);) - reserved(procedure) ident(SfWildCardsCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(StayOnTopCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(SfRootKeysUpdate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(FindPrefBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - - reserved(procedure) ident(CloseFindPrefP)operator(;) - reserved(procedure) ident(OpenFindPrefP)operator(;) - reserved(procedure) ident(FindEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(SfDataCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(ListTVDblClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(SfAsHexCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(Copy1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(SfIgnoreCaseCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(FormCreate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(FormShow)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(SfTypesCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(end)operator(;) - -reserved(const) - ident(fpbOpen) operator(=) integer(0)operator(;) - ident(fpbCloseCaption) operator(=) string<delimiter(')content(Params &<<)delimiter(')>operator(;) - - ident(fpbClosed) operator(=) integer(1)operator(;) - ident(fpbOpenCaption) operator(=) string<delimiter(')content(Params &>>)delimiter(')>operator(;) - -reserved(var) - ident(FindWin)operator(:) ident(TFindWin)operator(;) - -reserved(implementation) - -reserved(uses) ident(plutomain)operator(,) ident(PrefU)operator(,) ident(ValuesU)operator(;) - -preprocessor({$R *.DFM}) - -reserved(procedure) ident(TFindWin)operator(.)ident(FindBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(SearchFor)operator(:) ident(TSearchOptions)operator(;) - ident(FindThread)operator(:) ident(TRegFindThread)operator(;) - - reserved(procedure) ident(AddOption)operator(()ident(CheckBox)operator(:) ident(TCustomCheckBox)operator(;) ident(Flag)operator(:) ident(TSearchVar)operator(\);) - reserved(begin) - reserved(with) ident(CheckBox) reserved(as) ident(TCheckBox) reserved(do) - reserved(if) ident(Enabled) reserved(and) ident(Checked) reserved(then) - ident(Include)operator(()ident(SearchFor)operator(,) ident(Flag)operator(\);) - reserved(end)operator(;) - -reserved(begin) - ident(SearchFor) operator(:=) operator([];) - - ident(AddOption)operator(()ident(SfKeysCB)operator(,) ident(sfKeys)operator(\);) - - ident(AddOption)operator(()ident(SfValuesCB)operator(,) ident(sfValueNames)operator(\);) - ident(AddOption)operator(()ident(SfDataCB)operator(,) ident(sfValueData)operator(\);) - - ident(AddOption)operator(()ident(SfStringCB)operator(,) ident(sfString)operator(\);) - ident(AddOption)operator(()ident(SfDWordCB)operator(,) ident(sfDWord)operator(\);) - ident(AddOption)operator(()ident(SfOtherCB)operator(,) ident(sfOtherTypes)operator(\);) - - reserved(if) ident(SfRootKeyRB)operator(.)ident(Checked) reserved(then) reserved(begin) - ident(AddOption)operator(()ident(SfHKUCB)operator(,) ident(sfHKU)operator(\);) - ident(AddOption)operator(()ident(SfHKLMCB)operator(,) ident(sfHKLM)operator(\);) - ident(AddOption)operator(()ident(SfHKDDCB)operator(,) ident(sfHKDD)operator(\);) - reserved(end)operator(;) - - ident(AddOption)operator(()ident(SfAsHexCB)operator(,) ident(sfAsHex)operator(\);) - ident(AddOption)operator(()ident(SfWildCardsCB)operator(,) ident(sfWildCards)operator(\);) - ident(AddOption)operator(()ident(SfPartsCB)operator(,) ident(sfParts)operator(\);) - ident(AddOption)operator(()ident(SfIgnoreCaseCB)operator(,) ident(sfIgnoreCase)operator(\);) - ident(AddOption)operator(()ident(SfUseLocalesCB)operator(,) ident(sfUseLocales)operator(\);) - - comment({AddOption(SfCLSIDCB, sfCLSID\); - AddOption(SfInterfaceCB, sfInterface\);}) - - reserved(if) ident(SfTypesCB)operator(.)ident(Checked) reserved(and) reserved(not) ident(TypeRangeE)operator(.)ident(RangeMaximal) reserved(then) - ident(Include)operator(()ident(SearchFor)operator(,) ident(sfSpecialTypes)operator(\);) - - ident(FindThread) operator(:=) ident(TRegFindThread)operator(.)ident(CreateIt)operator(() - ident(TThreadPriority)operator(()ident(ThreadPriorityComB)operator(.)ident(ItemIndex)operator(\),) ident(FindE)operator(.)ident(Text)operator(,) ident(SearchFor)operator(,) - ident(TFindThreadProgress)operator(()ident(ProgressRG)operator(.)ident(ItemIndex)operator(\)\);) - - ident(FindThread)operator(.)ident(ListTV) operator(:=) ident(ListTV)operator(;) - - reserved(if) ident(sfSpecialTypes) reserved(in) ident(SearchFor) reserved(then) - ident(FindThread)operator(.)ident(Ranges) operator(:=) ident(TypeRangeE)operator(.)ident(Value)operator(;) - - reserved(if) ident(SfCurKeyRB)operator(.)ident(Checked) reserved(then) - ident(FindThread)operator(.)ident(SpecialPath) operator(:=) - ident(LWPSolve)operator(()ident(StrOfRegPath)operator(()ident(CurKey)operator(()ident(uhNonSystemShortcuts)operator(\)\)\);) - - ident(FindThread)operator(.)ident(Resume)operator(;) - ident(CloseFindPrefP)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TFindWin)operator(.)ident(ListTVKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) - ident(Shift)operator(:) ident(TShiftState)operator(\);) -reserved(var) - ident(Node)operator(:) ident(TTreeNode)operator(;) - - reserved(procedure) ident(TerminateFindThread)operator(;) - reserved(var) - ident(FindThread)operator(:) ident(TRegFindThread)operator(;) - reserved(begin) - reserved(if) operator(()ident(Node)operator(.)ident(Level) operator(=) integer(0)operator(\)) reserved(then) reserved(begin) - ident(FindThread) operator(:=) ident(TRegFindThread)operator(()ident(Node)operator(.)ident(Data)operator(\);) - reserved(if) reserved(not) ident(Assigned)operator(()ident(FindThread)operator(\)) reserved(then) - ident(Node)operator(.)ident(Delete) - reserved(else) - reserved(try) - ident(FindThread)operator(.)ident(Terminate)operator(;) - reserved(except) - ident(Node)operator(.)ident(Text) operator(:=) string<delimiter(')content(Error: couldn)char('')content(t terminate thread!)delimiter(')>operator(;) - reserved(end)operator(;) - reserved(end) reserved(else) - ident(Node)operator(.)ident(Delete)operator(;) - reserved(end)operator(;) - -reserved(begin) - ident(Node) operator(:=) ident(ListTV)operator(.)ident(Selected)operator(;) - reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then) - ident(Exit)operator(;) - - reserved(case) ident(Key) reserved(of) - ident(VK_F12)operator(:) reserved(if) ident(Assigned)operator(()ident(Node)operator(.)ident(Parent)operator(\)) reserved(then) - ident(Node)operator(.)ident(Parent)operator(.)ident(AlphaSort)operator(;) - - ident(VK_RETURN)operator(:) ident(ListTVDblClick)operator(()ident(Sender)operator(\);) - - ident(VK_DELETE)operator(:) ident(TerminateFindThread)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TFindWin)operator(.)ident(FindEKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) - ident(Shift)operator(:) ident(TShiftState)operator(\);) -reserved(begin) - reserved(if) ident(Key) operator(=) ident(VK_RETURN) reserved(then) - ident(FindBClick)operator(()ident(Sender)operator(\);) - - reserved(if) ident(Key) operator(=) ident(VK_UP) reserved(then) reserved(begin) - ident(CloseFindPrefP)operator(;) - ident(Key) operator(:=) integer(0)operator(;) - reserved(end) reserved(else) reserved(if) ident(Key) operator(=) ident(VK_Down) reserved(then) reserved(begin) - ident(OpenFindPrefP)operator(;) - ident(Key) operator(:=) integer(0)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TFindWin)operator(.)ident(ActivateIt)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(ActivateThis)operator(()ident(Sender)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TFindWin)operator(.)ident(DeActivateIt)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(DeActivateThis)operator(()ident(Sender)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TFindWin)operator(.)ident(FormDeactivate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(if) ident(Assigned)operator(()ident(ActiveControl)operator(\)) reserved(and) operator(()ident(ActiveControl)operator(.)ident(Tag) operator(=) ident(EditControlFlag)operator(\)) reserved(then) - ident(DeActivateThis)operator(()ident(ActiveControl)operator(\);) - - ident(AlphaBlend) operator(:=) ident(TransparentCB)operator(.)ident(Checked)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TFindWin)operator(.)ident(FormActivate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(if) ident(Assigned)operator(()ident(ActiveControl)operator(\)) reserved(and) operator(()ident(ActiveControl)operator(.)ident(Tag) operator(=) ident(EditControlFlag)operator(\)) reserved(then) - ident(ActivateThis)operator(()ident(ActiveControl)operator(\);) - - ident(AlphaBlend) operator(:=) ident(False)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TFindWin)operator(.)ident(FormKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) - ident(Shift)operator(:) ident(TShiftState)operator(\);) -reserved(begin) - reserved(if) ident(Key) operator(=) ident(VK_ESCAPE) reserved(then) - ident(Close)operator(;) - ident(MainWin)operator(.)ident(FormKeyDown)operator(()ident(Sender)operator(,) ident(Key)operator(,) ident(Shift)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TFindWin)operator(.)ident(SfWildCardsCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(SfPartsCB)operator(.)ident(Enabled) operator(:=) reserved(not) ident(SfWildcardsCB)operator(.)ident(Checked)operator(;) - ident(SfIgnoreCaseCB)operator(.)ident(Enabled) operator(:=) reserved(not) ident(SfWildcardsCB)operator(.)ident(Checked)operator(;) - ident(SfUseLocalesCB)operator(.)ident(Enabled) operator(:=) ident(SfIgnoreCaseCB)operator(.)ident(Checked) reserved(and) reserved(not) ident(SfWildcardsCB)operator(.)ident(Checked)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TFindWin)operator(.)ident(StayOnTopCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(if) ident(StayOnTopCB)operator(.)ident(Checked) reserved(then) - ident(FormStyle) operator(:=) ident(fsStayOnTop) - reserved(else) - ident(FormStyle) operator(:=) ident(fsNormal)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TFindWin)operator(.)ident(SfRootKeysUpdate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(with) ident(SfRootKeyRB) reserved(do) reserved(begin) - ident(SfHKLMCB)operator(.)ident(Enabled) operator(:=) ident(Checked)operator(;) - ident(SfHKUCB)operator(.)ident(Enabled) operator(:=) ident(Checked)operator(;) - ident(SfHKDDCB)operator(.)ident(Enabled) operator(:=) ident(Checked)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TFindWin)operator(.)ident(FindPrefBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(case) ident(FindPrefB)operator(.)ident(Tag) reserved(of) - ident(fpbOpen)operator(:) - ident(CloseFindPrefP)operator(;) - ident(fpbClosed)operator(:) - ident(OpenFindPrefP)operator(;) - reserved(else) - ident(ShowMessage)operator(()string<delimiter(')content(Fehler: FindPrefB hat unbekanntes Tag)delimiter(')>operator(\);) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TFindWin)operator(.)ident(CloseFindPrefP)operator(;) -reserved(begin) - reserved(with) ident(FindPrefB) reserved(do) reserved(begin) - ident(Tag) operator(:=) ident(fpbClosed)operator(;) - ident(Caption) operator(:=) ident(fpbOpenCaption)operator(;) - reserved(end)operator(;) - ident(FindPrefP)operator(.)ident(Visible) operator(:=) ident(False)operator(;) - ident(ListTV)operator(.)ident(Repaint)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TFindWin)operator(.)ident(OpenFindPrefP)operator(;) -reserved(begin) - reserved(with) ident(FindPrefB) reserved(do) reserved(begin) - ident(Tag) operator(:=) ident(fpbOpen)operator(;) - ident(Caption) operator(:=) ident(fpbCloseCaption)operator(;) - reserved(end)operator(;) - ident(FindPrefP)operator(.)ident(Visible) operator(:=) ident(True)operator(;) - ident(ListTV)operator(.)ident(Repaint)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TFindWin)operator(.)ident(FindEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(if) ident(IsValidInteger)operator(()ident(FindE)operator(.)ident(Text)operator(\)) reserved(then) - ident(SfDWORDCB)operator(.)ident(Caption) operator(:=) string<delimiter(')content(D&WORD OK)delimiter(')> - reserved(else) - ident(SfDWORDCB)operator(.)ident(Caption) operator(:=) string<delimiter(')content(D&WORD ??)delimiter(')>operator(;) - - ident(SfAsHexCB)operator(.)ident(Enabled) operator(:=) operator(()ident(FindE)operator(.)ident(Text) operator(<>) string<delimiter(')delimiter(')>operator(\)) - reserved(and) reserved(not) ident(CharIn)operator(()ident(FindE)operator(.)ident(Text)operator(,) ident(AllChars) operator(-) ident(HexadecimalChars) operator(-) operator([)char<delimiter(')content( )delimiter(')>operator(]\);) - ident(SfAsDWord)operator(.)ident(Enabled) operator(:=) ident(SfAsHexCB)operator(.)ident(Enabled) reserved(and) operator(()ident(Length)operator(()ident(TrimAll)operator(()ident(FindE)operator(.)ident(Text)operator(\)\)) operator(<) integer(8)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TFindWin)operator(.)ident(SfDataCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(with) ident(SfDataCB) reserved(do) reserved(begin) - ident(SfStringCB)operator(.)ident(Enabled) operator(:=) ident(Checked)operator(;) - ident(SfDWordCB)operator(.)ident(Enabled) operator(:=) ident(Checked)operator(;) - ident(SfOtherCB)operator(.)ident(Enabled) operator(:=) ident(Checked)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TFindWin)operator(.)ident(ListTVDblClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(Node)operator(:) ident(TTreeNode)operator(;) -reserved(begin) - ident(Node) operator(:=) ident(ListTV)operator(.)ident(Selected)operator(;) - reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(or) operator(()ident(Node)operator(.)ident(Level) operator(=) integer(0)operator(\)) reserved(then) - ident(Exit)operator(;) - - ident(MainWin)operator(.)ident(GotoKey)operator(()ident(UntilLastChar)operator(()ident(Node)operator(.)ident(Text)operator(,) char<delimiter(')content(=)delimiter(')>operator(\)\)) -reserved(end)operator(;) - -reserved(procedure) ident(TFindWin)operator(.)ident(SfAsHexCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(with) ident(SfAsHexCB) reserved(do) reserved(begin) - ident(SfIgnoreCaseCB)operator(.)ident(Enabled) operator(:=) ident(Checked)operator(;) - ident(SfWildCardsCB)operator(.)ident(Enabled) operator(:=) ident(Checked)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TFindWin)operator(.)ident(Copy1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(Node)operator(:) ident(TTreeNode)operator(;) -reserved(begin) - ident(Node) operator(:=) ident(ListTV)operator(.)ident(Selected)operator(;) - reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then) - ident(Exit)operator(;) - - ident(Clipboard)operator(.)ident(AsText) operator(:=) ident(Node)operator(.)ident(Text)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TFindWin)operator(.)ident(SfIgnoreCaseCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(SfUseLocalesCB)operator(.)ident(Enabled) operator(:=) ident(SfIgnoreCaseCB)operator(.)ident(Checked)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TFindWin)operator(.)ident(FormCreate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(ImageFile)operator(:) reserved(string)operator(;) -reserved(begin) - ident(Caption) operator(:=) string<delimiter(')content(Pluto.RegMole )delimiter(')> operator(+) ident(RegMoleVersion) operator(+) - string<delimiter(')content( - The fastest registry search engine for Win9x)delimiter(')>operator(;) - - ident(ImageFile) operator(:=) ident(PlutoDir) operator(+) string<delimiter(')content(mole.bmp)delimiter(')>operator(;) - reserved(if) ident(FileExists)operator(()ident(ImageFile)operator(\)) reserved(then) - ident(MoleLogoI)operator(.)ident(Picture)operator(.)ident(LoadFromFile)operator(()ident(ImageFile)operator(\);) - - ident(Width) operator(:=) ident(Screen)operator(.)ident(WorkAreaWidth) operator(-) integer(100)operator(;) - - ident(CloseFindPrefP)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TFindWin)operator(.)ident(FormShow)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(Top) operator(:=) ident(Screen)operator(.)ident(WorkAreaHeight) operator(-) integer(450)operator(;) - ident(Height) operator(:=) ident(Screen)operator(.)ident(WorkAreaHeight) operator(-) ident(Top)operator(;) - ident(Left) operator(:=) operator(()ident(Screen)operator(.)ident(WorkAreaWidth) operator(-) ident(Width)operator(\)) reserved(div) integer(2)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TFindWin)operator(.)ident(SfTypesCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(TypeRangeE)operator(.)ident(Enabled) operator(:=) ident(SfTypesCB)operator(.)ident(Checked)operator(;) -reserved(end)operator(;) - -reserved(end)operator(.) -reserved(unit) ident(Plutoconst)operator(;) - -reserved(interface) - -reserved(uses) ident(ComCtrls)operator(,) ident(Classes)operator(,) ident(XReg)operator(,) ident(UniKey)operator(,) ident(YTools)operator(;) - -reserved(var) - ident(Started)operator(:) ident(Boolean) operator(=) ident(False)operator(;) - ident(MurphyMode)operator(:) ident(Boolean) operator(=) ident(False)operator(;) - ident(PlutoKey)operator(:) ident(TUniKey)operator(;) - -reserved(const) - ident(Version) operator(=) string<delimiter(')content(1.6 -nium Alpha)delimiter(')>operator(;) - ident(Overnight) operator(=) ident(True)operator(;) - ident(Codename) operator(=) string<delimiter(')content(Phoenix)delimiter(')>operator(;) - comment(//Generation.Version-Release-Beta) - comment(// GG.VVRRBB) - ident(VersionNum)operator(:) ident(Double) operator(=) float(1.600000)operator(;) - comment(//Must be Double!) - -reserved(const) - ident(iconKey) operator(=) integer(0)operator(;) - - ident(iconFirstHKEY) operator(=) integer(2)operator(;) - ident(iconHKLM) operator(=) ident(iconFirstHKEY)operator(;) - ident(iconHKU) operator(=) ident(iconFirstHKEY) operator(+) integer(2)operator(;) - - ident(iconFirstShortcut) operator(=) ident(iconFirstHKEY) operator(+) integer(4)operator(;) - ident(iconHKCC) operator(=) ident(iconFirstShortcut)operator(;) - ident(iconHKCU) operator(=) ident(iconFirstShortcut) operator(+) integer(2)operator(;) - ident(iconHKCR) operator(=) ident(iconFirstShortcut) operator(+) integer(4)operator(;) - ident(iconHKDD) operator(=) ident(iconFirstShortcut) operator(+) integer(6)operator(;) - ident(iconHKPD) operator(=) ident(iconFirstShortcut) operator(+) integer(8)operator(;) - ident(iconHKWM) operator(=) ident(iconFirstShortcut) operator(+) integer(10)operator(;) - ident(iconHKWU) operator(=) ident(iconFirstShortcut) operator(+) integer(12)operator(;) - ident(iconShortcut) operator(=) ident(iconFirstShortcut) operator(+) integer(14)operator(;) - ident(nHKeyIcons) operator(=) integer(16)operator(;) - - ident(iconFirstType) operator(=) ident(iconFirstShortcut) operator(+) ident(nHKeyIcons)operator(;) - ident(iconNone) operator(=) ident(iconFirstType) operator(+) integer(0)operator(;) - ident(iconString) operator(=) ident(iconFirstType) operator(+) integer(1)operator(;) - ident(iconExpandString) operator(=)ident(iconFirstType) operator(+) integer(2)operator(;) - ident(iconBinary) operator(=) ident(iconFirstType) operator(+) integer(3)operator(;) - ident(iconCardinal) operator(=) ident(iconFirstType) operator(+) integer(4)operator(;) - ident(iconCardBigEndian)operator(=)ident(iconFirstType) operator(+) integer(5)operator(;) - ident(iconLink) operator(=) ident(iconFirstType) operator(+) integer(6)operator(;) - ident(iconMultiString) operator(=) ident(iconFirstType) operator(+) integer(7)operator(;) - ident(iconResList) operator(=) ident(iconFirstType) operator(+) integer(8)operator(;) - ident(iconFullResDesc) operator(=) ident(iconFirstType) operator(+) integer(9)operator(;) - ident(iconResReqList) operator(=) ident(iconFirstType) operator(+) integer(10)operator(;) - ident(iconUnknownType) operator(=) ident(iconFirstType) operator(+) integer(11)operator(;) - ident(nTypeIcons) operator(=) integer(12)operator(;) - - ident(iconFirstValue) operator(=) ident(iconFirstType) operator(+) ident(nTypeIcons)operator(;) - ident(iconValueElse) operator(=) ident(iconFirstValue)operator(;) - ident(iconValueEdit) operator(=) ident(iconFirstValue) operator(+) integer(1)operator(;) - ident(iconValueEditBinary) operator(=) ident(iconFirstValue) operator(+) integer(2)operator(;) - ident(iconValueZeromize) operator(=) ident(iconFirstValue) operator(+) integer(3)operator(;) - ident(iconValueDublicate) operator(=) ident(iconFirstValue) operator(+) integer(4)operator(;) - ident(iconMainValue) operator(=) ident(iconFirstValue) operator(+) integer(5)operator(;) - ident(iconTakeAsMainValue) operator(=) ident(iconFirstValue) operator(+) integer(6)operator(;) - ident(nValueIcons) operator(=) integer(7)operator(;) - - ident(iconFirstKey) operator(=) ident(iconFirstValue) operator(+) ident(nValueIcons)operator(;) - ident(iconKeyInfos) operator(=) ident(iconFirstKey)operator(;) - ident(iconSubKey) operator(=) ident(iconFirstKey) operator(+) integer(1)operator(;) - ident(iconKeyDublicate) operator(=) ident(iconFirstKey) operator(+) integer(2)operator(;) - ident(iconKeyFind) operator(=) ident(iconFirstKey) operator(+) integer(3)operator(;) - ident(iconKeyTrace) operator(=) ident(iconFirstKey) operator(+) integer(4)operator(;) - ident(nKeyIcons) operator(=) integer(5)operator(;) - - ident(iconFirstContextMenues) operator(=) ident(iconFirstKey) operator(+) ident(nKeyIcons)operator(;) - ident(iconRename) operator(=) ident(iconFirstContextMenues)operator(;) - ident(iconDelete) operator(=) ident(iconFirstContextMenues) operator(+) integer(1)operator(;) - ident(nContextMenuesIcon) operator(=) integer(2)operator(;) - - ident(iconFirstIni) operator(=) ident(iconFirstContextMenues) operator(+) ident(nContextMenuesIcon)operator(;) - ident(iconIniSection) operator(=) ident(iconFirstIni)operator(;) - ident(nIniIcons) operator(=) integer(1)operator(;) - - ident(iconFirstHost) operator(=) ident(iconFirstIni) operator(+) ident(nIniIcons)operator(;) - ident(iconHostReg) operator(=) ident(iconFirstHost)operator(;) - ident(iconHostIni) operator(=) ident(iconFirstHost) operator(+) integer(1)operator(;) - ident(iconHostUni) operator(=) ident(iconFirstHost) operator(+) integer(2)operator(;) - ident(iconHostUni2) operator(=) ident(iconFirstHost) operator(+) integer(3)operator(;) - ident(nHostIcons) operator(=) integer(4)operator(;) - - ident(iconFirstOther) operator(=) ident(iconFirstHost) operator(+) ident(nHostIcons)operator(;) - - ident(iconSortArrowAsc) operator(=) ident(iconFirstOther) operator(+) integer(0)operator(;) - ident(iconSortArrowDesc) operator(=) ident(iconFirstOther) operator(+) integer(1)operator(;) - ident(iconKeyMiddle) operator(=) ident(iconFirstOther) operator(+) integer(2)operator(;) - ident(iconLock) operator(=) ident(iconFirstOther) operator(+) integer(3)operator(;) - - comment(//iconDefect = iconFirstOther;) - - comment({ WorkWin.ChangeImages }) - ident(iconFirstChange) operator(=) integer(0)operator(;) - ident(iconCKeyPlus) operator(=) ident(iconFirstChange)operator(;) - ident(iconCKeyMinus) operator(=) ident(iconFirstChange) operator(+) integer(1)operator(;) - ident(iconCValuePlus) operator(=) ident(iconFirstChange) operator(+) integer(2)operator(;) - ident(iconCValueMinus) operator(=) ident(iconFirstChange) operator(+) integer(3)operator(;) - ident(iconCContext) operator(=) ident(iconFirstChange) operator(+) integer(4)operator(;) - ident(iconOldContext) operator(=) ident(iconFirstChange) operator(+) integer(5)operator(;) - ident(iconNewContext) operator(=) ident(iconFirstChange) operator(+) integer(6)operator(;) - ident(iconGroup) operator(=) ident(iconFirstChange) operator(+) integer(7)operator(;) - ident(iconGroupBlinking) operator(=) ident(iconFirstChange) operator(+) integer(8)operator(;) - ident(nChangeIcons) operator(=) integer(7)operator(;) - - ident(DefaultValueFlag) operator(=) ident(Pointer)operator(()integer(1)operator(\);) - ident(MultiEditFlag) operator(=) ident(Pointer)operator(()integer(2)operator(\);) - - ident(NoValueCaption) operator(=) string<delimiter(')content([No Value])delimiter(')>operator(;) - - ident(EditControlFlag) operator(=) integer(100)operator(;) - - ident(MaxPreviewLen) operator(=) integer(255)operator(;) - ident(RegMaxDataSize) operator(=) hex($FFFF)operator(;) comment(//64 KB) - -reserved(const) - ident(BoolStrFileName) operator(=) string<delimiter(')content(Boolean Strings.txt)delimiter(')>operator(;) - ident(ShortcutsFileName) operator(=) string<delimiter(')content(Shortcuts.ini)delimiter(')>operator(;) - ident(StandardShortcutsFileName) operator(=) string<delimiter(')content(StandardShortcuts.ini)delimiter(')>operator(;) - ident(SisyFilterFileName) operator(=) string<delimiter(')content(sisy filter.txt)delimiter(')>operator(;) - - ident(clDarkGray) operator(=) hex($00404040)operator(;) - ident(clBrightRed) operator(=) hex($00BBBBFF)operator(;) - ident(clVeryBrightRed) operator(=) hex($00DDDDFF)operator(;) - ident(clBrightBlue) operator(=) hex($00FFBBBB)operator(;) - ident(clBrightGreen) operator(=) hex($00BBFFBB)operator(;) - ident(clCyan) operator(=) hex($00FFFF44)operator(;) - ident(clBrightCyan) operator(=) hex($00FFFFBB)operator(;) - ident(clVeryBrightCyan) operator(=) hex($00FFFFDD)operator(;) - ident(clBrightYellow) operator(=) hex($00BBFFFF)operator(;) - ident(clVeryBrightYellow) operator(=) hex($00DDFFFF)operator(;) - ident(clBrightPurple) operator(=) hex($00FFBBFF)operator(;) - ident(clBrightSilver) operator(=) hex($00DDDDDD)operator(;) - ident(clGold) operator(=) hex($0055CCEE)operator(;) - - ident(clVeryBrightBlue) operator(=) hex($00FFDDDD)operator(;) - -reserved(type) - ident(TValueListColumn) operator(=) operator(()ident(vlcName)operator(,) ident(vlcSize)operator(,) ident(vlcType)operator(,) ident(vlcData)operator(\);) - -reserved(const) - ident(ValueListColumnRange) operator(=) operator([)ident(Low)operator(()ident(TValueListColumn)operator(\)..)ident(High)operator(()ident(TValueListColumn)operator(\)];) - -reserved(type) - ident(TSearchVar) operator(=) operator(()ident(sfKeys)operator(,) ident(sfValueNames)operator(,) ident(sfValueData)operator(,) - ident(sfAsHex)operator(,) ident(sfAsDWord)operator(,) - ident(sfWildCards)operator(,) ident(sfParts)operator(,) ident(sfIgnoreCase)operator(,) ident(SfUseLocales)operator(,) - ident(sfHKU)operator(,) ident(sfHKLM)operator(,) ident(sfHKDD)operator(,//) ident(sfCLSID)operator(,) ident(sfInterface)operator(,) - ident(sfString)operator(,) ident(sfDWord)operator(,) ident(sfOtherTypes)operator(,) ident(sfSpecialTypes)operator(\);) - - ident(TSearchOptions) operator(=) reserved(set) reserved(of) ident(TSearchVar)operator(;) - - comment(//be carefull: used in with!) - ident(TKeyShortcut) operator(=) reserved(record) - ident(Alias)operator(:) reserved(string)operator(;) - ident(RealPath)operator(:) reserved(string)operator(;) - ident(Node)operator(:) ident(TTreeNode)operator(;) - reserved(end)operator(;) - ident(PKeyShortcut) operator(=) operator(^)ident(TKeyShortcut)operator(;) - ident(TShortcutA) operator(=) reserved(array) reserved(of) ident(TKeyShortcut)operator(;) - - ident(TOpenNode) operator(=) reserved(function) operator(()ident(Reg)operator(:) ident(TXRegistry)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\):) ident(Boolean)operator(;) - ident(TCheckNode) operator(=) reserved(procedure) operator(()ident(Node)operator(:) ident(TTreeNode)operator(;) ident(OnlyOnce)operator(:) ident(Boolean) operator(=) ident(True)operator(\);) - - comment(//NodeInfo System) - ident(TNodeFlag) operator(=) operator(()ident(nfDefect)operator(,) ident(nfReadOnly)operator(,) ident(nfChecked)operator(,) - ident(nfCopy)operator(,) ident(nfCut)operator(,) ident(nfPaste)operator(\);) - ident(TNodeFlags) operator(=) reserved(set) reserved(of) ident(TNodeFlag)operator(;) - - ident(TUniHostType) operator(=) operator(()ident(uhNone)operator(,) - ident(uhReg)operator(,) ident(uhIni)operator(,) ident(uhRegFile)operator(,) - ident(uhUserShortcut)operator(,) ident(uhStandardShortcut)operator(,) ident(uhSystemShortcut)operator(\);) - ident(TUniHostTypes) operator(=) reserved(set) reserved(of) ident(TUniHostType)operator(;) - -reserved(const) - ident(uhShortcuts) operator(=) operator([)ident(uhUserShortcut)operator(,) ident(uhStandardShortcut)operator(,) ident(uhSystemShortcut)operator(];) - ident(uhNonSystemShortcuts) operator(=) operator([)ident(uhUserShortcut)operator(,) ident(uhStandardShortcut)operator(];) - - ident(NodeFlagStrings)operator(:) reserved(array)operator([)ident(TNodeFlag)operator(]) reserved(of) reserved(string) operator(=) operator(() - string<delimiter(')content(nfDefect)delimiter(')>operator(,) string<delimiter(')content(nfReadOnly)delimiter(')>operator(,) string<delimiter(')content(nfChecked)delimiter(')>operator(,) - string<delimiter(')content(nfCopy)delimiter(')>operator(,) string<delimiter(')content(nfCut)delimiter(')>operator(,) string<delimiter(')content(nfPaste)delimiter(')>operator(\);) - - ident(HostTypeStrings)operator(:) reserved(array)operator([)ident(TUniHostType)operator(]) reserved(of) reserved(string) operator(=) operator(()string<delimiter(')content(uhNone)delimiter(')>operator(,) - string<delimiter(')content(uhReg)delimiter(')>operator(,) string<delimiter(')content(uhIni)delimiter(')>operator(,) string<delimiter(')content(uhRegFile)delimiter(')>operator(,) - string<delimiter(')content(uhUserShortcut)delimiter(')>operator(,) string<delimiter(')content(uhStandardShortcut)delimiter(')>operator(,) string<delimiter(')content(uhSystemShortcut)delimiter(')>operator(\);) - -reserved(type) - ident(TNodeInfo) operator(=) reserved(packed) reserved(class) - directive(public) - ident(HostType)operator(:) ident(TUniHostType)operator(;) - ident(Flags)operator(:) ident(TNodeFlags)operator(;) - reserved(constructor) ident(Create)operator(()ident(HostType)operator(:) ident(TUniHostType) operator(=) ident(uhNone)operator(;) ident(Flags)operator(:) ident(TNodeFlags) operator(=) operator([]\);) - - reserved(procedure) ident(IncludeFlag)operator(()ident(Flag)operator(:) ident(TNodeFlag)operator(\);) - reserved(procedure) ident(ExcludeFlag)operator(()ident(Flag)operator(:) ident(TNodeFlag)operator(\);) - - reserved(function) ident(IsHost)operator(:) ident(Boolean)operator(;) - reserved(function) ident(IsShortcut)operator(:) ident(Boolean)operator(;) - - reserved(function) ident(ReadOnly)operator(:) ident(Boolean)operator(;) - reserved(function) ident(Checked)operator(:) ident(Boolean)operator(;) - reserved(function) ident(Defect)operator(:) ident(Boolean)operator(;) - reserved(end)operator(;) - -reserved(function) ident(NodeInfo)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\):) ident(TNodeInfo)operator(;) -reserved(procedure) ident(ReportStatus)operator(()reserved(const) ident(s)operator(:) reserved(string)operator(\);) - -reserved(const) - ident(PlatformStrings)operator(:) reserved(array)operator([)integer(0)operator(..)integer(2)operator(]) reserved(of) reserved(string) operator(=) - operator(()string<delimiter(')content(VER_PLATFORM_WIN32s)delimiter(')>operator(,) string<delimiter(')content(VER_PLATFORM_WIN32_WINDOWS)delimiter(')>operator(,) string<delimiter(')content(VER_PLATFORM_WIN32_NT)delimiter(')>operator(\);) - -reserved(var) - ident(PlutoDir)operator(:) reserved(string) operator(=) string<delimiter(')delimiter(')>operator(;) - -reserved(implementation) - -reserved(uses) ident(SysUtils)operator(;) - -reserved(function) ident(NodeInfo)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\):) ident(TNodeInfo)operator(;) -reserved(begin) - reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then) reserved(begin) - ident(Result) operator(:=) reserved(nil)operator(;) - ident(Exit) reserved(end)operator(;) - - reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(.)ident(Data)operator(\)) reserved(then) - ident(Node)operator(.)ident(Data) operator(:=) ident(TNodeInfo)operator(.)ident(Create)operator(;) - ident(Result) operator(:=) ident(TNodeInfo)operator(()ident(Node)operator(.)ident(Data)operator(\);) -reserved(end)operator(;) - -comment({ TNodeInfo }) - -reserved(constructor) ident(TNodeInfo)operator(.)ident(Create)operator(()ident(HostType)operator(:) ident(TUniHostType)operator(;) ident(Flags)operator(:) ident(TNodeFlags)operator(\);) -reserved(begin) - reserved(inherited) ident(Create)operator(;) - ident(Self)operator(.)ident(HostType) operator(:=) ident(HostType)operator(;) - ident(Self)operator(.)ident(Flags) operator(:=) ident(Flags)operator(;) -reserved(end)operator(;) - -reserved(function) ident(TNodeInfo)operator(.)ident(Checked)operator(:) ident(Boolean)operator(;) -reserved(begin) - ident(Result) operator(:=) ident(nfChecked) reserved(in) ident(Flags)operator(;) -reserved(end)operator(;) - -reserved(function) ident(TNodeInfo)operator(.)ident(ReadOnly)operator(:) ident(Boolean)operator(;) -reserved(begin) - ident(Result) operator(:=) ident(nfReadOnly) reserved(in) ident(Flags)operator(;) -reserved(end)operator(;) - -reserved(function) ident(TNodeInfo)operator(.)ident(Defect)operator(:) ident(Boolean)operator(;) -reserved(begin) - ident(Result) operator(:=) ident(nfDefect) reserved(in) ident(Flags)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TNodeInfo)operator(.)ident(IncludeFlag)operator(()ident(Flag)operator(:) ident(TNodeFlag)operator(\);) -reserved(begin) - ident(Include)operator(()ident(Flags)operator(,) ident(Flag)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TNodeInfo)operator(.)ident(ExcludeFlag)operator(()ident(Flag)operator(:) ident(TNodeFlag)operator(\);) -reserved(begin) - ident(Exclude)operator(()ident(Flags)operator(,) ident(Flag)operator(\);) -reserved(end)operator(;) - -reserved(function) ident(TNodeInfo)operator(.)ident(IsHost)operator(:) ident(Boolean)operator(;) -reserved(begin) - ident(Result) operator(:=) ident(HostType) operator(<>) ident(uhNone)operator(;) -reserved(end)operator(;) - -reserved(function) ident(TNodeInfo)operator(.)ident(IsShortcut)operator(:) ident(Boolean)operator(;) -reserved(begin) - ident(Result) operator(:=) ident(HostType) reserved(in) ident(uhShortcuts)operator(;) -reserved(end)operator(;) - -reserved(function) ident(GetPlutoDir)operator(:) reserved(string)operator(;) -reserved(begin) - ident(Result) operator(:=) ident(LWPSlash)operator(()ident(GetParam)operator(()string<delimiter(')content(-imports=)delimiter(')>operator(,) ident(MyDir)operator(\)\);) - reserved(if) reserved(not) ident(DirectoryExists)operator(()ident(Result)operator(\)) reserved(then) reserved(begin) - ident(ReportStatus)operator(()string<delimiter(')content(PlutoDir ")delimiter(')> operator(+) ident(Result) operator(+) string<delimiter(')content(" not found -> setting to default (MyDir\).)delimiter(')>operator(\);) - ident(Result) operator(:=) ident(MyDir)operator(;) - reserved(end)operator(;) - ident(ReportStatus)operator(()string<delimiter(')content(PlutoDir=)delimiter(')> operator(+) ident(Result)operator(\);) -reserved(end)operator(;) - -reserved(var) - ident(ReportSL)operator(:) ident(TStringList)operator(;) - ident(ReportFileName)operator(:) reserved(string)operator(;) - -reserved(procedure) ident(ReportStatus)operator(()reserved(const) ident(s)operator(:) reserved(string)operator(\);) -reserved(begin) - ident(ReportSL)operator(.)ident(Add)operator(()ident(s)operator(\);) - reserved(try) - ident(ReportSL)operator(.)ident(SaveToFile)operator(()ident(ReportFileName)operator(\);) - reserved(except) reserved(end)operator(;) -reserved(end)operator(;) - -reserved(initialization) - ident(ReportFileName) operator(:=) ident(MyDir) operator(+) string<delimiter(')content(loadreport.txt)delimiter(')>operator(;) - ident(ReportSL) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;) - ident(PlutoDir) operator(:=) ident(GetPlutoDir)operator(;) - -reserved(end)operator(.) -comment(//winampviscolor <viscolor.txt>:) -reserved(unit) ident(plutomain)operator(;) -preprocessor({$DEFINE UNIKEY}) -preprocessor({$DEFINE CYCFS}) - -comment({=============================================================================== - - cYcnus.Pluto 1.57 Beta 14 - by Murphy - - ©2000-2003 by cYcnus - visit www.cYcnus.de - - murphy@cYcnus.de (Kornelius Kalnbach\) - - this programm is published under the terms of the GPL - -===============================================================================}) - -reserved(interface) - -reserved(uses) - ident(Windows)operator(,) ident(Messages)operator(,) ident(SysUtils)operator(,) ident(Classes)operator(,) ident(Graphics)operator(,) ident(Controls)operator(,) ident(Forms)operator(,) ident(Dialogs)operator(,) - ident(StdCtrls)operator(,) ident(ImgList)operator(,) ident(ComCtrls)operator(,) ident(ExtCtrls)operator(,) ident(Menus)operator(,) ident(Clipbrd)operator(,) ident(IniFiles)operator(,) - ident(ShellAPI)operator(,) ident(Grids)operator(,) - comment(//Components) - ident(NewPanels)operator(,) - comment(//Units) - ident(YTools)operator(,) ident(YTypes)operator(,) ident(UniKey)operator(,) ident(XReg)operator(,) - comment(//Pluto) - ident(Plutoconst)operator(,) - ident(SpyTH)operator(,) ident(SisyphusTH)operator(;) - -reserved(const) - ident(NoPreBlinkHint) operator(=) char(#1)operator(;) - -reserved(type) - ident(TMainWin) operator(=) reserved(class)operator(()ident(TForm)operator(\)) - ident(StatusBar)operator(:) ident(TStatusBar)operator(;) - ident(StatusBarPU)operator(:) ident(TPopupMenu)operator(;) - ident(CopyPath)operator(:) ident(TMenuItem)operator(;) - ident(InsertPath)operator(:) ident(TMenuItem)operator(;) - ident(ShowRealPathMI)operator(:) ident(TMenuItem)operator(;) - ident(PathP)operator(:) ident(TPanel)operator(;) - ident(N1)operator(:) ident(TMenuItem)operator(;) - ident(MainMenu1)operator(:) ident(TMainMenu)operator(;) - ident(Desktop1)operator(:) ident(TMenuItem)operator(;) - ident(Pluto1)operator(:) ident(TMenuItem)operator(;) - ident(RegEdit1)operator(:) ident(TMenuItem)operator(;) - ident(Free1)operator(:) ident(TMenuItem)operator(;) - ident(BigVal1)operator(:) ident(TMenuItem)operator(;) - ident(Hilfe1)operator(:) ident(TMenuItem)operator(;) - ident(History1)operator(:) ident(TMenuItem)operator(;) - ident(SplashScreen1)operator(:) ident(TMenuItem)operator(;) - ident(wwwcYcnusde1)operator(:) ident(TMenuItem)operator(;) - ident(Credits1)operator(:) ident(TMenuItem)operator(;) - ident(Optionen1)operator(:) ident(TMenuItem)operator(;) - ident(PrefMI)operator(:) ident(TMenuItem)operator(;) - ident(EditBoolStrMI)operator(:) ident(TMenuItem)operator(;) - ident(N4)operator(:) ident(TMenuItem)operator(;) - ident(ImageList1)operator(:) ident(TImageList)operator(;) - ident(Plutoini1)operator(:) ident(TMenuItem)operator(;) - ident(About1)operator(:) ident(TMenuItem)operator(;) - ident(kornycYcnusde1)operator(:) ident(TMenuItem)operator(;) - ident(ools1)operator(:) ident(TMenuItem)operator(;) - ident(NotePad1)operator(:) ident(TMenuItem)operator(;) - ident(RegEdit2)operator(:) ident(TMenuItem)operator(;) - ident(SysEdit1)operator(:) ident(TMenuItem)operator(;) - ident(WordPad1)operator(:) ident(TMenuItem)operator(;) - ident(N3)operator(:) ident(TMenuItem)operator(;) - ident(N5)operator(:) ident(TMenuItem)operator(;) - ident(Suchen1)operator(:) ident(TMenuItem)operator(;) - ident(Find1)operator(:) ident(TMenuItem)operator(;) - ident(File1)operator(:) ident(TMenuItem)operator(;) - ident(ExitPluto1)operator(:) ident(TMenuItem)operator(;) - ident(OpenProgramFolder1)operator(:) ident(TMenuItem)operator(;) - ident(N6)operator(:) ident(TMenuItem)operator(;) - ident(OpenWinDir1)operator(:) ident(TMenuItem)operator(;) - ident(HintBlinkT)operator(:) ident(TTimer)operator(;) - ident(FindCLSID1)operator(:) ident(TMenuItem)operator(;) - ident(Clipboard1)operator(:) ident(TMenuItem)operator(;) - ident(GotoCLSID1)operator(:) ident(TMenuItem)operator(;) - ident(CommandLineParameters1)operator(:) ident(TMenuItem)operator(;) - ident(plutocYcnusde1)operator(:) ident(TMenuItem)operator(;) - ident(N7)operator(:) ident(TMenuItem)operator(;) - ident(heinzcYcnusde1)operator(:) ident(TMenuItem)operator(;) - ident(kornycYcnusde2)operator(:) ident(TMenuItem)operator(;) - ident(N8)operator(:) ident(TMenuItem)operator(;) - ident(ExternalHexEditMI)operator(:) ident(TMenuItem)operator(;) - ident(Cleanup1)operator(:) ident(TMenuItem)operator(;) - ident(DeleteTempFolder1)operator(:) ident(TMenuItem)operator(;) - ident(Debug1)operator(:) ident(TMenuItem)operator(;) - ident(CurrentDir1)operator(:) ident(TMenuItem)operator(;) - ident(RepairPluto155bBug1)operator(:) ident(TMenuItem)operator(;) - ident(BackupRegistryscanreg1)operator(:) ident(TMenuItem)operator(;) - ident(Username1)operator(:) ident(TMenuItem)operator(;) - ident(SupportMI)operator(:) ident(TMenuItem)operator(;) - ident(MurphyMI)operator(:) ident(TMenuItem)operator(;) - ident(ToDoMI)operator(:) ident(TMenuItem)operator(;) - ident(Beta1)operator(:) ident(TMenuItem)operator(;) - ident(UniKeycYcnusde1)operator(:) ident(TMenuItem)operator(;) - ident(YToolscYcnusde1)operator(:) ident(TMenuItem)operator(;) - ident(YPanelscYcnusde1)operator(:) ident(TMenuItem)operator(;) - ident(Usedenginescomponents1)operator(:) ident(TMenuItem)operator(;) - ident(PrefToolscYcnusde1)operator(:) ident(TMenuItem)operator(;) - ident(BugReportsRequests1)operator(:) ident(TMenuItem)operator(;) - ident(murphycYcnusde1)operator(:) ident(TMenuItem)operator(;) - ident(Credits2)operator(:) ident(TMenuItem)operator(;) - ident(News1)operator(:) ident(TMenuItem)operator(;) - ident(cYcnus1)operator(:) ident(TMenuItem)operator(;) - ident(Contact1)operator(:) ident(TMenuItem)operator(;) - ident(N2)operator(:) ident(TMenuItem)operator(;) - ident(IjustwantCONTACT1)operator(:) ident(TMenuItem)operator(;) - ident(N9)operator(:) ident(TMenuItem)operator(;) - ident(AnotherPluto1)operator(:) ident(TMenuItem)operator(;) - ident(UniKeyDemoMI)operator(:) ident(TMenuItem)operator(;) - ident(Path1)operator(:) ident(TMenuItem)operator(;) - ident(RegisterPlugIns1)operator(:) ident(TMenuItem)operator(;) - ident(UniPluginOD)operator(:) ident(TOpenDialog)operator(;) - ident(SwapLM_CUB)operator(:) ident(TButton)operator(;) - ident(PathE)operator(:) ident(TEdit)operator(;) - ident(ShowLoadreport1)operator(:) ident(TMenuItem)operator(;) - ident(KillPluto1)operator(:) ident(TMenuItem)operator(;) - ident(ShowPlatform1)operator(:) ident(TMenuItem)operator(;) - ident(MSConfig1)operator(:) ident(TMenuItem)operator(;) - ident(TimetoRelaxMI)operator(:) ident(TMenuItem)operator(;) - ident(N10)operator(:) ident(TMenuItem)operator(;) - - reserved(procedure) ident(FormCreate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(FormKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);) - reserved(procedure) ident(FormClose)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Action)operator(:) ident(TCloseAction)operator(\);) - reserved(procedure) ident(InsertPathClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - - reserved(procedure) ident(StatusBarResize)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(StatusBarDblClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(StatusBarUpdate)operator(;) - reserved(procedure) ident(CopyPathClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - - reserved(procedure) ident(SetStatus)operator(;) - reserved(procedure) ident(GotoKey)operator(()ident(Key)operator(:) reserved(string)operator(\);) - reserved(procedure) ident(FindCLSID)operator(;) - reserved(procedure) ident(GotoCLSID)operator(;) - reserved(procedure) ident(UserGotoKey)operator(;) - reserved(procedure) ident(ShowRealPathMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(PathEKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);) - reserved(procedure) ident(PathEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(PathEExit)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - - reserved(procedure) ident(AppActivate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(PathEKeyUp)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);) - reserved(procedure) ident(ActivateIt)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(FormActivate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(FormDeactivate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(Pluto1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(RegEdit1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(Free1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(BigVal1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(SplashScreen1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(HistoryClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(Credits1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - - reserved(function) ident(Greeting)operator(()ident(Name)operator(:) reserved(string) operator(=) ident(NoPreBlinkHint)operator(\):) reserved(string)operator(;) - reserved(procedure) ident(PrefMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(EditBoolStrMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(FormCloseQuery)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(CanClose)operator(:) ident(Boolean)operator(\);) - reserved(procedure) ident(SisyTerminate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(OnSisyChange)operator(()ident(Sender)operator(:) ident(TSisyThread)operator(;) ident(Change)operator(:) ident(TSisyChange)operator(\);) - reserved(procedure) ident(OnSisyValuePlus)operator(()ident(Sender)operator(:) ident(TSisyThread)operator(;) ident(Change)operator(:) ident(TSisyChange)operator(\);) - reserved(procedure) ident(OnSisyValueMinus)operator(()ident(Sender)operator(:) ident(TSisyThread)operator(;) ident(Change)operator(:) ident(TSisyChange)operator(\);) - reserved(procedure) ident(OnSisyContextChange)operator(()ident(Sender)operator(:) ident(TSisyThread)operator(;) ident(Change)operator(:) ident(TSisyChange)operator(\);) - - reserved(procedure) ident(Plutoini1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(RegEdit2Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(SysEdit1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(NotePad1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(WordPad1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(OpenWinDir1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(OpenProgramFolder1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(ExitPluto1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(Find1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(FormPaint)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - - reserved(procedure) ident(Load)operator(;) - reserved(procedure) ident(StatusBarDrawPanel)operator(()ident(StatusBar)operator(:) ident(TStatusBar)operator(;) - ident(Panel)operator(:) ident(TStatusPanel)operator(;) reserved(const) ident(Rect)operator(:) ident(TRect)operator(\);) - reserved(procedure) ident(PathEKeyPress)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Char)operator(\);) - reserved(procedure) ident(HintBlinkTTimer)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(FindCLSID1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(GotoCLSID1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(CommandLineParameters1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(WebLinkMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(DeleteTempFolder1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(CurrentDir1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(RepairPluto155bBug1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(BackupRegistryscanreg1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(SisyStarted)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(StopHintBlinking)operator(;) - reserved(procedure) ident(Username1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(SupportMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(ToDoMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(MailLinkMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(IjustwantCONTACT1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(ExternalHexEditMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(AnotherPluto1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(Path1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(RegisterPlugIns1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(FormResize)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(SwapLM_CUBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(ShowLoadreport1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(KillPluto1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(ShowPlatform1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(MSConfig1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(TimetoRelaxMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - directive(private) - ident(DoAutoComplete)operator(:) ident(Boolean)operator(;) - ident(MainWinLoaded)operator(:) ident(Boolean)operator(;) - ident(DontSavePrefs)operator(:) ident(Boolean)operator(;) - ident(PreBlinkHint)operator(:) reserved(string)operator(;) - reserved(end)operator(;) - -reserved(var) - ident(MainWin)operator(:) ident(TMainWin)operator(;) - - ident(StatusBar)operator(:) ident(TStatusBar)operator(;) - ident(MainReg)operator(:) ident(TXRegistry)operator(;) - - ident(SpyThread)operator(:) ident(TRegSpyThread)operator(;) - ident(Sisys)operator(:) ident(TList)operator(;) - -reserved(function) ident(TempDir)operator(:) reserved(string)operator(;) -reserved(function) ident(PlutoUniPath)operator(:) reserved(string)operator(;) -reserved(function) ident(PlutoIniFileName)operator(:) reserved(string)operator(;) - -reserved(function) ident(PathOfNode)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\):) reserved(string)operator(;) -reserved(function) ident(CurKey)operator(()ident(AllowedShortcutTypes)operator(:) ident(TUniHostTypes) operator(=) operator([]\):) ident(TRegPath)operator(;) - -reserved(procedure) ident(ArrangePlutoStyle)operator(;) -reserved(procedure) ident(ArrangeRegEdStyle)operator(;) -reserved(procedure) ident(ArrangeFreeStyle)operator(;) -reserved(procedure) ident(ArrangeBigValStyle)operator(;) - -reserved(procedure) ident(ActivateThis)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(procedure) ident(DeActivateThis)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - -reserved(procedure) ident(SwapFonts)operator(()ident(Sender)operator(:) ident(TWinControl)operator(\);) - -reserved(procedure) ident(AddHint)operator(()reserved(const) ident(Hint)operator(:) reserved(string)operator(;) ident(Blinking)operator(:) ident(Boolean) operator(=) ident(False)operator(\);) -reserved(procedure) ident(AddToLastHint)operator(()ident(Appendix)operator(:) reserved(string)operator(\);) -reserved(procedure) ident(ChangeLastHint)operator(()ident(NewHint)operator(:) reserved(string)operator(\);) - -reserved(implementation) - -reserved(uses) - comment(//Forms) - ident(FindWinU)operator(,) ident(valuesU)operator(,) ident(TreeU)operator(,) ident(WorkU)operator(,) ident(splash)operator(,) ident(PrefU)operator(,) - comment(//Units) - ident(Clock)operator(,) ident(Start)operator(,) ident(keybrd)operator(,) ident(CompEx)operator(,) ident(Colors)operator(,) ident(FindAllThread)operator(,) - ident(PrefTools)operator(;) - -preprocessor({$R *.DFM}) - -reserved(var) - ident(SavedPlutoIniFileName)operator(:) reserved(string) operator(=) string<delimiter(')delimiter(')>operator(;) - -reserved(procedure) ident(AddHint)operator(()reserved(const) ident(Hint)operator(:) reserved(string)operator(;) ident(Blinking)operator(:) ident(Boolean) operator(=) ident(False)operator(\);) -reserved(begin) - reserved(if) ident(Assigned)operator(()ident(WorkWin)operator(\)) reserved(then) - ident(WorkWin)operator(.)ident(AddAHint)operator(()ident(Hint)operator(\);) - - reserved(with) ident(MainWin) reserved(do) reserved(begin) - ident(StopHintBlinking)operator(;) - - reserved(if) ident(Blinking) reserved(then) reserved(begin) - ident(HintBlinkT)operator(.)ident(Enabled) operator(:=) ident(True)operator(;) - reserved(if) ident(PreBlinkHint) operator(=) ident(NoPreBlinkHint) reserved(then) - ident(PreBlinkHint) operator(:=) ident(StatusBar)operator(.)ident(Panels)operator([)integer(0)operator(].)ident(Text)operator(;) - ident(StatusBar)operator(.)ident(Panels)operator([)integer(0)operator(].)ident(Text) operator(:=) ident(WorkWin)operator(.)ident(LastHint)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(AddToLastHint)operator(()ident(Appendix)operator(:) reserved(string)operator(\);) -reserved(begin) - reserved(with) ident(WorkWin)operator(.)ident(HintLB)operator(.)ident(Items) reserved(do) reserved(begin) - reserved(if) ident(Count) operator(=) integer(0) reserved(then) - ident(Exit)operator(;) - - ident(Strings)operator([)ident(Count)operator(-)integer(1)operator(]) operator(:=) ident(Strings)operator([)ident(Count)operator(-)integer(1)operator(]) operator(+) ident(Appendix)operator(;) - reserved(end)operator(;) - ident(Application)operator(.)ident(ProcessMessages)operator(;) -comment(// Sleep(1000\);) -reserved(end)operator(;) - -reserved(procedure) ident(ChangeLastHint)operator(()ident(NewHint)operator(:) reserved(string)operator(\);) -reserved(begin) - reserved(with) ident(WorkWin)operator(.)ident(HintLB)operator(.)ident(Items) reserved(do) reserved(begin) - reserved(if) ident(Count) operator(=) integer(0) reserved(then) - ident(Exit)operator(;) - - ident(Strings)operator([)ident(Count)operator(-)integer(1)operator(]) operator(:=) ident(NewHint)operator(;) - reserved(end)operator(;) - ident(Application)operator(.)ident(ProcessMessages)operator(;) -comment(// Sleep(1000\);) -reserved(end)operator(;) - -reserved(function) ident(CurKey)operator(()ident(AllowedShortcutTypes)operator(:) ident(TUniHostTypes) operator(=) operator([]\):) ident(TRegPath)operator(;) -reserved(var) - ident(s)operator(:) reserved(string)operator(;) - ident(Item)operator(:) ident(TListItem)operator(;) -reserved(begin) - reserved(if) ident(Assigned)operator(()ident(RegTV)operator(.)ident(Selected)operator(\)) reserved(then) reserved(begin) - ident(s) operator(:=) ident(PathOfNode)operator(()ident(RegTV)operator(.)ident(Selected)operator(\);) - reserved(if) ident(AllowedShortcutTypes) operator(<>) operator([]) reserved(then) - ident(s) operator(:=) ident(TraceKey)operator(()ident(s)operator(,) ident(AllowedShortcutTypes)operator(\);) - ident(Result)operator(.)ident(Root) operator(:=) ident(ExRegRoot)operator(()ident(s)operator(\);) - ident(Result)operator(.)ident(Key) operator(:=) ident(ExRegKey)operator(()ident(s)operator(\);) - - ident(Item) operator(:=) ident(ValueList)operator(.)ident(ItemFocused)operator(;) - reserved(if) ident(Assigned)operator(()ident(Item)operator(\)) reserved(then) - ident(Result)operator(.)ident(Value) operator(:=) ident(RealValueName)operator(()ident(Item)operator(\);) - ident(Result)operator(.)ident(ValueSet) operator(:=) ident(Assigned)operator(()ident(Item)operator(\);) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(function) ident(PathOfNode)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\):) reserved(string)operator(;) -reserved(begin) - ident(Result) operator(:=) string<delimiter(')delimiter(')>operator(;) - - reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then) - ident(Exit)operator(;) - - reserved(if) ident(Assigned)operator(()ident(Node)operator(.)ident(Parent)operator(\)) reserved(then) - ident(Result) operator(:=) ident(LWPSlash)operator(()ident(PathOfNode)operator(()ident(Node)operator(.)ident(Parent)operator(\)\)) operator(+) ident(Node)operator(.)ident(Text) - reserved(else) - ident(Result) operator(:=) ident(Node)operator(.)ident(Text)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(AppActivate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(ActForm)operator(:) ident(TCustomForm)operator(;) - - reserved(procedure) ident(TryShow)operator(()ident(Win)operator(:) ident(TCustomForm)operator(\);) - reserved(begin) - reserved(if) ident(Assigned)operator(()ident(Win)operator(\)) reserved(and) ident(Win)operator(.)ident(Visible) reserved(then) - ident(Win)operator(.)ident(Show)operator(;) - reserved(end)operator(;) - -reserved(begin) - ident(ActForm) operator(:=) ident(Screen)operator(.)ident(ActiveCustomForm)operator(;) comment(//LastActiveForm;) - ident(TryShow)operator(()ident(ValuesWin)operator(\);) - ident(TryShow)operator(()ident(WorkWin)operator(\);) - ident(TryShow)operator(()ident(TreeWin)operator(\);) - ident(TryShow)operator(()ident(FindWin)operator(\);) - ident(TryShow)operator(()ident(SplashWin)operator(\);) - ident(TryShow)operator(()ident(MainWin)operator(\);) - ident(TryShow)operator(()ident(ActForm)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(FormCreate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - - reserved(procedure) ident(InitHKEYString)operator(()reserved(var) ident(H)operator(:) ident(THKEYString)operator(;) reserved(const) ident(Long)operator(,) ident(Short)operator(:) reserved(string)operator(;) - ident(Handle)operator(:) ident(Integer) operator(=) integer(0)operator(;) ident(IsDefault)operator(:) ident(Boolean) operator(=) ident(False)operator(\);) - reserved(begin) - ident(H)operator(.)ident(Long) operator(:=) ident(Long)operator(;) - ident(H)operator(.)ident(Short) operator(:=) ident(Short)operator(;) - ident(H)operator(.)ident(Handle) operator(:=) ident(Handle)operator(;) - ident(H)operator(.)ident(IsDefault) operator(:=) ident(IsDefault)operator(;) - reserved(end)operator(;) - -reserved(begin) -preprocessor({$IFDEF UNIKEY}) -preprocessor({$IFDEF CYCFS}) - ident(RegisterUniClass)operator(()string<delimiter(')content(Y:\\programme\\unikey\\cyc_fs.uni)delimiter(')>operator(\);) -preprocessor({$ENDIF}) -preprocessor({$ENDIF}) - - ident(Application)operator(.)ident(OnActivate) operator(:=) ident(AppActivate)operator(;) - ident(PlutoMain)operator(.)ident(StatusBar) operator(:=) ident(StatusBar)operator(;) - - comment(//Creating) - ident(MainReg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(;) - - comment(//Initialize) - ident(Caption) operator(:=) string<delimiter(')content(cYcnus.Pluto )delimiter(')> operator(+) ident(Version)operator(;) - ident(PreBlinkHint) operator(:=) ident(NoPreBlinkHint)operator(;) - - ident(SetLength)operator(()ident(HKEYStrings)operator(,) ident(Length)operator(()ident(HKEYStrings)operator(\)) operator(+) integer(2)operator(\);) - ident(InitHKEYString)operator(()ident(HKEYStrings)operator([)ident(LastDefaultHKEYString) operator(+) integer(1)operator(],) - string<delimiter(')content(HKEY_WindowsMachine)delimiter(')>operator(,) string<delimiter(')content(HKWM)delimiter(')>operator(\);) - - ident(InitHKEYString)operator(()ident(HKEYStrings)operator([)ident(LastDefaultHKEYString) operator(+) integer(2)operator(],) - string<delimiter(')content(HKEY_WindowsUser)delimiter(')>operator(,) string<delimiter(')content(HKWU)delimiter(')>operator(\);) - - ident(Application)operator(.)ident(HintHidePause) operator(:=) operator(-)integer(1)operator(;) comment(//that's approximately 136 years :D) - - ident(StatusBar)operator(.)ident(Panels)operator([)integer(0)operator(].)ident(Width) operator(:=) ident(Screen)operator(.)ident(Width) reserved(div) integer(6)operator(;) - - ident(MurphyMI)operator(.)ident(Visible) operator(:=) ident(MurphyMode)operator(;) - -preprocessor({$IFDEF UNIKEY}) - ident(UniPluginOD)operator(.)ident(InitialDir) operator(:=) ident(MyDir)operator(;) -preprocessor({$ELSE}) - ident(UniKeyDemoMI)operator(.)ident(Visible) operator(:=) ident(False)operator(;) -preprocessor({$ENDIF}) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(GotoKey)operator(()ident(Key)operator(:) reserved(string)operator(\);) -reserved(var) - ident(Full)operator(:) ident(TregPath)operator(;) - ident(Node)operator(:) ident(TTreeNode)operator(;) - ident(keySA)operator(:) ident(TStrA)operator(;) - ident(i)operator(:) ident(integer)operator(;) - - reserved(function) ident(NodeOfRoot)operator(()ident(Root)operator(:) reserved(string)operator(\):) ident(TTreeNode)operator(;) - reserved(var) - ident(i)operator(:) ident(Integer)operator(;) - reserved(begin) - ident(Result) operator(:=) reserved(nil)operator(;) - ident(Root) operator(:=) ident(LongHKEY)operator(()ident(Root)operator(\);) - - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(RootNodes)operator(.)ident(Count)operator(-)integer(1) reserved(do) - reserved(if) ident(SameText)operator(()ident(TTreeNode)operator(()ident(RootNodes)operator([)ident(i)operator(]\).)ident(Text)operator(,) ident(Root)operator(\)) reserved(then) reserved(begin) - ident(Result) operator(:=) ident(TTreeNode)operator(()ident(RootNodes)operator([)ident(i)operator(]\);) - ident(Break)operator(;) reserved(end)operator(;) - - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(High)operator(()ident(Shortcuts)operator(\)) reserved(do) - reserved(if) ident(SameText)operator(()ident(Shortcuts)operator([)ident(i)operator(].)ident(Alias)operator(,) ident(Full)operator(.)ident(Root)operator(\)) reserved(then) reserved(begin) - ident(Result) operator(:=) ident(Shortcuts)operator([)ident(i)operator(].)ident(Node)operator(;) - ident(Break)operator(;) reserved(end)operator(;) - reserved(end)operator(;) - -reserved(begin) - ident(keySA) operator(:=) reserved(nil)operator(;) - - comment(//Get FullPath of the Key) - ident(Key) operator(:=) ident(TrimLeft)operator(()ident(Key)operator(\);) - reserved(if) ident(TextAtPos)operator(()ident(Key)operator(,) integer(1)operator(,) string<delimiter(')content(Reg:)delimiter(')>operator(\)) reserved(then) - ident(Key) operator(:=) ident(TrimLeft)operator(()ident(FromChar)operator(()ident(Key)operator(,) char<delimiter(')content(:)delimiter(')>operator(\)\);) - ident(Key) operator(:=) ident(UnQuote)operator(()ident(Key)operator(\);) - - ident(Full) operator(:=) ident(RegPathOfStr)operator(()ident(Key)operator(\);) - reserved(if) ident(Trim)operator(()ident(Full)operator(.)ident(Root)operator(\)) operator(=) string<delimiter(')delimiter(')> reserved(then) reserved(begin) - ident(AddHint)operator(()string<delimiter(')content(Empty Path.)delimiter(')>operator(,) ident(True)operator(\);) - ident(Exit)operator(;) reserved(end)operator(;) - - comment(//Get Root Node) - ident(Node) operator(:=) ident(NodeOfRoot)operator(()ident(Full)operator(.)ident(Root)operator(\);) - reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then) reserved(begin) - reserved(if) reserved(not) ident(PathE)operator(.)ident(Focused) reserved(then) - ident(AddHint)operator(()string<delimiter(')content(Key not found:)delimiter(')> operator(+) ident(EOL) operator(+) ident(Key)operator(\);) - ident(Exit)operator(;) reserved(end)operator(;) - - comment(//Create an array of all SubKeys) - ident(keySA) operator(:=) ident(Split)operator(()ident(Full)operator(.)ident(Key)operator(,) char<delimiter(')content(\\)delimiter(')>operator(\);) - - comment(//Avoid SmartExpand) - ident(TreeWin)operator(.)ident(DoSmartExpand) operator(:=) ident(False)operator(;) reserved(begin) - - comment(//Open all SubKeys) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(High)operator(()ident(keySA)operator(\)) reserved(do) reserved(begin) - comment(//Open the Node if neccessary) - reserved(if) reserved(not) ident(Node)operator(.)ident(Expanded) reserved(then) reserved(begin) - reserved(if) reserved(not) ident(Node)operator(.)ident(Selected) reserved(then) - ident(RegTV)operator(.)ident(Selected) operator(:=) ident(Node)operator(;) - ident(CheckNode)operator(()ident(Node)operator(,) ident(False)operator(\);) - comment(//TreeWin.RegTVChange(Self, Node\);) - ident(Node)operator(.)ident(Expand)operator(()ident(False)operator(\);) - reserved(end)operator(;) - - comment(//Get Node of the SubKey) - ident(Node) operator(:=) ident(FindNodeText)operator(()ident(Node)operator(,) ident(keySA)operator([)ident(i)operator(]\);) - reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then) reserved(begin) - reserved(if) reserved(not) ident(PathE)operator(.)ident(Focused) reserved(then) - ident(AddHint)operator(()string<delimiter(')content(Goto Key not found: )delimiter(')> operator(+) ident(KeySA)operator([)ident(i)operator(],) ident(True)operator(\);) - ident(Exit)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - - reserved(end)operator(;) ident(TreeWin)operator(.)ident(DoSmartExpand) operator(:=) ident(True)operator(;) - - reserved(if) ident(Node) operator(<>) ident(RegTV)operator(.)ident(Selected) reserved(then) reserved(begin) - ident(RegTV)operator(.)ident(Selected) operator(:=) ident(Node)operator(;) - ident(TreeWin)operator(.)ident(RegTVChange)operator(()ident(Self)operator(,) ident(Node)operator(\);) - reserved(end)operator(;) - - ident(Application)operator(.)ident(ProcessMessages)operator(;) - - reserved(if) ident(Full)operator(.)ident(ValueSet) reserved(then) - ident(ValuesWin)operator(.)ident(FocusItem)operator(()ident(Full)operator(.)ident(Value)operator(,) reserved(not) operator(()ident(Active) reserved(and) ident(PathE)operator(.)ident(Focused)operator(\)\)) - reserved(else) reserved(begin) - reserved(if) reserved(not) operator(()ident(Active) reserved(and) ident(PathE)operator(.)ident(Focused)operator(\)) reserved(then) comment(//if not user is currently editing the path) - ident(TreeWin)operator(.)ident(FocusControl)operator(()ident(RegTV)operator(\);) - - reserved(if) ident(LastChar)operator(()ident(Full)operator(.)ident(Key)operator(\)) operator(=) char<delimiter(')content(\\)delimiter(')> reserved(then) - ident(Node)operator(.)ident(Expand)operator(()ident(False)operator(\);) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(SwapFonts)operator(()ident(Sender)operator(:) ident(TWinControl)operator(\);) - - reserved(function) ident(OtherFont)operator(()ident(N)operator(:) ident(TFontName)operator(\):) ident(TFontName)operator(;) - reserved(begin) - ident(Result) operator(:=) string<delimiter(')content(Courier New)delimiter(')>operator(;) - reserved(if) ident(N) operator(=) ident(Result) reserved(then) - ident(Result) operator(:=) string<delimiter(')content(Arial)delimiter(')>operator(;) - reserved(end)operator(;) - -reserved(begin) - ident(TEdit)operator(()ident(Sender)operator(\).)ident(Font)operator(.)ident(Name) operator(:=) ident(OtherFont)operator(()ident(TTreeView)operator(()ident(Sender)operator(\).)ident(Font)operator(.)ident(Name)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(ActivateThis)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(if) reserved(not) ident(Assigned)operator(()ident(Sender)operator(\)) reserved(then) - ident(Exit)operator(;) - - reserved(with) ident(TEdit)operator(()ident(Sender)operator(\)) reserved(do) reserved(begin) - reserved(if) ident(Tag) operator(<>) ident(EditControlFlag) reserved(then) - ident(Exit)operator(;) - ident(Color) operator(:=) ident(RealColor)operator(()ident(clVeryBrightBlue)operator(\);) - ident(Font)operator(.)ident(Color) operator(:=) ident(clBlack)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(DeActivateThis)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(if) reserved(not) ident(Assigned)operator(()ident(Sender)operator(\)) reserved(then) - ident(Exit)operator(;) - - reserved(with) ident(TEdit)operator(()ident(Sender)operator(\)) reserved(do) reserved(begin) - reserved(if) ident(Tag) operator(<>) ident(EditControlFlag) reserved(then) - ident(Exit)operator(;) - ident(Color) operator(:=) ident(RealColor)operator(()ident(clDarkGray)operator(\);) - ident(Font)operator(.)ident(Color) operator(:=) ident(clWhite)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(CreateSisyThreads)operator(;) -reserved(var) - ident(i)operator(:) ident(Integer)operator(;) - - reserved(procedure) ident(CreateSisyThread)operator(()reserved(const) ident(Name)operator(:) reserved(string)operator(;) reserved(const) ident(KeyName)operator(:) reserved(string)operator(;) - ident(Key)operator(:) ident(HKEY)operator(;) ident(StatusLabel)operator(:) ident(TLabel)operator(\);) - reserved(var) - ident(Sisy)operator(:) ident(TSisyThread)operator(;) - reserved(begin) - ident(ChangeLastHint)operator(()string<delimiter(')content(Creating )delimiter(')> operator(+) ident(Name) operator(+) string<delimiter(')content(...)delimiter(')>operator(\);) - ident(Sisy) operator(:=) ident(TSisyThread)operator(.)ident(CreateIt)operator(()ident(Name)operator(,) ident(KeyName)operator(,) ident(Key)operator(,) ident(StatusLabel)operator(,) ident(PlutoKey)operator(\);) - ident(Sisy)operator(.)ident(OnChange) operator(:=) ident(MainWin)operator(.)ident(OnSisyChange)operator(;) -comment(// Sisy.OnSpecialChange[cValuePlus] := MainWin.OnSisyValuePlus;) -comment(// Sisy.OnSpecialChange[cValueMinus] := MainWin.OnSisyValueMinus;) -comment(// Sisy.OnSpecialChange[cContextChange] := MainWin.OnSisyContextChange;) - ident(Sisys)operator(.)ident(Add)operator(()ident(Sisy)operator(\);) - ident(AddToLastHint)operator(()string<delimiter(')content(OK)delimiter(')>operator(\);) - reserved(end)operator(;) - -reserved(begin) - ident(AddHint)operator(()string<delimiter(')content(Starting Sisyphus )delimiter(')> operator(+) ident(SisyVersion) operator(+) string<delimiter(')content(...)delimiter(')>operator(\);) - - ident(Sisys) operator(:=) ident(TSisyList)operator(.)ident(Create)operator(;) - ident(WorkWin)operator(.)ident(LoadSisyFilter)operator(;) - - ident(CreateSisyThread)operator(()string<delimiter(')content(Sisy HKU)delimiter(')>operator(,) string<delimiter(')content(HKU)delimiter(')>operator(,) ident(HKU)operator(,) ident(WorkWin)operator(.)ident(SisyHKUL)operator(\);) - ident(CreateSisyThread)operator(()string<delimiter(')content(Sisy HKLM)delimiter(')>operator(,) string<delimiter(')content(HKLM)delimiter(')>operator(,) ident(HKLM)operator(,) ident(WorkWin)operator(.)ident(SisyHKLML)operator(\);) - - ident(ChangeLastHint)operator(()string<delimiter(')content(Initializing Sisyphus...)delimiter(')>operator(\);) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Sisys)operator(.)ident(Count)operator(-)integer(1) reserved(do) - reserved(with) ident(TSisyThread)operator(()ident(Sisys)operator([)ident(i)operator(]\)) reserved(do) reserved(begin) - reserved(if) ident(Name) operator(=) string<delimiter(')content(Sisy HKU)delimiter(')> reserved(then) - reserved(with) ident(WorkWin)operator(.)ident(SisyHKUCB) reserved(do) reserved(begin) - ident(Settings)operator(.)ident(KeyName) operator(:=) ident(StrOfUni)operator(()ident(Uni)operator(.)ident(Path)operator(\);) - ident(Settings)operator(.)ident(Load)operator(;) - ident(Settings)operator(.)ident(AutoSave) operator(:=) ident(True)operator(;) - reserved(if) ident(Checked) reserved(then) - ident(Resume)operator(;) - reserved(end) - reserved(else) reserved(if) ident(Name) operator(=) string<delimiter(')content(Sisy HKLM)delimiter(')> reserved(then) - reserved(with) ident(WorkWin)operator(.)ident(SisyHKLMCB) reserved(do) reserved(begin) - ident(Settings)operator(.)ident(KeyName) operator(:=) ident(StrOfUni)operator(()ident(Uni)operator(.)ident(Path)operator(\);) - ident(Settings)operator(.)ident(Load)operator(;) - ident(Settings)operator(.)ident(AutoSave) operator(:=) ident(True)operator(;) - reserved(if) ident(Checked) reserved(then) - ident(Resume)operator(;) - reserved(end)operator(;) - ident(OnStarted) operator(:=) ident(MainWin)operator(.)ident(SisyStarted)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(CreateSpyThread)operator(;) -reserved(begin) - ident(AddHint)operator(()string<delimiter(')content(Creating SpyThread...)delimiter(')>operator(\);) - ident(SpyThread) operator(:=) ident(TRegSpyThread)operator(.)ident(CreateIt)operator(()ident(tpLowest)operator(\);) - ident(WorkWin)operator(.)ident(SpyDelayIEChange)operator(()ident(MainWin)operator(\);) - ident(WorkWin)operator(.)ident(SpyTestLClick)operator(()ident(MainWin)operator(\);) - ident(AddToLastHint)operator(()string<delimiter(')content(OK)delimiter(')>operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(ShowParams)operator(;) -reserved(var) - ident(SL)operator(:) ident(TStringList)operator(;) -reserved(begin) - reserved(if) ident(Switch)operator(()string<delimiter(')content(params?)delimiter(')>operator(\)) reserved(then) reserved(begin) - ident(SL) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;) - ident(GetParams)operator(()ident(SL)operator(\);) - ident(ShowMessage)operator(()ident(SL)operator(.)ident(Text)operator(\);) - ident(SL)operator(.)ident(Free)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(GotoParamKey)operator(;) -reserved(var) - ident(s)operator(:) reserved(string)operator(;) -reserved(begin) - ident(s) operator(:=) ident(ParamStr)operator(()integer(1)operator(\);) - reserved(if) operator(()ident(s) operator(<>) string<delimiter(')delimiter(')>operator(\)) - reserved(and) operator(()ident(s)operator([)integer(1)operator(]) operator(<>) char<delimiter(')content(-)delimiter(')>operator(\)) reserved(then) reserved(begin) comment(//Params have '-' as prefix) - ident(AddHint)operator(()string<delimiter(')content(Goto Key )delimiter(')> operator(+) ident(Quote)operator(()ident(s)operator(\)) operator(+) string<delimiter(')content(...)delimiter(')>operator(\);) - ident(MainWin)operator(.)ident(GotoKey)operator(()ident(s)operator(\);) - reserved(end) reserved(else) reserved(begin) - ident(RegTV)operator(.)ident(Selected) operator(:=) ident(RegTV)operator(.)ident(TopItem)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(Load)operator(;) -reserved(begin) - ident(TreeWin)operator(.)ident(Load)operator(;) - ident(WorkWin)operator(.)ident(LoadBoolStr)operator(;) - - ident(CreateSpyThread)operator(;) - ident(CreateSisyThreads)operator(;) - - ident(AddHint)operator(()ident(Greeting)operator(,) ident(True)operator(\);) - - ident(ShowParams)operator(;) - ident(GotoParamKey)operator(;) - - reserved(if) ident(Assigned)operator(()ident(SplashWin)operator(\)) reserved(and) ident(SplashWin)operator(.)ident(Visible) reserved(then) - ident(SplashWin)operator(.)ident(SetFocus)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(CopyPathClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(Clipboard)operator(.)ident(AsText) operator(:=) ident(StatusBar)operator(.)ident(Panels)operator([)integer(1)operator(].)ident(Text)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(FormKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) - ident(Shift)operator(:) ident(TShiftState)operator(\);) -reserved(begin) - reserved(if) operator(()ident(ssAlt) reserved(in) ident(shift)operator(\)) reserved(and) operator(()ident(Key) operator(=) ident(VK_F4)operator(\)) reserved(then) reserved(begin) - ident(Key) operator(:=) integer(0)operator(;) - ident(Close)operator(;) - ident(Exit)operator(;) reserved(end)operator(;) - - reserved(if) ident(ssCtrl) reserved(in) ident(Shift) reserved(then) - reserved(case) ident(Key) reserved(of) - ident(Byte)operator(()char<delimiter(')content(W)delimiter(')>operator(\):) reserved(begin) - ident(MainPC)operator(.)ident(ActivePage) operator(:=) ident(WorkWin)operator(.)ident(WorkPage)operator(;) - reserved(if) ident(Assigned)operator(()ident(MainPC)operator(.)ident(ActivePage)operator(\)) reserved(then) - ident(WorkWin)operator(.)ident(FocusControl)operator(()ident(TWinControl)operator(()ident(ShowPC)operator(.)ident(ActivePage)operator(.)ident(Tag)operator(\)\)) - reserved(end)operator(;) - - ident(Byte)operator(()char<delimiter(')content(H)delimiter(')>operator(\):) ident(MainPC)operator(.)ident(ActivePage) operator(:=) ident(WorkWin)operator(.)ident(HintPage)operator(;) - - ident(Byte)operator(()char<delimiter(')content(L)delimiter(')>operator(\):) ident(MainWin)operator(.)ident(FindCLSID)operator(;) - reserved(end)operator(;) - - reserved(if) ident(Shift) operator(=) operator([]) reserved(then) - reserved(case) ident(Key) reserved(of) - ident(VK_F6)operator(:) ident(TreeWin)operator(.)ident(FocusControl)operator(()ident(RegTV)operator(\);) - - ident(VK_F7)operator(:) reserved(with) ident(ValueList) reserved(do) reserved(begin) - ident(ValuesWin)operator(.)ident(FocusControl)operator(()ident(ValueList)operator(\);) - reserved(if) operator(()ident(Selected) operator(=) reserved(nil)operator(\)) reserved(and) operator(()ident(Items)operator(.)ident(Count) operator(>) integer(0)operator(\)) reserved(then) reserved(begin) - ident(Selected) operator(:=) ident(Items)operator([)integer(0)operator(];) - ident(ItemFocused) operator(:=) ident(Selected)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - - ident(VK_F8)operator(:) ident(WorkWin)operator(.)ident(FocusControl)operator(()ident(MainPC)operator(\);) - reserved(end)operator(;) - - reserved(if) ident(Key) operator(=) ident(VK_SCROLL) reserved(then) reserved(begin) - ident(TreeWin)operator(.)ident(CheckRegTVHotTrack)operator(;) - ident(ValuesWin)operator(.)ident(CheckValueListHotTrack)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(StatusBarResize)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(with) ident(StatusBar) reserved(do) - ident(Panels)operator([)integer(1)operator(].)ident(Width) operator(:=) - ident(Width) operator(-) operator(()ident(Panels)operator([)integer(0)operator(].)ident(Width) operator(+) ident(Panels)operator([)integer(2)operator(].)ident(Width) operator(+) ident(Panels)operator([)integer(3)operator(].)ident(Width)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(StatusBarDblClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(ShowRealPathMIClick)operator(()ident(Sender)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(InsertPathClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(GotoKey)operator(()ident(Clipboard)operator(.)ident(AsText)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(SetStatus)operator(;) -reserved(begin) - ident(StatusBarUpdate)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(StatusBarUpdate)operator(;) -reserved(var) - ident(Inf)operator(:) ident(TRegKeyInfo)operator(;) -reserved(begin) - ident(OpenCurKey)operator(;) - ident(MainReg)operator(.)ident(GetKeyInfo)operator(()ident(Inf)operator(\);) - ident(MainReg)operator(.)ident(CloseKey)operator(;) - - ident(StatusBar)operator(.)ident(Panels)operator([)integer(2)operator(].)ident(Text) operator(:=) ident(StrNumerus)operator(()ident(Inf)operator(.)ident(NumSubKeys)operator(,) string<delimiter(')content(key)delimiter(')>operator(,) string<delimiter(')content(keys)delimiter(')>operator(,) string<delimiter(')content(no)delimiter(')>operator(\);) - ident(StatusBar)operator(.)ident(Panels)operator([)integer(3)operator(].)ident(Text) operator(:=) ident(StrNumerus)operator(()ident(Inf)operator(.)ident(NumValues)operator(,) string<delimiter(')content(value)delimiter(')>operator(,) string<delimiter(')content(values)delimiter(')>operator(,) string<delimiter(')content(no)delimiter(')>operator(\);) - - reserved(if) ident(ShowRealPathMI)operator(.)ident(Checked) reserved(then) - ident(StatusBar)operator(.)ident(Panels)operator([)integer(1)operator(].)ident(Text) operator(:=) ident(StrOfRegPath)operator(()ident(CurKey)operator(()ident(uhShortcuts)operator(\)\)) - reserved(else) - ident(StatusBar)operator(.)ident(Panels)operator([)integer(1)operator(].)ident(Text) operator(:=) ident(StrOfRegPath)operator(()ident(CurKey)operator(()ident(uhNonSystemShortcuts)operator(\)\);) - - reserved(if) reserved(not) ident(PathE)operator(.)ident(Focused) reserved(then) - ident(PathE)operator(.)ident(Text) operator(:=) ident(StrOfRegPath)operator(()ident(CurKey)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(ShowRealPathMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(ShowRealPathMI)operator(.)ident(Checked) operator(:=) reserved(not) ident(ShowRealPathMI)operator(.)ident(Checked)operator(;) - ident(StatusBarUpdate)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(PathEKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) - ident(Shift)operator(:) ident(TShiftState)operator(\);) -reserved(var) - ident(Pos)operator(:) ident(Integer)operator(;) - ident(s)operator(:) reserved(string)operator(;) -reserved(begin) - ident(DoAutoComplete) operator(:=) reserved(not) operator(()ident(Key) reserved(in) operator([)ident(VK_DELETE)operator(,) ident(VK_BACK)operator(,) ident(VK_ESCAPE)operator(]\);) - - reserved(case) ident(Key) reserved(of) - ident(VK_BACK)operator(:) - reserved(begin) - ident(s) operator(:=) ident(PathE)operator(.)ident(Text)operator(;) - ident(Pos) operator(:=) ident(PathE)operator(.)ident(SelStart)operator(;) - - reserved(if) ident(ssCtrl) reserved(in) ident(Shift) reserved(then) - reserved(repeat) - ident(Dec)operator(()ident(Pos)operator(\);) - reserved(until) operator(()ident(Pos) operator(<) integer(1)operator(\)) reserved(or) operator(()ident(s)operator([)ident(Pos)operator(]) operator(=) char<delimiter(')content(\\)delimiter(')>operator(\)) - reserved(else) reserved(if) ident(PathE)operator(.)ident(SelLength) operator(=) integer(0) reserved(then) - ident(Exit)operator(;) - - ident(PathE)operator(.)ident(Text) operator(:=) ident(Copy)operator(()ident(s)operator(,) integer(1)operator(,) ident(Pos)operator(\);) - ident(PathE)operator(.)ident(SelStart) operator(:=) ident(Length)operator(()ident(s)operator(\);) - ident(Key) operator(:=) integer(0)operator(;) - ident(UserGotoKey)operator(;) - reserved(end)operator(;) - - ident(VK_ESCAPE)operator(:) - reserved(with) ident(PathE) reserved(do) reserved(begin) - reserved(if) ident(SelLength) operator(=) integer(0) reserved(then) - ident(Exit)operator(;) - ident(Text) operator(:=) ident(StrOfRegPath)operator(()ident(CurKey)operator(\);) - ident(SelStart) operator(:=) ident(Length)operator(()ident(Text)operator(\);) - reserved(end)operator(;) - - ident(VK_RETURN)operator(:) reserved(begin) - reserved(if) ident(CurKey)operator(.)ident(ValueSet) reserved(then) - ident(ValuesWin)operator(.)ident(ValueListDblClick)operator(()ident(Self)operator(\);) - ident(Key) operator(:=) integer(0)operator(;) - reserved(end)operator(;) - - ident(VK_RIGHT)operator(:) reserved(begin) - reserved(if) reserved(not) operator(()ident(ssCtrl) reserved(in) ident(Shift)operator(\)) reserved(then) - ident(Exit)operator(;) - - ident(Key) operator(:=) integer(0)operator(;) - - ident(s) operator(:=) ident(PathE)operator(.)ident(Text)operator(;) - ident(Pos) operator(:=) ident(PathE)operator(.)ident(SelStart) operator(+) integer(1)operator(;) - reserved(repeat) - ident(Inc)operator(()ident(Pos)operator(\);) - reserved(until) operator(()ident(Pos) operator(>) ident(Length)operator(()ident(s)operator(\)\)) reserved(or) operator(()ident(s)operator([)ident(Pos)operator(]) operator(=) char<delimiter(')content(\\)delimiter(')>operator(\);) - - ident(PathE)operator(.)ident(SelStart) operator(:=) ident(Pos) operator(-) integer(1)operator(;) - reserved(end)operator(;) - - ident(VK_LEFT)operator(:) reserved(begin) - reserved(if) reserved(not) operator(()ident(ssCtrl) reserved(in) ident(Shift)operator(\)) reserved(then) - ident(Exit)operator(;) - - reserved(with) ident(PathE) reserved(do) reserved(begin) - ident(Key) operator(:=) integer(0)operator(;) - - ident(s) operator(:=) ident(Text)operator(;) - ident(Pos) operator(:=) ident(SelStart)operator(;) - reserved(repeat) - ident(Dec)operator(()ident(Pos)operator(\);) - reserved(until) operator(()ident(Pos) operator(<) integer(1)operator(\)) reserved(or) operator(()ident(s)operator([)ident(Pos)operator(]) operator(=) char<delimiter(')content(\\)delimiter(')>operator(\);) - - reserved(if) ident(Pos) operator(<) integer(1) reserved(then) - ident(Pos) operator(:=) integer(1)operator(;) - - ident(SelStart) operator(:=) ident(Pos) operator(-) integer(1)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(UserGotoKey)operator(;) -reserved(begin) - ident(GotoKey)operator(()ident(PathE)operator(.)ident(Text)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(PathEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(Prefix)operator(,) ident(Suffix)operator(,) ident(Key)operator(,) ident(Path)operator(,) ident(Root)operator(:) reserved(string)operator(;) - ident(i)operator(,) ident(p)operator(,) ident(Len)operator(:) ident(Integer)operator(;) - ident(SL)operator(:) ident(TStringList)operator(;) - ident(CompleteKind)operator(:) operator(()ident(ckRoots)operator(,) ident(ckKeys)operator(,) ident(ckValues)operator(\);) - - reserved(procedure) ident(GetRootNames)operator(()ident(Strings)operator(:) ident(TStrings)operator(\);) - reserved(var) - ident(Node)operator(:) ident(TTreeNode)operator(;) - reserved(begin) - ident(SL)operator(.)ident(Clear)operator(;) - ident(Node) operator(:=) ident(RegTV)operator(.)ident(Items)operator(.)ident(GetFirstNode)operator(;) - reserved(while) ident(Assigned)operator(()ident(Node)operator(\)) reserved(do) reserved(begin) - ident(SL)operator(.)ident(Add)operator(()ident(Node)operator(.)ident(Text)operator(\);) - ident(Node) operator(:=) ident(Node)operator(.)ident(GetNextSibling)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - -reserved(begin) - reserved(if) reserved(not) ident(DoAutoComplete) reserved(then) - ident(Exit)operator(;) - - ident(Key) operator(:=) ident(PathE)operator(.)ident(Text)operator(;) - ident(Root) operator(:=) ident(TraceKey)operator(()ident(ExRegRoot)operator(()ident(Key)operator(\)\);) - - reserved(if) reserved(not) ident(CharIn)operator(()ident(Key)operator(,) char<delimiter(')content(\\)delimiter(')>operator(\)) reserved(then) - ident(CompleteKind) operator(:=) ident(ckRoots) - reserved(else) reserved(if) ident(ExRegValueSet)operator(()ident(Key)operator(\)) reserved(then) - ident(CompleteKind) operator(:=) ident(ckValues) - reserved(else) - ident(CompleteKind) operator(:=) ident(ckKeys)operator(;) - - reserved(case) ident(CompleteKind) reserved(of) - ident(ckRoots)operator(:) reserved(begin) - ident(Prefix) operator(:=) string<delimiter(')delimiter(')>operator(;) - ident(Suffix) operator(:=) ident(Key)operator(;) - reserved(end)operator(;) - - ident(ckKeys)operator(:) reserved(begin) - ident(Path) operator(:=) ident(ExRegFullKey)operator(()ident(Key)operator(\);) - ident(Prefix) operator(:=) ident(UntilLastChar)operator(()ident(Path)operator(,) char<delimiter(')content(\\)delimiter(')>operator(\);) - ident(Suffix) operator(:=) ident(FromLastChar)operator(()ident(Path)operator(,) char<delimiter(')content(\\)delimiter(')>operator(\);) - reserved(end)operator(;) - - ident(ckValues)operator(:) reserved(begin) - ident(p) operator(:=) ident(Pos)operator(()string<delimiter(')content(\\\\)delimiter(')>operator(,) ident(Key)operator(\);) - ident(Prefix) operator(:=) ident(Copy)operator(()ident(Key)operator(,) integer(1)operator(,) ident(p) operator(-) integer(1)operator(\);) - ident(Suffix) operator(:=) ident(Copy)operator(()ident(Key)operator(,) ident(p) operator(+) integer(2)operator(,) ident(Length)operator(()ident(Key)operator(\)) operator(-) ident(p) operator(-) integer(1)operator(\);) - reserved(end)operator(;) - - reserved(else) - reserved(end)operator(;) - - ident(SL) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;) - - reserved(if) ident(CompleteKind) reserved(in) operator([)ident(ckKeys)operator(,) ident(ckValues)operator(]) reserved(then) - reserved(with) ident(MainReg) reserved(do) reserved(begin) - ident(RootKey) operator(:=) ident(HKEYOfStr)operator(()ident(ExRegRoot)operator(()ident(Root)operator(\)\);) - ident(OpenKey)operator(()ident(ExRegKey)operator(()ident(Root)operator(\)\);) - ident(OpenKey)operator(()ident(ExRegKey)operator(()ident(Prefix)operator(\)\);) - - reserved(if) ident(CompleteKind) operator(=) ident(ckValues) reserved(then) reserved(begin) - reserved(if) reserved(not) ident(HasValues) reserved(then) - ident(Exit)operator(;) - ident(GetValueNames)operator(()ident(SL)operator(\);) - reserved(end) reserved(else) reserved(if) ident(CompleteKind) operator(=) ident(ckKeys) reserved(then) reserved(begin) - reserved(if) reserved(not) ident(HasSubKeys) reserved(then) - ident(Exit)operator(;) - ident(GetKeyNames)operator(()ident(SL)operator(\);) - reserved(end)operator(;) - - ident(CloseKey)operator(;) - reserved(end) - reserved(else) reserved(begin) - ident(GetRootNames)operator(()ident(SL)operator(\);) - reserved(end)operator(;) - - reserved(if) ident(Suffix) operator(=) string<delimiter(')delimiter(')> reserved(then) reserved(begin) - reserved(if) operator(()ident(SL)operator(.)ident(Count) operator(>) integer(0)operator(\)) reserved(and) reserved(not) ident(StrIn)operator(()ident(SL)operator(,) string<delimiter(')delimiter(')>operator(\)) reserved(then) - ident(Suffix) operator(:=) ident(SL)operator([)integer(0)operator(];) - reserved(end) reserved(else) reserved(begin) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(SL)operator(.)ident(Count)operator(-)integer(1) reserved(do) - reserved(if) ident(TextAtBegin)operator(()ident(SL)operator([)ident(i)operator(],) ident(Suffix)operator(\)) reserved(then) reserved(begin) - ident(Suffix) operator(:=) ident(SL)operator([)ident(i)operator(];) - ident(Break)operator(;) reserved(end)operator(;) - reserved(end)operator(;) - - ident(Len) operator(:=) ident(Length)operator(()ident(PathE)operator(.)ident(Text)operator(\);) - - reserved(if) ident(CompleteKind) operator(=) ident(ckValues) reserved(then) - ident(Prefix) operator(:=) ident(Prefix) operator(+) string<delimiter(')content(\\\\)delimiter(')> - reserved(else) reserved(if) ident(CompleteKind) operator(=) ident(ckKeys) reserved(then) - ident(Prefix) operator(:=) ident(Prefix) operator(+) char<delimiter(')content(\\)delimiter(')>operator(;) - - reserved(with) ident(PathE) reserved(do) reserved(begin) - ident(DoAutoComplete) operator(:=) ident(False)operator(;) comment(//Avoid Recursion) - ident(Text) operator(:=) ident(Prefix) operator(+) ident(Suffix)operator(;) - ident(DoAutoComplete) operator(:=) ident(True)operator(;) - - ident(SelStart) operator(:=) ident(Len)operator(;) - ident(SelLength) operator(:=) ident(Length)operator(()ident(Text)operator(\)) operator(-) ident(Len)operator(;) - reserved(end)operator(;) - - ident(SL)operator(.)ident(Free)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(PathEExit)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(DeActivateThis)operator(()ident(PathE)operator(\);) - ident(DoAutoComplete) operator(:=) ident(False)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(ArrangePlutoStyle)operator(;) -reserved(begin) - reserved(with) ident(ValuesWin) reserved(do) reserved(begin) - ident(Height) operator(:=) ident(MainWin)operator(.)ident(ClientHeight) reserved(div) integer(3)operator(;) - ident(Top) operator(:=) ident(MainWin)operator(.)ident(ClientHeight) operator(-) ident(Height) operator(-) integer(43)operator(;) - ident(Left) operator(:=) integer(0)operator(;) - ident(Width) operator(:=) ident(MainWin)operator(.)ident(ClientWidth) operator(-) integer(4)operator(;) - comment(//Align := alBottom;) - reserved(end)operator(;) - - reserved(with) ident(WorkWin) reserved(do) reserved(begin) - ident(Top) operator(:=) integer(0)operator(;) - ident(Width) operator(:=) ident(Max)operator(()ident(MainWin)operator(.)ident(ClientWidth) reserved(div) integer(3)operator(,) ident(WorkWin)operator(.)ident(Constraints)operator(.)ident(MinWidth)operator(\);) - ident(Left) operator(:=) ident(ValuesWin)operator(.)ident(Width) operator(-) ident(Width)operator(;) - ident(Height) operator(:=) ident(MainWin)operator(.)ident(ClientHeight) operator(-) integer(43) operator(-) ident(ValuesWin)operator(.)ident(Height)operator(;) - comment(//Align := alRight;) - reserved(end)operator(;) - - reserved(with) ident(TreeWin) reserved(do) reserved(begin) - ident(Top) operator(:=) integer(0)operator(;) - ident(Height) operator(:=) ident(WorkWin)operator(.)ident(Height)operator(;) - ident(Left) operator(:=) integer(0)operator(;) - ident(Width) operator(:=) ident(ValuesWin)operator(.)ident(Width) operator(-) ident(WorkWin)operator(.)ident(Width)operator(;) - reserved(end)operator(;) - - comment({TreeWin.Align := alNone; - WorkWin.Align := alNone; - ValuesWin.Align := alNone;}) -reserved(end)operator(;) - -reserved(procedure) ident(ArrangeFreeStyle)operator(;) -reserved(const) - ident(Space) operator(=) integer(10)operator(;) -reserved(begin) - reserved(with) ident(ValuesWin) reserved(do) reserved(begin) - ident(Height) operator(:=) ident(Screen)operator(.)ident(Height) reserved(div) integer(3)operator(;) - ident(Align) operator(:=) ident(alBottom)operator(;) - reserved(end)operator(;) - - reserved(with) ident(WorkWin) reserved(do) reserved(begin) - ident(Width) operator(:=) ident(Max)operator(()ident(Screen)operator(.)ident(WorkAreaWidth) reserved(div) integer(3)operator(,) ident(Constraints)operator(.)ident(MinWidth) operator(+) integer(2) operator(*) ident(Space)operator(\);) - ident(Align) operator(:=) ident(alRight)operator(;) - reserved(end)operator(;) - - reserved(with) ident(TreeWin) reserved(do) reserved(begin) - ident(Align) operator(:=) ident(alClient)operator(;) - reserved(end)operator(;) - - ident(TreeWin)operator(.)ident(Align) operator(:=) ident(alNone)operator(;) - ident(WorkWin)operator(.)ident(Align) operator(:=) ident(alNone)operator(;) - ident(ValuesWin)operator(.)ident(Align) operator(:=) ident(alNone)operator(;) - - reserved(with) ident(ValuesWin) reserved(do) reserved(begin) - ident(Height) operator(:=) ident(Height) operator(-) integer(2) operator(*) ident(Space)operator(;) - ident(Width) operator(:=) ident(Width) operator(-) integer(2) operator(*) ident(Space)operator(;) - ident(Top) operator(:=) ident(Top) operator(+) ident(Space)operator(;) - ident(Left) operator(:=) ident(Left) operator(+) ident(Space)operator(;) - reserved(end)operator(;) - - reserved(with) ident(TreeWin) reserved(do) reserved(begin) - ident(Height) operator(:=) ident(Height) operator(-) integer(1) operator(*) ident(Space)operator(;) - ident(Width) operator(:=) ident(Width) operator(-) integer(1) operator(*) ident(Space)operator(;) - ident(Top) operator(:=) ident(Top) operator(+) ident(Space)operator(;) - ident(Left) operator(:=) ident(Left) operator(+) ident(Space)operator(;) - reserved(end)operator(;) - - reserved(with) ident(WorkWin) reserved(do) reserved(begin) - ident(Height) operator(:=) ident(Height) operator(-) integer(1) operator(*) ident(Space)operator(;) - ident(Width) operator(:=) ident(Width) operator(-) integer(2) operator(*) ident(Space)operator(;) - ident(Top) operator(:=) ident(Top) operator(+) ident(Space)operator(;) - ident(Left) operator(:=) ident(Left) operator(+) ident(Space)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(ArrangeBigValStyle)operator(;) -reserved(var) - ident(MinHeight)operator(:) ident(Integer)operator(;) -reserved(begin) - ident(MinHeight) operator(:=) ident(WorkWin)operator(.)ident(Constraints)operator(.)ident(MinHeight) operator(+) - ident(MainWin)operator(.)ident(Constraints)operator(.)ident(MinHeight)operator(;) - - reserved(with) ident(ValuesWin) reserved(do) reserved(begin) - ident(Height) operator(:=) ident(Screen)operator(.)ident(WorkAreaHeight) operator(-) ident(Max)operator(()ident(Screen)operator(.)ident(Height) reserved(div) integer(3)operator(,) ident(MinHeight)operator(\);) - ident(Align) operator(:=) ident(alBottom)operator(;) - reserved(end)operator(;) - - reserved(with) ident(WorkWin) reserved(do) reserved(begin) - ident(Width) operator(:=) ident(Screen)operator(.)ident(WorkAreaWidth) reserved(div) integer(3)operator(;) - ident(Align) operator(:=) ident(alRight)operator(;) - reserved(end)operator(;) - - reserved(with) ident(TreeWin) reserved(do) reserved(begin) - ident(Align) operator(:=) ident(alClient)operator(;) - reserved(end)operator(;) - - ident(TreeWin)operator(.)ident(Align) operator(:=) ident(alNone)operator(;) - ident(WorkWin)operator(.)ident(Align) operator(:=) ident(alNone)operator(;) - ident(ValuesWin)operator(.)ident(Align) operator(:=) ident(alNone)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(ArrangeRegEdStyle)operator(;) -reserved(begin) - reserved(with) ident(TreeWin) reserved(do) reserved(begin) - ident(Width) operator(:=) ident(Screen)operator(.)ident(WorkAreaWidth) reserved(div) integer(4)operator(;) - ident(Align) operator(:=) ident(alLeft)operator(;) - reserved(end)operator(;) - - reserved(with) ident(ValuesWin) reserved(do) reserved(begin) - ident(Align) operator(:=) ident(alClient)operator(;) - ident(Align) operator(:=) ident(alNone)operator(;) - ident(Height) operator(:=) ident(Height) operator(-) ident(WorkWin)operator(.)ident(Constraints)operator(.)ident(MinHeight)operator(;) - reserved(end)operator(;) - - reserved(with) ident(WorkWin) reserved(do) reserved(begin) - ident(Top) operator(:=) ident(ValuesWin)operator(.)ident(Top) operator(+) ident(ValuesWin)operator(.)ident(Height)operator(;) - ident(Left) operator(:=) ident(ValuesWin)operator(.)ident(Left)operator(;) - ident(Height) operator(:=) ident(Constraints)operator(.)ident(MinHeight)operator(;) - ident(Width) operator(:=) ident(ValuesWin)operator(.)ident(Width)operator(;) - reserved(end)operator(;) - - ident(TreeWin)operator(.)ident(Align) operator(:=) ident(alNone)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(PathEKeyUp)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) - ident(Shift)operator(:) ident(TShiftState)operator(\);) -reserved(begin) - reserved(if) reserved(not) operator(()ident(Key) reserved(in) operator([)ident(VK_DELETE)operator(,) ident(VK_BACK)operator(,) ident(VK_ESCAPE)operator(]\)) reserved(then) - ident(UserGotoKey)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(ActivateIt)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(ActivateThis)operator(()ident(Sender)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(FormActivate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(if) ident(Assigned)operator(()ident(ActiveControl)operator(\)) reserved(and) operator(()ident(ActiveControl)operator(.)ident(Tag) operator(=) ident(EditControlFlag)operator(\)) reserved(then) - ident(ActivateThis)operator(()ident(ActiveControl)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(FormDeactivate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(if) ident(Assigned)operator(()ident(ActiveControl)operator(\)) reserved(and) operator(()ident(ActiveControl)operator(.)ident(Tag) operator(=) ident(EditControlFlag)operator(\)) reserved(then) - ident(DeActivateThis)operator(()ident(ActiveControl)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(Pluto1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(ArrangePlutoStyle)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(RegEdit1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(ArrangeRegEdStyle)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(Free1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(ArrangeFreeStyle)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(BigVal1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(ArrangeBigValStyle)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(SplashScreen1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(SplashWin)operator(.)ident(Show)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(HistoryClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(NotePad)operator(()ident(PlutoDir) operator(+) string<delimiter(')content(version.txt)delimiter(')>operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(WebLinkMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(Browse)operator(()string<delimiter(')content(http://)delimiter(')> operator(+) ident(TMenuItem)operator(()ident(Sender)operator(\).)ident(Caption)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(SupportMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(Browse)operator(()string<delimiter(')content(http://cYcnus.de/php/phpbb/viewforum.php?f=1)delimiter(')>operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(Credits1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(FileName)operator(:) reserved(string)operator(;) -reserved(begin) - ident(FileName) operator(:=) ident(PlutoDir) operator(+) string<delimiter(')content(credits deluxe.htm)delimiter(')>operator(;) - reserved(if) ident(FileExists)operator(()ident(FileName)operator(\)) reserved(then) - ident(ExecFile)operator(()ident(FileName)operator(\)) - reserved(else) reserved(begin) - ident(FileName) operator(:=) ident(PlutoDir) operator(+) string<delimiter(')content(credits.htm)delimiter(')>operator(;) - reserved(if) ident(FileExists)operator(()ident(FileName)operator(\)) reserved(then) - ident(ExecFile)operator(()ident(FileName)operator(\);) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(function) ident(GetCLSIDFromClipboard)operator(:) reserved(string)operator(;) -reserved(var) - ident(CLSID)operator(:) reserved(string)operator(;) -reserved(begin) - ident(CLSID) operator(:=) ident(BetweenChars)operator(()ident(Clipboard)operator(.)ident(AsText)operator(,) char<delimiter(')content({)delimiter(')>operator(,) char<delimiter(')content(})delimiter(')>operator(,) ident(True)operator(\);) - reserved(if) ident(CLSID) operator(=) string<delimiter(')delimiter(')> reserved(then) reserved(begin) - ident(Result) operator(:=) ident(Clipboard)operator(.)ident(AsText)operator(;) - ident(InputQuery)operator(()string<delimiter(')content(No CLSID in Clipboard.)delimiter(')>operator(,) - string<delimiter(')content(Use following format:)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content({00000000-0000-0000-0000-000000000000})delimiter(')>operator(,) ident(Result)operator(\);) - ident(Exit)operator(;) reserved(end) reserved(else) - ident(Result) operator(:=) ident(CLSID)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(FindCLSID)operator(;) -reserved(var) - ident(CLSID)operator(,) ident(Desc)operator(:) reserved(string)operator(;) -reserved(begin) - ident(CLSID) operator(:=) ident(GetCLSIDFromClipboard)operator(;) - ident(Desc) operator(:=) ident(RegNameOfCLSID)operator(()ident(CLSID)operator(\);) - reserved(if) ident(Desc) operator(<>) string<delimiter(')delimiter(')> reserved(then) - ident(InputQuery)operator(()string<delimiter(')content(Your CLSID is...)delimiter(')>operator(,) ident(CLSID)operator(,) ident(Desc)operator(\)) - reserved(else) - ident(ShowMessage)operator(()string<delimiter(')content(CLSID not found: )delimiter(')> operator(+) ident(CLSID) operator(+) char<delimiter(')content(.)delimiter(')>operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(GotoCLSID)operator(;) -reserved(var) - ident(CLSID)operator(,) ident(Desc)operator(:) reserved(string)operator(;) -reserved(begin) - ident(CLSID) operator(:=) ident(GetCLSIDFromClipboard)operator(;) - ident(Desc) operator(:=) ident(RegNameOfCLSID)operator(()ident(CLSID)operator(\);) - reserved(if) ident(Desc) operator(<>) string<delimiter(')delimiter(')> reserved(then) reserved(begin) - ident(GotoKey)operator(()string<delimiter(')content(HKCR\\CLSID\\)delimiter(')> operator(+) ident(CLSID)operator(\);) - ident(TreeWin)operator(.)ident(FocusControl)operator(()ident(RegTV)operator(\);) - reserved(end) reserved(else) - ident(ShowMessage)operator(()string<delimiter(')content(CLSID not found: )delimiter(')> operator(+) ident(CLSID) operator(+) char<delimiter(')content(.)delimiter(')>operator(\);) -reserved(end)operator(;) - -reserved(function) ident(TMainWin)operator(.)ident(Greeting)operator(()ident(Name)operator(:) reserved(string) operator(=) ident(NoPreBlinkHint)operator(\):) reserved(string)operator(;) -reserved(const) - ident(Alias)operator(:) reserved(array)operator([)integer(0)operator(..)integer(4)operator(]) reserved(of) reserved(string) operator(=) - operator(()string<delimiter(')content(Licenser)delimiter(')>operator(,) string<delimiter(')content(Murphy)delimiter(')>operator(,) string<delimiter(')content(Sleeper)delimiter(')>operator(,) string<delimiter(')content(Leon)delimiter(')>operator(,) string<delimiter(')content(Great Admin)delimiter(')>operator(\);) - ident(RealNames)operator(:) reserved(array)operator([)integer(0)operator(..)integer(4)operator(]) reserved(of) reserved(string) operator(=) - operator(()string<delimiter(')content(Heinz)delimiter(')>operator(,) string<delimiter(')content(Korny)delimiter(')>operator(,) string<delimiter(')content(Sven)delimiter(')>operator(,) string<delimiter(')content(Simon)delimiter(')>operator(,) string<delimiter(')content(Korny ;-\))delimiter(')>operator(\);) -reserved(var) - ident(i)operator(:) ident(Integer)operator(;) - ident(s)operator(:) reserved(string)operator(;) -reserved(begin) - reserved(if) ident(Name) operator(=) ident(NoPreBlinkHint) reserved(then) - ident(Name) operator(:=) ident(PrefWin)operator(.)ident(UserNameE)operator(.)ident(Text)operator(;) - - reserved(if) ident(Trim)operator(()ident(Name)operator(\)) operator(=) string<delimiter(')delimiter(')> reserved(then) - ident(s) operator(:=) string<delimiter(')content(No name?)delimiter(')> - reserved(else) reserved(if) ident(SameText)operator(()ident(Trim)operator(()ident(Name)operator(\),) string<delimiter(')content(Pluto-User)delimiter(')>operator(\)) reserved(then) - ident(s) operator(:=) string<delimiter(')content(Hi!)delimiter(')> - reserved(else) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) integer(4) reserved(do) - reserved(if) ident(SameText)operator(()ident(Name)operator(,) ident(Alias)operator([)ident(i)operator(]\)) reserved(then) reserved(begin) - ident(s) operator(:=) string<delimiter(')content(Hi )delimiter(')> operator(+) ident(RealNames)operator([)ident(i)operator(]) operator(+) string<delimiter(')content(! This is a cYcnus.EasterEgg)delimiter(')>operator(;) - ident(Break)operator(;) reserved(end) - reserved(else) reserved(if) ident(Length)operator(()ident(Name)operator(\)) operator(>) integer(20) reserved(then) - ident(s) operator(:=) string<delimiter(')content(Hi )delimiter(')> operator(+) ident(Name) operator(+) - string<delimiter(')content(. What a name.)delimiter(')> - reserved(else) - ident(s) operator(:=) string<delimiter(')content(Hi )delimiter(')> operator(+) ident(Name) operator(+) char<delimiter(')content(!)delimiter(')>operator(;) - - ident(Result) operator(:=) ident(s)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(PrefMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(PrefWin)operator(.)ident(Show)operator(;) -reserved(end)operator(;) - -reserved(function) ident(TempDir)operator(:) reserved(string)operator(;) -reserved(begin) - ident(Result) operator(:=) ident(PlutoDir) operator(+) string<delimiter(')content(temp\\)delimiter(')>operator(;) - reserved(if) reserved(not) operator(()ident(DirectoryExists)operator(()ident(Result)operator(\)) reserved(or) ident(CreateDir)operator(()ident(Result)operator(\)\)) reserved(then) - ident(Result) operator(:=) ident(PlutoDir)operator(;) -reserved(end)operator(;) - -reserved(function) ident(PlutoIniFileName)operator(:) reserved(string)operator(;) - - reserved(function) ident(Default)operator(:) reserved(string)operator(;) - reserved(begin) - ident(Result) operator(:=) ident(MyDir) operator(+) string<delimiter(')content(pluto.ini)delimiter(')>operator(;) - reserved(end)operator(;) - -reserved(begin) - ident(Result) operator(:=) ident(SavedPlutoIniFileName)operator(;) - reserved(if) ident(Result) operator(<>) string<delimiter(')delimiter(')> reserved(then) - ident(Exit)operator(;) - -comment(// Result := Params.ReadString('ini', ''\);) - - reserved(if) ident(IsValidFileName)operator(()ident(Result)operator(\)) reserved(then) - ident(Result) operator(:=) ident(PlutoDir) operator(+) ident(Result) - reserved(else) - ident(Result) operator(:=) ident(Default)operator(;) - - ident(SavedPlutoIniFileName) operator(:=) ident(Result)operator(;) comment(//Faster in future calls) -reserved(end)operator(;) - -reserved(function) ident(PlutoUniPath)operator(:) reserved(string)operator(;) -reserved(begin) - comment(//Result := 'Reg: HKCU\\Software\\Pluto\\';) - ident(Result) operator(:=) string<delimiter(')content(Ini <)delimiter(')> operator(+) ident(PlutoIniFileName) operator(+) string<delimiter(')content(>:)delimiter(')>operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(EditBoolStrMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(NotePad)operator(()ident(PlutoDir) operator(+) ident(BoolStrFileName)operator(\);) - ident(ShowMessage)operator(()string<delimiter(')content(Click OK when you finished editing.)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content((Pluto will reload the Boolean Strings.\))delimiter(')>operator(\);) - ident(WorkWin)operator(.)ident(LoadBoolStr)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(SisyStarted)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -comment({var - NextSisyIndex: Integer; - NextSisy: TSisyThread; }) -reserved(begin) - comment({NextSisy := nil; - - with TSisyThread(Sender\) do begin - //AddHint(Format('%s started after %0.1f seconds', [Name, SecsPerRound]\), True\); - - with Sisys do begin - NextSisyIndex := IndexOf(Sender\) + 1; - if NextSisyIndex < Count then - NextSisy := Items[NextSisyIndex]; - end; - - if Assigned(NextSisy\) then - with NextSisy do - if not Started and Suspended then - Resume; - end; }) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(SisyTerminate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(if) ident(Assigned)operator(()ident(Sisys)operator(\)) reserved(then) - ident(Sisys)operator(.)ident(Delete)operator(()ident(Sisys)operator(.)ident(IndexOf)operator(()ident(Sender)operator(\)\);) - ident(AddHint)operator(()string<delimiter(')content(Sisyphus )delimiter(')> operator(+) ident(Quote)operator(()ident(TSisyThread)operator(()ident(Sender)operator(\).)ident(Name)operator(\)) operator(+) string<delimiter(')content( destroyed.)delimiter(')>operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(FormCloseQuery)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(CanClose)operator(:) ident(Boolean)operator(\);) -reserved(var) - ident(i)operator(:) ident(Integer)operator(;) - - reserved(procedure) ident(TerminateThread)operator(()ident(Thread)operator(:) ident(TThread)operator(;) ident(Name)operator(:) reserved(string)operator(\);) - reserved(const) - ident(ThreadTimeOut) operator(=) integer(3000)operator(;) - reserved(begin) - reserved(if) ident(Assigned)operator(()ident(Thread)operator(\)) reserved(then) - reserved(with) ident(Thread) reserved(do) reserved(begin) - ident(Priority) operator(:=) ident(tpNormal)operator(;) - ident(Terminate)operator(;) - reserved(while) ident(Suspended) reserved(do) ident(Resume)operator(;) comment(// ensure running) - reserved(if) integer(0) operator(<>) ident(WaitForSingleObject)operator(()ident(Handle)operator(,) ident(ThreadTimeOut)operator(\)) reserved(then) reserved(begin) - ident(ShowMessage)operator(()string<delimiter(')content(Timeout: Killing Thread: )delimiter(')> operator(+) ident(Name) operator(+) ident(EOL) operator(+) - string<delimiter(')content(This is a critical error and may cause memory leaks and crashes.)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(We recommend to reboot your system before you continue.)delimiter(')>operator(\);) - ident(Windows)operator(.)ident(TerminateThread)operator(()ident(Handle)operator(,) integer(0)operator(\);) - reserved(end) reserved(else) - ident(Thread)operator(.)ident(Free)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - -reserved(begin) - ident(CanClose) operator(:=) ident(False)operator(;) - - reserved(try) - ident(AddHint)operator(()string<delimiter(')content(Stopping SisyphusThreads...)delimiter(')>operator(\);) - reserved(if) ident(Assigned)operator(()ident(Sisys)operator(\)) reserved(then) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Sisys)operator(.)ident(Count)operator(-)integer(1) reserved(do) - ident(TSisyThread)operator(()ident(Sisys)operator([)ident(i)operator(]\).)ident(Suspend)operator(;) - ident(AddToLastHint)operator(()string<delimiter(')content(OK)delimiter(')>operator(\);) - - ident(AddHint)operator(()string<delimiter(')content(Wait for SpyThread...)delimiter(')>operator(\);) - ident(TerminateThread)operator(()ident(SpyThread)operator(,) string<delimiter(')content(SpyThread)delimiter(')>operator(\);) - ident(AddToLastHint)operator(()string<delimiter(')content(OK)delimiter(')>operator(\);) - - ident(AddHint)operator(()string<delimiter(')content(Wait for SisyphusThreads...)delimiter(')>operator(\);) - reserved(if) ident(Assigned)operator(()ident(Sisys)operator(\)) reserved(then) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Sisys)operator(.)ident(Count)operator(-)integer(1) reserved(do) reserved(begin) - ident(ChangeLastHint)operator(()string<delimiter(')content(Wait for SisyphusThreads...)delimiter(')> operator(+) ident(TSisyThread)operator(()ident(Sisys)operator([)ident(i)operator(]\).)ident(Name)operator(\);) - ident(TerminateThread)operator(()ident(TSisyThread)operator(()ident(Sisys)operator([)ident(i)operator(]\),) ident(TSisyThread)operator(()ident(Sisys)operator([)ident(i)operator(]\).)ident(Name)operator(\);) - reserved(end)operator(;) - ident(ChangeLastHint)operator(()string<delimiter(')content(Wait for SisyphusThreads...OK)delimiter(')>operator(\);) - reserved(except) - reserved(with) ident(WorkWin)operator(.)ident(HintLB)operator(.)ident(Items) reserved(do) - ident(ShowMessage)operator(()string<delimiter(')content(Error while trying to terminate threads.)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(Last Message:)delimiter(')> operator(+) ident(EOL) operator(+) - ident(Strings)operator([)ident(Count) operator(-) integer(1)operator(]\);) - ident(CanClose) operator(:=) ident(True)operator(;) - reserved(end)operator(;) - - ident(AddHint)operator(()string<delimiter(')content(Terminating successfull.)delimiter(')>operator(\);) - ident(CanClose) operator(:=) ident(True)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(FormClose)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Action)operator(:) ident(TCloseAction)operator(\);) - - reserved(procedure) ident(TryClose)operator(()ident(Win)operator(:) ident(TCustomForm)operator(\);) - reserved(begin) - reserved(if) ident(Assigned)operator(()ident(Win)operator(\)) reserved(and) ident(Win)operator(.)ident(Visible) reserved(then) - ident(Win)operator(.)ident(Close)operator(;) - reserved(end)operator(;) - -reserved(begin) - ident(MainReg)operator(.)ident(Free)operator(;) - - ident(Action) operator(:=) ident(caFree)operator(;) - - reserved(if) ident(DontSavePrefs) reserved(then) - ident(Exit)operator(;) - - ident(AddHint)operator(()string<delimiter(')content(Saving settings...)delimiter(')>operator(\);) - - reserved(try) - ident(TryClose)operator(()ident(WorkWin)operator(\);) - ident(TryClose)operator(()ident(ValuesWin)operator(\);) - ident(TryClose)operator(()ident(TreeWin)operator(\);) - ident(TryClose)operator(()ident(FindWin)operator(\);) - ident(TryClose)operator(()ident(SplashWin)operator(\);) - ident(TryClose)operator(()ident(PrefWin)operator(\);) - reserved(except) - ident(DontSavePrefs) operator(:=) ident(True)operator(;) comment(//try again without pref saving) - reserved(end)operator(;) - - reserved(with) ident(PlutoKey)operator(.)ident(GetKey)operator(()string<delimiter(')content(Window)delimiter(')>operator(\)) reserved(do) - reserved(try) - ident(WriteBool)operator(()string<delimiter(')content(Maximized)delimiter(')>operator(,) ident(WindowState) operator(=) ident(wsMaximized)operator(\);) - reserved(if) ident(WindowState) operator(=) ident(wsNormal) reserved(then) reserved(begin) - ident(WriteInteger)operator(()string<delimiter(')content(Left)delimiter(')>operator(,) ident(Left)operator(\);) - ident(WriteInteger)operator(()string<delimiter(')content(Top)delimiter(')>operator(,) ident(Top)operator(\);) - ident(WriteInteger)operator(()string<delimiter(')content(Width)delimiter(')>operator(,) ident(Width)operator(\);) - ident(WriteInteger)operator(()string<delimiter(')content(Height)delimiter(')>operator(,) ident(Height)operator(\);) - reserved(end)operator(;) - reserved(finally) - ident(Free)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(Plutoini1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(NotePad)operator(()ident(PlutoIniFileName)operator(\);) - ident(ShowMessage)operator(()string<delimiter(')content(Click OK when you finished editing.)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content((Pluto will reload )delimiter(')> operator(+) ident(PlutoIniFileName) operator(+) char<delimiter(')content(\))delimiter(')>operator(\);) - ident(PrefWin)operator(.)ident(PrefHost)operator(.)ident(Load)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(RegEdit2Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(RegEdit)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(SysEdit1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(SysEdit)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(NotePad1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(NotePad)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(WordPad1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(WordPad)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(OpenWinDir1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(ExploreFolder)operator(()ident(WinDir)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(OpenProgramFolder1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(ExploreFolder)operator(()ident(MyDir)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(ExitPluto1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(Close)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(Find1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(FindWin)operator(.)ident(SfRootKeyRB)operator(.)ident(Checked) operator(:=) ident(True)operator(;) - ident(FindWin)operator(.)ident(Show)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(FormPaint)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(if) ident(Started) reserved(and) reserved(not) ident(MainWinLoaded) reserved(then) reserved(begin) - ident(MainWinLoaded) operator(:=) ident(True)operator(;) - ident(Load)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(StatusBarDrawPanel)operator(()ident(StatusBar)operator(:) ident(TStatusBar)operator(;) - ident(Panel)operator(:) ident(TStatusPanel)operator(;) reserved(const) ident(Rect)operator(:) ident(TRect)operator(\);) -reserved(begin) - reserved(with) ident(StatusBar)operator(.)ident(Canvas) reserved(do) reserved(begin) - ident(Brush)operator(.)ident(Color) operator(:=) ident(clBlack)operator(;) - ident(FillRect)operator(()ident(Rect)operator(\);) - reserved(with) ident(Font) reserved(do) reserved(begin) - ident(Name) operator(:=) string<delimiter(')content(MS Sans Serif)delimiter(')>operator(;) - ident(Style) operator(:=) operator([];) - reserved(case) ident(Panel)operator(.)ident(Index) reserved(of) - integer(0)operator(:) reserved(if) ident(HintBlinkT)operator(.)ident(Enabled) reserved(then) - ident(Color) operator(:=) ident(clBrightRed) - reserved(else) - ident(Color) operator(:=) ident(clBrightSilver)operator(;) - integer(1)operator(:) ident(Color) operator(:=) ident(clWhite)operator(;) - integer(2)operator(:) ident(Color) operator(:=) ident(clCyan)operator(;) - integer(3)operator(:) ident(Color) operator(:=) ident(clBrightPurple)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - - reserved(if) ident(Panel)operator(.)ident(Alignment) operator(=) ident(taRightJustify) reserved(then) - ident(TextOut)operator(()ident(Rect)operator(.)ident(Right) operator(-) ident(TextWidth)operator(()ident(Panel)operator(.)ident(Text)operator(\),) ident(Rect)operator(.)ident(Top)operator(,) ident(Panel)operator(.)ident(Text)operator(\)) - reserved(else) - ident(TextOut)operator(()ident(Rect)operator(.)ident(Left)operator(,) ident(Rect)operator(.)ident(Top)operator(,) ident(Panel)operator(.)ident(Text)operator(\);) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(PathEKeyPress)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Char)operator(\);) -reserved(begin) - reserved(if) ident(Key) operator(=) char(#127) reserved(then) comment(//Silly key management) - ident(Key) operator(:=) char(#0)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(HintBlinkTTimer)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(StatusBar)operator(.)ident(Panels)operator([)integer(0)operator(].)ident(Text) operator(:=) string<delimiter(')content(Ready)delimiter(')>operator(;) - ident(StopHintBlinking)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(StopHintBlinking)operator(;) -reserved(begin) - ident(HintBlinkT)operator(.)ident(Enabled) operator(:=) ident(False)operator(;) - ident(PreBlinkHint) operator(:=) ident(NoPreBlinkHint)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(FindCLSID1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(FindCLSID)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(GotoCLSID1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(GotoCLSID)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(CommandLineParameters1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(NotePad)operator(()ident(PlutoDir) operator(+) string<delimiter(')content(Params.txt)delimiter(')>operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(DeleteTempFolder1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(if) ident(mrYes) operator(=) ident(MessageDlg)operator(()string<delimiter(')content(Deleting )delimiter(')> operator(+) ident(Quote)operator(()ident(TempDir) operator(+) string<delimiter(')content(*.*)delimiter(')> operator(+) ident(EOL)operator(,) char<delimiter(')content(")delimiter(')>operator(\)) operator(+) - string<delimiter(')content(Are you sure?)delimiter(')>operator(,) ident(mtConfirmation)operator(,) operator([)ident(mbYes)operator(,) ident(mbCancel)operator(],) integer(0)operator(\)) reserved(then) - ident(DeleteFiles)operator(()ident(TempDir) operator(+) string<delimiter(')content(*.*)delimiter(')>operator(,) ident(False)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(CurrentDir1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(ShowMessage)operator(()string<delimiter(')content(MyDir: )delimiter(')> operator(+) ident(MyDir) operator(+) ident(EOL) operator(+) - string<delimiter(')content(PlutoDir: )delimiter(')> operator(+) ident(PlutoDir) operator(+) ident(EOL) operator(+) - string<delimiter(')content(CurrentDir: )delimiter(')> operator(+) ident(GetCurrentDir) operator(+) ident(EOL) operator(+) - string<delimiter(')content(Params: )delimiter(')> operator(+) ident(EOL) operator(+) - ident(GetParams)operator(()ident(EOL)operator(\)\);) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(RepairPluto155bBug1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(Msg)operator(:) reserved(string)operator(;) - ident(Reg)operator(:) ident(TXRegistry)operator(;) -reserved(begin) - ident(Reg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(;) - - reserved(try) - ident(Reg)operator(.)ident(RootKey) operator(:=) ident(HKCU)operator(;) - ident(Reg)operator(.)ident(OpenKey)operator(()string<delimiter(')content(Software)delimiter(')>operator(\);) - ident(Msg) operator(:=) string<delimiter(')delimiter(')>operator(;) - reserved(if) ident(Reg)operator(.)ident(KeyExists)operator(()string<delimiter(')content(Sisyphus)delimiter(')>operator(\)) reserved(then) - ident(Msg) operator(:=) ident(Msg) operator(+) string<delimiter(')content(HKCU\\Software\\Sisyphus)delimiter(')> operator(+) ident(EOL)operator(;) - reserved(if) ident(Reg)operator(.)ident(KeyExists)operator(()string<delimiter(')content(Main)delimiter(')>operator(\)) reserved(then) - ident(Msg) operator(:=) ident(Msg) operator(+) string<delimiter(')content(HKCU\\Software\\Main)delimiter(')> operator(+) ident(EOL)operator(;) - reserved(if) ident(Reg)operator(.)ident(KeyExists)operator(()string<delimiter(')content(Spy)delimiter(')>operator(\)) reserved(then) - ident(Msg) operator(:=) ident(Msg) operator(+) string<delimiter(')content(HKCU\\Software\\Spy)delimiter(')> operator(+) ident(EOL)operator(;) - reserved(if) ident(Reg)operator(.)ident(KeyExists)operator(()string<delimiter(')content(View)delimiter(')>operator(\)) reserved(then) - ident(Msg) operator(:=) ident(Msg) operator(+) string<delimiter(')content(HKCU\\Software\\View)delimiter(')> operator(+) ident(EOL)operator(;) - reserved(if) ident(Msg) operator(=) string<delimiter(')delimiter(')> reserved(then) reserved(begin) - ident(ShowMessage)operator(()string<delimiter(')content(No bug detected :-\))delimiter(')>operator(\);) - reserved(end) reserved(else) reserved(begin) - ident(Msg) operator(:=) - string<delimiter(')content(Hi folks!)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(We are very sorry: A bug in Pluto made some components in the Edit)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(window save their values to the regsitry instead of the ini file.)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(If you want to repair that, you have to delete the following keys:)delimiter(')> operator(+) ident(EOL) operator(+) - ident(EOL) operator(+) - ident(Msg) operator(+) - ident(EOL) operator(+) - string<delimiter(')content(This is not dangerous at all, but if you are interested in having)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(a clean registry, you should delete this useless keys.)delimiter(')> operator(+) ident(EOL) operator(+) - ident(EOL) operator(+) - string<delimiter(')content(You surely noticed that this key names are rubish because they are)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(in the level that is normally used by programs.)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(If you have programs installed that use this keys for their)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(preferences, you may get problems when deleting the keys!)delimiter(')> operator(+) ident(EOL) operator(+) - ident(EOL) operator(+) - string<delimiter(')content(So, now you have to decide what to do:)delimiter(')> operator(+) ident(EOL) operator(+) - ident(EOL) operator(+) - string<delimiter(')content(Yes: Delete the keys. You have to confirm the deleting of each key.)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(No: Jump to the Software key and delete manually.)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(Cancel: Do nothing.)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(Yes to All: Delete all keys.)delimiter(')>operator(;) - - reserved(case) ident(MessageDlg)operator(()ident(Msg)operator(,) ident(mtWarning)operator(,) operator([)ident(mbYes)operator(,) ident(mbNo)operator(,) ident(mbYesToAll)operator(,) ident(mbCancel)operator(],) integer(0)operator(\)) reserved(of) - ident(mrYes)operator(:) reserved(begin) - reserved(if) ident(Reg)operator(.)ident(KeyExists)operator(()string<delimiter(')content(Main)delimiter(')>operator(\)) - reserved(and) operator(()ident(mrYes)operator(=)ident(MessageDlg)operator(()string<delimiter(')content(Delete HKU\\Software\\Main ?)delimiter(')>operator(,) - ident(mtWarning)operator(,) operator([)ident(mbYes)operator(,) ident(mbNo)operator(],) integer(0)operator(\)\)) reserved(then) - ident(Reg)operator(.)ident(DeleteKey)operator(()string<delimiter(')content(Main)delimiter(')>operator(\);) - - reserved(if) ident(Reg)operator(.)ident(KeyExists)operator(()string<delimiter(')content(Sisyphus)delimiter(')>operator(\)) - reserved(and) operator(()ident(mrYes)operator(=)ident(MessageDlg)operator(()string<delimiter(')content(Delete HKU\\Software\\Sisyphus ?)delimiter(')>operator(,) - ident(mtWarning)operator(,) operator([)ident(mbYes)operator(,) ident(mbNo)operator(],) integer(0)operator(\)\)) reserved(then) - ident(Reg)operator(.)ident(DeleteKey)operator(()string<delimiter(')content(Sisyphus)delimiter(')>operator(\);) - - reserved(if) ident(Reg)operator(.)ident(KeyExists)operator(()string<delimiter(')content(Spy)delimiter(')>operator(\)) - reserved(and) operator(()ident(mrYes)operator(=)ident(MessageDlg)operator(()string<delimiter(')content(Delete HKU\\Software\\Spy ?)delimiter(')>operator(,) - ident(mtWarning)operator(,) operator([)ident(mbYes)operator(,) ident(mbNo)operator(],) integer(0)operator(\)\)) reserved(then) - ident(Reg)operator(.)ident(DeleteKey)operator(()string<delimiter(')content(Spy)delimiter(')>operator(\);) - - reserved(if) ident(Reg)operator(.)ident(KeyExists)operator(()string<delimiter(')content(View)delimiter(')>operator(\)) - reserved(and) operator(()ident(mrYes)operator(=)ident(MessageDlg)operator(()string<delimiter(')content(Delete HKU\\Software\\View ?)delimiter(')>operator(,) - ident(mtWarning)operator(,) operator([)ident(mbYes)operator(,) ident(mbNo)operator(],) integer(0)operator(\)\)) reserved(then) - ident(Reg)operator(.)ident(DeleteKey)operator(()string<delimiter(')content(View)delimiter(')>operator(\);) - reserved(end)operator(;) - - ident(mrYesToAll)operator(:) reserved(begin) - ident(Reg)operator(.)ident(DeleteKey)operator(()string<delimiter(')content(Main)delimiter(')>operator(\);) - ident(Reg)operator(.)ident(DeleteKey)operator(()string<delimiter(')content(Sisyphus)delimiter(')>operator(\);) - ident(Reg)operator(.)ident(DeleteKey)operator(()string<delimiter(')content(Spy)delimiter(')>operator(\);) - ident(Reg)operator(.)ident(DeleteKey)operator(()string<delimiter(')content(View)delimiter(')>operator(\);) - reserved(end)operator(;) - - ident(mrNo)operator(:) reserved(begin) - ident(TreeWin)operator(.)ident(SetFocus)operator(;) - ident(GotoKey)operator(()string<delimiter(')content(HKCU\\Software\\)delimiter(')>operator(\);) - reserved(end)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - - reserved(finally) - ident(Reg)operator(.)ident(Free)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(BackupRegistryscanreg1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(ExecFile)operator(()string<delimiter(')content(scanreg)delimiter(')>operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(Username1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(ShowMessage)operator(()ident(UserName)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(ToDoMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(NotePad)operator(()ident(PlutoDir) operator(+) string<delimiter(')content(ToDo.txt)delimiter(')>operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(MailLinkMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(MailTo)operator(()ident(TMenuItem)operator(()ident(Sender)operator(\).)ident(Caption)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(IjustwantCONTACT1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(MailTo)operator(()string<delimiter(')content(pluto@cYcnus.de)delimiter(')>operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(ExternalHexEditMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(ExecFile)operator(()ident(PrefWin)operator(.)ident(ExternalHexEditE)operator(.)ident(Text)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(AnotherPluto1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(ExecFile)operator(()ident(Application)operator(.)ident(ExeName)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(Path1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) -preprocessor({$IFDEF UNIKEY}) - ident(UserUniPath) operator(:=) ident(InputBox)operator(()string<delimiter(')content(UniKey)delimiter(')>operator(,) string<delimiter(')content(Input an UniPath.)delimiter(')> operator(+) ident(EOL) operator(+) - ident(EOL) operator(+) - string<delimiter(')content(No idea? Try one of these: )delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(WinAmpVisColor <viscolor.txt>:)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(Params:)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(Reg: HKCU)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(Ini <)delimiter(')> operator(+) ident(MyDir) operator(+) string<delimiter(')content(pluto.ini>:)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(Ini <)delimiter(')> operator(+) ident(MyDir) operator(+) string<delimiter(')content(pluto.ini>:[View])delimiter(')> operator(+) ident(EOL)operator(,) - ident(UserUniPath)operator(\);) -preprocessor({$ENDIF}) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(RegisterPlugIns1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) -preprocessor({$IFDEF UNIKEY}) - reserved(if) ident(UniPluginOD)operator(.)ident(Execute) reserved(then) - ident(RegisterUniClass)operator(()ident(UniPluginOD)operator(.)ident(FileName)operator(\);) -preprocessor({$ENDIF}) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(FormResize)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(ArrangeIcons)operator(;) - ident(ArrangePlutoStyle)operator(;) - ident(WorkWin)operator(.)ident(WindowState) operator(:=) ident(wsNormal)operator(;) - ident(ValuesWin)operator(.)ident(WindowState) operator(:=) ident(wsNormal)operator(;) - ident(TreeWin)operator(.)ident(WindowState) operator(:=) ident(wsNormal)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(SwapLM_CUBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(Path)operator(:) reserved(string)operator(;) -reserved(begin) - ident(Path) operator(:=) ident(TraceKey)operator(()ident(PathE)operator(.)ident(Text)operator(,) ident(uhShortcuts)operator(\);) - reserved(if) ident(SwapHKU_HKLM)operator(()ident(Path)operator(\)) reserved(then) reserved(begin) - ident(PathE)operator(.)ident(Text) operator(:=) ident(Path)operator(;) - ident(UserGotoKey)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(ShowLoadreport1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(NotePad)operator(()ident(MyDir) operator(+) string<delimiter(')content(loadreport.txt)delimiter(')>operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(KillPluto1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(Application)operator(.)ident(Terminate)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(ShowPlatform1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(ShowMessage)operator(()ident(Format)operator(()string<delimiter(')content(Platform: %s)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(Versin: %d.%d Build %d)delimiter(')>operator(,) - operator([)ident(PlatformStrings)operator([)ident(Win32Platform)operator(],) - ident(Win32MajorVersion)operator(,) ident(Win32MinorVersion)operator(,) ident(Win32BuildNumber)operator(]\)\);) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(MSConfig1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(ExecFile)operator(()string<delimiter(')content(msconfig)delimiter(')>operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(TimetoRelaxMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(RelaxFile)operator(:) reserved(string)operator(;) -reserved(begin) - reserved(with) ident(PlutoKey)operator(.)ident(GetKey)operator(()string<delimiter(')content(Main)delimiter(')>operator(\)) reserved(do) - reserved(try) - ident(RelaxFile) operator(:=) ident(ReadString)operator(()string<delimiter(')content(Relax)delimiter(')>operator(\);) - reserved(finally) - ident(Free)operator(;) - reserved(end)operator(;) - - reserved(if) ident(RelaxFile) operator(=) string<delimiter(')delimiter(')> reserved(then) - ident(ShowMessage)operator(()string<delimiter(')content(This menu item can be used for something that lets you relax,)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(for example Diablo2, you favorite song or the latest news about the)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(decreasing AOL member numbers.)delimiter(')> operator(+) ident(EOL) operator(+) - ident(EOL) operator(+) - string<delimiter(')content(Feel free to use everything you want.)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(Open the pluto.ini (CTRL+I\) and add a new value "Relax" in the "Main")delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(section.)delimiter(')> operator(+) ident(EOL) operator(+) - ident(EOL) operator(+) - string<delimiter(')content(And don)char('')content(t forget:)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(R E L A X ! ! !)delimiter(')>operator(\)) - reserved(else) - ident(ExecFile)operator(()ident(RelaxFile)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(OnSisyChange)operator(()ident(Sender)operator(:) ident(TSisyThread)operator(;) ident(Change)operator(:) ident(TSisyChange)operator(\);) - - reserved(procedure) ident(UpdateValue)operator(;) - reserved(var) - ident(Reg)operator(:) ident(TXRegistry)operator(;) - ident(Index)operator(:) ident(Integer)operator(;) - reserved(begin) - reserved(if) reserved(not) ident(SameRegPath)operator(()ident(ExRegFullKey)operator(()ident(Change)operator(.)ident(Path)operator(\),) ident(PathOfNode)operator(()ident(RegTV)operator(.)ident(Selected)operator(\)\)) reserved(then) - ident(Exit)operator(;) - - ident(Reg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(;) - reserved(try) - ident(Reg)operator(.)ident(RootKey) operator(:=) ident(HKEYOfStr)operator(()ident(ExRegRoot)operator(()ident(Change)operator(.)ident(Path)operator(\)\);) - reserved(if) ident(Reg)operator(.)ident(OpenKey)operator(()ident(ExRegKey)operator(()ident(Change)operator(.)ident(Path)operator(\)\)) reserved(then) - reserved(with) ident(ValuesWin) reserved(do) reserved(begin) - ident(Index) operator(:=) ident(FindItemByRealName)operator(()ident(ExRegValue)operator(()ident(Change)operator(.)ident(Path)operator(\)\);) - reserved(if) ident(Index) operator(>) operator(-)integer(1) reserved(then) reserved(begin) - reserved(if) ident(Change)operator(.)ident(Typ) operator(=) ident(cValueMinus) reserved(then) - ident(ValueList)operator(.)ident(Items)operator(.)ident(Delete)operator(()ident(Index)operator(\)) - reserved(else) reserved(if) ident(Change)operator(.)ident(Typ) operator(=) ident(cContextChange) reserved(then) - ident(UpdateValue)operator(()ident(Reg)operator(,) ident(ValueList)operator(.)ident(Items)operator([)ident(Index)operator(]\);) - reserved(end) reserved(else) reserved(if) ident(Change)operator(.)ident(Typ) operator(=) ident(cValuePlus) reserved(then) - ident(AddValue)operator(()ident(Reg)operator(,) ident(ExRegValue)operator(()ident(Change)operator(.)ident(Path)operator(\)\);) - reserved(end)operator(;) - reserved(finally) - ident(Reg)operator(.)ident(Free)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - -reserved(begin) - ident(AddHint)operator(()ident(Sender)operator(.)ident(Name) operator(+) string<delimiter(')content( notified )delimiter(')> operator(+) ident(Change)operator(.)ident(Path)operator(\);) - reserved(if) ident(Change)operator(.)ident(Typ) reserved(in) operator([)ident(cValueMinus)operator(,) ident(cValuePlus)operator(,) ident(cContextChange)operator(]) reserved(then) - ident(UpdateValue)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(OnSisyValuePlus)operator(()ident(Sender)operator(:) ident(TSisyThread)operator(;) ident(Change)operator(:) ident(TSisyChange)operator(\);) -reserved(var) - ident(Reg)operator(:) ident(TXRegistry)operator(;) -reserved(begin) - reserved(if) reserved(not) ident(SameRegPath)operator(()ident(ExRegFullKey)operator(()ident(Change)operator(.)ident(Path)operator(\),) ident(PathOfNode)operator(()ident(RegTV)operator(.)ident(Selected)operator(\)\)) reserved(then) - ident(Exit)operator(;) - - ident(Reg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(;) - reserved(try) - ident(Reg)operator(.)ident(RootKey) operator(:=) ident(HKEYOfStr)operator(()ident(ExRegRoot)operator(()ident(Change)operator(.)ident(Path)operator(\)\);) - reserved(if) ident(Reg)operator(.)ident(OpenKey)operator(()ident(ExRegKey)operator(()ident(Change)operator(.)ident(Path)operator(\)\)) reserved(then) - ident(ValuesWin)operator(.)ident(AddValue)operator(()ident(Reg)operator(,) ident(ExRegValue)operator(()ident(Change)operator(.)ident(Path)operator(\)\);) - reserved(finally) - ident(Reg)operator(.)ident(Free)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(OnSisyValueMinus)operator(()ident(Sender)operator(:) ident(TSisyThread)operator(;) ident(Change)operator(:) ident(TSisyChange)operator(\);) -reserved(var) - ident(Reg)operator(:) ident(TXRegistry)operator(;) - ident(Index)operator(:) ident(Integer)operator(;) -reserved(begin) - reserved(if) reserved(not) ident(SameRegPath)operator(()ident(ExRegFullKey)operator(()ident(Change)operator(.)ident(Path)operator(\),) ident(PathOfNode)operator(()ident(RegTV)operator(.)ident(Selected)operator(\)\)) reserved(then) - ident(Exit)operator(;) - - ident(Reg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(;) - reserved(try) - ident(Reg)operator(.)ident(RootKey) operator(:=) ident(HKEYOfStr)operator(()ident(ExRegRoot)operator(()ident(Change)operator(.)ident(Path)operator(\)\);) - reserved(if) ident(Reg)operator(.)ident(OpenKey)operator(()ident(ExRegKey)operator(()ident(Change)operator(.)ident(Path)operator(\)\)) reserved(then) - reserved(with) ident(ValuesWin) reserved(do) reserved(begin) - ident(Index) operator(:=) ident(FindItemByRealName)operator(()ident(ExRegValue)operator(()ident(Change)operator(.)ident(Path)operator(\)\);) - reserved(if) ident(Index) operator(>) operator(-)integer(1) reserved(then) - ident(ValueList)operator(.)ident(Items)operator(.)ident(Delete)operator(()ident(Index)operator(\);) - reserved(end)operator(;) - reserved(finally) - ident(Reg)operator(.)ident(Free)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TMainWin)operator(.)ident(OnSisyContextChange)operator(()ident(Sender)operator(:) ident(TSisyThread)operator(;) ident(Change)operator(:) ident(TSisyChange)operator(\);) -reserved(var) - ident(Reg)operator(:) ident(TXRegistry)operator(;) - ident(Index)operator(:) ident(Integer)operator(;) -reserved(begin) - reserved(if) reserved(not) ident(SameRegPath)operator(()ident(ExRegFullKey)operator(()ident(Change)operator(.)ident(Path)operator(\),) ident(PathOfNode)operator(()ident(RegTV)operator(.)ident(Selected)operator(\)\)) reserved(then) - ident(Exit)operator(;) - - ident(Reg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(;) - reserved(try) - ident(Reg)operator(.)ident(RootKey) operator(:=) ident(HKEYOfStr)operator(()ident(ExRegRoot)operator(()ident(Change)operator(.)ident(Path)operator(\)\);) - reserved(if) ident(Reg)operator(.)ident(OpenKey)operator(()ident(ExRegKey)operator(()ident(Change)operator(.)ident(Path)operator(\)\)) reserved(then) - reserved(with) ident(ValuesWin) reserved(do) reserved(begin) - ident(Index) operator(:=) ident(FindItemByRealName)operator(()ident(ExRegValue)operator(()ident(Change)operator(.)ident(Path)operator(\)\);) - reserved(if) ident(Index) operator(>) operator(-)integer(1) reserved(then) - ident(UpdateValue)operator(()ident(Reg)operator(,) ident(ValueList)operator(.)ident(Items)operator([)ident(Index)operator(]\);) - reserved(end)operator(;) - reserved(finally) - ident(Reg)operator(.)ident(Free)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(end)operator(.) -reserved(unit) ident(PrefU)operator(;) - -reserved(interface) - -reserved(uses) - ident(Windows)operator(,) ident(Messages)operator(,) ident(SysUtils)operator(,) ident(Variants)operator(,) ident(Classes)operator(,) ident(Graphics)operator(,) ident(Controls)operator(,) ident(Forms)operator(,) - ident(Dialogs)operator(,) ident(ComCtrls)operator(,) ident(ExtCtrls)operator(,) ident(StdCtrls)operator(,) ident(PlutoConst)operator(,) ident(NewPanels)operator(,) ident(PrefTools)operator(,) - ident(YTools)operator(,) ident(YTypes)operator(,) ident(start)operator(,) ident(XReg)operator(,) ident(LinkLabel)operator(;) - -reserved(type) - ident(TPrefWin) operator(=) reserved(class)operator(()ident(TForm)operator(\)) - ident(PrefPC)operator(:) ident(TPageControl)operator(;) - ident(CommonPage)operator(:) ident(TTabSheet)operator(;) - ident(KeyPage)operator(:) ident(TTabSheet)operator(;) - ident(DataPage)operator(:) ident(TTabSheet)operator(;) - ident(KeysBP)operator(:) ident(TBorderPanel)operator(;) - ident(GroupBox3)operator(:) ident(TGroupBox)operator(;) - ident(MainPrevBP)operator(:) ident(TBorderPanel)operator(;) - ident(GroupBox4)operator(:) ident(TGroupBox)operator(;) - ident(BorderPanel6)operator(:) ident(TBorderPanel)operator(;) - ident(GroupBox6)operator(:) ident(TGroupBox)operator(;) - ident(SortKeysCB)operator(:) ident(TPrefCheckBox)operator(;) - ident(PrefHost)operator(:) ident(TPrefHost)operator(;) - ident(MainPreviewCB)operator(:) ident(TPrefCheckBox)operator(;) - ident(SplashScreenCB)operator(:) ident(TPrefCheckBox)operator(;) - ident(PrefValuesPC)operator(:) ident(TPageControl)operator(;) - ident(StringPage)operator(:) ident(TTabSheet)operator(;) - ident(MultiStringPage)operator(:) ident(TTabSheet)operator(;) - ident(IntPage)operator(:) ident(TTabSheet)operator(;) - ident(BinaryPage)operator(:) ident(TTabSheet)operator(;) - ident(BorderPanel8)operator(:) ident(TBorderPanel)operator(;) - ident(GroupBox8)operator(:) ident(TGroupBox)operator(;) - ident(ShowDwordAsHex)operator(:) ident(TPrefCheckBox)operator(;) - ident(BorderPanel7)operator(:) ident(TBorderPanel)operator(;) - ident(GroupBox7)operator(:) ident(TGroupBox)operator(;) - ident(CountZeroByteCB)operator(:) ident(TPrefCheckBox)operator(;) - ident(BorderPanel1)operator(:) ident(TBorderPanel)operator(;) - ident(GroupBox2)operator(:) ident(TGroupBox)operator(;) - ident(UseExtendedModelCB)operator(:) ident(TPrefCheckBox)operator(;) - ident(BorderPanel2)operator(:) ident(TBorderPanel)operator(;) - ident(GroupBox1)operator(:) ident(TGroupBox)operator(;) - ident(ShowAsBinaryCB)operator(:) ident(TPrefCheckBox)operator(;) - ident(ShowBinaryAsRG)operator(:) ident(TPrefRadioGroup)operator(;) - ident(Smart4BBCB)operator(:) ident(TPrefCheckBox)operator(;) - ident(DWordPreviewL)operator(:) ident(TLabel)operator(;) - ident(Label4)operator(:) ident(TLabel)operator(;) - ident(Label5)operator(:) ident(TLabel)operator(;) - ident(Label6)operator(:) ident(TLabel)operator(;) - ident(Label7)operator(:) ident(TLabel)operator(;) - ident(UserNameE)operator(:) ident(TPrefEdit)operator(;) - ident(Label8)operator(:) ident(TLabel)operator(;) - ident(MainPreviewE)operator(:) ident(TPrefEdit)operator(;) - ident(Label12)operator(:) ident(TLabel)operator(;) - ident(DefaultIconPreviewCB)operator(:) ident(TPrefCheckBox)operator(;) - ident(KeyInfoPreviewCB)operator(:) ident(TPrefCheckBox)operator(;) - ident(SelectExternalHexEditOD)operator(:) ident(TOpenDialog)operator(;) - ident(BorderPanel3)operator(:) ident(TBorderPanel)operator(;) - ident(GroupBox9)operator(:) ident(TGroupBox)operator(;) - ident(IntegrationPage)operator(:) ident(TTabSheet)operator(;) - ident(BorderPanel4)operator(:) ident(TBorderPanel)operator(;) - ident(GroupBox5)operator(:) ident(TGroupBox)operator(;) - ident(Label11)operator(:) ident(TLabel)operator(;) - ident(SelectExternalHexEditB)operator(:) ident(TButton)operator(;) - ident(RunExternalHexEditB)operator(:) ident(TButton)operator(;) - ident(ExternalHexEditE)operator(:) ident(TPrefEdit)operator(;) - ident(Label13)operator(:) ident(TLabel)operator(;) - ident(BorderPanel5)operator(:) ident(TBorderPanel)operator(;) - ident(GroupBox10)operator(:) ident(TGroupBox)operator(;) - ident(Label15)operator(:) ident(TLabel)operator(;) - ident(RegisterAppCB)operator(:) ident(TCheckBox)operator(;) - ident(Label3)operator(:) ident(TLabel)operator(;) - ident(Memo1)operator(:) ident(TMemo)operator(;) - ident(ExpandStringsRG)operator(:) ident(TPrefRadioGroup)operator(;) - ident(QuotersE)operator(:) ident(TPrefEdit)operator(;) - ident(Label1)operator(:) ident(TLabel)operator(;) - ident(StringPreviewL)operator(:) ident(TLabel)operator(;) - ident(ShowLineCountCB)operator(:) ident(TPrefCheckBox)operator(;) - ident(ShowTreeViewLinesCB)operator(:) ident(TPrefCheckBox)operator(;) - ident(ValuePage)operator(:) ident(TTabSheet)operator(;) - ident(BorderPanel10)operator(:) ident(TBorderPanel)operator(;) - ident(GroupBox12)operator(:) ident(TGroupBox)operator(;) - ident(ShowListViewGridCB)operator(:) ident(TPrefCheckBox)operator(;) - ident(Label9)operator(:) ident(TLabel)operator(;) - ident(DefaultValueNameE)operator(:) ident(TPrefEdit)operator(;) - ident(Label10)operator(:) ident(TLabel)operator(;) - ident(GotoPlutoKeyB)operator(:) ident(TButton)operator(;) - ident(ColorPanel2)operator(:) ident(TColorPanel)operator(;) - ident(LinkLabel1)operator(:) ident(TLinkLabel)operator(;) - ident(SmartExpandCB)operator(:) ident(TPrefCheckBox)operator(;) - ident(KeysSingleClickCB)operator(:) ident(TPrefCheckBox)operator(;) - ident(ValuesSingleClickCB)operator(:) ident(TPrefCheckBox)operator(;) - ident(ShowProgressCB)operator(:) ident(TPrefCheckBox)operator(;) - ident(ColorPanel1)operator(:) ident(TColorPanel)operator(;) - ident(Label2)operator(:) ident(TLabel)operator(;) - ident(ReloadB)operator(:) ident(TButton)operator(;) - ident(DefaultB)operator(:) ident(TButton)operator(;) - ident(SaveB)operator(:) ident(TButton)operator(;) - reserved(procedure) ident(PrefPCDrawTab)operator(()ident(Control)operator(:) ident(TCustomTabControl)operator(;) - ident(TabIndex)operator(:) ident(Integer)operator(;) reserved(const) ident(Rect)operator(:) ident(TRect)operator(;) ident(Active)operator(:) ident(Boolean)operator(\);) - reserved(procedure) ident(PrefHostLoaded)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(StandardPreviewChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(DataPreviewChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(UserNameEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(FormKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) - ident(Shift)operator(:) ident(TShiftState)operator(\);) - reserved(procedure) ident(FormDeactivate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(FormActivate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(PrefValuesPCDrawTab)operator(()ident(Control)operator(:) ident(TCustomTabControl)operator(;) - ident(TabIndex)operator(:) ident(Integer)operator(;) reserved(const) ident(Rect)operator(:) ident(TRect)operator(;) ident(Active)operator(:) ident(Boolean)operator(\);) - reserved(procedure) ident(ShowDwordAsHexClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(MainPreviewEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(FormCreate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(ActivateIt)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(DeActivateIt)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(ReloadBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(RunExternalHexEditBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(SelectExternalHexEditBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(ExternalHexEditEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(DefaultBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(RegisterAppCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(SaveBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(StringPreviewChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(ShowTreeViewLinesCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(ShowListViewGridCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(DefaultValueNameEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(LoadPrefs)operator(;) - reserved(procedure) ident(UseExtendedModelCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(IntegrationPageShow)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(GotoPlutoKeyBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(FormShow)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(KeysSingleClickCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(ValuesSingleClickCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(QuotersEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(SplashScreenCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(SaveBMouseMove)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(;) ident(X)operator(,) - ident(Y)operator(:) ident(Integer)operator(\);) - directive(public) - ident(StringQuoterBegin)operator(,) ident(StringQuoterEnd)operator(:) reserved(string)operator(;) - reserved(end)operator(;) - -reserved(var) - ident(PrefWin)operator(:) ident(TPrefWin)operator(;) - -reserved(implementation) - -reserved(uses) - ident(TreeU)operator(,) ident(ValuesU)operator(,) ident(Splash)operator(,) ident(plutomain)operator(,) ident(WorkU)operator(;) - -preprocessor({$R *.dfm}) - -reserved(procedure) ident(TPrefWin)operator(.)ident(PrefPCDrawTab)operator(()ident(Control)operator(:) ident(TCustomTabControl)operator(;) - ident(TabIndex)operator(:) ident(Integer)operator(;) reserved(const) ident(Rect)operator(:) ident(TRect)operator(;) ident(Active)operator(:) ident(Boolean)operator(\);) -reserved(var) - ident(PC)operator(:) ident(TPageControl)operator(;) - ident(Page)operator(:) ident(TTabSheet)operator(;) -reserved(begin) - ident(PC) operator(:=) ident(TPageControl)operator(()ident(Control)operator(\);) - ident(Page) operator(:=) ident(PC)operator(.)ident(Pages)operator([)ident(TabIndex)operator(];) - reserved(with) ident(PC)operator(.)ident(Canvas)operator(.)ident(Font) reserved(do) reserved(begin) - reserved(if) ident(Page)operator(.)ident(Caption) operator(=) string<delimiter(')content(Common)delimiter(')> reserved(then) - ident(Color) operator(:=) ident(clWhite) - reserved(else) reserved(if) ident(Page)operator(.)ident(Caption) operator(=) string<delimiter(')content(Keys)delimiter(')> reserved(then) - ident(Color) operator(:=) ident(clBrightCyan) - reserved(else) reserved(if) ident(Page)operator(.)ident(Caption) operator(=) string<delimiter(')content(Values)delimiter(')> reserved(then) - ident(Color) operator(:=) ident(clBrightPurple) - reserved(else) reserved(if) ident(Page)operator(.)ident(Caption) operator(=) string<delimiter(')content(Data)delimiter(')> reserved(then) - ident(Color) operator(:=) ident(clBrightBlue) - reserved(else) reserved(if) ident(Page)operator(.)ident(Caption) operator(=) string<delimiter(')content(System)delimiter(')> reserved(then) - ident(Color) operator(:=) ident(clBrightYellow) - reserved(else) - ident(Color) operator(:=) ident(clWhite)operator(;) - reserved(end)operator(;) - - reserved(with) ident(PC)operator(.)ident(Canvas) reserved(do) - reserved(if) ident(Active) reserved(then) reserved(begin) - ident(Font)operator(.)ident(Style) operator(:=) operator([)ident(fsBold)operator(];) - ident(Brush)operator(.)ident(Color) operator(:=) ident(clDarkGray)operator(;) - ident(FillRect)operator(()ident(Rect)operator(\);) - ident(TextOut)operator(()ident(Rect)operator(.)ident(Left) operator(+) integer(5)operator(,) ident(Rect)operator(.)ident(Top) operator(+) integer(3)operator(,) ident(Page)operator(.)ident(Caption)operator(\);) - reserved(end) reserved(else) reserved(begin) - ident(Font)operator(.)ident(Style) operator(:=) operator([];) - ident(Brush)operator(.)ident(Color) operator(:=) ident(clDarkGray)operator(;) - ident(FillRect)operator(()ident(Rect)operator(\);) - ident(TextOut)operator(()ident(Rect)operator(.)ident(Left) operator(+) integer(3)operator(,) ident(Rect)operator(.)ident(Top) operator(+) integer(2)operator(,) ident(Page)operator(.)ident(Caption)operator(\);) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TPrefWin)operator(.)ident(PrefHostLoaded)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(PrefHost)operator(.)ident(KeyName) operator(:=) ident(PlutoUniPath)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TPrefWin)operator(.)ident(StandardPreviewChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(if) ident(Started) reserved(then) - ident(RegTV)operator(.)ident(Repaint)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TPrefWin)operator(.)ident(DataPreviewChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(if) reserved(not) ident(Started) reserved(then) - ident(Exit)operator(;) - - ident(ValuesWin)operator(.)ident(UpdateValues)operator(;) - ident(RegTV)operator(.)ident(Repaint)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TPrefWin)operator(.)ident(UserNameEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(StatusBar)operator(.)ident(Panels)operator([)integer(0)operator(].)ident(Text) operator(:=) ident(MainWin)operator(.)ident(Greeting)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TPrefWin)operator(.)ident(FormKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) - ident(Shift)operator(:) ident(TShiftState)operator(\);) -reserved(begin) - reserved(if) ident(Key) operator(=) ident(VK_ESCAPE) reserved(then) - ident(Close)operator(;) - - reserved(if) ident(Key) operator(=) ident(VK_SCROLL) reserved(then) - ident(MainWin)operator(.)ident(FormKeyDown)operator(()ident(Sender)operator(,) ident(Key)operator(,) ident(Shift)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TPrefWin)operator(.)ident(FormDeactivate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(if) ident(ActiveControl)operator(.)ident(Tag) operator(=) ident(EditControlFlag) reserved(then) - ident(DeActivateThis)operator(()ident(ActiveControl)operator(\);) - - ident(AlphaBlendValue) operator(:=) integer(127)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TPrefWin)operator(.)ident(FormActivate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(if) ident(Started) reserved(and) operator(()ident(ActiveControl)operator(.)ident(Tag) operator(=) ident(EditControlFlag)operator(\)) reserved(then) - ident(ActivateThis)operator(()ident(ActiveControl)operator(\);) - - ident(AlphaBlendValue) operator(:=) integer(255)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TPrefWin)operator(.)ident(PrefValuesPCDrawTab)operator(()ident(Control)operator(:) ident(TCustomTabControl)operator(;) - ident(TabIndex)operator(:) ident(Integer)operator(;) reserved(const) ident(Rect)operator(:) ident(TRect)operator(;) ident(Active)operator(:) ident(Boolean)operator(\);) -reserved(var) - ident(PC)operator(:) ident(TPageControl)operator(;) - ident(Page)operator(:) ident(TTabSheet)operator(;) -reserved(begin) - ident(PC) operator(:=) ident(TPageControl)operator(()ident(Control)operator(\);) - ident(Page) operator(:=) ident(PC)operator(.)ident(Pages)operator([)ident(TabIndex)operator(];) - reserved(with) ident(PC)operator(.)ident(Canvas)operator(.)ident(Font) reserved(do) reserved(begin) - reserved(if) ident(Page) operator(=) ident(StringPage) reserved(then) - ident(Color) operator(:=) ident(clBrightRed) - reserved(else) reserved(if) ident(Page) operator(=) ident(MultiStringPage) reserved(then) - ident(Color) operator(:=) ident(clBrightPurple) - reserved(else) reserved(if) ident(Page) operator(=) ident(IntPage) reserved(then) - ident(Color) operator(:=) ident(clBrightBlue) - reserved(else) reserved(if) ident(Page) operator(=) ident(BinaryPage) reserved(then) - ident(Color) operator(:=) ident(clBrightGreen)operator(;) - reserved(end)operator(;) - - reserved(with) ident(PC)operator(.)ident(Canvas) reserved(do) - reserved(if) ident(Active) reserved(then) reserved(begin) - ident(Font)operator(.)ident(Style) operator(:=) operator([)ident(fsBold)operator(];) - ident(Brush)operator(.)ident(Color) operator(:=) ident(clDarkGray)operator(;) - ident(FillRect)operator(()ident(Rect)operator(\);) - ident(TextOut)operator(()ident(Rect)operator(.)ident(Left) operator(+) integer(18) operator(+) integer(5)operator(,) ident(Rect)operator(.)ident(Top) operator(+) integer(3)operator(,) ident(Page)operator(.)ident(Caption)operator(\);) - ident(PC)operator(.)ident(Images)operator(.)ident(Draw)operator(()ident(PC)operator(.)ident(Canvas)operator(,) ident(Rect)operator(.)ident(Left) operator(+) integer(4)operator(,) ident(Rect)operator(.)ident(Top) operator(+) integer(2)operator(,) ident(Page)operator(.)ident(ImageIndex)operator(\);) - reserved(end) reserved(else) reserved(begin) - ident(Font)operator(.)ident(Style) operator(:=) operator([];) - ident(Brush)operator(.)ident(Color) operator(:=) ident(clDarkGray)operator(;) - ident(FillRect)operator(()ident(Rect)operator(\);) - ident(TextOut)operator(()ident(Rect)operator(.)ident(Left) operator(+) integer(18) operator(+) integer(3)operator(,) ident(Rect)operator(.)ident(Top) operator(+) integer(2)operator(,) ident(Page)operator(.)ident(Caption)operator(\);) - ident(PC)operator(.)ident(Images)operator(.)ident(Draw)operator(()ident(PC)operator(.)ident(Canvas)operator(,) ident(Rect)operator(.)ident(Left) operator(+) integer(1)operator(,) ident(Rect)operator(.)ident(Top) operator(+) integer(1)operator(,) ident(Page)operator(.)ident(ImageIndex)operator(\);) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TPrefWin)operator(.)ident(ShowDwordAsHexClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(DWordPreviewL)operator(.)ident(Caption) operator(:=) string<delimiter(')content(Preview: )delimiter(')> operator(+) ident(ValuesU)operator(.)ident(DataPreviewOfContext)operator(() - ident(RegContext)operator(()ident(rdCardinal)operator(,) ident(Reverse)operator(()ident(ByteAOfHex)operator(()ident(HexOfCard)operator(()integer(1234567890)operator(,) integer(8)operator(\)\)\)\)\);) - ident(DataPreviewChange)operator(()ident(Self)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TPrefWin)operator(.)ident(MainPreviewEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(if) ident(MainPreviewE)operator(.)ident(Text) operator(=) string<delimiter(')delimiter(')> reserved(then) - ident(MainPreviewCB)operator(.)ident(Caption) operator(:=) string<delimiter(')content(&Show Preview for Default Value)delimiter(')> - reserved(else) - ident(MainPreviewCB)operator(.)ident(Caption) operator(:=) string<delimiter(')content(&Show Preview for )delimiter(')> operator(+) - ident(Quote)operator(()ident(MainPreviewE)operator(.)ident(Text)operator(\);) - - ident(StandardPreviewChange)operator(()ident(Self)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TPrefWin)operator(.)ident(FormCreate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(UserNameE)operator(.)ident(DefaultValue) operator(:=) ident(UserName)operator(;) - ident(MainPreviewEChange)operator(()ident(Self)operator(\);) - ident(PrefPC)operator(.)ident(ActivePageIndex) operator(:=) integer(0)operator(;) - ident(PrefValuesPC)operator(.)ident(ActivePageIndex) operator(:=) integer(0)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TPrefWin)operator(.)ident(ActivateIt)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(ActivateThis)operator(()ident(Sender)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TPrefWin)operator(.)ident(DeActivateIt)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(DeActivateThis)operator(()ident(Sender)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TPrefWin)operator(.)ident(ReloadBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(LoadPrefs)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TPrefWin)operator(.)ident(RunExternalHexEditBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(FileName)operator(,) ident(TestValue)operator(:) reserved(string)operator(;) -reserved(begin) - ident(FileName) operator(:=) ident(TempDir) operator(+) string<delimiter(')content(~test.bin)delimiter(')>operator(;) - ident(TestValue) operator(:=) string<delimiter(')content(This is only a test.)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(Everything seems to be OK.)delimiter(')>operator(;) - reserved(if) ident(SaveByteA)operator(()ident(ByteAOfStr)operator(()ident(TestValue)operator(\),) ident(FileName)operator(\)) reserved(then) - ident(ExecFileWith)operator(()ident(ExternalHexEditE)operator(.)ident(Text)operator(,) ident(FileName)operator(\)) - reserved(else) - ident(ShowMessage)operator(()string<delimiter(')content(Could not write into file:)delimiter(')> operator(+) ident(EOL) operator(+) - ident(FileName)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TPrefWin)operator(.)ident(SelectExternalHexEditBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(with) ident(SelectExternalHexEditOD) reserved(do) reserved(begin) - ident(InitialDir) operator(:=) ident(ExtractPath)operator(()ident(ExternalHexEditE)operator(.)ident(Text)operator(\);) - ident(FileName) operator(:=) ident(ExtractFileName)operator(()ident(ExternalHexEditE)operator(.)ident(Text)operator(\);) - reserved(if) ident(Execute) reserved(and) ident(FileExists)operator(()ident(FileName)operator(\)) reserved(then) - ident(ExternalHexEditE)operator(.)ident(Text) operator(:=) ident(FileName)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TPrefWin)operator(.)ident(ExternalHexEditEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(RunExternalHexEditB)operator(.)ident(Enabled) operator(:=) ident(FileExists)operator(()ident(ExternalHexEditE)operator(.)ident(Text)operator(\);) - reserved(if) ident(Assigned)operator(()ident(WorkWin)operator(\)) reserved(then) - ident(WorkWin)operator(.)ident(ExternalEditB)operator(.)ident(Enabled) operator(:=) ident(RunExternalHexEditB)operator(.)ident(Enabled)operator(;) - reserved(if) ident(Assigned)operator(()ident(MainWin)operator(\)) reserved(then) - ident(MainWin)operator(.)ident(ExternalHexEditMI)operator(.)ident(Enabled) operator(:=) ident(RunExternalHexEditB)operator(.)ident(Enabled)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TPrefWin)operator(.)ident(DefaultBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(if) ident(mrYes)operator(=)ident(MessageDlg)operator(()string<delimiter(')content(Do you really want to reset the preferences)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(to their defaults?)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content((This can not be undone.\))delimiter(')>operator(,) ident(mtWarning)operator(,) operator([)ident(mbYes)operator(,) ident(mbCancel)operator(],) integer(0)operator(\)) reserved(then) reserved(begin) - ident(CopyFile)operator(()ident(PChar)operator(()ident(PlutoIniFileName)operator(\),) ident(PChar)operator(()ident(PlutoIniFileName) operator(+) string<delimiter(')content(.backup)delimiter(')>operator(\),) ident(False)operator(\);) - comment(//PrefHost.KeyName := 'Ini <' + PlutoIniFileName + '.backup>:';) - comment(//PrefHost.Save;) - comment(//PrefHost.KeyName := PlutoUniPath;) - ident(PrefHost)operator(.)ident(BackUp)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TPrefWin)operator(.)ident(RegisterAppCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(with) ident(TXRegistry)operator(.)ident(Create) reserved(do) - reserved(try) - ident(RootKey) operator(:=) ident(HKLM)operator(;) - ident(OpenKey)operator(()string<delimiter(')content(Software\\Microsoft\\Windows\\CurrentVersion\\App Paths)delimiter(')>operator(\);) - reserved(if) ident(RegisterAppCB)operator(.)ident(Checked) reserved(then) reserved(begin) - ident(OpenKey)operator(()string<delimiter(')content(pluto.exe)delimiter(')>operator(,) ident(True)operator(\);) - ident(WriteString)operator(()string<delimiter(')delimiter(')>operator(,) ident(GetFileNew)operator(()ident(Application)operator(.)ident(ExeName)operator(\)\);) - reserved(end) reserved(else) - ident(DeleteKey)operator(()string<delimiter(')content(pluto.exe)delimiter(')>operator(\);) - reserved(finally) - ident(Free)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TPrefWin)operator(.)ident(SaveBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(PrefHost)operator(.)ident(Save)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TPrefWin)operator(.)ident(StringPreviewChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(StringPreviewL)operator(.)ident(Caption) operator(:=) string<delimiter(')content(Preview: )delimiter(')> operator(+) ident(ValuesU)operator(.)ident(DataPreviewOfContext)operator(() - ident(RegContext)operator(()ident(rdString)operator(,) ident(ByteAOfStr)operator(()string<delimiter(')content(%windir%)delimiter(')>operator(\)\)\);) - ident(DataPreviewChange)operator(()ident(Self)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TPrefWin)operator(.)ident(ShowTreeViewLinesCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(with) ident(RegTV) reserved(do) reserved(begin) - ident(ShowLines) operator(:=) ident(ShowTreeViewLinesCB)operator(.)ident(Checked)operator(;) - ident(ShowButtons) operator(:=) ident(ShowLines)operator(;) - reserved(end)operator(;) - ident(StandardPreviewChange)operator(()ident(Sender)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TPrefWin)operator(.)ident(ShowListViewGridCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(ValueList)operator(.)ident(GridLines) operator(:=) ident(ShowListViewGridCB)operator(.)ident(Checked)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TPrefWin)operator(.)ident(DefaultValueNameEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(DefaultValueCaption) operator(:=) ident(DefaultValueNameE)operator(.)ident(Text)operator(;) - reserved(if) ident(Started) reserved(then) - ident(TreeWin)operator(.)ident(RegTVChange)operator(()ident(Self)operator(,) ident(RegTV)operator(.)ident(Selected)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TPrefWin)operator(.)ident(LoadPrefs)operator(;) -reserved(begin) - ident(PrefHost)operator(.)ident(Load)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TPrefWin)operator(.)ident(UseExtendedModelCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(WorkWin)operator(.)ident(MultiStringTypeRG)operator(.)ident(ItemIndex) operator(:=) ident(Integer)operator(()ident(UseExtendedModelCB)operator(.)ident(Checked)operator(\);) - ident(DataPreviewChange)operator(()ident(Sender)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TPrefWin)operator(.)ident(IntegrationPageShow)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(with) ident(TXRegistry)operator(.)ident(Create) reserved(do) - reserved(try) - ident(RootKey) operator(:=) ident(HKLM)operator(;) - ident(OpenKey)operator(()string<delimiter(')content(Software\\Microsoft\\Windows\\CurrentVersion\\App Paths\\pluto.exe)delimiter(')>operator(\);) - ident(RegisterAppCB)operator(.)ident(Checked) operator(:=) ident(SameFileName)operator(()ident(GetFileNew)operator(()ident(ReadString)operator(()string<delimiter(')delimiter(')>operator(\)\),) - ident(GetFileNew)operator(()ident(Application)operator(.)ident(ExeName)operator(\)\);) - reserved(finally) - ident(Free)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TPrefWin)operator(.)ident(GotoPlutoKeyBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(MainWin)operator(.)ident(GotoKey)operator(()string<delimiter(')content(HKLM\\Software\\Microsoft\\Windows\\CurrentVersion\\App Paths\\pluto.exe)delimiter(')>operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TPrefWin)operator(.)ident(FormShow)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(PrefHost)operator(.)ident(Load)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TPrefWin)operator(.)ident(KeysSingleClickCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(TreeWin)operator(.)ident(CheckRegTVHotTrack)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TPrefWin)operator(.)ident(ValuesSingleClickCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(ValuesWin)operator(.)ident(CheckValueListHotTrack)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TPrefWin)operator(.)ident(QuotersEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(QBegin)operator(,) ident(QEnd)operator(:) reserved(string)operator(;) -reserved(begin) - reserved(with) ident(QuotersE) reserved(do) reserved(begin) - reserved(if) ident(Text) operator(=) string<delimiter(')delimiter(')> reserved(then) - ident(QBegin) operator(:=) string<delimiter(')delimiter(')> - reserved(else) - ident(QBegin) operator(:=) ident(Text)operator([)integer(1)operator(];) - reserved(if) ident(Length)operator(()ident(Text)operator(\)) operator(<) integer(2) reserved(then) - ident(QEnd) operator(:=) ident(QBegin) - reserved(else) - ident(QEnd) operator(:=) ident(Text)operator([)integer(2)operator(];) - reserved(end)operator(;) - - reserved(if) operator(()ident(QBegin) operator(<>) ident(StringQuoterBegin)operator(\)) reserved(or) operator(()ident(QEnd) operator(<>) ident(StringQuoterEnd)operator(\)) reserved(then) reserved(begin) - ident(StringQuoterBegin) operator(:=) ident(QBegin)operator(;) - ident(StringQuoterEnd) operator(:=) ident(QEnd)operator(;) - ident(StringPreviewChange)operator(()ident(Self)operator(\);) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TPrefWin)operator(.)ident(SplashScreenCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(if) ident(Started) reserved(and) ident(Assigned)operator(()ident(SplashWin)operator(\)) reserved(then) - ident(SplashWin)operator(.)ident(SplashScreenCB)operator(.)ident(Checked) operator(:=) ident(SplashScreenCB)operator(.)ident(Checked)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TPrefWin)operator(.)ident(SaveBMouseMove)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(;) ident(X)operator(,) - ident(Y)operator(:) ident(Integer)operator(\);) -reserved(begin) - ident(Label2)operator(.)ident(Font)operator(.)ident(Color) operator(:=) ident(clBrightRed)operator(;) - ident(Application)operator(.)ident(ProcessMessages)operator(;) - ident(Sleep)operator(()integer(200)operator(\);) - ident(Label2)operator(.)ident(Font)operator(.)ident(Color) operator(:=) ident(clWhite)operator(;) -reserved(end)operator(;) - -reserved(end)operator(.) -reserved(unit) ident(RegScanner)operator(;) - -reserved(interface) - -reserved(uses) - ident(Windows)operator(,) ident(SysUtils)operator(,) ident(Dialogs)operator(,) ident(Classes)operator(,) - ident(YTools)operator(,) ident(YTypes)operator(,) ident(XReg)operator(,) ident(Clock)operator(;) - -reserved(type) - ident(TRegScanThread) operator(=) reserved(class)operator(;) - - ident(TRegScanKeyEvent) operator(=) reserved(procedure) operator(()ident(Sender)operator(:) ident(TRegScanThread)operator(;) reserved(const) ident(KeyName)operator(:) reserved(string)operator(;) ident(Key)operator(:) ident(HKEY)operator(;) ident(Info)operator(:) ident(TRegKeyInfo)operator(\)) reserved(of) reserved(object)operator(;) - ident(TRegScanValueEvent) operator(=) reserved(procedure) operator(()ident(Sender)operator(:) ident(TRegScanThread)operator(;) reserved(const) ident(ValueName)operator(:) reserved(string)operator(;) ident(Context)operator(:) ident(TRegContext)operator(\)) reserved(of) reserved(object)operator(;) - - ident(TRegScanTask) operator(=) reserved(record) - ident(Root)operator(:) reserved(string)operator(;) - ident(Key)operator(:) ident(HKEY)operator(;) - reserved(end)operator(;) - ident(TRegScanTasks) operator(=) reserved(array) reserved(of) ident(TRegScanTask)operator(;) - - ident(TRegScanThread) operator(=) reserved(class)operator(()ident(TThread)operator(\)) - directive(private) - ident(Keys)operator(,) ident(KeysOK)operator(,) ident(Values)operator(,) ident(ValuesOK)operator(:) ident(Integer)operator(;) - ident(DoScanValues)operator(:) ident(Boolean)operator(;) - ident(FOnKey)operator(:) ident(TRegScanKeyEvent)operator(;) - ident(FOnValue)operator(:) ident(TRegScanValueEvent)operator(;) - ident(FOnFaileKey)operator(:) ident(TRegScanKeyEvent)operator(;) - directive(protected) - reserved(procedure) ident(ScanKey)operator(()ident(Key)operator(:) ident(HKEY)operator(;) reserved(const) ident(KeyName)operator(:) reserved(string) operator(=) string<delimiter(')delimiter(')>operator(\);) directive(virtual)operator(;) - reserved(procedure) ident(ScanValues)operator(()ident(Key)operator(:) ident(HKEY)operator(;) ident(Info)operator(:) ident(TRegKeyInfo)operator(\);) directive(virtual)operator(;) - - directive(public) - ident(Path)operator(:) reserved(string)operator(;) - ident(CurrentTask)operator(:) ident(TRegScanTask)operator(;) - ident(Tasks)operator(:) ident(TRegScanTasks)operator(;) - reserved(destructor) ident(Destroy)operator(;) directive(override)operator(;) - reserved(procedure) ident(Execute)operator(;) directive(override)operator(;) - reserved(procedure) ident(ScanAll)operator(;) - reserved(function) ident(CurrentPath)operator(:) reserved(string)operator(;) - directive(published) - reserved(constructor) ident(CreateIt)operator(()ident(PriorityLevel)operator(:) ident(TThreadPriority)operator(;) - ident(DoScanValues)operator(:) ident(Boolean) operator(=) ident(True)operator(;) ident(Tasks)operator(:) ident(TRegScanTasks) operator(=) reserved(nil)operator(\);) - - reserved(property) ident(OnKey)operator(:) ident(TRegScanKeyEvent) directive(read) ident(FOnKey) directive(write) ident(FOnKey)operator(;) - reserved(property) ident(OnValue)operator(:) ident(TRegScanValueEvent) directive(read) ident(FOnValue) directive(write) ident(FOnValue)operator(;) - reserved(property) ident(OnFaileKey)operator(:) ident(TRegScanKeyEvent) directive(read) ident(FOnFaileKey) directive(write) ident(FOnFaileKey)operator(;) - reserved(end)operator(;) - -reserved(implementation) - -comment({ TRegScanThread }) - -reserved(constructor) ident(TRegScanThread)operator(.)ident(CreateIt)operator(()ident(PriorityLevel)operator(:) ident(TThreadPriority)operator(;) - ident(DoScanValues)operator(:) ident(Boolean) operator(=) ident(True)operator(;) ident(Tasks)operator(:) ident(TRegScanTasks) operator(=) reserved(nil)operator(\);) -reserved(begin) - reserved(inherited) ident(Create)operator(()ident(True)operator(\);) - ident(Priority) operator(:=) ident(PriorityLevel)operator(;) - ident(FreeOnTerminate) operator(:=) ident(False)operator(;) - ident(Self)operator(.)ident(DoScanValues) operator(:=) ident(DoScanValues)operator(;) - ident(Self)operator(.)ident(Tasks) operator(:=) ident(Tasks)operator(;) -reserved(end)operator(;) - -reserved(destructor) ident(TRegScanThread)operator(.)ident(Destroy)operator(;) -reserved(begin) - reserved(inherited)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TRegScanThread)operator(.)ident(ScanAll)operator(;) -reserved(var) - ident(i)operator(:) ident(Integer)operator(;) -reserved(begin) - ident(Keys) operator(:=) integer(0)operator(;) - ident(KeysOK) operator(:=) integer(0)operator(;) - ident(Values) operator(:=) integer(0)operator(;) - ident(ValuesOK) operator(:=) integer(0)operator(;) - - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(High)operator(()ident(Tasks)operator(\)) reserved(do) reserved(begin) - ident(CurrentTask) operator(:=) ident(Tasks)operator([)ident(i)operator(];) - reserved(with) ident(CurrentTask) reserved(do) reserved(begin) - ident(Inc)operator(()ident(Keys)operator(\);) - ident(ScanKey)operator(()ident(Key)operator(\);) - reserved(end)operator(;) - - reserved(if) ident(Terminated) reserved(then) ident(Break)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TRegScanThread)operator(.)ident(ScanValues)operator(()ident(Key)operator(:) ident(HKEY)operator(;) ident(Info)operator(:) ident(TRegKeyInfo)operator(\);) -reserved(var) - ident(i)operator(:) ident(Integer)operator(;) - ident(MaxLen)operator(,) ident(NameLen)operator(,) ident(Len)operator(,) ident(Typ)operator(:) ident(Cardinal)operator(;) - ident(p)operator(:) ident(PChar)operator(;) - ident(Buffer)operator(:) ident(TByteA)operator(;) - - reserved(procedure) ident(ScanValue)operator(()ident(ValueName)operator(:) reserved(string)operator(;) ident(Typ)operator(:) ident(TRegDataType)operator(;) ident(Data)operator(:) ident(TByteA)operator(\);) - reserved(begin) - reserved(if) ident(Assigned)operator(()ident(OnValue)operator(\)) reserved(then) - ident(OnValue)operator(()ident(Self)operator(,) ident(ValueName)operator(,) ident(RegContext)operator(()ident(Typ)operator(,) ident(Data)operator(\)\);) - ident(Inc)operator(()ident(ValuesOK)operator(\);) - reserved(end)operator(;) - -reserved(begin) - ident(MaxLen) operator(:=) ident(Info)operator(.)ident(MaxValueLen) operator(+) integer(1)operator(;) comment(//Include Nullbyte) - ident(SetLength)operator(()ident(Buffer)operator(,) ident(Info)operator(.)ident(MaxDataLen)operator(\);) - ident(GetMem)operator(()ident(p)operator(,) ident(MaxLen)operator(\);) - - ident(Inc)operator(()ident(Values)operator(,) ident(Info)operator(.)ident(NumValues)operator(\);) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Info)operator(.)ident(NumValues)operator(-)integer(1) reserved(do) reserved(begin) - ident(NameLen) operator(:=) ident(MaxLen)operator(;) - ident(Len) operator(:=) ident(Info)operator(.)ident(MaxDataLen)operator(;) - reserved(if) ident(Success)operator(()ident(RegEnumValue)operator(()ident(Key)operator(,) ident(i)operator(,) ident(p)operator(,) ident(NameLen)operator(,) reserved(nil)operator(,) operator(@)ident(Typ)operator(,) ident(Pointer)operator(()ident(Buffer)operator(\),) - operator(@)ident(Len)operator(\)\)) reserved(then) - ident(ScanValue)operator(()ident(Copy)operator(()ident(p)operator(,) integer(0)operator(,) ident(NameLen)operator(\),) ident(Typ)operator(,) ident(Copy)operator(()ident(Buffer)operator(,) integer(0)operator(,) ident(Len)operator(\)\)) - reserved(else) - ident(Yield)operator(;) - reserved(end)operator(;) - ident(FreeMem)operator(()ident(p)operator(,) ident(MaxLen)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TRegScanThread)operator(.)ident(ScanKey)operator(()ident(Key)operator(:) ident(HKEY)operator(;) reserved(const) ident(KeyName)operator(:) reserved(string) operator(=) string<delimiter(')delimiter(')>operator(\);) -reserved(var) - ident(i)operator(:) ident(Integer)operator(;) - ident(NewHKEY)operator(:) ident(HKEY)operator(;) - ident(Info)operator(:) ident(TRegKeyInfo)operator(;) - ident(l)operator(,) ident(Len)operator(:) ident(DWORD)operator(;) - ident(p)operator(:) ident(PChar)operator(;) - ident(z)operator(:) ident(Integer)operator(;) -reserved(begin) - reserved(if) ident(Terminated) reserved(then) ident(Exit)operator(;) - - reserved(with) ident(Info) reserved(do) reserved(begin) - reserved(if) reserved(not) ident(Success)operator(()ident(RegQueryInfoKey)operator(()ident(Key)operator(,) reserved(nil)operator(,) reserved(nil)operator(,) reserved(nil)operator(,) operator(@)ident(NumSubKeys)operator(,) - operator(@)ident(MaxSubKeyLen)operator(,) reserved(nil)operator(,) operator(@)ident(NumValues)operator(,) operator(@)ident(MaxValueLen)operator(,) operator(@)ident(MaxDataLen)operator(,) - reserved(nil)operator(,) reserved(nil)operator(\)\)) reserved(then) - ident(Exit)operator(;) - - reserved(if) ident(Assigned)operator(()ident(OnKey)operator(\)) reserved(then) - ident(OnKey)operator(()ident(Self)operator(,) ident(KeyName)operator(,) ident(Key)operator(,) ident(Info)operator(\);) - reserved(if) ident(DoScanValues) reserved(and) operator(()ident(NumValues) operator(>) integer(0)operator(\)) reserved(then) - ident(ScanValues)operator(()ident(Key)operator(,) ident(Info)operator(\);) - - reserved(if) ident(Info)operator(.)ident(NumSubKeys) operator(>) integer(0) reserved(then) reserved(begin) - ident(Inc)operator(()ident(Keys)operator(,) ident(NumSubKeys)operator(\);) - - ident(Len) operator(:=) ident(MaxSubKeyLen) operator(+) integer(1)operator(;) - ident(GetMem)operator(()ident(p)operator(,) ident(Len)operator(\);) - - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(NumSubKeys)operator(-)integer(1) reserved(do) reserved(begin) - ident(l) operator(:=) ident(Len)operator(;) - ident(RegEnumKeyEx)operator(()ident(Key)operator(,) ident(i)operator(,) ident(p)operator(,) ident(l)operator(,) reserved(nil)operator(,) reserved(nil)operator(,) reserved(nil)operator(,) reserved(nil)operator(\);) - reserved(if) ident(Success)operator(()ident(RegOpenKey)operator(()ident(Key)operator(,) ident(p)operator(,) ident(NewHKEY)operator(\)\)) reserved(then) reserved(begin) - ident(z) operator(:=) ident(Length)operator(()ident(Path)operator(\);) - ident(Path) operator(:=) ident(Path) operator(+) char<delimiter(')content(\\)delimiter(')> operator(+) ident(p)operator(;) - ident(ScanKey)operator(()ident(NewHKEY)operator(,) ident(p)operator(\);) - ident(RegCloseKey)operator(()ident(NewHKEY)operator(\);) - ident(SetLength)operator(()ident(Path)operator(,) ident(z)operator(\);) - reserved(end) reserved(else) - reserved(if) ident(Assigned)operator(()ident(OnFaileKey)operator(\)) reserved(then) - ident(OnFaileKey)operator(()ident(Self)operator(,) ident(p)operator(,) ident(Key)operator(,) ident(Info)operator(\);) - - reserved(if) ident(Terminated) reserved(then) - ident(Break)operator(;) - reserved(end)operator(;) - ident(FreeMem)operator(()ident(p)operator(,) ident(Len)operator(\);) - reserved(end)operator(;) - reserved(end)operator(;) - - ident(Inc)operator(()ident(KeysOK)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TRegScanThread)operator(.)ident(Execute)operator(;) -reserved(var) - ident(Secs)operator(:) ident(Double)operator(;) -reserved(begin) - reserved(with) ident(TClock)operator(.)ident(Create) reserved(do) reserved(begin) - ident(ScanAll)operator(;) - ident(Secs) operator(:=) ident(SecondsPassed)operator(;) - ident(Free)operator(;) - reserved(end)operator(;) - - ident(WriteLn)operator(()string<delimiter(')content(finished.)delimiter(')>operator(\);) - ident(WriteLn)operator(() ident(Format)operator(()string<delimiter(')content(Keys: %6d counted (%3d failed\))delimiter(')>operator(,) operator([)ident(Keys)operator(,) ident(Keys) operator(-) ident(KeysOK)operator(]\)\);) - reserved(if) ident(DoScanValues) reserved(then) - ident(WriteLn)operator(()ident(Format)operator(()string<delimiter(')content(Values: %6d counted (%3d failed\))delimiter(')>operator(,) operator([)ident(Values)operator(,) ident(Values) operator(-) ident(ValuesOK)operator(]\)\);) - ident(WriteLn)operator(()string<delimiter(')content(t )delimiter(')> operator(+) ident(Format)operator(()string<delimiter(')content(%.2f)delimiter(')>operator(,) operator([)ident(Secs)operator(]\)) operator(+) string<delimiter(')content( seconds)delimiter(')>operator(\);) - reserved(if) ident(Secs) operator(>) integer(0) reserved(then) - ident(WriteLn)operator(()string<delimiter(')content(r )delimiter(')> operator(+) ident(Format)operator(()string<delimiter(')content(%.0f)delimiter(')>operator(,) operator([)ident(Keys) operator(/) ident(Secs)operator(]\)) operator(+) string<delimiter(')content( k/s)delimiter(')>operator(\);) -reserved(end)operator(;) - -reserved(function) ident(TRegScanThread)operator(.)ident(CurrentPath)operator(:) reserved(string)operator(;) -reserved(begin) - ident(Result) operator(:=) ident(CurrentTask)operator(.)ident(Root) operator(+) ident(Path)operator(;) -reserved(end)operator(;) - -reserved(end)operator(.) -reserved(unit) ident(RegTV)operator(;) - -reserved(interface) - -reserved(uses) - ident(Windows)operator(,) ident(Messages)operator(,) ident(SysUtils)operator(,) ident(Classes)operator(,) ident(Graphics)operator(,) ident(Controls)operator(,) ident(Forms)operator(,) ident(Dialogs)operator(,) - ident(ComCtrls)operator(;) - -reserved(type) - ident(TRegTV) operator(=) reserved(class)operator(()ident(TTreeView)operator(\)) - directive(private) - comment({ Private-Deklarationen }) - directive(protected) - comment({ Protected-Deklarationen }) - directive(public) - comment({ Public-Deklarationen }) - directive(published) - comment({ Published-Deklarationen }) - reserved(end)operator(;) - -reserved(procedure) ident(Register)operator(;) - -reserved(implementation) - -reserved(procedure) ident(Register)operator(;) -reserved(begin) - ident(RegisterComponents)operator(()string<delimiter(')content(pluto)delimiter(')>operator(,) operator([)ident(TRegTV)operator(]\);) -reserved(end)operator(;) - -reserved(end)operator(.) -reserved(unit) ident(Sisyphus)operator(;) - -reserved(interface) - -reserved(uses) - ident(Windows)operator(,) ident(Classes)operator(,) ident(SysUtils)operator(,) ident(XReg)operator(,) ident(YTools)operator(,) ident(YTypes)operator(,) ident(Clock)operator(;) - -reserved(type) - ident(TSpyValue) operator(=) reserved(class) - ident(Name)operator(:) reserved(string)operator(;) - ident(Next)operator(:) ident(TSpyValue)operator(;) - comment(//DIC: TByteA;) - ident(Typ)operator(:) ident(TXRegDataType)operator(;) - ident(Data)operator(:) ident(TByteA)operator(;) - reserved(constructor) ident(Create)operator(()ident(AName)operator(:) reserved(string)operator(\);) - reserved(end)operator(;) - - ident(TSpyKey) operator(=) reserved(class) - directive(public) - ident(Parent)operator(:) ident(TSpyKey)operator(;) - ident(Name)operator(:) reserved(string)operator(;) - ident(Next)operator(:) ident(TSpyKey)operator(;) - ident(Keys)operator(:) ident(TSpyKey)operator(;) - ident(Values)operator(:) ident(TSpyValue)operator(;) - reserved(procedure) ident(Spy)operator(()ident(AHKEY)operator(:) ident(HKEY)operator(\);) - reserved(function) ident(Path)operator(:) reserved(string)operator(;) - reserved(constructor) ident(Create)operator(()ident(AParent)operator(:) ident(TSpyKey)operator(;) ident(AName)operator(:) reserved(string)operator(\);) - reserved(destructor) ident(Destroy)operator(;) directive(override)operator(;) - reserved(end)operator(;) - -reserved(var) - ident(Reg)operator(:) ident(TXRegistry)operator(;) - ident(HKLMSpyKey)operator(,) ident(HKUSpyKey)operator(:) ident(TSpyKey)operator(;) - ident(Started)operator(:) ident(Boolean) operator(=) ident(False)operator(;) - -reserved(implementation) - -reserved(uses) - ident(Plutomain)operator(;) - -reserved(procedure) ident(AddChange)operator(()ident(M)operator(:) reserved(string)operator(\);) -reserved(begin) - ident(Yield)operator(;) - comment(//AddHint(M\);) -reserved(end)operator(;) - -comment({ TSpyValue }) - -reserved(constructor) ident(TSpyValue)operator(.)ident(Create)operator(()ident(AName)operator(:) reserved(string)operator(\);) -reserved(begin) - ident(Name) operator(:=) ident(AName)operator(;) - ident(Next) operator(:=) reserved(nil)operator(;) -reserved(end)operator(;) - -comment({ TSpyKey }) - -reserved(constructor) ident(TSpyKey)operator(.)ident(Create)operator(()ident(AParent)operator(:) ident(TSpyKey)operator(;) ident(AName)operator(:) reserved(string)operator(\);) -reserved(begin) - ident(Name) operator(:=) ident(AName)operator(;) - ident(Parent) operator(:=) ident(AParent)operator(;) - - ident(Next) operator(:=) reserved(nil)operator(;) - ident(Keys) operator(:=) reserved(nil)operator(;) - ident(Values) operator(:=) reserved(nil)operator(;) -reserved(end)operator(;) - -reserved(destructor) ident(TSpyKey)operator(.)ident(Destroy)operator(;) -reserved(var) - ident(Value)operator(,) ident(NextValue)operator(:) ident(TSpyValue)operator(;) - ident(Key)operator(,) ident(NextKey)operator(:) ident(TSpyKey)operator(;) -reserved(begin) - ident(Value) operator(:=) ident(Values)operator(;) - reserved(while) ident(Value) operator(<>) reserved(nil) reserved(do) reserved(begin) - ident(NextValue) operator(:=) ident(Value)operator(.)ident(Next)operator(;) - ident(Value)operator(.)ident(Free)operator(;) - ident(Value) operator(:=) ident(NextValue)operator(;) - reserved(end)operator(;) - - ident(Key) operator(:=) ident(Keys)operator(;) - reserved(while) ident(Key) operator(<>) reserved(nil) reserved(do) reserved(begin) - ident(NextKey) operator(:=) ident(Key)operator(.)ident(Next)operator(;) - ident(Key)operator(.)ident(Free)operator(;) - ident(Key) operator(:=) ident(NextKey)operator(;) - reserved(end)operator(;) - - reserved(inherited)operator(;) -reserved(end)operator(;) - -reserved(function) ident(TSpyKey)operator(.)ident(Path)operator(:) reserved(string)operator(;) -reserved(begin) - reserved(if) ident(Assigned)operator(()ident(Parent)operator(\)) reserved(then) - ident(Result) operator(:=) ident(Parent)operator(.)ident(Path) operator(+) char<delimiter(')content(\\)delimiter(')> - reserved(else) - ident(Result) operator(:=) string<delimiter(')content(Reg: )delimiter(')>operator(;) - - ident(Result) operator(:=) ident(Result) operator(+) ident(Name)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TSpyKey)operator(.)ident(Spy)operator(()ident(AHKEY)operator(:) ident(HKEY)operator(\);) -reserved(var) - ident(SL)operator(:) ident(TStringList)operator(;) - - reserved(procedure) ident(CompareValues)operator(;) - reserved(var) - ident(i)operator(:) ident(Integer)operator(;) - ident(Value)operator(,) ident(LastValue)operator(,) ident(NewValue)operator(,) ident(SearchValue)operator(:) ident(TSpyValue)operator(;) - reserved(begin) - comment(//OK, this part is a little bit complicate. So I will comment very much.) - comment(//First, two terms are important:) - comment(//<REAL> means the list of values that will be read from the registry now:) - ident(Reg)operator(.)ident(GetValueNames)operator(()ident(SL)operator(\);) - comment(//So <REAL> is TStringList.) - - comment(//<CURRENT> means the image that was saved before.) - comment(//Here, it is a linear list of TSpyValue objects. That means that you can) - comment(//only get X.Next and not X.Prev! However, I use "X.Prev" to simplify) - comment(//some comments.) - - comment(//!!! Comparing means: Make <CURRENT> fit <REAL> !!!) - - comment(//If <CURRENT> wasn't saved before, it is just empty.) - - comment(//!!! There is no difference in comparing and saving in this method !!!) - - comment(//Building means: Comparing with an empty image.) - - comment(//We go through <REAL> and make <CURRENT> fit it) - - comment(//The following rules are important:) - comment(//Value = "The currently interesting value.) - comment(//LastValue = "The value with X.Next = Value" = "Value.Pref") - - ident(LastValue) operator(:=) reserved(nil)operator(;) comment(// := "Values.Prev") - ident(Value) operator(:=) ident(Values)operator(;) comment(// := "LastValue.Next") - - comment(//Now compare step by step) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(SL)operator(.)ident(Count)operator(-)integer(1) reserved(do) reserved(begin) - reserved(if) ident(Assigned)operator(()ident(Value)operator(\)) reserved(and) operator(()ident(SL)operator([)ident(i)operator(]) operator(=) ident(Value)operator(.)ident(Name)operator(\)) reserved(then) reserved(begin) - comment(//cV= Normally (0.9999\) everything's the same) - ident(LastValue) operator(:=) ident(Value)operator(;) - ident(Value) operator(:=) ident(Value)operator(.)ident(Next)operator(;) - reserved(end) reserved(else) reserved(begin) comment(//Something's different? Yes, the IMPORTANT rest (0.0001\)\)) - comment(//Because the list finally must exactly fit SL, the "SL[i] value" hast) - comment(//to be inserted right here. But first let's look...) - - comment(//Maybe it was just moved? So search for it...) - ident(NewValue) operator(:=) reserved(nil)operator(;) - reserved(if) ident(Assigned)operator(()ident(Value)operator(\)) reserved(then) reserved(begin) - ident(SearchValue) operator(:=) ident(Value)operator(;) - reserved(while) ident(Assigned)operator(()ident(SearchValue)operator(.)ident(Next)operator(\)) reserved(do) - reserved(if) operator(()ident(SearchValue)operator(.)ident(Next)operator(.)ident(Name) operator(=) ident(SL)operator([)ident(i)operator(]\)) reserved(then) reserved(begin) - comment(//cV\\) - ident(NewValue) operator(:=) ident(SearchValue)operator(.)ident(Next)operator(;) - ident(AddChange)operator(()string<delimiter(')content(cV\\ )delimiter(')> operator(+) ident(Path)operator(\);) - ident(SearchValue)operator(.)ident(Next) operator(:=) ident(SearchValue)operator(.)ident(Next)operator(.)ident(Next)operator(;) - ident(Break)operator(;) reserved(end)operator(;) - reserved(end)operator(;) - - reserved(if) reserved(not) ident(Assigned)operator(()ident(NewValue)operator(\)) reserved(then) reserved(begin) - comment(//cV+ No, not found! So it is new...) - ident(NewValue) operator(:=) ident(TSpyValue)operator(.)ident(Create)operator(()ident(SL)operator([)ident(i)operator(]\);) - ident(AddChange)operator(()string<delimiter(')content(cV+ )delimiter(')> operator(+) ident(Path) operator(+) string<delimiter(')content(\\\\)delimiter(')> operator(+) ident(NewValue)operator(.)ident(Name)operator(\);) - reserved(with) ident(NewValue) reserved(do) reserved(begin) - ident(Typ) operator(:=) ident(Reg)operator(.)ident(GetDataType)operator(()ident(SL)operator([)ident(i)operator(]\);) - ident(Data) operator(:=) ident(Reg)operator(.)ident(ReadBin)operator(()ident(SL)operator([)ident(i)operator(]\);) - reserved(end)operator(;) - reserved(end)operator(;) - - comment(//The new object now must be placed after the last value) - reserved(if) ident(Assigned)operator(()ident(LastValue)operator(\)) reserved(then) reserved(begin) - ident(LastValue)operator(.)ident(Next) operator(:=) ident(NewValue)operator(;) - reserved(end) reserved(else) reserved(begin) - comment(//If it's the first value, we don't have LastValue defined) - comment(//So we have to set the "Root" to it) - ident(Values) operator(:=) ident(NewValue)operator(;) - reserved(end)operator(;) - comment(//Now the rest of <CURRENT> has to be placed after the new value) - ident(NewValue)operator(.)ident(Next) operator(:=) ident(Value)operator(;) - comment(//And LastValue also has to refreshed: It is "Value.Pref" = NewValue!) - ident(LastValue) operator(:=) ident(NewValue)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - - comment(//Because the whole <CURRENT> before Value is exactly <REAL>, the rest) - comment(//(if there is one\) must have been deleted!) - - comment(//So first let's ensure that <CURRENT> ends here:) - reserved(if) ident(Assigned)operator(()ident(LastValue)operator(\)) reserved(then) reserved(begin) - ident(LastValue)operator(.)ident(Next) operator(:=) reserved(nil)operator(;) - reserved(end) reserved(else) reserved(begin) - comment(//Another time: <CURRENT> is empty now, so set Values instead) - ident(Values) operator(:=) reserved(nil)operator(;) - reserved(end)operator(;) - - comment(//Now, the first value that maybe was "cut" off is Value:) - reserved(while) ident(Assigned)operator(()ident(Value)operator(\)) reserved(do) reserved(begin) - comment(//cV- So, here really something HAS been deleted) - ident(LastValue) operator(:=) ident(Value)operator(;) - ident(Value) operator(:=) ident(Value)operator(.)ident(Next)operator(;) - ident(AddChange)operator(()string<delimiter(')content(cV- )delimiter(')> operator(+) ident(Path) operator(+) string<delimiter(')content(\\\\)delimiter(')> operator(+) ident(LastValue)operator(.)ident(Name)operator(\);) - ident(LastValue)operator(.)ident(Free)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - - reserved(procedure) ident(CompareData)operator(;) - reserved(var) - ident(Value)operator(:) ident(TSpyValue)operator(;) - ident(Typ)operator(:) ident(TXRegDataType)operator(;) - ident(Data)operator(:) ident(TByteA)operator(;) - reserved(begin) - comment(//So, finally <CURRENT> = <REAL>. That means we now can compare the data:) - ident(Value) operator(:=) ident(Values)operator(;) - reserved(while) ident(Assigned)operator(()ident(Value)operator(\)) reserved(do) reserved(begin) - ident(Typ) operator(:=) ident(Reg)operator(.)ident(GetDataType)operator(()ident(Value)operator(.)ident(Name)operator(\);) - ident(Data) operator(:=) ident(Reg)operator(.)ident(ReadBin)operator(()ident(Value)operator(.)ident(Name)operator(\);) - reserved(if) ident(Typ) operator(<>) ident(Value)operator(.)ident(Typ) reserved(then) reserved(begin) - comment(//cT#) - ident(AddChange)operator(()string<delimiter(')content(cT# )delimiter(')> operator(+) ident(Path) operator(+) string<delimiter(')content(\\\\)delimiter(')> operator(+) ident(Value)operator(.)ident(Name)operator(\);) - ident(Value)operator(.)ident(Typ) operator(:=) ident(Typ)operator(;) - reserved(end)operator(;) - reserved(if) reserved(not) ident(SameByteA)operator(()ident(Data)operator(,) ident(Value)operator(.)ident(Data)operator(\)) reserved(then) reserved(begin) - comment(//cD#) - ident(AddChange)operator(()string<delimiter(')content(cD# )delimiter(')> operator(+) ident(Path) operator(+) string<delimiter(')content(\\\\)delimiter(')> operator(+) ident(Value)operator(.)ident(Name)operator(\);) - ident(Value)operator(.)ident(Data) operator(:=) ident(Data)operator(;) - reserved(end)operator(;) - - ident(Value) operator(:=) ident(Value)operator(.)ident(Next)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - - reserved(procedure) ident(CompareKeys)operator(;) - reserved(var) - ident(i)operator(:) ident(Integer)operator(;) - ident(Key)operator(,) ident(LastKey)operator(,) ident(NewKey)operator(,) ident(SearchKey)operator(:) ident(TSpyKey)operator(;) - ident(NewHKEY)operator(:) ident(HKEY)operator(;) - reserved(begin) - comment(//OK, this part is a little bit complicate. So I will comment very much.) - comment(//First, two terms are important:) - comment(//<REAL> means the list of keys that will be read from the registry now:) - ident(Reg)operator(.)ident(GetKeyNames)operator(()ident(SL)operator(\);) - comment(//So <REAL> is TStringList.) - - comment(//<CURRENT> means the image that was saved before.) - comment(//Here, it is a linear list of TSpyKey objects. That means that you can) - comment(//only get X.Next and not X.Prev! However, I use "X.Prev" to simplify) - comment(//some comments.) - - comment(//!!! Comparing means: Make <CURRENT> fit <REAL> !!!) - - comment(//If <CURRENT> wasn't saved before, it is just empty.) - - comment(//!!! There is no difference in comparing and saving in this method !!!) - - comment(//Building means: Comparing with an empty image.) - - comment(//We go through <REAL> and make <CURRENT> fit it) - - comment(//The following rules are important:) - comment(//Key = "The currently interesting key.) - comment(//LastKey = "The key with X.Next = Key" = "Key.Pref") - - ident(LastKey) operator(:=) reserved(nil)operator(;) comment(// := "Keys.Prev") - ident(Key) operator(:=) ident(Keys)operator(;) comment(// := "LastKey.Next") - - comment(//Now compare step by step) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(SL)operator(.)ident(Count)operator(-)integer(1) reserved(do) reserved(begin) - reserved(if) ident(Assigned)operator(()ident(Key)operator(\)) reserved(and) operator(()ident(SL)operator([)ident(i)operator(]) operator(=) ident(Key)operator(.)ident(Name)operator(\)) reserved(then) reserved(begin) - comment(//cK= Normally (0.9999\) everything's the same) - ident(RegOpenKey)operator(()ident(AHKEY)operator(,) ident(PChar)operator(()ident(SL)operator([)ident(i)operator(]\),) ident(NewHKEY)operator(\);) - ident(Key)operator(.)ident(Spy)operator(()ident(NewHKEY)operator(\);) - ident(LastKey) operator(:=) ident(Key)operator(;) - ident(Key) operator(:=) ident(Key)operator(.)ident(Next)operator(;) - reserved(end) reserved(else) reserved(begin) comment(//Something's different? Yes, the IMPORTANT rest (0.0001\)\)) - comment(//Because the list finally must exactly fit SL, the "SL[i] key" hast) - comment(//to be inserted right here. But first let's look...) - - comment(//Maybe it was just moved? So search for it...) - ident(NewKey) operator(:=) reserved(nil)operator(;) - reserved(if) ident(Assigned)operator(()ident(Key)operator(\)) reserved(then) reserved(begin) - ident(SearchKey) operator(:=) ident(Key)operator(;) - reserved(while) ident(Assigned)operator(()ident(SearchKey)operator(.)ident(Next)operator(\)) reserved(do) - reserved(if) operator(()ident(SearchKey)operator(.)ident(Next)operator(.)ident(Name) operator(=) ident(SL)operator([)ident(i)operator(]\)) reserved(then) reserved(begin) - comment(//cK\\) - ident(NewKey) operator(:=) ident(SearchKey)operator(.)ident(Next)operator(;) - ident(AddChange)operator(()string<delimiter(')content(cK\\ )delimiter(')> operator(+) ident(Path)operator(\);) - ident(SearchKey)operator(.)ident(Next) operator(:=) ident(SearchKey)operator(.)ident(Next)operator(.)ident(Next)operator(;) - ident(Break)operator(;) reserved(end)operator(;) - reserved(end)operator(;) - - reserved(if) reserved(not) ident(Assigned)operator(()ident(NewKey)operator(\)) reserved(then) reserved(begin) - comment(//cK+ No, not found! So it is new...) - ident(NewKey) operator(:=) ident(TSpyKey)operator(.)ident(Create)operator(()ident(Self)operator(,) ident(SL)operator([)ident(i)operator(]\);) - ident(AddChange)operator(()string<delimiter(')content(cK+ )delimiter(')> operator(+) ident(Path) operator(+) char<delimiter(')content(\\)delimiter(')> operator(+) ident(NewKey)operator(.)ident(Name)operator(\);) - - ident(RegOpenKey)operator(()ident(AHKEY)operator(,) ident(PChar)operator(()ident(SL)operator([)ident(i)operator(]\),) ident(NewHKEY)operator(\);) - ident(NewKey)operator(.)ident(Spy)operator(()ident(NewHKEY)operator(\);) - reserved(end)operator(;) - - comment(//The new object now must be placed after the last key) - reserved(if) ident(Assigned)operator(()ident(LastKey)operator(\)) reserved(then) reserved(begin) - ident(LastKey)operator(.)ident(Next) operator(:=) ident(NewKey)operator(;) - reserved(end) reserved(else) reserved(begin) - comment(//If it's the first key, we don't have LastKey defined) - comment(//So we have to set the "Root" to it) - ident(Keys) operator(:=) ident(NewKey)operator(;) - reserved(end)operator(;) - comment(//Now the rest of <CURRENT> has to be placed after the new key) - ident(NewKey)operator(.)ident(Next) operator(:=) ident(Key)operator(;) - comment(//And LastKey also has to refreshed: It is "Key.Pref" = NewKey!) - ident(LastKey) operator(:=) ident(NewKey)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - - comment(//Because the whole <CURRENT> before Key is exactly <REAL>, the rest) - comment(//(if there is one\) must have been deleted!) - - comment(//So first let's ensure that <CURRENT> ends here:) - reserved(if) ident(Assigned)operator(()ident(LastKey)operator(\)) reserved(then) reserved(begin) - ident(LastKey)operator(.)ident(Next) operator(:=) reserved(nil)operator(;) - reserved(end) reserved(else) reserved(begin) - comment(//Another time: <CURRENT> is empty now, so set Keys instead) - ident(Keys) operator(:=) reserved(nil)operator(;) - reserved(end)operator(;) - - comment(//Now, the first key that maybe was "cut" off is Key:) - reserved(while) ident(Assigned)operator(()ident(Key)operator(\)) reserved(do) reserved(begin) - comment(//cV- So, here really something HAS been deleted) - ident(LastKey) operator(:=) ident(Key)operator(;) - ident(Key) operator(:=) ident(Key)operator(.)ident(Next)operator(;) - ident(AddChange)operator(()string<delimiter(')content(cK- )delimiter(')> operator(+) ident(Path) operator(+) char<delimiter(')content(\\)delimiter(')> operator(+) ident(LastKey)operator(.)ident(Name)operator(\);) - ident(LastKey)operator(.)ident(Free)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - - -reserved(begin) - ident(SL) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;) - - reserved(try) - ident(Reg)operator(.)ident(CurrentKey) operator(:=) ident(AHKEY)operator(;) - - ident(CompareValues)operator(;) - - ident(CompareData)operator(;) - - ident(CompareKeys)operator(;) - - reserved(finally) - ident(RegCloseKey)operator(()ident(AHKEY)operator(\);) - reserved(end)operator(;) - - ident(SL)operator(.)ident(Free)operator(;) -reserved(end)operator(;) - -reserved(initialization) - ident(Reg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(;) - ident(HKLMSpyKey) operator(:=) ident(TSpyKey)operator(.)ident(Create)operator(()reserved(nil)operator(,) string<delimiter(')content(HKEY_LOCAL_MACHINE)delimiter(')>operator(\);) - ident(HKUSpyKey) operator(:=) ident(TSpyKey)operator(.)ident(Create)operator(()reserved(nil)operator(,) string<delimiter(')content(HKEY_USERS)delimiter(')>operator(\);) - -reserved(finalization) - ident(Reg)operator(.)ident(Free)operator(;) - ident(HKLMSpyKey)operator(.)ident(Free)operator(;) - ident(HKUSpyKey)operator(.)ident(Free)operator(;) - -reserved(end)operator(.) -reserved(unit) ident(SisyphusTH)operator(;) - -reserved(interface) - -reserved(uses) - ident(Windows)operator(,) ident(Classes)operator(,) ident(StdCtrls)operator(,) ident(Dialogs)operator(,) ident(SysUtils)operator(,) ident(XReg)operator(,) ident(YTools)operator(,) ident(YTypes)operator(,) ident(Clock)operator(,) - ident(ComCtrls)operator(,) ident(PlutoConst)operator(,) ident(UniKey)operator(,) ident(CompEx)operator(;) - -reserved(const) - ident(SisyVersion) operator(=) string<delimiter(')content(1.2 b3)delimiter(')>operator(;) - ident(StatusPoints) operator(=) integer(25)operator(;) - -reserved(type) - ident(TSisyChangeType) operator(=) operator(()ident(cNone)operator(,) ident(cError)operator(,) - ident(cKeyPlus)operator(,) ident(cKeyMinus)operator(,) - ident(cValuePlus)operator(,) ident(cValueMinus)operator(,) - ident(cContextChange)operator(\);) - -reserved(const) - ident(SisyChangeStrings)operator(:) reserved(array)operator([)ident(TSisyChangeType)operator(]) reserved(of) reserved(string) operator(=) - operator(()char<delimiter(')content(?)delimiter(')>operator(,) string<delimiter(')content(Error)delimiter(')>operator(,) - string<delimiter(')content(cK+)delimiter(')>operator(,) string<delimiter(')content(cK-)delimiter(')>operator(,) - string<delimiter(')content(cV+)delimiter(')>operator(,) string<delimiter(')content(cV-)delimiter(')>operator(,) - string<delimiter(')content(cC)delimiter(')>operator(\);) - -reserved(type) - ident(TSpyValue) operator(=) reserved(class) - ident(Name)operator(:) reserved(string)operator(;) - ident(Next)operator(:) ident(TSpyValue)operator(;) - ident(Context)operator(:) ident(TRegContext)operator(;) - reserved(constructor) ident(Create)operator(()reserved(const) ident(Name)operator(:) reserved(string)operator(;) ident(Context)operator(:) ident(TRegContext)operator(\);) - reserved(end)operator(;) - - ident(TSisyThread) operator(=) reserved(class)operator(;) - - ident(TSpyKey) operator(=) reserved(class) - directive(public) - ident(Parent)operator(:) ident(TSpyKey)operator(;) - ident(Name)operator(:) reserved(string)operator(;) - ident(Next)operator(:) ident(TSpyKey)operator(;) - ident(Keys)operator(:) ident(TSpyKey)operator(;) - ident(Values)operator(:) ident(TSpyValue)operator(;) - reserved(procedure) ident(Spy)operator(()ident(AHKEY)operator(:) ident(HKEY)operator(;) ident(Sisy)operator(:) ident(TSisyThread)operator(\);) - reserved(function) ident(Path)operator(:) reserved(string)operator(;) - reserved(constructor) ident(Create)operator(()ident(AParent)operator(:) ident(TSpyKey)operator(;) ident(AName)operator(:) reserved(string)operator(\);) - reserved(destructor) ident(Destroy)operator(;) directive(override)operator(;) - reserved(end)operator(;) - - ident(TSisyChange) operator(=) reserved(class) - directive(public) - ident(Typ)operator(:) ident(TSisyChangeType)operator(;) - ident(Path)operator(:) reserved(string)operator(;) - ident(Old)operator(,) ident(New)operator(:) ident(TRegContext)operator(;) - reserved(constructor) ident(Create)operator(()ident(ATyp)operator(:) ident(TSisyChangeType)operator(;) reserved(const) ident(APath)operator(:) reserved(string)operator(;) - ident(AOldContext)operator(:) ident(TRegContext)operator(;) ident(ANewContext)operator(:) ident(TRegContext)operator(\);) - reserved(procedure) ident(ReportToPluto)operator(;) - reserved(end)operator(;) - - ident(TSisyChangeEvent) operator(=) reserved(procedure) operator(()ident(Sender)operator(:) ident(TSisyThread)operator(;) ident(Change)operator(:) ident(TSisyChange)operator(\)) reserved(of) reserved(object)operator(;) - ident(TSisyThread) operator(=) reserved(class)operator(()ident(TThread)operator(\)) - directive(private) - ident(Reg)operator(:) ident(TXRegistry)operator(;) - ident(Key)operator(:) ident(TSpyKey)operator(;) - ident(KeyHKEY)operator(:) ident(HKEY)operator(;) - ident(CurrentChange)operator(:) ident(TSisyChange)operator(;) - ident(FOnChange)operator(:) ident(TSisyChangeEvent)operator(;) - ident(FOnSpecialChanges)operator(:) reserved(array)operator([)ident(TSisyChangeType)operator(]) reserved(of) ident(TSisyChangeEvent)operator(;) - reserved(procedure) ident(FreeKey)operator(;) - reserved(procedure) ident(IncKeyCount)operator(;) - reserved(procedure) ident(IncKeyIndex)operator(;) - reserved(function) ident(GetSpecialChange)operator(()ident(ChangeType)operator(:) ident(TSisyChangeType)operator(\):) ident(TSisyChangeEvent)operator(;) - reserved(procedure) ident(SetSpecialChange)operator(()ident(ChangeType)operator(:) ident(TSisyChangeType)operator(;) - reserved(const) ident(Value)operator(:) ident(TSisyChangeEvent)operator(\);) - directive(protected) - reserved(procedure) ident(AddValueChange)operator(()ident(Typ)operator(:) ident(TSisyChangeType)operator(;) reserved(const) ident(Path)operator(:) reserved(string)operator(;) - ident(Old)operator(,) ident(New)operator(:) ident(TRegContext)operator(\);) - reserved(procedure) ident(AddKeyChange)operator(()ident(Typ)operator(:) ident(TSisyChangeType)operator(;) reserved(const) ident(Path)operator(:) reserved(string)operator(\);) - reserved(procedure) ident(Execute)operator(;) directive(override)operator(;) - reserved(procedure) ident(ShowInfo)operator(;) - reserved(procedure) ident(NotifyChange)operator(;) - reserved(procedure) ident(ReportCurrentChange)operator(;) - directive(public) - ident(CurrentSpyKey)operator(:) ident(TSpyKey)operator(;) - ident(StatusLabel)operator(:) ident(TLabel)operator(;) - ident(Name)operator(:) reserved(string)operator(;) - ident(Started)operator(:) ident(Boolean)operator(;) - ident(DoReport)operator(:) ident(Boolean)operator(;) - ident(SecsPerRound)operator(:) ident(Double)operator(;) - ident(InfoForShow)operator(:) reserved(string)operator(;) - ident(OnStarted)operator(:) ident(TNotifyEvent)operator(;) - ident(KeyCount)operator(:) ident(Integer)operator(;) - ident(PrevKeyCount)operator(:) ident(Integer)operator(;) - ident(KeyIndex)operator(:) ident(Integer)operator(;) - ident(TheClock)operator(:) ident(TClock)operator(;) - ident(Uni)operator(:) ident(TUniKey)operator(;) - ident(MaxValueCountToScan)operator(,) ident(MaxKeyCountToScan)operator(,) ident(MaxDataLenToScan)operator(:) ident(Cardinal)operator(;) - reserved(constructor) ident(CreateIt)operator(()reserved(const) ident(AName)operator(,) ident(AKeyName)operator(:) reserved(string)operator(;) ident(AHKEY)operator(:) ident(HKEY)operator(;) - ident(ALabel)operator(:) ident(TLabel)operator(;) ident(AUniKey)operator(:) ident(TUniKey)operator(\);) - reserved(destructor) ident(Destroy)operator(;) directive(override)operator(;) - - reserved(property) ident(OnChange)operator(:) ident(TSisyChangeEvent) directive(read) ident(FOnChange) directive(write) ident(FOnChange)operator(;) - reserved(property) ident(OnSpecialChange)operator([)ident(ChangeType)operator(:) ident(TSisyChangeType)operator(]:) ident(TSisyChangeEvent) - directive(read) ident(GetSpecialChange) directive(write) ident(SetSpecialChange)operator(;) - reserved(end)operator(;) - - ident(TSisyList) operator(=) reserved(class)operator(()ident(TList)operator(\)) - directive(protected) - reserved(function) ident(GetSisy)operator(()ident(Index)operator(:) ident(Integer)operator(\):) ident(TSisyThread)operator(;) - reserved(procedure) ident(PutSisy)operator(()ident(Index)operator(:) ident(Integer)operator(;) ident(Sisy)operator(:) ident(TSisyThread)operator(\);) - directive(public) - reserved(procedure) ident(Suspend)operator(;) - reserved(procedure) ident(Resume)operator(;) - reserved(property) ident(Items)operator([)ident(Index)operator(:) ident(Integer)operator(]:) ident(TSisyThread) directive(read) ident(GetSisy) directive(write) ident(PutSisy)operator(;) ident(default)operator(;) - reserved(end)operator(;) - -reserved(procedure) ident(SetSisyChangeState)operator(()ident(Node)operator(:) ident(TTreeNode)operator(;) ident(Active)operator(:) ident(Boolean)operator(\);) -reserved(function) ident(SisyChangeActivated)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\):) ident(Boolean)operator(;) - -reserved(var) - ident(SisyFilter)operator(:) ident(TStringList)operator(;) - -reserved(implementation) - -reserved(uses) ident(plutomain)operator(,) ident(workU)operator(,) ident(ValuesU)operator(;) - -reserved(procedure) ident(SetSisyChangeState)operator(()ident(Node)operator(:) ident(TTreeNode)operator(;) ident(Active)operator(:) ident(Boolean)operator(\);) -reserved(begin) - ident(Node)operator(.)ident(Data) operator(:=) ident(Pointer)operator(()reserved(not) ident(Active)operator(\);) -reserved(end)operator(;) - -reserved(function) ident(SisyChangeActivated)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\):) ident(Boolean)operator(;) -reserved(begin) - ident(Result) operator(:=) ident(Node)operator(.)ident(Data) operator(=) ident(Pointer)operator(()ident(False)operator(\);) -reserved(end)operator(;) - -comment({ TSisyThread }) - -reserved(constructor) ident(TSisyThread)operator(.)ident(CreateIt)operator(()reserved(const) ident(AName)operator(,) ident(AKeyName)operator(:) reserved(string)operator(;) - ident(AHKEY)operator(:) ident(HKEY)operator(;) ident(ALabel)operator(:) ident(TLabel)operator(;) ident(AUniKey)operator(:) ident(TUniKey)operator(\);) -reserved(begin) - reserved(inherited) ident(Create)operator(()ident(True)operator(\);) comment(// Create thread suspended) - - ident(Started) operator(:=) ident(False)operator(;) - ident(DoReport) operator(:=) ident(True)operator(;) - ident(KeyCount) operator(:=) integer(0)operator(;) - ident(FreeOnTerminate) operator(:=) ident(False)operator(;) comment(// Thread frees itself not when terminated) - - ident(KeyHKEY) operator(:=) ident(AHKEY)operator(;) - ident(Name) operator(:=) ident(AName)operator(;) - ident(StatusLabel) operator(:=) ident(ALabel)operator(;) - ident(StatusLabel)operator(.)ident(Caption) operator(:=) string<delimiter(')content(Zzzzzzz...)delimiter(')>operator(;) - - ident(Reg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(;) - ident(TheClock) operator(:=) ident(TClock)operator(.)ident(Create)operator(;) - - ident(Uni) operator(:=) ident(AUniKey)operator(.)ident(GetKey)operator(()ident(Name)operator(\);) - ident(Priority) operator(:=) ident(TThreadPriority)operator(()ident(Uni)operator(.)ident(ReadInteger)operator(()string<delimiter(')content(Priority)delimiter(')>operator(,) ident(Integer)operator(()ident(tpLowest)operator(\)\)\);) - ident(PrevKeyCount) operator(:=) ident(Uni)operator(.)ident(ReadInteger)operator(()string<delimiter(')content(KeyCount)delimiter(')>operator(,) integer(0)operator(\);) - - ident(MaxKeyCountToScan) operator(:=) ident(Cardinal)operator(()ident(Uni)operator(.)ident(ReadInteger)operator(()string<delimiter(')content(ScanTuner: MaxKeys)delimiter(')>operator(,) operator(-)integer(1)operator(\)\);) - ident(MaxValueCountToScan) operator(:=) ident(Cardinal)operator(()ident(Uni)operator(.)ident(ReadInteger)operator(()string<delimiter(')content(ScanTuner: MaxValues)delimiter(')>operator(,) operator(-)integer(1)operator(\)\);) - ident(MaxDataLenToScan) operator(:=) ident(Cardinal)operator(()ident(Uni)operator(.)ident(ReadInteger)operator(()string<delimiter(')content(ScanTuner: MaxDataLen)delimiter(')>operator(,) operator(-)integer(1)operator(\)\);) - - ident(Key) operator(:=) ident(TSpyKey)operator(.)ident(Create)operator(()reserved(nil)operator(,) ident(AKeyName)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TSisyThread)operator(.)ident(FreeKey)operator(;) -reserved(begin) - ident(Reg)operator(.)ident(Free)operator(;) - ident(TheClock)operator(.)ident(Free)operator(;) - ident(Key)operator(.)ident(Free)operator(;) -reserved(end)operator(;) - -reserved(destructor) ident(TSisyThread)operator(.)ident(Destroy)operator(;) -reserved(begin) - ident(Synchronize)operator(()ident(FreeKey)operator(\);) - reserved(inherited)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TSisyThread)operator(.)ident(Execute)operator(;) -reserved(begin) - ident(InfoForShow) operator(:=) ident(Name) operator(+) string<delimiter(')content( initializing...)delimiter(')>operator(;) - ident(Synchronize)operator(()ident(ShowInfo)operator(\);) - - ident(TheClock)operator(.)ident(Restart)operator(;) - ident(Started) operator(:=) ident(False)operator(;) - reserved(while) reserved(not) ident(Terminated) reserved(do) - reserved(try) - ident(KeyIndex) operator(:=) integer(0)operator(;) - - comment({ ===================== }) - ident(Key)operator(.)ident(Spy)operator(()ident(KeyHKEY)operator(,) ident(Self)operator(\);) - comment({ ===================== }) - - reserved(if) ident(Terminated) reserved(then) - ident(Continue)operator(;) comment(//= Exit) - - ident(SecsPerRound) operator(:=) ident(TheClock)operator(.)ident(SecondsPassed)operator(;) - ident(TheClock)operator(.)ident(Restart)operator(;) - reserved(if) reserved(not) ident(Started) reserved(then) reserved(begin) - ident(Started) operator(:=) ident(True)operator(;) - ident(Uni)operator(.)ident(WriteInteger)operator(()string<delimiter(')content(KeyCount)delimiter(')>operator(,) ident(KeyCount)operator(\);) - reserved(if) ident(Assigned)operator(()ident(OnStarted)operator(\)) reserved(then) - ident(OnStarted)operator(()ident(Self)operator(\);) - reserved(end)operator(;) - reserved(except) - ident(ShowMessage)operator(()string<delimiter(')content(Error in Sisyphus)delimiter(')>operator(\);) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TSisyThread)operator(.)ident(AddValueChange)operator(()ident(Typ)operator(:) ident(TSisyChangeType)operator(;) reserved(const) ident(Path)operator(:) reserved(string)operator(;) - ident(Old)operator(,) ident(New)operator(:) ident(TRegContext)operator(\);) - - reserved(procedure) ident(TryNotify)operator(()ident(Event)operator(:) ident(TSisyCHangeEvent)operator(\);) - reserved(begin) - - reserved(end)operator(;) - -reserved(begin) - reserved(if) reserved(not) operator(()ident(Started) reserved(and) ident(DoReport)operator(\)) reserved(then) - ident(Exit)operator(;) - - ident(CurrentChange) operator(:=) ident(TSisyChange)operator(.)ident(Create)operator(()ident(Typ)operator(,) ident(Path)operator(,) ident(Old)operator(,) ident(New)operator(\);) - ident(Synchronize)operator(()ident(ReportCurrentChange)operator(\);) - ident(Synchronize)operator(()ident(NotifyChange)operator(\);) - -comment(// CurrentChange.Free; //this makes Pluto itself) -reserved(end)operator(;) - -reserved(procedure) ident(TSisyThread)operator(.)ident(AddKeyChange)operator(()ident(Typ)operator(:) ident(TSisyChangeType)operator(;) reserved(const) ident(Path)operator(:) reserved(string)operator(\);) -reserved(begin) - ident(AddValueChange)operator(()ident(Typ)operator(,) ident(Path)operator(,) ident(ZeroRegContext)operator(,) ident(ZeroRegContext)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TSisyThread)operator(.)ident(ShowInfo)operator(;) -reserved(begin) - reserved(if) ident(Assigned)operator(()ident(StatusLabel)operator(\)) reserved(then) - ident(StatusLabel)operator(.)ident(Caption) operator(:=) ident(InfoForShow)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TSisyThread)operator(.)ident(ReportCurrentChange)operator(;) -reserved(begin) - reserved(if) ident(Assigned)operator(()ident(CurrentChange)operator(\)) reserved(then) - ident(CurrentChange)operator(.)ident(ReportToPluto)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TSisyThread)operator(.)ident(IncKeyCount)operator(;) -reserved(var) - ident(c)operator(:) ident(Integer)operator(;) -reserved(begin) - reserved(if) ident(Started) reserved(then) - ident(Exit)operator(;) - - ident(Inc)operator(()ident(KeyCount)operator(\);) - - reserved(if) operator(()ident(KeyCount) reserved(and) hex($1FF)operator(\)) operator(=) integer(0) reserved(then) reserved(begin) - reserved(if) ident(KeyCount) operator(>) ident(PrevKeyCount) reserved(then) - ident(PrevKeyCount) operator(:=) ident(KeyCount)operator(;) - - ident(c) operator(:=) integer(0)operator(;) - reserved(if) ident(PrevkeyCount) operator(>) integer(0) reserved(then) - ident(c) operator(:=) ident(Round)operator((()ident(KeyCount) operator(*) ident(StatusPoints)operator(\)) operator(/) ident(PrevKeyCount)operator(\);) - ident(InfoForShow) operator(:=) char<delimiter(')content(|)delimiter(')> operator(+) ident(MulStr)operator(()char<delimiter(')content(.)delimiter(')>operator(,) ident(c)operator(\)) operator(+) ident(MulStr)operator(()char<delimiter(')content( )delimiter(')>operator(,) ident(StatusPoints) operator(-) ident(c)operator(\)) operator(+) char<delimiter(')content(|)delimiter(')> operator(+) - ident(Format)operator(()string<delimiter(')content( (%0.1f s\) %d/%d k )delimiter(')>operator(,) - operator([)ident(TheClock)operator(.)ident(SecondsPassed)operator(,) ident(KeyCount)operator(,) ident(PrevKeyCount)operator(]\);) - - ident(Synchronize)operator(()ident(ShowInfo)operator(\);) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TSisyThread)operator(.)ident(IncKeyIndex)operator(;) -reserved(var) - ident(c)operator(:) ident(Integer)operator(;) -reserved(begin) - reserved(if) reserved(not) ident(Started) reserved(then) - ident(Exit)operator(;) - - ident(Inc)operator(()ident(KeyIndex)operator(\);) - - reserved(if) operator((()ident(KeyIndex) reserved(and) hex($1FF)operator(\)) operator(=) integer(0)operator(\)) reserved(and) operator(()ident(KeyCount) operator(>) integer(0)operator(\)) reserved(then) reserved(begin) - reserved(if) ident(KeyIndex) operator(>) ident(KeyCount) reserved(then) - ident(KeyCount) operator(:=) ident(KeyIndex)operator(;) - - ident(c) operator(:=) integer(0)operator(;) - reserved(if) ident(KeyCount) operator(>) integer(0) reserved(then) - ident(c) operator(:=) ident(Round)operator((()ident(KeyIndex) operator(*) ident(StatusPoints)operator(\)) operator(/) ident(KeyCount)operator(\);) - - ident(InfoForShow) operator(:=) char<delimiter(')content(|)delimiter(')> operator(+) ident(MulStr)operator(()char<delimiter(')content(:)delimiter(')>operator(,) ident(c)operator(\)) operator(+) ident(MulStr)operator(()char<delimiter(')content(.)delimiter(')>operator(,) ident(StatusPoints) operator(-) ident(c)operator(\)) operator(+) char<delimiter(')content(|)delimiter(')> operator(+) - ident(Format)operator(()string<delimiter(')content( (%0.1f s\) %d/%d k )delimiter(')>operator(,) operator([)ident(SecsPerRound)operator(,) ident(KeyIndex)operator(,) ident(KeyCount)operator(]\);) - - ident(Synchronize)operator(()ident(ShowInfo)operator(\);) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(function) ident(TSisyThread)operator(.)ident(GetSpecialChange)operator(()ident(ChangeType)operator(:) ident(TSisyChangeType)operator(\):) - ident(TSisyChangeEvent)operator(;) -reserved(begin) - ident(Result) operator(:=) ident(FOnSpecialChanges)operator([)ident(ChangeType)operator(];) -reserved(end)operator(;) - -reserved(procedure) ident(TSisyThread)operator(.)ident(SetSpecialChange)operator(()ident(ChangeType)operator(:) ident(TSisyChangeType)operator(;) - reserved(const) ident(Value)operator(:) ident(TSisyChangeEvent)operator(\);) -reserved(begin) - ident(FOnSpecialChanges)operator([)ident(ChangeType)operator(]) operator(:=) ident(Value)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TSisyThread)operator(.)ident(NotifyChange)operator(;) -reserved(var) - ident(Event)operator(:) ident(TSisyChangeEvent)operator(;) -reserved(begin) - ident(Event) operator(:=) ident(FOnSpecialChanges)operator([)ident(CurrentChange)operator(.)ident(Typ)operator(];) - reserved(if) ident(Assigned)operator(()ident(Event)operator(\)) reserved(then) - ident(Event)operator(()ident(Self)operator(,) ident(CurrentChange)operator(\);) - - reserved(if) ident(Assigned)operator(()ident(FOnChange)operator(\)) reserved(then) - ident(FOnChange)operator(()ident(Self)operator(,) ident(CurrentChange)operator(\);) -reserved(end)operator(;) - -comment({ TSpyValue }) - -reserved(constructor) ident(TSpyValue)operator(.)ident(Create)operator(()reserved(const) ident(Name)operator(:) reserved(string)operator(;) ident(Context)operator(:) ident(TRegContext)operator(\);) -reserved(begin) - ident(Self)operator(.)ident(Name) operator(:=) ident(Name)operator(;) - ident(Next) operator(:=) reserved(nil)operator(;) - ident(Self)operator(.)ident(Context) operator(:=) ident(Context)operator(;) -reserved(end)operator(;) - -comment({ TSpyKey }) - -reserved(constructor) ident(TSpyKey)operator(.)ident(Create)operator(()ident(AParent)operator(:) ident(TSpyKey)operator(;) ident(AName)operator(:) reserved(string)operator(\);) -reserved(begin) - ident(Name) operator(:=) ident(AName)operator(;) - ident(Parent) operator(:=) ident(AParent)operator(;) - - ident(Next) operator(:=) reserved(nil)operator(;) - ident(Keys) operator(:=) reserved(nil)operator(;) - ident(Values) operator(:=) reserved(nil)operator(;) -reserved(end)operator(;) - -reserved(destructor) ident(TSpyKey)operator(.)ident(Destroy)operator(;) -reserved(var) - ident(Value)operator(,) ident(NextValue)operator(:) ident(TSpyValue)operator(;) - ident(Key)operator(,) ident(NextKey)operator(:) ident(TSpyKey)operator(;) -reserved(begin) - ident(Value) operator(:=) ident(Values)operator(;) - reserved(while) ident(Assigned)operator(()ident(Value)operator(\)) reserved(do) reserved(begin) - ident(NextValue) operator(:=) ident(Value)operator(.)ident(Next)operator(;) - ident(Value)operator(.)ident(Free)operator(;) - ident(Value) operator(:=) ident(NextValue)operator(;) - reserved(end)operator(;) - - ident(Key) operator(:=) ident(Keys)operator(;) - reserved(while) ident(Assigned)operator(()ident(Key)operator(\)) reserved(do) reserved(begin) - ident(NextKey) operator(:=) ident(Key)operator(.)ident(Next)operator(;) - ident(Key)operator(.)ident(Free)operator(;) - ident(Key) operator(:=) ident(NextKey)operator(;) - reserved(end)operator(;) - - reserved(inherited)operator(;) -reserved(end)operator(;) - -reserved(function) ident(TSpyKey)operator(.)ident(Path)operator(:) reserved(string)operator(;) -reserved(begin) - reserved(if) ident(Assigned)operator(()ident(Parent)operator(\)) reserved(then) - ident(Result) operator(:=) ident(Parent)operator(.)ident(Path) operator(+) char<delimiter(')content(\\)delimiter(')> - reserved(else) - ident(Result) operator(:=) string<delimiter(')delimiter(')>operator(;) - - ident(Result) operator(:=) ident(Result) operator(+) ident(Name)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TSpyKey)operator(.)ident(Spy)operator(()ident(AHKEY)operator(:) ident(HKEY)operator(;) ident(Sisy)operator(:) ident(TSisyThread)operator(\);) -reserved(var) - ident(SL)operator(:) ident(TStringList)operator(;) - ident(LastKey)operator(:) ident(TSpyKey)operator(;) - - reserved(procedure) ident(CompareValues)operator(;) - reserved(var) - ident(i)operator(:) ident(Integer)operator(;) - ident(Value)operator(,) ident(LastValue)operator(,) ident(NewValue)operator(,) ident(SearchValue)operator(,) ident(SearchValue_Prev)operator(:) ident(TSpyValue)operator(;) - reserved(begin) - comment(//OK, this part is a little bit complicate. So I will comment very much.) - comment(//First, two terms are important:) - comment(//<REAL> means the list of values that will be read from the registry now:) - ident(Sisy)operator(.)ident(Reg)operator(.)ident(GetValueNames)operator(()ident(SL)operator(\);) - reserved(if) ident(Cardinal)operator(()ident(SL)operator(.)ident(Count)operator(\)) operator(>) ident(Sisy)operator(.)ident(MaxValueCountToScan) reserved(then) - ident(Exit)operator(;) - comment(//So <REAL> is TStringList.) - - comment(//<CURRENT> means the image that was saved before.) - comment(//Here, it is a linear list of TSpyValue objects. That means that you can) - comment(//only get X.Next and not X.Prev! However, I use "X.Prev" to simplify) - comment(//some comments.) - - comment(//!!! Comparing means: Make <CURRENT> fit <REAL> !!!) - - comment(//If <CURRENT> wasn't saved before, it is just empty.) - - comment(//!!! There is no difference in comparing and saving in this method !!!) - - comment(//Building means: Comparing with an empty image.) - - comment(//We go through <REAL> and make <CURRENT> fit it) - - comment(//The following rules are important:) - comment(//Value = "The currently interesting value.) - comment(//LastValue = "The value with X.Next = Value" = "Value.Pref") - - ident(LastValue) operator(:=) reserved(nil)operator(;) comment(// := "Values.Prev") - ident(Value) operator(:=) ident(Values)operator(;) comment(// := "LastValue.Next") - - comment(//Now compare step by step) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(SL)operator(.)ident(Count)operator(-)integer(1) reserved(do) reserved(begin) - reserved(if) ident(Assigned)operator(()ident(Value)operator(\)) reserved(and) operator(()ident(SL)operator([)ident(i)operator(]) operator(=) ident(Value)operator(.)ident(Name)operator(\)) reserved(then) reserved(begin) - comment(//cV= Normally (0.9999\) everything's the same) - ident(LastValue) operator(:=) ident(Value)operator(;) - ident(Value) operator(:=) ident(Value)operator(.)ident(Next)operator(;) - reserved(end) reserved(else) reserved(begin) comment(//Something's different? Yes, the IMPORTANT rest (0.0001\)\)) - comment(//Because the list finally must exactly fit SL, the "SL[i] value" hast) - comment(//to be inserted right here. But first let's look...) - - comment(//Maybe it was just moved? So search for it...) - ident(NewValue) operator(:=) reserved(nil)operator(;) - reserved(if) ident(Assigned)operator(()ident(Value)operator(\)) reserved(then) reserved(begin) - ident(SearchValue_Prev) operator(:=) ident(Value)operator(;) - ident(SearchValue) operator(:=) ident(Value)operator(.)ident(Next)operator(;) - reserved(while) ident(Assigned)operator(()ident(SearchValue)operator(\)) reserved(do) reserved(begin) - reserved(if) ident(SearchValue)operator(.)ident(Name) operator(=) ident(SL)operator([)ident(i)operator(]) reserved(then) reserved(begin) comment(//we found our moved value) - ident(SearchValue_Prev)operator(.)ident(Next) operator(:=) ident(SearchValue)operator(.)ident(Next)operator(;) comment(//delete it from <CURRENT>) - ident(NewValue) operator(:=) ident(SearchValue)operator(;) comment(//save that we found it) - ident(Break) reserved(end)operator(;) - ident(SearchValue_Prev) operator(:=) ident(SearchValue)operator(;) - ident(SearchValue) operator(:=) ident(SearchValue)operator(.)ident(Next)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - - reserved(if) reserved(not) ident(Assigned)operator(()ident(NewValue)operator(\)) reserved(then) reserved(begin) - comment(//cV+ No, not found! So it is new...) - ident(NewValue) operator(:=) ident(TSpyValue)operator(.)ident(Create)operator(()ident(SL)operator([)ident(i)operator(],) ident(Sisy)operator(.)ident(Reg)operator(.)ident(ReadContext)operator(()ident(SL)operator([)ident(i)operator(]\)\);) - comment({ ================ cV+ ================ }) - reserved(if) ident(Sisy)operator(.)ident(Started) reserved(and) ident(Sisy)operator(.)ident(Reg)operator(.)ident(ValueReallyExists)operator(()ident(SL)operator([)ident(i)operator(]\)) reserved(then) - ident(Sisy)operator(.)ident(AddValueChange)operator(()ident(cValuePlus)operator(,) ident(Path) operator(+) string<delimiter(')content(\\\\)delimiter(')> operator(+) ident(NewValue)operator(.)ident(Name)operator(,) - ident(ZeroRegContext)operator(,) ident(NewValue)operator(.)ident(Context)operator(\);) - reserved(end)operator(;) - - comment(//The new object now must be placed after the last value) - reserved(if) ident(Assigned)operator(()ident(LastValue)operator(\)) reserved(then) - ident(LastValue)operator(.)ident(Next) operator(:=) ident(NewValue) - reserved(else) - comment(//If it's the first value, we don't have LastValue defined) - comment(//So we have to set the "Root" to it) - ident(Values) operator(:=) ident(NewValue)operator(;) - - comment(//Now the rest of <CURRENT> has to be placed after the new value) - ident(NewValue)operator(.)ident(Next) operator(:=) ident(Value)operator(;) - comment(//And LastValue also has to refreshed: It is "Value.Pref" = NewValue!) - ident(LastValue) operator(:=) ident(NewValue)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - - comment(//Because the whole <CURRENT> before Value is exactly <REAL>, the rest) - comment(//(if there is one\) must have been deleted!) - - comment(//So first let's ensure that <CURRENT> ends here:) - reserved(if) ident(Assigned)operator(()ident(LastValue)operator(\)) reserved(then) - ident(LastValue)operator(.)ident(Next) operator(:=) reserved(nil) - reserved(else) - comment(//Another time: <CURRENT> is empty now, so set Values instead) - ident(Values) operator(:=) reserved(nil)operator(;) - - comment(//Now, the first value that maybe was "cut" off is Value:) - reserved(while) ident(Assigned)operator(()ident(Value)operator(\)) reserved(do) reserved(begin) - comment(//cV- So, here really something HAS been deleted) - ident(LastValue) operator(:=) ident(Value)operator(;) - ident(Value) operator(:=) ident(Value)operator(.)ident(Next)operator(;) - comment({ ================ cV- ================ }) - reserved(if) ident(Sisy)operator(.)ident(Started) reserved(and) reserved(not) ident(Sisy)operator(.)ident(Reg)operator(.)ident(ValueReallyExists)operator(()ident(LastValue)operator(.)ident(Name)operator(\)) reserved(then) - ident(Sisy)operator(.)ident(AddValueChange)operator(()ident(cValueMinus)operator(,) ident(Path) operator(+) string<delimiter(')content(\\\\)delimiter(')> operator(+) ident(LastValue)operator(.)ident(Name)operator(,) - ident(LastValue)operator(.)ident(Context)operator(,) ident(ZeroRegContext)operator(\);) - ident(LastValue)operator(.)ident(Free)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - - reserved(procedure) ident(CompareData)operator(;) - reserved(var) - ident(Value)operator(:) ident(TSpyValue)operator(;) - ident(Context)operator(:) ident(TRegContext)operator(;) - ident(Size)operator(:) ident(Cardinal)operator(;) - reserved(begin) - ident(Context) operator(:=) ident(ZeroRegContext)operator(;) comment(//Initialize) - comment(//So, finally <CURRENT> = <REAL>. That means we now can compare the data:) - ident(Value) operator(:=) ident(Values)operator(;) - reserved(while) ident(Assigned)operator(()ident(Value)operator(\)) reserved(and) reserved(not) ident(Sisy)operator(.)ident(Terminated) reserved(do) reserved(begin) - ident(Size) operator(:=) ident(Sisy)operator(.)ident(Reg)operator(.)ident(GetDataSize)operator(()ident(Value)operator(.)ident(Name)operator(\);) - reserved(if) operator(()ident(Size) operator(=) ident(Cardinal)operator((-)integer(1)operator(\)\)) reserved(or) - operator(()ident(Size) operator(<=) ident(Sisy)operator(.)ident(MaxDataLenToScan)operator(\)) reserved(then) reserved(begin) - ident(Context) operator(:=) ident(Sisy)operator(.)ident(Reg)operator(.)ident(ReadContext)operator(()ident(Value)operator(.)ident(Name)operator(\);) - reserved(if) reserved(not) ident(SameContext)operator(()ident(Context)operator(,) ident(Value)operator(.)ident(Context)operator(\)) reserved(then) reserved(begin) - comment({ ================ cC ================ }) - ident(Sisy)operator(.)ident(AddValueChange)operator(()ident(cContextChange)operator(,) ident(Path) operator(+) string<delimiter(')content(\\\\)delimiter(')> operator(+) ident(Value)operator(.)ident(Name)operator(,) - ident(Value)operator(.)ident(Context)operator(,) ident(Context)operator(\);) - ident(Value)operator(.)ident(Context) operator(:=) ident(Context)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - - ident(Value) operator(:=) ident(Value)operator(.)ident(Next)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - - reserved(procedure) ident(CompareKeys)operator(;) - reserved(var) - ident(i)operator(:) ident(Integer)operator(;) - ident(Key)operator(,) ident(LastKey)operator(,) ident(NewKey)operator(,) ident(SearchKey)operator(,) ident(SearchKey_Prev)operator(:) ident(TSpyKey)operator(;) - ident(SavedDoReport)operator(:) ident(Boolean)operator(;) - ident(NewHKEY)operator(:) ident(HKEY)operator(;) - reserved(begin) - comment(//OK, this part is a little bit complicate. So I will comment very much.) - comment(//First, two terms are important:) - comment(//<REAL> means the list of keys that will be read from the registry now:) - - ident(Sisy)operator(.)ident(Reg)operator(.)ident(GetKeyNames)operator(()ident(SL)operator(\);) - reserved(if) ident(Cardinal)operator(()ident(SL)operator(.)ident(Count)operator(\)) operator(>) ident(Sisy)operator(.)ident(MaxKeyCountToScan) reserved(then) - ident(Exit)operator(;) - comment(//So <REAL> is TStringList.) - - comment(//<CURRENT> means the image that was saved before.) - comment(//Here, it is a linear list of TSpyKey objects. That means that you can) - comment(//only get X.Next and not X.Prev! However, I use "X.Prev" to simplify) - comment(//some comments.) - - comment(//!!! Comparing means: Make <CURRENT> fit <REAL> !!!) - - comment(//If <CURRENT> wasn't saved before, it is just empty.) - - comment(//!!! There is no difference in comparing and saving in this method !!!) - - comment(//Building means: Comparing with an empty image.) - - comment(//We go through <REAL> and make <CURRENT> fit it) - - comment(//The following rules are important:) - comment(//Key = "The currently interesting key.) - comment(//LastKey = "The key with X.Next = Key" = "Key.Pref") - - ident(LastKey) operator(:=) reserved(nil)operator(;) comment(// := "Keys.Prev") - ident(Key) operator(:=) ident(Keys)operator(;) comment(// := "LastKey.Next") - - comment(//Now compare step by step) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(SL)operator(.)ident(Count)operator(-)integer(1) reserved(do) reserved(begin) - reserved(if) ident(Assigned)operator(()ident(Key)operator(\)) reserved(and) operator(()ident(SL)operator([)ident(i)operator(]) operator(=) ident(Key)operator(.)ident(Name)operator(\)) reserved(then) reserved(begin) - comment(//cK= Normally (0.9999\) everything's the same) - reserved(if) ident(Success)operator(()ident(RegOpenKey)operator(()ident(AHKEY)operator(,) ident(PChar)operator(()ident(SL)operator([)ident(i)operator(]\),) ident(NewHKEY)operator(\)\)) reserved(then) - reserved(try) - ident(Key)operator(.)ident(Spy)operator(()ident(NewHKEY)operator(,) ident(Sisy)operator(\);) - reserved(finally) - ident(RegCloseKey)operator(()ident(NewHKEY)operator(\);) - reserved(end)operator(;) - reserved(if) ident(Sisy)operator(.)ident(Terminated) reserved(then) - ident(Exit)operator(;) - - ident(LastKey) operator(:=) ident(Key)operator(;) - ident(Key) operator(:=) ident(Key)operator(.)ident(Next)operator(;) - reserved(end) reserved(else) reserved(begin) comment(//Something's different? Yes, the IMPORTANT rest (0.0001\)\)) - comment(//Because the list finally must exactly fit SL, the "SL[i] key" has) - comment(//to be inserted right here. But first let's look...) - - comment(//Maybe it was just moved? So search for it...) - ident(NewKey) operator(:=) reserved(nil)operator(;) - reserved(if) ident(Assigned)operator(()ident(Key)operator(\)) reserved(then) reserved(begin) - ident(SearchKey_Prev) operator(:=) ident(Key)operator(;) - ident(SearchKey) operator(:=) ident(Key)operator(.)ident(Next)operator(;) - reserved(while) ident(Assigned)operator(()ident(SearchKey)operator(\)) reserved(do) reserved(begin) - reserved(if) ident(SearchKey)operator(.)ident(Name) operator(=) ident(SL)operator([)ident(i)operator(]) reserved(then) reserved(begin) comment(//we found our moved key) - ident(SearchKey_Prev)operator(.)ident(Next) operator(:=) ident(SearchKey)operator(.)ident(Next)operator(;) comment(//delete it from <CURRENT>) - ident(NewKey) operator(:=) ident(SearchKey)operator(;) comment(//save that we found it) - ident(Break) reserved(end)operator(;) - ident(SearchKey_Prev) operator(:=) ident(SearchKey)operator(;) - ident(SearchKey) operator(:=) ident(SearchKey)operator(.)ident(Next)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - - reserved(if) reserved(not) ident(Assigned)operator(()ident(NewKey)operator(\)) reserved(then) reserved(begin) comment(//if we didn't find it) - comment(//cK+ No, not found! So it is new...) - ident(NewKey) operator(:=) ident(TSpyKey)operator(.)ident(Create)operator(()ident(Self)operator(,) ident(SL)operator([)ident(i)operator(]\);) - ident(Sisy)operator(.)ident(IncKeyCount)operator(;) - ident(Sisy)operator(.)ident(Reg)operator(.)ident(CurrentKey) operator(:=) ident(AHKEY)operator(;) - comment({ ================ cK+ ================ }) - reserved(if) ident(Sisy)operator(.)ident(Started) reserved(and) ident(Sisy)operator(.)ident(Reg)operator(.)ident(KeyExists)operator(()ident(SL)operator([)ident(i)operator(]\)) reserved(then) - ident(Sisy)operator(.)ident(AddKeyChange)operator(()ident(cKeyPlus)operator(,) ident(Path) operator(+) char<delimiter(')content(\\)delimiter(')> operator(+) ident(NewKey)operator(.)ident(Name)operator(\);) - - ident(SavedDoReport) operator(:=) ident(Sisy)operator(.)ident(DoReport)operator(;) - reserved(if) ident(Success)operator(()ident(RegOpenKey)operator(()ident(AHKEY)operator(,) ident(PChar)operator(()ident(SL)operator([)ident(i)operator(]\),) ident(NewHKEY)operator(\)\)) reserved(then) - reserved(try) - ident(Sisy)operator(.)ident(DoReport) operator(:=) ident(False)operator(;) - ident(NewKey)operator(.)ident(Spy)operator(()ident(NewHKEY)operator(,) ident(Sisy)operator(\);) comment(//<-- recursion itself) - reserved(finally) - ident(RegCloseKey)operator(()ident(NewHKEY)operator(\);) - ident(Sisy)operator(.)ident(DoReport) operator(:=) ident(SavedDoReport)operator(;) - reserved(end)operator(;) - - reserved(if) ident(Sisy)operator(.)ident(Terminated) reserved(then) - ident(Exit)operator(;) - reserved(end)operator(;) - - comment(//The new key now must be placed after the last key) - reserved(if) ident(Assigned)operator(()ident(LastKey)operator(\)) reserved(then) - ident(LastKey)operator(.)ident(Next) operator(:=) ident(NewKey) - reserved(else) - comment(//If it's the first key, we don't have LastKey defined) - comment(//So we have to set the "Root" to it) - ident(Keys) operator(:=) ident(NewKey)operator(;) - - comment(//Now the rest of <CURRENT> has to be placed after the new key) - ident(NewKey)operator(.)ident(Next) operator(:=) ident(Key)operator(;) - comment(//And LastKey also has to refreshed: It is "Key.Pref" = NewKey!) - ident(LastKey) operator(:=) ident(NewKey)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - - comment(//Because the whole <CURRENT> before Key is exactly <REAL>, the rest) - comment(//(if there is one\) must have been deleted!) - - comment(//So first let's ensure that <CURRENT> ends here:) - reserved(if) ident(Assigned)operator(()ident(LastKey)operator(\)) reserved(then) - ident(LastKey)operator(.)ident(Next) operator(:=) reserved(nil) - reserved(else) - comment(//Another time: <CURRENT> is empty now, so set Keys instead) - ident(Keys) operator(:=) reserved(nil)operator(;) - - comment(//Now, the first key that maybe was "cut" off is Key:) - reserved(while) ident(Assigned)operator(()ident(Key)operator(\)) reserved(do) reserved(begin) - comment(//cV- So, here really something HAS been deleted) - ident(LastKey) operator(:=) ident(Key)operator(;) - ident(Key) operator(:=) ident(Key)operator(.)ident(Next)operator(;) - ident(Sisy)operator(.)ident(Reg)operator(.)ident(CurrentKey) operator(:=) ident(AHKEY)operator(;) - comment({ ================ cK- ================ }) - reserved(if) ident(Sisy)operator(.)ident(Started) reserved(and) reserved(not) ident(Sisy)operator(.)ident(Reg)operator(.)ident(KeyExists)operator(()ident(LastKey)operator(.)ident(Name)operator(\)) reserved(then) - ident(Sisy)operator(.)ident(AddKeyChange)operator(()ident(cKeyMinus)operator(,) ident(Path) operator(+) char<delimiter(')content(\\)delimiter(')> operator(+) ident(LastKey)operator(.)ident(Name)operator(\);) - ident(LastKey)operator(.)ident(Free)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - - -reserved(begin) - reserved(if) ident(Sisy)operator(.)ident(Terminated) reserved(or) operator(()ident(AHKEY) operator(=) integer(0)operator(\)) reserved(then) - ident(Exit)operator(;) - ident(LastKey) operator(:=) ident(Sisy)operator(.)ident(CurrentSpyKey)operator(;) - ident(Sisy)operator(.)ident(CurrentSpyKey) operator(:=) ident(Self)operator(;) - - ident(Sisy)operator(.)ident(IncKeyIndex)operator(;) - - ident(SL) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;) - reserved(try) - ident(Sisy)operator(.)ident(Reg)operator(.)ident(CurrentKey) operator(:=) ident(AHKEY)operator(;) - ident(CompareValues)operator(;) - reserved(if) ident(Sisy)operator(.)ident(Started) reserved(then) ident(CompareData)operator(;) - ident(CompareKeys)operator(;) - reserved(finally) - ident(Sisy)operator(.)ident(Reg)operator(.)ident(CurrentKey) operator(:=) integer(0)operator(;) - ident(SL)operator(.)ident(Free)operator(;) - ident(Sisy)operator(.)ident(CurrentSpyKey) operator(:=) ident(LastKey)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -comment({ TSisyChange }) - -reserved(constructor) ident(TSisyChange)operator(.)ident(Create)operator(()ident(ATyp)operator(:) ident(TSisyChangeType)operator(;) reserved(const) ident(APath)operator(:) reserved(string)operator(;) - ident(AOldContext)operator(:) ident(TRegContext)operator(;) ident(ANewContext)operator(:) ident(TRegContext)operator(\);) -reserved(begin) - reserved(inherited) ident(Create)operator(;) - ident(Typ) operator(:=) ident(ATyp)operator(;) - ident(Path) operator(:=) ident(APath)operator(;) - ident(Old) operator(:=) ident(AOldContext)operator(;) - ident(New) operator(:=) ident(ANewContext)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TSisyChange)operator(.)ident(ReportToPluto)operator(;) -reserved(var) - ident(Node)operator(,) ident(RootNode)operator(:) ident(TTreeNode)operator(;) - ident(Root)operator(,) ident(SubPath)operator(:) reserved(string)operator(;) - ident(NewNode)operator(:) ident(Boolean)operator(;) - ident(i)operator(:) ident(Integer)operator(;) - - reserved(function) ident(IconOfSisyChangeType)operator(()ident(Typ)operator(:) ident(TSisyChangeType)operator(\):) ident(Integer)operator(;) - reserved(begin) - ident(Result) operator(:=) operator(-)integer(1)operator(;) - reserved(case) ident(Typ) reserved(of) - comment(//cNone, cError: Result := -1;) - ident(cKeyPlus)operator(..)ident(cContextChange)operator(:) ident(Result) operator(:=) ident(Integer)operator(()ident(Typ)operator(\)) operator(-) integer(2)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - - reserved(function) ident(FindNode)operator(()ident(Text)operator(:) reserved(string)operator(\):) ident(TTreeNode)operator(;) - reserved(begin) - ident(Result) operator(:=) ident(WorkWin)operator(.)ident(SisyTV)operator(.)ident(Items)operator(.)ident(GetFirstNode)operator(;) - reserved(while) ident(Assigned)operator(()ident(Result)operator(\)) reserved(do) reserved(begin) - reserved(if) ident(SameText)operator(()ident(Result)operator(.)ident(Text)operator(,) ident(Text)operator(\)) reserved(then) - ident(Exit)operator(;) - ident(Result) operator(:=) ident(Result)operator(.)ident(GetNextSibling)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - -reserved(begin) - reserved(if) reserved(not) ident(WorkWin)operator(.)ident(SisyListCB)operator(.)ident(Checked) reserved(then) - ident(Exit)operator(;) - - reserved(if) ident(Typ) reserved(in) operator([)ident(cContextChange)operator(,) ident(cValueMinus)operator(,) ident(cValuePlus)operator(]) reserved(then) reserved(begin) - ident(Root) operator(:=) ident(ExRegFullKey)operator(()ident(Path)operator(\);) - ident(SubPath) operator(:=) ident(ExRegValue)operator(()ident(Path)operator(\);) - reserved(end) reserved(else) reserved(begin) - ident(Root) operator(:=) ident(UntilLastChar)operator(()ident(ExRegFullKey)operator(()ident(Path)operator(\),) char<delimiter(')content(\\)delimiter(')>operator(\);) - ident(SubPath) operator(:=) ident(FromLastChar)operator(()ident(ExRegFullKey)operator(()ident(Path)operator(\),) char<delimiter(')content(\\)delimiter(')>operator(\);) - reserved(end)operator(;) - - reserved(with) ident(WorkWin) reserved(do) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(SisyFilter)operator(.)ident(Count)operator(-)integer(1) reserved(do) reserved(begin) - reserved(if) ident(TextAtPos)operator(()ident(Root)operator(,) integer(1)operator(,) ident(SisyFilter)operator([)ident(i)operator(]\)) reserved(then) reserved(begin) - comment(//show that it's working) - reserved(with) ident(FilterChangesB) reserved(do) reserved(begin) - ident(Caption) operator(:=) string<delimiter(')content(Filter..!)delimiter(')>operator(;) - ident(Repaint)operator(;) - ident(Caption) operator(:=) string<delimiter(')content(Filter...)delimiter(')>operator(;) - ident(Repaint)operator(;) - reserved(end)operator(;) - ident(Exit)operator(;) reserved(end)operator(;) - reserved(end)operator(;) - - reserved(with) ident(WorkWin)operator(.)ident(SisyTV)operator(.)ident(Items) reserved(do) reserved(begin) - ident(BeginUpdate)operator(;) - reserved(try) - ident(RootNode) operator(:=) ident(FindNode)operator(()ident(Root)operator(\);) - ident(NewNode) operator(:=) reserved(not) ident(Assigned)operator(()ident(RootNode)operator(\);) - reserved(if) ident(NewNode) reserved(then) reserved(begin) - ident(RootNode) operator(:=) ident(AddChild)operator(()reserved(nil)operator(,) ident(Root)operator(\);) - ident(RootNode)operator(.)ident(ImageIndex) operator(:=) ident(iconGroup)operator(;) - reserved(end) reserved(else) reserved(if) reserved(not) ident(SisyChangeActivated)operator(()ident(RootNode)operator(\)) reserved(then) reserved(begin) - ident(EndUpdate)operator(;) - ident(Exit) reserved(end)operator(;) - - ident(Node) operator(:=) ident(AddChildObject)operator(()ident(RootNode)operator(,) ident(SubPath)operator(,) ident(Self)operator(\);) - ident(Node)operator(.)ident(ImageIndex) operator(:=) ident(IconOfSisyChangeType)operator(()ident(Typ)operator(\);) - reserved(if) ident(Typ) operator(=) ident(cContextChange) reserved(then) reserved(begin) - ident(AddChild)operator(()ident(Node)operator(,) ident(DataPreviewOfContext)operator(()ident(Old)operator(\)\).)ident(ImageIndex) operator(:=) ident(iconOldContext)operator(;) - ident(AddChild)operator(()ident(Node)operator(,) ident(DataPreviewOfContext)operator(()ident(New)operator(\)\).)ident(ImageIndex) operator(:=) ident(iconNewContext)operator(;) - reserved(end)operator(;) - reserved(finally) - ident(EndUpdate)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - - reserved(if) ident(NewNode) reserved(and) ident(WorkWin)operator(.)ident(SisyExpandGroupsCB)operator(.)ident(Checked) reserved(then) - ident(RootNode)operator(.)ident(Expand)operator(()ident(False)operator(\);) - - reserved(if) reserved(not) ident(RootNode)operator(.)ident(Expanded) reserved(then) - ident(RootNode)operator(.)ident(ImageIndex) operator(:=) ident(iconGroupBlinking)operator(;) -reserved(end)operator(;) - -comment({ TSisyList }) - -reserved(function) ident(TSisyList)operator(.)ident(GetSisy)operator(()ident(Index)operator(:) ident(Integer)operator(\):) ident(TSisyThread)operator(;) -reserved(begin) - ident(Result) operator(:=) ident(Get)operator(()ident(Index)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TSisyList)operator(.)ident(PutSisy)operator(()ident(Index)operator(:) ident(Integer)operator(;) ident(Sisy)operator(:) ident(TSisyThread)operator(\);) -reserved(begin) - ident(Put)operator(()ident(Index)operator(,) ident(Sisy)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TSisyList)operator(.)ident(Resume)operator(;) -reserved(var) - ident(i)operator(:) ident(Integer)operator(;) -reserved(begin) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Count)operator(-)integer(1) reserved(do) - ident(Items)operator([)ident(i)operator(].)ident(Resume)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TSisyList)operator(.)ident(Suspend)operator(;) -reserved(var) - ident(i)operator(:) ident(Integer)operator(;) -reserved(begin) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Count)operator(-)integer(1) reserved(do) - ident(Items)operator([)ident(i)operator(].)ident(Resume)operator(;) -reserved(end)operator(;) - -reserved(initialization) - ident(SisyFilter) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;) - ident(SisyFilter)operator(.)ident(Sorted) operator(:=) ident(True)operator(;) - ident(SisyFilter)operator(.)ident(Duplicates) operator(:=) ident(dupIgnore)operator(;) - -reserved(finalization) - ident(SisyFilter)operator(.)ident(Free)operator(;) - -reserved(end)operator(.) -reserved(unit) ident(splash)operator(;) - -reserved(interface) - -reserved(uses) - ident(Windows)operator(,) ident(Messages)operator(,) ident(SysUtils)operator(,) ident(Classes)operator(,) ident(Graphics)operator(,) ident(Controls)operator(,) ident(Forms)operator(,) ident(Dialogs)operator(,) - ident(ExtCtrls)operator(,) ident(StdCtrls)operator(,) ident(ImgList)operator(,) ident(YTools)operator(,) ident(IniFiles)operator(,) ident(LinkLabel)operator(,) ident(PrefTools)operator(,) - ident(PlutoConst)operator(;) - -reserved(type) - ident(TSplashWin) operator(=) reserved(class)operator(()ident(TForm)operator(\)) - ident(Image1)operator(:) ident(TImage)operator(;) - ident(StartB)operator(:) ident(TButton)operator(;) - ident(SplashScreenCB)operator(:) ident(TPrefCheckBox)operator(;) - ident(LinkLabel1)operator(:) ident(TLinkLabel)operator(;) - ident(LinkLabel2)operator(:) ident(TLinkLabel)operator(;) - ident(LogoL)operator(:) ident(TLabel)operator(;) - reserved(procedure) ident(StartBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(FormShow)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(FormCreate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(FormHide)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(FormKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) - ident(Shift)operator(:) ident(TShiftState)operator(\);) - reserved(procedure) ident(SplashScreenCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(end)operator(;) - -reserved(var) - ident(SplashWin)operator(:) ident(TSplashWin)operator(;) - -reserved(implementation) - -reserved(uses) ident(plutomain)operator(,) ident(TreeU)operator(,) ident(WorkU)operator(,) ident(PrefU)operator(;) - -preprocessor({$R *.DFM}) - -reserved(procedure) ident(TSplashWin)operator(.)ident(StartBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(Close)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TSplashWin)operator(.)ident(FormShow)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(const) - ident(Messages)operator(:) reserved(array)operator([)integer(0)operator(..)integer(12)operator(]) reserved(of) reserved(string) operator(=) operator(()string<delimiter(')content(Let)char('')content(s see...)delimiter(')>operator(,) - string<delimiter(')content(Ready)delimiter(')>operator(,) - string<delimiter(')content(Hello World!)delimiter(')>operator(,) - string<delimiter(')content(Start)delimiter(')>operator(,) - string<delimiter(')content(OK)delimiter(')>operator(,) - string<delimiter(')content(Pluto!)delimiter(')>operator(,) - string<delimiter(')content(Go Go Go)delimiter(')>operator(,) - string<delimiter(')content(Everything)char('')content(s OK)delimiter(')>operator(,) - string<delimiter(')content(Yes!)delimiter(')>operator(,) - string<delimiter(')content(God save the Queen)delimiter(')>operator(,) - string<delimiter(')content(Oh yeah)delimiter(')>operator(,) - string<delimiter(')content(Yabadabadoo!)delimiter(')>operator(,) - string<delimiter(')content(Don)char('')content(t worry, be happy!)delimiter(')> - operator(\);) -reserved(var) - ident(ImageFile)operator(:) reserved(string)operator(;) -reserved(begin) - ident(Left) operator(:=) operator(()ident(Screen)operator(.)ident(Width) operator(-) ident(Width)operator(\)) reserved(div) integer(2)operator(;) - ident(Top) operator(:=) operator(()ident(Screen)operator(.)ident(Height) operator(-) ident(Height)operator(\)) reserved(div) integer(2)operator(;) - - ident(StartB)operator(.)ident(Caption) operator(:=) ident(Messages)operator([)ident(Random)operator(()ident(Length)operator(()ident(Messages)operator(\)\)];) - ident(SplashWin)operator(.)ident(SplashScreenCB)operator(.)ident(Load)operator(;) - - ident(Caption) operator(:=) string<delimiter(')content(cYcnus.Pluto )delimiter(')> operator(+) ident(Version) operator(+) string<delimiter(')content( says )delimiter(')> operator(+) ident(MainWin)operator(.)ident(Greeting)operator(;) - - reserved(try) - ident(ImageFile) operator(:=) ident(PlutoDir) operator(+) string<delimiter(')content(logo deluxe.bmp)delimiter(')>operator(;) - reserved(if) ident(FileEx)operator(()ident(ImageFile)operator(\)) reserved(then) reserved(begin) - reserved(with) ident(Image1)operator(.)ident(Picture) reserved(do) - reserved(if) ident(Graphic) operator(=) reserved(nil) reserved(then) - ident(LoadFromFile)operator(()ident(ImageFile)operator(\);) - reserved(if) reserved(not) ident(Switch)operator(()string<delimiter(')content(MurphyMode)delimiter(')>operator(\)) reserved(then) - ident(LogoL)operator(.)ident(Visible) operator(:=) ident(False)operator(;) - ident(Exit)operator(;) - reserved(end)operator(;) - - ident(ImageFile) operator(:=) ident(PlutoDir) operator(+) string<delimiter(')content(logo.bmp)delimiter(')>operator(;) - reserved(if) ident(FileEx)operator(()ident(ImageFile)operator(\)) reserved(then) reserved(begin) - reserved(with) ident(Image1)operator(.)ident(Picture) reserved(do) - reserved(if) ident(Graphic) operator(=) reserved(nil) reserved(then) - ident(LoadFromFile)operator(()ident(ImageFile)operator(\);) - reserved(end)operator(;) - reserved(except) - ident(ShowMessage)operator(()string<delimiter(')content(Could not load Splash Screen image!)delimiter(')>operator(\);) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TSplashWin)operator(.)ident(FormCreate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(Hide)operator(;) - ident(Randomize)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TSplashWin)operator(.)ident(FormHide)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - comment(//Image1.Picture.Bitmap.FreeImage;) -reserved(end)operator(;) - -reserved(procedure) ident(TSplashWin)operator(.)ident(FormKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) - ident(Shift)operator(:) ident(TShiftState)operator(\);) -reserved(begin) - reserved(if) ident(Key) operator(=) ident(VK_ESCAPE) reserved(then) - ident(Close)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TSplashWin)operator(.)ident(SplashScreenCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(if) ident(Started) reserved(then) - ident(PrefWin)operator(.)ident(SplashScreenCB)operator(.)ident(Checked) operator(:=) ident(SplashScreenCB)operator(.)ident(Checked)operator(;) -reserved(end)operator(;) - -reserved(end)operator(.) -reserved(unit) ident(SpyTH)operator(;) - -reserved(interface) - -reserved(uses) - ident(Classes)operator(,) ident(Windows)operator(,) ident(Dialogs)operator(,) ident(ComCtrls)operator(,) ident(CompEx)operator(,) ident(SysUtils)operator(,) ident(YTools)operator(,) ident(clock)operator(,) - ident(plutoconst)operator(,) ident(StdCtrls)operator(,) ident(forms)operator(,) ident(XReg)operator(,) ident(stringcomp)operator(;) - -reserved(type) - ident(TChildren) operator(=) reserved(array) reserved(of) ident(TTreeNode)operator(;) - - ident(TRegSpyThread) operator(=) reserved(class)operator(()ident(TThread)operator(\)) - directive(private) - ident(Reg)operator(:) ident(TXRegistry)operator(;) - ident(CurNode)operator(:) ident(TTreeNode)operator(;) - ident(Dead)operator(:) ident(Boolean)operator(;) - ident(Dif)operator(:) ident(TSLComp)operator(;) - ident(CurChildren)operator(:) ident(TChildren)operator(;) - directive(protected) - reserved(procedure) ident(Execute)operator(;) directive(override)operator(;) - - reserved(procedure) ident(SaveCheckNode)operator(;) - reserved(procedure) ident(SaveGetDif)operator(;) - reserved(procedure) ident(SaveDeleteDead)operator(;) - reserved(procedure) ident(SaveGetChildren)operator(;) - reserved(procedure) ident(SaveAddNew)operator(;) - directive(public) - ident(Restart)operator(:) ident(Boolean)operator(;) - ident(Mess)operator(:) reserved(string)operator(;) - ident(Delay)operator(:) ident(Integer)operator(;) - reserved(function) ident(Alive)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\):) ident(Boolean)operator(;) - reserved(procedure) ident(Spy)operator(;) - reserved(procedure) ident(Reload)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\);) - reserved(procedure) ident(ReloadValues)operator(;) - reserved(procedure) ident(AddTrace)operator(()ident(Trace)operator(:) reserved(string)operator(\);) - reserved(constructor) ident(CreateIt)operator(()ident(PriorityLevel)operator(:) ident(TThreadPriority)operator(\);) - reserved(destructor) ident(Destroy)operator(;) directive(override)operator(;) - reserved(end)operator(;) - -reserved(implementation) - -reserved(uses) ident(plutomain)operator(,) ident(TreeU)operator(,) ident(WorkU)operator(,) ident(ValuesU)operator(;) - -comment({ TRegSpyThread }) - -reserved(constructor) ident(TRegSpyThread)operator(.)ident(CreateIt)operator(()ident(PriorityLevel)operator(:) ident(TThreadPriority)operator(\);) -reserved(begin) - reserved(inherited) ident(Create)operator(()ident(True)operator(\);) comment(// Create thread suspended) - ident(Priority) operator(:=) ident(PriorityLevel)operator(;) comment(// Set Priority Level) - ident(FreeOnTerminate) operator(:=) ident(False)operator(;) comment(// Thread frees itself when terminated) - ident(Reg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(;) - ident(Delay) operator(:=) integer(100)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TRegSpyThread)operator(.)ident(Execute)operator(;) -reserved(begin) - reserved(while) reserved(not) ident(Terminated) reserved(do) reserved(begin) - ident(Restart) operator(:=) ident(False)operator(;) - reserved(try) - reserved(if) reserved(not) ident(Terminated) reserved(then) - ident(Sleep)operator(()ident(Delay)operator(\);) - reserved(if) reserved(not) ident(Terminated) reserved(then) - ident(Spy)operator(;) - reserved(except) reserved(end)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(function) ident(TRegSpyThread)operator(.)ident(Alive)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\):) ident(Boolean)operator(;) -reserved(begin) - ident(Result) operator(:=) ident(False)operator(;) - - reserved(if) ident(Restart) reserved(then) - ident(Exit)operator(;) - - reserved(if) ident(Terminated) reserved(then) - ident(Exit)operator(;) - - reserved(if) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then) - reserved(try) - reserved(if) operator(()ident(Node)operator(.)ident(Text) operator(=) string<delimiter(')delimiter(')>operator(\)) reserved(then) - ident(Exit)operator(;) - - reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then) - ident(Exit)operator(;) - - ident(Result) operator(:=) ident(True)operator(;) - reserved(except) - ident(Exit)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TRegSpyThread)operator(.)ident(SaveCheckNode)operator(;) -reserved(begin) - ident(Dead) operator(:=) reserved(not) ident(Alive)operator(()ident(CurNode)operator(\);) - reserved(if) ident(Dead) reserved(then) - ident(Exit)operator(;) - - ident(CheckNode)operator(()ident(CurNode)operator(,) ident(False)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TRegSpyThread)operator(.)ident(SaveGetDif)operator(;) -reserved(var) - ident(Real)operator(,) ident(Cur)operator(:) ident(TStringList)operator(;) -reserved(begin) - ident(Dead) operator(:=) reserved(not) ident(Alive)operator(()ident(CurNode)operator(\);) - reserved(if) ident(Dead) reserved(then) - ident(Exit)operator(;) - - ident(dif) operator(:=) reserved(nil)operator(;) - - reserved(if) reserved(not) ident(CurNode)operator(.)ident(Expanded) reserved(then) reserved(begin) - ident(Dead) operator(:=) ident(True)operator(;) - ident(Exit)operator(;) reserved(end)operator(;) - - reserved(if) reserved(not) ident(OpenNodeOK)operator(()ident(Reg)operator(,) ident(CurNode)operator(\)) reserved(then) - ident(Exit)operator(;) - - ident(Real) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;) - - ident(Reg)operator(.)ident(GetKeyNames)operator(()ident(Real)operator(\);) - ident(Reg)operator(.)ident(CloseKey)operator(;) - - ident(Cur) operator(:=) ident(GetChildNames)operator(()ident(CurNode)operator(\);) - - reserved(if) operator(()ident(Cur)operator(.)ident(Count) operator(=) integer(0)operator(\)) reserved(and) operator(()ident(Real)operator(.)ident(Count) operator(=) integer(0)operator(\)) reserved(then) - ident(Dead) operator(:=) ident(True)operator(;) - - ident(dif) operator(:=) ident(TSLComp)operator(.)ident(Create)operator(()ident(Cur)operator(,) ident(Real)operator(,) ident(False)operator(\);) - - ident(Cur)operator(.)ident(Free)operator(;) - ident(Real)operator(.)ident(Free)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TRegSpyThread)operator(.)ident(SaveDeleteDead)operator(;) -reserved(var) - ident(TN)operator(:) ident(TTreeNode)operator(;) - ident(i)operator(:) ident(Integer)operator(;) -reserved(begin) - ident(Dead) operator(:=) reserved(not) ident(Alive)operator(()ident(CurNode)operator(\);) - reserved(if) ident(Dead) reserved(then) - ident(Exit)operator(;) - - reserved(if) reserved(not) ident(Assigned)operator(()ident(dif)operator(\)) reserved(or) reserved(not) ident(Assigned)operator(()ident(dif)operator(.)ident(OnlyA)operator(\)) reserved(then) - ident(Exit)operator(;) - - reserved(if) ident(CurNode)operator(.)ident(Expanded) reserved(then) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(dif)operator(.)ident(OnlyA)operator(.)ident(Count)operator(-)integer(1) reserved(do) reserved(begin) - ident(TN) operator(:=) ident(FindNode)operator(()ident(CurNode)operator(,) ident(dif)operator(.)ident(OnlyA)operator([)ident(i)operator(]\);) - reserved(if) ident(Assigned)operator(()ident(TN)operator(\)) reserved(then) reserved(begin) - ident(RegTV)operator(.)ident(Selected) operator(:=) ident(GetNextBest)operator(()ident(TN)operator(\);) - ident(TN)operator(.)ident(Delete)operator(;) - ident(AddTrace)operator(()string<delimiter(')content(Key deleted: )delimiter(')> operator(+) ident(dif)operator(.)ident(OnlyA)operator([)ident(i)operator(]\);) - reserved(end)operator(;) - reserved(end) - reserved(else) - ident(Exit)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TRegSpyThread)operator(.)ident(SaveGetChildren)operator(;) -reserved(var) - ident(i)operator(:) ident(Integer)operator(;) - ident(TN)operator(:) ident(TTreeNode)operator(;) -reserved(begin) - ident(Dead) operator(:=) reserved(not) ident(Alive)operator(()ident(CurNode)operator(\);) - reserved(if) ident(Dead) reserved(then) - ident(Exit)operator(;) - - ident(CurChildren) operator(:=) reserved(nil)operator(;) - ident(SetLength)operator(()ident(CurChildren)operator(,) ident(CurNode)operator(.)ident(Count)operator(\);) - - ident(i) operator(:=) integer(0)operator(;) - ident(TN) operator(:=) ident(CurNode)operator(.)ident(GetFirstChild)operator(;) - reserved(while) ident(Assigned)operator(()ident(TN)operator(\)) reserved(do) reserved(begin) - reserved(if) ident(i) operator(<=) ident(High)operator(()ident(CurChildren)operator(\)) reserved(then) - ident(CurChildren)operator([)ident(i)operator(]) operator(:=) ident(TN) - reserved(else) - ident(ShowMessage)operator(()string<delimiter(')content(Error: Too much children)delimiter(')>operator(\);) - ident(Inc)operator(()ident(i)operator(\);) - ident(TN) operator(:=) ident(CurNode)operator(.)ident(GetNextChild)operator(()ident(TN)operator(\)) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TRegSpyThread)operator(.)ident(SaveAddNew)operator(;) -reserved(var) - ident(i)operator(:) ident(Integer)operator(;) -reserved(begin) - ident(Dead) operator(:=) reserved(not) ident(Alive)operator(()ident(CurNode)operator(\);) - reserved(if) ident(Dead) reserved(then) - ident(Exit)operator(;) - - reserved(if) reserved(not) ident(Assigned)operator(()ident(Dif)operator(\)) reserved(or) reserved(not) ident(Assigned)operator(()ident(Dif)operator(.)ident(OnlyB)operator(\)) reserved(or) operator(()ident(Dif)operator(.)ident(OnlyB)operator(.)ident(Count) operator(=) integer(0)operator(\)) reserved(then) - ident(Exit)operator(;) - - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Dif)operator(.)ident(OnlyB)operator(.)ident(Count)operator(-)integer(1) reserved(do) reserved(begin) comment(//Erstellt/hinbenannt) - ident(RegTV)operator(.)ident(Items)operator(.)ident(AddChild)operator(()ident(CurNode)operator(,) ident(Dif)operator(.)ident(OnlyB)operator([)ident(i)operator(]\);) - ident(AddTrace)operator(()string<delimiter(')content(New Key: )delimiter(')> operator(+) ident(dif)operator(.)ident(OnlyB)operator([)ident(i)operator(]\);) - ident(MainWin)operator(.)ident(StatusBarUpdate)operator(;) - comment(//AddHint('Neuer Schlüssel: ' + CurNode.Text + '\\' + Dif.OnlyB[i]\);) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TRegSpyThread)operator(.)ident(Reload)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\);) -reserved(var) - ident(i)operator(:) ident(Integer)operator(;) - ident(TN)operator(:) ident(TTreeNode)operator(;) - ident(zCurNode)operator(:) ident(TTreeNode)operator(;) - ident(MyChildren)operator(:) ident(TChildren)operator(;) -reserved(begin) - reserved(if) ident(Terminated) reserved(or) ident(Restart) reserved(then) - ident(Exit)operator(;) - - ident(CurNode) operator(:=) ident(Node)operator(;) - - ident(zCurNode) operator(:=) ident(CurNode)operator(;) - reserved(try) - comment(//Mess := 'SaveCheckNode';) - ident(Synchronize)operator(()ident(SaveCheckNode)operator(\);) - reserved(if) ident(Dead) reserved(or) ident(Terminated) reserved(then) - ident(Exit)operator(;) - - comment(//Mess := 'SaveGetDif';) - ident(Synchronize)operator(()ident(SaveGetDif)operator(\);) - reserved(if) ident(Dead) reserved(or) ident(Terminated) reserved(then) - ident(Exit)operator(;) - - comment(//Mess := 'SaveDeleteDead';) - ident(Synchronize)operator(()ident(SaveDeleteDead)operator(\);) - reserved(if) ident(Dead) reserved(or) ident(Terminated) reserved(then) - ident(Exit)operator(;) - - comment(//Mess := 'SaveGetChildren';) - ident(Synchronize)operator(()ident(SaveGetChildren)operator(\);) - reserved(if) ident(Dead) reserved(or) ident(Terminated) reserved(then) - ident(Exit)operator(;) - - comment(//Mess := 'SaveGetChildren';) - ident(Synchronize)operator(()ident(SaveAddNew)operator(\);) - reserved(if) ident(Dead) reserved(or) ident(Terminated) reserved(then) - ident(Exit)operator(;) - - ident(Dif)operator(.)ident(Free)operator(;) - - comment(//Mess := 'MyChildren';) - ident(SetLength)operator(()ident(MyChildren)operator(,) ident(Length)operator(()ident(CurChildren)operator(\)\);) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(High)operator(()ident(MyChildren)operator(\)) reserved(do) - ident(MyChildren)operator([)ident(i)operator(]) operator(:=) ident(CurChildren)operator([)ident(i)operator(];) - - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(High)operator(()ident(MyChildren)operator(\)) reserved(do) reserved(begin) - ident(TN) operator(:=) ident(MyChildren)operator([)ident(i)operator(];) - reserved(if) ident(Alive)operator(()ident(TN)operator(\)) reserved(then) - comment(//if TN.Expanded then) - comment(//if NodeVisible(TN\) then) - ident(Reload)operator(()ident(TN)operator(\);) - comment(//else) - comment(//Break;) - reserved(if) ident(Restart) reserved(or) ident(Terminated) reserved(then) - ident(Break)operator(;) - reserved(end)operator(;) - ident(MyChildren) operator(:=) reserved(nil)operator(;) - - reserved(except) - reserved(if) ident(Terminated) reserved(then) - ident(Exit)operator(;) - ident(AddHint)operator(()string<delimiter(')content(Error in Spy: )delimiter(')> operator(+) ident(Mess)operator(\);) - ident(WorkWin)operator(.)ident(Label7)operator(.)ident(Caption) operator(:=) string<delimiter(')content(ERROR)delimiter(')>operator(;) - reserved(end)operator(;) - ident(CurNode) operator(:=) ident(zCurNode)operator(;) -reserved(end)operator(;) - -reserved(function) ident(FindItemByRealName)operator(()ident(LV)operator(:) ident(TListView)operator(;) ident(Text)operator(:) reserved(string)operator(\):) ident(TListItem)operator(;) -reserved(var) - ident(i)operator(:) ident(Integer)operator(;) -reserved(begin) - ident(Result) operator(:=) reserved(nil)operator(;) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(LV)operator(.)ident(Items)operator(.)ident(Count)operator(-)integer(1) reserved(do) - reserved(if) ident(LV)operator(.)ident(Items)operator([)ident(i)operator(].)ident(Caption) operator(=) ident(Text) reserved(then) reserved(begin) - ident(Result) operator(:=) ident(LV)operator(.)ident(Items)operator([)ident(i)operator(];) - ident(Exit)operator(;) reserved(end)operator(;) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(LV)operator(.)ident(Items)operator(.)ident(Count)operator(-)integer(1) reserved(do) - reserved(if) ident(SameText)operator(()ident(RealValueName)operator(()ident(LV)operator(.)ident(Items)operator([)ident(i)operator(]\),) ident(Text)operator(\)) reserved(then) reserved(begin) - ident(Result) operator(:=) ident(LV)operator(.)ident(Items)operator([)ident(i)operator(];) - ident(Break)operator(;) reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TRegSpyThread)operator(.)ident(ReloadValues)operator(;) -reserved(var) - ident(Item)operator(:) ident(TListItem)operator(;) - ident(Real)operator(,) ident(Cur)operator(:) ident(TStringList)operator(;) - ident(Dif)operator(:) ident(TSLComp)operator(;) - ident(i)operator(:) ident(integer)operator(;) -reserved(begin) - reserved(if) ident(Terminated) reserved(or) ident(Restart) reserved(then) - ident(Exit)operator(;) - - reserved(if) reserved(not) ident(OpenNodeOK)operator(()ident(Reg)operator(,) ident(RegTV)operator(.)ident(Selected)operator(\)) reserved(then) - ident(Exit)operator(;) - - ident(Real) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;) - ident(Reg)operator(.)ident(GetValueNames)operator(()ident(Real)operator(\);) - - ident(Cur) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;) - reserved(with) ident(ValueList)operator(.)ident(Items) reserved(do) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Count)operator(-)integer(1) reserved(do) - ident(Cur)operator(.)ident(Add)operator(()ident(RealValueName)operator(()ident(Item)operator([)ident(i)operator(]\)\);) - - ident(Dif) operator(:=) ident(TSLComp)operator(.)ident(Create)operator(()ident(Cur)operator(,) ident(Real)operator(,) ident(False)operator(\);) - ident(Real)operator(.)ident(Free)operator(;) - ident(Cur)operator(.)ident(Free)operator(;) - - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Dif)operator(.)ident(OnlyA)operator(.)ident(Count)operator(-)integer(1) reserved(do) reserved(begin) comment(//Gelöscht/wegbenannt) - ident(Item) operator(:=) ident(FindItemByRealName)operator(()ident(ValueList)operator(,) ident(Dif)operator(.)ident(OnlyA)operator([)ident(i)operator(]\);) - reserved(if) ident(Assigned)operator(()ident(Item)operator(\)) reserved(then) reserved(begin) - ident(Item)operator(.)ident(Delete)operator(;) - ident(AddTrace)operator(()string<delimiter(')content(Value deleted: )delimiter(')> operator(+) ident(Dif)operator(.)ident(OnlyA)operator([)ident(i)operator(]\);) - reserved(end)operator(;) - reserved(end)operator(;) - - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(ValueList)operator(.)ident(Items)operator(.)ident(Count)operator(-)integer(1) reserved(do) reserved(begin) comment(//Daten) - ident(Item) operator(:=) ident(ValueList)operator(.)ident(Items)operator([)ident(i)operator(];) - comment({if Item.SubItems.Count < 2 then begin - ShowMessage('Fehler in Sync.'\); - Exit end; }) - reserved(if) ident(ValuesWin)operator(.)ident(UpdateValue)operator(()ident(Reg)operator(,) ident(Item)operator(\)) reserved(then) - ident(AddTrace)operator(()string<delimiter(')content(Value Changed: )delimiter(')> operator(+) ident(Item)operator(.)ident(Caption) operator(+) string<delimiter(')content( = )delimiter(')> operator(+) - ident(ValueDataPreview)operator(()ident(Reg)operator(.)ident(ReadContext)operator(()ident(RealValueName)operator(()ident(Item)operator(\)\)\)\);) - reserved(end)operator(;) - - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(dif)operator(.)ident(OnlyB)operator(.)ident(Count)operator(-)integer(1) reserved(do) reserved(begin) comment(//Erstellt/hinbenannt) - ident(ValuesWin)operator(.)ident(AddValue)operator(()ident(Reg)operator(,) ident(dif)operator(.)ident(OnlyB)operator([)ident(i)operator(]\);) - ident(AddTrace)operator(()string<delimiter(')content(New Value: )delimiter(')> operator(+) ident(Dif)operator(.)ident(OnlyB)operator([)ident(i)operator(]\);) - reserved(end)operator(;) - - ident(Reg)operator(.)ident(CloseKey)operator(;) - ident(Dif)operator(.)ident(Free)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TRegSpyThread)operator(.)ident(Spy)operator(;) -reserved(var) - ident(i)operator(:) ident(Integer)operator(;) - ident(a)operator(:) ident(Real)operator(;) -reserved(begin) - reserved(with) ident(TClock)operator(.)ident(Create) reserved(do) reserved(begin) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(RootNodes)operator(.)ident(Count)operator(-)integer(1) reserved(do) - ident(Reload)operator(()ident(TTreeNode)operator(()ident(RootNodes)operator([)ident(i)operator(]\)\);) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(High)operator(()ident(Shortcuts)operator(\)) reserved(do) - ident(Reload)operator(()ident(Shortcuts)operator([)ident(i)operator(].)ident(Node)operator(\);) - ident(Synchronize)operator(()ident(ReloadValues)operator(\);) - ident(a) operator(:=) ident(SecondsPassed) operator(*) integer(1000)operator(;) - ident(Free)operator(;) reserved(end)operator(;) - - reserved(if) ident(a) operator(>) integer(0) reserved(then) - ident(WorkWin)operator(.)ident(Label7)operator(.)ident(Caption) operator(:=) string<delimiter(')content(Spy: )delimiter(')> operator(+) ident(Format)operator(()string<delimiter(')content(%0.2f)delimiter(')>operator(,) operator([)ident(a)operator(]\)) operator(+) string<delimiter(')content( s)delimiter(')>operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TRegSpyThread)operator(.)ident(AddTrace)operator(()ident(Trace)operator(:) reserved(string)operator(\);) -reserved(begin) - reserved(with) ident(WorkWin) reserved(do) - reserved(if) ident(ListTracesCB)operator(.)ident(Checked) reserved(then) - ident(SpyLB)operator(.)ident(Items)operator(.)ident(Add)operator(()ident(Trace)operator(\);) -reserved(end)operator(;) - -reserved(destructor) ident(TRegSpyThread)operator(.)ident(Destroy)operator(;) -reserved(begin) - ident(Dif)operator(.)ident(Free)operator(;) - ident(Reg)operator(.)ident(Free)operator(;) - reserved(inherited)operator(;) -reserved(end)operator(;) - -reserved(end)operator(.) -reserved(unit) ident(TreeU)operator(;) -preprocessor({$DEFINE UNIKEY}) -preprocessor({$DEFINE CYCFS}) - -reserved(interface) - -reserved(uses) - ident(Windows)operator(,) ident(Messages)operator(,) ident(SysUtils)operator(,) ident(Variants)operator(,) ident(Classes)operator(,) ident(Graphics)operator(,) ident(Controls)operator(,) ident(Forms)operator(,) - ident(ComCtrls)operator(,) ident(Menus)operator(,) ident(Clipbrd)operator(,) ident(keybrd)operator(,) ident(Dialogs)operator(,) ident(YTools)operator(,) ident(PlutoConst)operator(,) ident(CompEx)operator(,) - ident(IniFiles)operator(,) ident(XReg)operator(,) ident(Colors)operator(,) ident(Clock)operator(,) - ident(ToolWin)operator(,) ident(RegFiles) preprocessor({$IFDEF UNIKEY})operator(,) ident(UniKey)operator(,) ident(ImgList) preprocessor({$ENDIF})operator(;) - -reserved(type) - ident(TTreeWin) operator(=) reserved(class)operator(()ident(TForm)operator(\)) - ident(RegTVPU)operator(:) ident(TPopupMenu)operator(;) - ident(NewSubKeyMI)operator(:) ident(TMenuItem)operator(;) - ident(NewKeyMI)operator(:) ident(TMenuItem)operator(;) - ident(CreateShortcutMI)operator(:) ident(TMenuItem)operator(;) - ident(TraceMI)operator(:) ident(TMenuItem)operator(;) - ident(N3)operator(:) ident(TMenuItem)operator(;) - ident(DeleteMI)operator(:) ident(TMenuItem)operator(;) - ident(DublicateMI)operator(:) ident(TMenuItem)operator(;) - ident(N4)operator(:) ident(TMenuItem)operator(;) - ident(FindMI)operator(:) ident(TMenuItem)operator(;) - ident(RegTV)operator(:) ident(TTreeView)operator(;) - ident(PastePathMI)operator(:) ident(TMenuItem)operator(;) - ident(N1)operator(:) ident(TMenuItem)operator(;) - ident(InsertPathMI)operator(:) ident(TMenuItem)operator(;) - ident(RenameMI)operator(:) ident(TMenuItem)operator(;) - ident(CopyPathMI)operator(:) ident(TMenuItem)operator(;) - ident(CutPathMI)operator(:) ident(TMenuItem)operator(;) - ident(EditShortcutMI)operator(:) ident(TMenuItem)operator(;) - ident(N2)operator(:) ident(TMenuItem)operator(;) - ident(Export1)operator(:) ident(TMenuItem)operator(;) - ident(SubKeylist1)operator(:) ident(TMenuItem)operator(;) - ident(ValueNameslist1)operator(:) ident(TMenuItem)operator(;) - ident(KeyInfosMI)operator(:) ident(TMenuItem)operator(;) - ident(N5)operator(:) ident(TMenuItem)operator(;) - ident(ExportAsReg)operator(:) ident(TMenuItem)operator(;) - ident(ExportD)operator(:) ident(TSaveDialog)operator(;) - reserved(procedure) ident(FormCreate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(RegTVClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(RegTVChange)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\);) - reserved(procedure) ident(RegTVChanging)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(;) reserved(var) ident(AllowChange)operator(:) ident(Boolean)operator(\);) - reserved(procedure) ident(RegTVCollapsing)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(;) reserved(var) ident(AllowCollapse)operator(:) ident(Boolean)operator(\);) - reserved(procedure) ident(RegTVCustomDrawItem)operator(()ident(Sender)operator(:) ident(TCustomTreeView)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(;) ident(State)operator(:) ident(TCustomDrawState)operator(;) reserved(var) ident(DefaultDraw)operator(:) ident(Boolean)operator(\);) - reserved(procedure) ident(RegTVDblClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(RegTVDeletion)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\);) - reserved(procedure) ident(RegTVDragDrop)operator(()ident(Sender)operator(,) ident(Source)operator(:) ident(TObject)operator(;) ident(X)operator(,) ident(Y)operator(:) ident(Integer)operator(\);) - reserved(procedure) ident(RegTVDragOver)operator(()ident(Sender)operator(,) ident(Source)operator(:) ident(TObject)operator(;) ident(X)operator(,) ident(Y)operator(:) ident(Integer)operator(;) ident(State)operator(:) ident(TDragState)operator(;) reserved(var) ident(Accept)operator(:) ident(Boolean)operator(\);) - reserved(procedure) ident(RegTVEdited)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(;) reserved(var) ident(S)operator(:) ident(String)operator(\);) - reserved(procedure) ident(RegTVEditing)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(;) reserved(var) ident(AllowEdit)operator(:) ident(Boolean)operator(\);) - reserved(procedure) ident(RegTVEndDrag)operator(()ident(Sender)operator(,) ident(Target)operator(:) ident(TObject)operator(;) ident(X)operator(,) ident(Y)operator(:) ident(Integer)operator(\);) - reserved(procedure) ident(RegTVEnter)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(RegTVExpanded)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\);) - reserved(procedure) ident(RegTVExpanding)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(;) reserved(var) ident(AllowExpansion)operator(:) ident(Boolean)operator(\);) - reserved(procedure) ident(RegTVGetSelectedIndex)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\);) - reserved(procedure) ident(RegTVKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);) - reserved(procedure) ident(RegTVMouseDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Button)operator(:) ident(TMouseButton)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(;) ident(X)operator(,) ident(Y)operator(:) ident(Integer)operator(\);) - reserved(procedure) ident(RegTVStartDrag)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(DragObject)operator(:) ident(TDragObject)operator(\);) - - reserved(function) ident(CreateKey)operator(()ident(Subkey)operator(:) ident(Boolean)operator(\):) ident(Boolean)operator(;) - reserved(procedure) ident(CloneKey)operator(;) - reserved(procedure) ident(DeleteKey)operator(;) - reserved(procedure) ident(NewShortcut)operator(;) - reserved(procedure) ident(MoveKey)operator(()reserved(const) ident(Src)operator(,) ident(Trg)operator(:) ident(TRegPath)operator(;) ident(CopyWanted)operator(:) ident(Boolean)operator(\);) - reserved(procedure) ident(MoveValues)operator(()ident(SrcNode)operator(,) ident(TrgNode)operator(:) ident(TTreeNode)operator(;) ident(CopyWanted)operator(:) ident(Boolean)operator(\);) - - reserved(procedure) ident(NewSubKeyMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(NewKeyMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(CreateShortcutMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(TraceMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(DeleteMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(DublicateMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(FindMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(RegTVPUPopup)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(FormKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);) - reserved(procedure) ident(RegTVKeyPress)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Char)operator(\);) - reserved(procedure) ident(RegTVAdvancedCustomDrawItem)operator(()ident(Sender)operator(:) ident(TCustomTreeView)operator(;) - ident(Node)operator(:) ident(TTreeNode)operator(;) ident(State)operator(:) ident(TCustomDrawState)operator(;) ident(Stage)operator(:) ident(TCustomDrawStage)operator(;) - reserved(var) ident(PaintImages)operator(,) ident(DefaultDraw)operator(:) ident(Boolean)operator(\);) - reserved(procedure) ident(RenameMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(CopyPathMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(InsertPathMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(RegTVGetImageIndex)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\);) - reserved(procedure) ident(CheckRegTVHotTrack)operator(;) - reserved(procedure) ident(PasteKeyMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(CutPathMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - - reserved(procedure) ident(OpenNextLevel)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\);) - reserved(procedure) ident(EditShortcutMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(SubKeylist1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(ValueNameslist1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(KeyInfosMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(function) ident(GetKeyInfos)operator(:) reserved(string)operator(;) - reserved(procedure) ident(ExportAsRegClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(FormClose)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Action)operator(:) ident(TCloseAction)operator(\);) - - reserved(procedure) ident(Load)operator(;) - reserved(procedure) ident(Reg4WriterTerminate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - directive(private) - ident(DragNode)operator(:) ident(TTreeNode)operator(;) - ident(NoAsterisk)operator(:) ident(Boolean)operator(;) comment(//To prevent NumPadMULTIPLY and asterisk errors) - ident(UserCopyKeyFlag)operator(:) ident(Boolean)operator(;) - ident(SpaceCount)operator(:) ident(Integer)operator(;) comment(//EasterEgg) - directive(public) - ident(CantWrite)operator(:) ident(Boolean)operator(;) - ident(DoSmartExpand)operator(:) ident(Boolean)operator(;) - reserved(end)operator(;) - -reserved(procedure) ident(CheckNode)operator(()ident(Node)operator(:) ident(TTreeNode)operator(;) ident(OnlyOnce)operator(:) ident(Boolean) operator(=) ident(True)operator(;) - ident(TakeNodeSelected)operator(:) ident(Boolean) operator(=) ident(False)operator(\);) - -reserved(function) ident(AddShortcut)operator(()ident(Alias)operator(,) ident(RealPath)operator(:) reserved(string)operator(;) ident(Icon)operator(:) ident(Integer)operator(;) - ident(AHostType)operator(:) ident(TUniHostType) operator(=) ident(uhUserShortcut)operator(;) ident(WriteIni)operator(:) ident(Boolean) operator(=) ident(False)operator(\):) ident(TTreeNode)operator(;) -reserved(function) ident(ShortcutIndex)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\):) ident(Integer)operator(;) - -reserved(function) ident(TraceKey)operator(()reserved(const) ident(Path)operator(:) reserved(string)operator(;) ident(AllowedShortcutTypes)operator(:) ident(TUniHostTypes) operator(=) - ident(uhNonSystemShortcuts)operator(\):) reserved(string)operator(;) - -reserved(type) - ident(TOpenNodeMode) operator(=) operator(()ident(onNodeNil)operator(,) ident(onError)operator(,) ident(onReadOnly)operator(,) ident(onFull)operator(\);) - -reserved(const) - ident(onOK) operator(=) operator([)ident(onFull)operator(,) ident(onReadOnly)operator(];) - -reserved(function) ident(OpenNode)operator(()ident(Reg)operator(:) ident(TXRegistry)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\):) ident(TOpenNodeMode)operator(;) -reserved(function) ident(OpenNodeOK)operator(()ident(Reg)operator(:) ident(TXRegistry)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\):) ident(Boolean)operator(;) -reserved(function) ident(OpenCurKey)operator(:) ident(Boolean)operator(;) -reserved(function) ident(OpenCurParent)operator(:) ident(Boolean)operator(;) - -reserved(var) - ident(TreeWin)operator(:) ident(TTreeWin)operator(;) - - ident(RegTV)operator(:) ident(TTreeView)operator(;) comment(//Shortcut for other units, equals TreeWin.RegTV) - -preprocessor({$IFDEF UNIKEY}) - ident(UserUniPath)operator(:) reserved(string) preprocessor({$IFDEF CYCFS}) operator(=) string<delimiter(')content(cYcFS <y:\\programme\\cYcFS\\test>)delimiter(')>preprocessor({$ENDIF})operator(;) -preprocessor({$ENDIF}) - ident(Shortcuts)operator(:) ident(TShortcutA)operator(;) - ident(RootNodes)operator(:) ident(TList)operator(;) comment(//list of TTreeNode;) - -reserved(implementation) - -reserved(uses) - ident(PlutoMain)operator(,) ident(ValuesU)operator(,) ident(FindWinU)operator(,) ident(WorkU)operator(,) ident(PrefU)operator(,) ident(ShellEx)operator(,) ident(Types)operator(;) - -preprocessor({$R *.dfm}) - -preprocessor({$IFDEF UNIKEY}) -reserved(function) ident(UniOfNode)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\):) ident(TUniKey)operator(;) -reserved(var) - ident(UniPath)operator(:) ident(TUniPath)operator(;) -reserved(begin) - ident(UniPath) operator(:=) ident(UniOfStr)operator(()ident(UserUniPath)operator(\);) - ident(UniPath)operator(.)ident(Path) operator(:=) ident(Join)operator(()ident(Copy)operator(()ident(NodePath)operator(()ident(Node)operator(\),) integer(1)operator(,) ident(MaxInt)operator(\),) char<delimiter(')content(/)delimiter(')>operator(\);) - ident(Result) operator(:=) ident(TUniKey)operator(.)ident(CreateU)operator(()ident(UniPath)operator(,) ident(reTryToSolve)operator(\);) -reserved(end)operator(;) -preprocessor({$ENDIF}) - -reserved(procedure) ident(TTreeWin)operator(.)ident(FormCreate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(TreeU)operator(.)ident(RegTV) operator(:=) ident(RegTV)operator(;) - - ident(DragNode) operator(:=) reserved(nil)operator(;) - ident(NoAsterisk) operator(:=) ident(False)operator(;) - ident(DoSmartExpand) operator(:=) ident(True)operator(;) - ident(UserCopyKeyFlag) operator(:=) ident(True)operator(;) - ident(SpaceCount) operator(:=) integer(0)operator(;) comment(//EasterEgg) - - ident(RegTV)operator(.)ident(Items)operator(.)ident(Clear)operator(;) - ident(CheckRegTVHotTrack)operator(;) - - ident(KeyInfosMI)operator(.)ident(ImageIndex) operator(:=) ident(iconKeyInfos)operator(;) - - ident(NewSubKeyMI)operator(.)ident(ImageIndex) operator(:=) ident(iconSubKey)operator(;) - ident(NewKeyMI)operator(.)ident(ImageIndex) operator(:=) ident(iconKey)operator(;) - ident(CreateShortcutMI)operator(.)ident(ImageIndex) operator(:=) ident(iconShortcut)operator(;) - - ident(RenameMI)operator(.)ident(ImageIndex) operator(:=) ident(iconRename)operator(;) - ident(DeleteMI)operator(.)ident(ImageIndex) operator(:=) ident(iconDelete)operator(;) - ident(DublicateMI)operator(.)ident(ImageIndex) operator(:=) ident(iconKeyDublicate)operator(;) - - ident(FindMI)operator(.)ident(ImageIndex) operator(:=) ident(iconKeyFind)operator(;) - ident(TraceMI)operator(.)ident(ImageIndex) operator(:=) ident(iconKeyTrace)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(if) ident(KeyIsDown)operator(()ident(VK_CONTROL)operator(\)) reserved(then) reserved(begin) - ident(TraceMIClick)operator(()ident(Sender)operator(\);) - ident(Exit)operator(;) reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVChange)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\);) -reserved(var) - ident(Reg)operator(:) ident(TXRegistry)operator(;) - ident(OpenRe)operator(:) ident(TOpenNodeMode)operator(;) - -preprocessor({$IFDEF UNIKEY}) - ident(Uni)operator(:) ident(TUniKey)operator(;) - ident(ValueNames)operator(:) ident(TStringList)operator(;) - ident(Item)operator(:) ident(TListItem)operator(;) - ident(i)operator(:) ident(Integer)operator(;) - - reserved(procedure) ident(AppendSubItemData)operator(()ident(SubItems)operator(:) ident(TStrings)operator(;) ident(Uni)operator(:) ident(TUniKey)operator(;) - reserved(const) ident(ValueName)operator(:) reserved(string)operator(\);) - reserved(var) - ident(SL)operator(:) ident(TStringList)operator(;) - - reserved(procedure) ident(Add)operator(()reserved(const) ident(s)operator(:) reserved(string)operator(\);) - reserved(begin) - ident(SubItems)operator(.)ident(Append)operator(()ident(s)operator(\);) - reserved(end)operator(;) - - reserved(begin) - ident(SL) operator(:=) reserved(nil)operator(;) - reserved(try) - ident(Add)operator(()string<delimiter(')content(beta)delimiter(')>operator(\);) - - reserved(case) ident(Uni)operator(.)ident(GetDataType)operator(()ident(ValueName)operator(\)) reserved(of) - - ident(udString)operator(,) ident(udExpandString)operator(:) reserved(begin) - ident(Add)operator(()string<delimiter(')content(String)delimiter(')>operator(\);) - ident(Add)operator(()ident(Uni)operator(.)ident(ReadString)operator(()ident(ValueName)operator(\)\);) - reserved(end)operator(;) - - ident(udCardinal)operator(,) ident(udCardBigEndian)operator(,) ident(udInteger)operator(:) reserved(begin) - ident(Add)operator(()string<delimiter(')content(Numeric)delimiter(')>operator(\);) - ident(Add)operator(()ident(IntToStr)operator(()ident(Uni)operator(.)ident(ReadInteger)operator(()ident(ValueName)operator(\)\)\);) - reserved(end)operator(;) - - ident(udBinary)operator(,) ident(udNone)operator(:) reserved(begin) - ident(Add)operator(()string<delimiter(')content(Binary)delimiter(')>operator(\);) - ident(Add)operator(()ident(FriendlyStr)operator(()ident(Uni)operator(.)ident(ReadBinary)operator(()ident(ValueName)operator(\)\)\);) - reserved(end)operator(;) - - ident(udBoolean)operator(:) reserved(begin) - ident(Add)operator(()string<delimiter(')content(Boolean)delimiter(')>operator(\);) - ident(Add)operator(()ident(StrOfBool)operator(()ident(Uni)operator(.)ident(ReadBool)operator(()ident(ValueName)operator(\)\)\);) - reserved(end)operator(;) - - ident(udStringList)operator(:) reserved(begin) - ident(Add)operator(()string<delimiter(')content(List)delimiter(')>operator(\);) - reserved(if) reserved(not) ident(Assigned)operator(()ident(SL)operator(\)) reserved(then) - ident(SL) operator(:=) ident(TStringList)operator(.)ident(Create) - reserved(else) - ident(SL)operator(.)ident(Clear)operator(;) - ident(Uni)operator(.)ident(ReadStringList)operator(()ident(ValueName)operator(,) ident(SL)operator(\);) - ident(Add)operator(()ident(Join)operator(()ident(SL)operator(,) ident(MultiStringSeparator)operator(\)\);) - reserved(end)operator(;) - - ident(udColor)operator(:) reserved(begin) - ident(Add)operator(()string<delimiter(')content(Color)delimiter(')>operator(\);) - ident(Add)operator(()ident(ColorToString)operator(()ident(Uni)operator(.)ident(ReadColor)operator(()ident(ValueName)operator(\)\)\);) - reserved(end)operator(;) - - reserved(else) - ident(Add)operator(()string<delimiter(')content(Unsupported Data Type: )delimiter(')> operator(+) - ident(IntToStr)operator(()ident(Cardinal)operator(()ident(Uni)operator(.)ident(GetDataType)operator(()ident(ValueName)operator(\)\)\)\);) - reserved(end)operator(;) comment(//case) - - reserved(finally) - ident(SL)operator(.)ident(Free)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - - -preprocessor({$ENDIF}) - -reserved(begin) - ident(SpaceCount) operator(:=) integer(0)operator(;) comment(//Easteregg) - - ident(CheckNode)operator(()ident(Node)operator(,) ident(False)operator(\);) - ident(CantWrite) operator(:=) ident(False)operator(;) - - reserved(try) - ident(SpyThread)operator(.)ident(Suspend)operator(;) - ident(Reg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(;) - reserved(try) - -preprocessor({$IFDEF UNIKEY}) - reserved(if) ident(RootOfNode)operator(()ident(Node)operator(\).)ident(ImageIndex) operator(=) ident(iconHostUni) reserved(then) reserved(begin) - ident(ValueNames) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;) - ident(ValueList)operator(.)ident(Clear)operator(;) - - ident(Uni) operator(:=) ident(UniOfNode)operator(()ident(Node)operator(\);) - comment({Uni := CreateUniSubKey(UserUniPath, Copy(NodePath(Node\), 1, MaxInt\), - reFaile\); }) - reserved(if) ident(Assigned)operator(()ident(Uni)operator(\)) reserved(then) - reserved(try) - ident(Uni)operator(.)ident(GetValueNames)operator(()ident(ValueNames)operator(\);) - - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(ValueNames)operator(.)ident(Count)operator(-)integer(1) reserved(do) reserved(begin) - ident(Item) operator(:=) ident(ValuesWin)operator(.)ident(AddValue)operator(()ident(Reg)operator(,) ident(ValueNames)operator([)ident(i)operator(],) ident(False)operator(\);) - ident(Item)operator(.)ident(ImageIndex) operator(:=) ident(iconHostUni2)operator(;) - ident(AppendSubItemData)operator(()ident(Item)operator(.)ident(SubItems)operator(,) ident(Uni)operator(,) ident(ValueNames)operator([)ident(i)operator(]\);) - reserved(end)operator(;) - - reserved(finally) - ident(Uni)operator(.)ident(Free)operator(;) - ident(ValueNames)operator(.)ident(Free)operator(;) - reserved(end)operator(;) - - reserved(end) reserved(else) reserved(begin) -preprocessor({$ENDIF}) - - ident(OpenRe) operator(:=) ident(OpenNode)operator(()ident(Reg)operator(,) ident(Node)operator(\);) - reserved(if) ident(OpenRe) reserved(in) ident(onOK) reserved(then) reserved(begin) - ident(ValuesWin)operator(.)ident(LoadValues)operator(()ident(Reg)operator(\);) - reserved(if) ident(OpenRe) operator(=) ident(onReadOnly) reserved(then) reserved(begin) - ident(AddHint)operator(()string<delimiter(')content(Read only)delimiter(')>operator(,) ident(True)operator(\);) - ident(CantWrite) operator(:=) ident(True)operator(;) - reserved(end)operator(;) - reserved(end) reserved(else) reserved(if) ident(OpenRe) operator(=) ident(onError) reserved(then) reserved(begin) - ident(ValueList)operator(.)ident(Clear)operator(;) - ident(CantWrite) operator(:=) ident(True)operator(;) - reserved(if) ident(Node)operator(.)ident(Level) operator(=) integer(0) reserved(then) reserved(begin) - ident(AddHint)operator(()string<delimiter(')content(Shortcut target not found)delimiter(')>operator(,) ident(True)operator(\);) - reserved(end) reserved(else) - ident(AddHint)operator(()string<delimiter(')content(Key not found: )delimiter(')> operator(+) ident(Node)operator(.)ident(Text)operator(,) ident(True)operator(\);) - reserved(end)operator(;) - -preprocessor({$IFDEF UNIKEY}) - reserved(end)operator(;) -preprocessor({$ENDIF}) - - reserved(finally) - ident(Reg)operator(.)ident(Free)operator(;) - reserved(end)operator(;) - - ident(CantWrite) operator(:=) ident(CantWrite) reserved(or) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) - reserved(or) ident(NodeInfo)operator(() ident(Node) operator(\).)ident(ReadOnly) comment(//Node itself) - reserved(or) ident(NodeInfo)operator(()ident(RootOfNode)operator(()ident(Node)operator(\)\).)ident(ReadOnly) comment(//or host) - reserved(or) operator(()ident(SameText)operator(()ident(CurKey)operator(()ident(uhNonSystemShortcuts)operator(\).)ident(Root)operator(,) string<delimiter(')content(HKEY_DYN_DATA)delimiter(')>operator(\)\);) - - ident(MainWin)operator(.)ident(SetStatus)operator(;) - ident(WorkWin)operator(.)ident(InfoMemo)operator(.)ident(Text) operator(:=) ident(GetKeyInfos)operator(;) - reserved(finally) - ident(SpyThread)operator(.)ident(Restart) operator(:=) ident(True)operator(;) - ident(SpyThread)operator(.)ident(Resume)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVChanging)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(;) - reserved(var) ident(AllowChange)operator(:) ident(Boolean)operator(\);) -reserved(begin) - ident(CantWrite) operator(:=) ident(False)operator(;) - ident(AllowChange) operator(:=) ident(Assigned)operator(()ident(Node)operator(\);) - comment(// CheckNode(Node, True\);) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVCollapsing)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(;) - reserved(var) ident(AllowCollapse)operator(:) ident(Boolean)operator(\);) -reserved(begin) - ident(SpyThread)operator(.)ident(Restart) operator(:=) ident(True)operator(;) - ident(Node)operator(.)ident(DeleteChildren)operator(;) - ident(RegTVChange)operator(()ident(Sender)operator(,) ident(Node)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVCustomDrawItem)operator(()ident(Sender)operator(:) ident(TCustomTreeView)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(;) - ident(State)operator(:) ident(TCustomDrawState)operator(;) reserved(var) ident(DefaultDraw)operator(:) ident(Boolean)operator(\);) -reserved(var) - ident(Info)operator(:) ident(TNodeInfo)operator(;) -reserved(begin) - comment({if Node.Text = '' then begin - ShowMessage('Error: Key has empty name.'\); - Node.Delete; - Exit; end;}) - - ident(Info) operator(:=) ident(NodeInfo)operator(()ident(Node)operator(\);) - reserved(with) ident(TTreeView)operator(()ident(Sender)operator(\).)ident(Canvas)operator(.)ident(Font) reserved(do) reserved(begin) - reserved(if) ident(Info)operator(.)ident(Defect) reserved(then) reserved(begin) - ident(Style) operator(:=) operator([];) - ident(Color) operator(:=) hex($AAAAAA) - reserved(end) reserved(else) reserved(begin) - reserved(case) ident(Info)operator(.)ident(HostType) reserved(of) - - ident(uhReg)operator(:) reserved(begin) - ident(Style) operator(:=) operator([)ident(fsBold)operator(];) - ident(Color) operator(:=) ident(clCyan)operator(;) - reserved(end)operator(;) - - comment({uhIni: begin - Style := [fsBold]; - Color := clBrightYellow; - end; - - uhRegFile: begin - Style := [fsBold]; - Color := clBrightGreen; - end; }) - - ident(uhSystemShortcut)operator(:) reserved(begin) - ident(Style) operator(:=) operator([];) - ident(Color) operator(:=) ident(clBrightCyan)operator(;) - reserved(end)operator(;) - - ident(uhStandardShortcut)operator(:) reserved(begin) - ident(Style) operator(:=) operator([)ident(fsBold)operator(];) - ident(Color) operator(:=) hex($EEEEEE)operator(;) - reserved(end)operator(;) - - ident(uhUserShortcut)operator(:) reserved(begin) - ident(Style) operator(:=) operator([];) - ident(Color) operator(:=) hex($EEEEEE)operator(;) - reserved(end)operator(;) - - reserved(else) - ident(Style) operator(:=) operator([];) - reserved(if) ident(Info)operator(.)ident(ReadOnly) reserved(then) - ident(Color) operator(:=) ident(clBrightRed) - reserved(else) - ident(Color) operator(:=) ident(clWhite)operator(;) - reserved(end)operator(;) - - reserved(end)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVDblClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(Node)operator(:) ident(TTreeNode)operator(;) - ident(MouseX)operator(:) ident(Integer)operator(;) - ident(NodeRect)operator(:) ident(TRect)operator(;) -reserved(begin) - ident(Node) operator(:=) ident(RegTV)operator(.)ident(Selected)operator(;) - reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then) - ident(Exit)operator(;) - - ident(MouseX) operator(:=) ident(RegTV)operator(.)ident(ScreenToClient)operator(()ident(Mouse)operator(.)ident(CursorPos)operator(\).)ident(X)operator(;) - ident(NodeRect) operator(:=) ident(Node)operator(.)ident(DisplayRect)operator(()ident(True)operator(\);) - reserved(if) ident(MouseX) operator(>) ident(NodeRect)operator(.)ident(Right) reserved(then) reserved(begin) - reserved(with) ident(ValuesWin) reserved(do) reserved(begin) - ident(FocusItem)operator(()ident(PrefWin)operator(.)ident(MainPreviewE)operator(.)ident(Text)operator(\);) - ident(ValueListDblClick)operator(()ident(Self)operator(\);) - reserved(end)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVDeletion)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\);) -reserved(begin) - reserved(if) ident(Assigned)operator(()ident(SpyThread)operator(\)) reserved(then) - ident(SpyThread)operator(.)ident(Restart) operator(:=) ident(True)operator(;) - reserved(if) ident(Node)operator(.)ident(Selected) reserved(then) - ident(RegTV)operator(.)ident(Selected) operator(:=) ident(GetNextBest)operator(()ident(Node)operator(\);) - ident(NodeInfo)operator(()ident(Node)operator(\).)ident(Free)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVDragDrop)operator(()ident(Sender)operator(,) ident(Source)operator(:) ident(TObject)operator(;) ident(X)operator(,) ident(Y)operator(:) ident(Integer)operator(\);) - - reserved(procedure) ident(DragKey)operator(;) - reserved(var) - ident(Src)operator(,) ident(Trg)operator(:) ident(TRegPath)operator(;) - ident(Node)operator(:) ident(TTreeNode)operator(;) - reserved(begin) - ident(Src) operator(:=) ident(RegPathOfStr)operator(()ident(TraceKey)operator(()ident(PathOfNode)operator(()ident(DragNode)operator(\)\)\);) - ident(Trg) operator(:=) ident(RegPathOfStr)operator(()ident(TraceKey)operator(()ident(PathOfNode)operator(()ident(RegTV)operator(.)ident(DropTarget)operator(\)\)\);) - ident(Trg)operator(.)ident(Key) operator(:=) ident(Trg)operator(.)ident(Key) operator(+) char<delimiter(')content(\\)delimiter(')> operator(+) ident(DragNode)operator(.)ident(Text)operator(;) - - ident(MoveKey)operator(()ident(Src)operator(,) ident(Trg)operator(,) ident(KeyIsDown)operator(()ident(VK_CONTROL)operator(\)\);) - - ident(Node) operator(:=) ident(RegTV)operator(.)ident(DropTarget)operator(;) - reserved(if) ident(Node)operator(.)ident(Expanded) reserved(then) - ident(Node)operator(.)ident(Collapse)operator(()ident(False)operator(\);) - ident(Node)operator(.)ident(Expanded) operator(:=) ident(False)operator(;) - ident(CheckNode)operator(()ident(Node)operator(,) ident(False)operator(,) ident(True)operator(\);) - ident(Node)operator(.)ident(Expand)operator(()ident(False)operator(\);) - reserved(end)operator(;) - - reserved(procedure) ident(DragValues)operator(;) - reserved(begin) - ident(MoveValues)operator(()ident(RegTV)operator(.)ident(Selected)operator(,) ident(RegTV)operator(.)ident(DropTarget)operator(,) ident(KeyIsDown)operator(()ident(VK_CONTROL)operator(\)\);) - reserved(end)operator(;) - -reserved(begin) - reserved(if) ident(Source) reserved(is) ident(TTreeView) reserved(then) - ident(DragKey) - reserved(else) reserved(if) ident(Source) reserved(is) ident(TListView) reserved(then) - ident(DragValues)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVDragOver)operator(()ident(Sender)operator(,) ident(Source)operator(:) ident(TObject)operator(;) ident(X)operator(,) ident(Y)operator(:) ident(Integer)operator(;) - ident(State)operator(:) ident(TDragState)operator(;) reserved(var) ident(Accept)operator(:) ident(Boolean)operator(\);) -reserved(begin) - ident(Accept) operator(:=) ident(False)operator(;) - reserved(if) reserved(not) ident(Assigned)operator(()ident(RegTV)operator(.)ident(DropTarget)operator(\)) reserved(then) - ident(Exit)operator(;) - - reserved(if) ident(Source) reserved(is) ident(TTreeView) reserved(then) reserved(begin) - reserved(if) reserved(not) ident(Assigned)operator(()ident(DragNode)operator(\)) reserved(then) - ident(Exit)operator(;) - reserved(if) reserved(not) ident(KeyIsDown)operator(()ident(VK_CONTROL)operator(\)) reserved(then) reserved(begin) - reserved(if) operator(()ident(DragNode) operator(=) ident(RegTV)operator(.)ident(DropTarget)operator(\)) - reserved(or) ident(RegTV)operator(.)ident(DropTarget)operator(.)ident(HasAsParent)operator(()ident(DragNode)operator(\)) reserved(then) - ident(Exit)operator(;) comment(//avoid recursive moving) - reserved(end)operator(;) - reserved(end) reserved(else) reserved(if) ident(Source) reserved(is) ident(TListView) reserved(then) reserved(begin) - comment(//accept) - reserved(end)operator(;) - ident(Accept) operator(:=) ident(True)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVEdited)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(;) reserved(var) ident(S)operator(:) reserved(string)operator(\);) -reserved(var) - ident(old)operator(,) ident(tmp)operator(:) reserved(string)operator(;) - ident(i)operator(:) ident(Integer)operator(;) - ident(Shortcut)operator(:) ident(PKeyShortcut)operator(;) -reserved(begin) - reserved(if) ident(s) operator(=) ident(Node)operator(.)ident(Text) reserved(then) - ident(Exit)operator(;) - - ident(Old) operator(:=) ident(Node)operator(.)ident(Text)operator(;) - - reserved(if) ident(NodeInfo)operator(()ident(Node)operator(\).)ident(HostType) operator(=) ident(uhUserShortcut) reserved(then) reserved(begin) - ident(i) operator(:=) ident(ShortcutIndex)operator(()ident(Node)operator(\);) - reserved(if) ident(i) operator(=) operator(-)integer(1) reserved(then) reserved(begin) - ident(ShowMessage)operator(()string<delimiter(')content(Shortcut not found!)delimiter(')>operator(\);) - ident(s) operator(:=) ident(old)operator(;) - ident(Exit)operator(;) reserved(end)operator(;) - - ident(Shortcut) operator(:=) operator(@)ident(Shortcuts)operator([)ident(i)operator(];) - ident(Shortcut)operator(.)ident(Alias) operator(:=) ident(s)operator(;) - - reserved(with) ident(TIniFile)operator(.)ident(Create)operator(()ident(PlutoDir) operator(+) string<delimiter(')content(Shortcuts.ini)delimiter(')>operator(\)) reserved(do) - reserved(try) - ident(DeleteKey)operator(()string<delimiter(')content(Shortcuts)delimiter(')>operator(,) ident(Old)operator(\);) - ident(WriteString)operator(()string<delimiter(')content(Shortcuts)delimiter(')>operator(,) ident(Shortcut)operator(.)ident(Alias)operator(,) ident(Shortcut)operator(.)ident(RealPath)operator(\);) - reserved(finally) - ident(Free)operator(;) - reserved(end)operator(;) - ident(Node)operator(.)ident(Text) operator(:=) ident(s)operator(;) - ident(RegTVChange)operator(()ident(Self)operator(,) ident(Node)operator(\);) - ident(Exit)operator(;) reserved(end)operator(;) - - reserved(if) ident(s) operator(=) string<delimiter(')delimiter(')> reserved(then) reserved(begin) - ident(ShowMessage)operator(()string<delimiter(')content(KeyNames cannot be empty.)delimiter(')>operator(\);) - ident(s) operator(:=) ident(old)operator(;) - ident(Exit)operator(;) reserved(end)operator(;) - - ident(SpyThread)operator(.)ident(Suspend)operator(;) - ident(SpyThread)operator(.)ident(Restart) operator(:=) ident(True)operator(;) - ident(Node)operator(.)ident(Text) operator(:=) ident(s)operator(;) - - reserved(if) ident(Length)operator(()ident(s)operator(\)) operator(>) ident(RegMaxKeyLen) reserved(then) reserved(begin) - ident(s) operator(:=) ident(Copy)operator(()ident(s)operator(,) integer(1)operator(,) ident(RegMaxKeyLen)operator(\);) - reserved(if) ident(MessageDlg)operator(() - string<delimiter(')content(The maximum size of a key name is )delimiter(')> operator(+) ident(IntToStr)operator(()ident(RegMaxKeyLen)operator(\)) operator(+) string<delimiter(')content( characters.)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(Shorten the key name to:)delimiter(')> operator(+) ident(EOL) operator(+) - ident(Quote)operator(()ident(StringWrap)operator(()ident(s)operator(,) integer(80)operator(\)\),) - ident(mtConfirmation)operator(,) operator([)ident(mbOK)operator(,) ident(mbCancel)operator(],) integer(0)operator(\)) operator(<>) ident(mrOK) reserved(then) reserved(begin) - ident(s) operator(:=) ident(Old)operator(;) - ident(SpyThread)operator(.)ident(Resume)operator(;) - ident(Exit)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - - reserved(if) ident(CharIn)operator(()ident(s)operator(,) operator([)char(#0)operator(..)char(#31)operator(,) char<delimiter(')content(\\)delimiter(')>operator(]\)) reserved(then) reserved(begin) - ident(s) operator(:=) ident(ReplaceChars)operator(()ident(s)operator(,) operator([)char(#0)operator(..)char(#31)operator(],) char<delimiter(')content(#)delimiter(')>operator(\);) - ident(s) operator(:=) ident(ReplaceChars)operator(()ident(s)operator(,) char<delimiter(')content(\\)delimiter(')>operator(,) char<delimiter(')content(-)delimiter(')>operator(\);) - - reserved(if) ident(MessageDlg)operator(()string<delimiter(')content(The following characters are not allowed in KeyNames:)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(- Control chars (0-31\))delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(- )delimiter(')> operator(+) ident(Quote)operator(()char<delimiter(')content(\\)delimiter(')>operator(\)) operator(+) ident(EOL) operator(+) - string<delimiter(')content(The following name is allowed:)delimiter(')> operator(+) ident(EOL) operator(+) - ident(s) operator(+) ident(EOL) operator(+) - string<delimiter(')content(Use this name instead?)delimiter(')>operator(,) - ident(mtConfirmation)operator(,) operator([)ident(mbYes)operator(,) ident(mbNo)operator(],) integer(0)operator(\)) operator(<>) ident(mrYes) reserved(then) reserved(begin) - ident(s) operator(:=) ident(Old)operator(;) - ident(SpyThread)operator(.)ident(Resume)operator(;) - ident(Exit)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - - reserved(try) - ident(OpenCurParent)operator(;) - reserved(if) reserved(not) ident(SameText)operator(()ident(s)operator(,) ident(Old)operator(\)) reserved(then) reserved(begin) - reserved(if) reserved(not) ident(MainReg)operator(.)ident(KeyExists)operator(()ident(s)operator(\)) reserved(or) - operator(()ident(mrIgnore) operator(=) ident(MessageDlg)operator(() - string<delimiter(')content(Key already exists.)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(Click Ignore to overwrite the key.)delimiter(')>operator(,) - ident(mtConfirmation)operator(,) operator([)ident(mbCancel)operator(,) ident(mbIgnore)operator(],) integer(0)operator(\)) - operator(\)) reserved(then) reserved(begin) - ident(MainReg)operator(.)ident(DeleteKey)operator(()ident(s)operator(\);) - ident(MainReg)operator(.)ident(MoveKey)operator(()ident(Old)operator(,) ident(s)operator(,) ident(True)operator(\);) - ident(Node)operator(.)ident(Text) operator(:=) ident(Old)operator(;) - reserved(end) reserved(else) reserved(begin) - ident(s) operator(:=) ident(Old)operator(;) - reserved(end)operator(;) - reserved(end) reserved(else) reserved(begin) comment(//change CharCase) - ident(tmp) operator(:=) ident(MainReg)operator(.)ident(GetFreeKeyName)operator(;) - ident(AddHint)operator(()string<delimiter(')content(Forced change of case using temporary key )delimiter(')> operator(+) ident(Quote)operator(()ident(tmp)operator(\)\);) - ident(MainReg)operator(.)ident(MoveKey)operator(()ident(Old)operator(,) ident(tmp)operator(,) ident(True)operator(\);) - ident(MainReg)operator(.)ident(MoveKey)operator(()ident(tmp)operator(,) ident(s)operator(,) ident(True)operator(\);) - reserved(end)operator(;) - reserved(finally) - ident(MainReg)operator(.)ident(CloseKey)operator(;) - reserved(end)operator(;) - - ident(Node)operator(.)ident(Text) operator(:=) ident(s)operator(;) - ident(SpyThread)operator(.)ident(Resume)operator(;) - ident(RegTVChange)operator(()ident(Sender)operator(,) ident(Node)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVEditing)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(;) - reserved(var) ident(AllowEdit)operator(:) ident(Boolean)operator(\);) -reserved(begin) - ident(CheckNode)operator(()ident(Node)operator(,) ident(False)operator(\);) - reserved(if) ident(RegTV)operator(.)ident(Selected) operator(<>) ident(Node) reserved(then) - ident(Exit)operator(;) - ident(AllowEdit) operator(:=) operator(()ident(NodeInfo)operator(()ident(Node)operator(\).)ident(HostType) reserved(in) operator([)ident(uhNone)operator(,) ident(uhUserShortcut)operator(]\)) - reserved(and) operator(()reserved(not) ident(CantWrite)operator(\)) - reserved(and) ident(OpenCurKey)operator(;) - ident(MainReg)operator(.)ident(CloseKey)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVEndDrag)operator(()ident(Sender)operator(,) ident(Target)operator(:) ident(TObject)operator(;) ident(X)operator(,) ident(Y)operator(:) ident(Integer)operator(\);) -reserved(begin) - ident(DragNode) operator(:=) reserved(nil)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVEnter)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(if) reserved(not) ident(Started) reserved(then) - ident(Exit)operator(;) - ident(ValueList)operator(.)ident(ItemFocused) operator(:=) reserved(nil)operator(;) - ident(MainWin)operator(.)ident(SetStatus)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVExpanded)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\);) -reserved(begin) - reserved(if) reserved(not) ident(DoSmartExpand) reserved(or) reserved(not) ident(PrefWin)operator(.)ident(SmartExpandCB)operator(.)ident(Checked) reserved(then) - ident(Exit)operator(;) - - reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then) - ident(Exit)operator(;) - - ident(RegTVChange)operator(()ident(Sender)operator(,) ident(Node)operator(\);) - - comment(//SmartExpand) - reserved(if) operator(()ident(Node)operator(.)ident(Count) operator(>) integer(0)operator(\)) reserved(and) operator(()ident(ValueList)operator(.)ident(Items)operator(.)ident(Count) operator(=) integer(0)operator(\)) reserved(then) reserved(begin) - ident(RegTV)operator(.)ident(Selected) operator(:=) ident(Node)operator(.)ident(GetFirstChild)operator(;) - ident(RegTVChange)operator(()ident(Sender)operator(,) ident(RegTV)operator(.)ident(Selected)operator(\);) - reserved(end)operator(;) - - reserved(if) ident(Node)operator(.)ident(Count) operator(=) integer(1) reserved(then) - ident(Node)operator(.)ident(GetFirstChild)operator(.)ident(Expand)operator(()ident(False)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVExpanding)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(;) - reserved(var) ident(AllowExpansion)operator(:) ident(Boolean)operator(\);) -reserved(var) - ident(SL)operator(:) ident(TStringList)operator(;) - ident(Reg)operator(:) ident(TXRegistry)operator(;) - ident(Clock)operator(:) ident(TClock)operator(;) -preprocessor({$IFDEF UNIKEY}) - ident(Uni)operator(:) ident(TUniKey)operator(;) -preprocessor({$ENDIF}) - - reserved(procedure) ident(AddKeys)operator(()ident(TreeView)operator(:) ident(TTreeView)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(;) ident(SL)operator(:) ident(TStrings)operator(\);) - reserved(var) - ident(i)operator(:) ident(Integer)operator(;) - reserved(begin) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(SL)operator(.)ident(Count)operator(-)integer(1) reserved(do) - ident(TreeView)operator(.)ident(Items)operator(.)ident(AddNode)operator(()ident(TTreeNode)operator(.)ident(Create)operator(()ident(TreeView)operator(.)ident(Items)operator(\),) ident(Node)operator(,) ident(SL)operator([)ident(i)operator(],) - reserved(nil)operator(,) ident(naAddChild)operator(\);) - reserved(end)operator(;) - - reserved(procedure) ident(AddKeysProgressive)operator(()ident(TreeView)operator(:) ident(TTreeView)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(;) - ident(SL)operator(:) ident(TStrings)operator(\);) - reserved(var) - ident(i)operator(,) ident(delta)operator(:) ident(Integer)operator(;) - ident(GaugeRect)operator(,) ident(FullRect)operator(:) ident(TRect)operator(;) - ident(GaugeWidth)operator(:) ident(Integer)operator(;) - reserved(begin) - ident(delta) operator(:=) ident(SL)operator(.)ident(Count) reserved(div) integer(100)operator(;) - ident(GaugeWidth) operator(:=) integer(100)operator(;) - reserved(with) ident(TreeView)operator(.)ident(Canvas) reserved(do) reserved(begin) - ident(FullRect) operator(:=) ident(Node)operator(.)ident(DisplayRect)operator(()ident(True)operator(\);) - reserved(with) ident(FullRect) reserved(do) reserved(begin) - ident(Left) operator(:=) ident(Right) operator(+) integer(40)operator(;) - ident(Right) operator(:=) ident(Left) operator(+) ident(GaugeWidth) operator(+) integer(2)operator(;) - ident(Inc)operator(()ident(Top)operator(,) integer(5)operator(\);) - ident(Dec)operator(()ident(Bottom)operator(,) integer(5)operator(\);) - reserved(end)operator(;) - reserved(with) ident(Pen) reserved(do) reserved(begin) - ident(Width) operator(:=) integer(1)operator(;) - ident(Style) operator(:=) ident(psSolid)operator(;) - reserved(end)operator(;) - ident(Pen)operator(.)ident(Color) operator(:=) ident(clBrightBlue)operator(;) - ident(Brush)operator(.)ident(Style) operator(:=) ident(bsClear)operator(;) - ident(Rectangle)operator(()ident(FullRect)operator(\);) - ident(Pen)operator(.)ident(Style) operator(:=) ident(psClear)operator(;) - reserved(end)operator(;) - - ident(GaugeRect) operator(:=) ident(FullRect)operator(;) - reserved(with) ident(GaugeRect) reserved(do) reserved(begin) - ident(Inc)operator(()ident(Left)operator(\);) - ident(Inc)operator(()ident(Top)operator(\);) - ident(Dec)operator(()ident(Bottom)operator(\);) - reserved(end)operator(;) - - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(SL)operator(.)ident(Count)operator(-)integer(1) reserved(do) reserved(begin) - ident(TreeView)operator(.)ident(Items)operator(.)ident(AddNode)operator(()ident(TTreeNode)operator(.)ident(Create)operator(()ident(TreeView)operator(.)ident(Items)operator(\),) ident(Node)operator(,) ident(SL)operator([)ident(i)operator(],) - reserved(nil)operator(,) ident(naAddChild)operator(\);) - - reserved(if) operator((()ident(i) operator(+) integer(1)operator(\)) reserved(mod) ident(delta)operator(\)) operator(=) integer(0) reserved(then) reserved(begin) - reserved(with) ident(TreeView)operator(.)ident(Canvas) reserved(do) reserved(begin) - ident(GaugeRect)operator(.)ident(Right) operator(:=) ident(GaugeRect)operator(.)ident(Left) operator(+) operator(()ident(GaugeWidth) operator(*) ident(i)operator(\)) reserved(div) ident(SL)operator(.)ident(Count)operator(;) - ident(Brush)operator(.)ident(Color) operator(:=) ident(GadientAqua)operator(()integer(90) operator(+) ident(Round)operator(()integer(100) operator(*) operator((()ident(i)operator(+)integer(1)operator(\)) operator(/) ident(SL)operator(.)ident(Count)operator(\)\)\);) - ident(FillRect)operator(()ident(GaugeRect)operator(\);) - reserved(end)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - - reserved(with) ident(TreeView)operator(.)ident(Canvas) reserved(do) reserved(begin) - ident(Pen)operator(.)ident(Color) operator(:=) ident(clVeryBrightBlue)operator(;) - ident(Pen)operator(.)ident(Style) operator(:=) ident(psSolid)operator(;) - ident(Brush)operator(.)ident(Color) operator(:=) ident(GadientAqua)operator(()integer(200)operator(\);) - ident(Rectangle)operator(()ident(FullRect)operator(\);) - ident(Brush)operator(.)ident(Style) operator(:=) ident(bsClear)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - -reserved(begin) - reserved(if) ident(Node)operator(.)ident(Expanded) reserved(then) - ident(Exit)operator(;) - - ident(SpyThread)operator(.)ident(Suspend)operator(;) - ident(SL) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;) - ident(Clock) operator(:=) ident(TClock)operator(.)ident(Create)operator(;) - - reserved(try) - -preprocessor({$IFDEF UNIKEY}) - reserved(if) ident(RootOfNode)operator(()ident(Node)operator(\).)ident(ImageIndex) operator(=) ident(iconHostUni) reserved(then) reserved(begin) - ident(Uni) operator(:=) ident(UniOfNode)operator(()ident(Node)operator(\);) - reserved(if) ident(Assigned)operator(()ident(Uni)operator(\)) reserved(then) - reserved(try) - ident(Uni)operator(.)ident(GetKeyNames)operator(()ident(SL)operator(\);) - reserved(finally) - ident(Uni)operator(.)ident(Free)operator(;) - reserved(end)operator(;) - - reserved(end) reserved(else) reserved(begin) -preprocessor({$ENDIF}) - - ident(Reg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(;) - reserved(try) - reserved(if) ident(OpenNodeOK)operator(()ident(Reg)operator(,) ident(Node)operator(\)) reserved(then) - ident(Reg)operator(.)ident(GetKeyNames)operator(()ident(SL)operator(\);) - reserved(finally) - ident(Reg)operator(.)ident(Free)operator(;) - reserved(end)operator(;) - -preprocessor({$IFDEF UNIKEY}) - reserved(end)operator(;) -preprocessor({$ENDIF}) - - ident(Node)operator(.)ident(DeleteChildren)operator(;) - reserved(if) ident(PrefWin)operator(.)ident(ShowProgressCB)operator(.)ident(Checked) reserved(and) operator(()ident(SL)operator(.)ident(Count) operator(>) integer(100)operator(\)) reserved(then) - ident(AddKeysProgressive)operator(()ident(RegTV)operator(,) ident(Node)operator(,) ident(SL)operator(\)) - reserved(else) - ident(AddKeys)operator(()ident(RegTV)operator(,) ident(Node)operator(,) ident(SL)operator(\);) - - reserved(if) ident(PrefWin)operator(.)ident(SortKeysCB)operator(.)ident(Checked) reserved(then) - ident(Node)operator(.)ident(AlphaSort)operator(;) - - reserved(if) ident(MurphyMode) reserved(then) reserved(begin) - ident(Clock)operator(.)ident(Stop)operator(;) - ident(AddHint)operator(()ident(Format)operator(()string<delimiter(')content([MM] Key opened after %0.2f s.)delimiter(')>operator(,) operator([)ident(Clock)operator(.)ident(SecondsPassed)operator(]\)\);) - reserved(end)operator(;) - reserved(finally) - ident(Clock)operator(.)ident(Free)operator(;) - ident(SL)operator(.)ident(Free)operator(;) - ident(SpyThread)operator(.)ident(Resume)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVGetSelectedIndex)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\);) -reserved(begin) - ident(Node)operator(.)ident(SelectedIndex) operator(:=) ident(Node)operator(.)ident(ImageIndex)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) - ident(Shift)operator(:) ident(TShiftState)operator(\);) -reserved(var) - ident(Node)operator(:) ident(TTreeNode)operator(;) -reserved(begin) - reserved(if) ident(Key) operator(=) ident(VK_SCROLL) reserved(then) - ident(CheckRegTVHotTrack)operator(;) - - reserved(if) ident(RegTV)operator(.)ident(IsEditing) reserved(then) - ident(Exit)operator(;) - - ident(Node) operator(:=) ident(RegTV)operator(.)ident(Selected)operator(;) - reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then) - ident(Exit)operator(;) - - reserved(if) ident(ssShift) reserved(in) ident(Shift) reserved(then) - reserved(case) ident(Key) reserved(of) - ident(VK_DOWN)operator(:) reserved(begin) - ident(Node) operator(:=) ident(Node)operator(.)ident(GetNextSibling)operator(;) - reserved(if) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then) - ident(RegTV)operator(.)ident(Selected) operator(:=) ident(Node)operator(;) - ident(Key) operator(:=) integer(0)operator(;) reserved(end)operator(;) - - ident(VK_UP)operator(:) reserved(begin) - ident(Node) operator(:=) ident(Node)operator(.)ident(GetPrevSibling)operator(;) - reserved(if) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then) - ident(RegTV)operator(.)ident(Selected) operator(:=) ident(Node)operator(;) - ident(Key) operator(:=) integer(0)operator(;) reserved(end)operator(;) - - ident(VK_RIGHT)operator(:) ident(Key) operator(:=) ident(VK_MULTIPLY)operator(;) - ident(VK_LEFT)operator(:) ident(Key) operator(:=) ident(VK_DIVIDE)operator(;) - reserved(end)operator(;) - - reserved(if) ident(Assigned)operator(()ident(Node)operator(.)ident(Parent)operator(\)) reserved(then) reserved(begin) - reserved(case) ident(Key) reserved(of) - ident(VK_END)operator(:) - reserved(begin) - ident(RegTV)operator(.)ident(Selected) operator(:=) ident(Node)operator(.)ident(Parent)operator(.)ident(GetLastChild)operator(;) - ident(Key) operator(:=) integer(0)operator(;) reserved(end)operator(;) - - ident(VK_HOME)operator(:) - reserved(begin) - ident(RegTV)operator(.)ident(Selected) operator(:=) ident(Node)operator(.)ident(Parent)operator(.)ident(GetFirstChild)operator(;) - ident(Key) operator(:=) integer(0)operator(;) reserved(end)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - - reserved(case) ident(Key) reserved(of) - integer(0)operator(:) ident(Exit)operator(;) - ident(VK_RETURN)operator(:) ident(ValuesWin)operator(.)ident(FocusControl)operator(()ident(ValueList)operator(\);) - ident(VK_DELETE)operator(:) ident(DeleteMIClick)operator(()ident(Sender)operator(\);) - ident(VK_SPACE)operator(:) reserved(begin) - ident(JumpToSel)operator(()ident(RegTV)operator(\);) - ident(Inc)operator(()ident(SpaceCount)operator(\);) - reserved(if) ident(SpaceCount) operator(>) integer(10) reserved(then) reserved(begin) - ident(ShowMessage)operator(()string<delimiter(')content(YES!)delimiter(')>operator(\);) - ident(SpaceCount) operator(:=) integer(0)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - ident(VK_F9)operator(:) ident(SwapFonts)operator(()ident(RegTV)operator(\);) - - ident(VK_F12)operator(:) - reserved(if) ident(ssShift) reserved(in) ident(Shift) reserved(then) reserved(begin) - reserved(if) ident(Assigned)operator(()ident(Node)operator(.)ident(Parent)operator(\)) reserved(then) ident(Node)operator(.)ident(Parent)operator(.)ident(AlphaSort)operator(;) - reserved(end) reserved(else) - reserved(if) ident(Node)operator(.)ident(Expanded) reserved(then) ident(Node)operator(.)ident(AlphaSort)operator(;) - - ident(VK_LEFT)operator(,) ident(VK_SUBTRACT)operator(:) - reserved(begin) - reserved(if) ident(Node)operator(.)ident(Expanded) reserved(then) - ident(Node)operator(.)ident(Collapse)operator(()ident(False)operator(\)) - reserved(else) reserved(if) ident(Assigned)operator(()ident(Node)operator(.)ident(Parent)operator(\)) reserved(then) - ident(RegTV)operator(.)ident(Selected) operator(:=) ident(Node)operator(.)ident(Parent)operator(;) - ident(Key) operator(:=) integer(0)operator(;) reserved(end)operator(;) - - ident(VK_RIGHT)operator(,) ident(VK_ADD)operator(:) - reserved(begin) - reserved(if) reserved(not) ident(Node)operator(.)ident(HasChildren) reserved(then) - ident(TreeWin)operator(.)ident(RegTV)operator(.)ident(Items)operator(.)ident(AddChild)operator(()ident(Node)operator(,) string<delimiter(')delimiter(')>operator(\);) - reserved(if) ident(Node)operator(.)ident(Expanded) reserved(then) - ident(RegTV)operator(.)ident(Selected) operator(:=) ident(Node)operator(.)ident(GetFirstChild) - reserved(else) - ident(Node)operator(.)ident(Expand)operator(()ident(False)operator(\);) - ident(Key) operator(:=) integer(0)operator(;) reserved(end)operator(;) - - ident(VK_MULTIPLY)operator(:) - reserved(begin) - ident(NoAsterisk) operator(:=) ident(True)operator(;) - ident(OpenNextLevel)operator(()ident(Node)operator(\);) - ident(JumpToSel)operator(()ident(RegTV)operator(\);) - ident(AddHint)operator(()string<delimiter(')content(Press the Multiply Key again to open the next level.)delimiter(')>operator(\);) - ident(Key) operator(:=) integer(0)operator(;) reserved(end)operator(;) - - ident(VK_DIVIDE)operator(:) - reserved(begin) - ident(DoSmartExpand) operator(:=) ident(False)operator(;) - ident(Node)operator(.)ident(Collapse)operator(()ident(true)operator(\);) - ident(DoSmartExpand) operator(:=) ident(True)operator(;) - ident(Key) operator(:=) integer(0)operator(;) reserved(end)operator(;) - reserved(end)operator(;) - - reserved(if) ident(ssctrl) reserved(in) ident(Shift) reserved(then) - reserved(case) ident(Key) reserved(of) - ident(Ord)operator(()char<delimiter(')content(C)delimiter(')>operator(\):) ident(CopyPathMIClick)operator(()ident(Sender)operator(\);) - ident(Ord)operator(()char<delimiter(')content(X)delimiter(')>operator(\):) ident(CutPathMIClick)operator(()ident(Sender)operator(\);) - ident(Ord)operator(()char<delimiter(')content(V)delimiter(')>operator(\):) ident(PasteKeyMIClick)operator(()ident(Sender)operator(\);) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVMouseDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Button)operator(:) ident(TMouseButton)operator(;) - ident(Shift)operator(:) ident(TShiftState)operator(;) ident(X)operator(,) ident(Y)operator(:) ident(Integer)operator(\);) -reserved(var) - ident(Node)operator(:) ident(TTreeNode)operator(;) - ident(RelX)operator(,) ident(RelY)operator(:) ident(Integer)operator(;) - ident(NodeRect)operator(:) ident(TRect)operator(;) -reserved(begin) - ident(CheckRegTVHotTrack)operator(;) - - reserved(if) reserved(not) ident(Active) reserved(then) - ident(Exit)operator(;) - - ident(RelX) operator(:=) ident(RegTV)operator(.)ident(ScreenToClient)operator(()ident(Mouse)operator(.)ident(CursorPos)operator(\).)ident(X)operator(;) - ident(RelY) operator(:=) ident(RegTV)operator(.)ident(ScreenToClient)operator(()ident(Mouse)operator(.)ident(CursorPos)operator(\).)ident(Y)operator(;) - ident(Node) operator(:=) ident(RegTV)operator(.)ident(GetNodeAt)operator(()ident(RelX)operator(,) ident(RelY)operator(\);) - reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then) - ident(Exit)operator(;) - - reserved(if) reserved(not) ident(Node)operator(.)ident(Selected) reserved(then) - ident(Node)operator(.)ident(Selected) operator(:=) ident(True)operator(;) - - reserved(if) ident(Button) operator(=) ident(mbLeft) reserved(then) reserved(begin) - ident(NodeRect) operator(:=) ident(RegTV)operator(.)ident(Selected)operator(.)ident(DisplayRect)operator(()ident(True)operator(\);) - reserved(if) ident(RegTV)operator(.)ident(HotTrack) - reserved(or) operator(()ident(RelX) operator(<) ident(NodeRect)operator(.)ident(Left)operator(\)) reserved(and) operator(()ident(RelX) operator(>) ident(NodeRect)operator(.)ident(Left) operator(-) integer(20)operator(\)) reserved(then) reserved(begin) - comment(//4px more to the left (friendlier for the user\)) - reserved(if) reserved(not) ident(Node)operator(.)ident(HasChildren) reserved(then) - ident(RegTV)operator(.)ident(Items)operator(.)ident(AddChild)operator(()ident(Node)operator(,) string<delimiter(')delimiter(')>operator(\);) - ident(DoSmartExpand) operator(:=) ident(False)operator(;) - reserved(with) ident(Node) reserved(do) - reserved(if) reserved(not) ident(Expanded) reserved(then) - ident(Expand)operator(()ident(False)operator(\)) - reserved(else) - ident(Collapse)operator(()ident(False)operator(\);) - ident(DoSmartExpand) operator(:=) ident(True)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVStartDrag)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(DragObject)operator(:) ident(TDragObject)operator(\);) -reserved(begin) - ident(DragNode) operator(:=) ident(RegTV)operator(.)ident(Selected)operator(;) - reserved(if) ident(NodeInfo)operator(()ident(DragNode)operator(\).)ident(IsHost) reserved(then) - ident(DragNode) operator(:=) reserved(nil)operator(;) -reserved(end)operator(;) - -reserved(function) ident(OpenNodeError)operator(()ident(Reg)operator(:) ident(TXRegistry)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(;) - reserved(out) ident(Mode)operator(:) ident(TOpenNodeMode)operator(\):) ident(Integer)operator(;) -reserved(var) - ident(Key)operator(:) reserved(string)operator(;) -reserved(begin) - ident(Result) operator(:=) ident(ERROR_SUCCESS)operator(;) - ident(Mode) operator(:=) ident(onNodeNil)operator(;) - reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then) - ident(Exit)operator(;) - - ident(Reg)operator(.)ident(CloseKey)operator(;) - ident(Key) operator(:=) ident(TraceKey)operator(()ident(PathOfNode)operator(()ident(Node)operator(\)\);) - ident(Reg)operator(.)ident(RootKey) operator(:=) ident(HKEYOfStr)operator(()ident(ExRegRoot)operator(()ident(Key)operator(\)\);) - ident(Result) operator(:=) ident(Reg)operator(.)ident(OpenKeyError)operator(()ident(ExRegKey)operator(()ident(Key)operator(\),) ident(False)operator(,) ident(True)operator(\);) - reserved(if) ident(Success)operator(()ident(Result)operator(\)) reserved(then) - reserved(if) ident(Reg)operator(.)ident(RootKey) operator(=) ident(HKDD) reserved(then) - ident(Mode) operator(:=) ident(onReadOnly) - reserved(else) - ident(Mode) operator(:=) ident(onFull) - reserved(else) reserved(if) ident(Reg)operator(.)ident(OpenKeyReadOnly)operator(()ident(ExRegKey)operator(()ident(Key)operator(\)\)) reserved(then) - ident(Mode) operator(:=) ident(onReadOnly) - reserved(else) - ident(Mode) operator(:=) ident(onError)operator(;) -reserved(end)operator(;) - -reserved(function) ident(OpenNode)operator(()ident(Reg)operator(:) ident(TXRegistry)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\):) ident(TOpenNodeMode)operator(;) -reserved(begin) - ident(OpenNodeError)operator(()ident(Reg)operator(,) ident(Node)operator(,) ident(Result)operator(\);) -reserved(end)operator(;) - -reserved(function) ident(OpenNodeOK)operator(()ident(Reg)operator(:) ident(TXRegistry)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\):) ident(Boolean)operator(;) -reserved(begin) - ident(Result) operator(:=) ident(OpenNode)operator(()ident(Reg)operator(,) ident(Node)operator(\)) reserved(in) ident(onOK)operator(;) -reserved(end)operator(;) - -reserved(function) ident(OpenCurKey)operator(:) ident(Boolean)operator(;) -reserved(begin) - ident(Result) operator(:=) ident(OpenNodeOK)operator(()ident(MainReg)operator(,) ident(RegTV)operator(.)ident(Selected)operator(\);) -reserved(end)operator(;) - -reserved(function) ident(OpenCurParent)operator(:) ident(Boolean)operator(;) -reserved(begin) - ident(Result) operator(:=) ident(Assigned)operator(()ident(RegTV)operator(.)ident(Selected)operator(\)) - reserved(and) ident(OpenNodeOK)operator(()ident(MainReg)operator(,) ident(RegTV)operator(.)ident(Selected)operator(.)ident(Parent)operator(\);) -reserved(end)operator(;) - -reserved(function) ident(TTreeWin)operator(.)ident(CreateKey)operator(()ident(Subkey)operator(:) ident(Boolean)operator(\):) ident(Boolean)operator(;) -reserved(var) - ident(Node)operator(,) ident(NewNode)operator(:) ident(TTreeNode)operator(;) - ident(KeyName)operator(:) reserved(string)operator(;) - ident(i)operator(:) ident(integer)operator(;) -reserved(begin) - ident(Result) operator(:=) ident(False)operator(;) - - reserved(if) ident(CantWrite) reserved(then) - ident(Exit)operator(;) - - ident(Node) operator(:=) ident(RegTV)operator(.)ident(Selected)operator(;) - reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then) - ident(Exit)operator(;) - - reserved(if) reserved(not) ident(Subkey) reserved(then) reserved(begin) - comment(//key shall be created on same level...) - reserved(if) ident(Node)operator(.)ident(Level) operator(=) integer(0) reserved(then) reserved(begin) - ident(Node) operator(:=) ident(RegTV)operator(.)ident(Selected)operator(;) - reserved(if) ident(TraceKey)operator(()ident(PathOfNode)operator(()ident(Node)operator(\)\)) operator(<>) ident(PathOfNode)operator(()ident(Node)operator(\)) reserved(then) - comment(//check for shortcut: shortcuts are unequal to their trace) - reserved(if) ident(mrOK) operator(=) ident(MessageDlg)operator(() - string<delimiter(')content(You are trying to create a Key in the shortcut)char('')content(s level.)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(Pluto needs to jump to the target of the shortcut to do this.)delimiter(')>operator(,) - ident(mtConfirmation)operator(,) operator([)ident(mbOK)operator(,) ident(mbCancel)operator(],) integer(0)operator(\)) reserved(then) reserved(begin) - ident(MainWin)operator(.)ident(GotoKey)operator(()ident(TraceKey)operator(()ident(PathOfNode)operator(()ident(Node)operator(\)\)\);) - ident(Node) operator(:=) ident(RegTV)operator(.)ident(Selected)operator(.)ident(Parent)operator(;) - reserved(end) reserved(else) ident(Exit) - reserved(else) reserved(begin) - ident(ShowMessage)operator(()string<delimiter(')content(Key is a HKEY.)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(It is not possible to create Keys on HKEY level.)delimiter(')>operator(\);) - ident(Exit)operator(;) reserved(end)operator(;) - reserved(end) reserved(else) - ident(Node) operator(:=) ident(Node)operator(.)ident(Parent)operator(;) comment(//set reference key to parent) - reserved(end)operator(;) - - reserved(try) - - reserved(case) ident(OpenNode)operator(()ident(MainReg)operator(,) ident(Node)operator(\)) reserved(of) - - ident(onFull)operator(:) reserved(begin) - ident(KeyName) operator(:=) string<delimiter(')content(New)delimiter(')>operator(;) comment(//find best free name) - ident(i) operator(:=) integer(0)operator(;) - reserved(while) ident(MainReg)operator(.)ident(KeyExists)operator(()ident(KeyName)operator(\)) reserved(do) reserved(begin) - ident(Inc)operator(()ident(i)operator(\);) - ident(KeyName) operator(:=) string<delimiter(')content(New )delimiter(')> operator(+) ident(IntToStr)operator(()ident(i)operator(\);) - reserved(end)operator(;) - - ident(Result) operator(:=) ident(MainReg)operator(.)ident(CreateKey)operator(()ident(KeyName)operator(\)) reserved(and) ident(MainReg)operator(.)ident(KeyExists)operator(()ident(KeyName)operator(\);) - comment(// ^-- CREATE KEY) - - reserved(if) reserved(not) ident(Result) reserved(then) comment(// <-- FAILED) - ident(ShowMessage)operator(()string<delimiter(')content(Could not create key!)delimiter(')>operator(\);) - reserved(end)operator(;) - - ident(onReadOnly)operator(:) ident(ShowMessage)operator(()string<delimiter(')content(Key is read-only.)delimiter(')>operator(\);) - - reserved(else) - ident(ShowMessage)operator(()string<delimiter(')content(Error: Couldn)char('')content(t open key.)delimiter(')>operator(\);) - - reserved(end)operator(;) comment(//case) - - reserved(finally) - ident(MainReg)operator(.)ident(CloseKey)operator(;) - reserved(end)operator(;) - - reserved(if) reserved(not) ident(Result) reserved(then) - ident(Exit)operator(;) - - reserved(if) reserved(not) ident(Node)operator(.)ident(Expanded) reserved(then) reserved(begin) comment(//find the node, if Parent not Expanded) - ident(CheckNode)operator(()ident(Node)operator(,) ident(False)operator(\);) - ident(DoSmartExpand) operator(:=) ident(False)operator(;) - ident(Node)operator(.)ident(Expand)operator(()ident(False)operator(\);) - ident(DoSmartExpand) operator(:=) ident(True)operator(;) - ident(NewNode) operator(:=) ident(FindNode)operator(()ident(Node)operator(,) ident(KeyName)operator(\);) - reserved(end) reserved(else) - ident(NewNode) operator(:=) ident(RegTV)operator(.)ident(Items)operator(.)ident(AddChild)operator(()ident(Node)operator(,) ident(KeyName)operator(\);) comment(//else create a new node) - - ident(Result) operator(:=) ident(Assigned)operator(()ident(NewNode)operator(\);) - reserved(if) reserved(not) ident(Result) reserved(then) - ident(ShowMessage)operator(()string<delimiter(')content(Error: Could not find created key.)delimiter(')>operator(\);) - - reserved(if) ident(Result) reserved(then) reserved(begin) - ident(RegTV)operator(.)ident(Selected) operator(:=) ident(NewNode)operator(;) - ident(RegTV)operator(.)ident(Selected)operator(.)ident(EditText)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(CloneKey)operator(;) -reserved(var) - ident(Node)operator(:) ident(TTreeNode)operator(;) - ident(Full)operator(:) ident(TRegPath)operator(;) - ident(MainKey)operator(,) ident(SubKey)operator(,) ident(NewKey)operator(,) ident(zKey)operator(:) reserved(string)operator(;) - ident(i)operator(:) ident(integer)operator(;) -reserved(begin) - ident(Node) operator(:=) ident(RegTV)operator(.)ident(Selected)operator(;) - - reserved(if) ident(CantWrite) reserved(then) - ident(Exit)operator(;) - - reserved(if) ident(NodeInfo)operator(()ident(Node)operator(\).)ident(IsHost) reserved(then) - ident(Exit)operator(;) - - ident(Full) operator(:=) ident(CurKey)operator(()ident(uhNonSystemShortcuts)operator(\);) - ident(MainKey) operator(:=) ident(LWPSolve)operator(()ident(Full)operator(.)ident(Key)operator(\);) - ident(SubKey) operator(:=) ident(FromLastChar)operator(()ident(MainKey)operator(,) char<delimiter(')content(\\)delimiter(')>operator(\);) - ident(MainKey) operator(:=) ident(UntilLastChar)operator(()ident(MainKey)operator(,) char<delimiter(')content(\\)delimiter(')>operator(\);) - reserved(if) ident(SubKey) operator(=) string<delimiter(')delimiter(')> reserved(then) reserved(begin) comment(//Directly beyound HKEY) - ident(SubKey) operator(:=) ident(MainKey)operator(;) - ident(MainKey) operator(:=) string<delimiter(')delimiter(')>operator(;) - reserved(end)operator(;) - - reserved(try) - ident(MainReg)operator(.)ident(RootKey) operator(:=) ident(HKEYOfStr)operator(()ident(Full)operator(.)ident(Root)operator(\);) - reserved(if) reserved(not) ident(MainReg)operator(.)ident(OpenKey)operator(()ident(MainKey)operator(,) ident(False)operator(\)) reserved(then) reserved(begin) - ident(ShowMessage)operator(()string<delimiter(')content(Error: Couldn)char('')content(t not open Key: )delimiter(')> operator(+) ident(MainKey)operator(\);) - ident(Exit) reserved(end)operator(;) - reserved(if) ident(Copy)operator(()ident(SubKey)operator(,) integer(1)operator(,) integer(3)operator(\)) operator(<>) string<delimiter(')content(New)delimiter(')> reserved(then) - ident(NewKey) operator(:=) string<delimiter(')content(New )delimiter(')> operator(+) ident(SubKey) - reserved(else) - ident(NewKey) operator(:=) ident(SubKey)operator(;) - - ident(zKey) operator(:=) ident(Trim)operator(()ident(FromLastChar)operator(()ident(NewKey)operator(,) char<delimiter(')content( )delimiter(')>operator(\)\);) - - ident(i) operator(:=) ident(StrToIntDef)operator(()ident(zKey)operator(,) integer(0)operator(\);) - reserved(if) ident(IsValidInteger)operator(()ident(zKey)operator(\)) reserved(then) - ident(zKey) operator(:=) ident(Trim)operator(()ident(UntilLastChar)operator(()ident(NewKey)operator(,) char<delimiter(')content( )delimiter(')>operator(\)\)) - reserved(else) - ident(zKey) operator(:=) ident(NewKey)operator(;) - - reserved(while) ident(MainReg)operator(.)ident(KeyExists)operator(()ident(NewKey)operator(\)) reserved(do) reserved(begin) - ident(Inc)operator(()ident(i)operator(\);) - ident(NewKey) operator(:=) ident(zKey) operator(+) char<delimiter(')content( )delimiter(')> operator(+) ident(IntToStr)operator(()ident(i)operator(\);) - reserved(end)operator(;) - - ident(MainReg)operator(.)ident(MoveKey)operator(()ident(SubKey)operator(,) ident(NewKey)operator(,) ident(False)operator(\);) - reserved(finally) - ident(MainReg)operator(.)ident(CloseKey)operator(;) - reserved(end)operator(;) - - ident(Node) operator(:=) ident(RegTV)operator(.)ident(Items)operator(.)ident(Add)operator(()ident(Node)operator(,) ident(NewKey)operator(\);) - ident(RegTV)operator(.)ident(Selected) operator(:=) ident(Node)operator(;) - ident(Node)operator(.)ident(EditText)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(NewShortcut)operator(;) -reserved(var) - ident(Node)operator(,) ident(ShortCutNode)operator(:) ident(TTreeNode)operator(;) - ident(ScName)operator(,) ident(ScRealPath)operator(:) reserved(string)operator(;) - ident(i)operator(:) ident(Integer)operator(;) -reserved(begin) - ident(Node) operator(:=) ident(RegTV)operator(.)ident(Selected)operator(;) - reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then) - ident(Exit)operator(;) - - reserved(if) ident(Node)operator(.)ident(Level) operator(=) integer(0) reserved(then) - ident(ScName) operator(:=) string<delimiter(')content(new )delimiter(')> operator(+) ident(Node)operator(.)ident(Text) - reserved(else) - ident(ScName) operator(:=) string<delimiter(')delimiter(')> operator(+) ident(Node)operator(.)ident(Text)operator(;) - - ident(ScRealPath) operator(:=) ident(TraceKey)operator(()ident(PathOfNode)operator(()ident(Node)operator(\)\);) - reserved(if) reserved(not) ident(InputQuery)operator(()string<delimiter(')content(New shortcut to )delimiter(')>operator(,) ident(ScRealPath)operator(,) ident(ScName)operator(\)) reserved(then) - ident(Exit)operator(;) - - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(High)operator(()ident(ShortCuts)operator(\)) reserved(do) - reserved(if) ident(SameText)operator(()ident(ScName)operator(,) ident(ShortCuts)operator([)ident(i)operator(].)ident(Alias)operator(\)) reserved(then) reserved(begin) - ident(ShowMessage)operator(()string<delimiter(')content(Name already in use.)delimiter(')>operator(\);) - ident(NewShortcut)operator(;) - ident(Exit)operator(;) reserved(end)operator(;) - - ident(ShortCutNode) operator(:=) ident(AddShortcut)operator(()ident(ScName)operator(,) ident(ScRealPath)operator(,) ident(iconShortcut)operator(,) ident(uhUserShortcut)operator(,) - ident(True)operator(\);) - ident(CheckNode)operator(()ident(Node)operator(,) ident(False)operator(\);) - ident(RegTV)operator(.)ident(Selected) operator(:=) ident(ShortCutNode)operator(;) -reserved(end)operator(;) - -reserved(function) ident(AddShortcut)operator(()ident(Alias)operator(,) ident(RealPath)operator(:) reserved(string)operator(;) ident(Icon)operator(:) ident(Integer)operator(;) - ident(AHostType)operator(:) ident(TUniHostType) operator(=) ident(uhUserShortcut)operator(;) - ident(WriteIni)operator(:) ident(Boolean) operator(=) ident(False)operator(\):) ident(TTreeNode)operator(;) -reserved(var) - ident(Last)operator(:) ident(Integer)operator(;) -reserved(begin) - ident(RealPath) operator(:=) ident(TraceKey)operator(()ident(RealPath)operator(\);) comment(//Important: do this BEFORE adding a new,) - comment(//empty shortcut to ShortCuts) - - ident(SetLength)operator(()ident(ShortCuts)operator(,) ident(Length)operator(()ident(ShortCuts)operator(\)) operator(+) integer(1)operator(\);) - ident(Last) operator(:=) ident(High)operator(()ident(Shortcuts)operator(\);) - ident(ShortCuts)operator([)ident(Last)operator(].)ident(Alias) operator(:=) ident(Alias)operator(;) - ident(ShortCuts)operator([)ident(Last)operator(].)ident(RealPath) operator(:=) ident(RealPath)operator(;) - - ident(Result) operator(:=) ident(RegTV)operator(.)ident(Items)operator(.)ident(Add)operator(()reserved(nil)operator(,) ident(Alias)operator(\);) - ident(ShortCuts)operator([)ident(Last)operator(].)ident(Node) operator(:=) ident(Result)operator(;) - - reserved(if) ident(Alias) operator(=) string<delimiter(')content(HKEY_WindowsMachine)delimiter(')> reserved(then) - ident(Icon) operator(:=) ident(iconHKWM) - reserved(else) reserved(if) ident(Alias) operator(=) string<delimiter(')content(HKEY_WindowsUser)delimiter(')> reserved(then) - ident(Icon) operator(:=) ident(iconHKWU)operator(;) - ident(SetTNImage)operator(()ident(Result)operator(,) ident(Icon)operator(\);) - - ident(NodeInfo)operator(()ident(Result)operator(\).)ident(HostType) operator(:=) ident(AHostType)operator(;) - - reserved(if) ident(WriteIni) reserved(then) - reserved(with) ident(TIniFile)operator(.)ident(Create)operator(()ident(PlutoDir) operator(+) string<delimiter(')content(Shortcuts.ini)delimiter(')>operator(\)) reserved(do) - reserved(try) - ident(WriteString)operator(()string<delimiter(')content(Shortcuts)delimiter(')>operator(,) ident(Alias)operator(,) ident(RealPath)operator(\);) - reserved(finally) - ident(Free)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(DeleteKey)operator(;) -reserved(var) - ident(i)operator(:) ident(Integer)operator(;) - ident(Node)operator(,) ident(Node2)operator(:) ident(TTreeNode)operator(;) -reserved(begin) - ident(Node) operator(:=) ident(RegTV)operator(.)ident(Selected)operator(;) - - - ident(i) operator(:=) ident(ShortcutIndex)operator(()ident(Node)operator(\);) - reserved(if) operator(()ident(i) operator(>) operator(-)integer(1)operator(\)) reserved(then) reserved(begin) - reserved(if) operator(()ident(mrYes) operator(=) ident(MessageDlg)operator(()string<delimiter(')content(This is a Pluto shortcut to a real key.)delimiter(')>char(#13)char(#10) operator(+) - string<delimiter(')content(Do you really want to delete the shortcut?)delimiter(')>operator(,) - ident(mtConfirmation)operator(,) operator([)ident(mbYes)operator(,) ident(mbCancel)operator(],) integer(0)operator(\)\)) reserved(then) reserved(begin) - ident(SpyThread)operator(.)ident(Suspend)operator(;) - ident(SpyThread)operator(.)ident(Restart) operator(:=) ident(True)operator(;) - reserved(with) ident(TIniFile)operator(.)ident(Create)operator(()ident(PlutoDir) operator(+) string<delimiter(')content(Shortcuts.ini)delimiter(')>operator(\)) reserved(do) - reserved(try) - ident(DeleteKey)operator(()string<delimiter(')content(Shortcuts)delimiter(')>operator(,) ident(Shortcuts)operator([)ident(i)operator(].)ident(Alias)operator(\);) - reserved(finally) - ident(Free)operator(;) - reserved(end)operator(;) - ident(Shortcuts)operator([)ident(i)operator(]) operator(:=) ident(Shortcuts)operator([)ident(High)operator(()ident(Shortcuts)operator(\)];) - ident(SetLength)operator(()ident(Shortcuts)operator(,) ident(Length)operator(()ident(Shortcuts)operator(\)-)integer(1)operator(\);) - ident(RegTV)operator(.)ident(Selected) operator(:=) ident(GetNextBest)operator(()ident(Node)operator(\);) - ident(Node)operator(.)ident(Delete)operator(;) - ident(RegTVChange)operator(()ident(Self)operator(,) ident(RegTV)operator(.)ident(Selected)operator(\);) - ident(SpyThread)operator(.)ident(Resume)operator(;) - reserved(end)operator(;) - ident(Exit)operator(;) reserved(end)operator(;) - - reserved(if) ident(CantWrite) reserved(then) - ident(Exit)operator(;) - - reserved(if) ident(NodeInfo)operator(()ident(Node)operator(\).)ident(IsHost) reserved(then) - ident(Exit)operator(;) - - ident(SpyThread)operator(.)ident(Suspend)operator(;) - ident(SpyThread)operator(.)ident(Restart) operator(:=) ident(True)operator(;) - - ident(Node2) operator(:=) ident(GetNextBest)operator(()ident(Node)operator(\);) - - reserved(if) ident(MessageDlg)operator(()string<delimiter(')content(Do you really want to delete this key?)delimiter(')>operator(,) ident(mtConfirmation)operator(,) - operator([)ident(mbYes)operator(,) ident(mbCancel)operator(],) integer(0)operator(\)) operator(=) ident(mrYes) reserved(then) - reserved(try) - reserved(if) ident(OpenCurParent) reserved(then) reserved(begin) - reserved(if) reserved(not) ident(MainReg)operator(.)ident(DeleteKey)operator(()ident(Node)operator(.)ident(Text)operator(\)) reserved(then) comment(//<-- DELETE KEY) - ident(ShowMessage)operator(()string<delimiter(')content(Key could not be deleted.)delimiter(')>operator(\)) - reserved(else) reserved(begin) - ident(RegTV)operator(.)ident(Selected) operator(:=) ident(Node2)operator(;) - reserved(if) ident(Assigned)operator(()ident(Node)operator(.)ident(Parent)operator(\)) reserved(and) operator(()ident(Node2) operator(=) ident(Node)operator(.)ident(Parent)operator(\)) reserved(then) - ident(Node)operator(.)ident(Parent)operator(.)ident(Collapse)operator(()ident(False)operator(\);) - ident(Node)operator(.)ident(Delete)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - reserved(finally) - ident(MainReg)operator(.)ident(CloseKey)operator(;) - reserved(end)operator(;) - - ident(RegTVChange)operator(()ident(Self)operator(,) ident(Node2)operator(\);) - - ident(SpyThread)operator(.)ident(Resume)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(MoveKey)operator(()reserved(const) ident(Src)operator(,) ident(Trg)operator(:) ident(TRegPath)operator(;) ident(CopyWanted)operator(:) ident(Boolean)operator(\);) -reserved(var) - ident(TrgReg)operator(:) ident(TXRegistry)operator(;) -reserved(begin) - reserved(with) ident(MainReg) reserved(do) reserved(begin) - ident(RootKey) operator(:=) ident(HKEYOfStr)operator(()ident(Src)operator(.)ident(Root)operator(\);) - ident(OpenKey)operator(()string<delimiter(')delimiter(')>operator(\);) - - reserved(if) reserved(not) ident(KeyExists)operator(()ident(Src)operator(.)ident(Key)operator(\)) reserved(then) reserved(begin) - ident(ShowMessage)operator(()string<delimiter(')content(Source not found.)delimiter(')>operator(\);) - ident(Exit)operator(;) reserved(end)operator(;) - reserved(end)operator(;) - - ident(TrgReg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(;) - reserved(with) ident(TrgReg) reserved(do) reserved(begin) - ident(RootKey) operator(:=) ident(HKEYOfStr)operator(()ident(Trg)operator(.)ident(Root)operator(\);) - ident(OpenKey)operator(()string<delimiter(')delimiter(')>operator(\);) - reserved(if) ident(KeyExists)operator(()ident(Trg)operator(.)ident(Key)operator(\)) reserved(then) reserved(begin) - ident(ShowMessage)operator(()string<delimiter(')content(Target already existing.)delimiter(')>operator(\);) - ident(TrgReg)operator(.)ident(Free)operator(;) - ident(Exit)operator(;) reserved(end)operator(;) - reserved(end)operator(;) - - reserved(if) reserved(not) ident(CopyWanted) reserved(then) - reserved(if) ident(mrYes) operator(<>) ident(MessageDlg)operator(()string<delimiter(')content(From source: )delimiter(')> operator(+) ident(StrOfRegPath)operator(()ident(Src)operator(\)) operator(+) ident(EOL) operator(+) - string<delimiter(')content(To target: )delimiter(')> operator(+) ident(StrOfRegPath)operator(()ident(Trg)operator(\)) operator(+) ident(EOL) operator(+) - string<delimiter(')content(Do you really want to move this key?)delimiter(')>operator(,) - ident(mtConfirmation)operator(,) operator([)ident(mbYes)operator(,) ident(mbCancel)operator(],) integer(0)operator(\)) - reserved(then) - ident(Exit)operator(;) - - reserved(try) - ident(MainReg)operator(.)ident(MoveKey)operator(()ident(Src)operator(.)ident(Key)operator(,) ident(TrgReg)operator(,) ident(Trg)operator(.)ident(Key)operator(,) reserved(not) ident(CopyWanted)operator(\);) comment(//<-- MOVE KEY) - reserved(except) - reserved(end)operator(;) - - reserved(if) reserved(not) ident(TrgReg)operator(.)ident(OpenKey)operator(()ident(Trg)operator(.)ident(Key)operator(,) ident(False)operator(\)) reserved(then) - ident(ShowMessage)operator(()string<delimiter(')content(Could not move key!)delimiter(')>operator(\)) - reserved(else) - reserved(if) reserved(not) ident(CopyWanted) reserved(then) - ident(DragNode)operator(.)ident(Delete)operator(;) - - - ident(TrgReg)operator(.)ident(Free)operator(;) - - ident(MainReg)operator(.)ident(CloseKey)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(MoveValues)operator(()ident(SrcNode)operator(,) ident(TrgNode)operator(:) ident(TTreeNode)operator(;) - ident(CopyWanted)operator(:) ident(Boolean)operator(\);) -reserved(var) - ident(SrcReg)operator(,) ident(TrgReg)operator(:) ident(TXRegistry)operator(;) - ident(i)operator(:) ident(Integer)operator(;) - ident(ValueName)operator(:) reserved(string)operator(;) - ident(AnswerToAll)operator(:) ident(Integer)operator(;) - - reserved(function) ident(AskForReplacing)operator(()reserved(const) ident(ValueName)operator(:) reserved(string)operator(\):) ident(Integer)operator(;) - reserved(begin) - reserved(if) ident(AnswerToAll) operator(=) operator(-)integer(1) reserved(then) reserved(begin) - ident(Result) operator(:=) ident(MessageDlg)operator(() - string<delimiter(')content(Value )delimiter(')> operator(+) ident(Quote)operator(()ident(ValueName)operator(\)) operator(+) string<delimiter(')content(already exists in target key.)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(Do you want to replace it?)delimiter(')>operator(,) - ident(mtWarning)operator(,) operator([)ident(mbNo)operator(,) ident(mbYes)operator(,) ident(mbNoToAll)operator(,) ident(mbYesToAll)operator(,) ident(mbAbort)operator(],) integer(0)operator(\);) - reserved(if) ident(Result) reserved(in) operator([)ident(mrNoToAll)operator(,) ident(mrYesToAll)operator(]) reserved(then) reserved(begin) - reserved(if) ident(Result) operator(=) ident(mrYesToAll) reserved(then) - ident(Result) operator(:=) ident(mrYes) - reserved(else) reserved(if) ident(Result) operator(=) ident(mrNoToAll) reserved(then) - ident(Result) operator(:=) ident(mrNo)operator(;) - ident(AnswerToAll) operator(:=) ident(Result)operator(;) - reserved(end)operator(;) - reserved(end) reserved(else) ident(Result) operator(:=) ident(AnswerToAll)operator(;) - reserved(end)operator(;) - -reserved(begin) - ident(AnswerToAll) operator(:=) operator(-)integer(1)operator(;) - - reserved(if) reserved(not) ident(CopyWanted) reserved(then) - reserved(if) ident(mrYes)operator(<>)ident(MessageDlg)operator(() - ident(Format)operator(() - string<delimiter(')content(Do you really want to move %s)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(from: %s)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(to: %s)delimiter(')>operator(,) - operator([)ident(StrNumerus)operator(()ident(ValueList)operator(.)ident(SelCount)operator(,) string<delimiter(')content(value)delimiter(')>operator(,) string<delimiter(')content(values)delimiter(')>operator(\),) - ident(PathOfNode)operator(()ident(SrcNode)operator(\),) ident(PathOfNode)operator(()ident(TrgNode)operator(\)]) - operator(\),) ident(mtConfirmation)operator(,) operator([)ident(mbYes)operator(,) ident(mbAbort)operator(],) integer(0)operator(\)) reserved(then) - ident(Exit)operator(;) - - ident(SrcReg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(;) - reserved(try) - reserved(if) reserved(not) operator(()ident(OpenNode)operator(()ident(SrcReg)operator(,) ident(SrcNode)operator(\)) reserved(in) ident(onOK)operator(\)) reserved(then) - ident(MessageDlg)operator(()string<delimiter(')content(Couldn)char('')content(t open source key: )delimiter(')> operator(+) ident(PathOfNode)operator(()ident(SrcNode)operator(\),) - ident(mtError)operator(,) operator([)ident(mbOK)operator(],) integer(0)operator(\);) - - ident(TrgReg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(;) - reserved(try) - reserved(if) reserved(not) operator(()ident(OpenNode)operator(()ident(TrgReg)operator(,) ident(TrgNode)operator(\)) reserved(in) ident(onOK)operator(\)) reserved(then) - ident(MessageDlg)operator(()string<delimiter(')content(Couldn)char('')content(t open target key: )delimiter(')> operator(+) ident(PathOfNode)operator(()ident(TrgNode)operator(\),) - ident(mtError)operator(,) operator([)ident(mbOK)operator(],) integer(0)operator(\);) - - reserved(with) ident(ValueList)operator(.)ident(Items) reserved(do) reserved(begin) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Count)operator(-)integer(1) reserved(do) reserved(begin) - reserved(if) reserved(not) ident(Item)operator([)ident(i)operator(].)ident(Selected) reserved(then) - ident(Continue)operator(;) - ident(ValueName) operator(:=) ident(RealValueName)operator(()ident(Item)operator([)ident(i)operator(]\);) - - reserved(if) ident(TrgReg)operator(.)ident(ValueExists)operator(()ident(ValueName)operator(\)) reserved(then) reserved(begin) - reserved(case) ident(AskForReplacing)operator(()ident(ValueName)operator(\)) reserved(of) - ident(mrYes)operator(:) operator(;) - ident(mrNo)operator(:) ident(Continue)operator(;) - ident(mrAbort)operator(:) ident(Break)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - - ident(TrgReg)operator(.)ident(WriteContext)operator(()ident(ValueName)operator(,) ident(SrcReg)operator(.)ident(ReadContext)operator(()ident(ValueName)operator(\)\);) - reserved(if) reserved(not) ident(CopyWanted) reserved(then) - ident(SrcReg)operator(.)ident(DeleteValue)operator(()ident(ValueName)operator(\);) - reserved(end)operator(;) - reserved(end)operator(;) - - reserved(finally) - ident(TrgReg)operator(.)ident(Free)operator(;) - reserved(end)operator(;) - - reserved(finally) - ident(SrcReg)operator(.)ident(Free)operator(;) - reserved(end)operator(;) - - reserved(if) reserved(not) ident(CopyWanted) reserved(then) - ident(ValuesWin)operator(.)ident(Reload)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(NewSubKeyMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(CreateKey)operator(()ident(True)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(NewKeyMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(CreateKey)operator(()ident(False)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(CreateShortcutMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(NewShortcut)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(TraceMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(if) ident(NodeInfo)operator(()ident(RegTV)operator(.)ident(Selected)operator(\).)ident(IsShortcut) reserved(then) - ident(MainWin)operator(.)ident(GotoKey)operator(()ident(TraceKey)operator(()ident(PathOfNode)operator(()ident(RegTV)operator(.)ident(Selected)operator(\)\)\);) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(DeleteMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(if) reserved(not) ident(RegTV)operator(.)ident(IsEditing) reserved(then) - ident(DeleteKey)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(DublicateMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(CloneKey)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(FindMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(FindWin)operator(.)ident(SfCurKeyRB)operator(.)ident(Checked) operator(:=) ident(True)operator(;) - ident(FindWin)operator(.)ident(Show)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVPUPopup)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(RegTVChange)operator(()ident(Sender)operator(,) ident(RegTV)operator(.)ident(Selected)operator(\);) - reserved(with) ident(NodeInfo)operator(()ident(RegTV)operator(.)ident(Selected)operator(\)) reserved(do) reserved(begin) - ident(NewSubKeyMI)operator(.)ident(Enabled) operator(:=) reserved(not) ident(CantWrite)operator(;) - ident(NewKeyMI)operator(.)ident(Enabled) operator(:=) reserved(not) ident(CantWrite) reserved(and) operator(()reserved(not) ident(IsHost) reserved(or) ident(IsShortcut)operator(\);) - ident(DublicateMI)operator(.)ident(Enabled) operator(:=) reserved(not) ident(CantWrite) reserved(and) reserved(not) ident(IsHost)operator(;) - - reserved(with) ident(DeleteMI) reserved(do) - reserved(if) ident(HostType) operator(=) ident(uhUserShortcut) reserved(then) reserved(begin) - ident(Caption) operator(:=) string<delimiter(')content(&Delete Shortcut)delimiter(')>operator(;) - ident(Enabled) operator(:=) ident(True)operator(;) - reserved(end) reserved(else) reserved(begin) - ident(Caption) operator(:=) string<delimiter(')content(&Delete)delimiter(')>operator(;) - ident(Enabled) operator(:=) reserved(not) ident(CantWrite) reserved(and) reserved(not) ident(IsHost)operator(;) - reserved(end)operator(;) - - ident(RenameMI)operator(.)ident(Enabled) operator(:=) reserved(not) ident(CantWrite) reserved(and) operator(()ident(HostType) reserved(in) operator([)ident(uhNone)operator(,) ident(uhUserShortcut)operator(]\);) - ident(TraceMI)operator(.)ident(Visible) operator(:=) ident(IsShortcut)operator(;) - ident(EditShortcutMI)operator(.)ident(Visible) operator(:=) ident(HostType) operator(=) ident(uhUserShortcut)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(CheckNode)operator(()ident(Node)operator(:) ident(TTreeNode)operator(;) ident(OnlyOnce)operator(:) ident(Boolean) operator(=) ident(True)operator(;) - ident(TakeNodeSelected)operator(:) ident(Boolean) operator(=) ident(False)operator(\);) -reserved(var) - ident(CurIcon)operator(,) ident(NewIcon)operator(:) ident(Integer)operator(;) - ident(Reg)operator(:) ident(TXRegistry)operator(;) - ident(OpenMode)operator(:) ident(TOpenNodeMode)operator(;) - ident(Info)operator(:) ident(TNodeInfo)operator(;) -preprocessor({$IFDEF UNIKEY}) - ident(Uni)operator(:) ident(TUniKey)operator(;) -preprocessor({$ENDIF}) - ident(KeyHasChildren)operator(:) ident(Boolean)operator(;) - - reserved(procedure) ident(SetShortcutIcon)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\);) - reserved(var) - ident(Full)operator(:) reserved(string)operator(;) - ident(i)operator(:) ident(Integer)operator(;) - reserved(begin) - ident(Full) operator(:=) ident(TraceKey)operator(()ident(PathOfNode)operator(()ident(Node)operator(\)\);) - reserved(for) ident(i) operator(:=) ident(Low)operator(()ident(Shortcuts)operator(\)) reserved(to) ident(High)operator(()ident(Shortcuts)operator(\)) reserved(do) - reserved(if) ident(Full) operator(=) ident(Shortcuts)operator([)ident(i)operator(].)ident(RealPath) reserved(then) reserved(begin) - ident(CurIcon) operator(:=) ident(Shortcuts)operator([)ident(i)operator(].)ident(Node)operator(.)ident(ImageIndex)operator(;) - ident(Exit)operator(;) reserved(end)operator(;) - reserved(if) ident(Node)operator(.)ident(ImageIndex) reserved(in) operator([)ident(iconShortcut)operator(,) ident(iconShortcut) operator(+) integer(1)operator(]) reserved(then) - ident(CurIcon) operator(:=) ident(iconKey) operator(+) operator(()ident(CurIcon) operator(-) ident(iconShortcut)operator(\);) - reserved(end)operator(;) - -reserved(begin) - reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then) - ident(Exit)operator(;) - - ident(Info) operator(:=) ident(NodeInfo)operator(()ident(Node)operator(\);) - reserved(if) ident(OnlyOnce) reserved(and) ident(Info)operator(.)ident(Checked) reserved(then) - ident(Exit)operator(;) - - ident(CurIcon) operator(:=) ident(Node)operator(.)ident(ImageIndex)operator(;) - reserved(if) operator(()ident(CurIcon) operator(>) ident(iconFirstType)operator(\)) reserved(then) reserved(begin) -preprocessor({$IFDEF UNIKEY}) - reserved(if) ident(RootOfNode)operator(()ident(Node)operator(\).)ident(ImageIndex) operator(<>) ident(iconHostUni) reserved(then) reserved(begin) - ident(SetShortcutIcon)operator(()ident(Node)operator(\);) - ident(CurIcon) operator(:=) operator(()ident(CurIcon) reserved(div) integer(2)operator(\)) operator(*) integer(2)operator(;) - reserved(end)operator(;) -preprocessor({$ELSE}) - ident(Exit)operator(;) -preprocessor({$ENDIF}) - reserved(end) reserved(else) reserved(begin) - ident(SetShortcutIcon)operator(()ident(Node)operator(\);) - ident(CurIcon) operator(:=) operator(()ident(CurIcon) reserved(div) integer(2)operator(\)) operator(*) integer(2)operator(;) - reserved(end)operator(;) - ident(NewIcon) operator(:=) ident(CurIcon)operator(;) - - ident(Info)operator(.)ident(ExcludeFlag)operator(()ident(nfDefect)operator(\);) - ident(Info)operator(.)ident(ExcludeFlag)operator(()ident(nfReadOnly)operator(\);) - -preprocessor({$IFDEF UNIKEY}) - ident(KeyHasChildren) operator(:=) ident(False)operator(;) - - reserved(if) ident(RootOfNode)operator(()ident(Node)operator(\).)ident(ImageIndex) operator(=) ident(iconHostUni) reserved(then) reserved(begin) - ident(Uni) operator(:=) ident(UniOfNode)operator(()ident(Node)operator(\);) - reserved(if) ident(Assigned)operator(()ident(Uni)operator(\)) reserved(then) - reserved(try) - ident(KeyHasChildren) operator(:=) ident(Uni)operator(.)ident(HasKeys)operator(;) - reserved(if) ident(usReadOnly) operator(>=) ident(Uni)operator(.)ident(Skills) reserved(then) - ident(OpenMode) operator(:=) ident(onReadOnly) - reserved(else) - ident(OpenMode) operator(:=) ident(onFull)operator(;) - reserved(finally) - ident(Uni)operator(.)ident(Free)operator(;) - reserved(end) - reserved(else) - ident(OpenMode) operator(:=) ident(onError)operator(;) - reserved(end) reserved(else) reserved(begin) -preprocessor({$ENDIF}) - ident(Reg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(;) - reserved(try) - ident(OpenMode) operator(:=) ident(OpenNode)operator(()ident(Reg)operator(,) ident(Node)operator(\);) - ident(KeyHasChildren) operator(:=) ident(Reg)operator(.)ident(HasSubKeys)operator(;) - reserved(finally) - ident(Reg)operator(.)ident(Free)operator(;) - reserved(end)operator(;) -preprocessor({$IFDEF UNIKEY}) - reserved(end)operator(;) -preprocessor({$ENDIF}) - - reserved(if) ident(OpenMode) operator(=) ident(onReadOnly) reserved(then) - ident(Info)operator(.)ident(IncludeFlag)operator(()ident(nfReadOnly)operator(\);) - - reserved(if) ident(OpenMode) reserved(in) ident(onOK) reserved(then) reserved(begin) - comment(//OK, could open) - reserved(if) reserved(not) ident(Node)operator(.)ident(Expanded) reserved(then) reserved(begin) comment(//Collapsed) - reserved(if) ident(KeyHasChildren) reserved(then) reserved(begin) comment(//HasSubKeys) - reserved(if) reserved(not) ident(Node)operator(.)ident(HasChildren) reserved(then) reserved(begin) - comment(//Update: Ensure HasChildren) - reserved(if) ident(TakeNodeSelected) reserved(or) ident(Node)operator(.)ident(Selected) reserved(then) - ident(TreeWin)operator(.)ident(RegTV)operator(.)ident(Items)operator(.)ident(AddChild)operator(()ident(Node)operator(,) string<delimiter(')delimiter(')>operator(\);) - reserved(end)operator(;) - comment(//Ensure Plus-Icon) - ident(NewIcon) operator(:=) ident(CurIcon) operator(+) integer(1)operator(;) - reserved(end) reserved(else) reserved(begin) - comment(//Has still Children?) - reserved(if) ident(Node)operator(.)ident(HasChildren) reserved(then) - ident(Node)operator(.)ident(DeleteChildren)operator(;) - reserved(end)operator(;) - - reserved(end) reserved(else) reserved(begin) comment(//Expanded) - comment(//HasSubKeys?) - reserved(if) ident(KeyHasChildren) reserved(then) reserved(begin) - comment(//OK) - ident(NewIcon) operator(:=) ident(CurIcon) operator(+) integer(1)operator(;) - reserved(end) reserved(else) reserved(begin) - comment(//not OK --> update) - ident(Node)operator(.)ident(Collapse)operator(()ident(True)operator(\);) - ident(Node)operator(.)ident(DeleteChildren)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - - comment(//not OK, couldn't open) - reserved(end) reserved(else) reserved(begin) comment(//defect) - reserved(if) ident(Node)operator(.)ident(HasChildren) reserved(then) - ident(Node)operator(.)ident(DeleteChildren)operator(;) - ident(Info)operator(.)ident(IncludeFlag)operator(()ident(nfDefect)operator(\);) - reserved(end)operator(;) - - reserved(if) ident(Node)operator(.)ident(ImageIndex) operator(<>) ident(iconHostUni) reserved(then) comment(//don't change icon of UniHosts) - ident(Node)operator(.)ident(ImageIndex) operator(:=) ident(NewIcon)operator(;) - - ident(Info)operator(.)ident(IncludeFlag)operator(()ident(nfChecked)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(FormKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) - ident(Shift)operator(:) ident(TShiftState)operator(\);) -reserved(begin) - ident(MainWin)operator(.)ident(FormKeyDown)operator(()ident(Sender)operator(,) ident(Key)operator(,) ident(Shift)operator(\);) -reserved(end)operator(;) - -reserved(function) ident(ShortcutIndex)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\):) ident(Integer)operator(;) -comment(//If Node is a Shortcut,) -comment(//S. returns its index in the Shortcuts array) -comment(//else -1) -reserved(begin) - reserved(if) ident(Node)operator(.)ident(Level) operator(>) integer(0) reserved(then) reserved(begin) - ident(Result) operator(:=) operator(-)integer(1)operator(;) - ident(Exit)operator(;) reserved(end)operator(;) - - reserved(for) ident(Result) operator(:=) integer(0) reserved(to) ident(High)operator(()ident(Shortcuts)operator(\)) reserved(do) - reserved(if) ident(Shortcuts)operator([)ident(Result)operator(].)ident(Node) operator(=) ident(Node) reserved(then) reserved(begin) - ident(Exit)operator(;) - reserved(end)operator(;) - - ident(Result) operator(:=) operator(-)integer(1)operator(;) -reserved(end)operator(;) - -reserved(function) ident(TraceKey)operator(()reserved(const) ident(Path)operator(:) reserved(string)operator(;) ident(AllowedShortcutTypes)operator(:) ident(TUniHostTypes) operator(=) - ident(uhNonSystemShortcuts)operator(\):) reserved(string)operator(;) -reserved(var) - ident(i)operator(:) ident(Integer)operator(;) - ident(isAim)operator(:) ident(Boolean)operator(;) - - reserved(function) ident(NodeOkForTracing)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\):) ident(Boolean)operator(;) - reserved(begin) - ident(Result) operator(:=) ident(Assigned)operator(()ident(Node)operator(\)) reserved(and) - operator(()ident(NodeInfo)operator(()ident(Node)operator(\).)ident(HostType) reserved(in) ident(AllowedShortcutTypes)operator(\);) - reserved(end)operator(;) - -reserved(begin) - ident(Result) operator(:=) ident(MakeLongHKEY)operator(()ident(Path)operator(\);) - reserved(repeat) - ident(isAim) operator(:=) ident(True)operator(;) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(High)operator(()ident(ShortCuts)operator(\)) reserved(do) reserved(begin) - reserved(with) ident(Shortcuts)operator([)ident(i)operator(]) reserved(do) - reserved(if) ident(NodeOkForTracing)operator(()ident(Node)operator(\)) reserved(and) - ident(SameText)operator(()ident(UntilChar)operator(()ident(Result)operator(,) char<delimiter(')content(\\)delimiter(')>operator(\),) ident(Alias)operator(\)) reserved(then) reserved(begin) - reserved(if) ident(Alias) operator(=) ident(RealPath) reserved(then) - ident(Break)operator(;) - ident(Delete)operator(()ident(Result)operator(,) integer(1)operator(,) ident(Length)operator(()ident(Alias)operator(\)\);) - ident(Result) operator(:=) ident(RealPath) operator(+) ident(Result)operator(;) - ident(isAim) operator(:=) ident(False)operator(;) - ident(Break)operator(;) reserved(end)operator(;) - reserved(end)operator(;) - reserved(until) ident(isAim)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVKeyPress)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Char)operator(\);) -reserved(begin) - reserved(if) operator(()ident(Key) operator(=) char<delimiter(')content(*)delimiter(')>operator(\)) reserved(and) ident(NoAsterisk) reserved(then) reserved(begin) - ident(Key) operator(:=) char(#0)operator(;) - ident(NoAsterisk) operator(:=) ident(False)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVAdvancedCustomDrawItem)operator(()ident(Sender)operator(:) ident(TCustomTreeView)operator(;) - ident(Node)operator(:) ident(TTreeNode)operator(;) ident(State)operator(:) ident(TCustomDrawState)operator(;) ident(Stage)operator(:) ident(TCustomDrawStage)operator(;) - reserved(var) ident(PaintImages)operator(,) ident(DefaultDraw)operator(:) ident(Boolean)operator(\);) -reserved(var) - ident(Rect)operator(:) ident(TRect)operator(;) - ident(MainValueName)operator(:) reserved(string)operator(;) - ident(Reg)operator(:) ident(TXRegistry)operator(;) - ident(Info)operator(:) ident(TRegKeyInfo)operator(;) - ident(PreviewPosX)operator(:) ident(Integer)operator(;) - - reserved(procedure) ident(DefaultIconPreview)operator(()ident(Reg)operator(:) ident(TXRegistry)operator(\);) - reserved(var) - ident(Icon)operator(:) ident(HICON)operator(;) - ident(IconFile)operator(:) reserved(string)operator(;) - reserved(begin) - reserved(if) operator(()ident(Node)operator(.)ident(Level) operator(=) integer(0)operator(\)) reserved(and) reserved(not) ident(RegTV)operator(.)ident(ShowLines) reserved(then) - ident(Exit)operator(;) - - ident(IconFile) operator(:=) ident(Reg)operator(.)ident(ReadDefaultIcon)operator(;) - reserved(if) ident(IconFile) operator(=) string<delimiter(')delimiter(')> reserved(then) - ident(Exit)operator(;) - - ident(Icon) operator(:=) ident(GetIconFromFile)operator(()ident(ExpandString)operator(()ident(IconFile)operator(\)\);) - reserved(if) ident(Icon) operator(=) integer(0) reserved(then) - ident(Exit)operator(;) - - reserved(with) ident(Rect) reserved(do) reserved(begin) - ident(Dec)operator(()ident(Left)operator(,) ident(TTreeView)operator(()ident(Sender)operator(\).)ident(Indent) operator(+) integer(16)operator(\);) - ident(DrawIconEx)operator(()ident(Sender)operator(.)ident(Canvas)operator(.)ident(Handle)operator(,) ident(Left)operator(,) ident(Top)operator(,) - ident(Icon)operator(,) integer(16)operator(,) integer(16)operator(,) - integer(0)operator(,) integer(0)operator(,) ident(DI_NORMAL)operator(\);) - ident(DestroyIcon)operator(()ident(Icon)operator(\);) - reserved(end)operator(;) - reserved(end)operator(;) - - reserved(procedure) ident(AddPreview)operator(()reserved(const) ident(PreviewText)operator(:) reserved(string)operator(;) ident(Color)operator(:) ident(TColor)operator(\);) - reserved(begin) - reserved(with) ident(Sender)operator(.)ident(Canvas) reserved(do) reserved(begin) - ident(SetTextColor)operator(()ident(Handle)operator(,) ident(Color)operator(\);) - ident(ExtTextOut)operator(()ident(Handle)operator(,) ident(PreviewPosX)operator(,) ident(Rect)operator(.)ident(Top) operator(+) integer(1)operator(,) ident(TextFlags)operator(,) reserved(nil)operator(,) - ident(PChar)operator(()ident(PreviewText)operator(\),) ident(Length)operator(()ident(PreviewText)operator(\),) reserved(nil)operator(\);) - ident(Inc)operator(()ident(PreviewPosX)operator(,) ident(TextWidth)operator(()ident(PreviewText)operator(\)\);) - reserved(end)operator(;) - reserved(end)operator(;) - -reserved(begin) - reserved(if) ident(Stage) operator(<>) ident(cdPostPaint) reserved(then) - ident(Exit)operator(;) - - ident(MainValueName) operator(:=) ident(PrefWin)operator(.)ident(MainPreviewE)operator(.)ident(Text)operator(;) - - ident(Rect) operator(:=) ident(Node)operator(.)ident(DisplayRect)operator(()ident(True)operator(\);) - ident(PreviewPosX) operator(:=) ident(Rect)operator(.)ident(Right) operator(+) integer(5)operator(;) - - ident(Reg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(()ident(KEY_READ)operator(\);) - reserved(try) - reserved(if) ident(OpenNodeOK)operator(()ident(Reg)operator(,) ident(Node)operator(\)) reserved(then) reserved(begin) -comment(// Sender.Canvas.Font.Style := [];) - reserved(if) ident(PrefWin)operator(.)ident(KeyInfoPreviewCB)operator(.)ident(Checked) reserved(and) ident(Reg)operator(.)ident(GetKeyInfo)operator(()ident(Info)operator(\)) reserved(then) - reserved(with) ident(Info) reserved(do) reserved(begin) - reserved(if) ident(NumSubKeys) operator(>) integer(0) reserved(then) - ident(AddPreview)operator(()ident(IntToStr)operator(()ident(NumSubKeys)operator(\)) operator(+) string<delimiter(')content(k )delimiter(')>operator(,) ident(clCyan)operator(\);) - reserved(if) ident(NumValues) operator(>) integer(0) reserved(then) - ident(AddPreview)operator(()ident(IntToStr)operator(()ident(NumValues)operator(\)) operator(+) string<delimiter(')content(v )delimiter(')>operator(,) ident(clBrightPurple)operator(\);) - reserved(end)operator(;) - - reserved(if) ident(PrefWin)operator(.)ident(MainPreviewCB)operator(.)ident(Checked) reserved(then) - reserved(if) ident(Reg)operator(.)ident(ValueReallyExists)operator(()ident(MainValueName)operator(\)) reserved(then) - ident(AddPreview)operator(()ident(DataPreviewOfContext)operator(()ident(Reg)operator(.)ident(ReadContext)operator(()ident(MainValueName)operator(\)\),) hex($00AAFFFF)operator(\);) - comment({clBrightYellow}) - reserved(if) ident(PrefWin)operator(.)ident(DefaultIconPreviewCB)operator(.)ident(Checked) reserved(then) - ident(DefaultIconPreview)operator(()ident(Reg)operator(\);) - reserved(end)operator(;) - reserved(finally) - ident(Reg)operator(.)ident(Free)operator(;) - reserved(end)operator(;) - - comment({if nfCopy in NodeInfo(Node\).Flags then begin - //Node.StateIndex := 2; - Brush.Style := bsClear; - with Font do begin - Style := [fsItalic, fsBold]; - Color := clRed; - end; - //TextOut(Rect.Left - 10, Rect.Top + 3, 'c'\); - end;}) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(RenameMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(RegTV)operator(.)ident(Selected)operator(.)ident(EditText)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(CopyPathMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(UserCopyKeyFlag) operator(:=) ident(True)operator(;) - ident(MainWin)operator(.)ident(CopyPathClick)operator(()ident(Sender)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(InsertPathMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(MainWin)operator(.)ident(InsertPathClick)operator(()ident(Sender)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVGetImageIndex)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\);) -reserved(begin) - reserved(if) reserved(not) ident(NodeInfo)operator(()ident(Node)operator(\).)ident(Checked) reserved(then) - ident(CheckNode)operator(()ident(Node)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(CheckRegTVHotTrack)operator(;) -reserved(const) - ident(FindCursorOfSwitch)operator(:) reserved(array)operator([)ident(Boolean)operator(]) reserved(of) ident(TCursor) operator(=) operator(()ident(crArrow)operator(,) ident(crHandPoint)operator(\);) -reserved(var) - ident(NewHotTrack)operator(:) ident(Boolean)operator(;) -reserved(begin) - ident(NewHotTrack) operator(:=) ident(ScrollON) reserved(xor) ident(PrefWin)operator(.)ident(KeysSingleClickCB)operator(.)ident(Checked)operator(;) - reserved(if) ident(NewHotTrack) operator(=) ident(RegTV)operator(.)ident(HotTrack) reserved(then) ident(Exit)operator(;) - - reserved(with) ident(RegTV) reserved(do) reserved(begin) - ident(HotTrack) operator(:=) ident(NewHotTrack)operator(;) - ident(Cursor) operator(:=) ident(FindCursorOfSwitch)operator([)ident(HotTrack)operator(];) - ident(Mouse)operator(.)ident(CursorPos) operator(:=) ident(Mouse)operator(.)ident(CursorPos)operator(;) comment(//update cursor) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(PasteKeyMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(Src)operator(,) ident(Trg)operator(:) ident(TRegPath)operator(;) - ident(Node)operator(:) ident(TTreeNode)operator(;) -reserved(begin) - ident(Src) operator(:=) ident(RegPathOfStr)operator(()ident(Clipboard)operator(.)ident(AsText)operator(\);) - ident(Trg) operator(:=) ident(CurKey)operator(()ident(uhNonSystemShortcuts)operator(\);) - ident(Trg)operator(.)ident(Key) operator(:=) ident(Trg)operator(.)ident(Key) operator(+) char<delimiter(')content(\\)delimiter(')> operator(+) ident(FromLastChar)operator(()ident(Src)operator(.)ident(Key)operator(,) char<delimiter(')content(\\)delimiter(')>operator(,) ident(True)operator(\);) - - ident(MoveKey)operator(()ident(Src)operator(,) ident(Trg)operator(,) ident(UserCopyKeyFlag)operator(\);) - - ident(Node) operator(:=) ident(RegTV)operator(.)ident(Selected)operator(;) - reserved(if) ident(Node)operator(.)ident(Expanded) reserved(then) - ident(Node)operator(.)ident(Collapse)operator(()ident(False)operator(\);) - ident(Node)operator(.)ident(Expanded) operator(:=) ident(False)operator(;) - ident(CheckNode)operator(()ident(Node)operator(,) ident(False)operator(\);) - ident(Node)operator(.)ident(Expand)operator(()ident(False)operator(\);) - - reserved(if) reserved(not) ident(UserCopyKeyFlag) reserved(then) - ident(RegTV)operator(.)ident(Repaint)operator(;) comment(// CheckNode(Node, False\);) - - ident(UserCopyKeyFlag) operator(:=) ident(True)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(CutPathMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(UserCopyKeyFlag) operator(:=) ident(False)operator(;) - ident(MainWin)operator(.)ident(CopyPathClick)operator(()ident(Sender)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(OpenNextLevel)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\);) - - reserved(procedure) ident(ExpandKeys)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\);) - reserved(begin) - ident(CheckNode)operator(()ident(Node)operator(,) ident(False)operator(,) ident(True)operator(\);) - reserved(if) reserved(not) ident(Node)operator(.)ident(HasChildren) reserved(then) - ident(Exit)operator(;) - reserved(if) reserved(not) ident(Node)operator(.)ident(Expanded) reserved(then) - ident(Node)operator(.)ident(Expand)operator(()ident(False)operator(\)) - reserved(else) reserved(begin) - ident(Node) operator(:=) ident(Node)operator(.)ident(GetFirstChild)operator(;) - reserved(while) ident(Assigned)operator(()ident(Node)operator(\)) reserved(do) reserved(begin) - ident(ExpandKeys)operator(()ident(Node)operator(\);) - ident(Node) operator(:=) ident(Node)operator(.)ident(GetNextSibling)operator(;) reserved(end)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - -reserved(begin) - ident(DoSmartExpand) operator(:=) ident(False)operator(;) - ident(ExpandKeys)operator(()ident(Node)operator(\);) - ident(DoSmartExpand) operator(:=) ident(True)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(EditShortcutMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(NewPath)operator(:) reserved(string)operator(;) - ident(i)operator(:) ident(Integer)operator(;) - ident(Node)operator(:) ident(TTreeNode)operator(;) - ident(Shortcut)operator(:) ident(PKeyShortcut)operator(;) -reserved(begin) - ident(Node) operator(:=) ident(RegTV)operator(.)ident(Selected)operator(;) - reserved(if) ident(NodeInfo)operator(()ident(Node)operator(\).)ident(HostType) operator(<>) ident(uhUserShortcut) reserved(then) - ident(Exit)operator(;) - - ident(i) operator(:=) ident(ShortcutIndex)operator(()ident(Node)operator(\);) - reserved(if) ident(i) operator(=) operator(-)integer(1) reserved(then) - ident(Exit)operator(;) - - reserved(with) ident(TIniFile)operator(.)ident(Create)operator(()ident(PlutoDir) operator(+) string<delimiter(')content(Shortcuts.ini)delimiter(')>operator(\)) reserved(do) - reserved(try) - ident(NewPath) operator(:=) ident(ReadString)operator(()string<delimiter(')content(Shortcuts)delimiter(')>operator(,) ident(Shortcuts)operator([)ident(i)operator(].)ident(Alias)operator(,) string<delimiter(')delimiter(')>operator(\);) - reserved(finally) - ident(Free)operator(;) - reserved(end)operator(;) - - reserved(if) reserved(not) ident(InputQuery)operator(()string<delimiter(')content(Edit Shortcut)delimiter(')>operator(,) string<delimiter(')content(Shortcut to...)delimiter(')>operator(,) ident(NewPath)operator(\)) reserved(then) - ident(Exit)operator(;) - - ident(Node)operator(.)ident(Collapse)operator(()ident(False)operator(\);) - ident(Shortcut) operator(:=) operator(@)ident(Shortcuts)operator([)ident(i)operator(];) - ident(Shortcut)operator(.)ident(RealPath) operator(:=) ident(TraceKey)operator(()ident(NewPath)operator(\);) - reserved(with) ident(TIniFile)operator(.)ident(Create)operator(()ident(PlutoDir) operator(+) string<delimiter(')content(Shortcuts.ini)delimiter(')>operator(\)) reserved(do) - reserved(try) - ident(WriteString)operator(()string<delimiter(')content(Shortcuts)delimiter(')>operator(,) ident(Shortcut)operator(.)ident(Alias)operator(,) ident(Shortcut)operator(.)ident(RealPath)operator(\);) - reserved(finally) - ident(Free)operator(;) - reserved(end)operator(;) - - ident(RegTVChange)operator(()ident(Self)operator(,) ident(Node)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(SubKeylist1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(SL)operator(:) ident(TStringList)operator(;) -reserved(begin) - ident(SL) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;) - reserved(if) ident(OpenCurKey) reserved(then) - reserved(try) - ident(MainReg)operator(.)ident(GetKeyNames)operator(()ident(SL)operator(\);) - reserved(if) ident(PrefWin)operator(.)ident(SortKeysCB)operator(.)ident(Checked) reserved(then) - ident(SL)operator(.)ident(Sort)operator(;) - ident(Clipboard)operator(.)ident(AsText) operator(:=) ident(SL)operator(.)ident(Text)operator(;) - reserved(finally) - ident(MainReg)operator(.)ident(CloseKey)operator(;) - ident(SL)operator(.)ident(Free)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(ValueNameslist1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(SL)operator(:) ident(TStringList)operator(;) -reserved(begin) - ident(SL) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;) - reserved(if) ident(OpenCurKey) reserved(then) - reserved(try) - ident(MainReg)operator(.)ident(GetValueNames)operator(()ident(SL)operator(\);) - reserved(if) ident(PrefWin)operator(.)ident(SortKeysCB)operator(.)ident(Checked) reserved(then) - ident(SL)operator(.)ident(Sort)operator(;) - ident(Clipboard)operator(.)ident(AsText) operator(:=) ident(SL)operator(.)ident(Text)operator(;) - reserved(finally) - ident(MainReg)operator(.)ident(CloseKey)operator(;) - ident(SL)operator(.)ident(Free)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(KeyInfosMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(MessageDlg)operator(()ident(GetKeyInfos)operator(,) ident(mtInformation)operator(,) operator([)ident(mbOK)operator(],) integer(0)operator(\);) -reserved(end)operator(;) - -reserved(function) ident(TTreeWin)operator(.)ident(GetKeyInfos)operator(:) reserved(string)operator(;) -reserved(const) - ident(sErrorMsg) operator(=) string<delimiter(')content(Error! No: %d Msg: %s)delimiter(')>operator(;) - -reserved(var) - ident(Node)operator(:) ident(TTreeNode)operator(;) - ident(Reg)operator(:) ident(TXRegistry)operator(;) - ident(Mode)operator(:) ident(TOpenNodeMode)operator(;) - ident(Error)operator(:) ident(Integer)operator(;) - ident(Info)operator(:) ident(TNodeInfo)operator(;) - ident(Flag)operator(:) ident(TNodeFlag)operator(;) - - reserved(procedure) ident(Add)operator(()reserved(const) ident(S)operator(:) reserved(string)operator(\);) - reserved(begin) - ident(Result) operator(:=) ident(Result) operator(+) ident(S)operator(;) - reserved(end)operator(;) - - reserved(procedure) ident(AddLn)operator(()reserved(const) ident(S)operator(:) reserved(string) operator(=) string<delimiter(')delimiter(')>operator(\);) - reserved(begin) - ident(Add)operator(()ident(S) operator(+) ident(EOL)operator(\);) - reserved(end)operator(;) - - reserved(procedure) ident(AddNodeInfo)operator(()ident(Key)operator(:) ident(HKEY)operator(\);) - reserved(var) - ident(KeyInfo)operator(:) ident(TRegKeyInfo)operator(;) - ident(Res)operator(:) ident(Integer)operator(;) - ident(KeyAge)operator(:) ident(TDateTime)operator(;) - reserved(begin) - ident(FillChar)operator(()ident(KeyInfo)operator(,) ident(SizeOf)operator(()ident(TRegKeyInfo)operator(\),) integer(0)operator(\);) - reserved(with) ident(KeyInfo) reserved(do) reserved(begin) - ident(Res) operator(:=) ident(RegQueryInfoKey)operator(()ident(Reg)operator(.)ident(CurrentKey)operator(,) reserved(nil)operator(,) reserved(nil)operator(,) reserved(nil)operator(,) operator(@)ident(NumSubKeys)operator(,) - operator(@)ident(MaxSubKeyLen)operator(,) reserved(nil)operator(,) operator(@)ident(NumValues)operator(,) operator(@)ident(MaxValueLen)operator(,) - operator(@)ident(MaxDataLen)operator(,) reserved(nil)operator(,) operator(@)ident(LastWriteTime)operator(\);) - - reserved(if) ident(Res) operator(=) ident(ERROR_SUCCESS) reserved(then) reserved(begin) - ident(Add)operator(()ident(Format)operator(() - string<delimiter(')content(Subkeys: %0:d)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(Values: %2:d)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(Max subkeys length: %1:d)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(Max value name length: %3:d)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(Max data length: %4:d)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')delimiter(')>operator(,) - operator([)ident(NumSubKeys)operator(,) ident(MaxSubKeyLen)operator(,) ident(NumValues)operator(,) ident(MaxValueLen)operator(,) ident(MaxDataLen)operator(]\)\);) - ident(KeyAge) operator(:=) ident(DateTimeOfFileTime)operator(()ident(LastWriteTime)operator(\);) - reserved(if) ident(KeyAge) operator(>) integer(0) reserved(then) - ident(AddLn)operator(()string<delimiter(')content(Last write time: )delimiter(')> operator(+) ident(DateTimeToStr)operator(()ident(KeyAge)operator(\)\);) - reserved(end) reserved(else) - ident(AddLn)operator(()string<delimiter(')content(Couldn)char('')content(t get key info.)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(Error Code: )delimiter(')> operator(+) ident(IntToStr)operator(()ident(Res)operator(\)) operator(+) ident(EOL) operator(+) - string<delimiter(')content(Message: )delimiter(')> operator(+) ident(SysErrorMessage)operator(()ident(Res)operator(\)\);) - reserved(end)operator(;) - reserved(end)operator(;) - -reserved(begin) - ident(Result) operator(:=) string<delimiter(')delimiter(')>operator(;) - ident(Node) operator(:=) ident(RegTV)operator(.)ident(Selected)operator(;) - - ident(Reg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(()ident(KEY_READ)operator(\);) - reserved(try) - reserved(try) - ident(Error) operator(:=) ident(OpenNodeError)operator(()ident(Reg)operator(,) ident(RegTV)operator(.)ident(Selected)operator(,) ident(Mode)operator(\);) - - reserved(case) ident(Mode) reserved(of) - ident(onFull)operator(:) ident(AddLn)operator(()string<delimiter(')content(Full Access)delimiter(')>operator(\);) - ident(onReadOnly)operator(:) ident(AddLn)operator(()string<delimiter(')content(Read only)delimiter(')>operator(\);) - ident(onError)operator(:) - ident(AddLn)operator(()ident(Format)operator(()ident(sErrorMsg)operator(,) operator([)ident(Error)operator(,) ident(SysErrorMessage)operator(()ident(Error)operator(\)]\)\);) - ident(onNodeNil)operator(:) ident(AddLn)operator(()string<delimiter(')content(Node is nil!)delimiter(')>operator(\);) - - reserved(else) - ident(AddLn)operator(()string<delimiter(')content(Unknown Mode: )delimiter(')> operator(+) ident(IntToStr)operator(()ident(Integer)operator(()ident(Mode)operator(\)\)\);) - reserved(end)operator(;) - - reserved(if) ident(Mode) reserved(in) ident(onOK) reserved(then) - ident(AddNodeInfo)operator(()ident(Reg)operator(.)ident(CurrentKey)operator(\);) - - reserved(except) - directive(on) ident(E)operator(:) ident(Exception) reserved(do) reserved(begin) - ident(Error) operator(:=) ident(GetLastError)operator(;) - reserved(if) ident(Error) operator(<>) ident(ERROR_SUCCESS) reserved(then) - ident(AddLn)operator(()ident(Format)operator(()string<delimiter(')content(Error! No: %d Msg: %s)delimiter(')>operator(,) operator([)ident(Error)operator(,) ident(SysErrorMessage)operator(()ident(Error)operator(\)]\)\)) - reserved(else) - ident(AddLn)operator(()ident(E)operator(.)ident(Message)operator(\);) - reserved(end)operator(;) - reserved(end)operator(;) - reserved(finally) - ident(Reg)operator(.)ident(Free)operator(;) - reserved(end)operator(;) - - reserved(if) ident(MurphyMode) reserved(then) reserved(begin) - ident(AddLn)operator(()string<delimiter(')content([MM] ImageIndex: )delimiter(')> operator(+) ident(IntToStr)operator(()ident(Node)operator(.)ident(ImageIndex)operator(\)\);) - ident(Info) operator(:=) ident(NodeInfo)operator(()ident(Node)operator(\);) - - reserved(if) ident(Info)operator(.)ident(HostType) reserved(in) operator([)ident(uhNone)operator(..)ident(High)operator(()ident(HostTypeStrings)operator(\)]) reserved(then) - ident(AddLn)operator(()string<delimiter(')content([MM] HostType: )delimiter(')> operator(+) ident(HostTypeStrings)operator([)ident(Info)operator(.)ident(HostType)operator(]\)) - reserved(else) - ident(AddLn)operator(()string<delimiter(')content([MM] Unknown HostType: )delimiter(')> operator(+) ident(IntToStr)operator(()ident(Integer)operator(()ident(Info)operator(.)ident(HostType)operator(\)\)\);) - ident(Add)operator(()string<delimiter(')content([MM] Flags: )delimiter(')>operator(\);) - reserved(for) ident(Flag) operator(:=) ident(Low)operator(()ident(TNodeFlag)operator(\)) reserved(to) ident(High)operator(()ident(TNodeFlag)operator(\)) reserved(do) - reserved(if) ident(Flag) reserved(in) ident(Info)operator(.)ident(Flags) reserved(then) - ident(Add)operator(()ident(NodeFlagStrings)operator([)ident(Flag)operator(]) operator(+) char<delimiter(')content( )delimiter(')>operator(\);) - ident(AddLn)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(ExportAsRegClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(Node)operator(:) ident(TTreeNode)operator(;) - ident(Reg)operator(:) ident(TXRegistry)operator(;) - - reserved(procedure) ident(ExportAsReg4)operator(()ident(Reg)operator(:) ident(TXRegistry)operator(;) reserved(const) ident(FileName)operator(:) reserved(string)operator(\);) - reserved(var) - ident(Reg4Writer)operator(:) ident(TReg4Writer)operator(;) - reserved(begin) - ident(Reg4Writer) operator(:=) ident(TReg4Writer)operator(.)ident(Create)operator(()ident(tpNormal)operator(,) ident(FileName)operator(,) - ident(TraceKey)operator(()ident(PathOfNode)operator(()ident(Node)operator(\)\),) ident(Reg)operator(.)ident(DeliverKey)operator(\);) - reserved(with) ident(Reg4Writer) reserved(do) reserved(begin) - ident(OnTerminate) operator(:=) ident(Reg4WriterTerminate)operator(;) - reserved(try) - ident(AddHint)operator(()ident(Format)operator(()string<delimiter(')content(starting .reg-export: %s...)delimiter(')>operator(,) - operator([)ident(Root) operator(+) char<delimiter(')content(\\)delimiter(')> operator(+) ident(Path)operator(]\)\);) - ident(Resume)operator(;) - reserved(except) - ident(Free)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - ident(AddToLastHint)operator(()string<delimiter(')content(started.)delimiter(')>operator(\);) - reserved(end)operator(;) - - - reserved(procedure) ident(ExportAsHive)operator(()ident(Reg)operator(:) ident(TXRegistry)operator(;) reserved(const) ident(FileName)operator(:) reserved(string)operator(\);) - reserved(begin) - reserved(if) ident(Reg)operator(.)ident(SaveKey)operator(()string<delimiter(')delimiter(')>operator(,) ident(FileName)operator(\)) reserved(then) - ident(AddHint)operator(()string<delimiter(')content(hive export successfull.)delimiter(')>operator(\)) - reserved(else) - ident(AddHint)operator(()ident(Format)operator(()string<delimiter(')content(hive export failed: %s)delimiter(')>operator(,) - operator([)ident(SysErrorMessage)operator(()ident(LastSuccessRes)operator(\)]\)\);) - reserved(end)operator(;) - -reserved(begin) - ident(Node) operator(:=) ident(RegTV)operator(.)ident(Selected)operator(;) - reserved(with) ident(ExportD) reserved(do) reserved(begin) - ident(FileName) operator(:=) ident(MakeValidFileName)operator(()ident(Node)operator(.)ident(Text)operator(,) string<delimiter(')content(key)delimiter(')>operator(\);) - - reserved(if) ident(Execute) reserved(then) reserved(begin) - ident(Reg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(;) - reserved(try) - reserved(if) ident(OpenNodeOK)operator(()ident(Reg)operator(,) ident(Node)operator(\)) reserved(then) reserved(begin) - reserved(if) ident(FileExists)operator(()ident(FileName)operator(\)) reserved(and) operator(()ident(mrYes)operator(=)ident(MessageDlg)operator(() - string<delimiter(')content(File already exists.)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(Delete existing file?)delimiter(')>operator(,) - ident(mtWarning)operator(,) operator([)ident(mbYes)operator(,) ident(mbNo)operator(],) integer(0)operator(\)\)) reserved(then) reserved(begin) - ident(FileSetAttr)operator(()ident(FileName)operator(,) integer(0)operator(\);) - ident(DeleteFile)operator(()ident(FileName)operator(\);) - reserved(end)operator(;) - reserved(case) ident(FilterIndex) reserved(of) - integer(1)operator(:) ident(ExportAsReg4)operator(()ident(Reg)operator(,) ident(FileName)operator(\);) - integer(2)operator(:) ident(ExportAsHive)operator(()ident(Reg)operator(,) ident(FileName)operator(\);) - reserved(else) - ident(ShowMessage)operator(()ident(Format)operator(()string<delimiter(')content(Wrong Filter: %d)delimiter(')>operator(,) operator([)ident(FilterIndex)operator(]\)\);) - reserved(end)operator(;) - reserved(end)operator(;) - reserved(finally) - ident(Reg)operator(.)ident(Free)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(FormClose)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Action)operator(:) ident(TCloseAction)operator(\);) -reserved(begin) -comment(// Action := caNone;) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(Load)operator(;) -reserved(var) - ident(NodeHKLM)operator(,) ident(NodeHKU)operator(,) ident(NodeHKDD)operator(,) ident(NodeHKPD)operator(:) ident(TTreeNode)operator(;) - ident(NodeHostReg)operator(:) ident(TTreeNode)operator(;) - - reserved(procedure) ident(LoadShortcuts)operator(()ident(FileName)operator(:) reserved(string)operator(;) ident(HostType)operator(:) ident(TUniHostType)operator(\);) - reserved(var) - ident(i)operator(:) ident(Integer)operator(;) - ident(SL)operator(:) ident(TStringList)operator(;) - ident(ShortcutIni)operator(:) ident(TIniFile)operator(;) - reserved(begin) - reserved(if) reserved(not) ident(FileEx)operator(()ident(FileName)operator(\)) reserved(then) reserved(begin) - ident(AddToLastHint)operator(()string<delimiter(')content(not found:)delimiter(')>operator(\);) - ident(AddHint)operator(()ident(FileName)operator(\);) - ident(Exit) reserved(end)operator(;) - - ident(ShortcutIni) operator(:=) ident(TIniFile)operator(.)ident(Create)operator(()ident(FileName)operator(\);) - ident(SL) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;) - - reserved(try) - ident(ShortcutIni)operator(.)ident(ReadSectionValues)operator(()string<delimiter(')content(Shortcuts)delimiter(')>operator(,) ident(SL)operator(\);) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(SL)operator(.)ident(Count)operator(-)integer(1) reserved(do) - ident(AddShortcut)operator(()ident(SL)operator(.)ident(Names)operator([)ident(i)operator(],) ident(SL)operator(.)ident(Values)operator([)ident(SL)operator(.)ident(Names)operator([)ident(i)operator(]],) ident(iconShortcut)operator(,) - ident(HostType)operator(\);) - ident(AddToLastHint)operator(()string<delimiter(')content(OK)delimiter(')>operator(\);) - reserved(finally) - ident(SL)operator(.)ident(Free)operator(;) - ident(ShortcutIni)operator(.)ident(Free)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - -reserved(begin) - ident(NodeHostReg) operator(:=) reserved(nil)operator(;) - - ident(AddHint)operator(()string<delimiter(')content(Creating Hosts...)delimiter(')>operator(\);) - ident(RootNodes) operator(:=) ident(TList)operator(.)ident(Create)operator(;) - ident(ChangeLastHint)operator(()string<delimiter(')content(Creating Hosts...HKEY_LOCAL_MACHINE)delimiter(')>operator(\);) - ident(NodeHKLM) operator(:=) ident(RegTV)operator(.)ident(Items)operator(.)ident(AddChild)operator(()ident(NodeHostReg)operator(,) string<delimiter(')content(HKEY_LOCAL_MACHINE)delimiter(')>operator(\);) - ident(SetTNImage)operator(()ident(NodeHKLM)operator(,) ident(iconHKLM)operator(\);) - ident(NodeInfo)operator(()ident(NodeHKLM)operator(\).)ident(HostType) operator(:=) ident(uhReg)operator(;) - ident(RootNodes)operator(.)ident(Add)operator(()ident(NodeHKLM)operator(\);) - - ident(ChangeLastHint)operator(()string<delimiter(')content(Creating Hosts...HKEY_USERS)delimiter(')>operator(\);) - ident(NodeHKU) operator(:=) ident(RegTV)operator(.)ident(Items)operator(.)ident(AddChild)operator(()ident(NodeHostReg)operator(,) string<delimiter(')content(HKEY_USERS)delimiter(')>operator(\);) - ident(SetTNImage)operator(()ident(NodeHKU)operator(,) ident(iconHKU)operator(\);) - ident(NodeInfo)operator(()ident(NodeHKU)operator(\).)ident(HostType) operator(:=) ident(uhReg)operator(;) - ident(RootNodes)operator(.)ident(Add)operator(()ident(NodeHKU)operator(\);) - - ident(ChangeLastHint)operator(()string<delimiter(')content(Creating Hosts...HKEY_CURRENT_USER)delimiter(')>operator(\);) - reserved(if) ident(RegRealPath)operator(()string<delimiter(')content(HKEY_CURRENT_USER)delimiter(')>operator(\)) operator(=) string<delimiter(')content(HKEY_CURRENT_USER)delimiter(')> reserved(then) - comment(//could not dereference hkcu) - ident(AddShortcut)operator(()string<delimiter(')content(HKEY_CURRENT_USER)delimiter(')>operator(,) string<delimiter(')content(HKEY_CURRENT_USER)delimiter(')>operator(,) - ident(iconHKCU)operator(,) ident(uhReg)operator(\)) - reserved(else) - ident(AddShortcut)operator(()string<delimiter(')content(HKEY_CURRENT_USER)delimiter(')>operator(,) ident(RegRealPath)operator(()string<delimiter(')content(HKEY_CURRENT_USER)delimiter(')>operator(\),) - ident(iconHKCU)operator(,) ident(uhSystemShortcut)operator(\);) - - ident(ChangeLastHint)operator(()string<delimiter(')content(Creating Hosts...HKEY_CURRENT_CONFIG)delimiter(')>operator(\);) - ident(AddShortcut)operator(()string<delimiter(')content(HKEY_CURRENT_CONFIG)delimiter(')>operator(,) ident(RegRealPath)operator(()string<delimiter(')content(HKEY_CURRENT_CONFIG)delimiter(')>operator(\),) - ident(iconHKCC)operator(,) ident(uhSystemShortcut)operator(\);) - - ident(ChangeLastHint)operator(()string<delimiter(')content(Creating Hosts...HKEY_CLASSES_ROOT)delimiter(')>operator(\);) - ident(AddShortcut)operator(()string<delimiter(')content(HKEY_CLASSES_ROOT)delimiter(')>operator(,) ident(RegRealPath)operator(()string<delimiter(')content(HKEY_CLASSES_ROOT)delimiter(')>operator(\),) - ident(iconHKCR)operator(,) ident(uhSystemShortcut)operator(\);) - - ident(MainReg)operator(.)ident(RootKey) operator(:=) ident(HKEY_DYN_DATA)operator(;) - reserved(if) ident(MainReg)operator(.)ident(OpenKeyReadOnly)operator(()string<delimiter(')delimiter(')>operator(\)) reserved(then) reserved(begin) - ident(MainReg)operator(.)ident(CloseKey)operator(;) - ident(ChangeLastHint)operator(()string<delimiter(')content(Creating Hosts...HKEY_DYN_DATA)delimiter(')>operator(\);) - ident(NodeHKDD) operator(:=) ident(RegTV)operator(.)ident(Items)operator(.)ident(AddChild)operator(()reserved(nil)operator(,) string<delimiter(')content(HKEY_DYN_DATA)delimiter(')>operator(\);) - ident(NodeInfo)operator(()ident(NodeHKDD)operator(\).)ident(HostType) operator(:=) ident(uhReg)operator(;) - ident(NodeInfo)operator(()ident(NodeHKDD)operator(\).)ident(IncludeFlag)operator(()ident(nfReadOnly)operator(\);) - ident(SetTNImage)operator(()ident(NodeHKDD)operator(,) ident(iconHKDD)operator(\);) - ident(RootNodes)operator(.)ident(Add)operator(()ident(NodeHKDD)operator(\);) - reserved(end)operator(;) - - ident(MainReg)operator(.)ident(RootKey) operator(:=) ident(HKEY_PERFORMANCE_DATA)operator(;) - reserved(if) ident(MainReg)operator(.)ident(OpenKeyReadOnly)operator(()string<delimiter(')delimiter(')>operator(\)) reserved(then) reserved(begin) - ident(MainReg)operator(.)ident(CloseKey)operator(;) - ident(ChangeLastHint)operator(()string<delimiter(')content(Creating Hosts...HKEY_PERFORMANCE_DATA)delimiter(')>operator(\);) - ident(NodeHKPD) operator(:=) ident(RegTV)operator(.)ident(Items)operator(.)ident(AddChild)operator(()reserved(nil)operator(,) string<delimiter(')content(HKEY_PERFORMANCE_DATA)delimiter(')>operator(\);) - ident(NodeInfo)operator(()ident(NodeHKPD)operator(\).)ident(HostType) operator(:=) ident(uhReg)operator(;) - ident(SetTNImage)operator(()ident(NodeHKPD)operator(,) ident(iconHKPD)operator(\);) - ident(RootNodes)operator(.)ident(Add)operator(()ident(NodeHKPD)operator(\);) - reserved(end)operator(;) - - ident(ChangeLastHint)operator(()string<delimiter(')content(Creating Host...OK)delimiter(')>operator(\);) - - ident(AddHint)operator(()string<delimiter(')content(Loading Standard Shortcuts...)delimiter(')>operator(\);) - ident(LoadShortcuts)operator(()ident(PlutoDir) operator(+) ident(StandardShortcutsFileName)operator(,) ident(uhStandardShortcut)operator(\);) - - ident(AddHint)operator(()string<delimiter(')content(Loading User Shortcuts...)delimiter(')>operator(\);) - ident(LoadShortcuts)operator(()ident(PlutoDir) operator(+) ident(ShortcutsFileName)operator(,) ident(uhUserShortcut)operator(\);) - -preprocessor({$IFDEF UNIKEY}) - ident(AddShortcut)operator(()string<delimiter(')content(Uni)delimiter(')>operator(,) string<delimiter(')delimiter(')>operator(,) ident(iconHostUni)operator(\);) -preprocessor({$ENDIF}) -reserved(end)operator(;) - -reserved(procedure) ident(TTreeWin)operator(.)ident(Reg4WriterTerminate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(with) ident(Sender) reserved(as) ident(TRegFileWriter) reserved(do) - ident(AddHint)operator(()ident(Format)operator(()string<delimiter(')content(.reg-export finished (%0.2f s\): %s)delimiter(')>operator(,) - operator([)ident(Clk)operator(.)ident(SecsPassed)operator(,) ident(Root) operator(+) char<delimiter(')content(\\)delimiter(')> operator(+) ident(Path)operator(]\)\);) -reserved(end)operator(;) - -reserved(end)operator(.) -reserved(unit) ident(valuesU)operator(;) - -reserved(interface) - -reserved(uses) - ident(Windows)operator(,) ident(Messages)operator(,) ident(SysUtils)operator(,) ident(Variants)operator(,) ident(Classes)operator(,) ident(Graphics)operator(,) ident(Controls)operator(,) ident(Forms)operator(,) - ident(ComCtrls)operator(,) ident(Menus)operator(,) ident(Clipbrd)operator(,) ident(XReg)operator(,) ident(CompEx)operator(,) ident(Math)operator(,) ident(YTools)operator(,) ident(Dialogs)operator(,) ident(YTypes)operator(,) - ident(PlutoConst)operator(,) ident(keybrd)operator(,) ident(ImgList)operator(,) ident(clock)operator(;) - -reserved(type) - ident(TValuesWin) operator(=) reserved(class)operator(()ident(TForm)operator(\)) - ident(ValueListPU)operator(:) ident(TPopupMenu)operator(;) - ident(NewStringMI)operator(:) ident(TMenuItem)operator(;) - ident(NewDWORDMI)operator(:) ident(TMenuItem)operator(;) - ident(NewBinaryMI)operator(:) ident(TMenuItem)operator(;) - ident(ConvertToMI)operator(:) ident(TMenuItem)operator(;) - ident(ConvStringMI)operator(:) ident(TMenuItem)operator(;) - ident(ConvDWORDMI)operator(:) ident(TMenuItem)operator(;) - ident(ConvBinaryMI)operator(:) ident(TMenuItem)operator(;) - ident(ValueList)operator(:) ident(TListView)operator(;) - ident(DeleteMI)operator(:) ident(TMenuItem)operator(;) - ident(N1)operator(:) ident(TMenuItem)operator(;) - ident(RenameMI)operator(:) ident(TMenuItem)operator(;) - ident(NewElseMI)operator(:) ident(TMenuItem)operator(;) - ident(NewMultiStringMI)operator(:) ident(TMenuItem)operator(;) - ident(REGNONE1)operator(:) ident(TMenuItem)operator(;) - ident(LINK1)operator(:) ident(TMenuItem)operator(;) - ident(NewExpandStringMI)operator(:) ident(TMenuItem)operator(;) - ident(N3BINARY1)operator(:) ident(TMenuItem)operator(;) - ident(N4DWORD1)operator(:) ident(TMenuItem)operator(;) - ident(N4DWORDLITTLEEDIAN1)operator(:) ident(TMenuItem)operator(;) - ident(NewBigEndianMI)operator(:) ident(TMenuItem)operator(;) - ident(N6LINK1)operator(:) ident(TMenuItem)operator(;) - ident(N7MULTISZ1)operator(:) ident(TMenuItem)operator(;) - ident(RESOURCELIST1)operator(:) ident(TMenuItem)operator(;) - ident(N9FULLRESOURCEDESCRIPTOR1)operator(:) ident(TMenuItem)operator(;) - ident(ARESOURCEREQUIREMENTSLIST1)operator(:) ident(TMenuItem)operator(;) - ident(NewDefaultValueMI)operator(:) ident(TMenuItem)operator(;) - ident(EditMI)operator(:) ident(TMenuItem)operator(;) - ident(EditBinaryMI)operator(:) ident(TMenuItem)operator(;) - ident(N3)operator(:) ident(TMenuItem)operator(;) - ident(CopyDataPreviewMI)operator(:) ident(TMenuItem)operator(;) - ident(DublicateMI)operator(:) ident(TMenuItem)operator(;) - ident(MultiString1)operator(:) ident(TMenuItem)operator(;) - ident(ZeromizeMI)operator(:) ident(TMenuItem)operator(;) - ident(N4)operator(:) ident(TMenuItem)operator(;) - ident(CopyPathMI)operator(:) ident(TMenuItem)operator(;) - ident(TakeAsMainValueMI)operator(:) ident(TMenuItem)operator(;) - ident(SelectAllMI)operator(:) ident(TMenuItem)operator(;) - ident(InvertSelectionMI)operator(:) ident(TMenuItem)operator(;) - reserved(procedure) ident(FormCreate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(InitListColumnTags)operator(;) - - reserved(procedure) ident(NewStringMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(NewDWORDMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(NewBinaryMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(ConvertValue)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - - reserved(procedure) ident(CreateValue)operator(()ident(Typ)operator(:) ident(TRegDataType)operator(\);) - reserved(procedure) ident(ZeromizeValue)operator(;) - reserved(procedure) ident(DeleteValue)operator(;) - reserved(procedure) ident(CloneValue)operator(;) - reserved(function) ident(TryRenameValue)operator(()ident(OldName)operator(:) reserved(string)operator(;) reserved(var) ident(NewName)operator(:) reserved(string)operator(\):) ident(Boolean)operator(;) - - reserved(procedure) ident(ValueListChange)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Item)operator(:) ident(TListItem)operator(;) ident(Change)operator(:) ident(TItemChange)operator(\);) - reserved(procedure) ident(ValueListCustomDrawItem)operator(()ident(Sender)operator(:) ident(TCustomListView)operator(;) ident(Item)operator(:) ident(TListItem)operator(;) ident(State)operator(:) ident(TCustomDrawState)operator(;) reserved(var) ident(DefaultDraw)operator(:) ident(Boolean)operator(\);) - reserved(procedure) ident(ValueListDblClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(ValueListEditing)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Item)operator(:) ident(TListItem)operator(;) reserved(var) ident(AllowEdit)operator(:) ident(Boolean)operator(\);) - reserved(procedure) ident(ValueListEdited)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Item)operator(:) ident(TListItem)operator(;) reserved(var) ident(S)operator(:) ident(String)operator(\);) - reserved(procedure) ident(ValueListKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);) - reserved(procedure) ident(ValueListResize)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - - reserved(function) ident(UpdateValue)operator(()ident(Reg)operator(:) ident(TXRegistry)operator(;) ident(Item)operator(:) ident(TListItem)operator(\):) ident(Boolean)operator(;) - reserved(procedure) ident(UpdateValues)operator(()ident(SelectedOnly)operator(:) ident(Boolean) operator(=) ident(False)operator(\);) - reserved(procedure) ident(Reload)operator(()ident(JumpToNewValue)operator(:) ident(Boolean) operator(=) ident(False)operator(;) ident(ValueName)operator(:) reserved(string) operator(=) string<delimiter(')delimiter(')>operator(\);) - reserved(procedure) ident(LoadValues)operator(()ident(Reg)operator(:) ident(TXRegistry)operator(\);) - - reserved(function) ident(AddValue)operator(()ident(Reg)operator(:) ident(TXRegistry)operator(;) reserved(const) ident(ValueName)operator(:) reserved(string)operator(;) ident(AppendInfos)operator(:) ident(Boolean) operator(=) ident(True)operator(\):) ident(TListItem)operator(;) - reserved(procedure) ident(ValueListPUPopup)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(FormKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);) - reserved(procedure) ident(ValueListDeletion)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Item)operator(:) ident(TListItem)operator(\);) - reserved(procedure) ident(DeleteMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(RenameMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(NewBigEndianMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(NewExpandStringMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(NewMultiStringMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(NewStrangeTypeMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(NewDefaultValueMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(ValueListChanging)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Item)operator(:) ident(TListItem)operator(;) ident(Change)operator(:) ident(TItemChange)operator(;) reserved(var) ident(AllowChange)operator(:) ident(Boolean)operator(\);) - reserved(procedure) ident(ValueListMouseDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Button)operator(:) ident(TMouseButton)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(;) ident(X)operator(,) ident(Y)operator(:) ident(Integer)operator(\);) - reserved(procedure) ident(EditBinaryMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(EditMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(ValueListCustomDrawSubItem)operator(()ident(Sender)operator(:) ident(TCustomListView)operator(;) ident(Item)operator(:) ident(TListItem)operator(;) ident(SubItem)operator(:) ident(Integer)operator(;) ident(State)operator(:) ident(TCustomDrawState)operator(;) reserved(var) ident(DefaultDraw)operator(:) ident(Boolean)operator(\);) - reserved(procedure) ident(ValueListCompare)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Item1)operator(,) ident(Item2)operator(:) ident(TListItem)operator(;) ident(Data)operator(:) ident(Integer)operator(;) reserved(var) ident(Compare)operator(:) ident(Integer)operator(\);) - reserved(procedure) ident(ValueListColumnClick)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Column)operator(:) ident(TListColumn)operator(\);) - reserved(procedure) ident(DublicateMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(CopyDataPreviewMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(CopyDataPreview)operator(;) - reserved(procedure) ident(ZeromizeMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(CopyPathMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - - reserved(function) ident(FindItemByRealName)operator(()reserved(const) ident(ValueName)operator(:) reserved(string)operator(\):) ident(Integer)operator(;) - - reserved(function) ident(FocusItem)operator(()ident(ARealValueName)operator(:) reserved(string)operator(;) - ident(FocusValueList)operator(:) ident(Boolean) operator(=) ident(False)operator(\):) ident(Boolean)operator(;) - reserved(procedure) ident(TakeAsMainValueMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(FormShow)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(FormClose)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Action)operator(:) ident(TCloseAction)operator(\);) - reserved(procedure) ident(ValueListClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(CheckValueListHotTrack)operator(;) - reserved(procedure) ident(SelectAllMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(InvertSelectionMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(FormDestroy)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - directive(private) - ident(ValueLabelClicked)operator(:) ident(Boolean)operator(;) - ident(SortBy)operator(:) ident(TValueListColumn)operator(;) - ident(SortByColumn)operator(:) ident(TListColumn)operator(;) - ident(SubItemIndex)operator(:) reserved(array)operator([)ident(TValueListColumn)operator(]) reserved(of) ident(Integer)operator(;) - directive(public) - ident(ValueNames)operator(:) ident(TStringList)operator(;) - ident(ValuesCommon)operator(:) ident(Boolean)operator(;) - ident(ValueCommonType)operator(:) ident(TRegDataType)operator(;) - reserved(end)operator(;) - -reserved(var) - ident(ValuesWin)operator(:) ident(TValuesWin)operator(;) - ident(ValueList)operator(:) ident(TListView)operator(;) - - ident(DefaultValueCaption)operator(:) reserved(string) operator(=) string<delimiter(')delimiter(')>operator(;) - -reserved(function) ident(ItemIsDefaultValue)operator(()ident(Item)operator(:) ident(TListItem)operator(\):) ident(Boolean)operator(;) -reserved(function) ident(RealValueName)operator(()ident(Item)operator(:) ident(TListItem)operator(\):) reserved(string)operator(;) -reserved(procedure) ident(SetRealValueName)operator(()ident(Item)operator(:) ident(TListItem)operator(;) ident(Caption)operator(:) reserved(string)operator(\);) -reserved(function) ident(IconOfDataType)operator(()ident(Typ)operator(:) ident(TRegDataType)operator(\):) ident(Integer)operator(;) -reserved(function) ident(IsMainValue)operator(()ident(Item)operator(:) ident(TListItem)operator(\):) ident(Boolean)operator(;) - -reserved(function) ident(ColorOfDataType)operator(()ident(DataType)operator(:) ident(TRegDataType)operator(;) - ident(DefaultColor)operator(:) ident(TColor) operator(=) ident(clWhite)operator(\):) ident(TColor)operator(;) -reserved(function) ident(DataPreviewOfContext)operator(()ident(Context)operator(:) ident(TRegContext)operator(\):) reserved(string)operator(;) - -reserved(function) ident(ValueDataSize)operator(()ident(Context)operator(:) ident(TRegContext)operator(\):) reserved(string)operator(;) -reserved(function) ident(ValueDataType)operator(()ident(Context)operator(:) ident(TRegContext)operator(\):) reserved(string)operator(;) -reserved(function) ident(ValueDataPreview)operator(()ident(Context)operator(:) ident(TRegContext)operator(\):) reserved(string)operator(;) -reserved(function) ident(ValueTypeIcon)operator(()ident(Context)operator(:) ident(TRegContext)operator(\):) ident(Integer)operator(;) - -reserved(function) ident(StrOfRegDataType)operator(()ident(Typ)operator(:) ident(TRegDataType)operator(\):) reserved(string)operator(;) - -reserved(implementation) - -reserved(uses) ident(PlutoMain)operator(,) ident(TreeU)operator(,) ident(WorkU)operator(,) ident(PrefU)operator(;) - -preprocessor({$R *.dfm}) - -reserved(function) ident(ItemIsDefaultValue)operator(()ident(Item)operator(:) ident(TListItem)operator(\):) ident(Boolean)operator(;) -reserved(begin) - ident(Result) operator(:=) ident(Item)operator(.)ident(Data) operator(=) ident(Pointer)operator(()ident(DefaultValueFlag)operator(\);) -reserved(end)operator(;) - -reserved(function) ident(RealValueName)operator(()ident(Item)operator(:) ident(TListItem)operator(\):) reserved(string)operator(;) -reserved(begin) - reserved(if) ident(ItemIsDefaultValue)operator(()ident(Item)operator(\)) reserved(then) - ident(Result) operator(:=) string<delimiter(')delimiter(')> - reserved(else) - ident(Result) operator(:=) ident(Item)operator(.)ident(Caption)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(SetRealValueName)operator(()ident(Item)operator(:) ident(TListItem)operator(;) ident(Caption)operator(:) reserved(string)operator(\);) -reserved(begin) - reserved(if) ident(Caption) operator(=) string<delimiter(')delimiter(')> reserved(then) reserved(begin) - ident(Item)operator(.)ident(Caption) operator(:=) ident(DefaultValueCaption)operator(;) - ident(Item)operator(.)ident(Data) operator(:=) ident(Pointer)operator(()ident(DefaultValueFlag)operator(\);) - reserved(end) reserved(else) reserved(begin) - ident(Item)operator(.)ident(Caption) operator(:=) ident(Caption)operator(;) - ident(Item)operator(.)ident(Data) operator(:=) reserved(nil)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(function) ident(IsMainValue)operator(()ident(Item)operator(:) ident(TListItem)operator(\):) ident(Boolean)operator(;) -reserved(begin) - ident(Result) operator(:=) ident(False)operator(;) - reserved(if) ident(csDestroying) reserved(in) ident(PrefWin)operator(.)ident(ComponentState) reserved(then) - ident(Exit)operator(;) - - ident(Result) operator(:=) ident(RealValueName)operator(()ident(Item)operator(\)) operator(=) ident(PrefWin)operator(.)ident(MainPreviewE)operator(.)ident(Text)operator(;) -reserved(end)operator(;) - -reserved(function) ident(ColorOfDataType)operator(()ident(DataType)operator(:) ident(TRegDataType)operator(;) - ident(DefaultColor)operator(:) ident(TColor) operator(=) ident(clWhite)operator(\):) ident(TColor)operator(;) -reserved(begin) - reserved(if) ident(DataType) reserved(in) ident(rdStringTypes) reserved(then) ident(Result) operator(:=) ident(clBrightRed) - reserved(else) reserved(if) ident(DataType) operator(=) ident(rdMultiString) reserved(then) ident(Result) operator(:=) ident(clBrightPurple) - reserved(else) reserved(if) ident(DataType) reserved(in) ident(rdCardTypes) reserved(then) ident(Result) operator(:=) ident(clBrightBlue) - reserved(else) reserved(if) ident(DataType) operator(=) ident(rdBinary) reserved(then) ident(Result) operator(:=) ident(clBrightGreen) - reserved(else) ident(Result) operator(:=) ident(DefaultColor)operator(;) -reserved(end)operator(;) - -reserved(function) ident(StrOfRegDataType)operator(()ident(Typ)operator(:) ident(TRegDataType)operator(\):) reserved(string)operator(;) -reserved(const) - ident(RegDataTypeStrings)operator(:) reserved(array)operator([)ident(rdNone)operator(..)ident(rdLastType)operator(]) reserved(of) reserved(string) operator(=) operator(() - string<delimiter(')content(NONE)delimiter(')>operator(,) - string<delimiter(')content(SZ)delimiter(')>operator(,) - string<delimiter(')content(EXPAND_SZ)delimiter(')>operator(,) - string<delimiter(')content(BINARY)delimiter(')>operator(,) - string<delimiter(')content(DWORD)delimiter(')>operator(,) - string<delimiter(')content(DWORD_BIG_ENDIAN)delimiter(')>operator(,) - string<delimiter(')content(LINK)delimiter(')>operator(,) - string<delimiter(')content(MULTI_SZ)delimiter(')>operator(,) - string<delimiter(')content(RESOURCE_LIST)delimiter(')>operator(,) - string<delimiter(')content(FULL_RESOURCE_DESCRIPTOR)delimiter(')>operator(,) - string<delimiter(')content(RESOURCE_REQUIREMENTS_LIST)delimiter(')>operator(,) - string<delimiter(')content(QUAD_WORD)delimiter(')> - operator(\);) -reserved(begin) - reserved(if) ident(Typ) reserved(in) operator([)ident(rdNone)operator(..)ident(rdLastType)operator(]) reserved(then) - ident(Result) operator(:=) ident(RegDataTypeStrings)operator([)ident(Typ)operator(]) - reserved(else) - ident(Result) operator(:=) ident(IntToStr)operator(()ident(Typ)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(NewStringMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(CreateValue)operator(()ident(rdString)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(NewDWORDMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(CreateValue)operator(()ident(rdCardinal)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(NewBinaryMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(CreateValue)operator(()ident(rdBinary)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(CreateValue)operator(()ident(Typ)operator(:) ident(TRegDataType)operator(\);) -reserved(var) - ident(Item)operator(:) ident(TListItem)operator(;) - ident(ValueName)operator(:) reserved(string)operator(;) - ident(i)operator(:) ident(Integer)operator(;) - ident(SL)operator(:) ident(TStringList)operator(;) -reserved(begin) - reserved(if) ident(csDestroying) reserved(in) operator(()ident(TreeWin)operator(.)ident(ComponentState) operator(+) ident(MainWin)operator(.)ident(ComponentState)operator(\)) reserved(then) - ident(Exit)operator(;) - - reserved(if) ident(TreeWin)operator(.)ident(CantWrite) reserved(then) - ident(Exit)operator(;) - - reserved(with) ident(MainReg) reserved(do) reserved(begin) - reserved(try) - ident(OpenCurKey)operator(;) - - ident(ValueName) operator(:=) string<delimiter(')content(New)delimiter(')>operator(;) comment(// find free name) - ident(i) operator(:=) integer(0)operator(;) - reserved(while) ident(ValueExists)operator(()ident(ValueName)operator(\)) reserved(do) reserved(begin) - ident(Inc)operator(()ident(i)operator(\);) - ident(ValueName) operator(:=) string<delimiter(')content(New )delimiter(')> operator(+) ident(IntToStr)operator(()ident(i)operator(\);) - reserved(end)operator(;) - - reserved(case) ident(Typ) reserved(of) - ident(rdString)operator(:) reserved(begin) - ident(WriteString)operator(()ident(ValueName)operator(,) string<delimiter(')delimiter(')>operator(\);) - reserved(end)operator(;) - ident(rdExpandString)operator(:) reserved(begin) - ident(WriteExpandString)operator(()ident(ValueName)operator(,) string<delimiter(')delimiter(')>operator(\);) - reserved(end)operator(;) - ident(rdCardinal)operator(:) reserved(begin) - ident(WriteCardinal)operator(()ident(ValueName)operator(,) integer(0)operator(\);) - reserved(end)operator(;) - ident(rdCardBigEndian)operator(:) reserved(begin) - ident(WriteCardinal)operator(()ident(ValueName)operator(,) integer(0)operator(,) ident(True)operator(\);) - reserved(end)operator(;) - ident(rdMultiString)operator(:) reserved(begin) - ident(SL) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;) - ident(WriteMultiString)operator(()ident(ValueName)operator(,) ident(SL)operator(\);) - ident(SL)operator(.)ident(Free)operator(;) - reserved(end)operator(;) - ident(rdBinary)operator(:) reserved(begin) - ident(WriteBin)operator(()ident(ValueName)operator(,) reserved(nil)operator(\);) - reserved(end)operator(;) - reserved(else) - ident(WriteBinType)operator(()ident(ValueName)operator(,) reserved(nil)operator(,) ident(Typ)operator(\);) - reserved(end)operator(;) - - reserved(if) reserved(not) ident(ValueExists)operator(()ident(ValueName)operator(\)) reserved(then) reserved(begin) - ident(ShowMessage)operator(()string<delimiter(')content(Could not create Value.)delimiter(')>operator(\);) - ident(CloseKey)operator(;) - ident(Exit)operator(;) reserved(end)operator(;) - - ident(ValuesWin)operator(.)ident(AddValue)operator(()ident(MainReg)operator(,) ident(ValueName)operator(\);) - reserved(finally) - ident(CloseKey)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - - ident(Item) operator(:=) ident(FindItem)operator(()ident(ValueList)operator(,) ident(ValueName)operator(\);) - - reserved(if) reserved(not) ident(Assigned)operator(()ident(Item)operator(\)) reserved(then) reserved(begin) - ident(ShowMessage)operator(()string<delimiter(')content(Error, Value not found: )delimiter(')> operator(+) ident(ValueName)operator(\);) - ident(Exit)operator(;) reserved(end)operator(;) - - ident(SelectItemOnly)operator(()ident(ValueList)operator(,) ident(Item)operator(\);) - ident(MainWin)operator(.)ident(StatusBarUpdate)operator(;) - ident(ValueLabelClicked) operator(:=) ident(True)operator(;) - ident(Item)operator(.)ident(EditCaption)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(FormCreate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(ValuesU)operator(.)ident(ValueList) operator(:=) ident(ValueList)operator(;) - - ident(DefaultValueCaption) operator(:=) ident(PrefWin)operator(.)ident(DefaultValueNameE)operator(.)ident(Text)operator(;) - ident(ValueLabelClicked) operator(:=) ident(False)operator(;) - ident(SortBy) operator(:=) ident(vlcName)operator(;) - ident(SortByColumn) operator(:=) reserved(nil)operator(;) - - ident(ValueListResize)operator(()ident(Sender)operator(\);) - ident(ValueList)operator(.)ident(Items)operator(.)ident(Clear)operator(;) - ident(CheckValueListHotTrack)operator(;) - - ident(ValueNames) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;) - ident(ValuesCommon) operator(:=) ident(False)operator(;) - ident(ValueCommonType) operator(:=) integer(0)operator(;) - - ident(NewDefaultValueMI)operator(.)ident(ImageIndex) operator(:=) ident(iconMainValue)operator(;) - ident(NewStringMI)operator(.)ident(ImageIndex) operator(:=) ident(iconString)operator(;) - ident(NewDWORDMI)operator(.)ident(ImageIndex) operator(:=) ident(iconCardinal)operator(;) - ident(NewBinaryMI)operator(.)ident(ImageIndex) operator(:=) ident(iconBinary)operator(;) - ident(NewMultiStringMI)operator(.)ident(ImageIndex) operator(:=) ident(iconMultiString)operator(;) - ident(NewElseMI)operator(.)ident(ImageIndex) operator(:=) ident(iconValueElse)operator(;) - - ident(DublicateMI)operator(.)ident(ImageIndex) operator(:=) ident(iconValueDublicate)operator(;) - ident(DeleteMI)operator(.)ident(ImageIndex) operator(:=) ident(iconDelete)operator(;) - ident(ZeromizeMI)operator(.)ident(ImageIndex) operator(:=) ident(iconValueZeromize)operator(;) - - ident(EditMI)operator(.)ident(ImageIndex) operator(:=) ident(iconValueEdit)operator(;) - ident(EditBinaryMI)operator(.)ident(ImageIndex) operator(:=) ident(iconValueEditBinary)operator(;) - ident(RenameMI)operator(.)ident(ImageIndex) operator(:=) ident(iconRename)operator(;) - - ident(TakeAsMainValueMI)operator(.)ident(ImageIndex) operator(:=) ident(iconTakeAsMainValue)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(ConvertValue)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -comment({var - Allow: Boolean; - OldActive: Integer; }) -reserved(begin) -comment({ TargetPage := ShowPC.Pages[TMenuItem(Sender\).Tag]; - - OldActive := ShowPC.ActivePageIndex; - ShowPC.ActivePageIndex := TMenuItem(Sender\).Tag; - WorkWin.ShowPCChanging(Sender, Allow\); - if not Allow then - ShowPC.ActivePageIndex := OldActive; }) -reserved(end)operator(;) - -reserved(function) ident(ValueDataSize)operator(()ident(Context)operator(:) ident(TRegContext)operator(\):) reserved(string)operator(;) -reserved(var) - ident(Typ)operator(:) ident(TRegDataType)operator(;) - ident(Size)operator(:) ident(Integer)operator(;) -comment(// ValueName: string;) -comment(// SL: TStringList;) -reserved(begin) - ident(Result) operator(:=) string<delimiter(')delimiter(')>operator(;) - - reserved(if) ident(csDestroying) reserved(in) ident(PrefWin)operator(.)ident(ComponentState) reserved(then) - ident(Exit)operator(;) - -comment(// ValueName := RealValueName(Item\);) - ident(Typ) operator(:=) ident(Context)operator(.)ident(Typ)operator(;) - ident(Size) operator(:=) ident(Length)operator(()ident(Context)operator(.)ident(Data)operator(\);) - - reserved(if) ident(Typ) reserved(in) ident(rdStringTypes) reserved(then) - reserved(if) reserved(not) ident(PrefWin)operator(.)ident(CountZeroByteCB)operator(.)ident(Checked) reserved(then) - ident(Dec)operator(()ident(Size)operator(\);) - - reserved(if) ident(Typ) operator(=) ident(rdMultiString) reserved(then) - reserved(if) ident(PrefWin)operator(.)ident(ShowLineCountCB)operator(.)ident(Checked) reserved(then) reserved(begin) - ident(Size) operator(:=) ident(CharCount)operator(()ident(StrOfByteA)operator(()ident(Context)operator(.)ident(Data)operator(\),) char(#0)operator(\)) operator(-) integer(2)operator(;) -comment({ SL := TStringList.Create; - try - Reg.ReadMultiString(ValueName, SL, PrefWin.UseExtendedModelCB.Checked\); - Size := SL.Count; - finally - SL.Free; - end; }) - ident(Result) operator(:=) char<delimiter(')content(#)delimiter(')>operator(;) - reserved(end)operator(;) - - ident(Result) operator(:=) ident(Result) operator(+) ident(IntToStr)operator(()ident(Size)operator(\);) -reserved(end)operator(;) - -reserved(function) ident(ValueDataType)operator(()ident(Context)operator(:) ident(TRegContext)operator(\):) reserved(string)operator(;) -reserved(begin) - ident(Result) operator(:=) ident(StrOfRegDataType)operator(()ident(Context)operator(.)ident(Typ)operator(\);) -reserved(end)operator(;) - -reserved(function) ident(DataPreviewOfContext)operator(()ident(Context)operator(:) ident(TRegContext)operator(\):) reserved(string)operator(;) - - reserved(function) ident(DWORDPreview)operator(()ident(Value)operator(:) ident(Integer)operator(\):) reserved(string)operator(;) - reserved(begin) - reserved(if) ident(PrefWin)operator(.)ident(ShowDwordAsHex)operator(.)ident(Checked) reserved(then) - ident(Result) operator(:=) ident(IntToStr)operator(()ident(Value)operator(\)) operator(+) string<delimiter(')content( = $)delimiter(')> operator(+) ident(IntToHex)operator(()ident(Value)operator(,) integer(8)operator(\)) - reserved(else) - ident(Result) operator(:=) ident(IntToStr)operator(()ident(Value)operator(\)) - reserved(end)operator(;) - - reserved(function) ident(BinaryPreview)operator(()ident(Context)operator(:) ident(TRegContext)operator(\):) reserved(string)operator(;) - reserved(var) - ident(z)operator(:) reserved(string)operator(;) - - reserved(function) ident(DWORDStringOfByteA)operator(()ident(a)operator(:) ident(TByteA)operator(;) ident(AddBinary)operator(:) ident(Boolean) operator(=) ident(False)operator(\):) reserved(string)operator(;) - reserved(var) - ident(piece)operator(:) ident(TByteA)operator(;) - ident(i)operator(:) ident(Integer)operator(;) - reserved(begin) - ident(Result) operator(:=) string<delimiter(')delimiter(')>operator(;) - - ident(i) operator(:=) integer(0)operator(;) - reserved(while) operator(()ident(i) operator(<=) ident(High)operator(()ident(a)operator(\)\)) reserved(and) operator(()ident(Length)operator(()ident(Result)operator(\)) operator(<) ident(MaxPreviewLen)operator(\)) reserved(do) reserved(begin) - ident(piece) operator(:=) ident(Copy)operator(()ident(a)operator(,) ident(i)operator(,) integer(4)operator(\);) - reserved(if) ident(AddBinary) reserved(then) - ident(Result) operator(:=) ident(Result) operator(+) ident(FriendlyStr)operator(()ident(piece)operator(\)) operator(+) char<delimiter(')content(=)delimiter(')>operator(;) - ident(SetLength)operator(()ident(piece)operator(,) integer(4)operator(\);) - ident(Result) operator(:=) ident(Result) operator(+) ident(IntToStr)operator(()ident(PInteger)operator(()ident(piece)operator(\)^\)) operator(+) string<delimiter(')content( )delimiter(')>operator(;) - ident(Inc)operator(()ident(i)operator(,) ident(SizeOf)operator(()ident(Integer)operator(\)\);) - reserved(end)operator(;) - reserved(end)operator(;) - - reserved(begin) - reserved(with) ident(Context) reserved(do) reserved(begin) - ident(Data) operator(:=) ident(Copy)operator(()ident(Data)operator(,) integer(0)operator(,) ident(MaxPreviewLen)operator(\);) - reserved(case) ident(PrefWin)operator(.)ident(ShowBinaryAsRG)operator(.)ident(ItemIndex) reserved(of) - integer(0)operator(:) ident(z) operator(:=) ident(FriendlyStr)operator(()ident(Data)operator(\);) - integer(1)operator(:) ident(z) operator(:=) ident(DWORDStringOfByteA)operator(()ident(Data)operator(\);) - integer(2)operator(:) ident(z) operator(:=) ident(DWORDStringOfByteA)operator(()ident(Data)operator(,) ident(True)operator(\);) - integer(3)operator(:) ident(z) operator(:=) ident(BinOfByteA)operator(()ident(Data)operator(,) integer(8)operator(,) string<delimiter(')content( )delimiter(')>operator(\);) - integer(4)operator(:) ident(z) operator(:=) ident(HexOfByteA)operator(()ident(Data)operator(,) integer(0)operator(\);) - integer(5)operator(:) ident(z) operator(:=) ident(HexOfByteA)operator(()ident(Data)operator(,) integer(1)operator(\);) - integer(6)operator(:) ident(z) operator(:=) ident(HexOfByteA)operator(()ident(Data)operator(,) integer(2)operator(\);) - integer(7)operator(:) ident(z) operator(:=) ident(HexOfByteA)operator(()ident(Data)operator(,) integer(4)operator(\);) - reserved(end)operator(;) - reserved(end)operator(;) - - ident(Result) operator(:=) ident(Copy)operator(()ident(z)operator(,) integer(1)operator(,) ident(MaxPreviewLen)operator(\);) - reserved(end)operator(;) - - reserved(function) ident(StringPreview)operator(()ident(Context)operator(:) ident(TRegContext)operator(\):) reserved(string)operator(;) - reserved(var) - ident(s)operator(:) reserved(string)operator(;) - ident(Expanded)operator(:) reserved(string)operator(;) - ident(DoExpand)operator(:) ident(Boolean)operator(;) - reserved(begin) - ident(s) operator(:=) ident(PChar)operator(()ident(Context)operator(.)ident(Data)operator(\);) - reserved(with) ident(PrefWin) reserved(do) - ident(Result) operator(:=) ident(StringQuoterBegin) operator(+) ident(FriendlyStr)operator(()ident(s)operator(\)) operator(+) ident(StringQuoterEnd)operator(;) - reserved(if) ident(s) operator(=) string<delimiter(')delimiter(')> reserved(then) - ident(Exit)operator(;) - - reserved(case) ident(PrefWin)operator(.)ident(ExpandStringsRG)operator(.)ident(ItemIndex) reserved(of) - integer(0)operator(:) ident(DoExpand) operator(:=) ident(False)operator(;) - integer(1)operator(:) ident(DoExpand) operator(:=) operator(()ident(Context)operator(.)ident(Typ) operator(=) ident(rdExpandString)operator(\)) reserved(and) operator(()ident(CharCount)operator(()ident(s)operator(,) char<delimiter(')content(%)delimiter(')>operator(\)) operator(>=) integer(2)operator(\);) - integer(2)operator(:) ident(DoExpand) operator(:=) ident(True)operator(;) - reserved(else) - ident(ShowMessage)operator(()string<delimiter(')content(Error: Unknown PrefWin.ExpandStringsRG.ItemIndex!)delimiter(')>operator(\);) - ident(PrefWin)operator(.)ident(ExpandStringsRG)operator(.)ident(ItemIndex) operator(:=) integer(0)operator(;) - ident(Exit)operator(;) - reserved(end)operator(;) - - reserved(if) ident(DoExpand) reserved(then) reserved(begin) - ident(Expanded) operator(:=) ident(ExpandString)operator(()ident(s)operator(\);) - reserved(if) ident(s) operator(<>) ident(Expanded) reserved(then) - ident(Result) operator(:=) ident(Result) operator(+) string<delimiter(')content( <)delimiter(')> operator(+) ident(Expanded) operator(+) char<delimiter(')content(>)delimiter(')>operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - - reserved(function) ident(IntegerPreview)operator(()ident(Context)operator(:) ident(TRegContext)operator(\):) reserved(string)operator(;) - reserved(begin) - reserved(if) ident(Length)operator(()ident(Context)operator(.)ident(Data)operator(\)) operator(>=) ident(SizeOf)operator(()ident(Cardinal)operator(\)) reserved(then) reserved(begin) - ident(Result) operator(:=) ident(DWORDPreview)operator(()ident(PInteger)operator(()ident(Context)operator(.)ident(Data)operator(\)^\);) - reserved(end) reserved(else) - ident(Result) operator(:=) ident(BinaryPreview)operator(()ident(Context)operator(\);) - reserved(end)operator(;) - - reserved(function) ident(MultiStringPreview)operator(()ident(Context)operator(:) ident(TRegContext)operator(\):) reserved(string)operator(;) - reserved(var) - ident(z)operator(:) reserved(string)operator(;) - ident(SL)operator(:) ident(TStringList)operator(;) - ident(i)operator(:) ident(Integer)operator(;) - reserved(begin) - ident(z) operator(:=) string<delimiter(')delimiter(')>operator(;) - - ident(SL) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;) - reserved(try) - ident(RegMultiStringOfByteA)operator(()ident(Context)operator(.)ident(Data)operator(,) ident(SL)operator(,) ident(PrefWin)operator(.)ident(UseExtendedModelCB)operator(.)ident(Checked)operator(\);) - - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(SL)operator(.)ident(Count)operator(-)integer(1) reserved(do) - ident(z) operator(:=) ident(z) operator(+) ident(SL)operator([)ident(i)operator(]) operator(+) string<delimiter(')content( )delimiter(')>operator(;) - reserved(finally) - ident(SL)operator(.)ident(Free)operator(;) - reserved(end)operator(;) - - ident(Result) operator(:=) ident(Copy)operator(()ident(FriendlyStr)operator(()ident(z)operator(\),) integer(1)operator(,) ident(MaxPreviewLen)operator(\);) - reserved(end)operator(;) - -reserved(begin) - ident(Result) operator(:=) string<delimiter(')delimiter(')>operator(;) - - reserved(if) ident(csDestroying) reserved(in) ident(PrefWin)operator(.)ident(ComponentState) reserved(then) - ident(Exit)operator(;) - - reserved(if) operator(()ident(Context)operator(.)ident(Data) operator(=) reserved(nil)operator(\)) reserved(or) operator(()ident(Length)operator(()ident(Context)operator(.)ident(Data)operator(\)) operator(>) ident(RegMaxDataSize)operator(\)) reserved(then) - ident(Exit)operator(;) - - reserved(if) ident(Length)operator(()ident(Context)operator(.)ident(Data)operator(\)) operator(>) ident(MaxPreviewLen) reserved(then) - ident(SetLength)operator(()ident(Context)operator(.)ident(Data)operator(,) ident(MaxPreviewLen)operator(\);) - - reserved(if) ident(PrefWin)operator(.)ident(ShowAsBinaryCB)operator(.)ident(Checked) reserved(then) reserved(begin) - ident(Result) operator(:=) ident(BinaryPreview)operator(()ident(Context)operator(\);) - ident(Exit)operator(;) reserved(end)operator(;) - - reserved(case) ident(Context)operator(.)ident(Typ) reserved(of) - ident(rdExpandString)operator(,) ident(rdString)operator(:) ident(Result) operator(:=) ident(StringPreview)operator(()ident(Context)operator(\);) - ident(rdCardinal)operator(,) ident(rdCardBigEndian)operator(:) ident(Result) operator(:=) ident(IntegerPreview)operator(()ident(Context)operator(\);) - ident(rdMultiString)operator(:) ident(Result) operator(:=) ident(MultiStringPreview)operator(()ident(Context)operator(\);) - reserved(else) - reserved(if) ident(PrefWin)operator(.)ident(Smart4BBCB)operator(.)ident(Checked) reserved(and) operator(()ident(Length)operator(()ident(Context)operator(.)ident(Data)operator(\)) operator(=) integer(4)operator(\)) reserved(then) - ident(Result) operator(:=) ident(IntegerPreview)operator(()ident(Context)operator(\)) - reserved(else) - ident(Result) operator(:=) ident(BinaryPreview)operator(()ident(Context)operator(\);) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(function) ident(ValueDataPreview)operator(()ident(Context)operator(:) ident(TRegContext)operator(\):) reserved(string)operator(;) -reserved(begin) - ident(Result) operator(:=) ident(DataPreviewOfContext)operator(()ident(Context)operator(\);) -reserved(end)operator(;) - -reserved(function) ident(IconOfDataType)operator(()ident(Typ)operator(:) ident(TRegDataType)operator(\):) ident(Integer)operator(;) -reserved(begin) - reserved(if) ident(Typ) reserved(in) operator([)ident(rdNone)operator(..)ident(rdLastType)operator(]) reserved(then) - ident(Result) operator(:=) ident(iconFirstType) operator(+) ident(Ord)operator(()ident(Typ)operator(\)) - reserved(else) - ident(Result) operator(:=) ident(iconUnknownType)operator(;) -reserved(end)operator(;) - -reserved(function) ident(ValueTypeIcon)operator(()ident(Context)operator(:) ident(TRegContext)operator(\):) ident(Integer)operator(;) -reserved(begin) - ident(Result) operator(:=) ident(IconOfDataType)operator(()ident(Context)operator(.)ident(Typ)operator(\);) -reserved(end)operator(;) - -reserved(function) ident(TValuesWin)operator(.)ident(UpdateValue)operator(()ident(Reg)operator(:) ident(TXRegistry)operator(;) ident(Item)operator(:) ident(TListItem)operator(\):) ident(Boolean)operator(;) -comment(//Return Value: True if something has changed) -reserved(var) - ident(Size)operator(,) ident(Typ)operator(,) ident(Data)operator(:) reserved(string)operator(;) - ident(Icon)operator(:) ident(Integer)operator(;) - ident(Context)operator(:) ident(TRegContext)operator(;) -reserved(begin) - ident(Result) operator(:=) ident(False)operator(;) - reserved(if) reserved(not) ident(Assigned)operator(()ident(Item)operator(\)) reserved(then) - ident(Exit)operator(;) - - ident(Context) operator(:=) ident(Reg)operator(.)ident(ReadContext)operator(()ident(RealValueName)operator(()ident(Item)operator(\)\);) - ident(Data) operator(:=) ident(ValueDataPreview)operator(()ident(Context)operator(\);) - ident(Size) operator(:=) ident(ValueDataSize)operator(()ident(Context)operator(\);) - ident(Typ) operator(:=) ident(ValueDataType)operator(()ident(Context)operator(\);) - ident(Icon) operator(:=) ident(ValueTypeIcon)operator(()ident(Context)operator(\);) - - reserved(if) ident(Icon) operator(<>) ident(Item)operator(.)ident(ImageIndex) reserved(then) reserved(begin) - ident(Item)operator(.)ident(ImageIndex) operator(:=) ident(Icon)operator(;) - ident(Result) operator(:=) ident(True)operator(;) - reserved(end)operator(;) - - reserved(while) ident(Item)operator(.)ident(SubItems)operator(.)ident(Count) operator(<) ident(Integer)operator(()ident(High)operator(()ident(TValueListColumn)operator(\)\)) reserved(do) - ident(Item)operator(.)ident(SubItems)operator(.)ident(Add)operator(()string<delimiter(')delimiter(')>operator(\);) - - reserved(if) ident(Size) operator(<>) ident(Item)operator(.)ident(SubItems)operator([)ident(SubItemIndex)operator([)ident(vlcSize)operator(]]) reserved(then) reserved(begin) - ident(Result) operator(:=) ident(True)operator(;) - ident(Item)operator(.)ident(SubItems)operator([)ident(SubItemIndex)operator([)ident(vlcSize)operator(]]) operator(:=) ident(Size)operator(;) - reserved(end)operator(;) - - reserved(if) ident(Typ) operator(<>) ident(Item)operator(.)ident(SubItems)operator([)ident(SubItemIndex)operator([)ident(vlcType)operator(]]) reserved(then) reserved(begin) - ident(Result) operator(:=) ident(True)operator(;) - ident(Item)operator(.)ident(SubItems)operator([)ident(SubItemIndex)operator([)ident(vlcType)operator(]]) operator(:=) ident(Typ)operator(;) - reserved(end)operator(;) - - reserved(if) operator(()ident(Data) operator(<>) ident(Item)operator(.)ident(SubItems)operator([)ident(SubItemIndex)operator([)ident(vlcData)operator(]]\)) reserved(then) reserved(begin) - ident(Result) operator(:=) ident(True)operator(;) - ident(Item)operator(.)ident(SubItems)operator([)ident(SubItemIndex)operator([)ident(vlcData)operator(]]) operator(:=) ident(Data)operator(;) - reserved(if) ident(IsMainValue)operator(()ident(Item)operator(\)) reserved(then) - ident(RegTV)operator(.)ident(Repaint)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(AppendNewValueInfos)operator(()ident(Item)operator(:) ident(TListItem)operator(;) ident(Context)operator(:) ident(TRegContext)operator(\);) -reserved(begin) - ident(Item)operator(.)ident(ImageIndex) operator(:=) ident(ValueTypeIcon)operator(()ident(Context)operator(\);) - reserved(with) ident(Item)operator(.)ident(SubItems) reserved(do) reserved(begin) - ident(Append)operator(()ident(ValueDataSize)operator(()ident(Context)operator(\)\);) - ident(Append)operator(()ident(ValueDataType)operator(()ident(Context)operator(\)\);) - ident(Append)operator(()ident(ValueDataPreview)operator(()ident(Context)operator(\)\);) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(function) ident(TValuesWin)operator(.)ident(AddValue)operator(()ident(Reg)operator(:) ident(TXRegistry)operator(;) reserved(const) ident(ValueName)operator(:) reserved(string)operator(;) - ident(AppendInfos)operator(:) ident(Boolean) operator(=) ident(True)operator(\):) ident(TListItem)operator(;) -reserved(begin) - ident(Result) operator(:=) ident(ValueList)operator(.)ident(Items)operator(.)ident(AddItem)operator(()reserved(nil)operator(,) operator(-)integer(1)operator(\);) - ident(Result)operator(.)ident(Indent) operator(:=) operator(-)integer(1)operator(;) - ident(SetRealValueName)operator(()ident(Result)operator(,) ident(ValueName)operator(\);) - reserved(if) ident(AppendInfos) reserved(then) - ident(AppendNewValueInfos)operator(()ident(Result)operator(,) ident(Reg)operator(.)ident(ReadContext)operator(()ident(ValueName)operator(\)\);) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(ValueListChange)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Item)operator(:) ident(TListItem)operator(;) - ident(Change)operator(:) ident(TItemChange)operator(\);) -reserved(var) - ident(ValueName)operator(:) reserved(string)operator(;) - ident(Reg)operator(:) ident(TXRegistry)operator(;) - - reserved(function) ident(ComputeValuesCommon)operator(()ident(Reg)operator(:) ident(TXRegistry)operator(;) reserved(var) ident(DataType)operator(:) ident(TRegDataType)operator(\):) ident(Boolean)operator(;) - reserved(var) - ident(i)operator(:) ident(Integer)operator(;) - ident(ItemType)operator(:) ident(TRegDataType)operator(;) - reserved(begin) - ident(Result) operator(:=) ident(False)operator(;) - - ident(i) operator(:=) integer(0)operator(;) - ident(DataType) operator(:=) integer(0)operator(;) - reserved(while) ident(i) operator(<) ident(ValueList)operator(.)ident(Items)operator(.)ident(Count) reserved(do) reserved(begin) - ident(Item) operator(:=) ident(ValueList)operator(.)ident(Items)operator([)ident(i)operator(];) - reserved(if) reserved(not) ident(Item)operator(.)ident(Selected) reserved(then) reserved(begin) - ident(Inc)operator(()ident(i)operator(\);) - ident(Continue)operator(;) reserved(end)operator(;) - - ident(ValueName) operator(:=) ident(RealValueName)operator(()ident(Item)operator(\);) - reserved(if) ident(Reg)operator(.)ident(ValueReallyExists)operator(()ident(ValueName)operator(\)) reserved(then) reserved(begin) - - ident(ItemType) operator(:=) ident(Reg)operator(.)ident(GetDataType)operator(()ident(ValueName)operator(\);) - reserved(if) reserved(not) ident(Result) reserved(then) reserved(begin) - ident(DataType) operator(:=) ident(ItemType)operator(;) - ident(Result) operator(:=) ident(True)operator(;) - reserved(end) reserved(else) reserved(if) ident(ItemType) operator(<>) ident(DataType) reserved(then) reserved(begin) - ident(Result) operator(:=) ident(False)operator(;) - ident(DataType) operator(:=) integer(0)operator(;) - ident(Break)operator(;) reserved(end)operator(;) - - reserved(with) ident(ValueNames) reserved(do) - reserved(if) ident(Item)operator(.)ident(Focused) reserved(then) - ident(Insert)operator(()integer(0)operator(,) ident(ValueName)operator(\)) - reserved(else) - ident(Add)operator(()ident(ValueName)operator(\);) - - reserved(end) reserved(else) reserved(begin) - ident(ShowMessage)operator(()string<delimiter(')content(Value has been deleted!)delimiter(')>operator(\);) - ident(DataType) operator(:=) integer(0)operator(;) - ident(Result) operator(:=) ident(False)operator(;) - ident(Reload)operator(;) - ident(Break)operator(;) reserved(end)operator(;) - - ident(Inc)operator(()ident(i)operator(\);) - reserved(end)operator(;) - reserved(end)operator(;) - -reserved(begin) - reserved(if) reserved(not) ident(Assigned)operator(()ident(Item)operator(\)) reserved(or) ident(ValueList)operator(.)ident(IsEditing) reserved(or) reserved(not) ident(ValueList)operator(.)ident(Enabled) reserved(then) - ident(Exit)operator(;) - - reserved(if) ident(Change) operator(<>) ident(ctState) reserved(then) - ident(Exit)operator(;) - - reserved(if) ident(csDestroying) reserved(in) ident(WorkWin)operator(.)ident(ComponentState) reserved(then) - ident(Exit)operator(;) - - reserved(if) operator(()ident(ValueList)operator(.)ident(SelCount) operator(=) integer(0)operator(\)) reserved(then) reserved(begin) - ident(ValueNames)operator(.)ident(Clear)operator(;) - ident(WorkWin)operator(.)ident(ReInitShowPC)operator(;) - ident(Exit)operator(;) reserved(end)operator(;) - - reserved(if) reserved(not) ident(Item)operator(.)ident(Focused) reserved(then) - ident(Exit)operator(;) - - ident(WorkWin)operator(.)ident(ReInitShowPC)operator(;) - - ident(ValueNames)operator(.)ident(Clear)operator(;) - ident(Reg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(;) - reserved(try) - reserved(if) ident(OpenNodeOK)operator(()ident(Reg)operator(,) ident(RegTV)operator(.)ident(Selected)operator(\)) reserved(then) reserved(begin) - ident(ValuesCommon) operator(:=) ident(ComputeValuesCommon)operator(()ident(Reg)operator(,) ident(ValueCommonType)operator(\);) - reserved(if) ident(ValuesCommon) reserved(then) - ident(WorkWin)operator(.)ident(ShowValues)operator(()ident(Reg)operator(\);) - reserved(end)operator(;) - reserved(finally) - ident(Reg)operator(.)ident(Free)operator(;) - reserved(end)operator(;) - - reserved(if) ident(csDestroying) reserved(in) ident(MainWin)operator(.)ident(ComponentState) reserved(then) - ident(Exit)operator(;) - - reserved(if) ident(ActiveControl) operator(=) ident(ValueList) reserved(then) - ident(MainWin)operator(.)ident(SetStatus)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(ValueListCustomDrawItem)operator(()ident(Sender)operator(:) ident(TCustomListView)operator(;) - ident(Item)operator(:) ident(TListItem)operator(;) ident(State)operator(:) ident(TCustomDrawState)operator(;) reserved(var) ident(DefaultDraw)operator(:) ident(Boolean)operator(\);) -reserved(begin) - reserved(with) ident(ValueList)operator(.)ident(Canvas)operator(.)ident(Font) reserved(do) reserved(begin) - reserved(if) ident(Item)operator(.)ident(Focused) reserved(then) - ident(Style) operator(:=) ident(Style) operator(+) operator([)ident(fsBold)operator(];) - reserved(if) ident(ItemIsDefaultValue)operator(()ident(Item)operator(\)) reserved(then) - ident(Color) operator(:=) ident(clBrightYellow) - reserved(else) - ident(Color) operator(:=) ident(ColorOfDataType)operator(()ident(TRegDataType)operator(()ident(Item)operator(.)ident(ImageIndex) operator(-) ident(iconFirstType)operator(\)\);) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(ValueListDblClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(ValueListChange)operator(()ident(Sender)operator(,) ident(ValueList)operator(.)ident(ItemFocused)operator(,) ident(ctState)operator(\);) - ident(MainPC)operator(.)ident(ActivePage) operator(:=) ident(WorkWin)operator(.)ident(WorkPage)operator(;) - - reserved(if) reserved(not) ident(Assigned)operator(()ident(ValueList)operator(.)ident(ItemFocused)operator(\)) reserved(then) - ident(Exit)operator(;) - - reserved(if) ident(csDestroying) reserved(in) ident(WorkWin)operator(.)ident(ComponentState) reserved(then) - ident(Exit)operator(;) - - ident(WorkWin)operator(.)ident(EditData)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(ValueListEditing)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Item)operator(:) ident(TListItem)operator(;) - reserved(var) ident(AllowEdit)operator(:) ident(Boolean)operator(\);) -reserved(begin) - reserved(if) reserved(not) ident(ValueLabelClicked) reserved(then) reserved(begin) - ident(AllowEdit) operator(:=) ident(False)operator(;) - ident(Exit)operator(;) reserved(end)operator(;) - - reserved(if) ident(ItemIsDefaultValue)operator(()ident(Item)operator(\)) reserved(then) comment(//unschön, aber beste Lösung bisher) - ident(Keyboard)operator(.)ident(SimKey)operator(()ident(VK_DELETE)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(ValueListEdited)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Item)operator(:) ident(TListItem)operator(;) - reserved(var) ident(S)operator(:) reserved(string)operator(\);) -reserved(var) - ident(Old)operator(:) reserved(string)operator(;) - ident(OldCaption)operator(:) reserved(string)operator(;) -reserved(begin) - ident(OldCaption) operator(:=) ident(Item)operator(.)ident(Caption)operator(;) - ident(Old) operator(:=) ident(RealValueName)operator(()ident(Item)operator(\);) - - reserved(if) ident(s) operator(=) ident(Old) reserved(then) reserved(begin) - reserved(if) ident(ItemIsDefaultValue)operator(()ident(Item)operator(\)) reserved(then) - ident(s) operator(:=) ident(DefaultValueCaption)operator(;) - ident(Exit)operator(;) reserved(end)operator(;) - - ident(SpyThread)operator(.)ident(Suspend)operator(;) - reserved(try) - ident(Item)operator(.)ident(Caption) operator(:=) ident(s)operator(;) - - reserved(if) ident(TryRenameValue)operator(()ident(Old)operator(,) ident(s)operator(\)) reserved(then) reserved(begin) - ident(SetRealValueName)operator(()ident(Item)operator(,) ident(s)operator(\);) comment(//Sichere Zuweisung des Standard-Flags) - ident(s) operator(:=) ident(Item)operator(.)ident(Caption)operator(;) comment(//Anschließend externer Aufruf "Item.Caption := s"!) - reserved(end) reserved(else) reserved(begin) - ident(s) operator(:=) ident(OldCaption)operator(;) - reserved(end)operator(;) - - reserved(finally) - ident(SpyThread)operator(.)ident(Restart) operator(:=) ident(True)operator(;) - ident(SpyThread)operator(.)ident(Resume)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(ValueListKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) - ident(Shift)operator(:) ident(TShiftState)operator(\);) -reserved(var) - ident(T)operator(:) reserved(string)operator(;) - ident(Item)operator(:) ident(TListItem)operator(;) -reserved(begin) - reserved(if) ident(ValueList)operator(.)ident(IsEditing) reserved(then) - ident(Exit)operator(;) - - reserved(if) ident(csDestroying) reserved(in) ident(TreeWin)operator(.)ident(ComponentState) reserved(then) - ident(Exit)operator(;) - - ident(Item) operator(:=) ident(ValueList)operator(.)ident(ItemFocused)operator(;) - - reserved(case) ident(Key) reserved(of) - ident(VK_SPACE)operator(:) ident(JumpToSel)operator(()ident(ValueList)operator(\);) - - ident(VK_F9)operator(:) ident(SwapFonts)operator(()ident(ValueList)operator(\);) - - ident(VK_F5)operator(:) ident(Reload)operator(;) - - ident(VK_F12)operator(:) reserved(begin) comment(//Sort) - reserved(if) ident(Assigned)operator(()ident(Item)operator(\)) reserved(then) - ident(T) operator(:=) ident(Item)operator(.)ident(Caption)operator(;) - ident(ValueList)operator(.)ident(SortType) operator(:=) ident(TSortType)operator(()integer(2) operator(-) operator(()ident(Integer)operator(()ident(ValueList)operator(.)ident(SortType)operator(\)\)\);) - reserved(if) ident(ValueList)operator(.)ident(SortType) operator(=) ident(stNone) reserved(then) - ident(TreeWin)operator(.)ident(RegTVChange)operator(()ident(Sender)operator(,) ident(RegTV)operator(.)ident(Selected)operator(\);) - ident(ValueList)operator(.)ident(ItemFocused) operator(:=) ident(FindItem)operator(()ident(ValueList)operator(,) ident(T)operator(\);) - reserved(if) ident(Assigned)operator(()ident(ValueList)operator(.)ident(ItemFocused)operator(\)) reserved(then) - ident(ValueList)operator(.)ident(ItemFocused)operator(.)ident(MakeVisible)operator(()ident(True)operator(\);) - reserved(end)operator(;) - - ident(VK_DELETE)operator(:) ident(DeleteMIClick)operator(()ident(Sender)operator(\);) - - ident(VK_RETURN)operator(:) ident(ValueListDblCLick)operator(()ident(Sender)operator(\);) - - ident(Ord)operator(()char<delimiter(')content(C)delimiter(')>operator(\):) - reserved(if) reserved(not) ident(ValueList)operator(.)ident(IsEditing) reserved(then) - ident(CopyPathMIClick)operator(()ident(Sender)operator(\);) - - ident(VK_SCROLL)operator(:) ident(CheckValueListHotTrack)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(ValueListResize)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(with) ident(ValueList) reserved(do) - ident(Columns)operator([)integer(3)operator(].)ident(Width) operator(:=) ident(ClientWidth) operator(-) operator(()integer(0) operator(+) - ident(Columns)operator([)integer(0)operator(].)ident(Width) operator(+) ident(Columns)operator([)integer(1)operator(].)ident(Width) operator(+) ident(Columns)operator([)integer(2)operator(].)ident(Width)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(DeleteValue)operator(;) -reserved(var) - ident(Item)operator(,) ident(NewSel)operator(:) ident(TListItem)operator(;) - ident(YesToAll)operator(:) ident(Boolean)operator(;) - ident(i)operator(:) ident(Integer)operator(;) - - reserved(procedure) ident(DeleteIt)operator(()ident(Item)operator(:) ident(TListItem)operator(\);) - reserved(begin) - ident(OpenCurKey)operator(;) - reserved(if) ident(MainReg)operator(.)ident(DeleteValue)operator(()ident(RealValueName)operator(()ident(Item)operator(\)\)) - reserved(and) reserved(not) ident(MainReg)operator(.)ident(ValueReallyExists)operator(()ident(RealValueName)operator(()ident(Item)operator(\)\)) reserved(then) reserved(begin) - ident(Item)operator(.)ident(Delete)operator(;) - reserved(end) reserved(else) reserved(begin) - ident(ShowMessage)operator(()string<delimiter(')content(Could not delete Value )delimiter(')> operator(+) ident(Quote)operator(()ident(RealValueName)operator(()ident(Item)operator(\)\)\);) - ident(Inc)operator(()ident(i)operator(\);) - reserved(end)operator(;) - ident(MainReg)operator(.)ident(CloseKey)operator(;) - - reserved(if) ident(IsMainValue)operator(()ident(Item)operator(\)) reserved(then) - ident(RegTV)operator(.)ident(Repaint)operator(;) - reserved(end)operator(;) - -reserved(begin) - ident(SpyThread)operator(.)ident(Suspend)operator(;) - - ident(NewSel) operator(:=) ident(GetNextBestNotSelected)operator(()ident(ValueList)operator(.)ident(ItemFocused)operator(\);) - - ident(YesToAll) operator(:=) ident(False)operator(;) - ident(i) operator(:=) integer(0)operator(;) - reserved(while) ident(i) operator(<) ident(ValueList)operator(.)ident(Items)operator(.)ident(Count) reserved(do) reserved(begin) - ident(Item) operator(:=) ident(ValueList)operator(.)ident(Items)operator([)ident(i)operator(];) - reserved(if) reserved(not) ident(Item)operator(.)ident(Selected) reserved(then) reserved(begin) - ident(Inc)operator(()ident(i)operator(\);) - ident(Continue)operator(;) reserved(end)operator(;) - - reserved(if) ident(YesToAll) reserved(then) - ident(DeleteIt)operator(()ident(Item)operator(\)) - reserved(else) reserved(begin) - reserved(case) ident(MessageDlg)operator(()string<delimiter(')content(Do you really want to delete the Value )delimiter(')> operator(+) - ident(Quote)operator(()ident(RealValueName)operator(()ident(Item)operator(\)\)) operator(+) char<delimiter(')content(?)delimiter(')>operator(,) - ident(mtConfirmation)operator(,) operator([)ident(mbYes)operator(,) ident(mbYesToAll)operator(,) ident(mbNo)operator(,) ident(mbCancel)operator(],) integer(0)operator(\)) reserved(of) - ident(mrYes)operator(:) ident(DeleteIt)operator(()ident(Item)operator(\);) - ident(mrYesToAll)operator(:) ident(YesToAll) operator(:=) ident(True)operator(;) - ident(mrCancel)operator(:) ident(Exit)operator(;) - ident(mrNo)operator(:) reserved(begin) - ident(Item)operator(.)ident(Selected) operator(:=) ident(False)operator(;) - ident(NewSel) operator(:=) ident(Item)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - - reserved(if) ident(Assigned)operator(()ident(NewSel)operator(\)) reserved(then) reserved(begin) - ident(ValueList)operator(.)ident(ItemFocused) operator(:=) ident(NewSel)operator(;) - ident(NewSel)operator(.)ident(Selected) operator(:=) ident(True)operator(;) - reserved(end) reserved(else) - ident(WorkWin)operator(.)ident(ReInitShowPC)operator(;) - - ident(SpyThread)operator(.)ident(Restart) operator(:=) ident(True)operator(;) - ident(SpyThread)operator(.)ident(Resume)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(ZeromizeValue)operator(;) -reserved(var) - ident(Item)operator(:) ident(TListItem)operator(;) - ident(YesToAll)operator(:) ident(Boolean)operator(;) - ident(i)operator(:) ident(Integer)operator(;) - - reserved(procedure) ident(ZeromizeIt)operator(()ident(Item)operator(:) ident(TListItem)operator(\);) - reserved(begin) - reserved(with) ident(MainReg) reserved(do) reserved(begin) - ident(OpenCurKey)operator(;) - ident(ZeromizeValue)operator(()ident(RealValueName)operator(()ident(Item)operator(\)\);) - ident(UpdateValue)operator(()ident(MainReg)operator(,) ident(Item)operator(\);) - ident(CloseKey)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - -reserved(begin) - ident(SpyThread)operator(.)ident(Suspend)operator(;) - - ident(YesToAll) operator(:=) ident(False)operator(;) - ident(i) operator(:=) integer(0)operator(;) - reserved(while) ident(i) operator(<) ident(ValueList)operator(.)ident(Items)operator(.)ident(Count) reserved(do) reserved(begin) - ident(Item) operator(:=) ident(ValueList)operator(.)ident(Items)operator([)ident(i)operator(];) - reserved(if) reserved(not) ident(Item)operator(.)ident(Selected) reserved(then) reserved(begin) - ident(Inc)operator(()ident(i)operator(\);) - ident(Continue)operator(;) reserved(end)operator(;) - - reserved(if) ident(YesToAll) reserved(then) - ident(ZeromizeIt)operator(()ident(Item)operator(\)) - reserved(else) - reserved(case) ident(MessageDlg)operator(()string<delimiter(')content(Do you really want to zeromize ValueData of )delimiter(')> operator(+) - ident(Quote)operator(()ident(RealValueName)operator(()ident(Item)operator(\)\)) operator(+) string<delimiter(')content( ?)delimiter(')>operator(,) - ident(mtConfirmation)operator(,) operator([)ident(mbYes)operator(,) ident(mbYesToAll)operator(,) ident(mbNo)operator(,) ident(mbCancel)operator(],) integer(0)operator(\)) reserved(of) - - ident(mrYes)operator(:) reserved(begin) - ident(ZeromizeIt)operator(()ident(Item)operator(\);) - ident(Inc)operator(()ident(i)operator(\);) - reserved(end)operator(;) - - ident(mrYesToAll)operator(:) reserved(begin) - ident(YesToAll) operator(:=) ident(True)operator(;) - ident(ZeromizeIt)operator(()ident(Item)operator(\);) - reserved(end)operator(;) - ident(mrCancel)operator(:) ident(Exit)operator(;) - reserved(end)operator(;) - - reserved(if) ident(IsMainValue)operator(()ident(Item)operator(\)) reserved(then) - ident(RegTV)operator(.)ident(Repaint)operator(;) - reserved(end)operator(;) - - - ident(SpyThread)operator(.)ident(Resume)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(ValueListPUPopup)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(Writable)operator(,) ident(ValueOK)operator(,) ident(OnlyOneValue)operator(,) ident(OneValueOK)operator(:) ident(Boolean)operator(;) - ident(Item)operator(:) ident(TListItem)operator(;) -reserved(begin) - reserved(if) ident(Assigned)operator(()ident(ValueList)operator(.)ident(ItemFocused)operator(\)) reserved(then) - ident(ValueList)operator(.)ident(ItemFocused)operator(.)ident(Selected) operator(:=) ident(True)operator(;) - - reserved(if) ident(csDestroying) reserved(in) operator(()ident(TreeWin)operator(.)ident(ComponentState) operator(+) ident(PrefWin)operator(.)ident(ComponentState)operator(\)) reserved(then) - ident(Exit)operator(;) - - ident(Writable) operator(:=) reserved(not) ident(TreeWin)operator(.)ident(CantWrite)operator(;) - ident(NewDefaultValueMI)operator(.)ident(Visible) operator(:=) ident(Writable)operator(;) - ident(NewStringMI)operator(.)ident(Visible) operator(:=) ident(Writable)operator(;) - ident(NewDWORDMI)operator(.)ident(Visible) operator(:=) ident(Writable)operator(;) - ident(NewBinaryMI)operator(.)ident(Visible) operator(:=) ident(Writable)operator(;) - ident(NewMultiStringMI)operator(.)ident(Visible) operator(:=) ident(Writable)operator(;) - ident(NewElseMI)operator(.)ident(Visible) operator(:=) ident(Writable)operator(;) - - ident(ValueOK) operator(:=) ident(Writable) reserved(and) operator(()ident(ValueList)operator(.)ident(ItemFocused) operator(<>) reserved(nil)operator(\);) - ident(OnlyOneValue) operator(:=) ident(ValueList)operator(.)ident(SelCount) operator(=) integer(1)operator(;) - ident(OneValueOK) operator(:=) ident(OnlyOneValue) reserved(and) ident(ValueOK)operator(;) - - ident(EditMI)operator(.)ident(Visible) operator(:=) ident(ValueOK)operator(;) - ident(EditBinaryMI)operator(.)ident(Visible) operator(:=) ident(ValueOK)operator(;) - ident(DublicateMI)operator(.)ident(Visible) operator(:=) ident(OneValueOK)operator(;) - ident(CopyPathMI)operator(.)ident(Visible) operator(:=) ident(OnlyOneValue)operator(;) - ident(CopyDataPreviewMI)operator(.)ident(Visible) operator(:=) ident(OnlyOneValue)operator(;) - ident(TakeAsMainValueMI)operator(.)ident(Visible) operator(:=) ident(OnlyOneValue)operator(;) - ident(RenameMI)operator(.)ident(Visible) operator(:=) ident(OneValueOK)operator(;) - ident(DeleteMI)operator(.)ident(Visible) operator(:=) ident(ValueOK)operator(;) - ident(ZeromizeMI)operator(.)ident(Visible) operator(:=) ident(ValueOK)operator(;) - - ident(Item) operator(:=) ident(ValueList)operator(.)ident(ItemFocused)operator(;) - reserved(if) reserved(not) ident(Assigned)operator(()ident(Item)operator(\)) reserved(then) - ident(Exit)operator(;) - - ident(TakeAsMainValueMI)operator(.)ident(Checked) operator(:=) ident(RealValueName)operator(()ident(Item)operator(\)) operator(=) ident(PrefWin)operator(.)ident(MainPreviewE)operator(.)ident(Text)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(FormKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) - ident(Shift)operator(:) ident(TShiftState)operator(\);) -reserved(begin) - reserved(if) ident(ValueList)operator(.)ident(IsEditing) reserved(then) - ident(Exit)operator(;) - - reserved(if) ident(csDestroying) reserved(in) ident(MainWin)operator(.)ident(ComponentState) reserved(then) - ident(Exit)operator(;) - ident(MainWin)operator(.)ident(FormKeyDown)operator(()ident(Sender)operator(,) ident(Key)operator(,) ident(Shift)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(ValueListDeletion)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Item)operator(:) ident(TListItem)operator(\);) -reserved(begin) - reserved(if) ident(Assigned)operator(()ident(SpyThread)operator(\)) reserved(then) - ident(SpyThread)operator(.)ident(Restart) operator(:=) ident(True)operator(;) - - reserved(if) ident(csDestroying) reserved(in) ident(WorkWin)operator(.)ident(ComponentState) reserved(then) - ident(Exit)operator(;) - - reserved(if) ident(Assigned)operator(()ident(ShowPC)operator(.)ident(ActivePage)operator(\)) - reserved(and) ident(Item)operator(.)ident(Selected) reserved(and) ident(Item)operator(.)ident(Focused) reserved(then) reserved(begin) - ident(ValueList)operator(.)ident(ItemFocused) operator(:=) ident(GetNextBest)operator(()ident(Item)operator(\);) - ident(WorkWin)operator(.)ident(ReInitShowPC)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(DeleteMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(if) ident(ValueList)operator(.)ident(IsEditing) reserved(then) - ident(Exit)operator(;) - - ident(DeleteValue)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(RenameMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(if) ident(Assigned)operator(()ident(ValueList)operator(.)ident(ItemFocused)operator(\)) reserved(then) reserved(begin) - ident(ValueLabelClicked) operator(:=) ident(True)operator(;) - ident(ValueList)operator(.)ident(ItemFocused)operator(.)ident(EditCaption)operator(;) - ident(ValueLabelClicked) operator(:=) ident(False)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(NewBigEndianMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(CreateValue)operator(()ident(rdCardBigEndian)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(NewExpandStringMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(CreateValue)operator(()ident(rdExpandString)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(NewMultiStringMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(CreateValue)operator(()ident(rdMultiString)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(NewStrangeTypeMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(CreateValue)operator(()ident(TRegDataType)operator(()ident(TMenuItem)operator(()ident(Sender)operator(\).)ident(Tag)operator(\)\);) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(NewDefaultValueMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(DefaultItem)operator(:) ident(TListItem)operator(;) - ident(i)operator(:) ident(Integer)operator(;) -reserved(begin) - reserved(if) ident(csDestroying) reserved(in) operator(()ident(TreeWin)operator(.)ident(ComponentState) operator(+) ident(MainWin)operator(.)ident(ComponentState)operator(\)) reserved(then) - ident(Exit)operator(;) - reserved(if) ident(TreeWin)operator(.)ident(CantWrite) reserved(then) - ident(Exit)operator(;) - - reserved(with) ident(MainReg) reserved(do) reserved(begin) - reserved(try) - ident(OpenCurKey)operator(;) - - reserved(if) ident(StandardValueExists) reserved(then) reserved(begin) - ident(ShowMessage)operator(()string<delimiter(')content(Default Value already exists.)delimiter(')>operator(\);) - ident(CloseKey)operator(;) - ident(Exit)operator(;) reserved(end)operator(;) - - ident(WriteString)operator(()string<delimiter(')delimiter(')>operator(,) string<delimiter(')delimiter(')>operator(\);) - - reserved(if) reserved(not) ident(StandardValueExists) reserved(then) reserved(begin) - ident(ShowMessage)operator(()string<delimiter(')content(Could not create Default Value.)delimiter(')>operator(\);) - ident(CloseKey)operator(;) - ident(Exit)operator(;) reserved(end)operator(;) - - ident(ValuesWin)operator(.)ident(AddValue)operator(()ident(MainReg)operator(,) string<delimiter(')delimiter(')>operator(\);) - reserved(finally) - ident(CloseKey)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - - reserved(with) ident(ValueList)operator(.)ident(Items) reserved(do) reserved(begin) - ident(DefaultItem) operator(:=) reserved(nil)operator(;) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Count)operator(-)integer(1) reserved(do) - reserved(if) ident(ItemIsDefaultValue)operator(()ident(Item)operator([)ident(i)operator(]\)) reserved(then) - ident(Break)operator(;) - - reserved(if) ident(i) operator(<) ident(Count) reserved(then) - ident(DefaultItem) operator(:=) ident(Item)operator([)ident(i)operator(];) - reserved(end)operator(;) - - reserved(if) reserved(not) ident(Assigned)operator(()ident(DefaultItem)operator(\)) reserved(then) - ident(ShowMessage)operator(()string<delimiter(')content(Error: Lost Default Value!)delimiter(')>operator(\)) - reserved(else) reserved(begin) - ident(SelectItemOnly)operator(()ident(ValueList)operator(,) ident(DefaultItem)operator(\);) - ident(MainWin)operator(.)ident(StatusBarUpdate)operator(;) - ident(ValueListDblClick)operator(()ident(Sender)operator(\);) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(ValueListChanging)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Item)operator(:) ident(TListItem)operator(;) - ident(Change)operator(:) ident(TItemChange)operator(;) reserved(var) ident(AllowChange)operator(:) ident(Boolean)operator(\);) -reserved(begin) - reserved(if) ident(Item) operator(=) reserved(nil) reserved(then) - ident(AllowChange) operator(:=) ident(False)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(ValueListMouseDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Button)operator(:) ident(TMouseButton)operator(;) - ident(Shift)operator(:) ident(TShiftState)operator(;) ident(X)operator(,) ident(Y)operator(:) ident(Integer)operator(\);) -reserved(begin) - ident(ValueLabelClicked) operator(:=) ident(False)operator(;) - reserved(with) ident(ValueList) reserved(do) - reserved(if) operator(([)ident(htOnIcon)operator(,) ident(htOnLabel)operator(]) operator(*) ident(GetHitTestInfoAt)operator(()ident(X)operator(,) ident(Y)operator(\)\)) operator(<>) operator([]) reserved(then) - ident(ValueLabelClicked) operator(:=) ident(True)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(EditBinaryMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(if) ident(csDestroying) reserved(in) ident(WorkWin)operator(.)ident(ComponentState) reserved(then) - ident(Exit)operator(;) - - ident(WorkWin)operator(.)ident(ShowAsBinary) operator(:=) ident(True)operator(;) - ident(ValueListChange)operator(()ident(Sender)operator(,) ident(ValueList)operator(.)ident(ItemFocused)operator(,) ident(ctState)operator(\);) - ident(ValueListDblClick)operator(()ident(Sender)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(EditMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(ValueListDblClick)operator(()ident(Sender)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(ValueListCustomDrawSubItem)operator(()ident(Sender)operator(:) ident(TCustomListView)operator(;) - ident(Item)operator(:) ident(TListItem)operator(;) ident(SubItem)operator(:) ident(Integer)operator(;) ident(State)operator(:) ident(TCustomDrawState)operator(;) - reserved(var) ident(DefaultDraw)operator(:) ident(Boolean)operator(\);) -reserved(begin) - reserved(with) ident(ValueList)operator(.)ident(Canvas)operator(.)ident(Font) reserved(do) reserved(begin) - ident(Style) operator(:=) operator([];) - reserved(if) ident(SubItem) operator(=) integer(1) reserved(then) - ident(Color) operator(:=) ident(clSilver) - reserved(else) - ident(Color) operator(:=) ident(ColorOfDataType)operator(()ident(TRegDataType)operator(()ident(Item)operator(.)ident(ImageIndex) operator(-) ident(iconFirstType)operator(\)\);) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(ValueListCompare)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Item1)operator(,) ident(Item2)operator(:) ident(TListItem)operator(;) - ident(Data)operator(:) ident(Integer)operator(;) reserved(var) ident(Compare)operator(:) ident(Integer)operator(\);) -reserved(begin) - reserved(case) ident(SortBy) reserved(of) - ident(vlcName)operator(:) ident(Compare) operator(:=) ident(AnsiCompareText)operator(()ident(RealValueName)operator(()ident(Item1)operator(\),) ident(RealValueName)operator(()ident(Item2)operator(\)\);) - ident(vlcSize)operator(:) ident(Compare) operator(:=) ident(Integer)operator(() - ident(StrToIntDef)operator(()ident(Item1)operator(.)ident(SubItems)operator([)ident(SubItemIndex)operator([)ident(vlcSize)operator(]],) operator(-)integer(1)operator(\)) operator(>) - ident(StrToIntDef)operator(()ident(Item2)operator(.)ident(SubItems)operator([)ident(SubItemIndex)operator([)ident(vlcSize)operator(]],) operator(-)integer(1)operator(\)\);) - ident(vlcData)operator(:) ident(Compare) operator(:=) ident(Integer)operator(()ident(Item1)operator(.)ident(SubItems)operator([)ident(SubItemIndex)operator([)ident(vlcData)operator(]]) operator(>) - ident(Item2)operator(.)ident(SubItems)operator([)ident(SubItemIndex)operator([)ident(vlcData)operator(]]\);) - ident(vlcType)operator(:) ident(Compare) operator(:=) ident(Integer)operator(()ident(Item1)operator(.)ident(ImageIndex) operator(>) ident(Item2)operator(.)ident(ImageIndex)operator(\);) - reserved(end)operator(;) - - reserved(if) ident(Assigned)operator(()ident(SortByColumn)operator(\)) - reserved(and) operator(()ident(SortByColumn)operator(.)ident(ImageIndex) operator(=) ident(iconSortArrowDesc)operator(\)) reserved(then) - ident(Compare) operator(:=) integer(1) operator(-) ident(Compare)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(ValueListColumnClick)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Column)operator(:) ident(TListColumn)operator(\);) -reserved(begin) - reserved(case) ident(Column)operator(.)ident(ImageIndex) reserved(of) - ident(iconSortArrowAsc)operator(:) ident(Column)operator(.)ident(ImageIndex) operator(:=) ident(iconSortArrowDesc)operator(;) - ident(iconSortArrowDesc)operator(:) ident(Column)operator(.)ident(ImageIndex) operator(:=) operator(-)integer(1)operator(;) - reserved(else) - reserved(if) ident(Assigned)operator(()ident(SortByColumn)operator(\)) reserved(then) - ident(SortByColumn)operator(.)ident(ImageIndex) operator(:=) operator(-)integer(1)operator(;) - reserved(if) ident(TValueListColumn)operator(()ident(Column)operator(.)ident(Tag)operator(\)) reserved(in) ident(ValueListColumnRange) reserved(then) - ident(SortBy) operator(:=) ident(TValueListColumn)operator(()ident(Column)operator(.)ident(Tag)operator(\)) - reserved(else) - ident(ShowMessage)operator(()string<delimiter(')content(Unknown Column Tag)delimiter(')>operator(\);) - ident(Column)operator(.)ident(ImageIndex) operator(:=) ident(iconSortArrowAsc)operator(;) - reserved(end)operator(;) - - reserved(if) ident(Column)operator(.)ident(ImageIndex) operator(=) operator(-)integer(1) reserved(then) - ident(ValueList)operator(.)ident(SortType) operator(:=) ident(stNone) - reserved(else) reserved(begin) - ident(ValueList)operator(.)ident(SortType) operator(:=) ident(stData)operator(;) - ident(SortByColumn) operator(:=) ident(Column)operator(;) - reserved(end)operator(;) - - ident(Update)operator(;) - ident(ValueList)operator(.)ident(AlphaSort)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(CloneValue)operator(;) -reserved(var) - ident(OldName)operator(,) ident(NewName)operator(:) reserved(string)operator(;) - - reserved(function) ident(GetNewName)operator(()ident(Reg)operator(:) ident(TXRegistry)operator(;) reserved(const) ident(OldName)operator(:) reserved(string)operator(\):) reserved(string)operator(;) - reserved(var) - ident(i)operator(:) ident(Integer)operator(;) - ident(Prefix)operator(:) reserved(string)operator(;) - reserved(begin) - reserved(if) ident(OldName) operator(=) string<delimiter(')delimiter(')> reserved(then) - ident(Result) operator(:=) string<delimiter(')content(New Default Value)delimiter(')> - reserved(else) reserved(if) ident(Copy)operator(()ident(OldName)operator(,) integer(1)operator(,) integer(4)operator(\)) operator(<>) string<delimiter(')content(New )delimiter(')> reserved(then) - ident(Result) operator(:=) string<delimiter(')content(New )delimiter(')> operator(+) ident(OldName) - reserved(else) - ident(Result) operator(:=) ident(OldName)operator(;) - - ident(Prefix) operator(:=) ident(Result)operator(;) - ident(i) operator(:=) integer(1)operator(;) - reserved(while) ident(Reg)operator(.)ident(ValueExists)operator(()ident(Result)operator(\)) reserved(do) reserved(begin) - ident(Result) operator(:=) ident(Prefix) operator(+) char<delimiter(')content( )delimiter(')> operator(+) ident(IntToStr)operator(()ident(i)operator(\);) - ident(Inc)operator(()ident(i)operator(\);) - reserved(end)operator(;) - reserved(end)operator(;) - -reserved(begin) - reserved(if) ident(csDestroying) reserved(in) ident(TreeWin)operator(.)ident(ComponentState) reserved(then) - ident(Exit)operator(;) - - reserved(if) ident(TreeWin)operator(.)ident(CantWrite) reserved(then) - ident(Exit)operator(;) - - ident(OldName) operator(:=) ident(RealValueName)operator(()ident(ValueList)operator(.)ident(ItemFocused)operator(\);) - - reserved(try) - ident(OpenCurKey)operator(;) - - ident(NewName) operator(:=) ident(GetNewName)operator(()ident(MainReg)operator(,) ident(OldName)operator(\);) - ident(MainReg)operator(.)ident(CopyValue)operator(()ident(OldName)operator(,) ident(NewName)operator(\);) - ident(AddValue)operator(()ident(MainReg)operator(,) ident(NewName)operator(\);) - reserved(finally) - ident(MainReg)operator(.)ident(CloseKey)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(DublicateMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(CloneValue)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(CopyDataPreviewMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(if) ident(ValueList)operator(.)ident(IsEditing) reserved(then) - ident(Exit)operator(;) - - ident(CopyDataPreview)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(CopyDataPreview)operator(;) -reserved(begin) - ident(OpenCurKey)operator(;) - ident(Clipboard)operator(.)ident(AsText) operator(:=) ident(DataPreviewOfContext)operator(()ident(MainReg)operator(.)ident(ReadContext)operator(() - ident(RealValueName)operator(()ident(ValueList)operator(.)ident(ItemFocused)operator(\)\)\);) - ident(MainReg)operator(.)ident(CloseKey)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(UpdateValues)operator(()ident(SelectedOnly)operator(:) ident(Boolean) operator(=) ident(False)operator(\);) -reserved(var) - ident(i)operator(:) ident(Integer)operator(;) - ident(Reg)operator(:) ident(TXRegistry)operator(;) -reserved(begin) - reserved(if) reserved(not) ident(Started) reserved(then) - ident(Exit)operator(;) - - ident(SpyThread)operator(.)ident(Suspend)operator(;) - - ident(Reg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(;) - reserved(try) - reserved(if) ident(OpenNodeOK)operator(()ident(Reg)operator(,) ident(RegTV)operator(.)ident(Selected)operator(\)) reserved(then) - reserved(with) ident(ValueList)operator(.)ident(Items) reserved(do) reserved(begin) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Count)operator(-)integer(1) reserved(do) reserved(begin) - reserved(if) ident(SelectedOnly) reserved(and) reserved(not) ident(Item)operator([)ident(i)operator(].)ident(Selected) reserved(then) - ident(Continue)operator(;) - ident(UpdateValue)operator(()ident(Reg)operator(,) ident(Item)operator([)ident(i)operator(]\);) - reserved(end)operator(;) - reserved(end)operator(;) - reserved(finally) - ident(Reg)operator(.)ident(Free)operator(;) - reserved(end)operator(;) - - ident(SpyThread)operator(.)ident(Resume)operator(;) -reserved(end)operator(;) - -reserved(function) ident(TValuesWin)operator(.)ident(TryRenameValue)operator(()ident(OldName)operator(:) reserved(string)operator(;) - reserved(var) ident(NewName)operator(:) reserved(string)operator(\):) ident(Boolean)operator(;) -reserved(var) - ident(x)operator(:) reserved(string)operator(;) -reserved(begin) - ident(Result) operator(:=) ident(False)operator(;) - reserved(if) ident(OldName) operator(=) ident(NewName) reserved(then) - ident(Exit)operator(;) - - reserved(if) operator(()ident(Length)operator(()ident(NewName)operator(\)) operator(>) ident(RegMaxValueNameLen)operator(\)) reserved(then) reserved(begin) - ident(NewName) operator(:=) ident(Copy)operator(()ident(NewName)operator(,) integer(1)operator(,) ident(RegMaxValueNameLen)operator(\);) - reserved(if) ident(MessageDlg)operator(() - string<delimiter(')content(The maximum size of a value name is )delimiter(')> operator(+) ident(IntToStr)operator(()ident(RegMaxValueNameLen)operator(\)) operator(+) string<delimiter(')content( characters.)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(Shorten the value name to:)delimiter(')> operator(+) ident(EOL) operator(+) - ident(Quote)operator(()ident(StringWrap)operator(()ident(NewName)operator(,) integer(80)operator(\)\),) - ident(mtConfirmation)operator(,) operator([)ident(mbOK)operator(,) ident(mbCancel)operator(],) integer(0)operator(\)) operator(<>) ident(mrOK) reserved(then) - ident(Exit)operator(;) - reserved(end)operator(;) - - reserved(if) ident(CharIn)operator(()ident(NewName)operator(,) operator([)char(#0)operator(..)char(#31)operator(]\)) reserved(then) reserved(begin) - ident(NewName) operator(:=) ident(ReplaceChars)operator(()ident(NewName)operator(,) operator([)char(#0)operator(..)char(#31)operator(],) char<delimiter(')content(#)delimiter(')>operator(\);) - reserved(if) ident(MessageDlg)operator(()string<delimiter(')content(The following chars are not allowed in ValueNames:)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(- Control chars (#0..#31\))delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(The following name is allowed:)delimiter(')> operator(+) ident(EOL) operator(+) - ident(NewName) operator(+) ident(EOL) operator(+) - string<delimiter(')content(Use this name instead?)delimiter(')>operator(,) - ident(mtConfirmation)operator(,) operator([)ident(mbYes)operator(,) ident(mbNo)operator(],) integer(0)operator(\)) operator(<>) ident(mrYes) reserved(then) - ident(Exit)operator(;) - reserved(end)operator(;) - - reserved(if) reserved(not) ident(OpenCurKey) reserved(then) - ident(Exit)operator(;) - - reserved(if) ident(SameText)operator(()ident(OldName)operator(,) ident(NewName)operator(\)) reserved(then) reserved(begin) comment(//CharCase ändern) - ident(x) operator(:=) ident(MainReg)operator(.)ident(GetFreeValueName)operator(;) - ident(MainReg)operator(.)ident(RenameValue)operator(()ident(OldName)operator(,) ident(x)operator(\);) - ident(MainReg)operator(.)ident(RenameValue)operator(()ident(x)operator(,) ident(NewName)operator(\);) - reserved(end) reserved(else) reserved(begin) - reserved(if) reserved(not) ident(MainReg)operator(.)ident(ValueReallyExists)operator(()ident(NewName)operator(\)) reserved(then) reserved(begin) - ident(MainReg)operator(.)ident(RenameValue)operator(()ident(OldName)operator(,) ident(NewName)operator(\);) - reserved(end) reserved(else) reserved(begin) - reserved(if) ident(NewName) operator(=) string<delimiter(')delimiter(')> reserved(then) - ident(ShowMessage)operator(()string<delimiter(')content(Default value already exists.)delimiter(')>operator(\)) - reserved(else) - ident(ShowMessage)operator(()string<delimiter(')content(Value )delimiter(')> operator(+) ident(Quote)operator(()ident(NewName)operator(\)) operator(+) string<delimiter(')content( already exists.)delimiter(')>operator(\);) - ident(Exit)operator(;) reserved(end)operator(;) - reserved(end)operator(;) - ident(MainReg)operator(.)ident(CloseKey)operator(;) - - reserved(if) ident(TextIn)operator(()ident(NewName)operator(,) string<delimiter(')content(default)delimiter(')>operator(\)) reserved(then) - ident(AddHint)operator(()string<delimiter(')content(You can create default values by empty string ValueNames.)delimiter(')>operator(\);) - - ident(Result) operator(:=) ident(True)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(ZeromizeMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(ZeromizeValue)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(CopyPathMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(if) ident(ValueList)operator(.)ident(IsEditing) reserved(then) - ident(Exit)operator(;) - - reserved(if) ident(csDestroying) reserved(in) ident(MainWin)operator(.)ident(ComponentState) reserved(then) - ident(Exit)operator(;) - - ident(MainWin)operator(.)ident(CopyPathClick)operator(()ident(Sender)operator(\);) -reserved(end)operator(;) - -reserved(function) ident(TValuesWin)operator(.)ident(FindItemByRealName)operator(()reserved(const) ident(ValueName)operator(:) reserved(string)operator(\):) ident(Integer)operator(;) -reserved(begin) - reserved(with) ident(ValueList)operator(.)ident(Items) reserved(do) reserved(begin) - reserved(for) ident(Result) operator(:=) integer(0) reserved(to) ident(Count)operator(-)integer(1) reserved(do) - reserved(if) ident(SameText)operator(()ident(RealValueName)operator(()ident(Item)operator([)ident(Result)operator(]\),) ident(ValueName)operator(\)) reserved(then) - ident(Exit)operator(;) - reserved(end)operator(;) - ident(Result) operator(:=) operator(-)integer(1)operator(;) -reserved(end)operator(;) - -reserved(function) ident(TValuesWin)operator(.)ident(FocusItem)operator(()ident(ARealValueName)operator(:) reserved(string)operator(;) - ident(FocusValueList)operator(:) ident(Boolean) operator(=) ident(False)operator(\):) ident(Boolean)operator(;) -reserved(var) - ident(i)operator(:) ident(Integer)operator(;) -reserved(begin) - reserved(with) ident(ValueList) reserved(do) reserved(begin) - ident(i) operator(:=) ident(FindItemByRealName)operator(()ident(ARealValueName)operator(\);) - - reserved(if) operator(()ident(i) operator(>) operator(-)integer(1)operator(\)) reserved(and) operator(()ident(i) operator(<) ident(Items)operator(.)ident(Count)operator(\)) reserved(then) - ident(Selected) operator(:=) ident(Items)operator([)ident(i)operator(]) - reserved(else) - ident(Selected) operator(:=) reserved(nil)operator(;) - - ident(ItemFocused) operator(:=) ident(Selected)operator(;) - - ident(Result) operator(:=) ident(Assigned)operator(()ident(Selected)operator(\);) - reserved(if) ident(Result) reserved(then) - ident(JumpToSel)operator(()ident(ValueList)operator(\);) - - reserved(if) ident(FocusValueList) reserved(then) - ident(FocusControl)operator(()ident(ValueList)operator(\);) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(TakeAsMainValueMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(Item)operator(:) ident(TListItem)operator(;) - ident(ValueName)operator(:) reserved(string)operator(;) -reserved(begin) - reserved(if) ident(csDestroying) reserved(in) ident(PrefWin)operator(.)ident(ComponentState) reserved(then) - ident(Exit)operator(;) - - ident(Item) operator(:=) ident(ValueList)operator(.)ident(ItemFocused)operator(;) - reserved(if) reserved(not) ident(Assigned)operator(()ident(Item)operator(\)) reserved(then) - ident(Exit)operator(;) - - ident(ValueName) operator(:=) ident(RealValueName)operator(()ident(Item)operator(\);) - reserved(with) ident(PrefWin)operator(.)ident(MainPreviewE) reserved(do) - reserved(if) ident(ValueName) operator(=) ident(Text) reserved(then) - ident(Text) operator(:=) string<delimiter(')delimiter(')> - reserved(else) - ident(Text) operator(:=) ident(ValueName)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(InitListColumnTags)operator(;) -reserved(var) - ident(i)operator(:) ident(Integer)operator(;) -reserved(begin) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(ValueList)operator(.)ident(Columns)operator(.)ident(Count)operator(-)integer(1) reserved(do) - reserved(with) ident(ValueList)operator(.)ident(Columns)operator(.)ident(Items)operator([)ident(i)operator(]) reserved(do) reserved(begin) - ident(Tag) operator(:=) operator(-)integer(1)operator(;) - reserved(if) ident(Caption) operator(=) string<delimiter(')content(Name)delimiter(')> reserved(then) - ident(Tag) operator(:=) ident(Integer)operator(()ident(vlcName)operator(\)) - reserved(else) reserved(if) ident(Caption) operator(=) string<delimiter(')content(Size)delimiter(')> reserved(then) - ident(Tag) operator(:=) ident(Integer)operator(()ident(vlcSize)operator(\)) - reserved(else) reserved(if) ident(Caption) operator(=) string<delimiter(')content(Type)delimiter(')> reserved(then) - ident(Tag) operator(:=) ident(Integer)operator(()ident(vlcType)operator(\)) - reserved(else) reserved(if) ident(Caption) operator(=) string<delimiter(')content(Data)delimiter(')> reserved(then) - ident(Tag) operator(:=) ident(Integer)operator(()ident(vlcData)operator(\)) - reserved(else) - ident(ShowMessage)operator(()ident(Format)operator(()string<delimiter(')content(Error: Unknown ValueList.Columns[%d].Caption = "%s")delimiter(')>operator(,) - operator([)ident(Index)operator(,) ident(Caption)operator(]\)\);) - reserved(if) ident(Tag) operator(>) operator(-)integer(1) reserved(then) - ident(SubItemIndex)operator([)ident(TValueListColumn)operator(()ident(Tag)operator(\)]) operator(:=) ident(Index) operator(-) integer(1)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(FormShow)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(InitListColumnTags)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(Reload)operator(()ident(JumpToNewValue)operator(:) ident(Boolean) operator(=) ident(False)operator(;) - ident(ValueName)operator(:) reserved(string) operator(=) string<delimiter(')delimiter(')>operator(\);) -reserved(var) - ident(Sel)operator(:) ident(TListItem)operator(;) - ident(SelIndex)operator(:) ident(Integer)operator(;) - ident(SelRealValueName)operator(:) reserved(string)operator(;) -reserved(begin) - reserved(if) ident(csDestroying) reserved(in) ident(TreeWin)operator(.)ident(ComponentState) reserved(then) - ident(Exit)operator(;) - - ident(SelIndex) operator(:=) operator(-)integer(1)operator(;) - reserved(if) ident(JumpToNewValue) reserved(then) - ident(SelRealValueName) operator(:=) ident(ValueName) - reserved(else) reserved(begin) - ident(Sel) operator(:=) ident(ValueList)operator(.)ident(ItemFocused)operator(;) - reserved(if) ident(Assigned)operator(()ident(Sel)operator(\)) reserved(then) - ident(SelIndex) operator(:=) ident(Sel)operator(.)ident(Index)operator(;) - - reserved(if) ident(SelIndex) operator(>) operator(-)integer(1) reserved(then) - ident(SelRealValueName) operator(:=) ident(RealValueName)operator(()ident(ValueList)operator(.)ident(Items)operator([)ident(SelIndex)operator(]\);) - reserved(end)operator(;) - - ident(TreeWin)operator(.)ident(RegTVChange)operator(()ident(Self)operator(,) ident(RegTV)operator(.)ident(Selected)operator(\);) - - reserved(if) ident(SelIndex) operator(>) operator(-)integer(1) reserved(then) - reserved(if) reserved(not) ident(FocusItem)operator(()ident(SelRealValueName)operator(,) ident(True)operator(\)) reserved(then) reserved(begin) - ident(SelIndex) operator(:=) ident(GetBestIndex)operator(()ident(ValueList)operator(,) ident(SelIndex)operator(\);) - reserved(if) ident(SelIndex) operator(>) operator(-)integer(1) reserved(then) - reserved(with) ident(ValueList) reserved(do) reserved(begin) - ident(Selected) operator(:=) ident(Items)operator([)ident(SelIndex)operator(];) - ident(ItemFocused) operator(:=) ident(Selected)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(LoadValues)operator(()ident(Reg)operator(:) ident(TXRegistry)operator(\);) -reserved(var) - ident(SL)operator(:) ident(TStringList)operator(;) - ident(i)operator(:) ident(Integer)operator(;) - ident(Clock)operator(:) ident(TClock)operator(;) -reserved(begin) - reserved(if) ident(csDestroying) reserved(in) ident(WorkWin)operator(.)ident(ComponentState) reserved(then) - ident(Exit)operator(;) - - reserved(with) ident(ValueList)operator(.)ident(Items) reserved(do) reserved(begin) - ident(Clock) operator(:=) ident(TClock)operator(.)ident(Create)operator(()integer(1)operator(,) ident(tfSecs)operator(\);) - ident(ValueList)operator(.)ident(Enabled) operator(:=) ident(False)operator(;) - ident(BeginUpdate)operator(;) - reserved(try) - ident(Clear)operator(;) - ident(WorkWin)operator(.)ident(ReInitShowPC)operator(;) - - ident(SL) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;) - reserved(try) - ident(Reg)operator(.)ident(GetValueNames)operator(()ident(SL)operator(\);) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(SL)operator(.)ident(Count)operator(-)integer(1) reserved(do) - ident(ValuesWin)operator(.)ident(AddValue)operator(()ident(Reg)operator(,) ident(SL)operator([)ident(i)operator(]\);) - reserved(finally) - ident(SL)operator(.)ident(Free)operator(;) - reserved(end)operator(;) - - reserved(finally) - ident(EndUpdate)operator(;) - ident(ValueList)operator(.)ident(Enabled) operator(:=) ident(True)operator(;) - ident(Clock)operator(.)ident(Stop)operator(;) - reserved(if) ident(MurphyMode) reserved(then) - ident(AddHint)operator(()ident(Format)operator(()string<delimiter(')content(Values loaded after %0.2f secs.)delimiter(')>operator(,) operator([)ident(Clock)operator(.)ident(SecsPassed)operator(]\)\);) - ident(Clock)operator(.)ident(Free)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(FormClose)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Action)operator(:) ident(TCloseAction)operator(\);) -reserved(begin) -comment(// Action := caNone;) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(ValueListClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(CheckValueListHotTrack)operator(;) - reserved(if) ident(ValueList)operator(.)ident(HotTrack) reserved(then) - ident(ValueListDblClick)operator(()ident(Sender)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(CheckValueListHotTrack)operator(;) -reserved(const) - ident(StyleOfSwitch)operator(:) reserved(array)operator([)ident(Boolean)operator(]) reserved(of) ident(TListHotTrackStyles) operator(=) operator(() - operator([],) operator([)ident(htHandPoint)operator(,) ident(htUnderlineHot)operator(]) operator(\);) -reserved(var) - ident(NewHotTrack)operator(:) ident(Boolean)operator(;) -reserved(begin) - reserved(if) ident(csDestroying) reserved(in) ident(PrefWin)operator(.)ident(ComponentState) reserved(then) - ident(Exit)operator(;) - - ident(NewHotTrack) operator(:=) ident(ScrollON) reserved(xor) ident(PrefWin)operator(.)ident(ValuesSingleClickCB)operator(.)ident(Checked)operator(;) - reserved(if) ident(NewHotTrack) operator(=) ident(ValueList)operator(.)ident(HotTrack) reserved(then) ident(Exit)operator(;) - - reserved(with) ident(ValueList) reserved(do) reserved(begin) - ident(HotTrack) operator(:=) ident(NewHotTrack)operator(;) - ident(HotTrackStyles) operator(:=) ident(StyleOfSwitch)operator([)ident(HotTrack)operator(];) - ident(Mouse)operator(.)ident(CursorPos) operator(:=) ident(Mouse)operator(.)ident(CursorPos)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(SelectAllMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(i)operator(:) ident(Integer)operator(;) -reserved(begin) - reserved(with) ident(ValueList)operator(.)ident(Items) reserved(do) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Count)operator(-)integer(1) reserved(do) - ident(Item)operator([)ident(i)operator(].)ident(Selected) operator(:=) ident(True)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(InvertSelectionMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(i)operator(:) ident(Integer)operator(;) -reserved(begin) - reserved(with) ident(ValueList)operator(.)ident(Items) reserved(do) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Count)operator(-)integer(1) reserved(do) - ident(Item)operator([)ident(i)operator(].)ident(Selected) operator(:=) reserved(not) ident(Item)operator([)ident(i)operator(].)ident(Selected)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TValuesWin)operator(.)ident(FormDestroy)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(ValueNames)operator(.)ident(Free)operator(;) -reserved(end)operator(;) - -reserved(end)operator(.) -reserved(unit) ident(WorkU)operator(;) - -reserved(interface) - -reserved(uses) - ident(Windows)operator(,) ident(Messages)operator(,) ident(SysUtils)operator(,) ident(Variants)operator(,) ident(Classes)operator(,) ident(Graphics)operator(,) ident(Controls)operator(,) ident(Forms)operator(,) - ident(Dialogs)operator(,) ident(StdCtrls)operator(,) ident(ComCtrls)operator(,) ident(NewPanels)operator(,) ident(Grids)operator(,) ident(Clipbrd)operator(,) - ident(IntEdit)operator(,) ident(ExtCtrls)operator(,) ident(Menus)operator(,) ident(YTools)operator(,) ident(CompEx)operator(,) ident(PlutoConst)operator(,) - ident(XReg)operator(,) ident(Clock)operator(,) ident(Colors)operator(,) ident(ShellAPI)operator(,) ident(IniFiles)operator(,) ident(Math)operator(,) - ident(keybrd)operator(,) ident(Buttons)operator(,) ident(YTypes)operator(,) ident(LinkLabel)operator(,) ident(start)operator(,) - ident(PrefTools)operator(,) ident(ImgList)operator(,) ident(PHexMemo)operator(,) ident(PipelineTh)operator(,) ident(DropSource)operator(,) ident(DropTarget)operator(,) - ident(CrackTools)operator(;) - -reserved(type) - ident(TColorStringFmt) operator(=) operator(()ident(csfThreeSpacedDecimals)operator(\);) - - ident(TWorkWin) operator(=) reserved(class)operator(()ident(TForm)operator(\)) - ident(StringPU)operator(:) ident(TPopupMenu)operator(;) - ident(SpaceMI)operator(:) ident(TMenuItem)operator(;) - ident(FileMI)operator(:) ident(TMenuItem)operator(;) - ident(FileOpenD)operator(:) ident(TOpenDialog)operator(;) - ident(MainPC)operator(:) ident(TPageControl)operator(;) - ident(HintPage)operator(:) ident(TTabSheet)operator(;) - ident(Splitter1)operator(:) ident(TSplitter)operator(;) - ident(HintLB)operator(:) ident(TListBox)operator(;) - ident(InfoMemo)operator(:) ident(TMemo)operator(;) - ident(WorkPage)operator(:) ident(TTabSheet)operator(;) - ident(WorkP)operator(:) ident(TPanel)operator(;) - ident(ShowPC)operator(:) ident(TPageControl)operator(;) - ident(StringPage)operator(:) ident(TTabSheet)operator(;) - ident(BorderPanel1)operator(:) ident(TBorderPanel)operator(;) - ident(StringE)operator(:) ident(TEdit)operator(;) - ident(OKStringB)operator(:) ident(TButton)operator(;) - ident(BoolStrCB)operator(:) ident(TCheckBox)operator(;) - ident(CancelStringB)operator(:) ident(TButton)operator(;) - ident(StringAsColorP)operator(:) ident(TPanel)operator(;) - ident(StringAsFileP)operator(:) ident(TBorderPanel)operator(;) - ident(IconImage)operator(:) ident(TImage)operator(;) - ident(IntPage)operator(:) ident(TTabSheet)operator(;) - ident(BorderPanel5)operator(:) ident(TBorderPanel)operator(;) - ident(OKIntB)operator(:) ident(TButton)operator(;) - ident(CardBoolCB)operator(:) ident(TCheckBox)operator(;) - ident(CancelIntB)operator(:) ident(TButton)operator(;) - ident(BinaryPage)operator(:) ident(TTabSheet)operator(;) - ident(BorderPanel6)operator(:) ident(TBorderPanel)operator(;) - ident(Panel2)operator(:) ident(TPanel)operator(;) - ident(Label5)operator(:) ident(TLabel)operator(;) - ident(OffsetHE)operator(:) ident(THexEdit)operator(;) - ident(OKBinaryB)operator(:) ident(TButton)operator(;) - ident(CancelBinaryB)operator(:) ident(TButton)operator(;) - ident(StringTypeRG)operator(:) ident(TRadioGroup)operator(;) - ident(SpyPage)operator(:) ident(TTabSheet)operator(;) - ident(BorderPanel2)operator(:) ident(TBorderPanel)operator(;) - ident(SpyResumeB)operator(:) ident(TButton)operator(;) - ident(SpySuspendB)operator(:) ident(TButton)operator(;) - ident(SpyLB)operator(:) ident(TListBox)operator(;) - ident(Label4)operator(:) ident(TLabel)operator(;) - ident(Label7)operator(:) ident(TLabel)operator(;) - ident(CardTypeRG)operator(:) ident(TRadioGroup)operator(;) - ident(MultiStringPage)operator(:) ident(TTabSheet)operator(;) - ident(BorderPanel7)operator(:) ident(TBorderPanel)operator(;) - ident(OKMultiStringB)operator(:) ident(TButton)operator(;) - ident(CancelMultiStringB)operator(:) ident(TButton)operator(;) - ident(MultiStringM)operator(:) ident(TMemo)operator(;) - ident(DataTypeComB)operator(:) ident(TComboBox)operator(;) - ident(CardinalE)operator(:) ident(TCardEdit)operator(;) - ident(ColorDlg)operator(:) ident(TColorDialog)operator(;) - ident(MultiStringOpenD)operator(:) ident(TOpenDialog)operator(;) - ident(MultiStringSaveD)operator(:) ident(TSaveDialog)operator(;) - ident(MultiStringPU)operator(:) ident(TPopupMenu)operator(;) - ident(LadenMI)operator(:) ident(TMenuItem)operator(;) - ident(SpeichernMI)operator(:) ident(TMenuItem)operator(;) - ident(Hinzufgen1)operator(:) ident(TMenuItem)operator(;) - ident(N1)operator(:) ident(TMenuItem)operator(;) - ident(SisyPage)operator(:) ident(TTabSheet)operator(;) - ident(SpyClearTracesB)operator(:) ident(TButton)operator(;) - ident(Label11)operator(:) ident(TLabel)operator(;) - ident(HexEdit1)operator(:) ident(THexEdit)operator(;) - ident(Label12)operator(:) ident(TLabel)operator(;) - ident(Label13)operator(:) ident(TLabel)operator(;) - ident(SortMultiStringMI)operator(:) ident(TMenuItem)operator(;) - ident(SpyTestL)operator(:) ident(TLabel)operator(;) - ident(Panel3)operator(:) ident(TPanel)operator(;) - ident(CurValueE)operator(:) ident(TEdit)operator(;) - ident(BorderPanel8)operator(:) ident(TBorderPanel)operator(;) - ident(BorderPanel9)operator(:) ident(TBorderPanel)operator(;) - ident(SisyTV)operator(:) ident(TTreeView)operator(;) - ident(TabImages)operator(:) ident(TImageList)operator(;) - ident(ChangeImages)operator(:) ident(TImageList)operator(;) - ident(Panel7)operator(:) ident(TPanel)operator(;) - ident(ColorPanel1)operator(:) ident(TColorPanel)operator(;) - ident(Splitter2)operator(:) ident(TSplitter)operator(;) - ident(SpyDelayIE)operator(:) ident(TPrefIntEdit)operator(;) - ident(ListTracesCB)operator(:) ident(TPrefCheckBox)operator(;) - ident(Panel5)operator(:) ident(TPanel)operator(;) - ident(Panel8)operator(:) ident(TPanel)operator(;) - ident(SisyExpandGroupsCB)operator(:) ident(TPrefCheckBox)operator(;) - ident(ClearChangesB)operator(:) ident(TButton)operator(;) - ident(FilterChangesB)operator(:) ident(TButton)operator(;) - ident(SisyTVPU)operator(:) ident(TPopupMenu)operator(;) - ident(SisyGotoKeyMI)operator(:) ident(TMenuItem)operator(;) - ident(SisyDeleteChangeMI)operator(:) ident(TMenuItem)operator(;) - ident(SisyActivateChangeMI)operator(:) ident(TMenuItem)operator(;) - ident(N3)operator(:) ident(TMenuItem)operator(;) - ident(SisyCopyPathMI)operator(:) ident(TMenuItem)operator(;) - ident(N4)operator(:) ident(TMenuItem)operator(;) - ident(Panel9)operator(:) ident(TPanel)operator(;) - ident(ExternalEditB)operator(:) ident(TButton)operator(;) - ident(LoadExternalB)operator(:) ident(TButton)operator(;) - ident(ReloadStringB)operator(:) ident(TButton)operator(;) - ident(BinaryHM)operator(:) ident(TPHexMemo)operator(;) - ident(PipelineCB)operator(:) ident(TCheckBox)operator(;) - ident(ReloadDWordB)operator(:) ident(TButton)operator(;) - ident(ReloadBinaryB)operator(:) ident(TButton)operator(;) - ident(ReloadMultiStringB)operator(:) ident(TButton)operator(;) - ident(DescL)operator(:) ident(TLabel)operator(;) - ident(SisyHKUCB)operator(:) ident(TPrefCheckBox)operator(;) - ident(SisyHKLMCB)operator(:) ident(TPrefCheckBox)operator(;) - ident(SisyHKUL)operator(:) ident(TLabel)operator(;) - ident(SisyHKLML)operator(:) ident(TLabel)operator(;) - ident(SisyListCB)operator(:) ident(TPrefCheckBox)operator(;) - ident(CardSpecial0B)operator(:) ident(TButton)operator(;) - ident(CardSpecial1B)operator(:) ident(TButton)operator(;) - ident(CardSpecial_1B)operator(:) ident(TButton)operator(;) - ident(CardSpecial7FB)operator(:) ident(TButton)operator(;) - ident(SisyPU)operator(:) ident(TPopupMenu)operator(;) - ident(Idle1)operator(:) ident(TMenuItem)operator(;) - ident(Lowest1)operator(:) ident(TMenuItem)operator(;) - ident(Lower1)operator(:) ident(TMenuItem)operator(;) - ident(Normal1)operator(:) ident(TMenuItem)operator(;) - ident(Higher1)operator(:) ident(TMenuItem)operator(;) - ident(Highes1)operator(:) ident(TMenuItem)operator(;) - ident(SisyShowCurrentPathMI)operator(:) ident(TMenuItem)operator(;) - ident(N5)operator(:) ident(TMenuItem)operator(;) - ident(MultiStringTypeRG)operator(:) ident(TRadioGroup)operator(;) - ident(SeparatorE)operator(:) ident(TEdit)operator(;) - ident(Label1)operator(:) ident(TLabel)operator(;) - ident(MultiStringCountL)operator(:) ident(TLabel)operator(;) - ident(DropFileTarget)operator(:) ident(TDropFileTarget)operator(;) - ident(CryptoPage)operator(:) ident(TTabSheet)operator(;) - ident(BorderPanel3)operator(:) ident(TBorderPanel)operator(;) - ident(CryptoE)operator(:) ident(TEdit)operator(;) - ident(OKCryptoB)operator(:) ident(TButton)operator(;) - ident(CancelCryptoB)operator(:) ident(TButton)operator(;) - ident(ReloadCryptoB)operator(:) ident(TButton)operator(;) - ident(CryptoTypeRG)operator(:) ident(TRadioGroup)operator(;) - ident(Label2)operator(:) ident(TLabel)operator(;) - ident(LinkLabel2)operator(:) ident(TLinkLabel)operator(;) - reserved(procedure) ident(FormKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);) - reserved(procedure) ident(SpyResumeBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(SpySuspendBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(ArrPlutoBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(ArrRegEdBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(ArrFreeBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(ArrBigValBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - - reserved(procedure) ident(SpaceMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(FileMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(HintLBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(MainPCDrawTab)operator(()ident(Control)operator(:) ident(TCustomTabControl)operator(;) ident(TabIndex)operator(:) ident(Integer)operator(;) reserved(const) ident(Rect)operator(:) ident(TRect)operator(;) ident(Active)operator(:) ident(Boolean)operator(\);) - reserved(procedure) ident(ValueMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(StringEKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);) - reserved(procedure) ident(StringEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(OKStringBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(BoolStrCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(CardinalEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(CardBoolCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(CardinalEKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);) - reserved(procedure) ident(OKIntBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(ShowPCChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(ShowPCChanging)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(AllowChange)operator(:) ident(Boolean)operator(\);) - reserved(procedure) ident(ShowPCDrawTab)operator(()ident(Control)operator(:) ident(TCustomTabControl)operator(;) ident(TabIndex)operator(:) ident(Integer)operator(;) reserved(const) ident(Rect)operator(:) ident(TRect)operator(;) ident(Active)operator(:) ident(Boolean)operator(\);) - reserved(procedure) ident(ShowPCMouseDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Button)operator(:) ident(TMouseButton)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(;) ident(X)operator(,) ident(Y)operator(:) ident(Integer)operator(\);) - reserved(procedure) ident(FormCreate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(OKBinaryBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(HexGrid1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(HexGrid1KeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);) - reserved(procedure) ident(BoolStrPopup)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(StringPageEnter)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(IntPageEnter)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(BinaryPageEnter)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(ReInitShowPC)operator(;) - reserved(procedure) ident(ActivateIt)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(DeActivateIt)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(FormDeactivate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(FormActivate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(MultiStringMChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(OKMultiStringBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(StringAsColorPDblClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(MultiStringMEnter)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(LadenMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(SpeichernMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(Hinzufgen1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(CancelBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(HexGrid1Enter)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(SpyClearTracesBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(SpyLBKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);) - comment(//procedure BinLMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer\);) - reserved(procedure) ident(BinLClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(HexGrid1KeyUp)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);) - reserved(procedure) ident(ValueViewChanged)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(HexEdit1Change)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(SortMultiStringMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(SpyTestLClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(FocusForEditing)operator(;) - reserved(procedure) ident(CurValueEKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);) - reserved(procedure) ident(CurValueEEnter)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - - reserved(procedure) ident(AddAHint)operator(()reserved(const) ident(Hint)operator(:) reserved(string)operator(\);) - reserved(procedure) ident(SisyTVGetSelectedIndex)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\);) - reserved(procedure) ident(SisyTVDblClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(SisyTVKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);) - reserved(procedure) ident(SisyCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(BinaryHMLineChange)operator(()ident(NewLine)operator(:) ident(Cardinal)operator(\);) - reserved(procedure) ident(OffsetHEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(SpyDelayIEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(SisyTVExpanded)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\);) - reserved(procedure) ident(ClearChangesBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(FilterChangesBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(SisyTVPUPopup)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(SisyActivateChangeMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(SisyDeleteChangeMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(SisyCopyPathMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(ExternalEditBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(LoadExternalBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(ReloadBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(PipelineCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(BinaryHMEnter)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(xUseExtendedModelCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(SeparatorEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(HintLBKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);) - reserved(procedure) ident(DWORDSpecialBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(Button1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(SisyPUPopup)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(SisyPriorityMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(SisyShowCurrentPathMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(DropFileTargetDrop)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(ShiftState)operator(:) ident(TShiftState)operator(;) - ident(Point)operator(:) ident(TPoint)operator(;) reserved(var) ident(Effect)operator(:) ident(Integer)operator(\);) - reserved(procedure) ident(FormClose)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Action)operator(:) ident(TCloseAction)operator(\);) - reserved(procedure) ident(FormResize)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(IconImageDblClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(SisyTVCustomDrawItem)operator(()ident(Sender)operator(:) ident(TCustomTreeView)operator(;) - ident(Node)operator(:) ident(TTreeNode)operator(;) ident(State)operator(:) ident(TCustomDrawState)operator(;) reserved(var) ident(DefaultDraw)operator(:) ident(Boolean)operator(\);) - reserved(procedure) ident(SisyTVMouseDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Button)operator(:) ident(TMouseButton)operator(;) - ident(Shift)operator(:) ident(TShiftState)operator(;) ident(X)operator(,) ident(Y)operator(:) ident(Integer)operator(\);) - reserved(procedure) ident(OKCryptoBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) - reserved(procedure) ident(CryptoEKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) - ident(Shift)operator(:) ident(TShiftState)operator(\);) - directive(private) - ident(PipelineThread)operator(:) ident(TPipelineThread)operator(;) - ident(BoolStr)operator(:) reserved(array) reserved(of) reserved(array)operator([)ident(Boolean)operator(]) reserved(of) reserved(string)operator(;) - ident(HexEditAutoChange)operator(:) ident(Boolean)operator(;) - ident(TargetPage)operator(:) ident(TTabSheet)operator(;) - reserved(procedure) ident(DeleteChange)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\);) - reserved(procedure) ident(DeactivateChange)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\);) - reserved(procedure) ident(CopySelectedChangeName)operator(;) - reserved(procedure) ident(ClearChanges)operator(;) - directive(public) - ident(ShowAsBinary)operator(:) ident(Boolean)operator(;) - reserved(function) ident(LastHint)operator(:) reserved(string)operator(;) - reserved(function) ident(LoadBoolStr)operator(:) ident(Boolean)operator(;) - reserved(function) ident(LoadSisyFilter)operator(:) ident(Boolean)operator(;) - reserved(procedure) ident(ShowValues)operator(()ident(Reg)operator(:) ident(TXRegistry)operator(\);) - reserved(procedure) ident(UpdateWriteButtons)operator(;) - reserved(procedure) ident(EditData)operator(;) - reserved(end)operator(;) - -reserved(var) - ident(WorkWin)operator(:) ident(TWorkWin)operator(;) - ident(ShowPC)operator(:) ident(TPageControl)operator(;) - ident(MainPC)operator(:) ident(TPageControl)operator(;) - -reserved(implementation) - -reserved(uses) ident(TreeU)operator(,) ident(ValuesU)operator(,) ident(plutomain)operator(,) ident(splash)operator(,) ident(SisyphusTH)operator(,) ident(PrefU)operator(,) ident(ShellEx)operator(;) - -preprocessor({$R *.dfm}) - -reserved(function) ident(ColorOfString)operator(()ident(s)operator(:) reserved(string)operator(;) ident(Format)operator(:) ident(TColorStringFmt)operator(;) - ident(Default)operator(:) ident(TColor) operator(=) ident(clBlack)operator(\):) ident(TColor)operator(;) -reserved(var) - ident(SA)operator(:) ident(TStrA)operator(;) - ident(i)operator(:) ident(Integer)operator(;) -reserved(begin) - ident(Result) operator(:=) ident(Default)operator(;) - ident(SA) operator(:=) reserved(nil)operator(;) - - reserved(case) ident(Format) reserved(of) - ident(csfThreeSpacedDecimals)operator(:) reserved(begin) - ident(SA) operator(:=) ident(Split)operator(()ident(s)operator(,) char<delimiter(')content( )delimiter(')>operator(\);) - reserved(if) ident(Length)operator(()ident(SA)operator(\)) operator(<>) integer(3) reserved(then) - ident(Exit)operator(;) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) integer(2) reserved(do) - reserved(if) reserved(not) operator(()ident(IsValidInteger)operator(()ident(SA)operator([)ident(i)operator(]\)) reserved(and) operator(()ident(StrToIntDef)operator(()ident(SA)operator([)ident(i)operator(],) operator(-)integer(1)operator(\)) reserved(in) operator([)integer(0)operator(..)integer(255)operator(]\)\)) reserved(then) - ident(Exit)operator(;) - ident(Result) operator(:=) ident(ColorOfRGB)operator(()ident(StrToIntDef)operator(()ident(SA)operator([)integer(0)operator(],) integer(0)operator(\),) - ident(StrToIntDef)operator(()ident(SA)operator([)integer(1)operator(],) integer(0)operator(\),) - ident(StrToIntDef)operator(()ident(SA)operator([)integer(2)operator(],) integer(0)operator(\)\);) - reserved(end)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(function) ident(StringOfColor)operator(()ident(Color)operator(:) ident(TColor)operator(;) ident(Format)operator(:) ident(TColorStringFmt)operator(\):) reserved(string)operator(;) -reserved(var) - ident(RGB)operator(:) ident(TRGB)operator(;) -reserved(begin) - ident(Result) operator(:=) string<delimiter(')delimiter(')>operator(;) - - ident(RGB) operator(:=) ident(RGBOfColor)operator(()ident(Color)operator(\);) - reserved(case) ident(Format) reserved(of) - ident(csfThreeSpacedDecimals)operator(:) reserved(begin) - reserved(with) ident(RGB) reserved(do) - ident(Result) operator(:=) ident(IntToStr)operator(()ident(R)operator(\)) operator(+) char<delimiter(')content( )delimiter(')> operator(+) ident(IntToStr)operator(()ident(G)operator(\)) operator(+) char<delimiter(')content( )delimiter(')> operator(+) ident(IntToStr)operator(()ident(B)operator(\);) - reserved(end)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(function) ident(TWorkWin)operator(.)ident(LastHint)operator(:) reserved(string)operator(;) -reserved(begin) - reserved(with) ident(HintLB)operator(.)ident(Items) reserved(do) - reserved(if) ident(Count) operator(>) integer(0) reserved(then) - ident(Result) operator(:=) ident(Strings)operator([)ident(Count)operator(-)integer(1)operator(]) - reserved(else) - ident(Result) operator(:=) string<delimiter(')delimiter(')>operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(AddAHint)operator(()reserved(const) ident(Hint)operator(:) reserved(string)operator(\);) -reserved(begin) - reserved(if) reserved(not) ident(Assigned)operator(()ident(HintLB)operator(\)) reserved(then) - ident(Exit)operator(;) - - reserved(with) ident(HintLB)operator(.)ident(Items) reserved(do) reserved(begin) - reserved(if) ident(Count) operator(>) integer(0) reserved(then) reserved(begin) - reserved(if) ident(StrAtBegin)operator(()ident(LastHint)operator(,) ident(Hint)operator(\)) reserved(then) reserved(begin) comment(//same hint again) - reserved(with) ident(HintLB) reserved(do) - ident(Tag) operator(:=) ident(Tag) operator(+) integer(1)operator(;) - ident(Strings)operator([)ident(Count)operator(-)integer(1)operator(]) operator(:=) ident(Format)operator(()string<delimiter(')content(%s (%d\))delimiter(')>operator(,) operator([)ident(Hint)operator(,) ident(HintLB)operator(.)ident(Tag)operator(]\);) - ident(Exit) reserved(end) reserved(else) - ident(HintLB)operator(.)ident(Tag) operator(:=) integer(1)operator(;) - reserved(end)operator(;) - ident(Add)operator(()ident(Hint)operator(\);) - reserved(end)operator(;) - ident(Application)operator(.)ident(ProcessMessages)operator(;) comment(//draw) -comment(// Sleep(1000\); //wait to read hints) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(ReInitShowPC)operator(;) -reserved(begin) - reserved(with) ident(CurValueE) reserved(do) reserved(begin) - ident(Text) operator(:=) ident(NoValueCaption)operator(;) - ident(Font)operator(.)ident(Color) operator(:=) ident(clSilver)operator(;) - ident(Enabled) operator(:=) ident(False)operator(;) - reserved(end)operator(;) - - ident(ShowPC)operator(.)ident(ActivePage) operator(:=) reserved(nil)operator(;) - - ident(StringE)operator(.)ident(Text) operator(:=) string<delimiter(')delimiter(')>operator(;) - ident(StringTypeRG)operator(.)ident(ItemIndex) operator(:=) integer(0)operator(;) - - ident(MultiStringTypeRG)operator(.)ident(Buttons)operator([)integer(1)operator(].)ident(Enabled) operator(:=) ident(False)operator(;) - - ident(CardinalE)operator(.)ident(Value) operator(:=) integer(0)operator(;) - ident(CardTypeRG)operator(.)ident(ItemIndex) operator(:=) integer(0)operator(;) - - ident(BinaryHM)operator(.)ident(Data) operator(:=) reserved(nil)operator(;) - ident(PipelineCB)operator(.)ident(Checked) operator(:=) ident(False)operator(;) - - ident(DataTypeComB)operator(.)ident(ItemIndex) operator(:=) ident(Integer)operator(()ident(rdBinary)operator(\);) - - ident(MultiStringM)operator(.)ident(Clear)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(FormKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) - ident(Shift)operator(:) ident(TShiftState)operator(\);) -reserved(begin) - ident(MainWin)operator(.)ident(FormKeyDown)operator(()ident(Sender)operator(,) ident(Key)operator(,) ident(Shift)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(SpyResumeBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(SpyThread)operator(.)ident(Resume)operator(;) - ident(SpyTestLClick)operator(()ident(Sender)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(SpySuspendBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(SpyThread)operator(.)ident(Suspend)operator(;) - ident(SpyTestLClick)operator(()ident(Sender)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(ArrPlutoBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(ArrangePlutoStyle)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(ArrRegEdBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(ArrangeRegEdStyle)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(ArrFreeBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(ArrangeFreeStyle)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(ArrBigValBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(ArrangeBigValStyle)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(SpaceMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(StringE)operator(.)ident(Text) operator(:=) string<delimiter(')delimiter(')>operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(HintLBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(StatusBar)operator(.)ident(Panels)operator([)integer(0)operator(].)ident(Text) operator(:=) ident(GetSel)operator(()ident(HintLB)operator(\);) - ident(WorkWin)operator(.)ident(InfoMemo)operator(.)ident(Text) operator(:=) ident(StatusBar)operator(.)ident(Panels)operator([)integer(0)operator(].)ident(Text)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(MainPCDrawTab)operator(()ident(Control)operator(:) ident(TCustomTabControl)operator(;) ident(TabIndex)operator(:) ident(Integer)operator(;) - reserved(const) ident(Rect)operator(:) ident(TRect)operator(;) ident(Active)operator(:) ident(Boolean)operator(\);) -reserved(var) - ident(PC)operator(:) ident(TPageControl)operator(;) - ident(Page)operator(:) ident(TTabSheet)operator(;) -reserved(begin) - ident(PC) operator(:=) ident(TPageControl)operator(()ident(Control)operator(\);) - ident(Page) operator(:=) ident(PC)operator(.)ident(Pages)operator([)ident(TabIndex)operator(];) - reserved(with) ident(PC)operator(.)ident(Canvas)operator(.)ident(Font) reserved(do) reserved(begin) - reserved(if) ident(Page)operator(.)ident(Caption) operator(=) string<delimiter(')content(Hint)delimiter(')> reserved(then) - ident(Color) operator(:=) ident(clBrightRed) - reserved(else) reserved(if) ident(Page)operator(.)ident(Caption) operator(=) string<delimiter(')content(Edit)delimiter(')> reserved(then) - ident(Color) operator(:=) ident(clBrightGreen) - reserved(else) reserved(if) ident(Page)operator(.)ident(Caption) operator(=) string<delimiter(')content(Spy)delimiter(')> reserved(then) - ident(Color) operator(:=) ident(clBrightBlue) - reserved(else) reserved(if) ident(Page)operator(.)ident(Caption) operator(=) string<delimiter(')content(Sisyphus)delimiter(')> reserved(then) - ident(Color) operator(:=) ident(clBrightCyan) - reserved(else) - ident(Color) operator(:=) ident(clWhite)operator(;) - reserved(end)operator(;) - - reserved(with) ident(PC)operator(.)ident(Canvas) reserved(do) - reserved(if) ident(Active) reserved(then) reserved(begin) - ident(Font)operator(.)ident(Style) operator(:=) operator([)ident(fsBold)operator(];) - ident(Brush)operator(.)ident(Color) operator(:=) ident(clDarkGray)operator(;) - ident(FillRect)operator(()ident(Rect)operator(\);) - ident(TextOut)operator(()ident(Rect)operator(.)ident(Left) operator(+) integer(18) operator(+) integer(5)operator(,) ident(Rect)operator(.)ident(Top) operator(+) integer(3)operator(,) ident(Page)operator(.)ident(Caption)operator(\);) - ident(PC)operator(.)ident(Images)operator(.)ident(Draw)operator(()ident(PC)operator(.)ident(Canvas)operator(,) ident(Rect)operator(.)ident(Left) operator(+) integer(4)operator(,) ident(Rect)operator(.)ident(Top) operator(+) integer(2)operator(,) ident(Page)operator(.)ident(ImageIndex)operator(\);) - reserved(end) reserved(else) reserved(begin) - ident(Font)operator(.)ident(Style) operator(:=) operator([];) - ident(Brush)operator(.)ident(Color) operator(:=) ident(clDarkGray)operator(;) - ident(FillRect)operator(()ident(Rect)operator(\);) - ident(TextOut)operator(()ident(Rect)operator(.)ident(Left) operator(+) integer(18) operator(+) integer(3)operator(,) ident(Rect)operator(.)ident(Top) operator(+) integer(2)operator(,) ident(Page)operator(.)ident(Caption)operator(\);) - ident(PC)operator(.)ident(Images)operator(.)ident(Draw)operator(()ident(PC)operator(.)ident(Canvas)operator(,) ident(Rect)operator(.)ident(Left) operator(+) integer(1)operator(,) ident(Rect)operator(.)ident(Top) operator(+) integer(1)operator(,) ident(Page)operator(.)ident(ImageIndex)operator(\);) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(ValueMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(StringE)operator(.)ident(Text) operator(:=) ident(UntilStr)operator(()ident(TMenuItem)operator(()ident(Sender)operator(\).)ident(Caption)operator(,)string<delimiter(')content( = )delimiter(')>operator(\);) - ident(OKStringBClick)operator(()ident(Sender)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(StringEKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) - ident(Shift)operator(:) ident(TShiftState)operator(\);) -reserved(begin) - reserved(if) ident(key) operator(=) ident(VK_RETURN) reserved(then) reserved(begin) - ident(OKStringBClick)operator(()ident(Sender)operator(\);) - ident(ValuesWin)operator(.)ident(FocusControl)operator(()ident(ValueList)operator(\);) - reserved(end)operator(;) - reserved(if) ident(key) operator(=) ident(VK_ESCAPE) reserved(then) - ident(CancelBClick)operator(()ident(Sender)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(StringEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(i)operator(:) ident(Integer)operator(;) - ident(State)operator(:) ident(TCheckBoxState)operator(;) - ident(Desc)operator(:) reserved(string)operator(;) -reserved(begin) - ident(IconImage)operator(.)ident(Picture) operator(:=) reserved(nil)operator(;) - - reserved(with) ident(StringAsColorP) reserved(do) reserved(begin) - ident(Color) operator(:=) ident(ColorOfString)operator(()ident(StringE)operator(.)ident(Text)operator(,) ident(csfThreeSpacedDecimals)operator(,) operator(-)integer(1)operator(\);) - ident(Visible) operator(:=) ident(Color) operator(<>) operator(-)integer(1)operator(;) - reserved(end)operator(;) - - reserved(try) - reserved(with) ident(IconImage)operator(.)ident(Picture)operator(.)ident(Icon) reserved(do) reserved(begin) - ident(ReleaseHandle)operator(;) - ident(Handle) operator(:=) ident(GetIconFromFile)operator(()ident(StringE)operator(.)ident(Text)operator(\);) - ident(StringAsFileP)operator(.)ident(Visible) operator(:=) ident(Handle) operator(<>) integer(0)operator(;) - reserved(end)operator(;) - reserved(except) - reserved(end)operator(;) - - ident(State) operator(:=) ident(cbGrayed)operator(;) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(High)operator(()ident(BoolStr)operator(\)) reserved(do) reserved(begin) - reserved(if) ident(StringE)operator(.)ident(Text) operator(=) ident(BoolStr)operator([)ident(i)operator(][)ident(False)operator(]) reserved(then) - ident(State) operator(:=) ident(cbUnchecked) - reserved(else) reserved(if) ident(StringE)operator(.)ident(Text) operator(=) ident(BoolStr)operator([)ident(i)operator(][)ident(True)operator(]) reserved(then) - ident(State) operator(:=) ident(cbChecked) - reserved(else) - ident(Continue)operator(;) - ident(Break)operator(;) - reserved(end)operator(;) - - ident(BoolStrCB)operator(.)ident(Visible) operator(:=) ident(State) reserved(in) operator([)ident(cbChecked)operator(,) ident(cbUnchecked)operator(];) - ident(BoolStrCB)operator(.)ident(State) operator(:=) ident(State)operator(;) - - ident(Desc) operator(:=) ident(StringE)operator(.)ident(Text)operator(;) - ident(Desc) operator(:=) ident(RegNameOfCLSID)operator(()ident(Desc)operator(\);) - reserved(with) ident(DescL) reserved(do) reserved(begin) - ident(Visible) operator(:=) operator(()ident(Desc) operator(<>) string<delimiter(')delimiter(')>operator(\);) - reserved(if) ident(Visible) reserved(then) - ident(Caption) operator(:=) string<delimiter(')content(CLSID is: )delimiter(')> operator(+) ident(Desc)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(OKStringBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(i)operator(:) ident(Integer)operator(;) -reserved(begin) - reserved(try) - ident(OpenCurKey)operator(;) - reserved(with) ident(ValuesWin)operator(.)ident(ValueNames) reserved(do) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Count)operator(-)integer(1) reserved(do) reserved(begin) - reserved(case) ident(StringTypeRG)operator(.)ident(ItemIndex) reserved(of) - integer(0)operator(:) ident(MainReg)operator(.)ident(WriteString)operator(()ident(Strings)operator([)ident(i)operator(],) ident(StringE)operator(.)ident(Text)operator(\);) - integer(1)operator(:) ident(MainReg)operator(.)ident(WriteExpandString)operator(()ident(Strings)operator([)ident(i)operator(],) ident(StringE)operator(.)ident(Text)operator(\);) - reserved(end)operator(;) - reserved(end)operator(;) - ident(ValuesWin)operator(.)ident(UpdateValues)operator(()ident(True)operator(\);) - reserved(finally) - ident(MainReg)operator(.)ident(CloseKey)operator(;) - reserved(end)operator(;) - ident(ValuesWin)operator(.)ident(ValueListDblClick)operator(()ident(Sender)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(BoolStrCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(i)operator(:) ident(Integer)operator(;) -reserved(begin) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(High)operator(()ident(BoolStr)operator(\)) reserved(do) reserved(begin) - reserved(if) operator(()ident(BoolStr)operator([)ident(i)operator(,) ident(False)operator(]) operator(=) ident(StringE)operator(.)ident(Text)operator(\)) - reserved(or) operator(()ident(BoolStr)operator([)ident(i)operator(,) ident(True)operator(]) operator(=) ident(StringE)operator(.)ident(Text)operator(\)) reserved(then) - ident(Break)operator(;) - reserved(end)operator(;) - - reserved(if) ident(i) operator(>) ident(High)operator(()ident(BoolStr)operator(\)) reserved(then) - ident(Exit)operator(;) - - ident(StringE)operator(.)ident(Text) operator(:=) ident(BoolStr)operator([)ident(i)operator(][)ident(BoolStrCB)operator(.)ident(Checked)operator(];) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(CardinalEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(HexEditAutoChange) operator(:=) ident(True)operator(;) - reserved(with) ident(CardBoolCB) reserved(do) reserved(begin) - ident(Enabled) operator(:=) ident(True)operator(;) - reserved(case) ident(CardinalE)operator(.)ident(Value) reserved(of) - integer(1)operator(:) ident(Checked) operator(:=) ident(True)operator(;) - integer(0)operator(:) ident(Checked) operator(:=) ident(False)operator(;) - reserved(else) - ident(Enabled) operator(:=) ident(False)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - ident(HexEdit1)operator(.)ident(Value) operator(:=) ident(CardinalE)operator(.)ident(Value)operator(;) - ident(HexEditAutoChange) operator(:=) ident(False)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(CardBoolCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(if) ident(HexEditAutoChange) reserved(then) - ident(Exit)operator(;) - ident(CardinalE)operator(.)ident(Value) operator(:=) ident(Ord)operator(()ident(CardBoolCB)operator(.)ident(Checked)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(CardinalEKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) - ident(Shift)operator(:) ident(TShiftState)operator(\);) -reserved(begin) - reserved(if) ident(key) operator(=) ident(VK_RETURN) reserved(then) reserved(begin) - ident(OKIntBClick)operator(()ident(Sender)operator(\);) - ident(ValuesWin)operator(.)ident(FocusControl)operator(()ident(ValueList)operator(\);) - reserved(end)operator(;) - - reserved(if) ident(key) operator(=) ident(VK_ESCAPE) reserved(then) - ident(CancelBClick)operator(()ident(Sender)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(OKIntBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(i)operator(:) ident(Integer)operator(;) - - reserved(procedure) ident(Write4BB)operator(()reserved(const) ident(ValueName)operator(:) reserved(string)operator(;) ident(Value)operator(:) ident(Cardinal)operator(\);) - reserved(var) - ident(Typ)operator(:) ident(TRegDataType)operator(;) - reserved(begin) - reserved(if) ident(MainReg)operator(.)ident(ValueReallyExists)operator(()ident(ValueName)operator(\)) reserved(then) - ident(Typ) operator(:=) ident(MainReg)operator(.)ident(GetDataType)operator(()ident(ValueName)operator(\)) - reserved(else) - ident(Typ) operator(:=) ident(rdBinary)operator(;) - - reserved(if) ident(Typ) reserved(in) ident(rdCardTypes) reserved(then) - ident(Typ) operator(:=) ident(rdBinary)operator(;) - - ident(MainReg)operator(.)ident(WriteBinType)operator(()ident(ValueName)operator(,) ident(ByteAOfInt)operator(()ident(CardinalE)operator(.)ident(Value)operator(\),) ident(Typ)operator(\);) - reserved(end)operator(;) - -reserved(begin) - reserved(try) - ident(OpenCurKey)operator(;) - reserved(with) ident(ValuesWin)operator(.)ident(ValueNames) reserved(do) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Count)operator(-)integer(1) reserved(do) reserved(begin) - reserved(case) ident(CardTypeRG)operator(.)ident(ItemIndex) reserved(of) - integer(0)operator(:) ident(MainReg)operator(.)ident(WriteCardinal)operator(()ident(Strings)operator([)ident(i)operator(],) ident(CardinalE)operator(.)ident(Value)operator(\);) - integer(1)operator(:) ident(MainReg)operator(.)ident(WriteCardinal)operator(()ident(Strings)operator([)ident(i)operator(],) ident(CardinalE)operator(.)ident(Value)operator(,) ident(True)operator(\);) - integer(2)operator(:) ident(Write4BB)operator(()ident(Strings)operator([)ident(i)operator(],) ident(CardinalE)operator(.)ident(Value)operator(\);) - reserved(end)operator(;) - reserved(end)operator(;) - ident(ValuesWin)operator(.)ident(UpdateValues)operator(()ident(True)operator(\);) - reserved(finally) - ident(MainReg)operator(.)ident(CloseKey)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(ShowPCChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(FocusControl)operator(()ident(TObject)operator(()ident(ShowPC)operator(.)ident(ActivePage)operator(.)ident(Tag)operator(\)) reserved(as) ident(TWinControl)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(ShowPCChanging)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(AllowChange)operator(:) ident(Boolean)operator(\);) - - reserved(function) ident(ByteAOfDWORD)operator(()ident(a)operator(:) ident(DWORD)operator(\):) ident(TByteA)operator(;) - reserved(begin) - ident(SetLength)operator(()ident(Result)operator(,) ident(SizeOf)operator(()ident(DWORD)operator(\)\);) - ident(Move)operator(()ident(a)operator(,) ident(Pointer)operator(()ident(Result)operator(\)^,) ident(SizeOf)operator(()ident(DWORD)operator(\)\);) - reserved(end)operator(;) - -reserved(var) - ident(SourcePage)operator(:) ident(TTabSheet)operator(;) - ident(ValueName)operator(:) reserved(string)operator(;) -reserved(begin) - ident(SourcePage) operator(:=) ident(ShowPC)operator(.)ident(ActivePage)operator(;) - reserved(if) ident(SourcePage) operator(=) ident(IntPage) reserved(then) reserved(begin) - - reserved(if) ident(TargetPage) operator(=) ident(StringPage) reserved(then) reserved(begin) - ident(AddHint)operator(()string<delimiter(')content(Converting: DWORD --> String)delimiter(')>operator(\);) - ident(StringE)operator(.)ident(Text) operator(:=) ident(CardinalE)operator(.)ident(Text)operator(;) - reserved(end) reserved(else) reserved(if) ident(TargetPage) operator(=) ident(BinaryPage) reserved(then) reserved(begin) - ident(AddHint)operator(()string<delimiter(')content(Converting: DWORD --> Binary)delimiter(')>operator(\);) - ident(BinaryHM)operator(.)ident(Data) operator(:=) ident(ByteAOfDWORD)operator(()ident(CardinalE)operator(.)ident(Value)operator(\);) - reserved(end) reserved(else) - ident(AllowChange) operator(:=) ident(False)operator(;) - - reserved(end) reserved(else) reserved(if) ident(SourcePage) operator(=) ident(StringPage) reserved(then) reserved(begin) - reserved(if) ident(TargetPage) operator(=) ident(IntPage) reserved(then) reserved(begin) - reserved(if) ident(IsValidCardinal)operator(()ident(StringE)operator(.)ident(Text)operator(\)) reserved(then) reserved(begin) - ident(AddHint)operator(()string<delimiter(')content(Converting: String --> DWORD)delimiter(')>operator(\);) - ident(CardinalE)operator(.)ident(Text) operator(:=) ident(StringE)operator(.)ident(Text)operator(;) - reserved(end) reserved(else) reserved(begin) - ident(AddHint)operator(()string<delimiter(')content(This no valid DWORD; Converting aborted.)delimiter(')>operator(,) ident(True)operator(\);) - ident(AllowChange) operator(:=) ident(False)operator(;) - reserved(end)operator(;) - reserved(end) reserved(else) reserved(if) ident(TargetPage) operator(=) ident(BinaryPage) reserved(then) reserved(begin) - ident(AddHint)operator(()string<delimiter(')content(Converting: String --> Binary)delimiter(')>operator(\);) - ident(BinaryHM)operator(.)ident(Data) operator(:=) ident(TByteA)operator(()ident(StringE)operator(.)ident(Text)operator(\);) - reserved(end) reserved(else) reserved(if) ident(TargetPage) operator(=) ident(MultiStringPage) reserved(then) reserved(begin) - ident(AddHint)operator(()string<delimiter(')content(Converting: String --> MultiString)delimiter(')>operator(\);) - reserved(if) ident(SeparatorE)operator(.)ident(Text) operator(=) string<delimiter(')delimiter(')> reserved(then) - ident(MultiStringM)operator(.)ident(Text) operator(:=) ident(StringE)operator(.)ident(Text)operator(;) - ident(SeparatorEChange)operator(()ident(Sender)operator(\);) - reserved(end) reserved(else) - ident(AllowChange) operator(:=) ident(False)operator(;) - - reserved(end) reserved(else) reserved(if) ident(SourcePage) operator(=) ident(BinaryPage) reserved(then) reserved(begin) - reserved(if) ident(TargetPage) operator(=) ident(StringPage) reserved(then) reserved(begin) - ident(AddHint)operator(()string<delimiter(')content(Converting: Binary --> String)delimiter(')>operator(\);) - ident(StringE)operator(.)ident(Text) operator(:=) ident(FriendlyStr)operator(()reserved(string)operator(()ident(BinaryHM)operator(.)ident(Data)operator(\)\);) - reserved(end) reserved(else) reserved(if) ident(TargetPage) operator(=) ident(IntPage) reserved(then) reserved(begin) - reserved(if) ident(Length)operator(()ident(BinaryHM)operator(.)ident(Data)operator(\)) operator(>=) ident(SizeOf)operator(()ident(DWORD)operator(\)) reserved(then) reserved(begin) - ident(AddHint)operator(()string<delimiter(')content(Converting: Binary --> DWORD)delimiter(')>operator(\);) - ident(CardinalE)operator(.)ident(Value) operator(:=) ident(PDWORD)operator(()ident(BinaryHM)operator(.)ident(Data)operator(\)^;) - reserved(end) reserved(else) reserved(begin) - ident(AddHint)operator(()string<delimiter(')content(Binary value not long enough (4 Byte\); Converting aborted.)delimiter(')>operator(,) ident(True)operator(\);) - ident(AllowChange) operator(:=) ident(False)operator(;) - reserved(end)operator(;) - reserved(end) reserved(else) reserved(if) ident(TargetPage) operator(=) ident(CryptoPage) reserved(then) reserved(begin) - reserved(if) ident(ValuesWin)operator(.)ident(ValueNames)operator(.)ident(Count) operator(=) integer(1) reserved(then) reserved(begin) - ident(ValueName) operator(:=) ident(ValuesWin)operator(.)ident(ValueNames)operator([)integer(0)operator(];) - reserved(with) ident(CryptoTypeRG) reserved(do) reserved(begin) - ident(ItemIndex) operator(:=) operator(-)integer(1)operator(;) - reserved(if) ident(SameText)operator(()ident(ValueName)operator(,) string<delimiter(')content(ScreenSave_Data)delimiter(')>operator(\)) reserved(then) reserved(begin) - ident(ItemIndex) operator(:=) integer(0)operator(;) - ident(CryptoE)operator(.)ident(Text) operator(:=) ident(DecodeScreenSaver)operator(()ident(BinaryHM)operator(.)ident(Data)operator(\);) - reserved(end) reserved(else) reserved(if) ident(SameText)operator(()ident(ValueName)operator(,) string<delimiter(')content(parm1enc)delimiter(')>operator(\)) - reserved(or) ident(SameText)operator(()ident(ValueName)operator(,) string<delimiter(')content(parm2enc)delimiter(')>operator(\)) reserved(then) reserved(begin) - ident(ItemIndex) operator(:=) integer(1)operator(;) - ident(CryptoE)operator(.)ident(Text) operator(:=) ident(DecodeSharedFolder)operator(()ident(BinaryHM)operator(.)ident(Data)operator(\);) - reserved(end)operator(;) - reserved(end)operator(;) - reserved(if) ident(CryptoTypeRG)operator(.)ident(ItemIndex) operator(=) operator(-)integer(1) reserved(then) - ident(AllowChange) operator(:=) ident(False)operator(;) - reserved(end)operator(;) - reserved(end) reserved(else) - ident(AllowChange) operator(:=) ident(False)operator(;) - - reserved(end) reserved(else) reserved(if) ident(SourcePage) operator(=) ident(MultiStringPage) reserved(then) reserved(begin) - reserved(if) ident(TargetPage) operator(=) ident(StringPage) reserved(then) reserved(begin) - ident(AddHint)operator(()string<delimiter(')content(Converting: MultiString --> String )delimiter(')>operator(\);) - reserved(if) ident(SeparatorE)operator(.)ident(Text) operator(=) string<delimiter(')delimiter(')> reserved(then) - ident(StringE)operator(.)ident(Text) operator(:=) ident(MultiStringM)operator(.)ident(Text) - reserved(else) - ident(StringE)operator(.)ident(Text) operator(:=) ident(Join)operator(()ident(MultiStringM)operator(.)ident(Lines)operator(,) ident(SeparatorE)operator(.)ident(Text)operator(\);) - comment(//end else if TargetPage = BinaryPage then begin) - reserved(end) reserved(else) - ident(AllowChange) operator(:=) ident(False)operator(;) - - reserved(end) reserved(else) - ident(AllowChange) operator(:=) ident(False)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(ShowPCDrawTab)operator(()ident(Control)operator(:) ident(TCustomTabControl)operator(;) ident(TabIndex)operator(:) ident(Integer)operator(;) - reserved(const) ident(Rect)operator(:) ident(TRect)operator(;) ident(Active)operator(:) ident(Boolean)operator(\);) -reserved(var) - ident(PC)operator(:) ident(TPageControl)operator(;) - ident(Page)operator(:) ident(TTabSheet)operator(;) -reserved(begin) - ident(PC) operator(:=) ident(TPageControl)operator(()ident(Control)operator(\);) - ident(Page) operator(:=) ident(PC)operator(.)ident(Pages)operator([)ident(TabIndex)operator(];) - reserved(with) ident(PC)operator(.)ident(Canvas)operator(.)ident(Font) reserved(do) reserved(begin) - reserved(if) ident(Page) operator(=) ident(StringPage) reserved(then) - ident(Color) operator(:=) ident(clBrightRed) - reserved(else) reserved(if) ident(Page) operator(=) ident(MultiStringPage) reserved(then) - ident(Color) operator(:=) ident(clBrightPurple) - reserved(else) reserved(if) ident(Page) operator(=) ident(IntPage) reserved(then) - ident(Color) operator(:=) ident(clBrightBlue) - reserved(else) reserved(if) ident(Page) operator(=) ident(BinaryPage) reserved(then) - ident(Color) operator(:=) ident(clBrightGreen) - reserved(else) reserved(if) ident(Page) operator(=) ident(CryptoPage) reserved(then) - ident(Color) operator(:=) ident(clBrightCyan)operator(;) - reserved(end)operator(;) - - reserved(with) ident(PC)operator(.)ident(Canvas) reserved(do) reserved(begin) - reserved(if) ident(Active) reserved(then) - ident(Brush)operator(.)ident(Color) operator(:=) ident(clGray) - reserved(else) - ident(Brush)operator(.)ident(Color) operator(:=) ident(clDarkGray)operator(;) - ident(FillRect)operator(()ident(Rect)operator(\);) - ident(TextOut)operator(()ident(Rect)operator(.)ident(Left) operator(+) integer(18) operator(+) integer(3)operator(,) ident(Rect)operator(.)ident(Top)operator(,) ident(Page)operator(.)ident(Caption)operator(\);) - ident(MainWin)operator(.)ident(ImageList1)operator(.)ident(Draw)operator(()ident(Control)operator(.)ident(Canvas)operator(,) ident(Rect)operator(.)ident(Left) operator(-) integer(1)operator(,) ident(Rect)operator(.)ident(Top) operator(-) integer(1)operator(,) ident(Page)operator(.)ident(ImageIndex)operator(\);) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(ShowPCMouseDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Button)operator(:) ident(TMouseButton)operator(;) - ident(Shift)operator(:) ident(TShiftState)operator(;) ident(X)operator(,) ident(Y)operator(:) ident(Integer)operator(\);) -reserved(begin) - reserved(with) ident(ShowPC) reserved(do) - reserved(if) ident(htOnItem) reserved(in) ident(GetHitTestInfoAt)operator(()ident(X)operator(,) ident(Y)operator(\)) reserved(then) - ident(TargetPage) operator(:=) ident(Pages)operator([)ident(IndexOfTabAt)operator(()ident(X)operator(,) ident(Y)operator(\)];) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(FormCreate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(i)operator(:) ident(Integer)operator(;) -reserved(begin) - ident(WorkU)operator(.)ident(ShowPC) operator(:=) ident(ShowPC)operator(;) - ident(WorkU)operator(.)ident(MainPC) operator(:=) ident(MainPC)operator(;) - - comment(//Zeromize) - ident(ShowPC)operator(.)ident(ActivePage) operator(:=) reserved(nil)operator(;) - ident(InfoMemo)operator(.)ident(Text) operator(:=) string<delimiter(')delimiter(')>operator(;) - ident(MultiStringM)operator(.)ident(Clear)operator(;) - ident(SisyTV)operator(.)ident(Items)operator(.)ident(Clear)operator(;) - ident(CurValueE)operator(.)ident(Text) operator(:=) ident(NoValueCaption)operator(;) - ident(HexEditAutoChange) operator(:=) ident(False)operator(;) - ident(TargetPage) operator(:=) reserved(nil)operator(;) - - comment(//Tagging) - ident(StringPage)operator(.)ident(Tag) operator(:=) ident(Integer)operator(()ident(StringE)operator(\);) - ident(IntPage)operator(.)ident(Tag) operator(:=) ident(Integer)operator(()ident(CardinalE)operator(\);) - ident(BinaryPage)operator(.)ident(Tag) operator(:=) ident(Integer)operator(()ident(BinaryHM)operator(\);) - ident(MultiStringPage)operator(.)ident(Tag) operator(:=) ident(Integer)operator(()ident(MultiStringM)operator(\);) - ident(ShowAsBinary) operator(:=) ident(False)operator(;) - - reserved(if) reserved(not) ident(Win9x) reserved(then) - ident(CryptoPage)operator(.)ident(TabVisible) operator(:=) ident(False)operator(;) - - ident(MainPC)operator(.)ident(ActivePage) operator(:=) ident(HintPage)operator(;) - ident(ShowPC)operator(.)ident(ActivePage) operator(:=) reserved(nil)operator(;) - - ident(DropFileTarget)operator(.)directive(register)operator(()ident(StringE)operator(\);) - - reserved(with) ident(StringTypeRG) reserved(do) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(ControlCount)operator(-)integer(1) reserved(do) - operator(()ident(Controls)operator([)ident(i)operator(]) reserved(as) ident(TRadioButton)operator(\).)ident(OnKeyDown) operator(:=) ident(StringEKeyDown)operator(;) - - ident(ExternalEditB)operator(.)ident(Enabled) operator(:=) ident(FileEx)operator(()ident(PrefWin)operator(.)ident(ExternalHexEditE)operator(.)ident(Text)operator(\);) - - ident(PipelineThread) operator(:=) ident(TPipelineThread)operator(.)ident(CreateIt)operator(()ident(tpIdle)operator(,) string<delimiter(')delimiter(')>operator(,) ident(BinaryHM)operator(\);) - ident(PipelineThread)operator(.)ident(OnChange) operator(:=) ident(LoadExternalBClick)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(OKBinaryBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(Typ)operator(:) ident(Cardinal)operator(;) - ident(i)operator(:) ident(Integer)operator(;) -reserved(begin) - reserved(try) - ident(Typ) operator(:=) ident(StrToIntDef)operator(()ident(UntilChar)operator(()ident(DataTypeComB)operator(.)ident(Text)operator(,) char<delimiter(')content( )delimiter(')>operator(\),) ident(Integer)operator(()ident(rdBinary)operator(\)\);) - ident(OpenCurKey)operator(;) - reserved(with) ident(ValuesWin)operator(.)ident(ValueNames) reserved(do) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Count)operator(-)integer(1) reserved(do) - ident(MainReg)operator(.)ident(WriteBinType)operator(()ident(Strings)operator([)ident(i)operator(],) ident(BinaryHM)operator(.)ident(Data)operator(,) ident(Typ)operator(\);) - ident(ValuesWin)operator(.)ident(UpdateValues)operator(()ident(True)operator(\);) - reserved(finally) - ident(MainReg)operator(.)ident(CloseKey)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(HexGrid1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - comment({with BinaryHM do begin - with BinL, Font do - if ActiveByte < ByteCount then - Color := clBrightGreen - else begin - Color := clSilver; - Caption := '00000000'; - end; - BinL.Caption := IntToBinFill(CurrentByte, 8\); - end; }) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(HexGrid1KeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) - ident(Shift)operator(:) ident(TShiftState)operator(\);) -reserved(begin) - reserved(if) ident(key) operator(=) ident(VK_RETURN) reserved(then) reserved(begin) - ident(OKBinaryBClick)operator(()ident(Sender)operator(\);) - ident(ValuesWin)operator(.)ident(FocusControl)operator(()ident(ValueList)operator(\);) - reserved(end)operator(;) - reserved(if) ident(key) operator(=) ident(VK_ESCAPE) reserved(then) - ident(CancelBClick)operator(()ident(Sender)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(BoolStrPopup)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(StringE)operator(.)ident(Text) operator(:=) ident(TMenuItem)operator(()ident(Sender)operator(\).)ident(Caption)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(StringPageEnter)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(FocusControl)operator(()ident(StringE)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(IntPageEnter)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(FocusControl)operator(()ident(CardinalE)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(BinaryPageEnter)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(FocusControl)operator(()ident(BinaryHM)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(ActivateIt)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(ActivateThis)operator(()ident(Sender)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(DeActivateIt)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(DeActivateThis)operator(()ident(Sender)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(FormDeactivate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(if) ident(Assigned)operator(()ident(ActiveControl)operator(\)) reserved(and) operator(()ident(ActiveControl)operator(.)ident(Tag) operator(=) ident(EditControlFlag)operator(\)) reserved(then) - ident(TEdit)operator(()ident(ActiveControl)operator(\).)ident(OnExit)operator(()ident(Sender)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(FormActivate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(if) ident(Assigned)operator(()ident(ActiveControl)operator(\)) reserved(and) operator(()ident(ActiveControl)operator(.)ident(Tag) operator(=) ident(EditControlFlag)operator(\)) reserved(then) - ident(TEdit)operator(()ident(ActiveControl)operator(\).)ident(OnEnter)operator(()ident(Sender)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(MultiStringMChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(MultiStringCountL)operator(.)ident(Caption) operator(:=) ident(StrNumerus)operator(()ident(MultiStringM)operator(.)ident(Lines)operator(.)ident(Count)operator(,) - string<delimiter(')content(Line)delimiter(')>operator(,) string<delimiter(')content(Lines)delimiter(')>operator(,) string<delimiter(')content(No)delimiter(')>operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(OKMultiStringBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(UseExtendedModel)operator(:) ident(Boolean)operator(;) - ident(i)operator(:) ident(Integer)operator(;) - ident(JoinedText)operator(:) reserved(string)operator(;) -reserved(begin) - reserved(if) operator(()ident(MultiStringTypeRG)operator(.)ident(ItemIndex) operator(=) integer(1)operator(\)) reserved(then) reserved(begin) - reserved(if) ident(ValuesWin)operator(.)ident(ValueCommonType) operator(=) ident(rdMultiString) reserved(then) - reserved(if) ident(mrYes)operator(<>)ident(MessageDlg)operator(()string<delimiter(')content(Do you want to change the type of this value?)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(MultiString --> String)delimiter(')>operator(,) ident(mtWarning)operator(,) operator([)ident(mbYes)operator(,) ident(mbCancel)operator(],) integer(0)operator(\)) reserved(then) - ident(Exit)operator(;) - - reserved(try) - ident(OpenCurKey)operator(;) - ident(JoinedText) operator(:=) ident(Join)operator(()ident(MultiStringM)operator(.)ident(Lines)operator(,) ident(SeparatorE)operator(.)ident(Text)operator(\);) - reserved(with) ident(ValuesWin)operator(.)ident(ValueNames) reserved(do) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Count)operator(-)integer(1) reserved(do) - ident(MainReg)operator(.)ident(WriteString)operator(()ident(Strings)operator([)ident(i)operator(],) ident(JoinedText)operator(\);) - ident(ValuesWin)operator(.)ident(UpdateValues)operator(()ident(True)operator(\);) - reserved(finally) - ident(MainReg)operator(.)ident(CloseKey)operator(;) - reserved(end)operator(;) - ident(Exit)operator(;) reserved(end)operator(;) - - ident(UseExtendedModel) operator(:=) ident(True)operator(;) - reserved(if) ident(ContainsEmptyLines)operator(()ident(MultiStringM)operator(.)ident(Lines)operator(\)) reserved(then) - reserved(case) ident(MessageDlg)operator(()string<delimiter(')content(This text contains empty lines.)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(These are not allowed in the standard MultiString model.)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(Do you want to delete them?)delimiter(')> operator(+) ident(EOL) operator(+) - ident(EOL) operator(+) - string<delimiter(')content(Yes: Delete empty lines)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(No: Use the Extended Model)delimiter(')>operator(,) - ident(mtWarning)operator(,) operator([)ident(mbYes)operator(,) ident(mbNo)operator(,) ident(mbCancel)operator(],) integer(0)operator(\)) reserved(of) - - ident(mrNo)operator(:) ident(UseExtendedModel) operator(:=) ident(True)operator(;) - - ident(mrYes)operator(:) reserved(begin) - reserved(with) ident(MultiStringM) reserved(do) reserved(begin) - ident(Lines)operator(.)ident(BeginUpdate)operator(;) - ident(DeleteEmptyLines)operator(()ident(Lines)operator(\);) - ident(Lines)operator(.)ident(EndUpdate)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) - - reserved(else) ident(Exit)operator(;) - - reserved(end)operator(;) - - reserved(try) - ident(OpenCurKey)operator(;) - reserved(with) ident(ValuesWin)operator(.)ident(ValueNames) reserved(do) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Count)operator(-)integer(1) reserved(do) reserved(begin) - reserved(if) ident(MainReg)operator(.)ident(GetDataType)operator(()ident(Strings)operator([)ident(i)operator(]\)) operator(<>) ident(rdMultiString) reserved(then) - reserved(if) ident(mrYes) operator(<>) ident(MessageDlg)operator(()string<delimiter(')content(Do you want to change the type of this value?)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content(--> MultiString)delimiter(')>operator(,) ident(mtWarning)operator(,) operator([)ident(mbYes)operator(,) ident(mbCancel)operator(],) integer(0)operator(\)) reserved(then) - ident(Exit)operator(;) - reserved(if) ident(UseExtendedModel) reserved(then) - ident(MainReg)operator(.)ident(WriteStringList)operator(()ident(Strings)operator([)ident(i)operator(],) ident(MultiStringM)operator(.)ident(Lines)operator(\)) - reserved(else) - ident(MainReg)operator(.)ident(WriteMultiString)operator(()ident(Strings)operator([)ident(i)operator(],) ident(MultiStringM)operator(.)ident(Lines)operator(\);) - reserved(end)operator(;) - ident(ValuesWin)operator(.)ident(UpdateValues)operator(()ident(True)operator(\);) - reserved(finally) - ident(MainReg)operator(.)ident(CloseKey)operator(;) - reserved(end)operator(;) - - ident(ValuesWin)operator(.)ident(ValueListDblClick)operator(()ident(Sender)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(StringAsColorPDblClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(if) ident(ColorDlg)operator(.)ident(Execute) reserved(then) - ident(StringE)operator(.)ident(Text) operator(:=) ident(StringOfColor)operator(()ident(ColorDlg)operator(.)ident(Color)operator(,) ident(csfThreeSpacedDecimals)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(MultiStringMEnter)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(MultiStringM)operator(.)ident(SelectAll)operator(;) - ident(ActivateIt)operator(()ident(MultiStringM)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(LadenMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(with) ident(MultiStringOpenD) reserved(do) reserved(begin) - ident(InitialDir) operator(:=) ident(ExtractFileDrive)operator(()ident(MyDir)operator(\);) - reserved(if) ident(Execute) reserved(then) - ident(MultiStringM)operator(.)ident(Lines)operator(.)ident(LoadFromFile)operator(()ident(FileName)operator(\);) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(SpeichernMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(with) ident(MultiStringSaveD) reserved(do) reserved(begin) - ident(InitialDir) operator(:=) ident(ExtractFileDrive)operator(()ident(MyDir)operator(\);) - reserved(if) ident(Execute) reserved(then) - ident(MultiStringM)operator(.)ident(Lines)operator(.)ident(SaveToFile)operator(()ident(FileName)operator(\);) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(Hinzufgen1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(SL)operator(:) ident(TStringList)operator(;) -reserved(begin) - reserved(with) ident(MultiStringOpenD) reserved(do) reserved(begin) - ident(InitialDir) operator(:=) ident(ExtractFileDrive)operator(()ident(MyDir)operator(\);) - reserved(if) ident(Execute) reserved(then) reserved(begin) - ident(SL) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;) - ident(SL)operator(.)ident(LoadFromFile)operator(()ident(FileName)operator(\);) - ident(MultiStringM)operator(.)ident(Lines)operator(.)ident(AddStrings)operator(()ident(SL)operator(\);) - ident(SL)operator(.)ident(Free)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(CancelBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(ValuesWin)operator(.)ident(FocusControl)operator(()ident(ValueList)operator(\);) - ident(ValuesWin)operator(.)ident(ValueListChange)operator(()ident(Sender)operator(,) ident(ValueList)operator(.)ident(Selected)operator(,) ident(ctState)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(HexGrid1Enter)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(HexGrid1Click)operator(()ident(Sender)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(SpyClearTracesBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(SpyLB)operator(.)ident(Clear)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(SpyLBKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) - ident(Shift)operator(:) ident(TShiftState)operator(\);) -reserved(begin) - reserved(if) operator(()ident(ssShift) reserved(in) ident(Shift)operator(\)) reserved(and) operator(()ident(key) operator(=) ident(VK_DELETE)operator(\)) reserved(then) reserved(begin) - ident(key) operator(:=) integer(0)operator(;) - ident(SpyLB)operator(.)ident(Clear)operator(;) - ident(Exit)operator(;) reserved(end)operator(;) - - reserved(if) ident(key) operator(=) ident(VK_F9) reserved(then) reserved(begin) - ident(key) operator(:=) integer(0)operator(;) - ident(SwapFonts)operator(()ident(SpyLB)operator(\);) - ident(Exit)operator(;) reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(BinLClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - comment(// with HexGrid1 do) - comment(// Byt[ActiveByte] := IntOfBin(BinL.Caption\);) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(HexGrid1KeyUp)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) - ident(Shift)operator(:) ident(TShiftState)operator(\);) -reserved(begin) - comment(//HexGrid1Click(Sender\);) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(ValueViewChanged)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(i)operator(:) ident(Integer)operator(;) -reserved(begin) - reserved(if) reserved(not) ident(Started) reserved(then) - ident(Exit)operator(;) - - ident(SpyThread)operator(.)ident(Suspend)operator(;) - ident(OpenCurKey)operator(;) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(ValueList)operator(.)ident(Items)operator(.)ident(Count)operator(-)integer(1) reserved(do) - ident(ValuesWin)operator(.)ident(UpdateValue)operator(()ident(MainReg)operator(,) ident(ValueList)operator(.)ident(Items)operator([)ident(i)operator(]\);) - - ident(MainReg)operator(.)ident(CloseKey)operator(;) - ident(SpyThread)operator(.)ident(Resume)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(HexEdit1Change)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(if) reserved(not) ident(HexEditAutoChange) reserved(then) - ident(CardinalE)operator(.)ident(Value) operator(:=) ident(HexEdit1)operator(.)ident(Value)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(SortMultiStringMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(SL)operator(:) ident(TStringList)operator(;) -reserved(begin) - ident(SL) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;) - reserved(with) ident(SL) reserved(do) reserved(begin) - ident(Assign)operator(()ident(MultiStringM)operator(.)ident(Lines)operator(\);) - ident(Sort)operator(;) - reserved(end)operator(;) - ident(MultiStringM)operator(.)ident(Lines)operator(.)ident(Assign)operator(()ident(SL)operator(\);) - ident(SL)operator(.)ident(Free)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(SpyTestLClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(SpyTestL)operator(.)ident(Caption) operator(:=) ident(StrOfBool)operator(()ident(SpyThread)operator(.)ident(Suspended)operator(,) string<delimiter(')content(No Spy.)delimiter(')>operator(,) string<delimiter(')content(Spy active.)delimiter(')>operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(FocusForEditing)operator(;) -reserved(begin) - ident(FocusControl)operator(()ident(MainPC)operator(\);) -reserved(end)operator(;) - -reserved(function) ident(TWorkWin)operator(.)ident(LoadBoolStr)operator(:) ident(Boolean)operator(;) -reserved(var) - ident(SL)operator(:) ident(TStringList)operator(;) - ident(FileName)operator(:) reserved(string)operator(;) - ident(i)operator(,) ident(p)operator(:) ident(Integer)operator(;) -reserved(begin) - ident(Result) operator(:=) ident(True)operator(;) - - ident(AddHint)operator(()string<delimiter(')content(Loading Boolean Strings...)delimiter(')>operator(\);) - - ident(FileName) operator(:=) ident(PlutoDir) operator(+) ident(BoolStrFileName)operator(;) - reserved(if) reserved(not) ident(FileEx)operator(()ident(FileName)operator(\)) reserved(then) reserved(begin) - ident(AddToLastHint)operator(()string<delimiter(')content(not found:)delimiter(')>operator(\);) - ident(AddHint)operator(()ident(FileName)operator(\);) - ident(Result) operator(:=) ident(False)operator(;) - reserved(end) reserved(else) reserved(begin) - ident(SL) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;) - reserved(try) - ident(SL)operator(.)ident(LoadFromFile)operator(()ident(FileName)operator(\);) - ident(DeleteCommentLines)operator(()ident(SL)operator(\);) - ident(BoolStr) operator(:=) reserved(nil)operator(;) - ident(SetLength)operator(()ident(BoolStr)operator(,) ident(SL)operator(.)ident(Count)operator(\);) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(SL)operator(.)ident(Count)operator(-)integer(1) reserved(do) reserved(begin) - comment(//Split the string by the '|'-sign) - ident(p) operator(:=) ident(Pos)operator(()char<delimiter(')content(|)delimiter(')>operator(,) ident(SL)operator([)ident(i)operator(]\);) - ident(BoolStr)operator([)ident(i)operator(][)ident(False)operator(]) operator(:=) ident(Copy)operator(()ident(SL)operator([)ident(i)operator(],) integer(1)operator(,) ident(p)operator(-)integer(1)operator(\);) - ident(BoolStr)operator([)ident(i)operator(][)ident(True)operator(]) operator(:=) ident(Copy)operator(()ident(SL)operator([)ident(i)operator(],) ident(p)operator(+)integer(1)operator(,) ident(Length)operator(()ident(SL)operator([)ident(i)operator(]\)) operator(-) ident(p)operator(\);) - reserved(end)operator(;) - reserved(finally) - ident(SL)operator(.)ident(Free)operator(;) - ident(AddToLastHint)operator(()string<delimiter(')content(OK)delimiter(')>operator(\);) - reserved(end)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(function) ident(TWorkWin)operator(.)ident(LoadSisyFilter)operator(:) ident(Boolean)operator(;) -reserved(var) - ident(SL)operator(:) ident(TStringList)operator(;) - ident(FileName)operator(:) reserved(string)operator(;) - ident(i)operator(:) ident(Integer)operator(;) -reserved(begin) - ident(Result) operator(:=) ident(True)operator(;) - - ident(FileName) operator(:=) ident(PlutoDir) operator(+) ident(SisyFilterFileName)operator(;) - reserved(if) reserved(not) ident(FileEx)operator(()ident(FileName)operator(\)) reserved(then) - ident(Result) operator(:=) ident(False) - reserved(else) reserved(begin) - ident(AddHint)operator(()string<delimiter(')content(Loading Sisyphus Filter Settings...)delimiter(')>operator(\);) - ident(SL) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;) - reserved(try) - ident(SL)operator(.)ident(LoadFromFile)operator(()ident(FileName)operator(\);) - ident(DeleteCommentLines)operator(()ident(SL)operator(,) char<delimiter(')content(#)delimiter(')>operator(\);) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(SL)operator(.)ident(Count)operator(-)integer(1) reserved(do) - ident(SL)operator([)ident(i)operator(]) operator(:=) ident(TrimLeft)operator(()ident(SL)operator([)ident(i)operator(]\);) - - ident(SisyFilter)operator(.)ident(Clear)operator(;) - ident(SisyFilter)operator(.)ident(AddStrings)operator(()ident(SL)operator(\);) - reserved(finally) - ident(SL)operator(.)ident(Free)operator(;) - ident(AddToLastHint)operator(()string<delimiter(')content(OK)delimiter(')>operator(\);) - reserved(end)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(SisyTVGetSelectedIndex)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\);) -reserved(begin) - ident(Node)operator(.)ident(SelectedIndex) operator(:=) ident(Node)operator(.)ident(ImageIndex)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(SisyTVDblClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(Node)operator(:) ident(TTreeNode)operator(;) - ident(Path)operator(:) reserved(string)operator(;) -reserved(begin) - ident(Node) operator(:=) ident(SisyTV)operator(.)ident(Selected)operator(;) - reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then) - ident(Exit)operator(;) - - ident(Path) operator(:=) ident(RootOfNode)operator(()ident(Node)operator(\).)ident(Text)operator(;) - - reserved(if) ident(Node)operator(.)ident(Level) operator(>) integer(0) reserved(then) reserved(begin) - reserved(if) ident(Node)operator(.)ident(Level) operator(=) integer(2) reserved(then) - ident(Node) operator(:=) ident(Node)operator(.)ident(Parent)operator(;) - reserved(if) ident(Node)operator(.)ident(HasChildren) reserved(then) - ident(Path) operator(:=) ident(Path) operator(+) string<delimiter(')content(\\\\)delimiter(')> operator(+) ident(Node)operator(.)ident(Text) comment(//Value) - reserved(else) - ident(Path) operator(:=) ident(Path) operator(+) char<delimiter(')content(\\)delimiter(')> operator(+) ident(Node)operator(.)ident(Text) comment(//SubKey) - reserved(end)operator(;) - - ident(MainWin)operator(.)ident(GotoKey)operator(()ident(Path)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(DeleteChange)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\);) -reserved(var) - ident(SubNode)operator(:) ident(TTreeNode)operator(;) - - reserved(procedure) ident(FreeSisyChangeNode)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\);) - reserved(begin) - reserved(try) - reserved(with) operator(()ident(TObject)operator(()ident(Node)operator(.)ident(Data)operator(\)) reserved(as) ident(TSisyChange)operator(\)) reserved(do) - ident(Free)operator(;) - reserved(except) - ident(ReportFmt)operator(()string<delimiter(')content(errors)delimiter(')>operator(,) string<delimiter(')content(Context could not be freed: "%s")delimiter(')>operator(,) operator([)ident(Node)operator(.)ident(Text)operator(]\);) - reserved(end)operator(;) - - ident(Node)operator(.)ident(Delete)operator(;) - reserved(end)operator(;) - -reserved(begin) - reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then) - ident(Exit)operator(;) - - reserved(if) ident(Node)operator(.)ident(Level) operator(=) integer(2) reserved(then) - ident(Node) operator(:=) ident(Node)operator(.)ident(Parent)operator(;) - - reserved(if) ident(Node)operator(.)ident(Level) operator(=) integer(0) reserved(then) reserved(begin) - ident(SisyTV)operator(.)ident(Selected) operator(:=) ident(GetNextBest)operator(()ident(RootOfNode)operator(()ident(Node)operator(\)\);) - ident(SubNode) operator(:=) ident(Node)operator(.)ident(GetFirstChild)operator(;) - reserved(while) ident(Assigned)operator(()ident(SubNode)operator(\)) reserved(do) reserved(begin) - ident(FreeSisyChangeNode)operator(()ident(SubNode)operator(\);) - ident(SubNode) operator(:=) ident(Node)operator(.)ident(GetFirstChild)operator(;) reserved(end)operator(;) - ident(Node)operator(.)ident(Delete)operator(;) - reserved(end) reserved(else) reserved(begin) - ident(SisyTV)operator(.)ident(Selected) operator(:=) ident(GetNextBest)operator(()ident(Node)operator(\);) - ident(FreeSisyChangeNode)operator(()ident(Node)operator(\);) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(DeactivateChange)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\);) -reserved(begin) - ident(Node) operator(:=) ident(RootOfNode)operator(()ident(Node)operator(\);) - - reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then) - ident(Exit)operator(;) - - reserved(if) ident(SisyChangeActivated)operator(()ident(Node)operator(\)) reserved(then) reserved(begin) - ident(SetSisyChangeState)operator(()ident(Node)operator(,) ident(False)operator(\);) - ident(Node)operator(.)ident(Cut) operator(:=) ident(True)operator(;) - reserved(end) reserved(else) reserved(begin) - ident(SetSisyChangeState)operator(()ident(Node)operator(,) ident(True)operator(\);) - ident(Node)operator(.)ident(Cut) operator(:=) ident(False)operator(;) - reserved(end)operator(;) - ident(SisyTV)operator(.)ident(Repaint)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(CopySelectedChangeName)operator(;) -reserved(var) - ident(Node)operator(:) ident(TTreeNode)operator(;) -reserved(begin) - ident(Node) operator(:=) ident(SisyTV)operator(.)ident(Selected)operator(;) - reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then) - ident(Exit)operator(;) - - ident(Clipboard)operator(.)ident(AsText) operator(:=) ident(Node)operator(.)ident(Text)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(SisyTVKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) - ident(Shift)operator(:) ident(TShiftState)operator(\);) -reserved(var) - ident(Node)operator(:) ident(TTreeNode)operator(;) -reserved(begin) - ident(Node) operator(:=) ident(RootOfNode)operator(()ident(SisyTV)operator(.)ident(Selected)operator(\);) - reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then) - ident(Exit)operator(;) - - comment({if Key = VK_RETURN then - SisyTVDblCLick(Sender\); - - if Key = VK_DELETE then - if (ssCtrl in Shift\) and (Key = VK_DELETE\) then - DeactivateChange(Node\) - else - DeleteChange(Node\); - - if (ssCtrl in Shift\) and (Char(Key\) = 'C'\) then - CopySelectedChangeName;}) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(SisyCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(if) reserved(not) ident(Started) reserved(then) - ident(Exit)operator(;) - - reserved(with) ident(TCheckBox)operator(()ident(Sender)operator(\),) ident(TSisyThread)operator(()ident(Sisys)operator([)ident(Tag)operator(]\)) reserved(do) reserved(begin) - reserved(if) ident(Checked) reserved(then) - ident(Resume) - reserved(else) - ident(Suspend)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(CurValueEEnter)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(CurValueE)operator(.)ident(Text) operator(:=) ident(RealValueName)operator(()ident(ValueList)operator(.)ident(ItemFocused)operator(\);) - ident(CurValueE)operator(.)ident(SelectAll)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(CurValueEKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) - ident(Shift)operator(:) ident(TShiftState)operator(\);) - - reserved(procedure) ident(RenameValue)operator(()ident(NewName)operator(:) reserved(string)operator(\);) - reserved(var) - ident(Item)operator(:) ident(TListItem)operator(;) - reserved(begin) - ident(Item) operator(:=) ident(ValueList)operator(.)ident(ItemFocused)operator(;) - reserved(if) ident(ValuesWin)operator(.)ident(TryRenameValue)operator(()ident(CurKey)operator(.)ident(Value)operator(,) ident(NewName)operator(\)) reserved(then) - ident(SetRealValueName)operator(()ident(Item)operator(,) ident(NewName)operator(\);) - reserved(end)operator(;) - -reserved(begin) - reserved(if) ident(Key) operator(=) ident(VK_RETURN) reserved(then) reserved(begin) - ident(SpyThread)operator(.)ident(Suspend)operator(;) - reserved(try) - ident(RenameValue)operator(()ident(CurValueE)operator(.)ident(Text)operator(\);) - ident(ValuesWin)operator(.)ident(ValueListDblClick)operator(()ident(Self)operator(\);) - ident(FocusControl)operator(()ident(CurValueE)operator(\);) - reserved(finally) - ident(SpyThread)operator(.)ident(Restart) operator(:=) ident(True)operator(;) - ident(SpyThread)operator(.)ident(Resume)operator(;) - reserved(end)operator(;) - ident(Key) operator(:=) integer(0)operator(;) - comment(//CurValueE.SelectAll;) - reserved(end) reserved(else) reserved(if) ident(Key) operator(=) ident(VK_ESCAPE) reserved(then) reserved(begin) - ident(ValuesWin)operator(.)ident(ValueListDblClick)operator(()ident(Self)operator(\);) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(BinaryHMLineChange)operator(()ident(NewLine)operator(:) ident(Cardinal)operator(\);) -reserved(begin) - ident(OffsetHE)operator(.)ident(Value) operator(:=) ident(BinaryHM)operator(.)ident(Pos)operator(;) - comment(// BinaryAsIntL.Value := Integer(BinaryHM.CurentCard\);) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(OffsetHEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(BinaryHM)operator(.)ident(Pos) operator(:=) ident(OffsetHE)operator(.)ident(Value)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(SpyDelayIEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(if) ident(Assigned)operator(()ident(SpyThread)operator(\)) reserved(then) - ident(SpyThread)operator(.)ident(Delay) operator(:=) ident(SpyDelayIE)operator(.)ident(Value)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(SisyTVExpanded)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\);) -reserved(begin) - reserved(if) ident(Node)operator(.)ident(ImageIndex) operator(=) integer(8) reserved(then) - ident(Node)operator(.)ident(ImageIndex) operator(:=) integer(7)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(ClearChanges)operator(;) -reserved(var) - ident(Node)operator(:) ident(TTreeNode)operator(;) -reserved(begin) - reserved(with) ident(SisyTV)operator(.)ident(Items) reserved(do) reserved(begin) - ident(Node) operator(:=) ident(GetFirstNode)operator(;) - reserved(while) ident(Assigned)operator(()ident(Node)operator(\)) reserved(do) reserved(begin) - ident(DeleteChange)operator(()ident(Node)operator(\);) - ident(Node) operator(:=) ident(GetFirstNode)operator(;) - reserved(end)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(ClearChangesBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(if) ident(mrOK) operator(<>) ident(MessageDlg)operator(()string<delimiter(')content(Do you really want to clear all changes?)delimiter(')>operator(,) - ident(mtWarning)operator(,) operator([)ident(mbOK)operator(,) ident(mbCancel)operator(],) integer(0)operator(\)) reserved(then) - ident(Exit)operator(;) - - ident(ClearChanges)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(FilterChangesBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(NotePad)operator(()ident(PlutoDir) operator(+) ident(SisyFilterFileName)operator(\);) - ident(ShowMessage)operator(()string<delimiter(')content(Click OK when you finished editing.)delimiter(')> operator(+) ident(EOL) operator(+) - string<delimiter(')content((Pluto will reload the filter settings then.\))delimiter(')>operator(\);) - ident(LoadSisyFilter)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(SisyTVPUPopup)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(KeySelected)operator(:) ident(Boolean)operator(;) - ident(Node)operator(:) ident(TTreeNode)operator(;) -reserved(begin) - ident(Node) operator(:=) ident(SisyTV)operator(.)ident(Selected)operator(;) - ident(KeySelected) operator(:=) ident(Assigned)operator(()ident(Node)operator(\);) - - ident(SisyGoToKeyMI)operator(.)ident(Enabled) operator(:=) ident(KeySelected)operator(;) - ident(SisyDeleteChangeMI)operator(.)ident(Enabled) operator(:=) ident(KeySelected)operator(;) - ident(SisyActivateChangeMI)operator(.)ident(Enabled) operator(:=) ident(KeySelected)operator(;) - ident(SisyCopyPathMI)operator(.)ident(Enabled) operator(:=) ident(KeySelected)operator(;) - reserved(if) reserved(not) ident(KeySelected) reserved(then) - ident(Exit)operator(;) - - ident(SisyActivateChangeMI)operator(.)ident(Checked) operator(:=) ident(SisyChangeActivated)operator(()ident(RootOfNode)operator(()ident(Node)operator(\)\);) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(SisyActivateChangeMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(DeactivateChange)operator(()ident(SisyTV)operator(.)ident(Selected)operator(\)) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(SisyDeleteChangeMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(DeleteChange)operator(()ident(SisyTV)operator(.)ident(Selected)operator(\)) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(SisyCopyPathMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(CopySelectedChangeName)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(FileMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(s)operator(:) reserved(string)operator(;) -reserved(begin) - reserved(with) ident(FileOpenD) reserved(do) reserved(begin) - ident(s) operator(:=) ident(ExtractPath)operator(()ident(StringE)operator(.)ident(Text)operator(\);) - reserved(if) ident(s) operator(<>) string<delimiter(')delimiter(')> reserved(then) - ident(InitialDir) operator(:=) ident(s) - reserved(else) - ident(InitialDir) operator(:=) ident(MyDir)operator(;) - - ident(s) operator(:=) ident(ExtractFileName)operator(()ident(StringE)operator(.)ident(Text)operator(\);) - ident(s) operator(:=) ident(DeleteChars)operator(()ident(s)operator(,) char<delimiter(')content(/)delimiter(')>operator(\);) - reserved(if) ident(s) operator(<>) string<delimiter(')delimiter(')> reserved(then) - ident(FileName) operator(:=) ident(s)operator(;) - - reserved(if) ident(Execute) reserved(then) - ident(StringE)operator(.)ident(Text) operator(:=) ident(FileName)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(ExternalEditBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(FileName)operator(:) reserved(string)operator(;) -reserved(begin) - ident(FileName) operator(:=) ident(TempDir) operator(+) char<delimiter(')content(~)delimiter(')> operator(+) ident(DeleteChars)operator(()ident(CurValueE)operator(.)ident(Text)operator(,) ident(FileNameEnemies)operator(\)) operator(+) - string<delimiter(')content(.bin)delimiter(')>operator(;) - reserved(if) ident(SaveByteA)operator(()ident(BinaryHM)operator(.)ident(Data)operator(,) ident(FileName)operator(\)) reserved(then) - ident(ExecFileWith)operator(()ident(PrefWin)operator(.)ident(ExternalHexEditE)operator(.)ident(Text)operator(,) ident(FileName)operator(\)) - reserved(else) - ident(ShowMessage)operator(()string<delimiter(')content(Could not write into file:)delimiter(')> operator(+) ident(EOL) operator(+) ident(FileName)operator(\);) - - ident(PipelineThread)operator(.)ident(FileName) operator(:=) ident(FileName)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(LoadExternalBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(FileName)operator(:) reserved(string)operator(;) - ident(Data)operator(:) ident(TByteA)operator(;) - ident(i)operator(:) ident(Integer)operator(;) -reserved(begin) - ident(Data) operator(:=) reserved(nil)operator(;) - - ident(FileName) operator(:=) ident(TempDir) operator(+) char<delimiter(')content(~)delimiter(')> operator(+) ident(CurValueE)operator(.)ident(Text) operator(+) string<delimiter(')content(.bin)delimiter(')>operator(;) - reserved(if) reserved(not) ident(FileEx)operator(()ident(FileName)operator(\)) reserved(then) reserved(begin) - comment({ShowMessage('File not found:' + EOL + - FileName\);}) - ident(Exit)operator(;) - reserved(end)operator(;) - - ident(Data) operator(:=) ident(LoadByteA)operator(()ident(FileName)operator(\);) - reserved(if) ident(Length)operator(()ident(Data)operator(\)) operator(=) ident(Length)operator(()ident(BinaryHM)operator(.)ident(Data)operator(\)) reserved(then) reserved(begin) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(High)operator(()ident(Data)operator(\)) reserved(do) - reserved(if) ident(Data)operator([)ident(i)operator(]) operator(<>) ident(BinaryHM)operator(.)ident(Data)operator([)ident(i)operator(]) reserved(then) reserved(begin) - ident(BinaryHM)operator(.)ident(Data) operator(:=) ident(Data)operator(;) - ident(Exit)operator(;) - reserved(end)operator(;) - reserved(end) reserved(else) - ident(BinaryHM)operator(.)ident(Data) operator(:=) ident(Data)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(PipelineCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(with) ident(PipelineThread)operator(,) ident(PipelineCB) reserved(do) - reserved(if) ident(Checked) reserved(then) reserved(begin) - reserved(if) ident(Suspended) reserved(then) - ident(Resume)operator(;) - reserved(end) reserved(else) - reserved(if) reserved(not) ident(Suspended) reserved(then) - ident(Suspend)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(ReloadBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(ValuesWin)operator(.)ident(ValueListDblClick)operator(()ident(Self)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(BinaryHMEnter)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(PipelineCB)operator(.)ident(Checked) operator(:=) ident(False)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(xUseExtendedModelCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(PrefWin)operator(.)ident(UseExtendedModelCB)operator(.)ident(Load)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(SeparatorEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(if) reserved(not) ident(SeparatorE)operator(.)ident(Enabled) reserved(then) - ident(Exit)operator(;) - - reserved(if) ident(SeparatorE)operator(.)ident(Text) operator(=) string<delimiter(')delimiter(')> reserved(then) reserved(begin) - reserved(if) ident(StringE)operator(.)ident(Text) operator(=) string<delimiter(')delimiter(')> reserved(then) - ident(Exit) - reserved(else) - ident(MultiStringM)operator(.)ident(Text) operator(:=) ident(StringE)operator(.)ident(Text)operator(;) - ident(MultiStringTypeRG)operator(.)ident(Buttons)operator([)integer(1)operator(].)ident(Enabled) operator(:=) ident(False)operator(;) - ident(MultiStringTypeRG)operator(.)ident(ItemIndex) operator(:=) integer(0)operator(;) - reserved(end) reserved(else) reserved(begin) - reserved(if) ident(StringE)operator(.)ident(Text) operator(=) string<delimiter(')delimiter(')> reserved(then) - ident(StringE)operator(.)ident(Text) operator(:=) ident(Join)operator(()ident(MultiStringM)operator(.)ident(Lines)operator(,) ident(SeparatorE)operator(.)ident(Text)operator(\);) - ident(MultiStringTypeRG)operator(.)ident(Buttons)operator([)integer(1)operator(].)ident(Enabled) operator(:=) ident(True)operator(;) - ident(MultiStringTypeRG)operator(.)ident(ItemIndex) operator(:=) integer(1)operator(;) - ident(Split)operator(()ident(StringE)operator(.)ident(Text)operator(,) ident(SeparatorE)operator(.)ident(Text)operator(,) ident(MultiStringM)operator(.)ident(Lines)operator(,) ident(False)operator(\);) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(HintLBKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) - ident(Shift)operator(:) ident(TShiftState)operator(\);) -reserved(begin) - reserved(if) operator(()ident(Key) operator(=) ident(Byte)operator(()char<delimiter(')content(C)delimiter(')>operator(\)\)) reserved(and) operator(()ident(ssCtrl) reserved(in) ident(Shift)operator(\)) reserved(then) - reserved(with) ident(HintLb) reserved(do) - reserved(if) ident(ItemIndex) operator(>=) integer(0) reserved(then) - ident(Clipboard)operator(.)ident(AsText) operator(:=) ident(Items)operator([)ident(ItemIndex)operator(];) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(DWORDSpecialBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(CardinalE)operator(.)ident(Value) operator(:=) ident(StrToIntDef)operator((()ident(Sender) reserved(as) ident(TButton)operator(\).)ident(Caption)operator(,) integer(0)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(Button1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(ShowPC)operator(.)ident(SelectNextPage)operator(()ident(True)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(SisyPUPopup)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(with) ident(SisyPU)operator(,) ident(TSisyThread)operator(()ident(Sisys)operator([)ident(PopupComponent)operator(.)ident(Tag)operator(]\)) reserved(do) - ident(Items)operator([)ident(Integer)operator(()ident(Priority)operator(\)].)ident(Checked) operator(:=) ident(True)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(SisyPriorityMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(with) ident(TSisyThread)operator(()ident(Sisys)operator([)ident(SisyPU)operator(.)ident(PopupComponent)operator(.)ident(Tag)operator(]\)) reserved(do) reserved(begin) - ident(Priority) operator(:=) ident(TThreadPriority)operator(()ident(TMenuItem)operator(()ident(Sender)operator(\).)ident(MenuIndex)operator(\);) - reserved(if) ident(Priority) operator(<=) ident(tpNormal) reserved(then) - ident(Uni)operator(.)ident(WriteInteger)operator(()string<delimiter(')content(Priority)delimiter(')>operator(,) ident(Integer)operator(()ident(Priority)operator(\)\);) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(SisyShowCurrentPathMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - reserved(with) ident(SisyPU)operator(,) ident(TSisyThread)operator(()ident(Sisys)operator([)ident(PopupComponent)operator(.)ident(Tag)operator(]\)) reserved(do) reserved(begin) - ident(Suspend)operator(;) - ident(ShowMessage)operator(()ident(CurrentSpyKey)operator(.)ident(Path)operator(\);) - ident(Resume)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(DropFileTargetDrop)operator(()ident(Sender)operator(:) ident(TObject)operator(;) - ident(ShiftState)operator(:) ident(TShiftState)operator(;) ident(Point)operator(:) ident(TPoint)operator(;) reserved(var) ident(Effect)operator(:) ident(Integer)operator(\);) -reserved(begin) - ident(StringE)operator(.)ident(Text) operator(:=) ident(DropFileTarget)operator(.)ident(Files)operator([)integer(0)operator(];) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(FormClose)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Action)operator(:) ident(TCloseAction)operator(\);) -reserved(begin) -comment(// Action := caNone;) - ident(DropFileTarget)operator(.)ident(Unregister)operator(;) - ident(ClearChanges)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(FormResize)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(begin) - ident(Realign)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(IconImageDblClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(Filename)operator(:) reserved(string)operator(;) -reserved(begin) - ident(FileName) operator(:=) ident(GetFileNew)operator(()ident(StringE)operator(.)ident(Text)operator(\);) - reserved(if) ident(FileName) operator(<>) string<delimiter(')delimiter(')> reserved(then) - ident(ExecFile)operator(()ident(FileName)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(ShowValues)operator(()ident(Reg)operator(:) ident(TXRegistry)operator(\);) -reserved(var) - ident(MainValueName)operator(:) reserved(string)operator(;) - ident(ValueCommonType)operator(:) ident(TRegDataType)operator(;) - - reserved(procedure) ident(ShowValueAsBinary)operator(()reserved(const) ident(ValueName)operator(:) reserved(string)operator(;) - ident(Smart4BB)operator(:) ident(Boolean) operator(=) ident(True)operator(\);) - reserved(begin) - reserved(if) ident(Smart4BB) - reserved(and) ident(PrefWin)operator(.)ident(Smart4BBCB)operator(.)ident(Checked) - reserved(and) operator(()ident(Reg)operator(.)ident(GetDataSize)operator(()ident(ValueName)operator(\)) operator(=) integer(4)operator(\)) reserved(then) reserved(begin) - ident(CardinalE)operator(.)ident(Value) operator(:=) ident(Reg)operator(.)ident(ReadCardinal)operator(()ident(ValueName)operator(\);) - ident(CardTypeRG)operator(.)ident(ItemIndex) operator(:=) integer(2)operator(;) - ident(ShowPC)operator(.)ident(ActivePage) operator(:=) ident(IntPage)operator(;) - ident(Exit)operator(;) reserved(end)operator(;) - ident(BinaryHM)operator(.)ident(Data) operator(:=) ident(Reg)operator(.)ident(ReadBin)operator(()ident(ValueName)operator(\);) - ident(DataTypeComB)operator(.)ident(ItemIndex) operator(:=) ident(ValueCommonType)operator(;) - reserved(if) ident(IsValidDataType)operator(()ident(ValueCommonType)operator(\)) reserved(then) - ident(DataTypeComB)operator(.)ident(ItemIndex) operator(:=) ident(ValueCommonType) - reserved(else) reserved(begin) - ident(DataTypeComB)operator(.)ident(Text) operator(:=) ident(IntToStr)operator(()ident(ValueCommonType)operator(\);) - ident(AddHint)operator(()string<delimiter(')content(Value has unknown data type ()delimiter(')> operator(+) ident(DataTypeComB)operator(.)ident(Text) operator(+) string<delimiter(')content(\): )delimiter(')> operator(+) - ident(Quote)operator(()ident(ValueName)operator(\)\);) - reserved(end)operator(;) - ident(ShowPC)operator(.)ident(ActivePage) operator(:=) ident(BinaryPage)operator(;) - reserved(end)operator(;) - -reserved(begin) - reserved(with) ident(ValuesWin) reserved(do) reserved(begin) - reserved(if) reserved(not) ident(Assigned)operator(()ident(ValueNames)operator(\)) reserved(or) operator(()ident(ValueNames)operator(.)ident(Count) operator(=) integer(0)operator(\)) reserved(then) - reserved(raise) ident(EReadError)operator(.)ident(Create)operator(()string<delimiter(')content(ValueNameList error)delimiter(')>operator(\);) - ident(MainValueName) operator(:=) ident(ValueNames)operator([)integer(0)operator(];) - reserved(end)operator(;) - ident(ValueCommonType) operator(:=) ident(ValuesWin)operator(.)ident(ValueCommonType)operator(;) - - reserved(with) ident(CurValueE) reserved(do) reserved(begin) - ident(Enabled) operator(:=) ident(True)operator(;) - reserved(if) ident(ValuesWin)operator(.)ident(ValueNames)operator(.)ident(Count) operator(=) integer(1) reserved(then) - ident(Text) operator(:=) ident(MainValueName) - reserved(else) - ident(Text) operator(:=) ident(Copy)operator(()ident(ValuesWin)operator(.)ident(ValueNames)operator(.)ident(CommaText)operator(,) integer(1)operator(,) integer(255)operator(\);) - - ident(Font)operator(.)ident(Color) operator(:=) ident(ColorOfDataType)operator(()ident(ValueCommonType)operator(\);) - reserved(end)operator(;) - - reserved(if) ident(KeyIsDown)operator(()ident(VK_MENU)operator(\)) reserved(or) ident(ShowAsBinary) reserved(then) reserved(begin) - ident(ShowValueAsBinary)operator(()ident(MainValueName)operator(,) ident(False)operator(\);) - reserved(end) reserved(else) reserved(if) ident(ValueCommonType) reserved(in) ident(rdStringTypes) reserved(then) reserved(begin) - ident(StringE)operator(.)ident(Text) operator(:=) ident(Reg)operator(.)ident(ReadString)operator(()ident(MainValueName)operator(\);) - reserved(case) ident(ValueCommonType) reserved(of) - ident(rdString)operator(:) ident(StringTypeRG)operator(.)ident(ItemIndex) operator(:=) integer(0)operator(;) - ident(rdExpandString)operator(:) ident(StringTypeRG)operator(.)ident(ItemIndex) operator(:=) integer(1)operator(;) - reserved(end)operator(;) - ident(ShowPC)operator(.)ident(ActivePage) operator(:=) ident(StringPage)operator(;) - reserved(end) reserved(else) reserved(if) ident(ValueCommonType) reserved(in) ident(rdCardTypes) reserved(then) reserved(begin) - ident(CardinalE)operator(.)ident(Value) operator(:=) ident(Reg)operator(.)ident(ReadCardinal)operator(()ident(MainValueName)operator(\);) - reserved(case) ident(ValueCommonType) reserved(of) - ident(rdCardinal)operator(:) ident(StringTypeRG)operator(.)ident(ItemIndex) operator(:=) integer(0)operator(;) - ident(rdCardBigEndian)operator(:) ident(StringTypeRG)operator(.)ident(ItemIndex) operator(:=) integer(1)operator(;) - reserved(end)operator(;) - ident(ShowPC)operator(.)ident(ActivePage) operator(:=) ident(IntPage)operator(;) - reserved(end) reserved(else) reserved(if) ident(ValueCommonType) operator(=) ident(rdMultiString) reserved(then) reserved(begin) - ident(MultiStringM)operator(.)ident(Clear)operator(;) - ident(Reg)operator(.)ident(ReadMultiString)operator(()ident(MainValueName)operator(,) ident(MultiStringM)operator(.)ident(Lines)operator(,) ident(PrefWin)operator(.)ident(UseExtendedModelCB)operator(.)ident(Checked)operator(\);) - ident(SeparatorEChange)operator(()ident(Self)operator(\);) - ident(MultiStringTypeRG)operator(.)ident(ItemIndex) operator(:=) integer(0)operator(;) - ident(ShowPC)operator(.)ident(ActivePage) operator(:=) ident(MultiStringPage)operator(;) - reserved(end) reserved(else) reserved(begin) - ident(ShowValueAsBinary)operator(()ident(MainValueName)operator(\);) - reserved(end)operator(;) - - ident(ShowAsBinary) operator(:=) ident(False)operator(;) - - ident(UpdateWriteButtons)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(UpdateWriteButtons)operator(;) -reserved(const) - ident(BtnTextOfMultiEdit)operator(:) reserved(array)operator([)ident(Boolean)operator(]) reserved(of) reserved(string) operator(=) operator(()string<delimiter(')content(Write)delimiter(')>operator(,) string<delimiter(')content(Write all)delimiter(')>operator(\);) -reserved(var) - ident(BtnText)operator(:) reserved(string)operator(;) -reserved(begin) - ident(BtnText) operator(:=) ident(BtnTextOfMultiEdit)operator([)ident(ValuesWin)operator(.)ident(ValueNames)operator(.)ident(Count) operator(>) integer(1)operator(];) - ident(OKStringB)operator(.)ident(Caption) operator(:=) ident(BtnText)operator(;) - ident(OKIntB)operator(.)ident(Caption) operator(:=) ident(BtnText)operator(;) - ident(OKMultiStringB)operator(.)ident(Caption) operator(:=) ident(BtnText)operator(;) - ident(OKBinaryB)operator(.)ident(Caption) operator(:=) ident(BtnText)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(EditData)operator(;) -reserved(begin) - ident(AddHint)operator(()string<delimiter(')content(Edit)delimiter(')>operator(\);) - ident(MainPC)operator(.)ident(ActivePage) operator(:=) ident(WorkPage)operator(;) - - reserved(with) ident(ShowPC) reserved(do) - reserved(if) ident(ActivePage) operator(=) reserved(nil) reserved(then) - ident(Exit) - reserved(else) reserved(if) ident(ActivePage) operator(=) ident(WorkWin)operator(.)ident(StringPage) reserved(then) reserved(begin) - ident(FocusControl)operator(()ident(StringE)operator(\);) - ident(StringE)operator(.)ident(SelectAll)operator(;) - reserved(end) - reserved(else) reserved(if) ident(ActivePage) operator(=) ident(WorkWin)operator(.)ident(IntPage) reserved(then) - ident(FocusControl)operator(()ident(CardinalE)operator(\)) - reserved(else) reserved(if) ident(ActivePage) operator(=) ident(WorkWin)operator(.)ident(MultiStringPage) reserved(then) - ident(FocusControl)operator(()ident(MultiStringM)operator(\)) - reserved(else) reserved(if) ident(ActivePage) operator(=) ident(WorkWin)operator(.)ident(BinaryPage) reserved(then) - ident(FocusControl)operator(()ident(BinaryHM)operator(\)) - reserved(else) - ident(ShowMessage)operator(()string<delimiter(')content(Error: ShowPC.ActivePage!)delimiter(')>operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(SisyTVCustomDrawItem)operator(()ident(Sender)operator(:) ident(TCustomTreeView)operator(;) - ident(Node)operator(:) ident(TTreeNode)operator(;) ident(State)operator(:) ident(TCustomDrawState)operator(;) reserved(var) ident(DefaultDraw)operator(:) ident(Boolean)operator(\);) -reserved(begin) - reserved(with) ident(TTreeView)operator(()ident(Sender)operator(\).)ident(Canvas)operator(.)ident(Font) reserved(do) reserved(begin) - reserved(if) ident(Node)operator(.)ident(Cut) reserved(then) - ident(Color) operator(:=) hex($AAAAAA) - reserved(else) - ident(Color) operator(:=) ident(clWhite)operator(;) - reserved(end)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(SisyTVMouseDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Button)operator(:) ident(TMouseButton)operator(;) - ident(Shift)operator(:) ident(TShiftState)operator(;) ident(X)operator(,) ident(Y)operator(:) ident(Integer)operator(\);) -reserved(var) - ident(Node)operator(:) ident(TTreeNode)operator(;) - ident(RelX)operator(,) ident(RelY)operator(:) ident(Integer)operator(;) -reserved(begin) - reserved(with) ident(SisyTV) reserved(do) reserved(begin) - ident(RelX) operator(:=) ident(ScreenToClient)operator(()ident(Mouse)operator(.)ident(CursorPos)operator(\).)ident(X)operator(;) - ident(RelY) operator(:=) ident(ScreenToClient)operator(()ident(Mouse)operator(.)ident(CursorPos)operator(\).)ident(Y)operator(;) - ident(Node) operator(:=) ident(GetNodeAt)operator(()ident(RelX)operator(,) ident(RelY)operator(\);) - reserved(end)operator(;) - reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then) - ident(Exit)operator(;) - - reserved(if) reserved(not) ident(Node)operator(.)ident(Selected) reserved(then) - ident(Node)operator(.)ident(Selected) operator(:=) ident(True)operator(;) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(OKCryptoBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);) -reserved(var) - ident(i)operator(:) ident(Integer)operator(;) -reserved(begin) - reserved(try) - ident(OpenCurKey)operator(;) - reserved(with) ident(ValuesWin)operator(.)ident(ValueNames) reserved(do) - reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Count)operator(-)integer(1) reserved(do) reserved(begin) - reserved(case) ident(CryptoTypeRG)operator(.)ident(ItemIndex) reserved(of) - integer(0)operator(:) ident(MainReg)operator(.)ident(WriteBin)operator(()ident(Strings)operator([)ident(i)operator(],) ident(EncodeScreenSaver)operator(()ident(CryptoE)operator(.)ident(Text)operator(\)\);) - integer(1)operator(:) ident(MainReg)operator(.)ident(WriteBin)operator(()ident(Strings)operator([)ident(i)operator(],) ident(EncodeSharedFolder)operator(()ident(CryptoE)operator(.)ident(Text)operator(\)\);) - reserved(end)operator(;) - reserved(end)operator(;) - ident(ValuesWin)operator(.)ident(UpdateValues)operator(()ident(True)operator(\);) - reserved(finally) - ident(MainReg)operator(.)ident(CloseKey)operator(;) - reserved(end)operator(;) - ident(ValuesWin)operator(.)ident(ValueListDblClick)operator(()ident(Sender)operator(\);) -reserved(end)operator(;) - -reserved(procedure) ident(TWorkWin)operator(.)ident(CryptoEKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) - ident(Shift)operator(:) ident(TShiftState)operator(\);) -reserved(begin) - reserved(if) ident(Key) operator(=) ident(VK_RETURN) reserved(then) reserved(begin) - ident(OKCryptoBClick)operator(()ident(Sender)operator(\);) - ident(ValuesWin)operator(.)ident(FocusControl)operator(()ident(ValueList)operator(\);) - reserved(end)operator(;) - reserved(if) ident(Key) operator(=) ident(VK_ESCAPE) reserved(then) - ident(CancelBClick)operator(()ident(Sender)operator(\);) -reserved(end)operator(;) - -reserved(end)operator(.) |