Last updated: 22.12.1997, 23:53
DEFINITION MODULE ToolTip; (*--------------------------------------- TOOLTIP.C -- Gadgets for a frame window. (c) Paul Yao, 1996 ToolTip.mod -- Translation to Stony Brook-Modula-2 (c) Peter Stadler, 30.05.1997 ---------------------------------------*) IMPORT WINUSER; IMPORT WINGDI; IMPORT WIN32; IMPORT WINX; IMPORT SYSTEM; IMPORT comcthlp; IMPORT h2d_gadgets; IMPORT COMMCTRL; VAR bComboBox : BOOLEAN; hwndEdit : WIN32.HWND; hwndTT : WIN32.HWND; (* Map toolbar button command to string index.*) TYPE CommandArray = ARRAY[0..12] OF INTEGER; CONST CommandToString = CommandArray { h2d_gadgets.IDM_FILE_NEW, h2d_gadgets.IDM_FILE_OPEN, h2d_gadgets.IDM_FILE_SAVE, h2d_gadgets.IDM_FILE_PRINT, h2d_gadgets.IDM_FILE_PREVIEW, h2d_gadgets.IDM_EDIT_CUT, h2d_gadgets.IDM_EDIT_COPY, h2d_gadgets.IDM_EDIT_PASTE, h2d_gadgets.IDM_EDIT_UNDO, h2d_gadgets.IDM_EDIT_PROP, h2d_gadgets.IDM_TB_HELP, h2d_gadgets.IDM_TB_DELETE, -1 }; (*++++*****************************************************************) PROCEDURE InitToolTip(hwndToolBar : WIN32.HWND; hwndComboBox : WIN32.HWND) : BOOLEAN; (**********************************************************************) (*++++*****************************************************************) PROCEDURE CopyToolTipText(lpttt : COMMCTRL.LPTOOLTIPTEXT); (**********************************************************************) END ToolTip.