dwindows: win/dw.c comparison

comparison win/dw.c @ 2081:24875681eec5

Added htmlEngine to DWEnv

author	mhessling@81767d24-ef19-dc11-ae90-00e081727c95
date	Sun, 31 May 2020 05:25:18 +0000
parents	b4b49d29b940
children	f1acc157b2dd

comparison

equal deleted inserted replaced

-:8f08d4c9d3fc
+:24875681eec5
 *
 * (C) 2000-2020 Brian Smith <brian@dbsoft.org>
 * (C) 2003-2011 Mark Hessling <mark@rexx.org>
 *
 */
 #ifdef AEROGLASS
 #define _WIN32_IE 0x0501
 #define WINVER 0x501
 #else
 #define _WIN32_IE 0x0500
 struct GdiplusStartupInput
 {
 UINT32 GdiplusVersion;
 void *DebugEventCallback;
 BOOL SuppressBackgroundThread;
 BOOL SuppressExternalCodecs;
 };
 typedef enum  {
 Ok                          = 0,
 GenericError                = 1,
 NotTrueTypeFont             = 16,
 UnsupportedGdiplusVersion   = 17,
 GdiplusNotInitialized       = 18,
 PropertyNotFound            = 19,
 PropertyNotSupported        = 20,
 ProfileNotFound             = 21
 } GpStatus;
 typedef enum {
 UnitWorld,
 UnitDisplay,
 UnitMillimeter
 } GpUnit;
 typedef enum  {
 FlushIntentionFlush   = 0,
 FlushIntentionSync    = 1
 } GpFlushIntention;
 typedef enum {
 QualityModeInvalid  = -1,
 QualityModeDefault  = 0,
 GpStatus WINAPI GdipDrawEllipseI(GpGraphics *graphics, GpPen *pen, INT x, INT y, INT width, INT height);
 GpStatus WINAPI GdipFillEllipseI(GpGraphics *graphics, GpBrush *brush, INT x, INT y, INT width, INT height);
 GpStatus WINAPI GdipFlush(GpGraphics *graphics, GpFlushIntention intention);
 /* Pixel format information */
 #define    PixelFormatIndexed      0x00010000
 #define    PixelFormatGDI          0x00020000
 #define    PixelFormatAlpha        0x00040000
 #define    PixelFormatPAlpha       0x00080000
 #define    PixelFormatExtended     0x00100000
 #define    PixelFormatCanonical    0x00200000
 #define    PixelFormatUndefined       0
 #define    PixelFormatDontCare        0
 #define    PixelFormat1bppIndexed     (1 | ( 1 << 8) | PixelFormatIndexed | PixelFormatGDI)
 #define    PixelFormat64bppARGB       (13 | (64 << 8) | PixelFormatAlpha  | PixelFormatCanonical | PixelFormatExtended)
 #define    PixelFormat64bppPARGB      (14 | (64 << 8) | PixelFormatAlpha  | PixelFormatPAlpha | PixelFormatExtended)
 #define    PixelFormat32bppCMYK       (15 | (32 << 8))
 /* Token to the GDI+ Instance */
 ULONG_PTR gdiplusToken;
 #endif
 #ifdef AEROGLASS
 HRESULT (WINAPI *_DwmExtendFrameIntoClientArea)(HWND hWnd, const MARGINS *pMarInset) = 0;
 HRESULT (WINAPI *_DwmIsCompositionEnabled)(BOOL *pfEnabled) = 0;
 HANDLE hdwm = 0;
 #endif
 /* Aero related but separate functions and handles */
 HRESULT (WINAPI *_SetWindowTheme)(HWND hwnd, LPCWSTR pszSubAppName, LPCWSTR pszSubIdList) = 0;
 HANDLE huxtheme = 0;
 /* Needed for Rich Edit controls */
 HANDLE hrichedit = 0;
 HANDLE hmsftedit = 0;
 /*
 /* Internal function to queue a window redraw */
 void _dw_redraw(HWND window, int skip)
 {
 static HWND lastwindow = 0;
 HWND redraw = lastwindow;
 if(skip && !window)
 return;
 lastwindow = window;
 if(redraw != lastwindow && redraw)
 /* Macro and internal function to convert UTF8 to Unicode wide characters */
 #define UTF8toWide(a) _myUTF8toWide(a, a ? _alloca(MultiByteToWideChar(CP_UTF8, 0, a, -1, NULL, 0) * sizeof(WCHAR)) : NULL)
 LPWSTR _myUTF8toWide(const char *utf8string, void *outbuf)
 {
 LPWSTR retbuf = outbuf;
 if(retbuf)
 MultiByteToWideChar(CP_UTF8, 0, utf8string, -1, retbuf, MultiByteToWideChar(CP_UTF8, 0, utf8string, -1, NULL, 0) * sizeof(WCHAR));
 return retbuf;
 }
 #define WideToUTF8(a) _myWideToUTF8(a, a ? _alloca(WideCharToMultiByte(CP_UTF8, 0, a, -1, NULL, 0, NULL, NULL)) : NULL)
 char *_myWideToUTF8(LPCWSTR widestring, void *outbuf)
 {
 char *retbuf = outbuf;
 if(retbuf)
 WideCharToMultiByte(CP_UTF8, 0, widestring, -1, retbuf, WideCharToMultiByte(CP_UTF8, 0, widestring, -1, NULL, 0, NULL, NULL), NULL, NULL);
 return retbuf;
 }
 #else
 _WINDOWCOMPOSITIONATTRIB Attrib;
 PVOID pvData;
 SIZE_T cbData;
 } _WINDOWCOMPOSITIONATTRIBDATA;
 HTHEME (WINAPI * _OpenNcThemeData)(HWND, LPCWSTR) = NULL;
 VOID (WINAPI * _RefreshImmersiveColorPolicyState)(VOID) = NULL;
 BOOL (WINAPI * _GetIsImmersiveColorUsingHighContrast)(IMMERSIVE_HC_CACHE_MODE) = NULL;
 BOOL (WINAPI * _ShouldAppsUseDarkMode)(VOID) = NULL;
 BOOL (WINAPI * _AllowDarkModeForWindow)(HWND, BOOL) = NULL;
 BOOL (WINAPI * _AllowDarkModeForApp)(BOOL) = NULL;
 _PreferredAppMode (WINAPI * _SetPreferredAppMode)(_PreferredAppMode) = NULL;
 BOOL (WINAPI * _IsDarkModeAllowedForWindow)(HWND) = NULL;
 BOOL (WINAPI * _ShouldSystemUseDarkMode)(VOID) = NULL;
 BOOL (WINAPI* _SetWindowCompositionAttribute)(HWND, _WINDOWCOMPOSITIONATTRIBDATA *) = NULL;
 BOOL IsHighContrast(VOID)
 {
 HIGHCONTRASTW highContrast = { sizeof(highContrast) };
 _ShouldSystemUseDarkMode = (BOOL (WINAPI *)(VOID))GetProcAddress(huxtheme, MAKEINTRESOURCEA(138));
 _SetWindowCompositionAttribute = (BOOL (WINAPI*)(HWND, _WINDOWCOMPOSITIONATTRIBDATA*))GetProcAddress(GetModuleHandle(TEXT("user32.dll")), "SetWindowCompositionAttribute");
 }
 /* Make sure we were able to load all the Dark Mode functions */
 if(_OpenNcThemeData && _RefreshImmersiveColorPolicyState && _ShouldAppsUseDarkMode && _AllowDarkModeForWindow &&
 (_AllowDarkModeForApp || _SetPreferredAppMode) && _IsDarkModeAllowedForWindow &&
 (_DwmSetWindowAttribute || _SetWindowCompositionAttribute))
 {
 _DW_DARK_MODE_SUPPORTED = TRUE;
 if(_AllowDarkModeForApp)
 _AllowDarkModeForApp(TRUE);
 BOOL _CanThemeWindow(HWND window)
 {
 TCHAR tmpbuf[100] = {0};
 LONG_PTR style = GetWindowLongPtr(window, GWL_STYLE);
 GetClassName(window, tmpbuf, 99);
 /* Some controls don't display properly with visual styles enabled */
 if(_tcsnicmp(tmpbuf, BUTTONCLASSNAME, _tcslen(BUTTONCLASSNAME)+1) == 0 &&
 (style & (BS_AUTOCHECKBOX | BS_CHECKBOX | BS_RADIOBUTTON)))
 return FALSE;
 #ifdef TOOLBAR
 else if(_tcsnicmp(tmpbuf, TOOLBARCLASSNAME, _tcslen(TOOLBARCLASSNAME)+1) == 0)
 {
 }
 return TRUE;
 }
 #endif
 /* Special wrappers for GetSysColor*() since they currently don't support
 * dark mode, we will have to return modified colors when dark mode is enabled.
 */
 DWORD _DW_GetSysColor(int nIndex)
 {
 DWORD retval = GetSysColor(nIndex);
 #ifdef AEROGLASS
 if(_DW_DARK_MODE_ALLOWED == 2 && _DW_DARK_MODE_ENABLED)
 {
 const COLORREF darkBkColor = 0x383838;
 const COLORREF darkTextColor = 0xFFFFFF;
 switch(nIndex)
 {
 case COLOR_3DFACE:
 case COLOR_WINDOW:
 retval = darkBkColor;
 HBRUSH _DW_GetSysColorBrush(int nIndex)
 {
 HBRUSH retval = GetSysColorBrush(nIndex);
 #ifdef AEROGLASS
 static HBRUSH darkBkColorBrush = 0;
 if(_DW_DARK_MODE_ALLOWED == 2 && _DW_DARK_MODE_ENABLED)
 {
 if(!darkBkColorBrush)
 darkBkColorBrush = CreateSolidBrush(0x383838);
 {
 ColorInfo *thiscinfo = (ColorInfo *)GetWindowLongPtr(handle, GWLP_USERDATA);
 HFONT oldfont = (HFONT)SendMessage(handle, WM_GETFONT, 0, 0);
 HICON oldicon = (HICON)SendMessage(handle, WM_GETICON, 0, 0);
 TCHAR tmpbuf[100] = {0};
 TOOLINFO ti = { 0 };
 ti.cbSize = sizeof(TOOLINFO);
 ti.hwnd = handle;
 ti.hinst = DWInstance;
 SendMessage(hwndTooltip, TTM_DELTOOL, 0, (LPARAM) (LPTOOLINFO) &ti);
 GetClassName(handle, tmpbuf, 99);
 /* Don't try to free memory from an embedded IE or Edge/Chromium window */
 if(_tcsncmp(tmpbuf, TEXT("Internet Explorer_Server"), 25) == 0 ||
 	   _tcsncmp(tmpbuf, TEXT("Chrome_WidgetWin_"), 17) == 0)
 if(oldbitmap)
 DeleteObject(oldbitmap);
 if(oldicon)
 DestroyIcon(oldicon);
 }
 #ifdef TOOLBAR
 /* Bitmap Buttons */
 else if(_tcsnicmp(tmpbuf, TOOLBARCLASSNAME, _tcslen(TOOLBARCLASSNAME)+1) == 0)
 {
 HIMAGELIST imlist = (HIMAGELIST)SendMessage(handle, TB_GETIMAGELIST, 0, 0);
 HIMAGELIST dimlist = (HIMAGELIST)SendMessage(handle, TB_GETDISABLEDIMAGELIST, 0, 0);
 SendMessage(handle, TB_SETIMAGELIST, 0, 0);
 SendMessage(handle, TB_SETDISABLEDIMAGELIST, 0, 0);
 if(imlist)
 ImageList_Destroy(imlist);
 if(dimlist)
 ImageList_Destroy(dimlist);
 }
 #endif
 else if(_tcsnicmp(tmpbuf, FRAMECLASSNAME, _tcslen(FRAMECLASSNAME)+1)==0)
 {
 Box *box = (Box *)thiscinfo;
 if(box && box->count && box->items)
 mii.cbSize = sizeof(MENUITEMINFO);
 mii.fMask = MIIM_SUBMENU | MIIM_ID;
 if ( GetMenuItemInfo( menu, i, TRUE, &mii ) )
 {
 /* Free the data associated with the ID */
 if(mii.wID >= 30000)
 {
 char buffer[31] = {0};
 _snprintf(buffer, 30, "_dw_id%u", mii.wID);
 dw_window_set_data( DW_HWND_OBJECT, buffer, NULL );
 _snprintf(buffer, 30, "_dw_checkable%u", mii.wID);
 dw_window_set_data( DW_HWND_OBJECT, buffer, NULL );
 _snprintf(buffer, 30, "_dw_ischecked%u", mii.wID);
 dw_window_set_data( DW_HWND_OBJECT, buffer, NULL );
 _snprintf(buffer, 30, "_dw_isdisabled%u", mii.wID);
 dw_window_set_data( DW_HWND_OBJECT, buffer, NULL );
 }
 /* Check any submenus */
 if( mii.hSubMenu )
 _free_menu_data(mii.hSubMenu);
 }
 }
 /* These are the window classes which can
 * obtain input focus.
 */
 if(_tcsnicmp(tmpbuf, EDITCLASSNAME, _tcslen(EDITCLASSNAME)+1)==0 ||          /* Entryfield */
 _tcsnicmp(tmpbuf, BUTTONCLASSNAME, _tcslen(BUTTONCLASSNAME)+1)==0 ||      /* Button */
 #ifdef TOOLBAR
 _tcsnicmp(tmpbuf, TOOLBARCLASSNAME, _tcslen(TOOLBARCLASSNAME)+1) == 0 ||  /* Toolbar */
 #endif
 _tcsnicmp(tmpbuf, COMBOBOXCLASSNAME, _tcslen(COMBOBOXCLASSNAME)+1)==0 ||  /* Combobox */
 _tcsnicmp(tmpbuf, LISTBOXCLASSNAME, _tcslen(LISTBOXCLASSNAME)+1)==0 ||    /* List box */
 _tcsnicmp(tmpbuf, UPDOWN_CLASS, _tcslen(UPDOWN_CLASS)+1)==0 ||            /* Spinbutton */
 _tcsnicmp(tmpbuf, TRACKBAR_CLASS, _tcslen(TRACKBAR_CLASS)+1)==0 ||        /* Slider */
 _tcsnicmp(tmpbuf, WC_LISTVIEW, _tcslen(WC_LISTVIEW)+1)== 0 ||             /* Container */
 return 1;
 }
 else
 {
 int type = _validate_focus(box->items[z].hwnd);
 /* Special case notebook, can focus and contains items */
 if(type == 2 && direction == _DW_DIRECTION_FORWARD && _focus_notebook(box->items[z].hwnd, handle, start, direction, defaultitem))
 return 1;
 if(box->items[z].hwnd == handle)
 {
 if(lasthwnd == handle && firsthwnd)
 SetFocus(firsthwnd);
 return 1;
 }
 }
 lasthwnd = _normalize_handle(box->items[z].hwnd);
 if(!firsthwnd)
 firsthwnd = lasthwnd;
 }
 else
 {
 if(scrollbox && _focus_check_box(scrollbox, handle, start == 3 ? 3 : 0, direction, defaultitem))
 return 1;
 }
 }
 /* Special case notebook, can focus and contains items */
 if(type == 2 && direction == _DW_DIRECTION_BACKWARD && _focus_notebook(box->items[z].hwnd, handle, start, direction, defaultitem))
 return 1;
 }
 }
 return 0;
 }
 {
 HWND box, lastbox = GetParent(handle);
 if(!lastbox)
 lastbox = handle;
 /* Find the toplevel window */
 while((box = GetParent(lastbox)))
 {
 /* If it hasn't been packed yet.. */
 if(box == DW_HWND_OBJECT)
 lastbox = box;
 }
 if(lastbox)
 {
 TCHAR tmpbuf[100] = {0};
 GetClassName(lastbox, tmpbuf, 99);
 if(_tcsncmp(tmpbuf, ClassName, _tcslen(ClassName)+1)==0)
 return lastbox;
 }
 return 0;
 }
 * These will be used to find the widest or
 * tallest items in a box.
 */
 int uymax = 0, uxmax = 0;
 int upymax = 0, upxmax = 0;
 /* Reset the box sizes */
 thisbox->minwidth = thisbox->minheight = thisbox->usedpadx = thisbox->usedpady = thisbox->pad * 2;
 if(thisbox->grouphwnd)
 {
 /* If the string height is less than 9...
 * set it to 9 anyway since that is the minimum.
 */
 if(thisbox->grouppady < 9)
 thisbox->grouppady = 9;
 if(thisbox->grouppady)
 thisbox->grouppady += 3;
 else
 thisbox->grouppady = 6;
 /* Count up all the space for all items in the box */
 for(z=0;z<thisbox->count;z++)
 {
 int itempad, itemwidth, itemheight;
 if(thisbox->items[z].type == TYPEBOX)
 {
 Box *tmp = (Box *)GetWindowLongPtr(thisbox->items[z].hwnd, GWLP_USERDATA);
 if(tmp)
 {
 /* On the first pass calculate the box contents */
 if(pass == 1)
 {
 (*depth)++;
 /* Save the newly calculated values on the box */
 _resize_box(tmp, depth, x, y, pass);
 /* Duplicate the values in the item list for use below */
 thisbox->items[z].width = tmp->minwidth;
 thisbox->items[z].height = tmp->minheight;
 /* If the box has no contents but is expandable... default the size to 1 */
 if(!thisbox->items[z].width && thisbox->items[z].hsize)
 thisbox->items[z].width = 1;
 if(!thisbox->items[z].height && thisbox->items[z].vsize)
 thisbox->items[z].height = 1;
 (*depth)--;
 }
 }
 }
 /* Precalculate these values, since they will
 * be used used repeatedly in the next section.
 */
 itempad = thisbox->items[z].pad * 2;
 itemwidth = thisbox->items[z].width + itempad;
 itemheight = thisbox->items[z].height + itempad;
 /* Calculate the totals and maximums */
 if(thisbox->type == DW_VERT)
 {
 if(itemwidth > uxmax)
 uxmax = itemwidth;
 if(thisbox->items[z].hsize != SIZEEXPAND)
 {
 if(itemwidth > upxmax)
 upxmax = itemwidth;
 }
 if(thisbox->items[z].hsize == SIZEEXPAND)
 {
 if(thisbox->type == DW_HORZ)
 {
 int expandablex = thisbox->minwidth - thisbox->usedpadx;
 if(expandablex)
 width = (int)(((float)width / (float)expandablex) * (float)(x - thisbox->usedpadx));
 }
 else
 width = x - (itempad + thispad + thisbox->grouppadx);
 if(thisbox->items[z].vsize == SIZEEXPAND)
 {
 if(thisbox->type == DW_VERT)
 {
 int expandabley = thisbox->minheight - thisbox->usedpady;
 if(expandabley)
 height = (int)(((float)height / (float)expandabley) * (float)(y - thisbox->usedpady));
 }
 else
 height = y - (itempad + thispad + thisbox->grouppady);
 }
 /* If the calculated size is valid... */
 if(width > 0 && height > 0)
 {
 int pad = thisbox->items[z].pad;
 HWND handle = thisbox->items[z].hwnd;
 TCHAR tmpbuf[100] = {0};
 GetClassName(handle, tmpbuf, 99);
 if(_tcsnicmp(tmpbuf, COMBOBOXCLASSNAME, _tcslen(COMBOBOXCLASSNAME)+1)==0)
 {
 /* Handle special case Combobox */
 dw_window_redraw(array[pageid]->hwnd);
 }
 }
 /* So does the List View... handle delayed cursoring */
 if(_tcsnicmp(tmpbuf, WC_LISTVIEW, _tcslen(WC_LISTVIEW)+1)==0 && width > 10 && height > 10)
 {
 int index = DW_POINTER_TO_INT(dw_window_get_data(handle, "_dw_cursor"));
 if(index > 0)
 ListView_EnsureVisible(handle, index, TRUE);
 }
 /* Advance the current position in the box */
 if(x != 0 && y != 0)
 {
 if(thisbox)
 {
 int depth = 0;
 /* Calculate space requirements */
 _resize_box(thisbox, &depth, x, y, 1);
 /* Finally place all the boxes and controls */
 _resize_box(thisbox, &depth, x, y, 2);
 }
 }
 }
 if(hWnd == tmp->window || _toplevel_window(hWnd) == tmp->window)
 {
 int special = 0;
 char *utf8 = NULL, ch[2] = {0};
 #ifdef UNICODE
 WCHAR uc[2] = { 0 };
 uc[0] = (WCHAR)mp1;
 utf8 = WideToUTF8(&uc[0]);
 #endif
 if(GetAsyncKeyState(VK_SHIFT) & 0x8000)
 special |= KC_SHIFT;
 if(GetAsyncKeyState(VK_CONTROL) & 0x8000)
 special |= KC_CTRL;
 if(mp2 & (1 << 29))
 {
 result = listboxselectfunc(tmp->window, dw_listbox_selected(tmp->window), tmp->data);
 tmp = NULL;
 }
 }
 #ifdef TOOLBAR
 else if (message == BN_CLICKED && tmp->message == WM_COMMAND && tmp->window == (HWND)mp2)
 {
 TCHAR tmpbuf[100] = {0};
 GetClassName((HWND)mp2, tmpbuf, 99);
 {
 result = clickfunc(tmp->window, tmp->data);
 tmp = NULL;
 }
 }
 #endif
 else if (tmp->id && passthru == tmp->id)
 {
 HMENU hwndmenu = GetMenu(hWnd), menuowner = _menu_owner((HMENU)tmp->window);
 if (menuowner == hwndmenu || !menuowner)
 }
 /* Now that any handlers are done... do normal processing */
 switch( msg )
 {
 #ifdef AEROGLASS
 case WM_DWMCOMPOSITIONCHANGED:
 {
 LONG_PTR styleex = GetWindowLongPtr(hWnd, GWL_EXSTYLE);
 if(_DwmIsCompositionEnabled)
 _DwmIsCompositionEnabled(&_dw_composition);
 /* If we are no longer compositing... disable layered windows */
 if(!_dw_composition && (styleex & WS_EX_LAYERED))
 {
 MARGINS mar = {0};
 SetWindowLongPtr(hWnd, GWL_EXSTYLE, styleex & ~WS_EX_LAYERED);
 if(_DwmExtendFrameIntoClientArea)
 _DwmExtendFrameIntoClientArea(hWnd, &mar);
 }
 }
 }
 }
 break;
 #endif
 #ifdef AEROGLASS1
 case WM_ERASEBKGND:
 if(_dw_composition && (GetWindowLongPtr(hWnd, GWL_EXSTYLE) & WS_EX_LAYERED))
 {
 static HBRUSH hbrush = 0;
 RECT rect;
 if(!hbrush)
 hbrush = CreateSolidBrush(_dw_transparencykey);
 GetClientRect(hWnd, &rect);
 FillRect((HDC)mp1, &rect, hbrush);
 return TRUE;
 }
 break;
 dw_scrollbar_set_pos(handle, value);
 }
 else
 {
 TCHAR tmpbuf[100] = {0};
 GetClassName( hWnd, tmpbuf, 99 );
 if ( _tcsnicmp(tmpbuf, FRAMECLASSNAME, _tcslen(FRAMECLASSNAME)+1 ) == 0 )
 {
 _HandleScroller(hWnd, bar, (int)HIWORD(mp1), (int)LOWORD(mp1));
 }
 {
 SetClassLongPtr(hWnd, GCLP_HBRBACKGROUND, (LONG_PTR)_DW_GetSysColorBrush(COLOR_3DFACE));
 InvalidateRect(hWnd, NULL, TRUE);
 }
 break;
 case WM_ERASEBKGND:
 if(_dw_composition && (GetWindowLongPtr(_toplevel_window(hWnd), GWL_EXSTYLE) & WS_EX_LAYERED))
 {
 static HBRUSH hbrush = 0;
 RECT rect;
 if(!hbrush)
 hbrush = CreateSolidBrush(_dw_transparencykey);
 GetClientRect(hWnd, &rect);
 FillRect((HDC)mp1, &rect, hbrush);
 return TRUE;
 }
 break;
 #endif
 case WM_PAINT:
 {
 ColorInfo *thiscinfo = (ColorInfo *)GetWindowLongPtr(hWnd, GWLP_USERDATA);
 if(thiscinfo && thiscinfo->fore != -1 && thiscinfo->back != -1)
 /* These are the window classes which can
 * obtain input focus.
 */
 if (_tcsnicmp(tmpbuf, BUTTONCLASSNAME, _tcslen(BUTTONCLASSNAME)+1)==0
 #ifdef TOOLBAR
 || _tcsnicmp(tmpbuf, TOOLBARCLASSNAME, _tcslen(TOOLBARCLASSNAME)+1) == 0
 #endif
 )
 {
 /* Generate click on default item */
 case WM_CTLCOLORMSGBOX:
 case WM_CTLCOLORSCROLLBAR:
 case WM_CTLCOLORDLG:
 {
 ColorInfo *thiscinfo = (ColorInfo *)GetWindowLongPtr((HWND)mp2, GWLP_USERDATA);
 if(msg == WM_CTLCOLORBTN)
 {
 /* Groupbox color info is on the frame window it is attached to */
 if(GetWindowLongPtr((HWND)mp2, GWL_STYLE) & BS_GROUPBOX)
 {
 Box *framebox = (Box *)GetWindowLongPtr(hWnd, GWLP_USERDATA);
 if(framebox)
 thiscinfo = &framebox->cinfo;
 }
 }
 if(thiscinfo && thiscinfo->fore != -1 && thiscinfo->back != -1)
 {
 int thisback = thiscinfo->back;
 /* Handle foreground */
 if(thiscinfo->fore != DW_CLR_DEFAULT)
 {
 int fore = _internal_color(thiscinfo->fore);
 #endif
 /* Handle background */
 if(thiscinfo->back == DW_RGB_TRANSPARENT)
 {
 ColorInfo *parentcinfo = (ColorInfo *)GetWindowLongPtr(hWnd, GWLP_USERDATA);
 if(parentcinfo && parentcinfo->back != -1)
 thisback = parentcinfo->back;
 }
 if(thisback == DW_CLR_DEFAULT)
 {
 return (LRESULT)(intptr_t)hbr;
 }
 else if(thisback != -1 && thisback != DW_RGB_TRANSPARENT)
 {
 int back = _internal_color(thisback);
 SetBkColor((HDC)mp1, RGB(DW_RED_VALUE(back),
 DW_GREEN_VALUE(back),
 DW_BLUE_VALUE(back)));
 if(thiscinfo->hbrush)
 DeleteObject(thiscinfo->hbrush);
 {
 case WM_CTLCOLORSTATIC:
 case WM_CTLCOLORBTN:
 case WM_CTLCOLORDLG:
 {
 if((_dw_composition && GetWindowLongPtr(_toplevel_window(hWnd), GWL_EXSTYLE) & WS_EX_LAYERED) &&
 (!thiscinfo || (thiscinfo && (thiscinfo->back == -1 || thiscinfo->back == DW_RGB_TRANSPARENT))))
 {
 if(!(msg == WM_CTLCOLORSTATIC && SendMessage((HWND)mp2, STM_GETIMAGE, IMAGE_BITMAP, 0)))
 {
 SetBkColor((HDC)mp1, _dw_transparencykey);
 {
 if(_DW_DARK_MODE_ALLOWED == 2 && _DW_DARK_MODE_ENABLED)
 {
 ColorInfo *parentcinfo = (ColorInfo *)GetWindowLongPtr(hWnd, GWLP_USERDATA);
 int thisback = thiscinfo ? thiscinfo->back : -1;
 if(thisback == DW_RGB_TRANSPARENT && parentcinfo)
 thisback = parentcinfo->back;
 if(!thiscinfo || (thiscinfo && (thiscinfo->fore == DW_CLR_DEFAULT || thiscinfo->fore == -1)))
 SetTextColor((HDC)mp1, _DW_GetSysColor(COLOR_WINDOWTEXT));
 {
 RECT rectUpd, rectDestin, rectThis, *rect = &rectThis;
 int iItems, iTop, i;
 COLORREF c, odd, even;
 unsigned long temp = _internal_color(continfo->odd);
 /* Create the colors based on the current theme */
 if(continfo->odd == DW_CLR_DEFAULT)
 {
 #ifdef AEROGLASS
 if(_DW_DARK_MODE_ALLOWED == 2 && _DW_DARK_MODE_ENABLED)
 odd = RGB(100,100,100);
 else
 #endif
 odd = RGB(230, 230, 230);
 }
 else
 odd = RGB(DW_RED_VALUE(temp), DW_GREEN_VALUE(temp), DW_BLUE_VALUE(temp));
 temp = _internal_color(continfo->even);
 if(continfo->even == DW_CLR_DEFAULT)
 even = DW_RGB_TRANSPARENT;
 else
 /* number of displayed rows */
 iItems = ListView_GetCountPerPage(hWnd);
 /* first visible row */
 iTop = ListView_GetTopIndex(hWnd);
 for(i=iTop; i<=(iTop+iItems+1); i++)
 {
 /* if row rectangle intersects update rectangle then it requires re-drawing */
 if(ListView_GetItemRect(hWnd, i, rect, LVIR_BOUNDS) && IntersectRect(&rectDestin, &rectUpd, rect))
 {
 /* change text background colour accordingly */
 c = (i % 2) ? odd : even;
 if(c != DW_RGB_TRANSPARENT)
 InvalidateRect(hWnd, &rectDestin, FALSE);
 /* ...force default processing */
 CallWindowProc(continfo->cinfo.pOldProc, hWnd, msg, 0, 0);
 }
 }
 }
 }
 break;
 case WM_LBUTTONDBLCLK:
 case WM_CHAR:
 {
 if(msg == WM_THEMECHANGED)
 {
 if(_DW_DARK_MODE_ALLOWED == 2 && _DW_DARK_MODE_SUPPORTED)
 {
 ContainerInfo *continfo = (ContainerInfo *)GetWindowLongPtr(hWnd, GWLP_USERDATA);
 if(!continfo || continfo->cinfo.back == -1 || continfo->cinfo.back == DW_CLR_DEFAULT)
 TreeView_SetBkColor(hWnd, _DW_GetSysColor(COLOR_WINDOW));
 if(!continfo || continfo->cinfo.fore == -1 || continfo->cinfo.fore == DW_CLR_DEFAULT)
 TreeView_SetTextColor(hWnd, _DW_GetSysColor(COLOR_WINDOWTEXT));
 }
 GetWindowText(hwnd, tempbuf, 1024);
 hdcPaint = BeginPaint(hwnd, &ps);
 if(hfont)
 oldfont = (HFONT)SelectObject(hdcPaint, hfont);
 SetRect(&rc, 0, 0, cx, cy);
 /* If we are in full dark mode, or we have custom colors selected...
 * we will draw the status window ourselves... otherwise DrawStatusText()
 */
 if(
 #ifdef AEROGLASS
 if (!cinfo)
 return DefWindowProc(hwnd, msg, mp1, mp2);
 /* Need the parent to do the check completely */
 parentcinfo = (ColorInfo *)GetWindowLongPtr(GetParent(hwnd), GWLP_USERDATA);
 /* If we don't require themed drawing */
 if(((cinfo->back != -1 && cinfo->back != DW_RGB_TRANSPARENT) || (parentcinfo && parentcinfo->back != -1))
 || !_dw_composition || !(GetWindowLongPtr(_toplevel_window(hwnd), GWL_EXSTYLE) & WS_EX_LAYERED))
 return _colorwndproc(hwnd, msg, mp1, mp2);
 pOldProc = cinfo->pOldProc;
 switch(msg)
 {
 case WM_PAINT:
 {
 PAINTSTRUCT ps;
 /* Figure out how to draw */
 HDC hdcPaint = NULL;
 RECT rcClient;
 LONG_PTR dwStyle = GetWindowLongPtr(hwnd, GWL_STYLE);
 LONG_PTR dwStyleEx = GetWindowLongPtr(hwnd, GWL_EXSTYLE);
 HTHEME hTheme = _OpenThemeData(NULL, L"ControlPanelStyle");
 GetClientRect(hwnd, &rcClient);
 if(hTheme)
 {
 /* Create an in memory image to draw to */
 HPAINTBUFFER hBufferedPaint = _BeginBufferedPaint(hdc, &rcClient, BPBF_TOPDOWNDIB, NULL, &hdcPaint);
 if(hdcPaint)
 {
 LONG_PTR dwStaticStyle = dwStyle & 0x1F;
 HFONT hFontOld = (HFONT)SendMessage(hwnd, WM_GETFONT, 0, 0);
 int iLen = GetWindowTextLength(hwnd), fore = _internal_color(cinfo->fore);
 DTTOPTS DttOpts = { sizeof(DTTOPTS) };
 static HBRUSH hbrush = 0;
 /* Make sure we have a transparency brush */
 if(!hbrush)
 hbrush = CreateSolidBrush(_dw_transparencykey);
 /* Fill the background with the transparency color */
 FillRect(hdcPaint, &rcClient, hbrush);
 _BufferedPaintSetAlpha(hBufferedPaint, &ps.rcPaint, 0x00);
 /* Setup how we will draw the text */
 DttOpts.dwFlags = DTT_COMPOSITED | DTT_GLOWSIZE | DTT_TEXTCOLOR;
 DttOpts.crText = cinfo->fore == -1 ? RGB(255, 255, 255) : RGB(DW_RED_VALUE(fore), DW_GREEN_VALUE(fore), DW_BLUE_VALUE(fore));
 DttOpts.iGlowSize = 12;
 SetBkMode(hdcPaint, TRANSPARENT);
 if(hFontOld)
 hFontOld = (HFONT)SelectObject(hdcPaint, hFontOld);
 /* Make sure there is text to draw */
 if(iLen)
 {
 LPWSTR szText = (LPWSTR)_alloca(sizeof(WCHAR)*(iLen+5));
 if(szText)
 {
 iLen = GetWindowTextW(hwnd, szText, iLen+5);
 if(iLen)
 {
 DWORD dwFlags = DT_WORDBREAK;
 switch (dwStaticStyle)
 {
 case SS_CENTER:
 dwFlags |= DT_CENTER;
 break;
 if (dwStyleEx&WS_EX_RIGHT)
 dwFlags |= DT_RIGHT;
 if(dwStyle & SS_NOPREFIX)
 dwFlags |= DT_NOPREFIX;
 /* Draw the text! */
 _DrawThemeTextEx(hTheme, hdcPaint, 0, 0,
 szText, -1, dwFlags, &rcClient, &DttOpts);
 }
 }
 }
 /* Cleanup */
 if (hFontOld)
 SelectObject(hdcPaint, hFontOld);
 _EndBufferedPaint(hBufferedPaint, TRUE);
 }
 _CloseThemeData(hTheme);
 }
 }
 EndPaint(hwnd, &ps);
 return TRUE;
 }
 break;
 }
 if ( !pOldProc )
 return DefWindowProc(hwnd, msg, mp1, mp2);
 return CallWindowProc(pOldProc, hwnd, msg, mp1, mp2);
 }
 #endif
 /* Make sure it's the right window, and the right ID */
 if(tmp->window == hwnd)
 {
 int checkbox = DW_POINTER_TO_INT(dw_window_get_data(hwnd, "_dw_checkbox"));
 if(checkbox)
 in_checkbox_handler = 1;
 retval = clickfunc(tmp->window, tmp->data);
 }
 void _create_tooltip(HWND handle, const char *text)
 {
 TOOLINFO ti = { 0 };
 ti.cbSize = sizeof(TOOLINFO);
 ti.hwnd = handle;
 ti.hinst = DWInstance;
 SendMessage(hwndTooltip, TTM_DELTOOL, 0, (LPARAM) (LPTOOLINFO) &ti);
 if(text)
 {
 /* Set up "tool" information.
 * In this case, the "tool" is the entire parent window.
 WNDCLASS wc;
 int z;
 INITCOMMONCONTROLSEX icc;
 char *alttmpdir;
 #ifdef GDIPLUS
 struct GdiplusStartupInput si;
 #endif
 /* Setup the private data directory */
 if(argc > 0 && argv[0])
 {
 char *pos = strrchr(argv[0], '\\');
 /* Just to be safe try the unix style */
 if(!pos)
 pos = strrchr(argv[0], '/');
 if(pos)
 strncpy(_dw_exec_dir, argv[0], (size_t)(pos - argv[0]));
 }
 /* If that failed... just get the current directory */
 if(!_dw_exec_dir[0])
 GetCurrentDirectoryA(MAX_PATH, _dw_exec_dir);
 /* Initialize our thread local storage */
 _foreground = TlsAlloc();
 _background = TlsAlloc();
 _hPen = TlsAlloc();
 _hBrush = TlsAlloc();
 #ifdef GDIPLUS
 _gpPen = TlsAlloc();
 _gpBrush = TlsAlloc();
 #endif
 icc.dwSize = sizeof(INITCOMMONCONTROLSEX);
 icc.dwICC = ICC_WIN95_CLASSES|ICC_DATE_CLASSES;
 InitCommonControlsEx(&icc);
 if(!DW_HWND_OBJECT)
 {
 dw_messagebox("Dynamic Windows", DW_MB_OK|DW_MB_ERROR, "Could not initialize the object window. error code %d", GetLastError());
 exit(1);
 }
 #if (defined(BUILD_DLL) || defined(BUILD_HTML))
 /* Register HTML renderer class */
 memset(&wc, 0, sizeof(WNDCLASS));
 wc.lpszClassName = BrowserClassName;
 wc.style = CS_HREDRAW | CS_VREDRAW;
 /* Initialize Security for named events and memory */
 InitializeSecurityDescriptor(&_dwsd, SECURITY_DESCRIPTOR_REVISION);
 SetSecurityDescriptorDacl(&_dwsd, TRUE, (PACL) NULL, FALSE);
 OleInitialize(NULL);
 /*
 * Get an alternate temporary directory in case TMP doesn't exist
 */
 if ( (alttmpdir = getenv( "TEMP" ) ) == NULL )
 {
 si.DebugEventCallback = NULL;
 si.SuppressBackgroundThread = FALSE;
 si.SuppressExternalCodecs = FALSE;
 GdiplusStartup(&gdiplusToken, &si, NULL);
 #endif
 /* GDI+ Needs to be initialized before calling _dw_init_thread(); */
 _dw_init_thread();
 #ifdef RICHEDIT
 /* Attempt to load rich edit library: 4.1, 3/2.0 and 1.0 */
 if(!(hmsftedit = LoadLibrary(TEXT("msftedit"))))
 {
 if(!(hrichedit = LoadLibrary(TEXT("riched20"))))
 hrichedit = LoadLibrary(TEXT("riched32"));
 }
 #endif
 return 0;
 }
 static int _dw_main_running = FALSE;
 /* Make sure any queued redraws are handled */
 _dw_redraw(0, FALSE);
 /* Set the running flag to TRUE */
 _dw_main_running = TRUE;
 /* Run the loop until the flag is unset... or error */
 while(_dw_main_running && GetMessage(&msg, NULL, 0, 0))
 {
 if(msg.hwnd == NULL && msg.message == WM_TIMER)
 _wndproc(msg.hwnd, msg.message, msg.wParam, msg.lParam);
 char outbuf[1025] = {0}, *thisbuf = outbuf;
 va_start(args, format);
 vsnprintf(outbuf, 1024, format, args);
 va_end(args);
 OutputDebugString(UTF8toWide(thisbuf));
 }
 /*
 * Displays a Message Box with given text and title..
 */
 int API dw_window_show(HWND handle)
 {
 int rc;
 RECT rect;
 #ifdef AEROGLASS
 if(_DW_DARK_MODE_SUPPORTED)
 {
 /* Try to enable dark mode support if our OS supports it */
 _dw_set_child_window_theme(handle, 0);
 EnumChildWindows(handle, _dw_set_child_window_theme, 0);
 if(GetParent(handle) == HWND_DESKTOP)
 RefreshTitleBarThemeColor(handle);
 }
 #endif
 GetClientRect(handle, &rect);
 /* If the client area is 0x0 then call the autosize routine */
 if((rect.bottom - rect.top) == 0 || (rect.right - rect.left) == 0)
 dw_window_set_size(handle, 0, 0);
 rc = ShowWindow(handle, SW_SHOW);
 SetFocus(handle);
 _initial_focus(handle);
 return rc;
 }
 /* Handle special case for menu handle */
 if(handle < (HWND)65536)
 {
 char buffer[31] = {0};
 ULONG id = (ULONG)(uintptr_t)handle;
 _snprintf(buffer, 30, "_dw_id%ld", id);
 menu = (HMENU)dw_window_get_data(DW_HWND_OBJECT, buffer);
 if(menu && IsMenu(menu))
 return dw_menu_delete_item((HMENUI)menu, id);
 return DW_ERROR_UNKNOWN;
 }
 parent = GetParent(handle);
 menu = GetMenu(handle);
 if(menu)
 _free_menu_data(menu);
 /* If it is a desktop window let WM_DESTROY handle it */
 if(parent != HWND_DESKTOP)
 * with information about the packing information regarding object.
 */
 Item *_box_item(HWND handle)
 {
 HWND parent = GetParent(handle);
 Box *thisbox = (Box *)GetWindowLongPtr(parent, GWLP_USERDATA);
 /* If it is a desktop window let WM_DESTROY handle it */
 if(parent != HWND_DESKTOP)
 {
 if(thisbox && thisbox->count)
 {
 return NULL;
 }
 /* Internal function to calculate the widget's required size..
 * These are the general rules for widget sizes:
 *
 * Render/Unspecified: 1x1
 * Scrolled(Container,Tree,MLE): Guessed size clamped to min and max in dw.h
 * Entryfield/Combobox/Spinbutton: 150x(maxfontheight)
 * Spinbutton: 50x(maxfontheight)
 * Text/Status: (textwidth)x(textheight)
 /* Attempt to get icon from classes that can have them */
 if(_tcsnicmp(tmpbuf, STATICCLASSNAME, _tcslen(STATICCLASSNAME)+1) == 0)
 hic = (HICON)SendMessage(handle, STM_GETIMAGE, IMAGE_ICON, 0);
 else if(_tcsnicmp(tmpbuf, BUTTONCLASSNAME, _tcslen(BUTTONCLASSNAME)+1) == 0)
 hic = (HICON)SendMessage(handle, BM_GETIMAGE, IMAGE_ICON, 0);
 /* If we got an icon, pull out the internal bitmap */
 if(hic)
 {
 if(GetIconInfo(hic, &ii))
 hbm = ii.hbmMask ? ii.hbmMask : ii.hbmColor;
 }
 /* If we weren't able to get the bitmap from the icon... */
 if(!hbm)
 {
 /* Attempt to get bitmap from classes that can have them */
 if(_tcsnicmp(tmpbuf, STATICCLASSNAME, _tcslen(STATICCLASSNAME)+1) == 0)
 hbm = (HBITMAP)SendMessage(handle, STM_GETIMAGE, IMAGE_BITMAP, 0);
 else if(_tcsnicmp(tmpbuf, BUTTONCLASSNAME, _tcslen(BUTTONCLASSNAME)+1) == 0)
 hbm = (HBITMAP)SendMessage(handle, BM_GETIMAGE, IMAGE_BITMAP, 0);
 }
 /* If we got an image... set the sizes appropriately */
 if(hbm)
 {
 BITMAP bmi = { 0 };
 GetObject(hbm, sizeof(BITMAP), &bmi);
 thiswidth = bmi.bmWidth;
 thisheight = bmi.bmHeight;
 }
 else
 {
 char *buf = dw_window_get_text(handle);
 /* If we have a string...
 * calculate the size with the current font.
 */
 if(buf)
 {
 if(*buf)
 _tcsnicmp(tmpbuf, StatusbarClassName, _tcslen(StatusbarClassName)+1) == 0)
 dw_font_text_extents_get(handle, NULL, testtext, NULL, &thisheight);
 dw_free(buf);
 }
 }
 /* Combobox */
 if(_tcsnicmp(tmpbuf, COMBOBOXCLASSNAME, _tcslen(COMBOBOXCLASSNAME)+1) == 0)
 {
 dw_font_text_extents_get(handle, NULL, testtext, NULL, &thisheight);
 thiswidth = 150;
 extraheight = 4;
 if(thisheight < 18)
 thisheight = 18;
 }
 /* Ranged: Percent, Slider, Scrollbar */
 else if(_tcsnicmp(tmpbuf, PROGRESS_CLASS, _tcslen(PROGRESS_CLASS)+1) == 0 ||
 _tcsnicmp(tmpbuf, TRACKBAR_CLASS, _tcslen(TRACKBAR_CLASS)+1) == 0 ||
 _tcsnicmp(tmpbuf, SCROLLBARCLASSNAME, _tcslen(SCROLLBARCLASSNAME)+1) == 0)
 {
 if(_tcsnicmp(tmpbuf, SCROLLBARCLASSNAME, _tcslen(SCROLLBARCLASSNAME)+1) == 0 &&
 GetWindowLong(handle, GWL_STYLE) & SBS_VERT)
 {
 dw_font_text_extents_get(handle, NULL, testtext, NULL, &thisheight);
 thiswidth = 50;
 extraheight = 6;
 }
 #ifdef TOOLBAR
 /* Bitmap Buttons */
 else if(_tcsnicmp(tmpbuf, TOOLBARCLASSNAME, _tcslen(TOOLBARCLASSNAME)+1) == 0)
 {
 HIMAGELIST imlist = (HIMAGELIST)SendMessage(handle, TB_GETIMAGELIST, 0, 0);
 int minsize = 24;
 if(imlist)
 ImageList_GetIconSize(imlist, &thiswidth, &thisheight);
 /* If we are flat the size can be smaller */
 if(GetWindowLong(handle, GWL_STYLE) & TBSTYLE_FLAT)
 else
 {
 thiswidth += 4;
 thisheight += 4;
 }
 if(thiswidth < minsize)
 thiswidth = minsize;
 if(thisheight < minsize)
 thisheight = minsize;
 }
 #endif
 /* Listbox */
 else if(_tcsnicmp(tmpbuf, LISTBOXCLASSNAME, _tcslen(LISTBOXCLASSNAME)+1) == 0)
 {
 char buf[1025] = {0};
 int x, count = dw_listbox_count(handle);
 int basicwidth = thiswidth = GetSystemMetrics(SM_CXVSCROLL) + 8;
 thisheight = 8;
 for(x=0;x<count;x++)
 {
 int height, width = 0;
 dw_listbox_get_text(handle, x, buf, 1024);
 if(strlen(buf))
 dw_font_text_extents_get(handle, NULL, buf, &width, &height);
 else
 dw_font_text_extents_get(handle, NULL, testtext, NULL, &height);
 width += basicwidth;
 if(width > thiswidth)
 thiswidth = width > _DW_SCROLLED_MAX_WIDTH ? _DW_SCROLLED_MAX_WIDTH : width;
 thisheight += height;
 }
 if(thiswidth < _DW_SCROLLED_MIN_WIDTH)
 thiswidth = _DW_SCROLLED_MIN_WIDTH;
 if(thisheight < _DW_SCROLLED_MIN_HEIGHT)
 thisheight = _DW_SCROLLED_MIN_HEIGHT;
 if(thisheight > _DW_SCROLLED_MAX_HEIGHT)
 {
 unsigned long bytes;
 int height, width;
 char *buf, *ptr;
 int basicwidth;
 if(style & ES_AUTOHSCROLL)
 thisheight = GetSystemMetrics(SM_CYHSCROLL) + 8;
 else
 thisheight = 8;
 basicwidth = thiswidth = GetSystemMetrics(SM_CXVSCROLL) + 8;
 dw_mle_get_size(handle, &bytes, NULL);
 ptr = buf = _alloca(bytes + 2);
 dw_mle_export(handle, buf, 0, (int)bytes);
 buf[bytes] = 0;
 strcat(buf, "\n");
 /* MLE */
 while((ptr = strstr(buf, "\n")))
 {
 ptr[0] = 0;
 width = 0;
 if(strlen(buf))
 dw_font_text_extents_get(handle, NULL, buf, &width, &height);
 else
 dw_font_text_extents_get(handle, NULL, testtext, NULL, &height);
 width += basicwidth;
 if(!(style & ES_AUTOHSCROLL) && width > _DW_SCROLLED_MAX_WIDTH)
 {
 thiswidth = _DW_SCROLLED_MAX_WIDTH;
 thisheight += height * (width / _DW_SCROLLED_MAX_WIDTH);
 }
 thiswidth = width > _DW_SCROLLED_MAX_WIDTH ? _DW_SCROLLED_MAX_WIDTH : width;
 }
 thisheight += height;
 buf = &ptr[1];
 }
 if(thiswidth < _DW_SCROLLED_MIN_WIDTH)
 thiswidth = _DW_SCROLLED_MIN_WIDTH;
 if(thisheight < _DW_SCROLLED_MIN_HEIGHT)
 thisheight = _DW_SCROLLED_MIN_HEIGHT;
 if(thisheight > _DW_SCROLLED_MAX_HEIGHT)
 }
 /* Container */
 else if(_tcsnicmp(tmpbuf, WC_LISTVIEW, _tcslen(WC_LISTVIEW)+1)== 0)
 {
 DWORD result = ListView_ApproximateViewRect(handle, _DW_SCROLLED_MAX_WIDTH, _DW_SCROLLED_MAX_HEIGHT, -1);
 thiswidth = LOWORD(result);
 thisheight = HIWORD(result);
 if(thiswidth > _DW_SCROLLED_MAX_WIDTH)
 thiswidth = _DW_SCROLLED_MAX_WIDTH;
 if(thiswidth < _DW_SCROLLED_MIN_WIDTH)
 thiswidth = _DW_SCROLLED_MIN_WIDTH;
 if(thisheight < _DW_SCROLLED_MIN_HEIGHT)
 }
 /* Buttons */
 else if(_tcsnicmp(tmpbuf, BUTTONCLASSNAME, _tcslen(BUTTONCLASSNAME)+1) == 0)
 {
 ULONG style = GetWindowLong(handle, GWL_STYLE);
 /* Bitmap buttons */
 if(hbm)
 {
 extrawidth = 5;
 extraheight = 5;
 {
 extrawidth = 4;
 extraheight = 2;
 }
 /* Set the requested sizes */
 if(width)
 *width = thiswidth + extrawidth;
 if(height)
 *height = thisheight + extraheight;
 /* Free temporary bitmaps */
 if(ii.hbmColor)
 DeleteObject(ii.hbmColor);
 if(ii.hbmMask)
 DeleteObject(ii.hbmMask);
 }
 /* If we changed the font... */
 if(hfont)
 {
 Item *item = _box_item(handle);
 SendMessage(handle, WM_SETFONT, (WPARAM)hfont, (LPARAM)TRUE);
 if(oldfont)
 DeleteObject(oldfont);
 /* Check to see if any of the sizes need to be recalculated */
 if(item && (item->origwidth == -1 || item->origheight == -1))
 {
 _control_size(handle, item->origwidth == -1 ? &item->width : NULL, item->origheight == -1 ? &item->height : NULL);
 /* Queue a redraw on the top-level window */
 _dw_redraw(_toplevel_window(handle), TRUE);
 }
 return DW_ERROR_NONE;
 }
 HWND hwndframe;
 Box *newbox = calloc(sizeof(Box), 1);
 ULONG flStyleEx = 0;
 #ifdef AEROGLASS
 MARGINS mar = {-1};
 if(_dw_composition && (flStyle & DW_FCF_COMPOSITED))
 flStyleEx = WS_EX_LAYERED;
 #endif
 newbox->type = DW_VERT;
 return _dw_edge_url(handle, url);
 #endif
 return _dw_html_url(handle, url);
 #else
 return DW_ERROR_GENERAL;
 #endif
 }
 /*
 * Executes the javascript contained in "script" in the HTML window.
 * Parameters:
 SignalHandler *tmp = Root;
 while(tmp)
 {
 if(tmp->id == id)
 return TRUE;
 tmp = tmp->next;
 }
 return FALSE;
 }
 /* Convert from OS/2 style accellerators to Win32 style */
 if (title)
 {
 char *tmp = menutitle = _alloca(strlen(title)+1);
 strcpy(tmp, title);
 while(*tmp)
 {
 if(*tmp == '~')
 }
 if (menutitle && *menutitle)
 {
 /* Code to autogenerate a menu ID if not specified or invalid
 * First pool is smaller for transient popup menus
 */
 if(id == (ULONG)-1)
 {
 static ULONG tempid = 61000;
 tempid++;
 id = tempid;
 if(tempid > 65500)
 tempid = 61000;
 }
 /* Second pool is larger for more static windows */
 else if(!id || id >= 30000)
 /*
 * Deletes the menu item specified
 * Parameters:
 *       menu: The handle to the  menu in which the item was appended.
 *       id: Menuitem id.
 * Returns:
 *       DW_ERROR_NONE (0) on success or DW_ERROR_UNKNOWN on failure.
 */
 int API dw_menu_delete_item(HMENUI menux, unsigned long id)
 {
 HMENU mymenu = (HMENU)menux;
 if ( IsWindow(menux) && !IsMenu(mymenu) )
 mymenu = (HMENU)dw_window_get_data(menux, "_dw_menu");
 if ( mymenu == 0 || DeleteMenu(mymenu, id, MF_BYCOMMAND) == 0 )
 return DW_ERROR_UNKNOWN;
 /* If the ID was autogenerated it is safe to remove it */
 if(id >= 30000)
 dw_signal_disconnect_by_window((HWND)(uintptr_t)id);
 /* Make sure the menu is redrawn if needed */
 if( (HMENU)menux != mymenu )
 DrawMenuBar(menux);
 return DW_ERROR_NONE;
 }
 cinfo->back = cinfo->fore = -1;
 cinfo->pOldProc = SubclassWindow(tmp, _staticwndproc);
 SetWindowLongPtr(tmp, GWLP_USERDATA, (LONG_PTR)cinfo);
 #endif
 dw_window_set_font(tmp, DefaultFont);
 dw_window_set_color(tmp, DW_CLR_DEFAULT, DW_RGB_TRANSPARENT);
 return tmp;
 }
 cinfo2->fore = cinfo->fore = -1;
 cinfo2->back = cinfo->back = -1;
 cinfo2->combo = cinfo->combo = tmp;
 EnumChildWindows(tmp, _subclass_child, (LPARAM)cinfo2);
 cinfo->buddy = cinfo2->buddy;
 SetWindowLongPtr(tmp, GWLP_USERDATA, (LONG_PTR)cinfo);
 dw_window_set_font(tmp, DefaultFont);
 SetWindowText(tmp, UTF8toWide(text));
 return tmp;
 }
 #ifdef TOOLBAR
 /* Internal function to create a grayscale bitmap from a color one */
 void _to_grayscale(HBITMAP hbm, int width, int height)
 {
 HDC hdc = CreateCompatibleDC(NULL);
 if (hdc)
 {
 HBITMAP hbmPrev = SelectBitmap(hdc, hbm);
 int x, y;
 for(y=0;y<height;y++)
 HWND _create_toolbar(const char *text, ULONG id, HICON icon, HBITMAP hbitmap)
 {
 HWND tmp;
 HIMAGELIST imlist, dimlist;
 BITMAP bmi = { 0 };
 TBBUTTON tbButtons[] = {
 { MAKELONG(0, 0), id, TBSTATE_ENABLED, TBSTYLE_BUTTON}
 };
 /* Get the bitmap from either the icon or bitmap itself */
 if(hbitmap)
 {
 GetObject(hbitmap, sizeof(BITMAP), &bmi);
 imlist = ImageList_Create(bmi.bmWidth, bmi.bmHeight, ILC_COLOR32, 1, 0);
 DeleteObject(hbitmap);
 }
 else if(icon)
 {
 ICONINFO iconinfo;
 GetIconInfo(icon, &iconinfo);
 GetObject(iconinfo.hbmColor, sizeof(BITMAP), &bmi);
 imlist = ImageList_Create(bmi.bmWidth, bmi.bmHeight, ILC_COLOR32 | ILC_MASK, 1, 0);
 ImageList_AddIcon(imlist, icon);
 dimlist = ImageList_Create(bmi.bmWidth, bmi.bmHeight, ILC_COLOR32 | ILC_MASK, 1, 0);
 }
 else
 return 0;
 /* Create the toolbar */
 tmp = CreateWindowEx(0L, TOOLBARCLASSNAME, NULL, WS_CHILD | WS_VISIBLE | TBSTYLE_AUTOSIZE | CCS_NORESIZE |
 CCS_NOPARENTALIGN | CCS_NODIVIDER, 0, 0, 100, 30, DW_HWND_OBJECT, (HMENU)(uintptr_t)id, DWInstance, NULL);
 /* Disable visual styles by default */
 if(_SetWindowTheme)
 _SetWindowTheme(tmp, L"", L"");
 SendMessage(tmp, TB_SETBUTTONSIZE, 0, MAKELPARAM(bmi.bmWidth, bmi.bmHeight));
 SendMessage(tmp, TB_SETPADDING, 0, 0);
 SendMessage(tmp, TB_SETIMAGELIST, 0, (LPARAM)imlist);
 SendMessage(tmp, TB_SETDISABLEDIMAGELIST, 0, (LPARAM)dimlist);
 SendMessage(tmp, TB_ADDBUTTONS, 1, (LPARAM) &tbButtons);
 _create_tooltip(tmp, text);
 return tmp;
 }
 #endif
 cinfo->pOldProc = SubclassWindow(buddy, _colorwndproc);
 SetWindowLongPtr(buddy, GWLP_USERDATA, (LONG_PTR)cinfo);
 cinfo = calloc(1, sizeof(ColorInfo));
 cinfo->buddy = buddy;
 /* The horrible spinbutton workaround isn't necessary
 * any more on Vista or 7... but still seems necessary
 * for XP, so only enable it if on XP or lower.
 */
 if(!IS_VISTAPLUS)
 {
 cinfo->pOldProc = SubclassWindow(tmp, _spinnerwndproc);
 }
 void _dw_window_set_bitmap(HWND handle, HICON icon, HBITMAP hbitmap)
 {
 HBITMAP oldbitmap = 0;
 HANDLE oldicon = 0;
 TCHAR tmpbuf[100] = {0};
 if (!icon && !hbitmap)
 return;
 GetClassName(handle, tmpbuf, 99);
 if(_tcsnicmp(tmpbuf, BUTTONCLASSNAME, _tcslen(BUTTONCLASSNAME)+1)==0)
 {
 oldbitmap = (HBITMAP)SendMessage(handle, BM_GETIMAGE, IMAGE_BITMAP, 0);
 oldicon = (HICON)SendMessage(handle, BM_GETIMAGE, IMAGE_ICON, 0);
 SendMessage(handle, BM_SETIMAGE,
 (icon ? (WPARAM)IMAGE_ICON : (WPARAM)IMAGE_BITMAP),
 (icon ? (LPARAM)icon : (LPARAM)hbitmap));
 }
 #ifdef TOOLBAR
 /* Bitmap Buttons */
 else if(_tcsnicmp(tmpbuf, TOOLBARCLASSNAME, _tcslen(TOOLBARCLASSNAME)+1) == 0)
 {
 HIMAGELIST imlist = (HIMAGELIST)SendMessage(handle, TB_GETIMAGELIST, 0, 0);
 HIMAGELIST dimlist = (HIMAGELIST)SendMessage(handle, TB_GETDISABLEDIMAGELIST, 0, 0);
 BITMAP bmi = { 0 };
 if(hbitmap)
 {
 GetObject(hbitmap, sizeof(BITMAP), &bmi);
 ImageList_Replace(imlist, 0, hbitmap, NULL);
 _to_grayscale(hbitmap, bmi.bmWidth, bmi.bmHeight);
 DeleteObject(hbitmap);
 }
 else if(icon)
 {
 ICONINFO iconinfo;
 GetIconInfo(icon, &iconinfo);
 GetObject(iconinfo.hbmColor, sizeof(BITMAP), &bmi);
 ImageList_ReplaceIcon(imlist, 0, icon);
 _to_grayscale(iconinfo.hbmColor, bmi.bmWidth, bmi.bmHeight);
 ImageList_Replace(dimlist, 0, iconinfo.hbmColor, iconinfo.hbmMask);
 DeleteObject(iconinfo.hbmMask);
 DestroyIcon(icon);
 }
 InvalidateRect(handle, NULL, FALSE);
 }
 #endif
 else
 {
 oldbitmap = (HBITMAP)SendMessage(handle, STM_GETIMAGE, IMAGE_BITMAP, 0);
 oldicon = (HICON)SendMessage(handle, STM_GETIMAGE, IMAGE_ICON, 0);
 SendMessage(handle, STM_SETIMAGE,
 DeleteObject(oldicon);
 /* If we changed the bitmap... */
 {
 Item *item = _box_item(handle);
 /* Check to see if any of the sizes need to be recalculated */
 if(item && (item->origwidth == -1 || item->origheight == -1))
 {
 _control_size(handle, item->origwidth == -1 ? &item->width : NULL, item->origheight == -1 ? &item->height : NULL);
 /* Queue a redraw on the top-level window */
 _dw_redraw(_toplevel_window(handle), TRUE);
 }
 }
 }
 hbitmap = _dw_load_bitmap(filename, NULL);
 #else
 _dw_get_image_handle(filename, &icon, &hbitmap);
 #endif
 }
 _dw_window_set_bitmap(handle, icon, hbitmap);
 }
 /*
 * Sets the bitmap used for a given static window from data.
 SetWindowText( thisbox->grouphwnd, wtext );
 }
 /* If we changed the text... */
 {
 Item *item = _box_item(handle);
 /* Check to see if any of the sizes need to be recalculated */
 if(item && (item->origwidth == -1 || item->origheight == -1))
 {
 int newwidth, newheight;
 _control_size(handle, &newwidth, &newheight);
 /* Only update the item and redraw the window if it changed */
 if((item->origwidth == -1 && item->width != newwidth) ||
 (item->origheight == -1 && item->height != newheight))
 {
 if(item->origwidth == -1)
 *       bubbletext: The text in the floating bubble tooltip.
 */
 void API dw_window_set_tooltip(HWND handle, const char *bubbletext)
 {
 ColorInfo *cinfo = (ColorInfo *)GetWindowLongPtr(handle, GWLP_USERDATA);
 if(cinfo && cinfo->buddy)
 _create_tooltip(cinfo->buddy, bubbletext);
 _create_tooltip(handle, bubbletext);
 }
 * and fill it with the current text.
 */
 len = GetWindowTextLength(handle) + 1;
 if((tempbuf = _alloca(len * sizeof(TCHAR))))
 GetWindowText(handle, tempbuf, len);
 /* Figure out the UTF8 length, allocate a return buffer
 * and fill it with the UTF8 text and return it.
 */
 if(tempbuf && (retbuf = WideToUTF8(tempbuf)))
 retbuf = _strdup(retbuf);
 if(handle < (HWND)65536)
 {
 char buffer[31] = {0};
 HMENU mymenu;
 ULONG id = (ULONG)(uintptr_t)handle;
 _snprintf(buffer, 30, "_dw_id%ld", id);
 mymenu = (HMENU)dw_window_get_data(DW_HWND_OBJECT, buffer);
 if(mymenu && IsMenu(mymenu))
 dw_menu_item_set_state((HMENUI)mymenu, id, DW_MIS_DISABLED);
 }
 else
 EnableWindow(handle, FALSE);
 if(handle < (HWND)65536)
 {
 char buffer[31] = {0};
 HMENU mymenu;
 ULONG id = (ULONG)(uintptr_t)handle;
 _snprintf(buffer, 30, "_dw_id%ld", id);
 mymenu = (HMENU)dw_window_get_data(DW_HWND_OBJECT, buffer);
 if(mymenu && IsMenu(mymenu))
 dw_menu_item_set_state((HMENUI)mymenu, id, DW_MIS_ENABLED);
 }
 else
 EnableWindow(handle, TRUE);
 dw_messagebox(funcname, DW_MB_OK|DW_MB_ERROR, "Danger! Danger! Will Robinson; box and item are the same!");
 return;
 }
 GetClassName(box, tmpbuf, 99);
 /* If we are in a scrolled box... extract the interal box */
 if(_tcsnicmp(tmpbuf, ScrollClassName, _tcslen(ScrollClassName)+1)==0)
 {
 ColorInfo *cinfo = (ColorInfo *)GetWindowLongPtr(box, GWLP_USERDATA);
 if(cinfo)
 tmpitem[index].origwidth = tmpitem[index].width = width;
 tmpitem[index].origheight = tmpitem[index].height = height;
 tmpitem[index].pad = pad;
 tmpitem[index].hsize = hsize ? SIZEEXPAND : SIZESTATIC;
 tmpitem[index].vsize = vsize ? SIZEEXPAND : SIZESTATIC;
 /* If either of the parameters are -1 ... calculate the size */
 if(width == -1 || height == -1)
 _control_size(item, width == -1 ? &tmpitem[index].width : NULL, height == -1 ? &tmpitem[index].height : NULL);
 thisbox->items = tmpitem;
 SetParent(cinfo->buddy, box);
 ShowWindow(cinfo->buddy, SW_SHOW);
 SendMessage(item, UDM_SETBUDDY, (WPARAM)cinfo->buddy, 0);
 }
 }
 #ifdef TOOLBAR
 else if(_tcsnicmp(tmpbuf, TOOLBARCLASSNAME, _tcslen(TOOLBARCLASSNAME)+1) == 0)
 {
 #ifdef AEROGLASS
 if(!(_dw_composition && (GetWindowLongPtr(_toplevel_window(box), GWL_EXSTYLE) & WS_EX_LAYERED)))
 #endif
 {
 /* Enable double buffering if our window isn't composited */
 SendMessage(item, TB_SETEXTENDEDSTYLE, 0, (LPARAM)TBSTYLE_EX_DOUBLEBUFFER);
 }
 }
 #endif
 /* Queue a redraw on the top-level window */
 _dw_redraw(_toplevel_window(box), TRUE);
 }
 }
 *       DW_ERROR_NONE on success and DW_ERROR_GENERAL on failure.
 */
 int API dw_box_unpack(HWND handle)
 {
 HWND parent = GetParent(handle);
 if(handle && parent != HWND_DESKTOP)
 {
 Box *thisbox = (Box *)GetWindowLongPtr(parent, GWLP_USERDATA);
 /* If the parent box has items...
 * try to remove it from the layout
 */
 if(thisbox && thisbox->count)
 {
 int z, index = -1;
 Item *tmpitem = NULL, *thisitem = thisbox->items;
 *       Handle to the removed item on success, 0 on failure or padding.
 */
 HWND API dw_box_unpack_at_index(HWND box, int index)
 {
 Box *thisbox = (Box *)GetWindowLongPtr(box, GWLP_USERDATA);
 /* Try to remove it from the layout */
 if(thisbox && index > -1 && index < thisbox->count)
 {
 int z;
 Item *tmpitem = NULL, *thisitem = thisbox->items;
 * children before realization. Only applicable when width or height is less than one.
 */
 void _get_window_for_size(HWND handle, unsigned long *width, unsigned long *height)
 {
 Box *thisbox = (Box *)GetWindowLongPtr(handle, GWLP_USERDATA);
 if(thisbox)
 {
 int depth = 0;
 DWORD dwStyle = GetWindowLong(handle, GWL_STYLE);
 DWORD dwExStyle = GetWindowLong(handle, GWL_EXSTYLE);
 HMENU menu = GetMenu(handle) ;
 RECT rc = { 0 } ;
 /* Calculate space requirements */
 _resize_box(thisbox, &depth, *width, *height, 1);
 rc.right = thisbox->minwidth;
 rc.bottom = thisbox->minheight;
 /* Take into account the window border and menu here */
 AdjustWindowRectEx(&rc, dwStyle, menu ? TRUE : FALSE, dwExStyle);
 if ( *width < 1 ) *width = rc.right - rc.left;
 if ( *height < 1 ) *height = rc.bottom - rc.top;
 }
 }
 void API dw_window_set_size(HWND handle, ULONG width, ULONG height)
 {
 /* Attempt to auto-size */
 if ( width < 1 || height < 1 )
 _get_window_for_size(handle, &width, &height);
 /* Finally set the size */
 SetWindowPos(handle, (HWND)NULL, 0, 0, width, height, SWP_NOZORDER | SWP_NOMOVE);
 }
 /*
 void API dw_window_get_preferred_size(HWND handle, int *width, int *height)
 {
 TCHAR tmpbuf[100] = {0};
 GetClassName(handle, tmpbuf, 99);
 if(_tcsnicmp(tmpbuf, ClassName, _tcslen(ClassName)+1) == 0)
 {
 unsigned long thiswidth = 0, thisheight = 0;
 /* Get the size with the border */
 _get_window_for_size(handle, &thiswidth, &thisheight);
 /* Return what was requested */
 if(width) *width = (int)thiswidth;
 if(height) *height = (int)thisheight;
 }
 else if(_tcsnicmp(tmpbuf, FRAMECLASSNAME, _tcslen(FRAMECLASSNAME)+1) == 0)
 {
 Box *thisbox = (Box *)GetWindowLongPtr(handle, GWLP_USERDATA);
 if(thisbox)
 {
 int depth = 0;
 /* Calculate space requirements */
 _resize_box(thisbox, &depth, 0, 0, 1);
 /* Return what was requested */
 if(width) *width = thisbox->minwidth;
 if(height) *height = thisbox->minheight;
 }
 }
 /* Convert the coordinates based on gravity */
 void _handle_gravity(HWND handle, long *x, long *y, unsigned long width, unsigned long height)
 {
 int horz = DW_POINTER_TO_INT(dw_window_get_data(handle, "_dw_grav_horz"));
 int vert = DW_POINTER_TO_INT(dw_window_get_data(handle, "_dw_grav_vert"));
 /* Do any gravity calculations */
 if(horz || vert)
 {
 long newx = *x, newy = *y;
 /* Handle horizontal center gravity */
 if((horz & 0xf) == DW_GRAV_CENTER)
 newx += ((dw_screen_width() / 2) - (width / 2));
 /* Handle right gravity */
 else if((horz & 0xf) == DW_GRAV_RIGHT)
 /* Handle vertical center gravity */
 if((vert & 0xf) == DW_GRAV_CENTER)
 newy += ((dw_screen_height() / 2) - (height / 2));
 else if((vert & 0xf) == DW_GRAV_BOTTOM)
 newy = dw_screen_height() - height - *y;
 /* Save the new values */
 *x = newx;
 *y = newy;
 /* Adjust the values to avoid Taskbar if requested */
 if((horz | vert) & DW_GRAV_OBSTACLES)
 {
 POINT pt = { 0, 0 };
 HMONITOR mon = MonitorFromPoint(pt, MONITOR_DEFAULTTOPRIMARY);
 MONITORINFO mi;
 mi.cbSize = sizeof(MONITORINFO);
 GetMonitorInfo(mon, &mi);
 if(horz & DW_GRAV_OBSTACLES)
 {
 if((horz & 0xf) == DW_GRAV_LEFT)
 *x += (mi.rcWork.left - mi.rcMonitor.left);
 else if((horz & 0xf) == DW_GRAV_RIGHT)
 *y += (mi.rcWork.top - mi.rcMonitor.top);
 else if((vert & 0xf) == DW_GRAV_BOTTOM)
 *y -= (mi.rcMonitor.bottom - mi.rcWork.bottom);
 }
 }
 }
 }
 /*
 * Sets the position of a given window (widget).
 * Parameters:
 void API dw_window_set_pos_size(HWND handle, long x, long y, ULONG width, ULONG height)
 {
 /* Attempt to auto-size */
 if ( width < 1 || height < 1 )
 _get_window_for_size(handle, &width, &height);
 _handle_gravity(handle, &x, &y, width, height);
 /* Finally set the size */
 SetWindowPos(handle, (HWND)NULL, x, y, width, height, SWP_NOZORDER | SWP_NOACTIVATE);
 }
 if(handle < (HWND)65536)
 {
 char buffer[31] = {0};
 HMENU mymenu;
 ULONG id = (ULONG)(uintptr_t)handle;
 _snprintf(buffer, 30, "_dw_id%ld", id);
 mymenu = (HMENU)dw_window_get_data(DW_HWND_OBJECT, buffer);
 if(mymenu && IsMenu(mymenu))
 dw_menu_item_set_state((HMENUI)mymenu, id, style & mask);
 return;
 }
 GetClassName(handle, tmpbuf, 99);
 currentstyle = GetWindowLong(handle, GWL_STYLE);
 cinfo = (ColorInfo *)GetWindowLongPtr(handle, GWLP_USERDATA);
 #ifdef TOOLBAR
 /* Bitmap Buttons */
 if(_tcsnicmp(tmpbuf, TOOLBARCLASSNAME, _tcslen(TOOLBARCLASSNAME)+1) == 0)
 {
 ULONG thisstyle = (TBSTYLE_FLAT | TBSTYLE_TRANSPARENT);
 if(mask & DW_BS_NOBORDER)
 {
 SetWindowLong(handle, GWL_STYLE, (style & DW_BS_NOBORDER) ? (currentstyle | thisstyle) : (currentstyle & ~thisstyle));
 /* Enable or disable visual themese */
 if(_SetWindowTheme)
 _SetWindowTheme(handle, (style & DW_BS_NOBORDER) ? NULL : L"", (style & DW_BS_NOBORDER) ? NULL : L"");
 return;
 }
 }
 #endif
 tmp = currentstyle | mask;
 tmp ^= mask;
 tmp |= style & mask;
 /* Drop out for status bar, it currently doesn't accept styles on Windows */
 if(_tcsnicmp(tmpbuf, StatusbarClassName, _tcslen(StatusbarClassName)+1)==0)
 return;
 else if(_tcsnicmp(tmpbuf, ClassName, _tcslen(ClassName)+1)==0)
 {
 tmp = tmp & 0xffff0000;
 #ifdef AEROGLASS
 if(mask & DW_FCF_COMPOSITED && _DwmExtendFrameIntoClientArea && _dw_composition)
 {
 LONG_PTR styleex = GetWindowLongPtr(handle, GWL_EXSTYLE);
 if(style & DW_FCF_COMPOSITED)
 {
 MARGINS mar = {-1};
 /* Attempt to enable Aero glass background on the entire window */
 SetWindowLongPtr(handle, GWL_EXSTYLE, styleex | WS_EX_LAYERED);
 SetLayeredWindowAttributes(handle, _dw_transparencykey, 0, LWA_COLORKEY);
 _DwmExtendFrameIntoClientArea(handle, &mar);
 }
 else
 {
 MARGINS mar = {0};
 /* Remove Aero Glass */
 SetWindowLongPtr(handle, GWL_EXSTYLE, styleex & ~WS_EX_LAYERED);
 _DwmExtendFrameIntoClientArea(handle, &mar);
 }
 }
 #endif
 }
 else if(_tcsnicmp(tmpbuf, STATICCLASSNAME, _tcslen(STATICCLASSNAME)+1)==0)
 {
 ULONG thismask = mask & ~(DW_DT_VCENTER | DW_DT_WORDBREAK);
 ULONG thisstyle = style & ~(DW_DT_VCENTER | DW_DT_WORDBREAK);
 ULONG type = style & mask & 0xFL;
 /* Need to filter out bits that shouldn't be set */
 tmp = currentstyle | thismask;
 tmp ^= thismask;
 tmp |= thisstyle & thismask;
 else
 {
 if((dwComctlVer >= PACKVERSION(6,0)))
 {
 unsigned long style = GetWindowLong(handle, GWL_STYLE);
 if(style & PBS_MARQUEE)
 {
 /* Stop the bar */
 SendMessage(handle, PBM_SETMARQUEE, 0, 0);
 /* Disable the style on the control */
 static HWND lasthwnd = NULL;
 /* We can't add an invalid handle */
 if(!hicon)
 return -1;
 if(!hSmall || !hLarge)
 {
 hSmall = ImageList_Create(16, 16, ILC_COLOR16 | ILC_MASK, ICON_INDEX_LIMIT, 0);
 hLarge = ImageList_Create(32, 32, ILC_COLOR16 | ILC_MASK, ICON_INDEX_LIMIT, 0);
 }
 if(flags[column] & DW_CFA_BITMAPORICON)
 {
 lvi.mask = LVIF_DI_SETITEM | LVIF_IMAGE;
 lvi.pszText = NULL;
 if(data)
 {
 HICON hicon = *((HICON *)data);
 lvi.iImage = _lookup_icon(handle, hicon, 0);
 {
 item = DW_POINTER_TO_INT(dw_window_get_data(handle, "_dw_insertitem"));
 }
 memset(&lvi, 0, sizeof(LV_ITEM));
 lvi.iItem = row + item;
 lvi.mask = LVIF_PARAM;
 if(ListView_GetItem(handle, &lvi))
 {
 void **params = (void **)lvi.lParam;
 void *newparam = data;
 /* Make sure we have our pointer array... */
 if(!params)
 {
 /* If not allocate it */
 params = (void **)calloc(2, sizeof(void *));
 * freeing any existing string.
 */
 if(type == _DW_DATA_TYPE_STRING)
 {
 void *oldparam = params[type];
 params[type] = NULL;
 if(oldparam)
 free(oldparam);
 if(newparam)
 newparam = _strdup((char *)newparam);
 }
 int type = _DW_DATA_TYPE_STRING;
 char *retval = NULL;
 if(_index == -1)
 return retval;
 if(flags & DW_CR_RETDATA)
 type = _DW_DATA_TYPE_POINTER;
 memset(&lvi, 0, sizeof(LV_ITEM));
 lvi.iItem = _index;
 lvi.mask = LVIF_PARAM;
 ListView_GetItem(handle, &lvi);
 params = (void **)lvi.lParam;
 if(params)
 {
 if(type == _DW_DATA_TYPE_STRING && params[type])
 retval = _strdup((char *)params[type]);
 else
 if(_index == -1)
 return retval;
 if(flags & DW_CR_RETDATA)
 type = _DW_DATA_TYPE_POINTER;
 memset(&lvi, 0, sizeof(LV_ITEM));
 lvi.iItem = _index;
 lvi.mask = LVIF_PARAM;
 params = (void **)lvi.lParam;
 if ( params && params[_DW_DATA_TYPE_STRING] && strcmp( (char *)params[_DW_DATA_TYPE_STRING], text ) == 0 )
 {
 unsigned long width, height;
 ListView_SetItemState( handle, index, LVIS_FOCUSED | LVIS_SELECTED, LVIS_FOCUSED | LVIS_SELECTED );
 dw_window_get_pos_size( handle, NULL, NULL, &width, &height);
 if(width < 10 || height < 10)
 dw_window_set_data( handle, "_dw_cursor", DW_INT_TO_POINTER(index) );
 ListView_EnsureVisible( handle, index, TRUE );
 params = (void **)lvi.lParam;
 if ( params && params[_DW_DATA_TYPE_POINTER] == data )
 {
 unsigned long width, height;
 ListView_SetItemState( handle, index, LVIS_FOCUSED | LVIS_SELECTED, LVIS_FOCUSED | LVIS_SELECTED );
 dw_window_get_pos_size( handle, NULL, NULL, &width, &height);
 if(width < 10 || height < 10)
 dw_window_set_data( handle, "_dw_cursor", DW_INT_TO_POINTER(index) );
 ListView_EnsureVisible( handle, index, TRUE );
 while(index != -1)
 {
 for(z=0;z<cinfo->columns;z++)
 {
 unsigned int width;
 ListView_GetItemText(handle, index, z, text, 1023);
 width = ListView_GetStringWidth(handle, text);
 /* Figure extra space for the icon for the first column */
 if(z == 0)
 index = ListView_GetNextItem(handle, index, LVNI_ALL);
 }
 /* Set the new sizes... Microsoft says we need to add
 * padding to the calculated sized but does not give
 * a value.  Trial and error shows that 16 works for us.
 */
 for(z=0;z<cinfo->columns;z++)
 ListView_SetColumnWidth(handle, z, columns[z] + 16);
 value = _internal_color(value);
 foreground = RGB(DW_RED_VALUE(value), DW_GREEN_VALUE(value), DW_BLUE_VALUE(value));
 #ifdef GDIPLUS
 gpfore = MAKEARGB(255, DW_RED_VALUE(value), DW_GREEN_VALUE(value), DW_BLUE_VALUE(value));
 GdipDeletePen(pen);
 GdipCreatePen1(gpfore, 1.0, UnitPixel, &pen);
 TlsSetValue(_gpPen, (LPVOID)pen);
 GdipSetSolidFillColor(brush, gpfore);
 #endif
 DeleteObject(hPen);
 DeleteObject(hBrush);
 TlsSetValue(_foreground, (LPVOID)(uintptr_t)foreground);
 TlsSetValue(_hPen, CreatePen(PS_SOLID, 1, foreground));
 *       y: Y coordinate.
 */
 void API dw_draw_point(HWND handle, HPIXMAP pixmap, int x, int y)
 {
 #ifdef GDIPLUS
 /* There doesn't seem to be an equivalent to SetPixel in GDI+ ...
 * so instead we call dw_draw_rect() with 1 for width and height.
 */
 dw_draw_rect(handle, pixmap, DW_DRAW_FILL | DW_DRAW_NOAA, x, y, 1, 1);
 #else
 HDC hdcPaint;
 if(handle)
 hdcPaint = GetDC(handle);
 else if(pixmap)
 return;
 SetPixel(hdcPaint, x, y, (COLORREF)TlsGetValue(_foreground));
 if(!pixmap)
 ReleaseDC(handle, hdcPaint);
 #endif
 }
 /* Draw a line on a window (preferably a render window).
 * Parameters:
 *       handle: Handle to the window.
 void API dw_draw_line(HWND handle, HPIXMAP pixmap, int x1, int y1, int x2, int y2)
 {
 #ifdef GDIPLUS
 GpGraphics *graphics = NULL;
 GpPen *pen = TlsGetValue(_gpPen);
 if(handle)
 GdipCreateFromHWND(handle, &graphics);
 else if(pixmap)
 GdipCreateFromHDC(pixmap->hdc, &graphics);
 else
 return;
 GdipSetSmoothingMode(graphics, SmoothingModeAntiAlias);
 GdipDrawLineI(graphics, pen, x1, y1, x2, y2);
 GdipDeleteGraphics(graphics);
 #else
 HDC hdcPaint;
 /* Internal function to generate POINT arrays used by Windows APIs */
 POINT *_makePoints(int *npoints, int *x, int *y)
 {
 POINT *points;
 int i;
 /*
 * Allocate enough space for the number of points supplied plus 1.
 * Under windows, unless the first and last points are the same
 * the polygon won't be closed
 */
 points = (POINT *)malloc( ((*npoints)+1) * sizeof(POINT) );
 if(points)
 {
 for ( i = 0 ; i < *npoints ; i++ )
 {
 points[i].x = x[i];
 *       y[]: Y coordinates.
 */
 void API dw_draw_polygon(HWND handle, HPIXMAP pixmap, int flags, int npoints, int *x, int *y)
 {
 POINT *points = NULL;
 /* Sanity check */
 if(npoints < 1)
 return;
 #ifdef GDIPLUS
 {
 GpGraphics *graphics = NULL;
 if(handle)
 GdipCreateFromHWND(handle, &graphics);
 else if(pixmap)
 GdipCreateFromHDC(pixmap->hdc, &graphics);
 else
 return;
 /* Enable antialiasing if the DW_DRAW_NOAA flag isn't set */
 if(!(flags & DW_DRAW_NOAA))
 GdipSetSmoothingMode(graphics, SmoothingModeAntiAlias);
 if((points = _makePoints(&npoints, x, y)))
 {
 if(flags & DW_DRAW_FILL)
 {
 GpBrush *brush = TlsGetValue(_gpBrush);
 GdipFillPolygon2I(graphics, brush, points, npoints);
 }
 else
 {
 GpPen *pen = TlsGetValue(_gpPen);
 GdipDrawPolygonI(graphics, pen, points, npoints);
 }
 }
 GdipDeleteGraphics(graphics);
 }
 #else
 {
 HDC hdcPaint;
 if ( handle )
 hdcPaint = GetDC( handle );
 else if ( pixmap )
 hdcPaint = pixmap->hdc;
 else
 return;
 if((points = _makePoints(&npoints, x, y)))
 {
 HBRUSH oldBrush = SelectObject( hdcPaint, TlsGetValue(_hBrush) );
 HPEN oldPen = SelectObject( hdcPaint, TlsGetValue(_hPen) );
 if ( flags & DW_DRAW_FILL )
 Polygon( hdcPaint, points, npoints );
 else
 Polyline( hdcPaint, points, npoints );
 SelectObject( hdcPaint, oldBrush );
 SelectObject( hdcPaint, oldPen );
 }
 if ( !pixmap )
 ReleaseDC( handle, hdcPaint );
 }
 #endif
 if(points)
 free(points);
 }
 /* Draw a rectangle on a window (preferably a render window).
 */
 void API dw_draw_rect(HWND handle, HPIXMAP pixmap, int flags, int x, int y, int width, int height)
 {
 #ifdef GDIPLUS
 GpGraphics *graphics = NULL;
 if(handle)
 GdipCreateFromHWND(handle, &graphics);
 else if(pixmap)
 GdipCreateFromHDC(pixmap->hdc, &graphics);
 else
 return;
 /* Enable antialiasing if the DW_DRAW_NOAA flag isn't set */
 if(!(flags & DW_DRAW_NOAA))
 GdipSetSmoothingMode(graphics, SmoothingModeAntiAlias);
 if(flags & DW_DRAW_FILL)
 {
 GpBrush *brush = TlsGetValue(_gpBrush);
 GdipFillRectangleI(graphics, brush, x, y, width, height);
 }
 else
 {
 GpPen *pen = TlsGetValue(_gpPen);
 GdipDrawRectangleI(graphics, pen, x, y, width, height);
 }
 GdipDeleteGraphics(graphics);
 #else
 HDC hdcPaint;
 FillRect(hdcPaint, &Rect, TlsGetValue(_hBrush));
 else
 FrameRect(hdcPaint, &Rect, TlsGetValue(_hBrush));
 if(!pixmap)
 ReleaseDC(handle, hdcPaint);
 #endif
 }
 /* Draw an arc on a window (preferably a render window).
 * Parameters:
 *       handle: Handle to the window.
 void API dw_draw_arc(HWND handle, HPIXMAP pixmap, int flags, int xorigin, int yorigin, int x1, int y1, int x2, int y2)
 {
 #ifdef GDIPLUS
 GpGraphics *graphics = NULL;
 GpPen *pen = TlsGetValue(_gpPen);
 if(handle)
 GdipCreateFromHWND(handle, &graphics);
 else if(pixmap)
 GdipCreateFromHDC(pixmap->hdc, &graphics);
 else
 return;
 /* Enable antialiasing if the DW_DRAW_NOAA flag isn't set */
 if(!(flags & DW_DRAW_NOAA))
 GdipSetSmoothingMode(graphics, SmoothingModeAntiAlias);
 if(flags & DW_DRAW_FULL)
 {
 if(flags & DW_DRAW_FILL)
 {
 GpBrush *brush = TlsGetValue(_gpBrush);
 GdipFillEllipseI(graphics, brush, x1 < x2 ? x1 : x2, y1 < y2 ? y1 : y2, abs(x1-x2), abs(y1-y2));
 }
 else
 GdipDrawEllipseI(graphics, pen, x1 < x2 ? x1 : x2, y1 < y2 ? y1 : y2, abs(x1-x2), abs(y1-y2));
 }
 double dx = xorigin - x1;
 double dy = yorigin - y1;
 double r = sqrt(dx*dx + dy*dy);
 double sweep;
 int ri = (int)r;
 /* Convert to degrees */
 a1 *= (180.0 / M_PI);
 a2 *= (180.0 / M_PI);
 sweep = fabs(a1 - a2);
 GdipDrawArcI(graphics, pen, xorigin-ri, yorigin-ri, ri*2, ri*2, (REAL)a1, (REAL)sweep);
 }
 GdipDeleteGraphics(graphics);
 #else
 HDC hdcPaint;
 HBRUSH oldBrush;
 HPEN oldPen;
 double dx = xorigin - x1;
 double dy = yorigin - y1;
 hdcPaint = GetDC(handle);
 else if(pixmap)
 hdcPaint = pixmap->hdc;
 else
 return;
 if(flags & DW_DRAW_FILL)
 oldBrush = SelectObject( hdcPaint, TlsGetValue(_hBrush) );
 else
 oldBrush = SelectObject( hdcPaint, GetStockObject(HOLLOW_BRUSH) );
 oldPen = SelectObject( hdcPaint, TlsGetValue(_hPen) );
 if(flags & DW_DRAW_FULL)
 SelectObject( hdcPaint, oldBrush );
 SelectObject( hdcPaint, oldPen );
 if(!pixmap)
 ReleaseDC(handle, hdcPaint);
 #endif
 }
 #ifdef GDIPLUS
 /* Internal function to increase or decrease coordinates/sizes
 * by the difference of the screen DPI (96) and the context DPI.
 int API dw_pixmap_set_font(HPIXMAP pixmap, const char *fontname)
 {
 if(pixmap)
 {
 HFONT hfont = _acquire_font2(pixmap->hdc, fontname);
 if(hfont)
 {
 HFONT oldfont = pixmap->font;
 pixmap->font = hfont;
 if(oldfont)
 _convert_dpi(hdcdest, &xdest, &ydest, TRUE);
 _convert_dpi(hdcdest, &width, &height, TRUE);
 _convert_dpi(hdcsrc, &xsrc, &ysrc, TRUE);
 _convert_dpi(hdcsrc, &swidth, &sheight, TRUE);
 #endif
 /* If it is a 32bpp bitmap (with alpha) use AlphaBlend unless it fails */
 if ( srcp && srcp->depth == 32 && AlphaBlend( hdcdest, xdest, ydest, width, height, hdcsrc, xsrc, ysrc, swidth, sheight, bf ) )
 {
 /* Don't do anything */
 }
 UnmapViewOfFile(ptr);
 CloseHandle(handle);
 return 0;
 }
 /*
 * Generally an internal function called from a newly created
 * thread to setup the Dynamic Windows environment for the thread.
 * However it is exported so language bindings can call it when
 * they create threads that require access to Dynamic Windows.
 */
 COLORREF background = DW_RGB_TRANSPARENT;
 #ifdef GDIPLUS
 ARGB gpfore = MAKEARGB(255, 128, 128, 128);
 GpBrush *brush;
 GpPen *pen;
 GdipCreatePen1(gpfore, 1.0, UnitPixel, &pen);
 TlsSetValue(_gpPen, (LPVOID)pen);
 GdipCreateSolidFill(gpfore, &brush);
 TlsSetValue(_gpBrush, brush);
 #endif
 TlsSetValue(_foreground, DW_UINT_TO_POINTER(foreground));
 TlsSetValue(_background, DW_UINT_TO_POINTER(background));
 TlsSetValue(_hPen, CreatePen(PS_SOLID, 1, foreground));
 TlsSetValue(_hBrush, CreateSolidBrush(foreground));
 }
 /*
 * Generally an internal function called from a terminating
 * thread to cleanup the Dynamic Windows environment for the thread.
 * However it is exported so language bindings can call it when
 * they exit threads that require access to Dynamic Windows.
 */
 HPEN hPen;
 HBRUSH hBrush;
 #ifdef GDIPLUS
 GpBrush *brush;
 GpPen *pen;
 #endif
 if((hPen = TlsGetValue(_hPen)))
 DeleteObject(hPen);
 if((hBrush = TlsGetValue(_hBrush)))
 DeleteObject(hBrush);
 #ifdef GDIPLUS
 if((brush = TlsGetValue(_gpBrush)))
 GdipDeleteBrush(brush);
 if((pen = TlsGetValue(_gpPen)))
 GdipDeletePen(pen);
 #endif
 }
 /*
 * Encapsulate thread creation on Win32.
 */
 {
 OleUninitialize();
 #ifdef AEROGLASS
 /* Free any in use libraries */
 FreeLibrary(hdwm);
 #endif
 FreeLibrary(huxtheme);
 DestroyWindow(hwndTooltip);
 }
 /*
 /* Internal function to set the focus from the window thread */
 void _dw_set_focus(HWND handle)
 {
 SetFocus(handle);
 }
 /*
 * Sets the current focus item for a window/dialog.
 * Parameters:
 *         handle: Handle to the dialog item to be focused.
 * Remarks:
 HANDLE handle;
 char *ret = NULL;
 TCHAR *tmp;
 #ifdef UNICODE
 int type = CF_UNICODETEXT;
 #else
 int type = CF_TEXT;
 #endif
 if ( !OpenClipboard( NULL ) )
 return ret;
 memcpy(src, str, len);
 buf = UTF8toWide(src);
 free(src);
 len = (int)_tcslen(buf);
 #else
 int type = CF_TEXT;
 buf = str;
 #endif
 if ( !OpenClipboard( NULL ) )
 return;
 *                      or NULL if none is necessary.
 * Returns:
 *         A handle to the notification which can be used to attach a "clicked" event if desired,
 *         or NULL if it fails or notifications are not supported by the system.
 * Remarks:
 *          This will create a system notification that will show in the notifaction panel
 *          on supported systems, which may be clicked to perform another task.
 */
 HWND dw_notification_new(const char *title, HPIXMAP pixmap, const char *description, ...)
 {
 return NULL;
 env->MajorBuild =  0;
 }
 strcpy(env->buildDate, __DATE__);
 strcpy(env->buildTime, __TIME__);
+#if (defined(BUILD_DLL) || defined(BUILD_HTML))
+#  ifdef BUILD_EDGE
+strcpy(env->htmlEngine, "EDGE");
+#  else
+strcpy(env->htmlEngine, "IE");
+#  endif
+#else
+strcpy(env->htmlEngine, "N/A");
+#endif
 env->DWMajorVersion = DW_MAJOR_VERSION;
 env->DWMinorVersion = DW_MINOR_VERSION;
 #ifdef VER_REV
 env->DWSubVersion = VER_REV;
 #else
 /* Helper to make sure all /s are \s */
 void _to_dos(TCHAR *dst, TCHAR *src)
 {
 int x = 0;
 while(src[x])
 {
 if(src[x] == TEXT('/'))
 dst[x] = TEXT('\\');
 else
 #endif
 }
 else
 {
 DWORD att = defpath ? GetFileAttributes(UTF8toWide(defpath)) : INVALID_FILE_ATTRIBUTES;
 if (ext)
 {
 /*
 * The following mess is because sprintf() trunates at first \0
 * and format of filter is eg: "c files (*.c)\0*.c\0All Files\0*.*\0\0"
 newparams = (char **)malloc(sizeof(char *) * (count+1));
 for(z=0;z<count;z++)
 {
 if(strchr(params[z], ' '))
 {
 newparams[z] = malloc(strlen(params[z])+3);
 strcpy(newparams[z], "\"");
 strcat(newparams[z], params[z]);
 strcat(newparams[z], "\"");
 }
 else
 newparams[z] = strdup(params[z]);
 }
 newparams[count] = NULL;
 /* Why does this return intptr_t ... can the PID exceed an integer value? */
 if(retcode<33 && retcode != 2)
 return DW_ERROR_UNKNOWN;
 return DW_ERROR_NONE;
 }
 typedef struct _dwprint
 {
 PRINTDLG pd;
 DOCINFO di;
 int (DWSIGNAL *drawfunc)(HPRINT, HPIXMAP, int, void *);
 void *drawdata;
 *       A handle to the print object or NULL on failure.
 */
 HPRINT API dw_print_new(const char *jobname, unsigned long flags, unsigned int pages, void *drawfunc, void *drawdata)
 {
 DWPrint *print;
 if(!drawfunc || !(print = calloc(1, sizeof(DWPrint))))
 return NULL;
 print->drawfunc = drawfunc;
 print->drawdata = drawdata;
 print->pd.lStructSize = sizeof(PRINTDLG);
 print->pd.hwndOwner = HWND_DESKTOP;
 print->pd.Flags = PD_USEDEVMODECOPIESANDCOLLATE | PD_RETURNDC;
 int API dw_print_run(HPRINT print, unsigned long flags)
 {
 DWPrint *p = print;
 HPIXMAP pixmap;
 int x, width, height, result = DW_ERROR_UNKNOWN;
 if(!p)
 return result;
 if (!(pixmap = calloc(1,sizeof(struct _hpixmap))))
 return result;
 width = GetDeviceCaps(p->pd.hDC, HORZRES);
 height = GetDeviceCaps(p->pd.hDC, VERTRES);
 pixmap->hbm = CreateCompatibleBitmap(p->pd.hDC, width, height);
 pixmap->hdc = p->pd.hDC;
 pixmap->transcolor = DW_RGB_TRANSPARENT;
 SelectObject(pixmap->hdc, pixmap->hbm);
 /* Start the job */
 StartDoc(p->pd.hDC, &(p->di));
 /* Cycle through each page */
 for(x=p->pd.nFromPage-1; x<p->pd.nToPage && p->drawfunc; x++)
 {
 StartPage(p->pd.hDC);
 p->drawfunc(print, pixmap, x, p->drawdata);
 *       print: Handle to the print object returned by dw_print_new().
 */
 void API dw_print_cancel(HPRINT print)
 {
 DWPrint *p = print;
 if(p)
 p->drawfunc = NULL;
 }
 /*
 return _user_dir;
 }
 /*
 * Returns a pointer to a static buffer which containes the
 * private application data directory.
 */
 char * API dw_app_dir(void)
 {
 return _dw_exec_dir;
 }
 while(tmp)
 {
 if(((window < (HWND)65536 && (int)(intptr_t)window == tmp->id) || tmp->window == window) && tmp->message == message)
 {
 void (DWSIGNAL *discfunc)(HWND, void *) = (void (*)(HWND, void *))tmp->discfunction;
 if(discfunc)
 {
 discfunc(tmp->window, tmp->data);
 }
 if(prev)
 {
 prev->next = tmp->next;
 free(tmp);
 tmp = prev->next;
 while(tmp)
 {
 if((window < (HWND)65536 && (int)(intptr_t)window == tmp->id) || tmp->window == window)
 {
 void (DWSIGNAL *discfunc)(HWND, void *) = (void (*)(HWND, void *))tmp->discfunction;
 if(discfunc)
 {
 discfunc(tmp->window, tmp->data);
 }
 if(prev)
 {
 prev->next = tmp->next;
 free(tmp);
 tmp = prev->next;
 while(tmp)
 {
 if(((window < (HWND)65536 && (int)(intptr_t)window == tmp->id) || tmp->window == window) && tmp->data == data)
 {
 void (DWSIGNAL *discfunc)(HWND, void *) = (void (*)(HWND, void *))tmp->discfunction;
 if(discfunc)
 {
 discfunc(tmp->window, tmp->data);
 }
 if(prev)
 {
 prev->next = tmp->next;
 free(tmp);
 tmp = prev->next;
 {
 #ifdef UNICODE
 return _myUTF8toWide(utf8string, malloc(MultiByteToWideChar(CP_UTF8, 0, utf8string, -1, NULL, 0) * sizeof(WCHAR)));
 #else
 return NULL;
 #endif
 }
 /*
 * Converts a wide string into a UTF-8 encoded string.
 * Parameters:

Mercurial > dwindows

comparison win/dw.c @ 2081:24875681eec5