//User moet dit gebruiken om te verwijzen naar nodedata #Define uNDFull(%un) Hulp(%un) #Define uND(%un,%v) Hulp(%un,+%v) #Define uNDE(%un,%v,%e) Hulp(%un,+%v,%e) //Te gebruiken intern in TreeViewEx component #Define NDFull $$$uNDFull(..UN) #Define ND(%v) $$$uND(..UN,%v) #Define NDE(%v,%e) $$$uNDE(..UN,%v,%e) //Generic Constants #Define gcItemHeight 1 #Define gcTVItemHeight 2 #Define gcBackgroundColor 3 #Define gcPreBufferCount 4 #Define gcMaxBufferCount 5 #Define gcLoadDefaultRows 6 #Define gcUseFontCorrTable 7 ;gcTVItemHeight: Property van TMTreeView, eigenlijk gekoppeld aan TreeView via Font.Size... //Generic Nodes #Define gnFetch "FS" #Define gnList "LS" #Define gnDefinition "LD" //Definition Constants #Define dcProgram 1 #Define dcFetchID 2 #Define dcVolgNr 3 //Row Constants #Define rcLinkerlijnDikte 1 #Define rcLinkerlijnColor 2 #Define rcOnderlijnDikte 3 #Define rcOnderlijnColor 4 #Define rcBovenlijnDikte 5 #Define rcBovenlijnColor 6 #Define rcBackgroundColor 7 #Define rcTextColor 8 #Define rcStructure 9 #Define rcPixelFormat 10 #Define rcBorderSpaceLeft 11 #Define rcSpaceToTxt 12 #Define rcShadowColor 13 #Define rcButtonPlus 14 #Define rcButtonMin 15 #Define rcBorderSpaceTop 16 #Define rcHeight 17 #Define rcAutoBuildDummyPre 18 #Define rcAutoBuildDummyPost 19 #Define rcRTLength 20 #Define rcRTVBackground 21 #Define rcRTVFlip 22 #Define rcRTIsHeader 23 ;rcRTLength: Property wordt runtime opgebouwd, som van $$$ccLength ;rcRTVBackground: Bevat Bitmap pre-cached, indien=0, nog geen pre-cache uitgevoerd ;rcRTVFlip: Background wo op deze bitmap 'geflipt' om hierop txt te plaatsen //Column Constants #Define ccVolgNr "VNR" #Define ccType "TYPE" #Define ccBackgroundColor "BGC" #Define ccTextColor "TC" #Define ccFormat "FMT" #Define ccLength "LEN" #Define ccAantalDecimalen "ADEC" #Define ccFontType "FN" #Define ccFontSize "FSI" #Define ccFontStyle "FST" #Define ccListOpties "LO" #Define ccListResource "LR" #Define ccFetchCode "FC" #Define ccFetchExecute "FE" ;#Define ccFetchTransformatie "FT" #Define ccFormatTransformatie "FMTT" #Define ccEditeerbaar "EDIT" #Define ccRechterlijnDikte "RLD" #Define ccRechterlijnColor "RLC" #Define ccTextFlags "TXTFL" #Define ccVisible "VIS" #Define ccCaption "CAP" #Define ccRTXBegin "RTxB" #Define ccRTXEnd "RTxE" ;ccRTXBegin,End: Runtime berekend: |--------|, 1e '|' is ccRTxBegin, 2e ccRTxEnd en '---...' is ccLength //Column Nodes #Define cnFormat "VF" #Define cnExecute "VE" //Fetch Constants #Define fcFetchType 1 #Define fcRijFormatDefault 2 #Define fcSelectFmtDefault 3 #Define fcHeaderFormat 4 #Define fcKeyName 5 #Define fcListPiece 6 #Define fcDelimiter 7 //Fetch Nodes #Define fnName "N" #Define fnInitialisation "I" #Define fnEXESelf "E" #Define fnEXEOrder "O" #Define fnEXEObjQuery "OQ" #Define fnEXEDynSQL "DS" #Define fnFetchExec "FE" #Define fnRijFormatSelectie "RFS" #Define fnCheckIfSubnodes "SN" //------------------ SPECIFICS ----------------------- //RowStructures #Define srsNone "NONE" #Define srsObject "OBJ" #Define srsList "LST" #Define srsPiece "PC" //ColumnTypes #Define sctChar "CHAR" #Define sctDAChar "DACHAR" #Define sctMemo "MEMO" #Define sctNumeric "NUM" #Define sctFloat "FLOAT" #Define sctPopupItem "PI" #Define sctIcon "ICON" #Define sctUserDefinedCmp "UCMP" //---------------------------------------------------- //Names for aBTN #Define inExpandBtn 1 #Define inCollapseBtn 2 #Define inSelExpandBtn 3 #Define inSelCollapseBtn 4 //Blobnames #Define bnExpandBtn "BMP_PacmanExpanded" #Define bnCollapseBtn "BMP_PacmanCollapsed" #Define bnExpandBtn3D "BMP_PacmanExpanded3D" #Define bnCollapseBtn3D "BMP_PacmanCollapsed3D" ;#Define bnExpandBtn "TTreeViewEx_ExpandBtn" ;#Define bnCollapseBtn "TTreeViewEx_CollapseBtn" ;#Define bnExpandBtn3D "TTreeViewEx_ExpandBtn3D" ;#Define bnCollapseBtn3D "TTreeViewEx_CollapseBtn3D" //ComponentNames #Define cmpUserDefined 0 #Define cmpEdit 1 #Define cmpDAEdit 2 #Define cmpComboBox 3 #Define cmpMemo 4 //---------------------------------------------------- //Indexing stuff #Define ildProgram 1 #Define ildFetchID 2 #Define ildRijFormatDefault 3 #Define ildSelectFmtDefault 4 #Define ildHeaderFormat 5 //---------------------------------------------------- //Node.Text inhoud: //$LB($LB(F1,F2,F3,...),Bookmark,HasChildren,NodesFetched,IsHeader,...) #Define ntFieldData 1 #Define ntBookmark 2 #Define ntHasChildren 3 #Define ntNodesFetched 4 #Define ntIsHeader 5 #Define ntIsSelectable 6 #Define ntIsDrawable 7 #Define ntVBackground 8 #Define ntVFlip 9 #Define ntSelVBackground 10 #Define ntSelVFlip 11 #Define ntProgram 12 #Define ntRowID 13 #Define ntSelRowID 14 #Define ntBSpaceLeft 15 #Define ntBSpaceTop 16 #Define ntSelBSpaceLeft 17 #Define ntSelBSpaceTop 18 #Define ntIsDummy 19 //---------------------------------------------------- //Constants related to pre-caching bitmap buffer - old school - niet meer gebruikt in versie 2 #Define pcAssocNode 1 #Define pcRoot "RT" #Define pcCount "CNT" #Define pcNextNode "NN" #Define pcPrevNode "PN" #Define pcLastNodeAdded "LN" #Define Ground "GND"