// **************************************************************************** // // ** ** // // ** Header : user32 ** // // ** ** // // ** Purpose : Header file for user32 functions ** // // ** ** // // ** Author : Ulbe Stellema ** // // ** Data Access Europe ** // // ** ** // // ** Date : june 4, 2002 ** // // ** ** // // **************************************************************************** // define Boolean for Integer define PM_NOREMOVE for |CI$0000 define PM_REMOVE for |CI$0001 define PM_NOYIELD for |CI$0002 define DT_TOP for |CI$00000000 define DT_LEFT for |CI$00000000 define DT_CENTER for |CI$00000001 define DT_RIGHT for |CI$00000002 define DT_VCENTER for |CI$00000004 define DT_BOTTOM for |CI$00000008 define DT_WORDBREAK for |CI$00000010 define DT_SINGLELINE for |CI$00000020 define DT_EXPANDTABS for |CI$00000040 define DT_TABSTOP for |CI$00000080 define DT_NOCLIP for |CI$00000100 define DT_EXTERNALLEADING for |CI$00000200 define DT_CALCRECT for |CI$00000400 define DT_NOPREFIX for |CI$00000800 define DT_INTERNAL for |CI$00001000 define DT_EDITCONTROL for |CI$00002000 define DT_PATH_ELLIPSIS for |CI$00004000 define DT_END_ELLIPSIS for |CI$00008000 define DT_MODIFYSTRING for |CI$00010000 define DT_RTLREADING for |CI$00020000 define DT_WORD_ELLIPSIS for |CI$00040000 define DT_NOFULLWIDTHCHARBREAK for |CI$00080000 define DT_HIDEPREFIX for |CI$00100000 define DT_PREFIXONLY for |CI$00200000 // InitCommonControlsEx constants define ICC_LISTVIEW_CLASSES for |CI$00000001 // listview, header define ICC_TREEVIEW_CLASSES for |CI$00000002 // treeview, tooltips define ICC_BAR_CLASSES for |CI$00000004 // toolbar, statusbar, trackbar, tooltips define ICC_TAB_CLASSES for |CI$00000008 // tab, tooltips define ICC_UPDOWN_CLASS for |CI$00000010 // updown define ICC_PROGRESS_CLASS for |CI$00000020 // progress define ICC_HOTKEY_CLASS for |CI$00000040 // hotkey define ICC_ANIMATE_CLASS for |CI$00000080 // animate define ICC_WIN95_CLASSES for |CI$000000FF define ICC_DATE_CLASSES for |CI$00000100 // month picker, date picker, time picker, updown define ICC_USEREX_CLASSES for |CI$00000200 // comboex define ICC_COOL_CLASSES for |CI$00000400 // rebar (coolbar) control define ICC_INTERNET_CLASSES for |CI$00000800 define ICC_PAGESCROLLER_CLASS for |CI$00001000 // page scroller define ICC_NATIVEFNTCTL_CLASS for |CI$00002000 // native font control // CALID constants define CAL_GREGORIAN for 1 // Gregorian (localized) calendar define CAL_GREGORIAN_US for 2 // Gregorian (U.S.) calendar define CAL_JAPAN for 3 // Japanese Emperor Era calendar define CAL_TAIWAN for 4 // Taiwan Region Era calendar define CAL_KOREA for 5 // Korean Tangun Era calendar define CAL_HIJRI for 6 // Hijri (Arabic Lunar) calendar define CAL_THAI for 7 // Thai calendar define CAL_HEBREW for 8 // Hebrew (Lunar) calendar define CAL_GREGORIAN_ME_FRENCH for 9 // Gregorian Middle East French calendar define CAL_GREGORIAN_ARABIC for 10 // Gregorian Arabic calendar define CAL_GREGORIAN_XLIT_ENGLISH for 11 // Gregorian Transliterated English calendar define CAL_GREGORIAN_XLIT_FRENCH for 12 // Gregorian Transliterated French calendar // CALTYPE constants define LOCALE_NOUSEROVERRIDE for |CI$80000000 // do not use user overrides define LOCALE_USE_CP_ACP for |CI$40000000 // use the system ACP define LOCALE_RETURN_NUMBER for |CI$20000000 // return number instead of string define CAL_NOUSEROVERRIDE for LOCALE_NOUSEROVERRIDE // do not use user overrides define CAL_USE_CP_ACP for LOCALE_USE_CP_ACP // use the system ACP define CAL_RETURN_NUMBER for LOCALE_RETURN_NUMBER // return number instead of string define CAL_ICALINTVALUE for |CI$00000001 // calendar type define CAL_SCALNAME for |CI$00000002 // native name of calendar define CAL_IYEAROFFSETRANGE for |CI$00000003 // starting years of eras define CAL_SERASTRING for |CI$00000004 // era name for IYearOffsetRanges define CAL_SSHORTDATE for |CI$00000005 // short date format string define CAL_SLONGDATE for |CI$00000006 // long date format string define CAL_SDAYNAME1 for |CI$00000007 // native name for Monday define CAL_SDAYNAME2 for |CI$00000008 // native name for Tuesday define CAL_SDAYNAME3 for |CI$00000009 // native name for Wednesday define CAL_SDAYNAME4 for |CI$0000000A // native name for Thursday define CAL_SDAYNAME5 for |CI$0000000B // native name for Friday define CAL_SDAYNAME6 for |CI$0000000C // native name for Saturday define CAL_SDAYNAME7 for |CI$0000000D // native name for Sunday define CAL_SABBREVDAYNAME1 for |CI$0000000E // abbreviated name for Monday define CAL_SABBREVDAYNAME2 for |CI$0000000F // abbreviated name for Tuesday define CAL_SABBREVDAYNAME3 for |CI$00000010 // abbreviated name for Wednesday define CAL_SABBREVDAYNAME4 for |CI$00000011 // abbreviated name for Thursday define CAL_SABBREVDAYNAME5 for |CI$00000012 // abbreviated name for Friday define CAL_SABBREVDAYNAME6 for |CI$00000013 // abbreviated name for Saturday define CAL_SABBREVDAYNAME7 for |CI$00000014 // abbreviated name for Sunday define CAL_SMONTHNAME1 for |CI$00000015 // native name for January define CAL_SMONTHNAME2 for |CI$00000016 // native name for February define CAL_SMONTHNAME3 for |CI$00000017 // native name for March define CAL_SMONTHNAME4 for |CI$00000018 // native name for April define CAL_SMONTHNAME5 for |CI$00000019 // native name for May define CAL_SMONTHNAME6 for |CI$0000001A // native name for June define CAL_SMONTHNAME7 for |CI$0000001B // native name for July define CAL_SMONTHNAME8 for |CI$0000001C // native name for August define CAL_SMONTHNAME9 for |CI$0000001D // native name for September define CAL_SMONTHNAME10 for |CI$0000001E // native name for October define CAL_SMONTHNAME11 for |CI$0000001F // native name for November define CAL_SMONTHNAME12 for |CI$00000020 // native name for December define CAL_SMONTHNAME13 for |CI$00000021 // native name for 13th month (if any) define CAL_SABBREVMONTHNAME1 for |CI$00000022 // abbreviated name for January define CAL_SABBREVMONTHNAME2 for |CI$00000023 // abbreviated name for February define CAL_SABBREVMONTHNAME3 for |CI$00000024 // abbreviated name for March define CAL_SABBREVMONTHNAME4 for |CI$00000025 // abbreviated name for April define CAL_SABBREVMONTHNAME5 for |CI$00000026 // abbreviated name for May define CAL_SABBREVMONTHNAME6 for |CI$00000027 // abbreviated name for June define CAL_SABBREVMONTHNAME7 for |CI$00000028 // abbreviated name for July define CAL_SABBREVMONTHNAME8 for |CI$00000029 // abbreviated name for August define CAL_SABBREVMONTHNAME9 for |CI$0000002A // abbreviated name for September define CAL_SABBREVMONTHNAME10 for |CI$0000002B // abbreviated name for October define CAL_SABBREVMONTHNAME11 for |CI$0000002C // abbreviated name for November define CAL_SABBREVMONTHNAME12 for |CI$0000002D // abbreviated name for December define CAL_SABBREVMONTHNAME13 for |CI$0000002E // abbreviated name for 13th month (if any) define CAL_SYEARMONTH for |CI$0000002F // year month format string #IFNDEF get_SetParent External_Function SetParent "SetParent" user32.dll ; Handle hWndChild ; Handle hWndNewParent ; Returns Integer #ENDIF #IFNDEF get_EnableScrollBar External_Function EnableScrollBar "EnableScrollBar" user32.dll ; Handle hWnd ; UInteger wSBflags ; UInteger wArrows ; Returns Boolean #ENDIF #IFNDEF get_GetScrollBarInfo External_Function GetScrollBarInfo "GetScrollBarInfo" user32.dll ; Handle hwnd ; Integer idObject ; Pointer psbi ; Returns Boolean #ENDIF #IFNDEF get_GetScrollInfo External_Function GetScrollInfo "GetScrollInfo" user32.dll ; Handle hwnd ; Integer fnBar ; Pointer lpsi ; Returns Boolean #ENDIF #IFNDEF get_GetScrollPos External_Function GetScrollPos "GetScrollPos" user32.dll ; Handle hWnd ; Integer nBar ; Returns Integer #ENDIF #IFNDEF get_GetScrollRange External_Function GetScrollRange "GetScrollRange" user32.dll ; Handle hWnd ; Integer nBar ; Pointer lpMinPos ; Pointer lpMaxPos ; Returns Boolean #ENDIF #IFNDEF get_ScrollDC External_Function ScrollDC "ScrollDC" user32.dll ; Handle hDC ; Integer dx ; Integer dy ; Pointer lprcScroll ; Pointer lprcClip ; Handle hrgnUpdate ; Pointer lprcUpdate ; Returns Boolean #ENDIF #IFNDEF get_ScrollWindow External_Function ScrollWindow "ScrollWindow" user32.dll ; Handle hWnd ; Integer XAmount ; Integer YAmount ; Pointer lpRect ; Pointer lpClipRect ; Returns Boolean #ENDIF #IFNDEF get_ScrollWindowEx External_Function ScrollWindowEx "ScrollWindowEx" user32.dll ; Handle hWnd ; Integer dx ; Integer dy ; Pointer prcScroll ; Pointer prcClip ; Handle hrgnUpdate ; Pointer prcUpdate ; UInteger flags ; Returns Integer #ENDIF #IFNDEF get_SetScrollInfo External_Function SetScrollInfo "SetScrollInfo" user32.dll ; Handle hwnd ; Integer fnBar ; Pointer lpsi ; Boolean fReDraw ; Returns Integer #ENDIF #IFNDEF get_SetScrollPos External_Function SetScrollPos "SetScrollPos" user32.dll ; Handle hWnd ; Integer nBar ; Integer nPos ; Boolean bReDraw ; Returns Integer #ENDIF #IFNDEF get_SetScrollRange External_Function SetScrollRange "SetScrollRange" user32.dll ; Handle hWnd ; Integer nBar ; Integer nMinPos ; Integer nMaxPos ; Boolean bReDraw ; Returns Boolean #ENDIF #IFNDEF get_ShowScrollBar External_Function ShowScrollBar "ShowScrollBar" user32.dll ; Handle hWnd ; Integer wBar ; Boolean bShow ; Returns Boolean #ENDIF #IFNDEF get_PeekMessage External_Function PeekMessage "PeekMessageA" user32.dll ; Pointer lpMsg ; Handle hWnd ; UInteger wMsgFilterMin ; UInteger wMsgFilterMax ; UInteger wRemoveMsg ; Returns Boolean #ENDIF #IFNDEF get_ReleaseCapture External_Function ReleaseCapture "ReleaseCapture" user32.dll ; Returns Integer #ENDIF #IFNDEF get_DrawFocusRect External_Function DrawFocusRect "DrawFocusRect" user32.dll ; Handle hDC ; Pointer lprc ; Returns Integer #ENDIF #IFNDEF get_MoveToEx External_Function MoveToEx "MoveToEx" gdi32.dll ; Handle hDC ; Integer X ; Integer Y ; Pointer lpPoint ; Returns Integer #ENDIF #IFNDEF get_SaveDC External_Function SaveDC "SaveDC" gdi32.dll ; Handle hDC ; Returns Integer #ENDIF #IFNDEF get_RestoreDC External_Function RestoreDC "RestoreDC" gdi32.dll ; Handle hDC ; Integer nSavedDC ; Returns Integer #ENDIF #IFNDEF get_GetCapture External_Function GetCapture "GetCapture" user32.dll ; Returns Integer #ENDIF #IFNDEF get_GetMessageTime External_Function GetMessageTime "GetMessageTime" user32.dll ; Returns Integer #ENDIF #IFNDEF get_LockWindowUpdate External_Function LockWindowUpdate "LockWindowUpdate" user32.dll ; Handle hWndLock ; Returns Integer #ENDIF #IFNDEF get_GetWindowDC External_Function GetWindowDC "GetWindowDC" user32.dll ; Handle hWnd ; Returns Handle #ENDIF #IFNDEF get_PatBlt External_Function PatBlt "PatBlt" gdi32.dll ; Handle hdc ; Integer nXLeft ; Integer nYLeft ; Integer nWidth ; Integer nHeight ; dWord dwRop ; Returns Integer #ENDIF #IFNDEF get_CreateFontIndirect External_Function CreateFontIndirect "CreateFontIndirectA" GDI32.DLL ; Pointer lplf ; Returns Handle #ENDIF #IFNDEF get_ImageList_Draw External_Function ImageList_Draw "ImageList_Draw" comctl32.dll ; Handle himl ; Integer i ; Handle hdcDst ; Integer x ; Integer y ; Integer fStyle ; Returns Integer #ENDIF #IFNDEF get_InitCommonControlsEx External_Function InitCommonControlsEx "InitCommonControlsEx" comctl32.dll ; Pointer lpInitCtrls ; Returns Boolean #ENDIF #IFNDEF get_GetUserDefaultLCID External_Function GetUserDefaultLCID "GetUserDefaultLCID" KERNEL32.DLL ; Returns Integer #ENDIF #IFNDEF get_GetCalendarInfo External_Function GetCalendarInfo "GetCalendarInfoA" kernel32.dll ; Integer Locale ; Integer Calendar ; Integer CalType ; Pointer lpCalData ; Integer cchData ; Pointer lpValue ; Returns Integer #ENDIF #IFNDEF get_MoveWindow External_Function MoveWindow "MoveWindow" user32.dll ; Handle hWnd ; Integer X ; Integer Y ; Integer nWidth ; Integer nHeight ; Integer bRepaint ; Returns Integer #ENDIF #IFNDEF NMHDR_Size type NMHDR Field NMHDR.hwndFrom as Handle Field NMHDR.idFrom as UInteger Field NMHDR.code as UInteger end_type // NMHDR #ENDIF #IFNDEF DRAWITEMSTRUCT_Size type DRAWITEMSTRUCT Field DRAWITEMSTRUCT.CtlType as UInteger Field DRAWITEMSTRUCT.CtlID as UInteger Field DRAWITEMSTRUCT.itemID as UInteger Field DRAWITEMSTRUCT.itemAction as UInteger Field DRAWITEMSTRUCT.itemState as UInteger Field DRAWITEMSTRUCT.hwndItem as Handle Field DRAWITEMSTRUCT.hDC as Handle Field DRAWITEMSTRUCT.rcItem.left as Integer Field DRAWITEMSTRUCT.rcItem.top as Integer Field DRAWITEMSTRUCT.rcItem.right as Integer Field DRAWITEMSTRUCT.rcItem.bottom as Integer Field DRAWITEMSTRUCT.itemData as Pointer end_type // DRAWITEMSTRUCT #ENDIF #IFNDEF NONCLIENTMETRICS_Size Type NONCLIENTMETRICS Field NONCLIENTMETRICS.cbSize as Integer Field NONCLIENTMETRICS.iBorderWidth as Integer Field NONCLIENTMETRICS.iScrollWidth as Integer Field NONCLIENTMETRICS.iScrollHeight as Integer Field NONCLIENTMETRICS.iCaptionWidth as Integer Field NONCLIENTMETRICS.iCaptionHeight as Integer Field NONCLIENTMETRICS.lfCaptionFont as Char LOGFONT_Size Field NONCLIENTMETRICS.iSmCaptionWidth as Integer Field NONCLIENTMETRICS.iSmCaptionHeight as Integer Field NONCLIENTMETRICS.lfSmCaptionFont as Char LOGFONT_Size Field NONCLIENTMETRICS.iMenuWidth as Integer Field NONCLIENTMETRICS.iMenuHeight as Integer Field NONCLIENTMETRICS.lfMenuFont as Char LOGFONT_Size Field NONCLIENTMETRICS.lfStatusFont as Char LOGFONT_Size Field NONCLIENTMETRICS.lfMessageFont as Char LOGFONT_Size End_Type // NONCLIENTMETRICS #ENDIF #IFNDEF INITCOMMONCONTROLSEX_Size type INITCOMMONCONTROLSEX Field INITCOMMONCONTROLSEX.dwSize as dWord Field INITCOMMONCONTROLSEX.dwICC as dWord end_type // INITCOMMONCONTROLSEX #ENDIF Procedure InitCommonControlsEx String sCommonControls ZeroType INITCOMMONCONTROLSEX To sCommonControls Put INITCOMMONCONTROLSEX_Size To sCommonControls at INITCOMMONCONTROLSEX.dwSize Put (ICC_DATE_CLASSES) To sCommonControls at INITCOMMONCONTROLSEX.dwICC Move (InitCommonControlsEx(AddressOf(sCommonControls))) To WindowIndex End_Procedure // InitCommonControlsEx Send InitCommonControlsEx