ÿ
TCODEEXPLORER0h.TPF0
TCodeExplorerCodeExplorerLeft´TopwWidthÛHeight
ActiveControlEditorCaption
Code ExplorerColor	clBtnFaceFont.CharsetDEFAULT_CHARSET
Font.ColorclWindowTextFont.Heightõ	Font.Name
MS Sans Serif
Font.StyleMenuMainMenuOldCreateOrderOnCreate
FormCreate
PixelsPerInch`
TextHeight
	TSplitter	Splitter1Left¡TopWidthHeight½CursorcrHSplit
TStatusBar	StatusBarLeftTopÙWidthÓHeightPanels	AlignmenttaCenterText0 - 0WidthFWidth2SimplePanelTToolBarToolBar1LeftTopWidthÓHeightAutoSize	BorderWidthCaptionToolBar1Flat	Images
ToolImagesIndentTabOrderTToolButtonToolButton1LeftTopActionOpenTToolButtonToolButton4LeftTopWidthCaptionToolButton4
ImageIndexStyletbsSeparatorTToolButtonToolButton2Left"TopAction	SortAlphaTToolButtonToolButton3Left9TopAction
RefreshTokens	TTreeViewTreeViewLeftTopWidth¡Height½AlignalLeft
HideSelectionImages
TreeImagesIndentTabOrderOnMouseDownTreeViewMouseDown
TmwCustomEditEditorLeft¦TopWidth-Height½CursorcrIBeamAlignalClientFont.CharsetDEFAULT_CHARSET
Font.ColorclWindowTextFont.Heightó	Font.NameCourier New
Font.StyleHighLighterPascalHighLighter
KeystrokesShortCut&CommandecUpShortCut& CommandecSelUpShortCut&@Command
ecScrollUpShortCut(CommandecDownShortCut( Command	ecSelDownShortCut(@CommandecScrollDownShortCut%CommandecLeftShortCut% Command	ecSelLeftShortCut%@Command
ecWordLeftShortCut%`Command
ecSelWordLeftShortCut'CommandecRightShortCut' Command
ecSelRightShortCut'@CommandecWordRightShortCut'`CommandecSelWordRightShortCut"Command
ecPageDownShortCut" Command
ecSelPageDownShortCut"@CommandecPageBottomShortCut"`CommandecSelPageBottomShortCut!CommandecPageUpShortCut! CommandecSelPageUpShortCut!@Command	ecPageTopShortCut!`CommandecSelPageTopShortCut$CommandecLineStartShortCut$ CommandecSelLineStartShortCut$@CommandecEditorTopShortCut$`CommandecSelEditorTopShortCut#Command	ecLineEndShortCut# CommandecSelLineEndShortCut#@CommandecEditorBottomShortCut#`CommandecSelEditorBottomShortCut-CommandecToggleModeShortCut-@CommandecCopyShortCut- CommandecPasteShortCut.CommandecDeleteCharShortCut. CommandecCutShortCutCommandecDeleteLastCharShortCut@CommandecDeleteLastWordShortCut€CommandecUndoShortCut CommandecRedoShortCut
CommandecLineBreakShortCutA@CommandecSelectAllShortCutC@CommandecCopyShortCutI`Command
ecBlockIndentShortCutM@CommandecLineBreakShortCutN@CommandecInsertLineShortCutT@CommandecDeleteWordShortCutU`CommandecBlockUnindentShortCutV@CommandecPasteShortCutX@CommandecCutShortCutY@CommandecDeleteLineShortCutY`CommandecDeleteEOLShortCutZ@CommandecUndoShortCutZ`CommandecRedoShortCut0@Command
ecGotoMarker0ShortCut1@Command
ecGotoMarker1ShortCut2@Command
ecGotoMarker2ShortCut3@Command
ecGotoMarker3ShortCut4@Command
ecGotoMarker4ShortCut5@Command
ecGotoMarker5ShortCut6@Command
ecGotoMarker6ShortCut7@Command
ecGotoMarker7ShortCut8@Command
ecGotoMarker8ShortCut9@Command
ecGotoMarker9ShortCut0`CommandecSetMarker0ShortCut1`CommandecSetMarker1ShortCut2`CommandecSetMarker2ShortCut3`CommandecSetMarker3ShortCut4`CommandecSetMarker4ShortCut5`CommandecSetMarker5ShortCut6`CommandecSetMarker6ShortCut7`CommandecSetMarker7ShortCut8`CommandecSetMarker8ShortCut9`CommandecSetMarker9LeftChar
Lines.StringsO{******************************************************************************K This demonstration and the appropriate code to support it in mwEditor wereK written by Andy Jeffries of Kwik-Rite Development (www.kwikrite.clara.net)O This really is a work in progress, but it could be very useful in implementing your own full Code Explorer. Last update: 1999-05-074 Version: 0.11 (for version history see version.rtf)9 Additional changes implented by Jacobs Jan on 05/11/1999 jacobs.jan@planetinternet.be:Q  - Changed Listbox to Treeview to accomodate future options -> need lots of work/  - Added possibility to alphasort the treeview< For changes in code, see code commented with   "// *** JAN"	 Needed :I  Logic behind the tokens, need more information about them (how does theK  ontoken event works, when is it triggered, what states and combination of  states mean what, etc ...)N  How can I check if a procedure is still in the code.  Need this to update my$  tree and remove deleted proceduresP  Need more logic !!!  There are much more better ways to solve my problems than  the solutions I came up withP ******************************************************************************} MaxUndo
ParentColor
ParentFontReadOnly	TabOrder	TabIndentTopLineWantTabsOnSelectionChangeEditorSelectionChange	TmwPasSynPascalHighLighter
DefaultFilter&Pascal files (*.pas,*.inc)|*.PAS;*.INCOnTokenPascalHighLighterTokenAsmAttri.BackgroundclWindowAsmAttri.ForegroundclWindowTextAsmAttri.StyleAsmAttri.IntegerStyleCommentAttri.BackgroundclWindowCommentAttri.ForegroundclActiveCaptionCommentAttri.StylefsItalicCommentAttri.IntegerStyleIdentifierAttri.BackgroundclWindowIdentifierAttri.ForegroundclWindowTextIdentifierAttri.StyleIdentifierAttri.IntegerStyleKeyAttri.BackgroundclWindowKeyAttri.ForegroundclWindowTextKeyAttri.StylefsBoldKeyAttri.IntegerStyleNumberAttri.BackgroundclWindowNumberAttri.ForegroundclWindowTextNumberAttri.StyleNumberAttri.IntegerStyleSpaceAttri.BackgroundclWindowSpaceAttri.ForegroundclWindowTextSpaceAttri.StyleSpaceAttri.IntegerStyleStringAttri.BackgroundclWindowStringAttri.ForegroundclWindowTextStringAttri.StyleStringAttri.IntegerStyleSymbolAttri.BackgroundclWindowSymbolAttri.ForegroundclWindowTextSymbolAttri.StyleSymbolAttri.IntegerStyleLeft(TopHTOpenDialog
OpenDialog
DefaultExtpasFilterPascal Files (*.pas)|*.pasLeft(TopxTActionList
ActionListImages
ToolImagesLeft(TopTActionOpenCaption	Open file
ImageIndexShortCutO@	OnExecuteOpenExecuteTAction	SortAlphaCaption	Alphasort
ImageIndex	OnExecuteSortAlphaExecuteTAction
RefreshTokensCaptionRefresh Explorer
ImageIndex	OnExecuteRefreshTokensExecuteTActionExitCaptionExit	OnExecuteExitExecute	TMainMenuMainMenuImages
ToolImagesLeft*TopÜ	TMenuItemFile1CaptionFile	TMenuItem	Openfile1ActionOpen	TMenuItemN1Caption-	TMenuItemExit1ActionExit	TMenuItemOptions1CaptionOptions	TMenuItem
Alphasort1Action	SortAlpha	TMenuItemRefreshExplorer1Action
RefreshTokens
TImageList
ToolImagesLeftTop(Bitmap
&	ILÿÿÿÿÿÿÿÿÿÿÿÿÿBM66(@ÿÿ|<|ï=ÿÿ|<|à=à÷^à÷^à÷^à÷^àï=ÿÿÿÿ|<|à=à=àà÷^à÷^à÷^à÷^àÿÿÿÿÿ|<|à=à=ÿàà÷^à÷^à÷^à÷^àÿï=ÿ|<|à=àÿàÿï=ï=ï=ÿ|||||cÿàÿàÿÿÿÿÿÿÿÿÿï=ÿï=<<<<<cBàÿàÿàÿÿï=ï=à=à=à=cBÿàÿàÿÿÿÿÿÿÿÿÿï=ï=à=à=à=cBÿàÿàÿÿà=à=à=cBï=ÿÿÿÿÿÿÿÿà=à=à=cBÿÿÿï=ï=à=à=à=cBÿÿÿÿÿÿà=ï=ï=cBÿÿÿÿÿï=ï=cBà=ï=ï=ï=cBà=à=BBM>>(@€ÿÿÿÿÿÿÿøb€ÿÿ€àñƒàûÇàùÇ1á?ø1Á??ý�Á�ÿþü�Ãÿü�þ€þÌ7€þ¨w`üþ@÷üÿ?ãüÿÁãSüÿÿÀãÿÿÿÿÈ?/
TImageList
TreeImagesLeftTopXBitmap
&	ILÿÿÿÿÿÿÿÿÿÿÿÿÿBM66(@ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿà÷^à÷^à÷^à÷^àÿÿÿÿÿÿÿÿÿÿccÿà÷^à÷^à÷^à÷^àÿÿÿÿÿÿcBcBàÿà÷^à÷^à÷^à÷^àÿàÿÿÿÿÿcBcBÿàÿÿààÿÿàÿÿcBcBàÿàÿàÿàÿàÿàÿàÿÿàÿÿÿÿcBcBÿàÿàÿàÿàÿàÿàÿÿàÿÿÿÿÿcBcBàÿàÿàÿÿàÿàÿàÿÿÿcBcBàÿàÿÿàÿàÿàÿÿÿÿcBcBï=ï=ÿÿàÿààÿàÿÿcBcBÿÿÿàÿàÿÿÿcBcBÿÿÿÿBBBM>>(@€ÿÿÿÿÿð÷½÷½ÿÿð÷½÷½ÿÿð÷½÷½ÿÿð÷½÷½Àð÷½÷½€ð÷½÷½€ð÷½÷½€à÷½÷½€À÷½÷½€€÷½÷½€€÷½÷½€÷½÷½Àÿ÷½÷½Àÿ˜Çÿÿÿÿ`V/