Last updated: 17. 2.1998, 20:55
<* +M2EXTENSIONS *> DEFINITION MODULE TreeData; (*----------------------------------------- TREEDATA.H -- Control Macro data definitions. (c) Paul Yao, 1995 -----------------------------------------*) IMPORT SYSTEM; IMPORT TreeView; IMPORT CommCtrl; IMPORT Windows; TYPE TypeOfFolder = [0..2]; TYPE ITEM = RECORD nType : TypeOfFolder; (* Type (TYPE_ITEM or TYPE_FOLDER) *) hItem : CommCtrl.HTREEITEM; (* Handle to TreeView item *) pName : Windows.PSTR; (* Message name *) pMacro : Windows.PSTR; (* Macro *) END; LPITEM = POINTER TO ITEM; TYPE FOLDER = RECORD nType : TypeOfFolder; (* Type (TYPE_ITEM or TYPE_FOLDER) *) hItem : CommCtrl.HTREEITEM; (* Handle to TreeView item *) pName : Windows.PSTR; (* Name of folder *) piChild : LPITEM; (* Pointer to macro data array *) END; LPFOLDER = POINTER TO FOLDER; CONST LASTITEM = SYSTEM.CAST(CommCtrl.HTREEITEM, 0ffffh); CONST TYPE_FOLDER = 01H; CONST TYPE_ITEM = 02H; (*----------------------------------------- TREEDATA.H -- Control Macro data definitions. (c) Paul Yao, 1995 -----------------------------------------*) (*------------------------------------------------------------------- *) (* ********** Animation Control Messages********** *) (*------------------------------------------------------------------- *) TYPE ItemAnimateArray = ARRAY[0..5] OF ITEM; VAR itemAnimate : ItemAnimateArray; (*******************************************************************- *) (* ********** Header Control Messages********** *) (*******************************************************************- *) TYPE ItemHeaderArray = ARRAY[0..7] OF ITEM; VAR itemHeader : ItemHeaderArray; (*******************************************************************- *) (* ********** Hot Key Control Messages ********** *) (*******************************************************************- *) TYPE ItemHotKeyArray = ARRAY[0..3] OF ITEM; VAR itemHotKey : ItemHotKeyArray; (*******************************************************************- *) (* ********** Image List Control Messages ********** *) (*******************************************************************- *) (* Create\Destroy\Save Image List *) TYPE ItemImageList1Array = ARRAY[0..7] OF ITEM; VAR itemImageList1 : ItemImageList1Array; (* Modify Image List *) TYPE ItemImageList2Array = ARRAY[0..8] OF ITEM; VAR itemImageList2 : ItemImageList2Array; (* Drag Images *) TYPE ItemImageList3Array = ARRAY[0..8] OF ITEM; VAR itemImageList3 : ItemImageList3Array; (* Draw Images *) TYPE ItemImageList4Array = ARRAY[0..2] OF ITEM; VAR itemImageList4 : ItemImageList4Array; (* Create Icon\Cursor from Image List *) TYPE ItemImageList5Array = ARRAY[0..2] OF ITEM; VAR itemImageList5 : ItemImageList5Array; (* Set\Query Attributes *) TYPE ItemImageList6Array = ARRAY[0..6] OF ITEM; VAR itemImageList6 : ItemImageList6Array; TYPE FldImageListArray = ARRAY[0..6] OF FOLDER; VAR fldImageList : FldImageListArray; (*******************************************************************- *) (* ********** List View Control Messages ********** *) (*******************************************************************- *) (* Modify Item List *) TYPE ItemListView1Array = ARRAY[0..3] OF ITEM; VAR itemListView1 : ItemListView1Array; (* Control Attributes *) TYPE ItemListView2Array = ARRAY[0..5] OF ITEM; VAR itemListView2 : ItemListView2Array; (* Drawing Attributes *) TYPE ItemListView3Array = ARRAY[0..11] OF ITEM; VAR itemListView3 : ItemListView3Array; (* Item Attributes *) TYPE ItemListView4Array = ARRAY[0..11] OF ITEM; VAR itemListView4 : ItemListView4Array; (* Column Attributes *) TYPE ItemListView5Array = ARRAY[0..6] OF ITEM; VAR itemListView5 : ItemListView5Array; (* Reorganize or Redraw List *) TYPE ItemListView6Array = ARRAY[0..4] OF ITEM; VAR itemListView6 : ItemListView6Array; (* Scrolling Attributes *) TYPE ItemListView7Array = ARRAY[0..4] OF ITEM; VAR itemListView7 : ItemListView7Array; (* Search Item List *) TYPE ItemListView8Array = ARRAY[0..2] OF ITEM; VAR itemListView8 : ItemListView8Array; (* Mouse \ Keyboard Input *) TYPE ItemListView9Array = ARRAY[0..3] OF ITEM; VAR itemListView9 : ItemListView9Array; (* In-Place Label Editing *) TYPE ItemListView0Array = ARRAY[0..2] OF ITEM; VAR itemListView0 : ItemListView0Array; TYPE FldListViewArray = ARRAY[0..10] OF FOLDER; VAR fldListView : FldListViewArray; (*******************************************************************- *) TYPE ItemProgressArray = ARRAY[0..5] OF ITEM; VAR itemProgress : ItemProgressArray; (*******************************************************************- *) (* ********** Property Sheet Control Messages ********** *) (*******************************************************************- *) (* Modify Property Sheet *) TYPE ItemPropSheet1Array = ARRAY[0..3] OF ITEM; VAR itemPropSheet1 : ItemPropSheet1Array; (* Property Sheet Button State *) TYPE ItemPropSheet2Array = ARRAY[0..5] OF ITEM; VAR itemPropSheet2 : ItemPropSheet2Array; (* Wizard Button State *) TYPE ItemPropSheet3Array = ARRAY[0..3] OF ITEM; VAR itemPropSheet3 : ItemPropSheet3Array; (* System Restart *) TYPE ItemPropSheet4Array = ARRAY[0..2] OF ITEM; VAR itemPropSheet4 : ItemPropSheet4Array; (* Query Window Handle *) TYPE ItemPropSheet5Array = ARRAY[0..2] OF ITEM; VAR itemPropSheet5 : ItemPropSheet5Array; (* Activate Specific Page *) TYPE ItemPropSheet6Array = ARRAY[0..2] OF ITEM; VAR itemPropSheet6 : ItemPropSheet6Array; (* Forward Message to All Property Pages *) TYPE ItemPropSheet7Array = ARRAY[0..2] OF ITEM; VAR itemPropSheet7 : ItemPropSheet7Array; TYPE FldPropSheetArray = ARRAY[0..7] OF FOLDER; VAR fldPropSheet : FldPropSheetArray; (*******************************************************************- *) (* ********** Rich Edit Control Messages ********** *) (*******************************************************************- *) (* Read\Write Text *) TYPE ItemRichEdit1Array = ARRAY[0..6] OF ITEM; VAR itemRichEdit1 : ItemRichEdit1Array; (* Search *) TYPE ItemRichEdit2Array = ARRAY[0..3] OF ITEM; VAR itemRichEdit2 : ItemRichEdit2Array; (* Text Selection *) TYPE ItemRichEdit3Array = ARRAY[0..5] OF ITEM; VAR itemRichEdit3 : ItemRichEdit3Array; (* Text Attributes *) TYPE ItemRichEdit4Array = ARRAY[0..7] OF ITEM; VAR itemRichEdit4 : ItemRichEdit4Array; (* Scrolling *) TYPE ItemRichEdit5Array = ARRAY[0..2] OF ITEM; VAR itemRichEdit5 : ItemRichEdit5Array; (* Text Query *) TYPE ItemRichEdit6Array = ARRAY[0..7] OF ITEM; VAR itemRichEdit6 : ItemRichEdit6Array; (* Edit Menu Features *) TYPE ItemRichEdit7Array = ARRAY[0..5] OF ITEM; VAR itemRichEdit7 : ItemRichEdit7Array; (* Window state *) TYPE ItemRichEdit8Array = ARRAY[0..6] OF ITEM; VAR itemRichEdit8 : ItemRichEdit8Array; (* Set \ Get Word Break Proc *) TYPE ItemRichEdit9Array = ARRAY[0..2] OF ITEM; VAR itemRichEdit9 : ItemRichEdit9Array; (* Printing *) TYPE ItemRichEdit10Array = ARRAY[0..3] OF ITEM; VAR itemRichEdit10 : ItemRichEdit10Array; (* Formatting *) TYPE ItemRichEdit11Array = ARRAY[0..8] OF ITEM; VAR itemRichEdit11 : ItemRichEdit11Array; (* Event Notification Messages *) TYPE ItemRichEdit12Array = ARRAY[0..3] OF ITEM; VAR itemRichEdit12 : ItemRichEdit12Array; (* OLE Support *) TYPE ItemRichEdit13Array = ARRAY[0..2] OF ITEM; VAR itemRichEdit13 : ItemRichEdit13Array; (* Stream Support *) TYPE ItemRichEdit14Array = ARRAY[0..2] OF ITEM; VAR itemRichEdit14 : ItemRichEdit14Array; TYPE FldRichEditArray = ARRAY[0..14] OF FOLDER; VAR fldRichEdit : FldRichEditArray; (*******************************************************************- *) (* ********** Status Bar Control Messages ********** *) (*******************************************************************- *) TYPE ItemStatusArray = ARRAY[0..9] OF ITEM; VAR itemStatus : ItemStatusArray; (*******************************************************************- *) (* ********** Tab Control Messages ********** *) (*******************************************************************- *) (* Initialization *) TYPE ItemTab1Array = ARRAY[0..1] OF ITEM; VAR itemTab1 : ItemTab1Array; (* Query *) TYPE ItemTab2Array = ARRAY[0..5] OF ITEM; VAR itemTab2 : ItemTab2Array; (* Modify Tab List *) TYPE ItemTab3Array = ARRAY[0..7] OF ITEM; VAR itemTab3 : ItemTab3Array; (* Image List and Tool Tips *) TYPE ItemTab4Array = ARRAY[0..5] OF ITEM; VAR itemTab4 : ItemTab4Array; (* Selection and Focus *) TYPE ItemTab5Array = ARRAY[0..4] OF ITEM; VAR itemTab5 : ItemTab5Array; TYPE FldTabArray = ARRAY[0..5] OF FOLDER; VAR fldTab : FldTabArray; (*******************************************************************- *) (* ********** Tool Bar Control Messages ********** *) (*******************************************************************- *) (* Initialization *) TYPE ItemToolBar1Array = ARRAY[0..7] OF ITEM; VAR itemToolBar1 : ItemToolBar1Array; (* Handle WM_SIZE Message *) TYPE ItemToolBar2Array = ARRAY[0..1] OF ITEM; VAR itemToolBar2 : ItemToolBar2Array; (* Modify Button List *) TYPE ItemToolBar3Array = ARRAY[0..3] OF ITEM; VAR itemToolBar3 : ItemToolBar3Array; (* Button State *) TYPE ItemToolBar4Array = ARRAY[0..12] OF ITEM; VAR itemToolBar4 : ItemToolBar4Array; (* Button Attributes *) TYPE ItemToolBar5Array = ARRAY[0..6] OF ITEM; VAR itemToolBar5 : ItemToolBar5Array; (* Tool Bar Attributes *) TYPE ItemToolBar6Array = ARRAY[0..4] OF ITEM; VAR itemToolBar6 : ItemToolBar6Array; (* Display Customize Dialog Box *) TYPE ItemToolBar7Array = ARRAY[0..1] OF ITEM; VAR itemToolBar7 : ItemToolBar7Array; (* Tool Tip Support *) TYPE ItemToolBar8Array = ARRAY[0..2] OF ITEM; VAR itemToolBar8 : ItemToolBar8Array; (* Read \ Write Registry Data *) TYPE ItemToolBar9Array = ARRAY[0..1] OF ITEM; VAR itemToolBar9 : ItemToolBar9Array; TYPE FldToolBarArray = ARRAY[0..9] OF FOLDER; VAR fldToolBar : FldToolBarArray; (*******************************************************************- *) (* ********** Tool Tip Control Messages ********** *) (*******************************************************************- *) (* Modify Tool List *) TYPE ItemToolTip1Array = ARRAY[0..5] OF ITEM; VAR itemToolTip1 : ItemToolTip1Array; (* Query *) TYPE ItemToolTip2Array = ARRAY[0..6] OF ITEM; VAR itemToolTip2 : ItemToolTip2Array; (* Set Tooltip Window State *) TYPE ItemToolTip3Array = ARRAY[0..2] OF ITEM; VAR itemToolTip3 : ItemToolTip3Array; (* Pass Mouse Message *) TYPE ItemToolTip4Array = ARRAY[0..1] OF ITEM; VAR itemToolTip4 : ItemToolTip4Array; (* Support Subclassing of Tooltips *) TYPE ItemToolTip5Array = ARRAY[0..1] OF ITEM; VAR itemToolTip5 : ItemToolTip5Array; TYPE FldToolTipArray = ARRAY[0..5] OF FOLDER; VAR fldToolTip : FldToolTipArray; (*******************************************************************- *) (* ********** Track Bar Control Messages ********** *) (*******************************************************************- *) (* Trackbar Ticks *) TYPE ItemTrackBar1Array = ARRAY[0..7] OF ITEM; VAR itemTrackBar1 : ItemTrackBar1Array; (* Line and Page Increments *) TYPE ItemTrackBar2Array = ARRAY[0..4] OF ITEM; VAR itemTrackBar2 : ItemTrackBar2Array; (* Slider Position *) TYPE ItemTrackBar3Array = ARRAY[0..2] OF ITEM; VAR itemTrackBar3 : ItemTrackBar3Array; (* Slider Range *) TYPE ItemTrackBar4Array = ARRAY[0..5] OF ITEM; VAR itemTrackBar4 : ItemTrackBar4Array; (* Trackbar Selection *) TYPE ItemTrackBar5Array = ARRAY[0..6] OF ITEM; VAR itemTrackBar5 : ItemTrackBar5Array; (* Trackbar Appearance *) TYPE ItemTrackBar6Array = ARRAY[0..1] OF ITEM; VAR itemTrackBar6 : ItemTrackBar6Array; (* Slider (Thumb) Attributes *) TYPE ItemTrackBar7Array = ARRAY[0..3] OF ITEM; VAR itemTrackBar7 : ItemTrackBar7Array; TYPE FldTrackBarArray = ARRAY[0..7] OF FOLDER; VAR fldTrackBar : FldTrackBarArray; (*******************************************************************- *) (* ********** Tree View Control Messages ********** *) (*******************************************************************- *) (* Modify List *) TYPE ItemTreeView1Array = ARRAY[0..5] OF ITEM; VAR itemTreeView1 : ItemTreeView1Array; (* Item Layout, Display, and Order *) TYPE ItemTreeView2Array = ARRAY[0..6] OF ITEM; VAR itemTreeView2 : ItemTreeView2Array; (* Query *) TYPE ItemTreeView3Array = ARRAY[0..5] OF ITEM; VAR itemTreeView3 : ItemTreeView3Array; (* Image List *) TYPE ItemTreeView4Array = ARRAY[0..3] OF ITEM; VAR itemTreeView4 : ItemTreeView4Array; (* In-Place Label Edit *) TYPE ItemTreeView5Array = ARRAY[0..3] OF ITEM; VAR itemTreeView5 : ItemTreeView5Array; (* Enumerate Items *) TYPE ItemTreeView6Array = ARRAY[0..11] OF ITEM; VAR itemTreeView6 : ItemTreeView6Array; (* Select Items *) TYPE ItemTreeView7Array = ARRAY[0..4] OF ITEM; VAR itemTreeView7 : ItemTreeView7Array; TYPE FldTreeViewArray = ARRAY[0..7] OF FOLDER; VAR fldTreeView : FldTreeViewArray; (*******************************************************************- *) (* ********** Up\Down Control Messages ********** *) (*******************************************************************- *) TYPE ItemUpDownArray = ARRAY[0..10] OF ITEM; VAR itemUpDown : ItemUpDownArray; TYPE FldRootArray = ARRAY[0..14] OF FOLDER; VAR fldRoot : FldRootArray; VAR cRootFolders : INTEGER; END TreeData.