*typedef struct tagINITCOMMONCONTROLSEX { >* DWORD dwSize; // size of this structure >* DWORD dwICC; // flags indicating which classes to be initialized >*} INITCOMMONCONTROLSEX, *LPINITCOMMONCONTROLSEX; >#define ICC_LISTVIEW_CLASSES 0x00000001 && listview, header >#define ICC_TREEVIEW_CLASSES 0x00000002 && treeview, tooltips >#define ICC_BAR_CLASSES 0x00000004 && toolbar, statusbar, trackbar, tooltips >#define ICC_TAB_CLASSES 0x00000008 && tab, tooltips >#define ICC_UPDOWN_CLASS 0x00000010 && updown >#define ICC_PROGRESS_CLASS 0x00000020 && progress >#define ICC_HOTKEY_CLASS 0x00000040 && hotkey >#define ICC_ANIMATE_CLASS 0x00000080 && animate >#define ICC_WIN95_CLASSES 0x000000FF >#define ICC_DATE_CLASSES 0x00000100 && month picker, date picker, time picker, updown >#define ICC_USEREX_CLASSES 0x00000200 && comboex >#define ICC_COOL_CLASSES 0x00000400 && rebar (coolbar) control >#define ICC_INTERNET_CLASSES 0x00000800 >#define ICC_PAGESCROLLER_CLASS 0x00001000 && page scroller >#define ICC_NATIVEFNTCTL_CLASS 0x00002000 && native font control > >set procedure to convertapi.prg additive > >declare integer InitCommonControlsEx in comctl32.dll string @ tagINITCOMMONCONTROLSEX > >lcBuffer = ToLong( 4 + 4 ) + ToLong( ICC_TREEVIEW_CLASSES ) > >InitCommonControlsEx( @lcBuffer ) > > >* ConvertAPI.prg 08-Oct-97 > >* these functions convert to/from internal binary storage > >function ToWord( pnNumber ) >local lnMSB, lnLSB >lnMSB = int( pnNumber / 256 ) && most significant byte >lnLSB = pnNumber % 256 && least significant byte >return chr( lnLSB ) + chr( lnMSB ) > >function ToLong( pnNumber ) >local lnMSW, lnLSW >lnMSW = int( pnNumber / 65536 ) && most significant word >lnLSW = pnNumber % 65536 && least significant word >return ToWord( lnLSW ) + ToWord( lnMSW ) > >function FromWord( pcBuffer ) >return asc( substr( pcBuffer, 2, 1 ) ) * 256 + asc( left( pcBuffer, 1 ) ) > >function FromLong( pcBuffer ) >return FromWord( substr( pcBuffer, 3, 2 ) ) * 65536 + FromWord( left( pcBuffer, 2 ) ) >>