Last updated: 17. 2.1998, 20:53
(* m_comcthlp.mod Aug 3 12:14:16 1997 *) (* Generated by H2D v1.12 from comcthlp.h. *) <*+ M2ADDTYPES *> <*+ M2EXTENSIONS *> (* Prototypes for macro implementation *) IMPLEMENTATION MODULE m_comcthlp; IMPORT SYSTEM; PROCEDURE ["C"] HotKey_GetHotKey ( hwnd: ARRAY OF SYSTEM.BYTE ); (* #define HotKey_GetHotKey(hwnd) \ (WORD)SendMessage((hwnd), HKM_GETHOTKEY, 0, 0L) *) BEGIN END HotKey_GetHotKey; PROCEDURE ["C"] HotKey_SetHotKey ( hwnd, bVKHotKey, bfMods: ARRAY OF SYSTEM.BYTE ); (* #define HotKey_SetHotKey(hwnd, bVKHotKey, bfMods) \ (void)SendMessage((hwnd), HKM_SETHOTKEY, MAKEWORD(bVKHotKey, bfMods), 0L) *) BEGIN END HotKey_SetHotKey; PROCEDURE ["C"] HotKey_SetRules ( hwnd, fwCombInv, fwModInv: ARRAY OF SYSTEM.BYTE ); (* #define HotKey_SetRules(hwnd, fwCombInv, fwModInv) \ (void)SendMessage((hwnd), HKM_SETRULES, (WPARAM) fwCombInv, MAKELPARAM(fwModInv, 0)) *) BEGIN END HotKey_SetRules; PROCEDURE ["C"] Progress_DeltaPos ( hwnd, nIncrement: ARRAY OF SYSTEM.BYTE ); (* #define Progress_DeltaPos(hwnd, nIncrement) \ (int)SendMessage((hwnd), PBM_DELTAPOS, (WPARAM) nIncrement, 0L) *) BEGIN END Progress_DeltaPos; PROCEDURE ["C"] Progress_SetPos ( hwnd, nNewPos: ARRAY OF SYSTEM.BYTE ); (* #define Progress_SetPos(hwnd, nNewPos) \ (int)SendMessage((hwnd), PBM_SETPOS, (WPARAM) nNewPos, 0L) *) BEGIN END Progress_SetPos; PROCEDURE ["C"] Progress_SetRange ( hwnd, nMinRange, nMaxRange: ARRAY OF SYSTEM.BYTE ); (* #define Progress_SetRange(hwnd, nMinRange, nMaxRange) \ (DWORD)SendMessage((hwnd), PBM_SETRANGE, 0, MAKELPARAM(nMinRange, nMaxRange)) *) BEGIN END Progress_SetRange; PROCEDURE ["C"] Progress_SetStep ( hwnd, nStepInc: ARRAY OF SYSTEM.BYTE ); (* #define Progress_SetStep(hwnd, nStepInc) \ (int)SendMessage((hwnd), PBM_SETSTEP, (WPARAM) nStepInc, 0L) *) BEGIN END Progress_SetStep; PROCEDURE ["C"] Progress_StepIt ( hwnd: ARRAY OF SYSTEM.BYTE ); (* #define Progress_StepIt(hwnd) \ (int)SendMessage((hwnd), PBM_STEPIT, 0, 0L) *) BEGIN END Progress_StepIt; PROCEDURE ["C"] RichEdit_CanPaste ( hwnd, uFormat: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_CanPaste(hwnd, uFormat) \ (BOOL)SendMessage((hwnd), EM_CANPASTE, (WPARAM) (UINT) uFormat, 0L) *) BEGIN END RichEdit_CanPaste; PROCEDURE ["C"] RichEdit_CanUndo ( hwndCtl: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_CanUndo(hwndCtl) \ ((BOOL)(DWORD)SendMessage((hwndCtl), EM_CANUNDO, 0L, 0L)) *) BEGIN END RichEdit_CanUndo; PROCEDURE ["C"] RichEdit_CharFromPos ( hwnd, x, y: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_CharFromPos(hwnd, x, y) \ (DWORD)SendMessage((hwnd), EM_CHARFROMPOS, 0, MAKELPARAM(x, y)) *) BEGIN END RichEdit_CharFromPos; PROCEDURE ["C"] RichEdit_DisplayBand ( hwnd, lprc: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_DisplayBand(hwnd, lprc) \ (BOOL)SendMessage((hwnd), EM_DISPLAYBAND, 0, (LPARAM) (LPRECT) lprc) *) BEGIN END RichEdit_DisplayBand; PROCEDURE ["C"] RichEdit_EmptyUndoBuffer ( hwndCtl: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_EmptyUndoBuffer(hwndCtl) \ ((void)SendMessage((hwndCtl), EM_EMPTYUNDOBUFFER, 0L, 0L)) *) BEGIN END RichEdit_EmptyUndoBuffer; PROCEDURE ["C"] RichEdit_Enable ( hwndCtl, fEnable: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_Enable(hwndCtl, fEnable) \ (BOOL)EnableWindow((hwndCtl), (fEnable)) *) BEGIN END RichEdit_Enable; PROCEDURE ["C"] RichEdit_ExGetSel ( hwnd, lpchr: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_ExGetSel(hwnd, lpchr) \ (void)SendMessage((hwnd), EM_EXGETSEL, 0, (LPARAM) (CHARRANGE FAR *) lpchr) *) BEGIN END RichEdit_ExGetSel; PROCEDURE ["C"] RichEdit_ExLimitText ( hwnd, cchTextMax: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_ExLimitText(hwnd, cchTextMax) \ (void)SendMessage((hwnd), EM_EXLIMITTEXT, 0, (LPARAM) (DWORD) cchTextMax) *) BEGIN END RichEdit_ExLimitText; PROCEDURE ["C"] RichEdit_ExLineFromChar ( hwnd, ichCharPos: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_ExLineFromChar(hwnd, ichCharPos) \ (int)SendMessage((hwnd), EM_EXLINEFROMCHAR, 0, (LPARAM) (DWORD) ichCharPos) *) BEGIN END RichEdit_ExLineFromChar; PROCEDURE ["C"] RichEdit_ExSetSel ( hwnd, ichCharRange: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_ExSetSel(hwnd, ichCharRange) \ (int)SendMessage((hwnd), EM_EXSETSEL, 0, (LPARAM) (CHARRANGE FAR *) ichCharRange) *) BEGIN END RichEdit_ExSetSel; PROCEDURE ["C"] RichEdit_FindText ( hwnd, fuFlags, lpFindText: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_FindText(hwnd, fuFlags, lpFindText) \ (int)SendMessage((hwnd), EM_FINDTEXT, (WPARAM) (UINT) fuFlags, (LPARAM) (FINDTEXT FAR *) lpFindText) *) BEGIN END RichEdit_FindText; PROCEDURE ["C"] RichEdit_FindTextEx ( hwnd, fuFlags, lpFindText: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_FindTextEx(hwnd, fuFlags, lpFindText) \ (int)SendMessage((hwnd), EM_FINDTEXTEX, (WPARAM) (UINT) fuFlags, (LPARAM) (FINDTEXT FAR *) lpFindText) *) BEGIN END RichEdit_FindTextEx; PROCEDURE ["C"] RichEdit_FindWordBreak ( hwnd, code, ichStart: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_FindWordBreak(hwnd, code, ichStart) \ (int)SendMessage((hwnd), EM_FINDWORDBREAK, (WPARAM) (UINT) code, (LPARAM) (DWORD) ichStart) *) BEGIN END RichEdit_FindWordBreak; PROCEDURE ["C"] RichEdit_FormatRange ( hwnd, fRender, lpFmt: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_FormatRange(hwnd, fRender, lpFmt) \ (int)SendMessage((hwnd), EM_FORMATRANGE, (WPARAM) (BOOL) fRender, (LPARAM) (FORMATRANGE FAR *) lpFmt) *) BEGIN END RichEdit_FormatRange; PROCEDURE ["C"] RichEdit_GetCharFormat ( hwnd, fSelection, lpFmt: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_GetCharFormat(hwnd, fSelection, lpFmt) \ (DWORD)SendMessage((hwnd), EM_GETCHARFORMAT, (WPARAM) (BOOL) fSelection, (LPARAM) (CHARFORMAT FAR *) lpFmt) *) BEGIN END RichEdit_GetCharFormat; PROCEDURE ["C"] RichEdit_GetEventMask ( hwnd: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_GetEventMask(hwnd) \ (DWORD)SendMessage((hwnd), EM_GETEVENTMASK, 0, 0L) *) BEGIN END RichEdit_GetEventMask; PROCEDURE ["C"] RichEdit_GetFirstVisibleLine ( hwndCtl: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_GetFirstVisibleLine(hwndCtl) \ ((int)(DWORD)SendMessage((hwndCtl), EM_GETFIRSTVISIBLELINE, 0L, 0L)) *) BEGIN END RichEdit_GetFirstVisibleLine; PROCEDURE ["C"] RichEdit_GetLimitText ( hwnd: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_GetLimitText(hwnd) \ (int)SendMessage((hwnd), EM_GETLIMITTEXT, 0, 0L) *) BEGIN END RichEdit_GetLimitText; PROCEDURE ["C"] RichEdit_GetLine ( hwndCtl, line, lpch, cchMax: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_GetLine(hwndCtl, line, lpch, cchMax) \ ((*((int *)(lpch)) = (cchMax)), ((int)(DWORD)SendMessage((hwndCtl), EM_GETLINE, (WPARAM)(int)(line), (LPARAM)(LPTSTR)(lpch)))) *) BEGIN END RichEdit_GetLine; PROCEDURE ["C"] RichEdit_GetLineCount ( hwndCtl: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_GetLineCount(hwndCtl) \ ((int)(DWORD)SendMessage((hwndCtl), EM_GETLINECOUNT, 0L, 0L)) *) BEGIN END RichEdit_GetLineCount; PROCEDURE ["C"] RichEdit_GetModify ( hwndCtl: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_GetModify(hwndCtl) \ ((BOOL)(DWORD)SendMessage((hwndCtl), EM_GETMODIFY, 0L, 0L)) *) BEGIN END RichEdit_GetModify; PROCEDURE ["C"] RichEdit_GetOleInterface ( hwnd, ppObject: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_GetOleInterface(hwnd, ppObject) \ (BOOL)SendMessage((hwnd), EM_GETOLEINTERFACE, 0, (LPARAM) (LPVOID FAR *) ppObject) *) BEGIN END RichEdit_GetOleInterface; PROCEDURE ["C"] RichEdit_GetOptions ( hwnd: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_GetOptions(hwnd) \ (UINT)SendMessage((hwnd), EM_GETOPTIONS, 0, 0L) *) BEGIN END RichEdit_GetOptions; PROCEDURE ["C"] RichEdit_GetParaFormat ( hwnd, lpFmt: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_GetParaFormat(hwnd, lpFmt) \ (DWORD)SendMessage((hwnd), EM_GETPARAFORMAT, 0, (LPARAM) (PARAFORMAT FAR *) lpFmt) *) BEGIN END RichEdit_GetParaFormat; PROCEDURE ["C"] RichEdit_GetRect ( hwndCtl, lprc: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_GetRect(hwndCtl, lprc) \ ((void)SendMessage((hwndCtl), EM_GETRECT, 0L, (LPARAM)(RECT *)(lprc))) *) BEGIN END RichEdit_GetRect; PROCEDURE ["C"] RichEdit_GetSel ( hwndCtl: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_GetSel(hwndCtl) \ ((DWORD)SendMessage((hwndCtl), EM_GETSEL, 0L, 0L)) *) BEGIN END RichEdit_GetSel; PROCEDURE ["C"] RichEdit_GetSelText ( hwnd, lpBuf: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_GetSelText(hwnd, lpBuf) \ (int)SendMessage((hwnd), EM_GETSELTEXT, 0, (LPARAM) (PSTR) lpBuf) *) BEGIN END RichEdit_GetSelText; PROCEDURE ["C"] RichEdit_GetText ( hwndCtl, lpch, cchMax: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_GetText(hwndCtl, lpch, cchMax) \ (int)GetWindowText((hwndCtl), (lpch), (cchMax)) *) BEGIN END RichEdit_GetText; PROCEDURE ["C"] RichEdit_GetTextLength ( hwndCtl: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_GetTextLength(hwndCtl) \ (int)GetWindowTextLength(hwndCtl) *) BEGIN END RichEdit_GetTextLength; PROCEDURE ["C"] RichEdit_GetTextRange ( hwnd, lpRange: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_GetTextRange(hwnd, lpRange) \ (int)SendMessage((hwnd), EM_GETTEXTRANGE, 0, (LPARAM) (TEXTRANGE FAR *) lpRange) *) BEGIN END RichEdit_GetTextRange; PROCEDURE ["C"] RichEdit_GetWordBreakProc ( hwndCtl: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_GetWordBreakProc(hwndCtl) \ ((EDITWORDBREAKPROC)SendMessage((hwndCtl), EM_GETWORDBREAKPROC, 0L, 0L)) *) BEGIN END RichEdit_GetWordBreakProc; PROCEDURE ["C"] RichEdit_GetWordBreakProcEx ( hwnd: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_GetWordBreakProcEx(hwnd) \ (EDITWORDBREAKPROCEX *)SendMessage((hwnd), EM_GETWORDBREAKPROCEX, 0, 0L) *) BEGIN END RichEdit_GetWordBreakProcEx; PROCEDURE ["C"] RichEdit_HideSelection ( hwnd, fHide, fChangeStyle: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_HideSelection(hwnd, fHide, fChangeStyle) \ (void)SendMessage((hwnd), EM_HIDESELECTION, (WPARAM) (BOOL) fHide, (LPARAM) (BOOL) fChangeStyle) *) BEGIN END RichEdit_HideSelection; PROCEDURE ["C"] RichEdit_LimitText ( hwndCtl, cchMax: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_LimitText(hwndCtl, cchMax) \ ((void)SendMessage((hwndCtl), EM_LIMITTEXT, (WPARAM)(cchMax), 0L)) *) BEGIN END RichEdit_LimitText; PROCEDURE ["C"] RichEdit_LineFromChar ( hwndCtl, ich: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_LineFromChar(hwndCtl, ich) \ ((int)(DWORD)SendMessage((hwndCtl), EM_LINEFROMCHAR, (WPARAM)(int)(ich), 0L)) *) BEGIN END RichEdit_LineFromChar; PROCEDURE ["C"] RichEdit_LineIndex ( hwndCtl, line: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_LineIndex(hwndCtl, line) \ ((int)(DWORD)SendMessage((hwndCtl), EM_LINEINDEX, (WPARAM)(int)(line), 0L)) *) BEGIN END RichEdit_LineIndex; PROCEDURE ["C"] RichEdit_LineLength ( hwndCtl, line: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_LineLength(hwndCtl, line) \ ((int)(DWORD)SendMessage((hwndCtl), EM_LINELENGTH, (WPARAM)(int)(line), 0L)) *) BEGIN END RichEdit_LineLength; PROCEDURE ["C"] RichEdit_PasteSpecial ( hwnd, uFormat: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_PasteSpecial(hwnd, uFormat) \ (void)SendMessage((hwnd), EM_PASTESPECIAL, (WPARAM) (UINT) uFormat, 0L) *) BEGIN END RichEdit_PasteSpecial; PROCEDURE ["C"] RichEdit_PosFromChar ( hwnd, wCharIndex: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_PosFromChar(hwnd, wCharIndex) \ (DWORD)SendMessage((hwnd), EM_POSFROMCHAR, (WPARAM)wCharIndex, 0L) *) BEGIN END RichEdit_PosFromChar; PROCEDURE ["C"] RichEdit_ReplaceSel ( hwndCtl, lpszReplace: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_ReplaceSel(hwndCtl, lpszReplace) \ ((void)SendMessage((hwndCtl), EM_REPLACESEL, 0L, (LPARAM)(LPCTSTR)(lpszReplace))) *) BEGIN END RichEdit_ReplaceSel; PROCEDURE ["C"] RichEdit_RequestResize ( hwnd: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_RequestResize(hwnd) \ (void)SendMessage((hwnd), EM_REQUESTRESIZE, 0, 0L) *) BEGIN END RichEdit_RequestResize; PROCEDURE ["C"] RichEdit_Scroll ( hwndCtl, dv, dh: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_Scroll(hwndCtl, dv, dh) \ ((void)SendMessage((hwndCtl), EM_LINESCROLL, (WPARAM)(dh), (LPARAM)(dv))) *) BEGIN END RichEdit_Scroll; PROCEDURE ["C"] RichEdit_ScrollCaret ( hwndCtl: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_ScrollCaret(hwndCtl) \ ((BOOL)(DWORD)SendMessage((hwndCtl), EM_SCROLLCARET, 0, 0L)) *) BEGIN END RichEdit_ScrollCaret; PROCEDURE ["C"] RichEdit_SelectionType ( hwnd: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_SelectionType(hwnd) \ (int)SendMessage((hwnd), EM_SELECTIONTYPE, 0, 0L) *) BEGIN END RichEdit_SelectionType; PROCEDURE ["C"] RichEdit_SetBkgndColor ( hwnd, fUseSysColor, clr: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_SetBkgndColor(hwnd, fUseSysColor, clr) \ (COLORREF)SendMessage((hwnd), EM_SETBKGNDCOLOR, (WPARAM) (BOOL) fUseSysColor, (LPARAM) (COLORREF) clr) *) BEGIN END RichEdit_SetBkgndColor; PROCEDURE ["C"] RichEdit_SetCharFormat ( hwnd, uFlags, lpFmt: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_SetCharFormat(hwnd, uFlags, lpFmt) \ (BOOL)SendMessage((hwnd), EM_SETCHARFORMAT, (WPARAM) (UINT) uFlags, (LPARAM) (CHARFORMAT FAR *) lpFmt) *) BEGIN END RichEdit_SetCharFormat; PROCEDURE ["C"] RichEdit_SetEventMask ( hwnd, dwMask: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_SetEventMask(hwnd, dwMask) \ (DWORD)SendMessage((hwnd), EM_SETEVENTMASK, 0, (LPARAM) (DWORD) dwMask) *) BEGIN END RichEdit_SetEventMask; PROCEDURE ["C"] RichEdit_SetModify ( hwndCtl, fModified: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_SetModify(hwndCtl, fModified) \ ((void)SendMessage((hwndCtl), EM_SETMODIFY, (WPARAM)(UINT)(fModified), 0L)) *) BEGIN END RichEdit_SetModify; PROCEDURE ["C"] RichEdit_SetOleCallback ( hwnd, lpObj: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_SetOleCallback(hwnd, lpObj) \ (BOOL)SendMessage((hwnd), EM_SETOLECALLBACK, 0, (LPARAM) (IRichEditOleCallback FAR *) lpObj) *) BEGIN END RichEdit_SetOleCallback; PROCEDURE ["C"] RichEdit_SetOptions ( hwnd, fOperation, fOptions: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_SetOptions(hwnd, fOperation, fOptions) \ (UINT)SendMessage((hwnd), EM_SETOPTIONS, (WPARAM) (UINT) fOperation, (LPARAM) (UINT) fOptions) *) BEGIN END RichEdit_SetOptions; PROCEDURE ["C"] RichEdit_SetParaFormat ( hwnd, lpFmt: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_SetParaFormat(hwnd, lpFmt) \ (BOOL)SendMessage((hwnd), EM_SETPARAFORMAT, 0, (LPARAM) (PARAFORMAT FAR *) lpFmt) *) BEGIN END RichEdit_SetParaFormat; PROCEDURE ["C"] RichEdit_SetReadOnly ( hwndCtl, fReadOnly: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_SetReadOnly(hwndCtl, fReadOnly) \ ((BOOL)(DWORD)SendMessage((hwndCtl), EM_SETREADONLY, (WPARAM)(BOOL)(fReadOnly), 0L)) *) BEGIN END RichEdit_SetReadOnly; PROCEDURE ["C"] RichEdit_SetRect ( hwndCtl, lprc: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_SetRect(hwndCtl, lprc) \ ((void)SendMessage((hwndCtl), EM_SETRECT, 0L, (LPARAM)(const RECT *)(lprc))) *) BEGIN END RichEdit_SetRect; PROCEDURE ["C"] RichEdit_SetSel ( hwndCtl, ichStart, ichEnd: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_SetSel(hwndCtl, ichStart, ichEnd) \ ((void)SendMessage((hwndCtl), EM_SETSEL, (ichStart), (ichEnd))) *) BEGIN END RichEdit_SetSel; PROCEDURE ["C"] RichEdit_SetTargetDevice ( hwnd, hdcTarget, cxLineWidth: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_SetTargetDevice(hwnd, hdcTarget, cxLineWidth) \ (BOOL)SendMessage((hwnd), EM_SETTARGETDEVICE, (WPARAM) (HDC) hdcTarget, (LPARAM) (int) cxLineWidth) *) BEGIN END RichEdit_SetTargetDevice; PROCEDURE ["C"] RichEdit_SetText ( hwndCtl, lpsz: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_SetText(hwndCtl, lpsz) \ (BOOL)SetWindowText((hwndCtl), (lpsz)) *) BEGIN END RichEdit_SetText; PROCEDURE ["C"] RichEdit_SetWordBreakProc ( hwndCtl, lpfnWordBreak: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_SetWordBreakProc(hwndCtl, lpfnWordBreak) \ ((void)SendMessage((hwndCtl), EM_SETWORDBREAKPROC, 0L, (LPARAM)(EDITWORDBREAKPROC)(lpfnWordBreak))) *) BEGIN END RichEdit_SetWordBreakProc; PROCEDURE ["C"] RichEdit_SetWordBreakProcEx ( hwnd, pfnWordBreakProcEx: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_SetWordBreakProcEx(hwnd, pfnWordBreakProcEx) \ (EDITWORDBREAKPROCEX *)SendMessage((hwnd), EM_SETWORDBREAKPROCEX, 0, (LPARAM) (EDITWORDBREAKPROCEX *)pfnWordBreakProcEx) *) BEGIN END RichEdit_SetWordBreakProcEx; PROCEDURE ["C"] RichEdit_StreamIn ( hwnd, uFormat, lpStream: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_StreamIn(hwnd, uFormat, lpStream) \ (int)SendMessage((hwnd), EM_STREAMIN, (WPARAM) (UINT) uFormat, (LPARAM) (EDITSTREAM FAR *) lpStream) *) BEGIN END RichEdit_StreamIn; PROCEDURE ["C"] RichEdit_StreamOut ( hwnd, uFormat, lpStream: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_StreamOut(hwnd, uFormat, lpStream) \ (int)SendMessage((hwnd), EM_STREAMOUT, (WPARAM) (UINT) uFormat, (LPARAM) (EDITSTREAM FAR *) lpStream) *) BEGIN END RichEdit_StreamOut; PROCEDURE ["C"] RichEdit_Undo ( hwndCtl: ARRAY OF SYSTEM.BYTE ); (* #define RichEdit_Undo(hwndCtl) \ ((BOOL)(DWORD)SendMessage((hwndCtl), EM_UNDO, 0L, 0L)) *) BEGIN END RichEdit_Undo; PROCEDURE ["C"] Status_GetBorders ( hwnd, aBorders: ARRAY OF SYSTEM.BYTE ); (* #define Status_GetBorders(hwnd, aBorders) \ (BOOL)SendMessage((hwnd), SB_GETBORDERS, 0, (LPARAM) (LPINT) aBorders) *) BEGIN END Status_GetBorders; PROCEDURE ["C"] Status_GetParts ( hwnd, nParts, aRightCoord: ARRAY OF SYSTEM.BYTE ); (* #define Status_GetParts(hwnd, nParts, aRightCoord) \ (int)SendMessage((hwnd), SB_GETPARTS, (WPARAM) nParts, (LPARAM) (LPINT) aRightCoord) *) BEGIN END Status_GetParts; PROCEDURE ["C"] Status_GetRect ( hwnd, iPart, lprc: ARRAY OF SYSTEM.BYTE ); (* #define Status_GetRect(hwnd, iPart, lprc) \ (BOOL)SendMessage((hwnd), SB_GETRECT, (WPARAM) iPart, (LPARAM) (LPRECT) lprc) *) BEGIN END Status_GetRect; PROCEDURE ["C"] Status_GetText ( hwnd, iPart, szText: ARRAY OF SYSTEM.BYTE ); (* #define Status_GetText(hwnd, iPart, szText) \ (DWORD)SendMessage((hwnd), SB_GETTEXT, (WPARAM) iPart, (LPARAM) (PSTR) szText) *) BEGIN END Status_GetText; PROCEDURE ["C"] Status_GetTextLength ( hwnd, iPart: ARRAY OF SYSTEM.BYTE ); (* #define Status_GetTextLength(hwnd, iPart) \ (DWORD)SendMessage((hwnd), SB_GETTEXTLENGTH, (WPARAM) iPart, 0L) *) BEGIN END Status_GetTextLength; PROCEDURE ["C"] Status_SetMinHeight ( hwnd, minHeight: ARRAY OF SYSTEM.BYTE ); (* #define Status_SetMinHeight(hwnd, minHeight) \ (void)SendMessage((hwnd), SB_SETMINHEIGHT, (WPARAM) minHeight, 0L) *) BEGIN END Status_SetMinHeight; PROCEDURE ["C"] Status_SetParts ( hwnd, nParts, aWidths: ARRAY OF SYSTEM.BYTE ); (* #define Status_SetParts(hwnd, nParts, aWidths) \ (BOOL)SendMessage((hwnd), SB_SETPARTS, (WPARAM) nParts, (LPARAM) (LPINT) aWidths) *) BEGIN END Status_SetParts; PROCEDURE ["C"] Status_SetText ( hwnd, iPart, uType, szText: ARRAY OF SYSTEM.BYTE ); (* #define Status_SetText(hwnd, iPart, uType, szText) \ (BOOL)SendMessage((hwnd), SB_SETTEXT, (WPARAM) (iPart | uType), (LPARAM) (PSTR) szText) *) BEGIN END Status_SetText; PROCEDURE ["C"] Status_Simple ( hwnd, fSimple: ARRAY OF SYSTEM.BYTE ); (* #define Status_Simple(hwnd, fSimple) \ (BOOL)SendMessage((hwnd), SB_SIMPLE, (WPARAM) (BOOL) fSimple, 0L) *) BEGIN END Status_Simple; PROCEDURE ["C"] ToolBar_AddBitmap ( hwnd, nButtons, lptbab: ARRAY OF SYSTEM.BYTE ); (* #define ToolBar_AddBitmap(hwnd, nButtons, lptbab) \ (int)SendMessage((hwnd), TB_ADDBITMAP, (WPARAM)nButtons, (LPARAM)(LPTBADDBITMAP) lptbab) *) BEGIN END ToolBar_AddBitmap; PROCEDURE ["C"] ToolBar_AddButtons ( hwnd, uNumButtons, lpButtons: ARRAY OF SYSTEM.BYTE ); (* #define ToolBar_AddButtons(hwnd, uNumButtons, lpButtons) \ (BOOL)SendMessage((hwnd), TB_ADDBUTTONS, (WPARAM)(UINT)uNumButtons, (LPARAM)(LPTBBUTTON)lpButtons) *) BEGIN END ToolBar_AddButtons; PROCEDURE ["C"] ToolBar_AddString ( hwnd, hinst, idString: ARRAY OF SYSTEM.BYTE ); (* #define ToolBar_AddString(hwnd, hinst, idString) \ (int)SendMessage((hwnd), TB_ADDSTRING, (WPARAM)(HINSTANCE)hinst, (LPARAM)idString) *) BEGIN END ToolBar_AddString; PROCEDURE ["C"] ToolBar_AutoSize ( hwnd: ARRAY OF SYSTEM.BYTE ); (* #define ToolBar_AutoSize(hwnd) \ (void)SendMessage((hwnd), TB_AUTOSIZE, 0, 0L) *) BEGIN END ToolBar_AutoSize; PROCEDURE ["C"] ToolBar_ButtonCount ( hwnd: ARRAY OF SYSTEM.BYTE ); (* #define ToolBar_ButtonCount(hwnd) \ (int)SendMessage((hwnd), TB_BUTTONCOUNT, 0, 0L) *) BEGIN END ToolBar_ButtonCount; PROCEDURE ["C"] ToolBar_ButtonStructSize ( hwnd: ARRAY OF SYSTEM.BYTE ); (* #define ToolBar_ButtonStructSize(hwnd) \ (void)SendMessage((hwnd), TB_BUTTONSTRUCTSIZE, (WPARAM)sizeof(TBBUTTON), 0L) *) BEGIN END ToolBar_ButtonStructSize; PROCEDURE ["C"] ToolBar_ChangeBitmap ( hwnd, idButton, iBitmap: ARRAY OF SYSTEM.BYTE ); (* #define ToolBar_ChangeBitmap(hwnd, idButton, iBitmap) \ (BOOL)SendMessage((hwnd), TB_CHANGEBITMAP, (WPARAM) idButton, (LPARAM)iBitmap); *) BEGIN END ToolBar_ChangeBitmap; PROCEDURE ["C"] ToolBar_CheckButton ( hwnd, idButton, fCheck: ARRAY OF SYSTEM.BYTE ); (* #define ToolBar_CheckButton(hwnd, idButton, fCheck ) \ (BOOL)SendMessage((hwnd), TB_CHECKBUTTON, (WPARAM) idButton, (LPARAM) MAKELONG(fCheck, 0)) *) BEGIN END ToolBar_CheckButton; PROCEDURE ["C"] ToolBar_CommandToIndex ( hwnd, idButton: ARRAY OF SYSTEM.BYTE ); (* #define ToolBar_CommandToIndex(hwnd, idButton) \ (int)SendMessage((hwnd), TB_COMMANDTOINDEX, (WPARAM) idButton, 0L) *) BEGIN END ToolBar_CommandToIndex; PROCEDURE ["C"] ToolBar_Customize ( hwnd: ARRAY OF SYSTEM.BYTE ); (* #define ToolBar_Customize(hwnd) \ (void)SendMessage((hwnd), TB_CUSTOMIZE, 0, 0L) *) BEGIN END ToolBar_Customize; PROCEDURE ["C"] ToolBar_DeleteButton ( hwnd, idButton: ARRAY OF SYSTEM.BYTE ); (* #define ToolBar_DeleteButton(hwnd, idButton) \ (BOOL)SendMessage((hwnd), TB_DELETEBUTTON, (WPARAM) idButton, 0L) *) BEGIN END ToolBar_DeleteButton; PROCEDURE ["C"] ToolBar_EnableButton ( hwnd, idButton, fEnable: ARRAY OF SYSTEM.BYTE ); (* #define ToolBar_EnableButton(hwnd, idButton, fEnable ) \ (BOOL)SendMessage((hwnd), TB_ENABLEBUTTON, (WPARAM) idButton, (LPARAM) MAKELONG(fEnable, 0)) *) BEGIN END ToolBar_EnableButton; PROCEDURE ["C"] ToolBar_GetBitmap ( hwnd, idButton: ARRAY OF SYSTEM.BYTE ); (* #define ToolBar_GetBitmap(hwnd, idButton) \ (int)SendMessage((hwnd), TB_GETBITMAP, (WPARAM) idButton, 0L) *) BEGIN END ToolBar_GetBitmap; PROCEDURE ["C"] ToolBar_GetBitmapFlags ( hwnd: ARRAY OF SYSTEM.BYTE ); (* #define ToolBar_GetBitmapFlags(hwnd) \ (int)SendMessage((hwnd), TB_GETBITMAPFLAGS, 0, 0L) *) BEGIN END ToolBar_GetBitmapFlags; PROCEDURE ["C"] ToolBar_GetButton ( hwnd, idButton, lpButton: ARRAY OF SYSTEM.BYTE ); (* #define ToolBar_GetButton(hwnd, idButton, lpButton) \ (BOOL)SendMessage((hwnd), TB_GETBUTTON, (WPARAM)idButton, (LPARAM)(LPTBBUTTON) lpButton) *) BEGIN END ToolBar_GetButton; PROCEDURE ["C"] ToolBar_GetButtonText ( hwnd, idButton, lpszText: ARRAY OF SYSTEM.BYTE ); (* #define ToolBar_GetButtonText(hwnd, idButton, lpszText) \ (int)SendMessage((hwnd), TB_GETBUTTONTEXT, (WPARAM) idButton, (LPARAM)(PSTR)lpszText) *) BEGIN END ToolBar_GetButtonText; PROCEDURE ["C"] ToolBar_GetItemRect ( hwnd, idButton, lprc: ARRAY OF SYSTEM.BYTE ); (* #define ToolBar_GetItemRect(hwnd, idButton, lprc) \ (BOOL)SendMessage((hwnd), TB_GETITEMRECT, (WPARAM)idButton, (LPARAM)(LPRECT)lprc) *) BEGIN END ToolBar_GetItemRect; PROCEDURE ["C"] ToolBar_GetRows ( hwnd: ARRAY OF SYSTEM.BYTE ); (* #define ToolBar_GetRows(hwnd) \ (int)SendMessage((hwnd), TB_GETROWS, 0, 0L) *) BEGIN END ToolBar_GetRows; PROCEDURE ["C"] ToolBar_GetState ( hwnd, idButton: ARRAY OF SYSTEM.BYTE ); (* #define ToolBar_GetState(hwnd, idButton) \ (int)SendMessage((hwnd), TB_GETSTATE, (WPARAM) idButton, 0L) *) BEGIN END ToolBar_GetState; PROCEDURE ["C"] ToolBar_GetToolTips ( hwnd: ARRAY OF SYSTEM.BYTE ); (* #define ToolBar_GetToolTips(hwnd) \ (hwnd)SendMessage((hwnd), TB_GETTOOLTIPS, 0, 0L) *) BEGIN END ToolBar_GetToolTips; PROCEDURE ["C"] ToolBar_HideButton ( hwnd, idButton, fShow: ARRAY OF SYSTEM.BYTE ); (* #define ToolBar_HideButton(hwnd, idButton, fShow) \ (BOOL)SendMessage((hwnd), TB_HIDEBUTTON, (WPARAM)idButton, (LPARAM)MAKELONG(fShow, 0)) *) BEGIN END ToolBar_HideButton; PROCEDURE ["C"] ToolBar_Indeterminate ( hwnd, idButton, fIndeterminate: ARRAY OF SYSTEM.BYTE ); (* #define ToolBar_Indeterminate(hwnd, idButton, fIndeterminate) \ (BOOL)SendMessage((hwnd), TB_INDETERMINATE, (WPARAM)idButton, (LPARAM) MAKELONG(fIndeterminate, 0)) *) BEGIN END ToolBar_Indeterminate; PROCEDURE ["C"] ToolBar_InsertButton ( hwnd, idButton, lpButton: ARRAY OF SYSTEM.BYTE ); (* #define ToolBar_InsertButton(hwnd, idButton, lpButton) \ (BOOL)SendMessage((hwnd), TB_INSERTBUTTON, (WPARAM)idButton, (LPARAM)(LPTBBUTTON)lpButton) *) BEGIN END ToolBar_InsertButton; PROCEDURE ["C"] ToolBar_IsButtonChecked ( hwnd, idButton: ARRAY OF SYSTEM.BYTE ); (* #define ToolBar_IsButtonChecked(hwnd, idButton) \ (int)SendMessage((hwnd), TB_ISBUTTONCHECKED, (WPARAM)idButton, 0L) *) BEGIN END ToolBar_IsButtonChecked; PROCEDURE ["C"] ToolBar_IsButtonEnabled ( hwnd, idButton: ARRAY OF SYSTEM.BYTE ); (* #define ToolBar_IsButtonEnabled(hwnd, idButton) \ (int)SendMessage((hwnd), TB_ISBUTTONENABLED, (WPARAM) idButton, 0L) *) BEGIN END ToolBar_IsButtonEnabled; PROCEDURE ["C"] ToolBar_IsButtonHidden ( hwnd, idButton: ARRAY OF SYSTEM.BYTE ); (* #define ToolBar_IsButtonHidden(hwnd, idButton) \ (int)SendMessage((hwnd), TB_ISBUTTONHIDDEN, (WPARAM) idButton, 0L) *) BEGIN END ToolBar_IsButtonHidden; PROCEDURE ["C"] ToolBar_IsButtonIndeterminate ( hwnd, idButton: ARRAY OF SYSTEM.BYTE ); (* #define ToolBar_IsButtonIndeterminate(hwnd, idButton) \ (int)SendMessage((hwnd), TB_ISBUTTONINDETERMINATE, (WPARAM) idButton, 0L) *) BEGIN END ToolBar_IsButtonIndeterminate; PROCEDURE ["C"] ToolBar_IsButtonPressed ( hwnd, idButton: ARRAY OF SYSTEM.BYTE ); (* #define ToolBar_IsButtonPressed(hwnd, idButton) \ (int)SendMessage((hwnd), TB_ISBUTTONPRESSED, (WPARAM) idButton, 0L *) BEGIN END ToolBar_IsButtonPressed; PROCEDURE ["C"] ToolBar_PressButton ( hwnd, idButton, fPress: ARRAY OF SYSTEM.BYTE ); (* #define ToolBar_PressButton(hwnd, idButton, fPress) \ (BOOL)SendMessage((hwnd), TB_PRESSBUTTON, (WPARAM)idButton, (LPARAM)MAKELONG(fPress, 0)) *) BEGIN END ToolBar_PressButton; PROCEDURE ["C"] ToolBar_SaveRestore ( hwnd, fSave, ptbsp: ARRAY OF SYSTEM.BYTE ); (* #define ToolBar_SaveRestore(hwnd, fSave, ptbsp) \ (void)SendMessage((hwnd), TB_SAVERESTORE, (WPARAM)(BOOL)fSave, (LPARAM)(TBSAVEPARAMS *)ptbsp) *) BEGIN END ToolBar_SaveRestore; PROCEDURE ["C"] ToolBar_SetBitmapSize ( hwnd, dxBitmap, dyBitmap: ARRAY OF SYSTEM.BYTE ); (* #define ToolBar_SetBitmapSize(hwnd, dxBitmap, dyBitmap) \ (BOOL)SendMessage((hwnd), TB_SETBITMAPSIZE, 0, (LPARAM)MAKELONG(dxBitmap, dyBitmap)) *) BEGIN END ToolBar_SetBitmapSize; PROCEDURE ["C"] ToolBar_SetButtonSize ( hwnd, dxBitmap, dyBitmap: ARRAY OF SYSTEM.BYTE ); (* #define ToolBar_SetButtonSize(hwnd, dxBitmap, dyBitmap) \ (BOOL)SendMessage((hwnd), TB_SETBUTTONSIZE, 0, (LPARAM)MAKELONG(dxBitmap, dyBitmap)) *) BEGIN END ToolBar_SetButtonSize; PROCEDURE ["C"] ToolBar_SetCmdID ( hwnd, index, cmdId: ARRAY OF SYSTEM.BYTE ); (* #define ToolBar_SetCmdID(hwnd, index, cmdId) \ (BOOL)SendMessage((hwnd), TB_SETCMDID, (WPARAM)(UINT)index, (WPARAM)(UINT)cmdId) *) BEGIN END ToolBar_SetCmdID; PROCEDURE ["C"] ToolBar_SetParent ( hwnd, hwndParent: ARRAY OF SYSTEM.BYTE ); (* #define ToolBar_SetParent(hwnd, hwndParent) \ (void)SendMessage((hwnd), TB_SETPARENT, (WPARAM) (hwnd) hwndParent, 0L) *) BEGIN END ToolBar_SetParent; PROCEDURE ["C"] ToolBar_SetRows ( hwnd, cRows, fLarger, lprc: ARRAY OF SYSTEM.BYTE ); (* #define ToolBar_SetRows(hwnd, cRows, fLarger, lprc) \ (void)SendMessage((hwnd), TB_SETROWS, (WPARAM)MAKEWPARAM(cRows, fLarger),(LPARAM)(LPRECT)lprc) *) BEGIN END ToolBar_SetRows; PROCEDURE ["C"] ToolBar_SetState ( hwnd, idButton, fState: ARRAY OF SYSTEM.BYTE ); (* #define ToolBar_SetState(hwnd, idButton, fState) \ (BOOL)SendMessage((hwnd), TB_SETSTATE, (WPARAM)idButton, (LPARAM)MAKELONG(fState, 0)) *) BEGIN END ToolBar_SetState; PROCEDURE ["C"] ToolBar_SetToolTips ( hwnd: ARRAY OF SYSTEM.BYTE ); (* #define ToolBar_SetToolTips(hwnd) \ (void)SendMessage((hwnd), TB_SETTOOLTIPS, (WPARAM)(hwnd) hwndToolTip, 0L) *) BEGIN END ToolBar_SetToolTips; PROCEDURE ["C"] ToolTip_Activate ( hwnd, fActivate: ARRAY OF SYSTEM.BYTE ); (* #define ToolTip_Activate(hwnd, fActivate) \ (void)SendMessage((hwnd), TTM_ACTIVATE, (WPARAM) (BOOL) fActivate, 0L) *) BEGIN END ToolTip_Activate; PROCEDURE ["C"] ToolTip_AddTool ( hwnd, lpti: ARRAY OF SYSTEM.BYTE ); (* #define ToolTip_AddTool(hwnd, lpti) \ (BOOL)SendMessage((hwnd), TTM_ADDTOOL, 0, (LPARAM) (LPTOOLINFO) lpti) *) BEGIN END ToolTip_AddTool; PROCEDURE ["C"] ToolTip_DelTool ( hwnd, lpti: ARRAY OF SYSTEM.BYTE ); (* #define ToolTip_DelTool(hwnd, lpti) \ (void)SendMessage((hwnd), TTM_DELTOOL, 0, (LPARAM) (LPTOOLINFO) lpti) *) BEGIN END ToolTip_DelTool; PROCEDURE ["C"] ToolTip_EnumTools ( hwnd, iTool, lpti: ARRAY OF SYSTEM.BYTE ); (* #define ToolTip_EnumTools(hwnd, iTool, lpti) \ (BOOL)SendMessage((hwnd), TTM_ENUMTOOLS, (WPARAM) (UINT) iTool, (LPARAM) (LPTOOLINFO) lpti) *) BEGIN END ToolTip_EnumTools; PROCEDURE ["C"] ToolTip_GetCurrentTool ( hwnd, lpti: ARRAY OF SYSTEM.BYTE ); (* #define ToolTip_GetCurrentTool(hwnd, lpti) \ (BOOL)SendMessage((hwnd), TTM_GETCURRENTTOOL, 0, (LPARAM) (LPTOOLINFO) lpti) *) BEGIN END ToolTip_GetCurrentTool; PROCEDURE ["C"] ToolTip_GetText ( hwnd, lpti: ARRAY OF SYSTEM.BYTE ); (* #define ToolTip_GetText(hwnd, lpti) \ (void)SendMessage((hwnd), TTM_GETTEXT, 0, (LPARAM) (LPTOOLINFO) lpti) *) BEGIN END ToolTip_GetText; PROCEDURE ["C"] ToolTip_GetToolCount ( hwnd: ARRAY OF SYSTEM.BYTE ); (* #define ToolTip_GetToolCount(hwnd) \ (int)SendMessage((hwnd), TTM_GETTOOLCOUNT, 0, 0L) *) BEGIN END ToolTip_GetToolCount; PROCEDURE ["C"] ToolTip_GetToolInfo ( hwnd, lpti: ARRAY OF SYSTEM.BYTE ); (* #define ToolTip_GetToolInfo(hwnd, lpti) \ (BOOL)SendMessage((hwnd), TTM_GETTOOLINFO, 0, (LPARAM) (LPTOOLINFO) lpti) *) BEGIN END ToolTip_GetToolInfo; PROCEDURE ["C"] ToolTip_HitText ( hwnd, lphti: ARRAY OF SYSTEM.BYTE ); (* #define ToolTip_HitText(hwnd, lphti) \ (BOOL)SendMessage((hwnd), TTM_HITTEST, 0, (LPARAM) (LPHITTESTINFO) lphti) *) BEGIN END ToolTip_HitText; PROCEDURE ["C"] ToolTip_NewToolRect ( hwnd, lpti: ARRAY OF SYSTEM.BYTE ); (* #define ToolTip_NewToolRect(hwnd, lpti) \ (void)SendMessage((hwnd), TTM_NEWTOOLRECT, 0, (LPARAM) (LPTOOLINFO) lpti) *) BEGIN END ToolTip_NewToolRect; PROCEDURE ["C"] ToolTip_RelayEvent ( hwnd, lpmsg: ARRAY OF SYSTEM.BYTE ); (* #define ToolTip_RelayEvent(hwnd, lpmsg) \ (void)SendMessage((hwnd), TTM_RELAYEVENT, 0, (LPARAM) (LPMSG) lpmsg) *) BEGIN END ToolTip_RelayEvent; PROCEDURE ["C"] ToolTip_SetDelayTime ( hwnd, uFlag, iDelay: ARRAY OF SYSTEM.BYTE ); (* #define ToolTip_SetDelayTime(hwnd, uFlag, iDelay) \ (void)SendMessage((hwnd), TTM_SETDELAYTIME, (WPARAM) uFlag, (LPARAM) (int) iDelay) *) BEGIN END ToolTip_SetDelayTime; PROCEDURE ["C"] ToolTip_SetToolInfo ( hwnd, lpti: ARRAY OF SYSTEM.BYTE ); (* #define ToolTip_SetToolInfo(hwnd, lpti) \ (void)SendMessage((hwnd), TTM_SETTOOLINFO, (LPARAM) (LPTOOLINFO) lpti) *) BEGIN END ToolTip_SetToolInfo; PROCEDURE ["C"] ToolTip_UpdateTipText ( hwnd, lpti: ARRAY OF SYSTEM.BYTE ); (* #define ToolTip_UpdateTipText(hwnd, lpti) \ (void)SendMessage((hwnd), TTM_UPDATETIPTEXT, 0, (LPARAM) (LPTOOLINFO) lpti) *) BEGIN END ToolTip_UpdateTipText; PROCEDURE ["C"] ToolTip_WindowFromPoint ( hwnd, lppt: ARRAY OF SYSTEM.BYTE ); (* #define ToolTip_WindowFromPoint(hwnd, lppt) \ (hwnd)SendMessage((hwnd), TTM_WINDOWFROMPOINT, 0, (POINT FAR *) lppt) *) BEGIN END ToolTip_WindowFromPoint; PROCEDURE ["C"] TrackBar_ClearSel ( hwnd, fRedraw: ARRAY OF SYSTEM.BYTE ); (* #define TrackBar_ClearSel(hwnd, fRedraw) \ (void)SendMessage((hwnd), TBM_CLEARSEL, (WPARAM) (BOOL) fRedraw, 0L) *) BEGIN END TrackBar_ClearSel; PROCEDURE ["C"] TrackBar_ClearTics ( hwnd, fRedraw: ARRAY OF SYSTEM.BYTE ); (* #define TrackBar_ClearTics(hwnd, fRedraw) \ (void)SendMessage((hwnd), TBM_CLEARTICS, (WPARAM) (BOOL) fRedraw, 0L) *) BEGIN END TrackBar_ClearTics; PROCEDURE ["C"] TrackBar_GetChannelRect ( hwnd, lprc: ARRAY OF SYSTEM.BYTE ); (* #define TrackBar_GetChannelRect(hwnd, lprc) \ (void)SendMessage((hwnd), TBM_GETCHANNELRECT, 0, (LPARAM) (LPRECT) lprc) *) BEGIN END TrackBar_GetChannelRect; PROCEDURE ["C"] TrackBar_GetLineSize ( hwnd: ARRAY OF SYSTEM.BYTE ); (* #define TrackBar_GetLineSize(hwnd) \ (LONG)SendMessage((hwnd), TBM_GETLINESIZE, 0, 0L) *) BEGIN END TrackBar_GetLineSize; PROCEDURE ["C"] TrackBar_GetNumTics ( hwnd: ARRAY OF SYSTEM.BYTE ); (* #define TrackBar_GetNumTics(hwnd) \ (LONG)SendMessage((hwnd), TBM_GETNUMTICS, 0, 0L) *) BEGIN END TrackBar_GetNumTics; PROCEDURE ["C"] TrackBar_GetPTics ( hwnd: ARRAY OF SYSTEM.BYTE ); (* #define TrackBar_GetPTics(hwnd) \ (LPLONG)SendMessage((hwnd), TBM_GETPTICS, 0, 0L) *) BEGIN END TrackBar_GetPTics; PROCEDURE ["C"] TrackBar_GetPageSize ( hwnd: ARRAY OF SYSTEM.BYTE ); (* #define TrackBar_GetPageSize(hwnd) \ (LONG)SendMessage((hwnd), TBM_GETPAGESIZE, 0, 0L) *) BEGIN END TrackBar_GetPageSize; PROCEDURE ["C"] TrackBar_GetPos ( hwnd: ARRAY OF SYSTEM.BYTE ); (* #define TrackBar_GetPos(hwnd) \ (LONG)SendMessage((hwnd), TBM_GETPOS, 0, 0L) *) BEGIN END TrackBar_GetPos; PROCEDURE ["C"] TrackBar_GetRangeMax ( hwnd: ARRAY OF SYSTEM.BYTE ); (* #define TrackBar_GetRangeMax(hwnd) \ (LONG)SendMessage((hwnd), TBM_GETRANGEMAX, 0, 0L) *) BEGIN END TrackBar_GetRangeMax; PROCEDURE ["C"] TrackBar_GetRangeMin ( hwnd: ARRAY OF SYSTEM.BYTE ); (* #define TrackBar_GetRangeMin(hwnd) \ (LONG)SendMessage((hwnd), TBM_GETRANGEMIN, 0, 0L) *) BEGIN END TrackBar_GetRangeMin; PROCEDURE ["C"] TrackBar_GetSelEnd ( hwnd: ARRAY OF SYSTEM.BYTE ); (* #define TrackBar_GetSelEnd(hwnd) \ (LONG)SendMessage((hwnd), TBM_GETSELEND, 0, 0L) *) BEGIN END TrackBar_GetSelEnd; PROCEDURE ["C"] TrackBar_GetSelStart ( hwnd: ARRAY OF SYSTEM.BYTE ); (* #define TrackBar_GetSelStart(hwnd) \ (LONG)SendMessage((hwnd), TBM_GETSELSTART, 0, 0L) *) BEGIN END TrackBar_GetSelStart; PROCEDURE ["C"] TrackBar_GetThumbLength ( hwnd: ARRAY OF SYSTEM.BYTE ); (* #define TrackBar_GetThumbLength(hwnd) \ (UINT)SendMessage((hwnd), TBM_GETTHUMBLENGTH, 0, 0L) *) BEGIN END TrackBar_GetThumbLength; PROCEDURE ["C"] TrackBar_GetThumbRect ( hwnd, lprc: ARRAY OF SYSTEM.BYTE ); (* #define TrackBar_GetThumbRect(hwnd, lprc) \ (void)SendMessage((hwnd), TBM_GETTHUMBRECT, 0, (LPARAM) (LPRECT) lprc) *) BEGIN END TrackBar_GetThumbRect; PROCEDURE ["C"] TrackBar_GetTic ( hwnd, iTic: ARRAY OF SYSTEM.BYTE ); (* #define TrackBar_GetTic(hwnd, iTic) \ (LONG)SendMessage((hwnd), TBM_GETTIC, (WPARAM) (WORD) iTic, 0L) *) BEGIN END TrackBar_GetTic; PROCEDURE ["C"] TrackBar_GetTicPos ( hwnd, iTic: ARRAY OF SYSTEM.BYTE ); (* #define TrackBar_GetTicPos(hwnd, iTic) \ (LONG)SendMessage((hwnd), TBM_GETTICPOS, (WPARAM) (WORD) iTic, 0L) *) BEGIN END TrackBar_GetTicPos; PROCEDURE ["C"] TrackBar_SetLineSize ( hwnd, lLineSize: ARRAY OF SYSTEM.BYTE ); (* #define TrackBar_SetLineSize(hwnd, lLineSize) \ (LONG)SendMessage((hwnd), TBM_SETLINESIZE, 0, (LONG) lLineSize) *) BEGIN END TrackBar_SetLineSize; PROCEDURE ["C"] TrackBar_SetPageSize ( hwnd, lPageSize: ARRAY OF SYSTEM.BYTE ); (* #define TrackBar_SetPageSize(hwnd, lPageSize) \ (LONG)SendMessage((hwnd), TBM_SETPAGESIZE, 0, (LONG) lPageSize) *) BEGIN END TrackBar_SetPageSize; PROCEDURE ["C"] TrackBar_SetPos ( hwnd, bPosition, lPosition: ARRAY OF SYSTEM.BYTE ); (* #define TrackBar_SetPos(hwnd, bPosition, lPosition) \ (void)SendMessage((hwnd), TBM_SETPOS, (WPARAM) (BOOL) bPosition, (LPARAM) (LONG) lPosition) *) BEGIN END TrackBar_SetPos; PROCEDURE ["C"] TrackBar_SetRange ( hwnd, bRedraw, lMinimum, lMaximum: ARRAY OF SYSTEM.BYTE ); (* #define TrackBar_SetRange(hwnd, bRedraw, lMinimum, lMaximum) \ (void)SendMessage((hwnd), TBM_SETRANGE, (WPARAM) (BOOL) bRedraw, (LPARAM) MAKELONG(lMinimum, lMaximum)) *) BEGIN END TrackBar_SetRange; PROCEDURE ["C"] TrackBar_SetRangeMax ( hwnd, bRedraw, lMaximum: ARRAY OF SYSTEM.BYTE ); (* #define TrackBar_SetRangeMax(hwnd, bRedraw, lMaximum) \ (void)SendMessage((hwnd), TBM_SETRANGEMAX, (WPARAM) bRedraw, (LPARAM) lMaximum) *) BEGIN END TrackBar_SetRangeMax; PROCEDURE ["C"] TrackBar_SetRangeMin ( hwnd, bRedraw, lMinimum: ARRAY OF SYSTEM.BYTE ); (* #define TrackBar_SetRangeMin(hwnd, bRedraw, lMinimum) \ (void)SendMessage((hwnd), TBM_SETRANGEMIN, (WPARAM) bRedraw, (LPARAM) lMinimum) *) BEGIN END TrackBar_SetRangeMin; PROCEDURE ["C"] TrackBar_SetSel ( hwnd, bRedraw, lMinimum, lMaximum: ARRAY OF SYSTEM.BYTE ); (* #define TrackBar_SetSel(hwnd, bRedraw, lMinimum, lMaximum) \ (void)SendMessage((hwnd), TBM_SETSEL, (WPARAM) (BOOL) bRedraw, (LPARAM) MAKELONG(lMinimum, lMaximum)) *) BEGIN END TrackBar_SetSel; PROCEDURE ["C"] TrackBar_SetSelEnd ( hwnd, bRedraw, lEnd: ARRAY OF SYSTEM.BYTE ); (* #define TrackBar_SetSelEnd(hwnd, bRedraw, lEnd) \ (void)SendMessage((hwnd), TBM_SETSELEND, (WPARAM) (BOOL) bRedraw, (LPARAM) (LONG) lEnd) *) BEGIN END TrackBar_SetSelEnd; PROCEDURE ["C"] TrackBar_SetSelStart ( hwnd, bRedraw, lStart: ARRAY OF SYSTEM.BYTE ); (* #define TrackBar_SetSelStart(hwnd, bRedraw, lStart) \ (void)SendMessage((hwnd), TBM_SETSELSTART, (WPARAM) (BOOL) bRedraw, (LPARAM) (LONG) lStart) *) BEGIN END TrackBar_SetSelStart; PROCEDURE ["C"] TrackBar_SetThumbLength ( hwnd, iLength: ARRAY OF SYSTEM.BYTE ); (* #define TrackBar_SetThumbLength(hwnd, iLength) \ (void)SendMessage((hwnd), TBM_SETTHUMBLENGTH, (WPARAM) (UINT) iLength, 0L) *) BEGIN END TrackBar_SetThumbLength; PROCEDURE ["C"] TrackBar_SetTic ( hwnd, lPosition: ARRAY OF SYSTEM.BYTE ); (* #define TrackBar_SetTic(hwnd, lPosition) \ (BOOL)SendMessage((hwnd), TBM_SETTIC, 0, (LPARAM) (LONG) lPosition) *) BEGIN END TrackBar_SetTic; PROCEDURE ["C"] TrackBar_SetTicFreq ( hwnd, wFreq, lPosition: ARRAY OF SYSTEM.BYTE ); (* #define TrackBar_SetTicFreq(hwnd, wFreq, lPosition) \ (void)SendMessage((hwnd), TBM_SETTICFREQ, (WPARAM) wFreq, (LPARAM) (LONG) lPosition) *) BEGIN END TrackBar_SetTicFreq; PROCEDURE ["C"] UpDown_GetAccel ( hwnd, cAccels, paAccels: ARRAY OF SYSTEM.BYTE ); (* #define UpDown_GetAccel(hwnd, cAccels, paAccels) \ (int)SendMessage((hwnd), UDM_GETACCEL, (WPARAM) cAccels, (LPARAM) (LPUDACCEL) paAccels) *) BEGIN END UpDown_GetAccel; PROCEDURE ["C"] UpDown_GetBase ( hwnd: ARRAY OF SYSTEM.BYTE ); (* #define UpDown_GetBase(hwnd) \ (int)SendMessage((hwnd), UDM_GETBASE, 0, 0L) *) BEGIN END UpDown_GetBase; PROCEDURE ["C"] UpDown_GetBuddy ( hwnd: ARRAY OF SYSTEM.BYTE ); (* #define UpDown_GetBuddy(hwnd) \ (hwnd)SendMessage((hwnd), UDM_GETBUDDY, 0, 0L) *) BEGIN END UpDown_GetBuddy; PROCEDURE ["C"] UpDown_GetPos ( hwnd: ARRAY OF SYSTEM.BYTE ); (* #define UpDown_GetPos(hwnd) \ (DWORD)SendMessage((hwnd), UDM_GETPOS, 0, 0L) *) BEGIN END UpDown_GetPos; PROCEDURE ["C"] UpDown_GetRange ( hwnd: ARRAY OF SYSTEM.BYTE ); (* #define UpDown_GetRange(hwnd) \ (DWORD)SendMessage((hwnd), UDM_GETRANGE, 0, 0L) *) BEGIN END UpDown_GetRange; PROCEDURE ["C"] UpDown_SetAccel ( hwnd, nAccels, aAccels: ARRAY OF SYSTEM.BYTE ); (* #define UpDown_SetAccel(hwnd, nAccels, aAccels) \ (BOOL)SendMessage((hwnd), UDM_SETACCEL, (WPARAM) nAccels, (LPARAM) (LPUDACCEL) aAccels) *) BEGIN END UpDown_SetAccel; PROCEDURE ["C"] UpDown_SetBase ( hwnd, nBase: ARRAY OF SYSTEM.BYTE ); (* #define UpDown_SetBase(hwnd, nBase) \ (int)SendMessage((hwnd), UDM_SETBASE, (WPARAM) nBase, 0L) *) BEGIN END UpDown_SetBase; PROCEDURE ["C"] UpDown_SetBuddy ( hwnd, hwndBuddy: ARRAY OF SYSTEM.BYTE ); (* #define UpDown_SetBuddy(hwnd, hwndBuddy) \ (hwnd)SendMessage((hwnd), UDM_SETBUDDY, (WPARAM) (hwnd) hwndBuddy, 0L) *) BEGIN END UpDown_SetBuddy; PROCEDURE ["C"] UpDown_SetPos ( hwnd, nPos: ARRAY OF SYSTEM.BYTE ); (* #define UpDown_SetPos(hwnd, nPos) \ (short)SendMessage((hwnd), UDM_SETPOS, 0, (LPARAM) MAKELONG((short) nPos, 0)) *) BEGIN END UpDown_SetPos; PROCEDURE ["C"] UpDown_SetRange ( hwnd, nUpper, nLower: ARRAY OF SYSTEM.BYTE ); (* #define UpDown_SetRange(hwnd, nUpper, nLower) \ (void)SendMessage((hwnd), UDM_SETRANGE, 0, (LPARAM) MAKELONG((short) nUpper, (short) nLower)) *) BEGIN END UpDown_SetRange; END m_comcthlp.