Mercurial > dwindows
view win/dw.c @ 2015:c30f4354966e
Win: Added support for dw_html_javascript_run() using Edge (Chromium).
OS/2: Added dw_html_javascript_run() stub for OS/2 so things compile.
author | bsmith@81767d24-ef19-dc11-ae90-00e081727c95 |
---|---|
date | Thu, 07 Nov 2019 10:12:25 +0000 |
parents | f7acca46f795 |
children | 686b2d049056 |
line wrap: on
line source
/* * Dynamic Windows: * A GTK like implementation of the Win32 GUI * * (C) 2000-2019 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 #define WINVER 0x500 #endif #include <winsock2.h> #include <windows.h> #include <windowsx.h> #include <commctrl.h> #include <shlwapi.h> #include <shlobj.h> #include <userenv.h> #include <tchar.h> #include <stdlib.h> #include <string.h> #include <stdio.h> #include <process.h> #include <malloc.h> #include <io.h> #include <time.h> #define _USE_MATH_DEFINES #include <math.h> #include "dw.h" #ifdef BUILD_DLL #include "XBrowseForFolder.h" #endif #ifdef AEROGLASS #include <uxtheme.h> #endif #include <richedit.h> #define STATICCLASSNAME TEXT("STATIC") #define COMBOBOXCLASSNAME TEXT("COMBOBOX") #define LISTBOXCLASSNAME TEXT("LISTBOX") #define BUTTONCLASSNAME TEXT("BUTTON") #define POPUPMENUCLASSNAME TEXT("POPUPMENU") #define EDITCLASSNAME TEXT("EDIT") #define FRAMECLASSNAME TEXT("FRAME") #define SCROLLBARCLASSNAME TEXT("SCROLLBAR") #define ClassName TEXT("dynamicwindows") #define SplitbarClassName TEXT("dwsplitbar") #define ObjectClassName TEXT("dwobjectclass") #define BrowserClassName TEXT("dwbrowserclass") #define ScrollClassName TEXT("dwscrollclass") #define StatusbarClassName TEXT("dwstatusbar") #define DefaultFont NULL #ifdef GDIPLUS /* GDI+ Headers are not C compatible... so define what we need here instead */ struct GdiplusStartupInput { UINT32 GdiplusVersion; void *DebugEventCallback; BOOL SuppressBackgroundThread; BOOL SuppressExternalCodecs; }; typedef enum { Ok = 0, GenericError = 1, InvalidParameter = 2, OutOfMemory = 3, ObjectBusy = 4, InsufficientBuffer = 5, NotImplemented = 6, Win32Error = 7, WrongState = 8, Aborted = 9, FileNotFound = 10, ValueOverflow = 11, AccessDenied = 12, UnknownImageFormat = 13, FontFamilyNotFound = 14, FontStyleNotFound = 15, NotTrueTypeFont = 16, UnsupportedGdiplusVersion = 17, GdiplusNotInitialized = 18, PropertyNotFound = 19, PropertyNotSupported = 20, ProfileNotFound = 21 } GpStatus; typedef enum { UnitWorld, UnitDisplay, UnitPixel, UnitPoint, UnitInch, UnitDocument, UnitMillimeter } GpUnit; typedef enum { FlushIntentionFlush = 0, FlushIntentionSync = 1 } GpFlushIntention; typedef enum { QualityModeInvalid = -1, QualityModeDefault = 0, QualityModeLow = 1, QualityModeHigh = 2 } QualityMode; typedef enum { SmoothingModeInvalid = QualityModeInvalid, SmoothingModeDefault = QualityModeDefault, SmoothingModeHighSpeed = QualityModeLow, SmoothingModeHighQuality = QualityModeHigh, SmoothingModeNone, SmoothingModeAntiAlias } SmoothingMode; typedef void GpGraphics; typedef void GpPen; typedef void GpBrush; typedef void GpBitmap; typedef void GpImage; typedef POINT GpPoint; typedef DWORD ARGB; typedef float REAL; #define ALPHA_SHIFT 24 #define RED_SHIFT 16 #define GREEN_SHIFT 8 #define BLUE_SHIFT 0 #define ALPHA_MASK ((ARGB) 0xff << ALPHA_SHIFT) #define MAKEARGB(a, r, g, b) \ (((ARGB) ((a) & 0xff) << ALPHA_SHIFT)| \ ((ARGB) ((r) & 0xff) << RED_SHIFT) | \ ((ARGB) ((g) & 0xff) << GREEN_SHIFT)| \ ((ARGB) ((b) & 0xff) << BLUE_SHIFT)) /* Graphic conversion functions */ GpStatus WINAPI GdipCreateBitmapFromFile(const WCHAR* filename, GpBitmap **bitmap); GpStatus WINAPI GdipCreateHBITMAPFromBitmap(GpBitmap *bitmap, HBITMAP* hbmReturn, DWORD background); GpStatus WINAPI GdipCreateHICONFromBitmap(GpBitmap *bitmap, HICON *hbmReturn); GpStatus WINAPI GdipDisposeImage(GpImage *image); GpStatus WINAPI GdipGetImagePixelFormat(GpImage *image, INT *format); /* Startup and Shutdown */ GpStatus WINAPI GdiplusStartup(ULONG_PTR *token, const struct GdiplusStartupInput *input, void *output); VOID WINAPI GdiplusShutdown(ULONG_PTR token); /* Drawing functions */ GpStatus WINAPI GdipCreateFromHDC(HDC hdc, GpGraphics **graphics); GpStatus WINAPI GdipCreateFromHWND(HWND hwnd, GpGraphics **graphics); GpStatus WINAPI GdipDeleteGraphics(GpGraphics *graphics); GpStatus WINAPI GdipSetSmoothingMode(GpGraphics *graphics, SmoothingMode smoothingMode); GpStatus WINAPI GdipCreatePen1(ARGB color, REAL width, GpUnit unit, GpPen **pen); GpStatus WINAPI GdipDeletePen(GpPen *pen); GpStatus WINAPI GdipCreateSolidFill(ARGB color, GpBrush **brush); GpStatus WINAPI GdipDeleteBrush(GpBrush *brush); GpStatus WINAPI GdipSetSolidFillColor(GpBrush *brush, ARGB color); GpStatus WINAPI GdipDrawLineI(GpGraphics *graphics, GpPen *pen, INT x1, INT y1, INT x2, INT y2); GpStatus WINAPI GdipDrawLinesI(GpGraphics *graphics, GpPen *pen, const GpPoint *points, INT count); GpStatus WINAPI GdipDrawRectangleI(GpGraphics *graphics, GpPen *pen, INT x, INT y, INT width, INT height); GpStatus WINAPI GdipFillRectangleI(GpGraphics *graphics, GpBrush *brush, INT x, INT y, INT width, INT height); GpStatus WINAPI GdipDrawArcI(GpGraphics *graphics, GpPen *pen, INT x, INT y, INT width, INT height, REAL startAngle, REAL sweepAngle); GpStatus WINAPI GdipDrawPolygonI(GpGraphics *graphics, GpPen *pen, const GpPoint *points, INT count); GpStatus WINAPI GdipFillPolygon2I(GpGraphics *graphics, GpBrush *brush, const GpPoint *points, INT count); 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 PixelFormat4bppIndexed (2 | ( 4 << 8) | PixelFormatIndexed | PixelFormatGDI) #define PixelFormat8bppIndexed (3 | ( 8 << 8) | PixelFormatIndexed | PixelFormatGDI) #define PixelFormat16bppGrayScale (4 | (16 << 8) | PixelFormatExtended) #define PixelFormat16bppRGB555 (5 | (16 << 8) | PixelFormatGDI) #define PixelFormat16bppRGB565 (6 | (16 << 8) | PixelFormatGDI) #define PixelFormat16bppARGB1555 (7 | (16 << 8) | PixelFormatAlpha | PixelFormatGDI) #define PixelFormat24bppRGB (8 | (24 << 8) | PixelFormatGDI) #define PixelFormat32bppRGB (9 | (32 << 8) | PixelFormatGDI) #define PixelFormat32bppARGB (10 | (32 << 8) | PixelFormatAlpha | PixelFormatGDI | PixelFormatCanonical) #define PixelFormat32bppPARGB (11 | (32 << 8) | PixelFormatAlpha | PixelFormatPAlpha | PixelFormatGDI) #define PixelFormat48bppRGB (12 | (48 << 8) | PixelFormatExtended) #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; HRESULT (WINAPI *_DwmSetWindowAttribute)(HWND, DWORD, LPCVOID, DWORD) = 0; HTHEME (WINAPI *_OpenThemeData)(HWND hwnd, LPCWSTR pszClassList) = 0; HPAINTBUFFER (WINAPI *_BeginBufferedPaint)(HDC hdcTarget, const RECT *prcTarget, BP_BUFFERFORMAT dwFormat, BP_PAINTPARAMS *pPaintParams, HDC *phdc) = 0; HRESULT (WINAPI *_BufferedPaintSetAlpha)(HPAINTBUFFER hBufferedPaint, const RECT *prc, BYTE alpha) = 0; HRESULT (WINAPI *_DrawThemeTextEx)(HTHEME hTheme, HDC hdc, int iPartId, int iStateId, LPCWSTR pszText, int iCharCount, DWORD dwFlags, LPRECT pRect, const DTTOPTS *pOptions) = 0; HRESULT (WINAPI *_EndBufferedPaint)(HPAINTBUFFER hBufferedPaint, BOOL fUpdateTarget) = 0; HRESULT (WINAPI *_CloseThemeData)(HTHEME hTheme) = 0; BOOL _dw_composition = FALSE; COLORREF _dw_transparencykey = RGB(200,201,202); 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; /* * MinGW Is missing a bunch of definitions * so #define them here... */ #if !defined( _tstol ) #if defined(UNICODE) # define _tstol _wtol #else # define _tstol atol #endif #endif #if !defined(PBS_MARQUEE) # define PBS_MARQUEE 0x08 #endif #if !defined(PBM_SETMARQUEE) # define PBM_SETMARQUEE (WM_USER+10) #endif #if !defined(LVS_EX_DOUBLEBUFFER) # define LVS_EX_DOUBLEBUFFER 0x10000 #endif HWND popup = (HWND)NULL, DW_HWND_OBJECT = (HWND)NULL, hwndTooltip = (HWND)0; HINSTANCE DWInstance = NULL; DWORD dwVersion = 0, dwComctlVer = 0; DWTID _dwtid = -1; SECURITY_DESCRIPTOR _dwsd; #define PACKVERSION(major,minor) MAKELONG(minor,major) #define IS_XPPLUS (dwComctlVer >= PACKVERSION(5,82)) #define IS_VISTAPLUS (dwComctlVer >= PACKVERSION(6,10)) #ifndef MIN #define MIN(a, b) (((a) < (b)) ? (a) : (b)) #endif #define _DW_DATA_TYPE_STRING 0 #define _DW_DATA_TYPE_POINTER 1 /* * For the dw*from_data() functions, a temporary file is required to write * the contents of the image to so it can be loaded by the Win32 API * We use _tempnam() which uses TMP env variable by default. It can be passed * an alternate temporary directory if TMP is not set, so we get the value * of TEMP and store it here. */ static char _dw_alternate_temp_dir[MAX_PATH+1] = {0}; static char _dw_exec_dir[MAX_PATH+1] = {0}; int main(int argc, char *argv[]); #define ICON_INDEX_LIMIT 200 HICON lookup[200]; HIMAGELIST hSmall = 0, hLarge = 0; /* Special flag used for internal tracking */ #define DW_CFA_RESERVED (1 << 30) DWORD _foreground; DWORD _background; DWORD _hPen; DWORD _hBrush; #ifdef GDIPLUS DWORD _gpPen; DWORD _gpBrush; #endif BYTE _red[] = { 0x00, 0xbb, 0x00, 0xaa, 0x00, 0xbb, 0x00, 0xaa, 0x77, 0xff, 0x00, 0xee, 0x00, 0xff, 0x00, 0xff, 0xaa, 0x00 }; BYTE _green[] = { 0x00, 0x00, 0xbb, 0xaa, 0x00, 0x00, 0xbb, 0xaa, 0x77, 0x00, 0xff, 0xee, 0x00, 0x00, 0xee, 0xff, 0xaa, 0x00 }; BYTE _blue[] = { 0x00, 0x00, 0x00, 0x00, 0xcc, 0xbb, 0xbb, 0xaa, 0x77, 0x00, 0x00, 0x00, 0xff, 0xff, 0xee, 0xff, 0xaa, 0x00}; HBRUSH _colors[18]; HFONT _DefaultFont = NULL; #if (defined(BUILD_DLL) || defined(BUILD_HTML)) LRESULT CALLBACK _browserWindowProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam); #ifdef BUILD_EDGE BOOL _dw_edge_detect(VOID); BOOL _DW_EDGE_DETECTED = FALSE; LRESULT CALLBACK _edgeWindowProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam); #endif #endif LRESULT CALLBACK _colorwndproc(HWND hWnd, UINT msg, WPARAM mp1, LPARAM mp2); void _resize_notebook_page(HWND handle, int pageid); void _handle_splitbar_resize(HWND hwnd, float percent, int type, int x, int y); int _lookup_icon(HWND handle, HICON hicon, int type); HFONT _acquire_font(HWND handle, char *fontname); void _click_default(HWND handle); void _do_resize(Box *thisbox, int x, int y); /* 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) { dw_window_redraw(redraw); } } typedef struct _sighandler { struct _sighandler *next; ULONG message; HWND window; int id; void *signalfunction; void *discfunction; void *data; } SignalHandler; SignalHandler *Root = NULL; typedef struct { ULONG message; char name[30]; } SignalList; static int in_checkbox_handler = 0; /* List of signals and their equivilent Win32 message */ #define SIGNALMAX 19 SignalList SignalTranslate[SIGNALMAX] = { { WM_SIZE, DW_SIGNAL_CONFIGURE }, { WM_CHAR, DW_SIGNAL_KEY_PRESS }, { WM_LBUTTONDOWN, DW_SIGNAL_BUTTON_PRESS }, { WM_LBUTTONUP, DW_SIGNAL_BUTTON_RELEASE }, { WM_MOUSEMOVE, DW_SIGNAL_MOTION_NOTIFY }, { WM_CLOSE, DW_SIGNAL_DELETE }, { WM_PAINT, DW_SIGNAL_EXPOSE }, { WM_COMMAND, DW_SIGNAL_CLICKED }, { NM_DBLCLK, DW_SIGNAL_ITEM_ENTER }, { NM_RCLICK, DW_SIGNAL_ITEM_CONTEXT }, { LBN_SELCHANGE, DW_SIGNAL_LIST_SELECT }, { TVN_SELCHANGED, DW_SIGNAL_ITEM_SELECT }, { WM_SETFOCUS, DW_SIGNAL_SET_FOCUS }, { WM_VSCROLL, DW_SIGNAL_VALUE_CHANGED }, { TCN_SELCHANGE, DW_SIGNAL_SWITCH_PAGE }, { LVN_COLUMNCLICK, DW_SIGNAL_COLUMN_CLICK }, { TVN_ITEMEXPANDED,DW_SIGNAL_TREE_EXPAND }, { WM_USER+100, DW_SIGNAL_HTML_RESULT }, { WM_USER+101, DW_SIGNAL_HTML_CHANGED } }; #ifdef BUILD_DLL void Win32_Set_Instance(HINSTANCE hInstance) { DWInstance = hInstance; } #else char **_convertargs(int *count, char *start) { char *tmp, *argstart, **argv; int loc = 0, inquotes = 0; (*count) = 1; tmp = start; /* Count the number of entries */ if(*start) { (*count)++; while(*tmp) { if(*tmp == '"' && inquotes) inquotes = 0; else if(*tmp == '"' && !inquotes) inquotes = 1; else if(*tmp == ' ' && !inquotes) { /* Push past any white space */ while(*(tmp+1) == ' ') tmp++; /* If we aren't at the end of the command * line increment the count. */ if(*(tmp+1)) (*count)++; } tmp++; } } argv = (char **)malloc(sizeof(char *) * ((*count)+1)); argv[0] = malloc(260); GetModuleFileNameA(DWInstance, argv[0], 260); argstart = tmp = start; if(*start) { loc = 1; while(*tmp) { if(*tmp == '"' && inquotes) { *tmp = 0; inquotes = 0; } else if(*tmp == '"' && !inquotes) { argstart = tmp+1; inquotes = 1; } else if(*tmp == ' ' && !inquotes) { *tmp = 0; argv[loc] = _strdup(argstart); /* Push past any white space */ while(*(tmp+1) == ' ') tmp++; /* Move the start pointer */ argstart = tmp+1; /* If we aren't at the end of the command * line increment the count. */ if(*(tmp+1)) loc++; } tmp++; } if(*argstart) argv[loc] = _strdup(argstart); } argv[loc+1] = NULL; return argv; } /* Ok this is a really big hack but what the hell ;) */ int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow) { char **argv; int argc; DWInstance = hInstance; argv = _convertargs(&argc, lpCmdLine); return main(argc, argv); } #endif #ifdef UNICODE /* 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(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(LPWSTR 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 #define UTF8toWide(a) a #define WideToUTF8(a) a #endif DWORD GetDllVersion(LPCTSTR lpszDllName) { HINSTANCE hinstDll; DWORD dwVersion = 0; hinstDll = LoadLibrary(lpszDllName); if(hinstDll) { DLLGETVERSIONPROC pDllGetVersion; pDllGetVersion = (DLLGETVERSIONPROC) GetProcAddress(hinstDll, "DllGetVersion"); /* Because some DLLs might not implement this function, you * must test for it explicitly. Depending on the particular * DLL, the lack of a DllGetVersion function can be a useful * indicator of the version. */ if(pDllGetVersion) { DLLVERSIONINFO dvi; HRESULT hr; ZeroMemory(&dvi, sizeof(dvi)); dvi.cbSize = sizeof(dvi); hr = (*pDllGetVersion)(&dvi); if(SUCCEEDED(hr)) { dwVersion = PACKVERSION(dvi.dwMajorVersion, dvi.dwMinorVersion); } } FreeLibrary(hinstDll); } return dwVersion; } #ifdef GDIPLUS /* * List those icons that have transparency first * GDI+ List of supported formats: BMP, ICON, GIF, JPEG, Exif, PNG, TIFF, WMF, and EMF. * Not sure if we should include all these or not... maybe we should add TIFF and GIF? */ #define NUM_EXTS 8 char *image_exts[NUM_EXTS] = { "", ".png", ".ico", ".gif", ".jpg", ".jpeg", ".tiff", ".bmp" }; /* Section for loading files of types besides BMP and ICO and return HBITMAP or HICON */ void *_dw_load_gpbitmap( char *filename ) { int i, wclen = (int)(strlen(filename) + 6) * sizeof(wchar_t); char *file = _alloca(strlen(filename) + 6); wchar_t *wfile = _alloca(wclen); void *image; /* Try various extentions */ for ( i = 0; i < NUM_EXTS; i++ ) { strcpy( file, filename ); strcat( file, image_exts[i] ); if ( _access( file, 04 ) == 0 ) { /* Convert to wide format */ MultiByteToWideChar(CP_ACP, 0, file, (int)strlen(file)+1, wfile, wclen); if(!GdipCreateBitmapFromFile(wfile, &image)) return image; } } return NULL; } /* Try to load the appropriate image and return the HBITMAP handle */ HBITMAP _dw_load_bitmap(char *filename, unsigned long *depth) { void *bitmap = _dw_load_gpbitmap(filename); if(bitmap) { HBITMAP hbm = NULL; if(!GdipCreateHBITMAPFromBitmap(bitmap, &hbm, 0)) { if(depth) { INT pf; /* Default to 0 */ *depth = 0; /* Query the pixel format so we can determine the depth */ if(!GdipGetImagePixelFormat(bitmap, &pf)) { switch(pf) { case PixelFormat1bppIndexed: *depth = 1; break; case PixelFormat4bppIndexed: *depth = 4; break; case PixelFormat8bppIndexed: *depth = 8; break; case PixelFormat16bppGrayScale: case PixelFormat16bppRGB555: case PixelFormat16bppRGB565: case PixelFormat16bppARGB1555: *depth = 16; break; case PixelFormat24bppRGB: *depth = 24; break; case PixelFormat32bppRGB: case PixelFormat32bppARGB: case PixelFormat32bppPARGB: case PixelFormat32bppCMYK: *depth = 32; break; case PixelFormat48bppRGB: *depth = 48; break; case PixelFormat64bppARGB: case PixelFormat64bppPARGB: *depth = 64; break; } } } } GdipDisposeImage(bitmap); return hbm; } return NULL; } /* Try to load the appropriate image and return the HICON handle */ HICON _dw_load_icon(char *filename) { void *bitmap = _dw_load_gpbitmap(filename); if(bitmap) { HICON hicon = NULL; GdipCreateHICONFromBitmap(bitmap, &hicon); GdipDisposeImage(bitmap); return hicon; } return NULL; } #endif #ifdef AEROGLASS /* Set _DW_DARK_MODE_ALLOWED to FALSE to disable dark mode. * Set _DW_DARK_MODE_ALLOWED to TRUE for basic dark mode. * Set _DW_DARK_MODE_ALLOWED to 2 for full dark mode. */ int _DW_DARK_MODE_ALLOWED = TRUE; int _DW_DARK_MODE_SUPPORTED = FALSE; int _DW_DARK_MODE_ENABLED = FALSE; typedef enum IMMERSIVE_HC_CACHE_MODE { IHCM_USE_CACHED_VALUE, IHCM_REFRESH } IMMERSIVE_HC_CACHE_MODE; typedef enum _PreferredAppMode { _Default, _AllowDark, _ForceDark, _ForceLight, _Max } _PreferredAppMode; int CompareStringOrdinal(LPCWCH lpString1, int cchCount1, LPCWCH lpString2, int cchCount2, BOOL bIgnoreCase); 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 IsHighContrast(VOID) { HIGHCONTRASTW highContrast = { sizeof(highContrast) }; if(SystemParametersInfoW(SPI_GETHIGHCONTRAST, sizeof(highContrast), &highContrast, FALSE)) return highContrast.dwFlags & HCF_HIGHCONTRASTON; return FALSE; } void _dw_init_dark_mode(void) { if(_DW_DARK_MODE_ALLOWED && dwVersion && huxtheme) { /* Dark mode is introduced in Windows 10 (1809) build 17763 */ if(LOBYTE(LOWORD(dwVersion)) >= 10 && HIWORD(dwVersion) >= 17763) { _OpenNcThemeData = (HTHEME (WINAPI *)(HWND, LPCWSTR))GetProcAddress(huxtheme, MAKEINTRESOURCEA(49)); _RefreshImmersiveColorPolicyState = (VOID (WINAPI *)(VOID))GetProcAddress(huxtheme, MAKEINTRESOURCEA(104)); _GetIsImmersiveColorUsingHighContrast = (BOOL (WINAPI *)(IMMERSIVE_HC_CACHE_MODE))GetProcAddress(huxtheme, MAKEINTRESOURCEA(106)); _ShouldAppsUseDarkMode = (BOOL (WINAPI *)(VOID))GetProcAddress(huxtheme, MAKEINTRESOURCEA(132)); _AllowDarkModeForWindow = (BOOL (WINAPI *)(HWND, BOOL))GetProcAddress(huxtheme, MAKEINTRESOURCEA(133)); if(HIWORD(dwVersion) < 18334) _AllowDarkModeForApp = (BOOL (WINAPI *)(BOOL))GetProcAddress(huxtheme, MAKEINTRESOURCEA(135)); else _SetPreferredAppMode = (_PreferredAppMode (WINAPI *)(_PreferredAppMode))GetProcAddress(huxtheme, MAKEINTRESOURCEA(135)); _IsDarkModeAllowedForWindow = (BOOL (WINAPI *)(HWND))GetProcAddress(huxtheme, MAKEINTRESOURCEA(137)); _ShouldSystemUseDarkMode = (BOOL (WINAPI *)(VOID))GetProcAddress(huxtheme, MAKEINTRESOURCEA(138)); } /* Make sure we were able to load all the Dark Mode functions */ if(_OpenNcThemeData && _RefreshImmersiveColorPolicyState && _ShouldAppsUseDarkMode && _AllowDarkModeForWindow && (_AllowDarkModeForApp || _SetPreferredAppMode) && _IsDarkModeAllowedForWindow && _DwmSetWindowAttribute) { _DW_DARK_MODE_SUPPORTED = TRUE; if(_AllowDarkModeForApp) _AllowDarkModeForApp(TRUE); else _SetPreferredAppMode(_AllowDark); _RefreshImmersiveColorPolicyState(); _DW_DARK_MODE_ENABLED = _ShouldAppsUseDarkMode() && !IsHighContrast(); } } } 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) { /* If we aren't in full dark mode */ if(_DW_DARK_MODE_ALLOWED != 2) { /* Enable or disable visual themes */ if(_SetWindowTheme) _SetWindowTheme(window, (style & TBSTYLE_FLAT) ? L"" : NULL, (style & TBSTYLE_FLAT) ? L"" : NULL); } return FALSE; } #endif return TRUE; } BOOL AllowDarkModeForWindow(HWND window, BOOL allow) { if(_DW_DARK_MODE_SUPPORTED) { if(_CanThemeWindow(window)) { if(_DW_DARK_MODE_ALLOWED == 2) { if(_DW_DARK_MODE_ENABLED) _SetWindowTheme(window, L"DarkMode_Explorer", NULL); else _SetWindowTheme(window, L"Explorer", NULL); } } return _AllowDarkModeForWindow(window, allow); } return FALSE; } BOOL IsColorSchemeChangeMessage(LPARAM lParam) { BOOL is = FALSE; if(lParam && CompareStringOrdinal((LPCWCH)lParam, -1, L"ImmersiveColorSet", -1, TRUE) == CSTR_EQUAL) { _RefreshImmersiveColorPolicyState(); is = TRUE; } _GetIsImmersiveColorUsingHighContrast(IHCM_REFRESH); return is; } void RefreshTitleBarThemeColor(HWND window) { BOOL dark = FALSE; if (_IsDarkModeAllowedForWindow(window) && _ShouldAppsUseDarkMode() && !IsHighContrast()) dark = TRUE; _DwmSetWindowAttribute(window, 19, &dark, sizeof(dark)); } /* Call this on a window to apply the style */ BOOL CALLBACK _dw_set_child_window_theme(HWND window, LPARAM lParam) { if(_DW_DARK_MODE_SUPPORTED) { AllowDarkModeForWindow(window, _DW_DARK_MODE_ENABLED); SendMessageW(window, WM_THEMECHANGED, 0, 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; break; case COLOR_WINDOWTEXT: retval = darkTextColor; break; } } #endif return retval; } 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); switch(nIndex) { case COLOR_3DFACE: case COLOR_WINDOW: retval = darkBkColorBrush; break; case COLOR_WINDOWTEXT: retval = _colors[DW_CLR_WHITE]; break; } } #endif return retval; } /* This function adds a signal handler callback into the linked list. */ void _new_signal(ULONG message, HWND window, int id, void *signalfunction, void *discfunc, void *data) { SignalHandler *new = malloc(sizeof(SignalHandler)); new->message = message; new->window = window; new->id = id; new->signalfunction = signalfunction; new->discfunction = discfunc; new->data = data; new->next = NULL; if (!Root) { Root = new; } else { SignalHandler *prev = NULL, *tmp = Root; while(tmp) { if(tmp->message == message && tmp->window == window && tmp->id == id && tmp->signalfunction == signalfunction) { tmp->data = data; free(new); return; } prev = tmp; tmp = tmp->next; } if(prev) prev->next = new; else Root = new; } } /* Finds the message number for a given signal name */ ULONG _findsigmessage(char *signame) { int z; for(z=0;z<SIGNALMAX;z++) { if(_stricmp(signame, SignalTranslate[z].name) == 0) return SignalTranslate[z].message; } return 0L; } /* This function removes any handlers on windows and frees * the user memory and resources allocated to it. */ BOOL CALLBACK _free_window_memory(HWND handle, LPARAM lParam) { 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 OLE embedded IE */ if(_tcsncmp(tmpbuf, TEXT("Internet Explorer_Server"), 25) == 0) return TRUE; /* Delete font, icon and bitmap GDI objects in use */ if(oldfont) DeleteObject(oldfont); if(oldicon) DeleteObject(oldicon); if(_tcsnicmp(tmpbuf, STATICCLASSNAME, _tcslen(STATICCLASSNAME)+1)==0) { HBITMAP oldbitmap = (HBITMAP)SendMessage(handle, STM_GETIMAGE, IMAGE_BITMAP, 0); if(oldbitmap) DeleteObject(oldbitmap); } if(_tcsnicmp(tmpbuf, BUTTONCLASSNAME, _tcslen(BUTTONCLASSNAME)+1)==0) { HBITMAP oldbitmap = (HBITMAP)SendMessage(handle, BM_GETIMAGE, IMAGE_BITMAP, 0); HICON oldicon = (HICON)SendMessage(handle, BM_GETIMAGE, IMAGE_ICON, 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) free(box->items); } else if(_tcsnicmp(tmpbuf, SplitbarClassName, _tcslen(SplitbarClassName)+1)==0) { void *data = dw_window_get_data(handle, "_dw_percent"); if(data) free(data); } else if(_tcsnicmp(tmpbuf, WC_TREEVIEW, _tcslen(WC_TREEVIEW)+1)==0) { dw_tree_clear(handle); } else if(_tcsnicmp(tmpbuf, WC_TABCONTROL, _tcslen(WC_TABCONTROL)+1)==0) /* Notebook */ { NotebookPage **array = (NotebookPage **)dw_window_get_data(handle, "_dw_array"); if(array) { int z; for(z=0;z<256;z++) { if(array[z]) { _free_window_memory(array[z]->hwnd, 0); EnumChildWindows(array[z]->hwnd, _free_window_memory, 0); DestroyWindow(array[z]->hwnd); free(array[z]); } } free(array); } } else if(_tcsnicmp(tmpbuf, UPDOWN_CLASS, _tcslen(UPDOWN_CLASS)+1)==0) { /* for spinbuttons, we need to get the spinbutton's "buddy", the text window associated and destroy it */ ColorInfo *cinfo = (ColorInfo *)GetWindowLongPtr(handle, GWLP_USERDATA); if(cinfo && cinfo->buddy) DestroyWindow( cinfo->buddy ); } dw_signal_disconnect_by_window(handle); if(thiscinfo) { if(thiscinfo->pOldProc) SetWindowLongPtr(handle, GWLP_WNDPROC, (LPARAM)(WNDPROC)thiscinfo->pOldProc); /* Delete the brush so as not to leak GDI objects */ if(thiscinfo->hbrush) DeleteObject(thiscinfo->hbrush); /* Free user data linked list memory */ if(thiscinfo->root) dw_window_set_data(handle, NULL, NULL); SetWindowLongPtr(handle, GWLP_USERDATA, 0); free(thiscinfo); } return TRUE; } void _free_menu_data(HMENU menu) { int i, count = GetMenuItemCount(menu); for(i=0;i<count;i++) { MENUITEMINFO mii; 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%ld", mii.wID); dw_window_set_data( DW_HWND_OBJECT, buffer, NULL ); _snprintf(buffer, 30, "_dw_checkable%ld", mii.wID); dw_window_set_data( DW_HWND_OBJECT, buffer, NULL ); _snprintf(buffer, 30, "_dw_ischecked%ld", mii.wID); dw_window_set_data( DW_HWND_OBJECT, buffer, NULL ); _snprintf(buffer, 30, "_dw_isdisabled%ld", mii.wID); dw_window_set_data( DW_HWND_OBJECT, buffer, NULL ); } /* Check any submenus */ if( mii.hSubMenu ) _free_menu_data(mii.hSubMenu); } } dw_signal_disconnect_by_name((HWND)menu, DW_SIGNAL_CLICKED); } /* Convert to our internal color scheme */ ULONG _internal_color(ULONG color) { if(color == DW_CLR_DEFAULT) return DW_RGB_TRANSPARENT; if(color < 18) return DW_RGB(_red[color], _green[color], _blue[color]); return color; } /* This function returns 1 if the window (widget) handle * passed to it is a valid window that can gain input focus. */ int _validate_focus(HWND handle) { TCHAR tmpbuf[100] = {0}; if(!handle) return 0; if(!IsWindowEnabled(handle)) return 0; GetClassName(handle, tmpbuf, 99); /* 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 */ _tcsnicmp(tmpbuf, WC_TREEVIEW, _tcslen(WC_TREEVIEW)+1)== 0) /* Tree */ return 1; /* Special case for the notebook, can get focus and contains other items */ if(_tcsnicmp(tmpbuf, WC_TABCONTROL, _tcslen(WC_TABCONTROL))==0) /* Notebook */ return 2; return 0; } HWND _normalize_handle(HWND handle) { TCHAR tmpbuf[100] = {0}; GetClassName(handle, tmpbuf, 99); if(_tcsnicmp(tmpbuf, UPDOWN_CLASS, _tcslen(UPDOWN_CLASS))==0) /* Spinner */ { ColorInfo *cinfo = (ColorInfo *)GetWindowLongPtr(handle, GWLP_USERDATA); if(cinfo && cinfo->buddy) return cinfo->buddy; } if(_tcsnicmp(tmpbuf, COMBOBOXCLASSNAME, _tcslen(COMBOBOXCLASSNAME))==0) /* Combobox */ { ColorInfo *cinfo = (ColorInfo *)GetWindowLongPtr(handle, GWLP_USERDATA); if(cinfo && cinfo->buddy) return cinfo->buddy; } return handle; } #define _DW_DIRECTION_FORWARD -1 #define _DW_DIRECTION_BACKWARD 1 int _focus_check_box(Box *box, HWND handle, int start, int direction, HWND defaultitem); /* Internal comparision function */ int _focus_comp(int direction, int z, int end) { if(direction == _DW_DIRECTION_FORWARD) return z > -1; return z < end; } int _focus_notebook(HWND hwnd, HWND handle, int start, int direction, HWND defaultitem) { NotebookPage **array = (NotebookPage **)dw_window_get_data(hwnd, "_dw_array"); int pageid = TabCtrl_GetCurSel(hwnd); if(pageid > -1 && array && array[pageid]) { Box *notebox; if(array[pageid]->hwnd) { notebox = (Box *)GetWindowLongPtr(array[pageid]->hwnd, GWLP_USERDATA); if(notebox && _focus_check_box(notebox, handle, start == 3 ? 3 : 0, direction, defaultitem)) return 1; } } return 0; } /* Handle box focus traversal in either direction */ int _focus_check_box(Box *box, HWND handle, int start, int direction, HWND defaultitem) { int z; static HWND lasthwnd, firsthwnd; static int finish_searching; int beg = (direction == _DW_DIRECTION_FORWARD) ? box->count-1 : 0; int end = (direction == _DW_DIRECTION_FORWARD) ? -1 : box->count; /* Start is 2 when we have cycled completely and * need to set the focus to the last widget we found * that was valid. */ if(start == 2) { if(lasthwnd) SetFocus(lasthwnd); return 0; } /* Start is 1 when we are entering the function * for the first time, it is zero when entering * the function recursively. */ if(start == 1) { lasthwnd = handle; finish_searching = 0; firsthwnd = 0; } for(z=beg;_focus_comp(direction, z, end);z+=direction) { if(box->items[z].type == TYPEBOX) { Box *thisbox = (Box *)GetWindowLongPtr(box->items[z].hwnd, GWLP_USERDATA); if(thisbox && _focus_check_box(thisbox, handle, start == 3 ? 3 : 0, direction, defaultitem)) 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); else if(lasthwnd == handle && !firsthwnd) finish_searching = 1; else SetFocus(lasthwnd); /* If we aren't looking for the last handle, * return immediately. */ if(!finish_searching) return 1; } if(type > 0) { /* Start is 3 when we are looking for the * first valid item in the layout. */ if(start == 3) { if(!defaultitem || (defaultitem && box->items[z].hwnd == defaultitem)) { SetFocus(_normalize_handle(box->items[z].hwnd)); return 1; } } lasthwnd = _normalize_handle(box->items[z].hwnd); if(!firsthwnd) firsthwnd = lasthwnd; } else { /* Handle controls that contain other items */ TCHAR tmpbuf[100] = {0}; GetClassName(box->items[z].hwnd, tmpbuf, 99); if(_tcsncmp(tmpbuf, SplitbarClassName, _tcslen(SplitbarClassName)+1)==0) { /* Then try the bottom or right box */ HWND mybox = (HWND)dw_window_get_data(box->items[z].hwnd, (direction == _DW_DIRECTION_FORWARD) ? "_dw_bottomright" : "_dw_topleft"); if(mybox) { Box *splitbox = (Box *)GetWindowLongPtr(mybox, GWLP_USERDATA); if(splitbox && _focus_check_box(splitbox, handle, start == 3 ? 3 : 0, direction, defaultitem)) return 1; } /* Try the top or left box */ mybox = (HWND)dw_window_get_data(box->items[z].hwnd, (direction == _DW_DIRECTION_FORWARD) ? "_dw_topleft" : "_dw_bottomright"); if(mybox) { Box *splitbox = (Box *)GetWindowLongPtr(mybox, GWLP_USERDATA); if(splitbox && _focus_check_box(splitbox, handle, start == 3 ? 3 : 0, direction, defaultitem)) return 1; } } else if(_tcsnicmp(tmpbuf, ScrollClassName, _tcslen(ScrollClassName))==0) /* Scroll Box */ { ColorInfo *cinfo = (ColorInfo *)GetWindowLongPtr(box->items[z].hwnd, GWLP_USERDATA); Box *scrollbox = (Box *)GetWindowLongPtr(cinfo->combo, GWLP_USERDATA); 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; } /* This function finds the first widget in the * layout and moves the current focus to it. */ void _initial_focus(HWND handle) { Box *thisbox = NULL; TCHAR tmpbuf[100] = {0}; if(!handle) return; GetClassName(handle, tmpbuf, 99); if(_tcsnicmp(tmpbuf, ClassName, _tcslen(ClassName)+1)!=0) return; if(handle) thisbox = (Box *)GetWindowLongPtr(handle, GWLP_USERDATA); if(thisbox) { _focus_check_box(thisbox, handle, 3, _DW_DIRECTION_FORWARD, thisbox->defaultitem); } } HWND _toplevel_window(HWND handle) { 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) return 0; lastbox = box; } if(lastbox) { TCHAR tmpbuf[100] = {0}; GetClassName(lastbox, tmpbuf, 99); if(_tcsncmp(tmpbuf, ClassName, _tcslen(ClassName)+1)==0) return lastbox; } return 0; } /* This function finds the current widget in the * layout and moves the current focus to the next item. */ void _shift_focus(HWND handle, int direction) { Box *thisbox; HWND box, lastbox = GetParent(handle); /* Find the toplevel window */ while((box = GetParent(lastbox))) { lastbox = box; } thisbox = (Box *)GetWindowLongPtr(lastbox, GWLP_USERDATA); if(thisbox) { if(_focus_check_box(thisbox, handle, 1, direction, 0) == 0) _focus_check_box(thisbox, handle, 2, direction, 0); } } /* This function calculates how much space the widgets and boxes require * and does expansion as necessary. */ static void _resize_box(Box *thisbox, int *depth, int x, int y, int pass) { /* Current item position */ int z, currentx = thisbox->pad, currenty = thisbox->pad; /* Used x, y and padding maximum values... * 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) { /* Only calculate the size on the first pass... * use the cached values on second. */ if(pass == 1) { char *text = dw_window_get_text(thisbox->grouphwnd); thisbox->grouppady = 9; if(text) { if(*text) dw_font_text_extents_get(thisbox->grouphwnd, 0, text, NULL, &thisbox->grouppady); dw_free(text); } /* 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; thisbox->grouppadx = 6; } thisbox->minwidth += thisbox->grouppadx; thisbox->usedpadx += thisbox->grouppadx; thisbox->minheight += thisbox->grouppady; thisbox->usedpady += thisbox->grouppady; } /* 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; } else { if(itempad > upxmax) upxmax = itempad; } thisbox->minheight += itemheight; if(thisbox->items[z].vsize != SIZEEXPAND) thisbox->usedpady += itemheight; else thisbox->usedpady += itempad; } else { if(itemheight > uymax) uymax = itemheight; if(thisbox->items[z].vsize != SIZEEXPAND) { if(itemheight > upymax) upymax = itemheight; } else { if(itempad > upymax) upymax = itempad; } thisbox->minwidth += itemwidth; if(thisbox->items[z].hsize != SIZEEXPAND) thisbox->usedpadx += itemwidth; else thisbox->usedpadx += itempad; } } /* Add the maximums which were calculated in the previous loop */ thisbox->minwidth += uxmax; thisbox->minheight += uymax; thisbox->usedpadx += upxmax; thisbox->usedpady += upymax; /* Move the groupbox start past the group border */ if(thisbox->grouphwnd) { currentx += 3; currenty += thisbox->grouppady - 3; } /* The second pass is for actual placement. */ if(pass > 1) { for(z=0;z<(thisbox->count);z++) { int height = thisbox->items[z].height; int width = thisbox->items[z].width; int itempad = thisbox->items[z].pad * 2; int thispad = thisbox->pad * 2; /* Calculate the new sizes */ 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 */ MoveWindow(handle, currentx + pad, currenty + pad, width, height + 400, FALSE); } #ifdef TOOLBAR /* Bitmap Buttons */ else if(_tcsnicmp(tmpbuf, TOOLBARCLASSNAME, _tcslen(TOOLBARCLASSNAME)+1) == 0) { SendMessage(handle, TB_SETBUTTONSIZE, 0, MAKELPARAM(width, height)); MoveWindow(handle, currentx + pad, currenty + pad, width, height, FALSE); } #endif else if(_tcsnicmp(tmpbuf, UPDOWN_CLASS, _tcslen(UPDOWN_CLASS)+1)==0) { /* Handle special case Spinbutton */ ColorInfo *cinfo = (ColorInfo *)GetWindowLongPtr(handle, GWLP_USERDATA); MoveWindow(handle, currentx + pad + (width - 20), currenty + pad, 20, height, FALSE); if(cinfo) { MoveWindow(cinfo->buddy, currentx + pad, currenty + pad, width - 20, height, FALSE); } } else if(_tcsncmp(tmpbuf, ScrollClassName, _tcslen(ScrollClassName)+1)==0) { /* Handle special case of scrollbox */ ColorInfo *cinfo = (ColorInfo *)GetWindowLongPtr(handle, GWLP_USERDATA); int cx, cy, depth = 0; Box *thisbox = (Box *)GetWindowLongPtr(cinfo->combo, GWLP_USERDATA); SCROLLINFO hsi, vsi; RECT rect; vsi.cbSize = hsi.cbSize = sizeof(SCROLLINFO); vsi.fMask = hsi.fMask = SIF_POS; /* Save the current scroll positions */ GetScrollInfo(handle, SB_HORZ, &hsi); GetScrollInfo(handle, SB_VERT, &vsi); /* Position the scrollbox */ MoveWindow(handle, currentx + pad, currenty + pad, width, height, FALSE); GetClientRect(handle, &rect); cx = rect.right; cy = rect.bottom; /* Get the required space for the box */ _resize_box(thisbox, &depth, cx, cy, 1); if(cx < thisbox->minwidth) { cx = thisbox->minwidth; } if(cy < thisbox->minheight) { cy = thisbox->minheight; } /* Position the scrolled box */ vsi.fMask = hsi.fMask = SIF_POS | SIF_RANGE | SIF_PAGE | SIF_DISABLENOSCROLL; vsi.nMin = hsi.nMin = vsi.nMax = hsi.nMax = 0; if(rect.bottom < thisbox->minheight) { vsi.nMax = thisbox->minheight - 1; vsi.nPage = rect.bottom; if(vsi.nPos > vsi.nMax) { vsi.nPos = vsi.nMax; } } if(rect.right < thisbox->minwidth) { hsi.nMax = thisbox->minwidth - 1; hsi.nPage = rect.right; if(hsi.nPos > hsi.nMax) { hsi.nPos = hsi.nMax; } } MoveWindow(cinfo->combo, -hsi.nPos, -vsi.nPos, cx, cy, FALSE); SetScrollInfo(handle, SB_HORZ, &hsi, TRUE); SetScrollInfo(handle, SB_VERT, &vsi, TRUE); /* Layout the content of the scrollbox */ _do_resize(thisbox, cx, cy); } else if(_tcsncmp(tmpbuf, SplitbarClassName, _tcslen(SplitbarClassName)+1)==0) { /* Then try the bottom or right box */ float *percent = (float *)dw_window_get_data(handle, "_dw_percent"); int type = DW_POINTER_TO_INT(dw_window_get_data(handle, "_dw_type")); MoveWindow(handle, currentx + pad, currenty + pad, width, height, FALSE); if(percent && width > 0 && height > 0) _handle_splitbar_resize(handle, *percent, type, width, height); } else if(_tcsnicmp(tmpbuf, STATICCLASSNAME, _tcslen(STATICCLASSNAME)+1)==0) { /* Handle special case Vertically Center static text */ ColorInfo *cinfo = (ColorInfo *)GetWindowLongPtr(handle, GWLP_USERDATA); if(cinfo && cinfo->vcenter) { /* We are centered so calculate a new position */ TCHAR tmpbuf[1024] = {0}, *thisbuf = tmpbuf; int textheight, diff, total = height; GetWindowText(handle, thisbuf, 1023); /* Figure out how big the text is */ dw_font_text_extents_get(handle, 0, WideToUTF8(thisbuf), 0, &textheight); diff = (total - textheight) / 2; MoveWindow(handle, currentx + pad, currenty + pad + diff, width, height - diff, FALSE); } else { MoveWindow(handle, currentx + pad, currenty + pad, width, height, FALSE); } } else { /* Everything else */ if(*depth) MoveWindow(handle, currentx + pad, currenty + pad, width, height, FALSE); else /* FIXME: This is a hack to generate WM_PAINT messages for items on the top-level */ SetWindowPos(handle, HWND_TOP, currentx + pad, currenty + pad, width, height, 0); /* After placing a box... place its components */ if(thisbox->items[z].type == TYPEBOX) { Box *boxinfo = (Box *)GetWindowLongPtr(handle, GWLP_USERDATA); if(boxinfo) { /* Move the group border into place */ if(boxinfo->grouphwnd) { MoveWindow(boxinfo->grouphwnd, 0, 0, width, height, FALSE); } /* Dive into the box */ (*depth)++; _resize_box(boxinfo, depth, width, height, pass); (*depth)--; } } } /* Notebook dialog requires additional processing */ if(_tcsncmp(tmpbuf, WC_TABCONTROL, _tcslen(WC_TABCONTROL))==0) { RECT rect; NotebookPage **array = (NotebookPage **)dw_window_get_data(handle, "_dw_array"); int pageid = TabCtrl_GetCurSel(handle); if(pageid > -1 && array && array[pageid]) { GetClientRect(handle,&rect); TabCtrl_AdjustRect(handle,FALSE,&rect); MoveWindow(array[pageid]->hwnd, rect.left, rect.top, rect.right - rect.left, rect.bottom-rect.top, FALSE); 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(thisbox->type == DW_HORZ) currentx += width + (pad * 2); if(thisbox->type == DW_VERT) currenty += height + (pad * 2); } } } } void _do_resize(Box *thisbox, int x, int y) { 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); } } } int _HandleScroller(HWND handle, int bar, int pos, int which) { SCROLLINFO si; ZeroMemory( &si, sizeof(si) ); si.cbSize = sizeof(SCROLLINFO); si.fMask = SIF_ALL; SendMessage(handle, SBM_GETSCROLLINFO, 0, (LPARAM)&si); switch(which) { case SB_THUMBTRACK: return pos; /*case SB_PAGEUP:*/ case SB_PAGELEFT: pos = si.nPos - si.nPage; if(pos < si.nMin) pos = si.nMin; return pos; /*case SB_PAGEDOWN:*/ case SB_PAGERIGHT: pos = si.nPos + si.nPage; if(pos > (int)(si.nMax - si.nPage) + 1) pos = (si.nMax - si.nPage) + 1; return pos; /*case SB_LINEUP:*/ case SB_LINELEFT: pos = si.nPos - 1; if(pos < si.nMin) pos = si.nMin; return pos; /*case SB_LINEDOWN:*/ case SB_LINERIGHT: pos = si.nPos + 1; if(pos > (int)(si.nMax - si.nPage) + 1) pos = (si.nMax - si.nPage) + 1; return pos; } return -1; } HMENU _get_owner(HMENU menu) { MENUINFO mi; mi.cbSize = sizeof(MENUINFO); mi.fMask = MIM_MENUDATA; if ( GetMenuInfo( menu, &mi ) ) return (HMENU)mi.dwMenuData; return (HMENU)0; } /* Find the desktop window handle */ HMENU _menu_owner(HMENU handle) { HMENU menuowner = 0, lastowner = _get_owner(handle); /* Find the toplevel menu */ while((menuowner = _get_owner(lastowner)) != 0) { if(menuowner == (HMENU)1) return lastowner; lastowner = menuowner; } return (HMENU)0; } /* * Determine if this is a checkable menu. If it is get the current state * and toggle it. Windows doesn't do this automatically :-( */ static void _dw_toggle_checkable_menu_item( HWND window, int id ) { char buffer[40]; int checkable; sprintf( buffer, "_dw_checkable%d", id ); checkable = DW_POINTER_TO_INT(dw_window_get_data(DW_HWND_OBJECT, buffer)); if ( checkable ) { int is_checked; sprintf( buffer, "_dw_ischecked%d", id ); is_checked = DW_POINTER_TO_INT(dw_window_get_data(DW_HWND_OBJECT, buffer)); is_checked = (is_checked) ? DW_MIS_UNCHECKED : DW_MIS_CHECKED; dw_menu_item_set_state( window, id, is_checked ); } } /* The main window procedure for Dynamic Windows, all the resizing code is done here. */ LRESULT CALLBACK _wndproc(HWND hWnd, UINT msg, WPARAM mp1, LPARAM mp2) { int result = -1, taskbar = FALSE; SignalHandler *tmp = Root; void (DWSIGNAL *windowfunc)(PVOID); ULONG origmsg = msg; /* Deal with translating some messages */ if (msg == WM_USER+2) { taskbar = TRUE; origmsg = msg = (UINT)mp2; /* no else here */ } if (msg == WM_RBUTTONDOWN || msg == WM_MBUTTONDOWN) msg = WM_LBUTTONDOWN; else if (msg == WM_RBUTTONUP || msg == WM_MBUTTONUP) msg = WM_LBUTTONUP; else if (msg == WM_HSCROLL) msg = WM_VSCROLL; else if (msg == WM_KEYDOWN) /* && mp1 >= VK_F1 && mp1 <= VK_F24) allow ALL special keys */ msg = WM_CHAR; if (result == -1) { /* Find any callbacks for this function */ while (tmp) { if (tmp->message == msg || msg == WM_COMMAND || msg == WM_NOTIFY || tmp->message == WM_USER+1) { switch (msg) { case WM_TIMER: { if (!hWnd) { int (DWSIGNAL *timerfunc)(void *) = tmp->signalfunction; if (tmp->id == (int)mp1) { if (!timerfunc(tmp->data)) { dw_timer_disconnect(tmp->id); } tmp = NULL; } } result = 0; } break; case WM_SETFOCUS: { int (DWSIGNAL *setfocusfunc)(HWND, void *) = (int (*)(HWND, void *))tmp->signalfunction; if(hWnd == tmp->window) { result = setfocusfunc(tmp->window, tmp->data); tmp = NULL; } } break; case WM_SIZE: { int (DWSIGNAL *sizefunc)(HWND, int, int, void *) = tmp->signalfunction; if(hWnd == tmp->window) { result = sizefunc(tmp->window, LOWORD(mp2), HIWORD(mp2), tmp->data); tmp = NULL; } } break; case WM_LBUTTONDOWN: { int (DWSIGNAL *buttonfunc)(HWND, int, int, int, void *) = (int (*)(HWND, int, int, int, void *))tmp->signalfunction; if(hWnd == tmp->window) { int button=0; switch(origmsg) { case WM_LBUTTONDOWN: button = 1; break; case WM_RBUTTONDOWN: button = 2; break; case WM_MBUTTONDOWN: button = 3; break; } if(taskbar) { POINT ptl; GetCursorPos(&ptl); result = buttonfunc(tmp->window, ptl.x, ptl.y, button, tmp->data); } else { POINTS pts = MAKEPOINTS(mp2); result = buttonfunc(tmp->window, pts.x, pts.y, button, tmp->data); } tmp = NULL; } } break; case WM_LBUTTONUP: { int (DWSIGNAL *buttonfunc)(HWND, int, int, int, void *) = (int (*)(HWND, int, int, int, void *))tmp->signalfunction; if(hWnd == tmp->window) { int button=0; switch(origmsg) { case WM_LBUTTONUP: button = 1; break; case WM_RBUTTONUP: button = 2; break; case WM_MBUTTONUP: button = 3; break; } if(taskbar) { POINT ptl; GetCursorPos(&ptl); result = buttonfunc(tmp->window, ptl.x, ptl.y, button, tmp->data); } else { POINTS pts = MAKEPOINTS(mp2); result = buttonfunc(tmp->window, pts.x, pts.y, button, tmp->data); } tmp = NULL; } } break; case WM_MOUSEMOVE: { POINTS pts = MAKEPOINTS(mp2); int (DWSIGNAL *motionfunc)(HWND, int, int, int, void *) = (int (*)(HWND, int, int, int, void *))tmp->signalfunction; if(hWnd == tmp->window) { int keys = 0; if (mp1 & MK_LBUTTON) keys = DW_BUTTON1_MASK; if (mp1 & MK_RBUTTON) keys |= DW_BUTTON2_MASK; if (mp1 & MK_MBUTTON) keys |= DW_BUTTON3_MASK; result = motionfunc(tmp->window, pts.x, pts.y, keys, tmp->data); tmp = NULL; } } break; case WM_CHAR: { int (DWSIGNAL *keypressfunc)(HWND, char, int, int, void *, char *) = tmp->signalfunction; 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)) special |= KC_ALT; if(origmsg == WM_CHAR && mp1 < 128) ch[0] = (char)mp1; result = keypressfunc(tmp->window, ch[0], (int)mp1, special, tmp->data, utf8 ? utf8 : ch); tmp = NULL; } } break; case WM_CLOSE: { int (DWSIGNAL *closefunc)(HWND, void *) = tmp->signalfunction; if(hWnd == tmp->window) { result = closefunc(tmp->window, tmp->data); tmp = NULL; } } break; case WM_PAINT: { PAINTSTRUCT ps; DWExpose exp; int (DWSIGNAL *exposefunc)(HWND, DWExpose *, void *) = tmp->signalfunction; if ( hWnd == tmp->window ) { BeginPaint(hWnd, &ps); exp.x = ps.rcPaint.left; exp.y = ps.rcPaint.top; exp.width = ps.rcPaint.right - ps.rcPaint.left; exp.height = ps.rcPaint.bottom - ps.rcPaint.top; result = exposefunc(hWnd, &exp, tmp->data); EndPaint(hWnd, &ps); } } break; case WM_NOTIFY: { if(tmp->message == TVN_SELCHANGED || tmp->message == NM_RCLICK || tmp->message == TVN_ITEMEXPANDED) { NMTREEVIEW FAR *tem=(NMTREEVIEW FAR *)mp2; NMLISTVIEW FAR *lem=(NMLISTVIEW FAR *)mp2; TCHAR tmpbuf[100] = {0}; GetClassName(tem->hdr.hwndFrom, tmpbuf, 99); if(_tcsnicmp(tmpbuf, WC_TREEVIEW, _tcslen(WC_TREEVIEW))==0) { if(tem->hdr.code == TVN_SELCHANGED && tmp->message == TVN_SELCHANGED) { if(tmp->window == tem->hdr.hwndFrom && !dw_window_get_data(tmp->window, "_dw_select_item")) { int (DWSIGNAL *treeselectfunc)(HWND, HTREEITEM, char *, void *, void *) = tmp->signalfunction; TVITEM tvi; TCHAR textbuf[1025] = {0}, *textptr = textbuf; tvi.mask = TVIF_HANDLE | TVIF_PARAM | TVIF_TEXT; tvi.hItem = tem->itemNew.hItem; tvi.pszText = textbuf; tvi.cchTextMax = 1024; TreeView_GetItem(tmp->window, &tvi); result = treeselectfunc(tmp->window, tem->itemNew.hItem, WideToUTF8(textptr), tmp->data, (void *)tvi.lParam); tmp = NULL; } } else if(tem->hdr.code == TVN_ITEMEXPANDED && tmp->message == TVN_ITEMEXPANDED) { if(tmp->window == tem->hdr.hwndFrom && tem->action == TVE_EXPAND) { int (DWSIGNAL *treeexpandfunc)(HWND, HTREEITEM, void *) = tmp->signalfunction; result = treeexpandfunc(tmp->window, tem->itemNew.hItem, tmp->data); tmp = NULL; } } else if(tem->hdr.code == NM_RCLICK && tmp->message == NM_RCLICK) { if(tmp->window == tem->hdr.hwndFrom) { int (DWSIGNAL *containercontextfunc)(HWND, char *, int, int, void *, void *) = tmp->signalfunction; HTREEITEM hti; TVITEM tvi; TVHITTESTINFO thi; void *itemdata = NULL; LONG x, y; TCHAR textbuf[1025] = {0}, *textptr = textbuf; dw_pointer_query_pos(&x, &y); thi.pt.x = x; thi.pt.y = y; MapWindowPoints(HWND_DESKTOP, tmp->window, &thi.pt, 1); hti = TreeView_HitTest(tmp->window, &thi); if(hti) { tvi.mask = TVIF_HANDLE | TVIF_PARAM | TVIF_TEXT; tvi.hItem = hti; tvi.pszText = textbuf; tvi.cchTextMax = 1024; TreeView_GetItem(tmp->window, &tvi); TreeView_SelectItem(tmp->window, hti); itemdata = (void *)tvi.lParam; } containercontextfunc(tmp->window, WideToUTF8(textptr), x, y, tmp->data, itemdata); tmp = NULL; } } } else if(_tcsnicmp(tmpbuf, WC_LISTVIEW, _tcslen(WC_LISTVIEW)+1)==0) { if((lem->hdr.code == LVN_ITEMCHANGED && (lem->uChanged & LVIF_STATE)) && tmp->message == TVN_SELCHANGED) { if(tmp->window == tem->hdr.hwndFrom) { LV_ITEM lvi; int iItem; iItem = ListView_GetNextItem(tmp->window, -1, LVNI_SELECTED); memset(&lvi, 0, sizeof(LV_ITEM)); if(iItem > -1) { int (DWSIGNAL *treeselectfunc)(HWND, HWND, char *, void *, void *) = tmp->signalfunction; void **params; lvi.iItem = iItem; lvi.mask = LVIF_PARAM; ListView_GetItem(tmp->window, &lvi); params = (void **)lvi.lParam; treeselectfunc(tmp->window, 0, params ? (char *)params[_DW_DATA_TYPE_STRING] : NULL, tmp->data, params ? params[_DW_DATA_TYPE_POINTER] : NULL); tmp = NULL; } } } } } else if(tmp->message == TCN_SELCHANGE) { NMHDR FAR *tem=(NMHDR FAR *)mp2; if(tmp->window == tem->hwndFrom && tem->code == tmp->message) { int (DWSIGNAL *switchpagefunc)(HWND, unsigned long, void *) = tmp->signalfunction; unsigned long num=dw_notebook_page_get(tem->hwndFrom); result = switchpagefunc(tem->hwndFrom, num, tmp->data); tmp = NULL; } } else if(tmp->message == LVN_COLUMNCLICK) { NMLISTVIEW FAR *tem=(NMLISTVIEW FAR *)mp2; if(tmp->window == tem->hdr.hwndFrom && tem->hdr.code == tmp->message) { int (DWSIGNAL *columnclickfunc)(HWND, int, void *) = tmp->signalfunction; result = columnclickfunc(tem->hdr.hwndFrom, tem->iSubItem, tmp->data); tmp = NULL; } } else if(tmp->message == WM_VSCROLL) { NMUPDOWN FAR *tem=(NMUPDOWN FAR *)mp2; if(tmp->window == tem->hdr.hwndFrom && tem->hdr.code == UDN_DELTAPOS) { int (DWSIGNAL *valuechangefunc)(HWND, int, void *) = tmp->signalfunction; result = valuechangefunc(tmp->window, tem->iPos + tem->iDelta, tmp->data); tmp = NULL; } } } break; case WM_COMMAND: { int (DWSIGNAL *clickfunc)(HWND, void *) = tmp->signalfunction; HWND command; ULONG passthru = (ULONG)LOWORD(mp1); ULONG message = (ULONG)HIWORD(mp1); command = (HWND)(uintptr_t)passthru; if (message == LBN_SELCHANGE || message == CBN_SELCHANGE) { int (DWSIGNAL *listboxselectfunc)(HWND, int, void *) = tmp->signalfunction; if (tmp->message == LBN_SELCHANGE && tmp->window == (HWND)mp2) { 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); /* Make sure this isn't a button, because it will have already been handled */ if (_tcsnicmp(tmpbuf, BUTTONCLASSNAME, _tcslen(BUTTONCLASSNAME)+1) != 0) { 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) { _dw_toggle_checkable_menu_item( tmp->window, tmp->id ); /* * Call the user supplied callback */ result = clickfunc((HWND)(uintptr_t)tmp->id, tmp->data); tmp = NULL; } } /* this fires for checkable menu items */ else if ( tmp->window < (HWND)65536 && command == tmp->window && tmp->message != WM_TIMER ) { _dw_toggle_checkable_menu_item( popup ? popup : tmp->window, DW_POINTER_TO_INT(tmp->data) ); result = clickfunc(popup ? popup : tmp->window, tmp->data); tmp = NULL; } } break; case WM_HSCROLL: case WM_VSCROLL: { TCHAR tmpbuf[100] = {0}; HWND handle = (HWND)mp2; int (DWSIGNAL *valuechangefunc)(HWND, int, void *) = tmp->signalfunction; if(!GetClassName(handle, tmpbuf, 99)) { GetClassName(hWnd, tmpbuf, 99); } if (_tcsnicmp(tmpbuf, TRACKBAR_CLASS, _tcslen(TRACKBAR_CLASS)+1)==0) { if (handle == tmp->window) { int value = (int)SendMessage(handle, TBM_GETPOS, 0, 0); int max = (int)SendMessage(handle, TBM_GETRANGEMAX, 0, 0); ULONG currentstyle = GetWindowLong(handle, GWL_STYLE); if(currentstyle & TBS_VERT) result = valuechangefunc(tmp->window, max - value, tmp->data); else result = valuechangefunc(tmp->window, value, tmp->data); tmp = NULL; } } else if(_tcsnicmp(tmpbuf, SCROLLBARCLASSNAME, _tcslen(SCROLLBARCLASSNAME)+1)==0) { if(handle == tmp->window) { int bar = (origmsg == WM_HSCROLL) ? SB_HORZ : SB_VERT; int value = _HandleScroller(handle, bar, (int)HIWORD(mp1), (int)LOWORD(mp1)); if(value > -1) { dw_scrollbar_set_pos(tmp->window, value); result = valuechangefunc(tmp->window, value, tmp->data); } tmp = NULL; msg = 0; } } } break; case WM_USER+100: { int (DWSIGNAL *htmlresultfunc)(HWND, int, char *, void *, void *) = tmp->signalfunction; return htmlresultfunc(tmp->window, mp1 ? DW_ERROR_NONE : DW_ERROR_UNKNOWN, (char *)mp1, (void *)mp2, tmp->data); } break; case WM_USER+101: { int (DWSIGNAL *htmlchangedfunc)(HWND, int, char *, void *) = tmp->signalfunction; return htmlchangedfunc(tmp->window, DW_POINTER_TO_INT(mp1), (char *)mp2, tmp->data); } break; } } if(tmp) tmp = tmp->next; } } /* 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; case WM_SETTINGCHANGE: { if(_DW_DARK_MODE_SUPPORTED && IsColorSchemeChangeMessage(mp2)) { _DW_DARK_MODE_ENABLED = _ShouldAppsUseDarkMode() && !IsHighContrast(); RefreshTitleBarThemeColor(hWnd); _dw_set_child_window_theme(hWnd, 0); EnumChildWindows(hWnd, _dw_set_child_window_theme, 0); } } 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; #endif case WM_PAINT: { PAINTSTRUCT ps; BeginPaint(hWnd, &ps); EndPaint(hWnd, &ps); } break; case WM_SIZE: { static int lastx = -1, lasty = -1; static HWND lasthwnd = 0; if(lastx != LOWORD(mp2) || lasty != HIWORD(mp2) || lasthwnd != hWnd) { Box *mybox = (Box *)GetWindowLongPtr(hWnd, GWLP_USERDATA); if(mybox && mybox->count) { lastx = LOWORD(mp2); lasty = HIWORD(mp2); lasthwnd = hWnd; ShowWindow(mybox->items[0].hwnd, SW_HIDE); _do_resize(mybox,LOWORD(mp2),HIWORD(mp2)); ShowWindow(mybox->items[0].hwnd, SW_SHOW); return 0; } } } break; case WM_USER: windowfunc = (void *)mp1; if(windowfunc) windowfunc((void *)mp2); break; case WM_USER+5: _free_menu_data((HMENU)mp1); DestroyMenu((HMENU)mp1); break; case WM_NOTIFY: { NMHDR FAR *tem=(NMHDR FAR *)mp2; if(tem->code == TCN_SELCHANGING) { int num=TabCtrl_GetCurSel(tem->hwndFrom); NotebookPage **array = (NotebookPage **)dw_window_get_data(tem->hwndFrom, "_dw_array"); if(num > -1 && array && array[num]) SetParent(array[num]->hwnd, DW_HWND_OBJECT); } else if(tem->code == TCN_SELCHANGE) { int num=TabCtrl_GetCurSel(tem->hwndFrom); NotebookPage **array = (NotebookPage **)dw_window_get_data(tem->hwndFrom, "_dw_array"); if(num > -1 && array && array[num]) SetParent(array[num]->hwnd, tem->hwndFrom); _resize_notebook_page(tem->hwndFrom, num); } else if(tem->code == LVN_DELETEITEM) { NMLISTVIEW FAR *lem=(NMLISTVIEW FAR *)mp2; LV_ITEM lvi; void **params; memset(&lvi, 0, sizeof(LV_ITEM)); lvi.iItem = lem->iItem; lvi.mask = LVIF_PARAM; ListView_GetItem(lem->hdr.hwndFrom, &lvi); params = (void **)lvi.lParam; /* Free row data */ if(params) { if(params[_DW_DATA_TYPE_STRING]) free(params[_DW_DATA_TYPE_STRING]); free(params); } } } break; case WM_HSCROLL: case WM_VSCROLL: { HWND handle = (HWND)mp2; int bar = (origmsg == WM_HSCROLL) ? SB_HORZ : SB_VERT; if(dw_window_get_data(handle, "_dw_scrollbar")) { int value = _HandleScroller(handle, bar, (int)HIWORD(mp1), (int)LOWORD(mp1)); if(value > -1) 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)); } } } break; case WM_GETMINMAXINFO: { MINMAXINFO *info = (MINMAXINFO *)mp2; info->ptMinTrackSize.x = 8; info->ptMinTrackSize.y = 8; return 0; } break; case WM_DESTROY: { HMENU menu = GetMenu(hWnd); if(menu) _free_menu_data(menu); /* Free memory before destroying */ _free_window_memory(hWnd, 0); EnumChildWindows(hWnd, _free_window_memory, 0); } break; case WM_MOUSEMOVE: { HCURSOR cursor; if((cursor = (HCURSOR)dw_window_get_data(hWnd, "_dw_cursor")) || (cursor = (HCURSOR)dw_window_get_data(_toplevel_window(hWnd), "_dw_cursor"))) { SetCursor(cursor); } } break; case WM_CTLCOLORSTATIC: case WM_CTLCOLORLISTBOX: case WM_CTLCOLORBTN: case WM_CTLCOLOREDIT: case WM_CTLCOLORMSGBOX: case WM_CTLCOLORSCROLLBAR: case WM_CTLCOLORDLG: return _colorwndproc(hWnd, msg, mp1, mp2); } if(result != -1) { /* Make sure any queued redraws are handled */ _dw_redraw(0, FALSE); /* Then finally return */ return result; } return DefWindowProc(hWnd, msg, mp1, mp2); } VOID CALLBACK _TimerProc(HWND hwnd, UINT msg, UINT_PTR idEvent, DWORD dwTime) { _wndproc(hwnd, msg, (WPARAM)idEvent, 0); } LRESULT CALLBACK _framewndproc(HWND hWnd, UINT msg, WPARAM mp1, LPARAM mp2) { switch( msg ) { case WM_LBUTTONDOWN: case WM_MBUTTONDOWN: case WM_RBUTTONDOWN: SetActiveWindow(hWnd); SetFocus(hWnd); break; case WM_COMMAND: case WM_NOTIFY: case WM_MOUSEMOVE: _wndproc(hWnd, msg, mp1, mp2); break; #ifdef AEROGLASS case WM_THEMECHANGED: if(_DW_DARK_MODE_ALLOWED == 2 && _DW_DARK_MODE_SUPPORTED) { 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) { PAINTSTRUCT ps; HDC hdcPaint = BeginPaint(hWnd, &ps); int success = FALSE; if(thiscinfo && thiscinfo->fore != -1 && thiscinfo->back != -1) { /* Handle foreground */ if(thiscinfo->fore > -1 && thiscinfo->fore < 18) { if(thiscinfo->fore != DW_CLR_DEFAULT) { SetTextColor((HDC)mp1, RGB(_red[thiscinfo->fore], _green[thiscinfo->fore], _blue[thiscinfo->fore])); } } else if((thiscinfo->fore & DW_RGB_COLOR) == DW_RGB_COLOR) { SetTextColor((HDC)mp1, RGB(DW_RED_VALUE(thiscinfo->fore), DW_GREEN_VALUE(thiscinfo->fore), DW_BLUE_VALUE(thiscinfo->fore))); } /* Handle background */ if(thiscinfo->back > -1 && thiscinfo->back < 18) { if(thiscinfo->back != DW_CLR_DEFAULT) { SetBkColor((HDC)mp1, RGB(_red[thiscinfo->back], _green[thiscinfo->back], _blue[thiscinfo->back])); if(thiscinfo->hbrush) DeleteObject(thiscinfo->hbrush); thiscinfo->hbrush = CreateSolidBrush(RGB(_red[thiscinfo->back], _green[thiscinfo->back], _blue[thiscinfo->back])); SelectObject(hdcPaint, thiscinfo->hbrush); Rectangle(hdcPaint, ps.rcPaint.left - 1, ps.rcPaint.top - 1, ps.rcPaint.right + 1, ps.rcPaint.bottom + 1); success = TRUE; } } else if((thiscinfo->back & DW_RGB_COLOR) == DW_RGB_COLOR) { SetBkColor((HDC)mp1, RGB(DW_RED_VALUE(thiscinfo->back), DW_GREEN_VALUE(thiscinfo->back), DW_BLUE_VALUE(thiscinfo->back))); if(thiscinfo->hbrush) DeleteObject(thiscinfo->hbrush); thiscinfo->hbrush = CreateSolidBrush(RGB(DW_RED_VALUE(thiscinfo->back), DW_GREEN_VALUE(thiscinfo->back), DW_BLUE_VALUE(thiscinfo->back))); SelectObject(hdcPaint, thiscinfo->hbrush); Rectangle(hdcPaint, ps.rcPaint.left - 1, ps.rcPaint.top - 1, ps.rcPaint.right + 1, ps.rcPaint.bottom + 1); success = TRUE; } } EndPaint(hWnd, &ps); if(success) return FALSE; } } break; } return DefWindowProc(hWnd, msg, mp1, mp2); } LRESULT CALLBACK _rendwndproc(HWND hWnd, UINT msg, WPARAM mp1, LPARAM mp2) { LRESULT rcode = TRUE; switch( msg ) { case WM_LBUTTONDOWN: case WM_MBUTTONDOWN: case WM_RBUTTONDOWN: SetFocus(hWnd); rcode = _wndproc(hWnd, msg, mp1, mp2); break; case WM_MOUSEMOVE: /* call our standard Windows procedure */ rcode = _wndproc(hWnd, msg, mp1, mp2); break; case WM_USER+2: case WM_LBUTTONUP: case WM_MBUTTONUP: case WM_RBUTTONUP: rcode = _wndproc(hWnd, msg, mp1, mp2); break; case WM_PAINT: case WM_SIZE: case WM_COMMAND: case WM_CHAR: case WM_KEYDOWN: rcode = _wndproc(hWnd, msg, mp1, mp2); break; default: break; } /* only call the default Windows process if the user hasn't handled the message themselves */ if ( rcode != 0 ) rcode = DefWindowProc(hWnd, msg, mp1, mp2); return rcode; } LRESULT CALLBACK _spinnerwndproc(HWND hWnd, UINT msg, WPARAM mp1, LPARAM mp2) { ColorInfo *cinfo; cinfo = (ColorInfo *)GetWindowLongPtr(hWnd, GWLP_USERDATA); if(msg == WM_MOUSEMOVE) _wndproc(hWnd, msg, mp1, mp2); if(cinfo) { switch( msg ) { case WM_LBUTTONDOWN: case WM_MBUTTONDOWN: case WM_RBUTTONDOWN: case WM_KEYDOWN: { LRESULT ret; if(!cinfo || !cinfo->pOldProc) ret = DefWindowProc(hWnd, msg, mp1, mp2); else ret = CallWindowProc(cinfo->pOldProc, hWnd, msg, mp1, mp2); /* Tell the edit control that a buttonpress has * occured and to update it's window title. */ if(cinfo && cinfo->buddy) SendMessage(cinfo->buddy, WM_USER+10, 0, 0); SetTimer(hWnd, 100, 100, (TIMERPROC)NULL); return ret; } break; case WM_LBUTTONUP: case WM_MBUTTONUP: case WM_RBUTTONUP: case WM_KEYUP: { LRESULT ret; if(!cinfo || !cinfo->pOldProc) ret = DefWindowProc(hWnd, msg, mp1, mp2); ret = CallWindowProc(cinfo->pOldProc, hWnd, msg, mp1, mp2); /* Tell the edit control that a buttonpress has * occured and to update it's window title. */ if(cinfo && cinfo->buddy) SendMessage(cinfo->buddy, WM_USER+10, 0, 0); if(hWnd) KillTimer(hWnd, 100); return ret; } break; case WM_TIMER: { if(mp1 == 100) { LRESULT ret; if(cinfo && cinfo->buddy) SendMessage(cinfo->buddy, WM_USER+10, 0, 0); if(!cinfo || !cinfo->pOldProc) ret = DefWindowProc(hWnd, msg, mp1, mp2); ret = CallWindowProc(cinfo->pOldProc, hWnd, msg, mp1, mp2); /* Tell the edit control that a buttonpress has * occured and to update it's window title. */ if(cinfo && cinfo->buddy) SendMessage(cinfo->buddy, WM_USER+10, 0, 0); return ret; } } break; case WM_USER+10: { if(cinfo->buddy) { TCHAR tempbuf[100] = { 0 }; long position; GetWindowText(cinfo->buddy, tempbuf, 99); position = _tstol(tempbuf); SendMessage(hWnd, UDM_SETPOS32, 0, (LPARAM)position); } } break; } } if(!cinfo || !cinfo->pOldProc) return DefWindowProc(hWnd, msg, mp1, mp2); return CallWindowProc(cinfo->pOldProc, hWnd, msg, mp1, mp2); } void _click_default(HWND handle) { TCHAR tmpbuf[100] = {0}; GetClassName(handle, tmpbuf, 99); /* 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 */ SignalHandler *tmp = Root; /* Find any callbacks for this function */ while (tmp) { if (tmp->message == WM_COMMAND) { /* Make sure it's the right window, and the right ID */ if (tmp->window == handle) { int (DWSIGNAL *clickfunc)(HWND, void *) = tmp->signalfunction; clickfunc(tmp->window, tmp->data); tmp = NULL; } } if (tmp) tmp= tmp->next; } } else SetFocus(handle); } /* Subclass function that will handle setting colors on controls */ LRESULT CALLBACK _colorwndproc(HWND hWnd, UINT msg, WPARAM mp1, LPARAM mp2) { ColorInfo *cinfo; TCHAR tmpbuf[100] = {0}; WNDPROC pOldProc = 0; LRESULT ret = -1; cinfo = (ColorInfo *)GetWindowLongPtr(hWnd, GWLP_USERDATA); GetClassName(hWnd, tmpbuf, 99); if(_tcsncmp(tmpbuf, FRAMECLASSNAME, _tcslen(FRAMECLASSNAME)+1) == 0) cinfo = &(((Box *)cinfo)->cinfo); if ( msg == WM_MOUSEMOVE || msg == WM_USER+2 ) ret = _wndproc(hWnd, msg, mp1, mp2); if (cinfo) { pOldProc = cinfo->pOldProc; switch( msg ) { case WM_SETFOCUS: if(cinfo->combo) ret = _wndproc(cinfo->combo, msg, mp1, mp2); else ret = _wndproc(hWnd, msg, mp1, mp2); break; case WM_VSCROLL: case WM_HSCROLL: ret = _wndproc(hWnd, msg, mp1, mp2); break; case WM_KEYDOWN: case WM_KEYUP: { if (hWnd && (mp1 == VK_UP || mp1 == VK_DOWN)) { if (!cinfo || !cinfo->pOldProc) ret = DefWindowProc(hWnd, msg, mp1, mp2); ret = CallWindowProc(cinfo->pOldProc, hWnd, msg, mp1, mp2); /* Tell the spinner control that a keypress has * occured and to update it's internal value. */ if (cinfo && cinfo->buddy && !cinfo->combo) PostMessage(hWnd, WM_USER+10, 0, 0); if(msg == WM_KEYDOWN) SetTimer(hWnd, 101, 100, (TIMERPROC)NULL); else KillTimer(hWnd, 101); return ret; } } break; case WM_TIMER: { if(mp1 == 101) { if(!cinfo || !cinfo->pOldProc) ret = DefWindowProc(hWnd, msg, mp1, mp2); ret = CallWindowProc(cinfo->pOldProc, hWnd, msg, mp1, mp2); /* Tell the spinner control that a keypress has * occured and to update it's internal value. */ if(cinfo && cinfo->buddy && !cinfo->combo) PostMessage(hWnd, WM_USER+10, 0, 0); return ret; } } break; case WM_CHAR: ret = _wndproc(hWnd, msg, mp1, mp2); if (ret != TRUE && LOWORD(mp1) == '\t') { if (GetAsyncKeyState(VK_SHIFT) & 0x8000) { if (cinfo->combo) _shift_focus(cinfo->combo, _DW_DIRECTION_BACKWARD); else if(cinfo->buddy) _shift_focus(cinfo->buddy, _DW_DIRECTION_BACKWARD); else _shift_focus(hWnd, _DW_DIRECTION_BACKWARD); } else { if (cinfo->combo) _shift_focus(cinfo->combo, _DW_DIRECTION_FORWARD); else if(cinfo->buddy) _shift_focus(cinfo->buddy, _DW_DIRECTION_FORWARD); else _shift_focus(hWnd, _DW_DIRECTION_FORWARD); } return FALSE; } else if(LOWORD(mp1) == '\r') { if ( cinfo->clickdefault ) { _click_default(cinfo->clickdefault); return (LRESULT)TRUE; } else { /* * Find the toplevel window for the current window and check if it * has a default click set */ HWND tl = _toplevel_window( hWnd ); ColorInfo *mycinfo = (ColorInfo *)GetWindowLongPtr( tl, GWLP_USERDATA ); if ( mycinfo && mycinfo->clickdefault ) { _click_default( mycinfo->clickdefault ); return (LRESULT)TRUE; } } } /* Tell the spinner control that a keypress has * occured and to update it's internal value. */ if (cinfo->buddy && !cinfo->combo) { PostMessage(cinfo->buddy, WM_USER+10, 0, 0); } break; case WM_USER+10: { if(cinfo->buddy) { long val; val = (long)SendMessage(cinfo->buddy, UDM_GETPOS32, 0, 0); _sntprintf(tmpbuf, 99, TEXT("%ld"), val); SetWindowText(hWnd, tmpbuf); } } break; case WM_CTLCOLORSTATIC: case WM_CTLCOLORLISTBOX: case WM_CTLCOLORBTN: case WM_CTLCOLOREDIT: 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); SetTextColor((HDC)mp1, RGB(DW_RED_VALUE(fore), DW_GREEN_VALUE(fore), DW_BLUE_VALUE(fore))); } #ifdef AEROGLASS else if(thiscinfo->fore == DW_CLR_DEFAULT && _DW_DARK_MODE_ALLOWED == 2 && _DW_DARK_MODE_ENABLED) SetTextColor((HDC)mp1, _DW_GetSysColor(COLOR_WINDOWTEXT)); #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) { HBRUSH hbr = _DW_GetSysColorBrush(COLOR_3DFACE); SetBkColor((HDC)mp1, _DW_GetSysColor(COLOR_3DFACE)); SelectObject((HDC)mp1, hbr); 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); thiscinfo->hbrush = CreateSolidBrush(RGB(DW_RED_VALUE(back), DW_GREEN_VALUE(back), DW_BLUE_VALUE(back))); SelectObject((HDC)mp1, thiscinfo->hbrush); return (LRESULT)(intptr_t)thiscinfo->hbrush; } } #ifdef AEROGLASS /* First handle the transparent or layered cases */ switch(msg) { 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(thiscinfo && thiscinfo->hbrush) DeleteObject(thiscinfo->hbrush); thiscinfo->hbrush = CreateSolidBrush(_dw_transparencykey); SelectObject((HDC)mp1, thiscinfo->hbrush); return (LRESULT)thiscinfo->hbrush; } } } } /* Second we handle the dark mode cases */ switch(msg) { case WM_CTLCOLORSTATIC: case WM_CTLCOLORLISTBOX: case WM_CTLCOLORBTN: case WM_CTLCOLOREDIT: case WM_CTLCOLORMSGBOX: case WM_CTLCOLORSCROLLBAR: case WM_CTLCOLORDLG: { 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)); if(!thiscinfo || (thiscinfo && (thisback == DW_CLR_DEFAULT || thisback == -1 || thisback == DW_RGB_TRANSPARENT))) { HBRUSH hbr = _DW_GetSysColorBrush(COLOR_3DFACE); SetBkColor((HDC)mp1, _DW_GetSysColor(COLOR_3DFACE)); SelectObject((HDC)mp1, hbr); return (LRESULT)(intptr_t)hbr; } } } } #endif } break; } } if(ret != TRUE) { if(!pOldProc) return DefWindowProc(hWnd, msg, mp1, mp2); return CallWindowProc(pOldProc, hWnd, msg, mp1, mp2); } return ret; } /* Window procedure for container/listview */ LRESULT CALLBACK _containerwndproc(HWND hWnd, UINT msg, WPARAM mp1, LPARAM mp2) { ContainerInfo *continfo = (ContainerInfo *)GetWindowLongPtr(hWnd, GWLP_USERDATA); switch( msg ) { case WM_COMMAND: case WM_NOTIFY: case WM_MOUSEMOVE: _wndproc(hWnd, msg, mp1, mp2); break; #ifdef AEROGLASS case WM_THEMECHANGED: if(_DW_DARK_MODE_ALLOWED == 2 && _DW_DARK_MODE_SUPPORTED) { if(!continfo || continfo->cinfo.back == -1 || continfo->cinfo.back == DW_CLR_DEFAULT) { COLORREF bk = _DW_GetSysColor(COLOR_WINDOW); ListView_SetBkColor(hWnd, bk); ListView_SetTextBkColor(hWnd, bk); } if(!continfo || continfo->cinfo.fore == -1 || continfo->cinfo.fore == DW_CLR_DEFAULT) ListView_SetTextColor(hWnd, _DW_GetSysColor(COLOR_WINDOWTEXT)); } break; #endif case WM_PAINT: if(continfo->cinfo.pOldProc && (continfo->even != DW_RGB_TRANSPARENT || continfo->odd != DW_RGB_TRANSPARENT)) { 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 even = RGB(DW_RED_VALUE(temp), DW_GREEN_VALUE(temp), DW_BLUE_VALUE(temp)); /* Load the default background color for the first pass */ ListView_SetTextBkColor(hWnd, continfo->cinfo.back != -1 ? continfo->cinfo.back : ListView_GetBkColor(hWnd)); /* get the rectangle to be updated */ GetUpdateRect(hWnd, &rectUpd, FALSE); /* allow default processing first */ CallWindowProc(continfo->cinfo.pOldProc, hWnd, msg, 0, 0); /* 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) { ListView_SetTextBkColor(hWnd, c); /* invalidate the row rectangle then... */ InvalidateRect(hWnd, &rectDestin, FALSE); /* ...force default processing */ CallWindowProc(continfo->cinfo.pOldProc, hWnd, msg, 0, 0); } } } } break; case WM_LBUTTONDBLCLK: case WM_CHAR: { LV_ITEM lvi; int iItem; void **params = NULL; if(LOWORD(mp1) == '\t') { if(GetAsyncKeyState(VK_SHIFT) & 0x8000) _shift_focus(hWnd, _DW_DIRECTION_BACKWARD); else _shift_focus(hWnd, _DW_DIRECTION_FORWARD); return FALSE; } if(msg == WM_CHAR && (char)mp1 != '\r') break; iItem = ListView_GetNextItem(hWnd, -1, LVNI_FOCUSED); memset(&lvi, 0, sizeof(LV_ITEM)); if(iItem > -1) { lvi.iItem = iItem; lvi.mask = LVIF_PARAM; ListView_GetItem(hWnd, &lvi); params = (void **)lvi.lParam; } { SignalHandler *tmp = Root; while(tmp) { if(tmp->message == NM_DBLCLK && tmp->window == hWnd) { int (DWSIGNAL *containerselectfunc)(HWND, char *, void *, void *) = tmp->signalfunction; containerselectfunc(tmp->window, params ? params[_DW_DATA_TYPE_STRING] : NULL, tmp->data, params ? params[_DW_DATA_TYPE_POINTER] : NULL); tmp = NULL; } if(tmp) tmp = tmp->next; } } } break; case WM_CONTEXTMENU: { SignalHandler *tmp = Root; void **params = NULL; while(tmp) { if(tmp->message == NM_RCLICK && tmp->window == hWnd) { int (DWSIGNAL *containercontextfunc)(HWND, char *, int, int, void *, void *) = tmp->signalfunction; LONG x,y; LV_ITEM lvi; int iItem; LVHITTESTINFO lhi; TCHAR textbuf[1025] = {0}; dw_pointer_query_pos(&x, &y); lhi.pt.x = x; lhi.pt.y = y; MapWindowPoints(HWND_DESKTOP, tmp->window, &lhi.pt, 1); iItem = ListView_HitTest(tmp->window, &lhi); memset(&lvi, 0, sizeof(LV_ITEM)); if(iItem > -1) { lvi.iItem = iItem; lvi.pszText = textbuf; lvi.cchTextMax = 1024; lvi.mask = LVIF_PARAM | LVIF_TEXT; ListView_GetItem(tmp->window, &lvi); ListView_SetSelectionMark(tmp->window, iItem); params = (void **)lvi.lParam; } containercontextfunc(tmp->window, params ? params[_DW_DATA_TYPE_STRING] : NULL, x, y, tmp->data, (void *)lvi.lParam); tmp = NULL; } if(tmp) tmp = tmp->next; } } break; } if(!continfo || !continfo->cinfo.pOldProc) return DefWindowProc(hWnd, msg, mp1, mp2); return CallWindowProc(continfo->cinfo.pOldProc, hWnd, msg, mp1, mp2); } LRESULT CALLBACK _simplewndproc(HWND hWnd, UINT msg, WPARAM mp1, LPARAM mp2) { ContainerInfo *cinfo; LRESULT ret = -1; cinfo = (ContainerInfo *)GetWindowLongPtr(hWnd, GWLP_USERDATA); switch( msg ) { case WM_MOUSEMOVE: ret = _wndproc(hWnd, msg, mp1, mp2); break; case WM_CHAR: ret = _wndproc(hWnd, msg, mp1, mp2); if(ret != TRUE && LOWORD(mp1) == '\t') { if(GetAsyncKeyState(VK_SHIFT) & 0x8000) _shift_focus(hWnd, _DW_DIRECTION_BACKWARD); else _shift_focus(hWnd, _DW_DIRECTION_FORWARD); return FALSE; } break; } if(ret != TRUE) { if(!cinfo || !cinfo->cinfo.pOldProc) return DefWindowProc(hWnd, msg, mp1, mp2); return CallWindowProc(cinfo->cinfo.pOldProc, hWnd, msg, mp1, mp2); } return ret; } LRESULT CALLBACK _treewndproc(HWND hWnd, UINT msg, WPARAM mp1, LPARAM mp2) { #ifdef AEROGLASS 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)); } } #endif return _simplewndproc(hWnd, msg, mp1, mp2); } void _changebox(Box *thisbox, int percent, int type) { int z; for(z=0;z<thisbox->count;z++) { if(thisbox->items[z].type == TYPEBOX) { Box *tmp = (Box*)GetWindowLongPtr(thisbox->items[z].hwnd, GWLP_USERDATA); _changebox(tmp, percent, type); } else { if(type == DW_HORZ) { if(thisbox->items[z].hsize == SIZEEXPAND) thisbox->items[z].width = (int)(((float)thisbox->items[z].origwidth) * (((float)percent)/((float)100.0))); } else { if(thisbox->items[z].vsize == SIZEEXPAND) thisbox->items[z].height = (int)(((float)thisbox->items[z].origheight) * (((float)percent)/((float)100.0))); } } } } void _handle_splitbar_resize(HWND hwnd, float percent, int type, int x, int y) { HWND handle1 = (HWND)dw_window_get_data(hwnd, "_dw_topleft"); HWND handle2 = (HWND)dw_window_get_data(hwnd, "_dw_bottomright"); ShowWindow(handle1, SW_HIDE); ShowWindow(handle2, SW_HIDE); if(type == DW_HORZ) { int newx = x; float ratio = (float)percent/(float)100.0; Box *tmp = (Box *)GetWindowLongPtr(handle1, GWLP_USERDATA); newx = (int)((float)newx * ratio) - (SPLITBAR_WIDTH/2); MoveWindow(handle1, 0, 0, newx, y, FALSE); _do_resize(tmp, newx - 1, y - 1); tmp = (Box *)GetWindowLongPtr(handle2, GWLP_USERDATA); newx = x - newx - SPLITBAR_WIDTH; MoveWindow(handle2, x - newx, 0, newx, y, FALSE); _do_resize(tmp, newx - 1, y - 1); dw_window_set_data(hwnd, "_dw_start", DW_INT_TO_POINTER(newx)); } else { int newy = y; float ratio = (float)(100.0-percent)/(float)100.0; Box *tmp = (Box *)GetWindowLongPtr(handle2, GWLP_USERDATA); newy = (int)((float)newy * ratio) - (SPLITBAR_WIDTH/2); MoveWindow(handle2, 0, y - newy, x, newy, FALSE); _do_resize(tmp, x - 1, newy - 1); tmp = (Box *)GetWindowLongPtr(handle1, GWLP_USERDATA); newy = y - newy - SPLITBAR_WIDTH; MoveWindow(handle1, 0, 0, x, newy, FALSE); _do_resize(tmp, x - 1, newy - 1); dw_window_set_data(hwnd, "_dw_start", DW_INT_TO_POINTER(newy)); } ShowWindow(handle1, SW_SHOW); ShowWindow(handle2, SW_SHOW); } /* This handles any activity on the scrollbox */ LRESULT CALLBACK _scrollwndproc(HWND hwnd, UINT msg, WPARAM mp1, LPARAM mp2) { switch (msg) { case WM_HSCROLL: case WM_VSCROLL: { ColorInfo *cinfo = (ColorInfo *)GetWindowLongPtr(hwnd, GWLP_USERDATA); SCROLLINFO hsi, vsi, *si = &hsi; int bar = SB_HORZ; int which = LOWORD(mp1); /* Initialize the scroll info structs */ vsi.cbSize = hsi.cbSize = sizeof(SCROLLINFO); vsi.fMask = hsi.fMask = SIF_POS | SIF_RANGE | SIF_PAGE; /* Save the current scroll positions */ GetScrollInfo(hwnd, SB_HORZ, &hsi); GetScrollInfo(hwnd, SB_VERT, &vsi); if(msg == WM_VSCROLL) { bar = SB_VERT; si = &vsi; } switch(which) { case SB_THUMBTRACK: si->nPos = HIWORD(mp1); break; /*case SB_PAGEDOWN:*/ case SB_PAGELEFT: si->nPos = si->nPos - si->nPage; if(si->nPos < 0) si->nPos = 0; break; /*case SB_PAGEUP:*/ case SB_PAGERIGHT: si->nPos = si->nPos + si->nPage; if(si->nPos > (int)(si->nMax - si->nPage) + 1) si->nPos = (si->nMax - si->nPage) + 1; break; /*case SB_LINEDOWN:*/ case SB_LINELEFT: si->nPos = si->nPos - 1; if(si->nPos < si->nMin) si->nPos = si->nMin; break; /*case SB_LINEUP:*/ case SB_LINERIGHT: si->nPos = si->nPos + 1; if(si->nPos > (int)(si->nMax - si->nPage) + 1) si->nPos = (si->nMax - si->nPage) + 1; break; } /* Position the scrolled box */ vsi.fMask = hsi.fMask = SIF_POS | SIF_DISABLENOSCROLL; SetWindowPos(cinfo->combo, 0, -hsi.nPos, -vsi.nPos, 0, 0, SWP_NOACTIVATE | SWP_NOSIZE | SWP_NOZORDER | SWP_NOACTIVATE); SetScrollInfo(hwnd, bar, si, TRUE); } break; } return DefWindowProc(hwnd, msg, mp1, mp2); } /* This handles any activity on the splitbars (sizers) */ LRESULT CALLBACK _splitwndproc(HWND hwnd, UINT msg, WPARAM mp1, LPARAM mp2) { switch (msg) { case WM_ACTIVATE: case WM_SETFOCUS: return FALSE; #ifdef AEROGLASS case WM_THEMECHANGED: if(_DW_DARK_MODE_ALLOWED == 2 && _DW_DARK_MODE_SUPPORTED) InvalidateRect(hwnd, NULL, TRUE); break; #endif case WM_PAINT: { PAINTSTRUCT ps; HDC hdcPaint; int type = DW_POINTER_TO_INT(dw_window_get_data(hwnd, "_dw_type")); int start = DW_POINTER_TO_INT(dw_window_get_data(hwnd, "_dw_start")); BeginPaint(hwnd, &ps); if((hdcPaint = GetDC(hwnd)) != NULL) { unsigned long cx, cy; HBRUSH oldBrush = SelectObject(hdcPaint, _DW_GetSysColorBrush(COLOR_3DFACE)); HPEN oldPen = SelectObject(hdcPaint, CreatePen(PS_SOLID, 1, _DW_GetSysColor(COLOR_3DFACE))); dw_window_get_pos_size(hwnd, NULL, NULL, &cx, &cy); if(type == DW_HORZ) Rectangle(hdcPaint, cx - start - SPLITBAR_WIDTH, 0, cx - start, cy); else Rectangle(hdcPaint, 0, start, cx, start + SPLITBAR_WIDTH); SelectObject(hdcPaint, oldBrush); DeleteObject(SelectObject(hdcPaint, oldPen)); ReleaseDC(hwnd, hdcPaint); } EndPaint(hwnd, &ps); } break; case WM_LBUTTONDOWN: { SetCapture(hwnd); break; } case WM_LBUTTONUP: { if(GetCapture() == hwnd) ReleaseCapture(); } break; case WM_MOUSEMOVE: { float *percent = (float *)dw_window_get_data(hwnd, "_dw_percent"); int type = DW_POINTER_TO_INT(dw_window_get_data(hwnd, "_dw_type")); int start; if(type == DW_HORZ) SetCursor(LoadCursor(NULL, IDC_SIZEWE)); else SetCursor(LoadCursor(NULL, IDC_SIZENS)); if(GetCapture() == hwnd && percent) { POINT point; RECT rect; static POINT lastpoint; GetCursorPos(&point); GetWindowRect(hwnd, &rect); if(memcmp(&point, &lastpoint, sizeof(POINT))) { if(PtInRect(&rect, point)) { int width = (rect.right - rect.left); int height = (rect.bottom - rect.top); if(type == DW_HORZ) { start = point.x - rect.left; if(width - SPLITBAR_WIDTH > 1 && start < width - SPLITBAR_WIDTH) *percent = ((float)start / (float)(width - SPLITBAR_WIDTH)) * (float)100.0; } else { start = point.y - rect.top; if(height - SPLITBAR_WIDTH > 1 && start < height - SPLITBAR_WIDTH) *percent = ((float)start / (float)(height - SPLITBAR_WIDTH)) * (float)100.0; } _handle_splitbar_resize(hwnd, *percent, type, width, height); } memcpy(&lastpoint, &point, sizeof(POINT)); } } break; } } return DefWindowProc(hwnd, msg, mp1, mp2); } /* This handles drawing the status text areas */ LRESULT CALLBACK _statuswndproc(HWND hwnd, UINT msg, WPARAM mp1, LPARAM mp2) { switch (msg) { case WM_MOUSEMOVE: _wndproc(hwnd, msg, mp1, mp2); break; case WM_SETTEXT: { /* Make sure the control redraws when there is a text change */ int ret = (int)DefWindowProc(hwnd, msg, mp1, mp2); InvalidateRgn(hwnd, NULL, TRUE); return ret; } #ifdef AEROGLASS case WM_THEMECHANGED: if(_DW_DARK_MODE_ALLOWED == 2 && _DW_DARK_MODE_SUPPORTED) InvalidateRect(hwnd, NULL, TRUE); break; #endif case WM_PAINT: { HDC hdcPaint; PAINTSTRUCT ps; RECT rc; unsigned long cx, cy; TCHAR tempbuf[1025] = { 0 }; ColorInfo *cinfo = (ColorInfo *)GetWindowLongPtr(hwnd, GWLP_USERDATA); HFONT hfont = _acquire_font(hwnd, cinfo ? cinfo->fontname : NULL); HFONT oldfont = (HFONT)SendMessage(hwnd, WM_GETFONT, 0, 0); dw_window_get_pos_size(hwnd, NULL, NULL, &cx, &cy); 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 (_DW_DARK_MODE_ALLOWED == 2 && _DW_DARK_MODE_ENABLED) || #endif (cinfo && cinfo->fore != -1 && cinfo->fore != DW_CLR_DEFAULT && cinfo->back !=- -1 && cinfo->back != DW_CLR_DEFAULT)) { ULONG fore = (cinfo && (cinfo->fore != -1 && cinfo->fore != DW_CLR_DEFAULT)) ? _internal_color(cinfo->fore) : DW_RGB_TRANSPARENT; ULONG back = (cinfo && (cinfo->back != -1 && cinfo->back != DW_CLR_DEFAULT)) ? _internal_color(cinfo->back) : DW_RGB_TRANSPARENT; HBRUSH hbrback, hbrfore; hbrfore = fore != DW_RGB_TRANSPARENT ? CreateSolidBrush(RGB(DW_RED_VALUE(fore), DW_GREEN_VALUE(fore), DW_BLUE_VALUE(fore))) : NULL; hbrback = back != DW_RGB_TRANSPARENT ? CreateSolidBrush(RGB(DW_RED_VALUE(back), DW_GREEN_VALUE(back), DW_BLUE_VALUE(back))) : NULL; /* Fill with the background color */ FillRect(hdcPaint, &rc, hbrback ? hbrback : _DW_GetSysColorBrush(COLOR_3DFACE)); /* Dwaw a border around it */ FrameRect(hdcPaint, &rc, hbrfore ? hbrfore : _DW_GetSysColorBrush(COLOR_WINDOWTEXT)); SetRect(&rc, 3, 1, cx -1, cy - 1); SetTextColor(hdcPaint, fore != DW_RGB_TRANSPARENT ? RGB(DW_RED_VALUE(fore), DW_GREEN_VALUE(fore), DW_BLUE_VALUE(fore)) : _DW_GetSysColor(COLOR_WINDOWTEXT)); SetBkMode(hdcPaint, TRANSPARENT); /* Draw the text in the middle */ ExtTextOut(hdcPaint, 3, 1, ETO_CLIPPED, &rc, tempbuf, (UINT)_tcslen(tempbuf), NULL); if(hbrfore) DeleteObject(hbrfore); if(hbrback) DeleteObject(hbrback); } else DrawStatusText(hdcPaint, &rc, tempbuf, 0); if(hfont && oldfont) SelectObject(hdcPaint, oldfont); if(hfont) DeleteObject(hfont); EndPaint(hwnd, &ps); } return FALSE; } return DefWindowProc(hwnd, msg, mp1, mp2); } #ifdef AEROGLASS /* Window procedure to handle drawing themed text when in composited mode */ LRESULT CALLBACK _staticwndproc(HWND hwnd, ULONG msg, WPARAM mp1, LPARAM mp2) { ColorInfo *parentcinfo, *cinfo = (ColorInfo *)GetWindowLongPtr(hwnd, GWLP_USERDATA); WNDPROC pOldProc; 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; HDC hdc = BeginPaint(hwnd, &ps); if(hdc) { /* 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; case SS_RIGHT: dwFlags |= DT_RIGHT; break; case SS_LEFTNOWORDWRAP: dwFlags &= ~DT_WORDBREAK; break; } if(dwStyle & SS_CENTERIMAGE) { dwFlags |= DT_VCENTER; dwFlags &= ~DT_WORDBREAK; } if(dwStyle & SS_ENDELLIPSIS) dwFlags |= DT_END_ELLIPSIS|DT_MODIFYSTRING; else if(dwStyle & SS_PATHELLIPSIS) dwFlags |= DT_PATH_ELLIPSIS|DT_MODIFYSTRING; else if(dwStyle & SS_WORDELLIPSIS) dwFlags |= DT_WORD_ELLIPSIS|DT_MODIFYSTRING; 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 /* Function: _BtProc * Abstract: Subclass procedure for buttons */ LRESULT CALLBACK _BtProc(HWND hwnd, ULONG msg, WPARAM mp1, LPARAM mp2) { ColorInfo *cinfo = (ColorInfo *)GetWindowLongPtr(hwnd, GWLP_USERDATA); WNDPROC pOldProc; int retval = -1; if ( !cinfo ) return DefWindowProc(hwnd, msg, mp1, mp2); /* We must save a pointer to the old * window procedure because if a signal * handler attached here destroys this * window it will then be invalid. */ pOldProc = cinfo->pOldProc; switch(msg) { case WM_CTLCOLORSTATIC: case WM_CTLCOLORLISTBOX: case WM_CTLCOLORBTN: case WM_CTLCOLOREDIT: case WM_CTLCOLORMSGBOX: case WM_CTLCOLORSCROLLBAR: case WM_CTLCOLORDLG: return _colorwndproc(hwnd, msg, mp1, mp2); case WM_SETFOCUS: _wndproc(hwnd, msg, mp1, mp2); break; case WM_LBUTTONUP: { SignalHandler *tmp = Root; /* Find any callbacks for this function */ while(tmp) { if(tmp->message == WM_COMMAND) { int (DWSIGNAL *clickfunc)(HWND, void *) = tmp->signalfunction; /* 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); if(checkbox) in_checkbox_handler = 0; tmp = NULL; } } if(tmp) tmp= tmp->next; } } break; case WM_CHAR: { /* A button press should also occur for an ENTER or SPACE press * while the button has the active input focus. */ if(LOWORD(mp1) == '\r' || LOWORD(mp1) == ' ') { SignalHandler *tmp = Root; /* Find any callbacks for this function */ while(tmp) { if(tmp->message == WM_COMMAND) { int (DWSIGNAL *clickfunc)(HWND, void *) = tmp->signalfunction; /* Make sure it's the right window, and the right ID */ if(tmp->window == hwnd) { retval = clickfunc(tmp->window, tmp->data); tmp = NULL; } } if(tmp) tmp= tmp->next; } } if(LOWORD(mp1) == '\t') { if(GetAsyncKeyState(VK_SHIFT) & 0x8000) _shift_focus(hwnd, _DW_DIRECTION_BACKWARD); else _shift_focus(hwnd, _DW_DIRECTION_FORWARD); return FALSE; } } break; case WM_KEYDOWN: if(mp1 == VK_LEFT || mp1 == VK_UP) _shift_focus(hwnd, _DW_DIRECTION_BACKWARD); if(mp1 == VK_RIGHT || mp1 == VK_DOWN) _shift_focus(hwnd, _DW_DIRECTION_FORWARD); break; } /* Make sure windows are up-to-date */ if(retval != -1) _dw_redraw(0, FALSE); if ( !pOldProc ) return DefWindowProc(hwnd, msg, mp1, mp2); return CallWindowProc(pOldProc, hwnd, msg, mp1, mp2); } /* This function recalculates a notebook page for example * during switching of notebook pages. */ void _resize_notebook_page(HWND handle, int pageid) { RECT rect; NotebookPage **array = (NotebookPage **)dw_window_get_data(handle, "_dw_array"); if(array && array[pageid]) { Box *box = (Box *)GetWindowLongPtr(array[pageid]->hwnd, GWLP_USERDATA); GetClientRect(handle,&rect); TabCtrl_AdjustRect(handle,FALSE,&rect); MoveWindow(array[pageid]->hwnd, rect.left, rect.top, rect.right - rect.left, rect.bottom-rect.top, TRUE); if(box && box->count) { ShowWindow(box->items[0].hwnd, SW_HIDE); _do_resize(box, rect.right - rect.left, rect.bottom - rect.top); ShowWindow(box->items[0].hwnd, SW_SHOW); } ShowWindow(array[pageid]->hwnd, SW_SHOWNORMAL); } } void _create_tooltip(HWND handle, 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. */ ti.uFlags = TTF_SUBCLASS; ti.lpszText = UTF8toWide(text); ti.rect.right = ti.rect.bottom = 2000; /* Associate the tooltip with the "tool" window. */ SendMessage(hwndTooltip, TTM_ADDTOOL, 0, (LPARAM) (LPTOOLINFO) &ti); } } #ifndef GDIPLUS /* This function determines the handle for a supplied image filename */ int _dw_get_image_handle(char *filename, HANDLE *icon, HBITMAP *hbitmap) { int len, windowtype = 0; char *file = malloc(strlen(filename) + 5); *hbitmap = 0; *icon = 0; if (!file) { return 0; } strcpy(file, filename); /* check if we can read from this file (it exists and read permission) */ if (access(file, 04) == 0) { len = strlen( file ); if ( len < 4 ) { free(file); return 0; } if ( stricmp( file + len - 4, ".ico" ) == 0 ) { *icon = LoadImage(NULL, UTF8toWide(file), IMAGE_ICON, 0, 0, LR_LOADFROMFILE); windowtype = BS_ICON; } else if ( stricmp( file + len - 4, ".bmp" ) == 0 ) { *hbitmap = (HBITMAP)LoadImage(NULL, UTF8toWide(file), IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE); windowtype = BS_BITMAP; } else if ( stricmp( file + len - 4, ".png" ) == 0 ) { *hbitmap = (HBITMAP)LoadImage(NULL, UTF8toWide(file), IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE); windowtype = BS_BITMAP; } free(file); } else { /* Try with .ico extension first...*/ strcat(file, ".ico"); if (access(file, 04) == 0) { *icon = LoadImage(NULL, UTF8toWide(file), IMAGE_ICON, 0, 0, LR_LOADFROMFILE); windowtype = BS_ICON; } else { strcpy(file, filename); strcat(file, ".bmp"); if (access(file, 04) == 0) { *hbitmap = (HBITMAP)LoadImage(NULL, UTF8toWide(file), IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE); windowtype = BS_BITMAP; } } free(file); } return windowtype; } #endif /* * Initializes the Dynamic Windows engine. * Parameters: * newthread: True if this is the only thread. * False if there is already a message loop running. */ int API dw_init(int newthread, int argc, char *argv[]) { 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); memset(lookup, 0, sizeof(HICON) * ICON_INDEX_LIMIT); /* We need the version to check capability like up-down controls */ dwVersion = GetVersion(); dwComctlVer = GetDllVersion(TEXT("comctl32.dll")); /* We need to initialize dark mode, and thus the aero/theme subsystems before registering our window classes */ if((huxtheme = LoadLibrary(TEXT("uxtheme")))) _SetWindowTheme = (HRESULT (WINAPI *)(HWND, LPCWSTR, LPCWSTR ))GetProcAddress(huxtheme, "SetWindowTheme"); #ifdef AEROGLASS /* Attempt to load the Desktop Window Manager and Theme library */ if(huxtheme && (hdwm = LoadLibrary(TEXT("dwmapi")))) { _DwmExtendFrameIntoClientArea = (HRESULT (WINAPI *)(HWND, const MARGINS *))GetProcAddress(hdwm, "DwmExtendFrameIntoClientArea"); _DwmSetWindowAttribute = (HRESULT (WINAPI *)(HWND, DWORD, LPCVOID, DWORD))GetProcAddress(hdwm, "DwmSetWindowAttribute"); if((_DwmIsCompositionEnabled = (HRESULT (WINAPI *)(BOOL *))GetProcAddress(hdwm, "DwmIsCompositionEnabled"))) _DwmIsCompositionEnabled(&_dw_composition); _OpenThemeData = (HTHEME (WINAPI *)(HWND, LPCWSTR))GetProcAddress(huxtheme, "OpenThemeData"); _BeginBufferedPaint = (HPAINTBUFFER (WINAPI *)(HDC, const RECT *, BP_BUFFERFORMAT, BP_PAINTPARAMS *, HDC *))GetProcAddress(huxtheme, "BeginBufferedPaint"); _BufferedPaintSetAlpha = (HRESULT (WINAPI *)(HPAINTBUFFER, const RECT *, BYTE))GetProcAddress(huxtheme, "BufferedPaintSetAlpha"); _DrawThemeTextEx = (HRESULT (WINAPI *)(HTHEME, HDC, int, int, LPCWSTR, int, DWORD, LPRECT, const DTTOPTS *))GetProcAddress(huxtheme, "DrawThemeTextEx"); _EndBufferedPaint = (HRESULT (WINAPI *)(HPAINTBUFFER, BOOL))GetProcAddress(huxtheme, "EndBufferedPaint"); _CloseThemeData = (HRESULT (WINAPI *)(HTHEME))GetProcAddress(huxtheme, "CloseThemeData"); _dw_init_dark_mode(); } /* In case of error close the library if needed */ else if(hdwm) { FreeLibrary(hdwm); hdwm = 0; } #endif /* Register the generic Dynamic Windows class */ memset(&wc, 0, sizeof(WNDCLASS)); wc.style = CS_DBLCLKS; wc.lpfnWndProc = (WNDPROC)_wndproc; wc.cbClsExtra = 0; wc.cbWndExtra = 32; wc.hbrBackground = NULL; wc.lpszMenuName = NULL; wc.lpszClassName = ClassName; RegisterClass(&wc); /* Register the splitbar control */ memset(&wc, 0, sizeof(WNDCLASS)); wc.style = CS_DBLCLKS | CS_HREDRAW | CS_VREDRAW; wc.lpfnWndProc = (WNDPROC)_splitwndproc; wc.cbClsExtra = 0; wc.cbWndExtra = 0; wc.hbrBackground = NULL; wc.lpszMenuName = NULL; wc.lpszClassName = SplitbarClassName; RegisterClass(&wc); /* Register the scroller control */ memset(&wc, 0, sizeof(WNDCLASS)); wc.style = CS_DBLCLKS; wc.lpfnWndProc = (WNDPROC)_scrollwndproc; wc.cbClsExtra = 0; wc.cbWndExtra = 32; wc.hbrBackground = NULL; wc.lpszMenuName = NULL; wc.lpszClassName = ScrollClassName; RegisterClass(&wc); /* Register a frame control like on OS/2 */ memset(&wc, 0, sizeof(WNDCLASS)); wc.style = CS_DBLCLKS; wc.lpfnWndProc = (WNDPROC)_framewndproc; wc.cbClsExtra = 0; wc.cbWndExtra = 32; wc.hbrBackground = (HBRUSH)_DW_GetSysColorBrush(COLOR_3DFACE); wc.hCursor = LoadCursor(NULL, IDC_ARROW); wc.lpszMenuName = NULL; wc.lpszClassName = FRAMECLASSNAME; RegisterClass(&wc); /* Register a status bar control */ memset(&wc, 0, sizeof(WNDCLASS)); wc.style = CS_DBLCLKS; wc.lpfnWndProc = (WNDPROC)_statuswndproc; wc.cbClsExtra = 0; wc.cbWndExtra = 32; wc.hbrBackground = NULL; wc.hCursor = LoadCursor(NULL, IDC_ARROW); wc.lpszMenuName = NULL; wc.lpszClassName = StatusbarClassName; RegisterClass(&wc); /* Create a set of brushes using the default OS/2 and DOS colors */ for(z=0;z<18;z++) _colors[z] = CreateSolidBrush(RGB(_red[z],_green[z],_blue[z])); /* Register an Object Windows class like OS/2 and Win2k+ * so similar functionality can be used on earlier releases * of Windows. */ memset(&wc, 0, sizeof(WNDCLASS)); wc.style = 0; wc.lpfnWndProc = (WNDPROC)_wndproc; wc.cbClsExtra = 0; wc.cbWndExtra = 0; wc.hbrBackground = NULL; wc.hCursor = LoadCursor(NULL, IDC_ARROW); wc.lpszMenuName = NULL; wc.lpszClassName = ObjectClassName; RegisterClass(&wc); /* Since Windows 95/98/NT don't have a HWND_OBJECT class * also known as a input only window, I will create a * temporary window that isn't visible and really does nothing * except temporarily hold the child windows before they are * packed into their correct parent. */ DW_HWND_OBJECT = CreateWindow(ObjectClassName, TEXT("HWND_OBJECT"), 0, 0, 0, 0, 0, HWND_DESKTOP, NULL, DWInstance, NULL); 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; #ifdef BUILD_EDGE /* Check if Microsoft Edge (Chromium) is installed */ if (_DW_EDGE_DETECTED = _dw_edge_detect()) { wc.lpfnWndProc = (WNDPROC)_edgeWindowProc; } else #endif { wc.lpfnWndProc = (WNDPROC)_browserWindowProc; } RegisterClass(&wc); #endif /* Create a tooltip. */ hwndTooltip = CreateWindowEx(WS_EX_TOPMOST, TOOLTIPS_CLASS, NULL, WS_POPUP | TTS_NOPREFIX | TTS_ALWAYSTIP, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, DW_HWND_OBJECT, NULL, DWInstance,NULL); SetWindowPos(hwndTooltip, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE | SWP_NOSIZE | SWP_NOACTIVATE); /* Create empty box data */ SetWindowLongPtr(DW_HWND_OBJECT, GWLP_USERDATA, (LONG_PTR)calloc(sizeof(Box), 1)); /* 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 ) { strcpy( _dw_alternate_temp_dir, "c:\\tmp" ); } else { strncpy( _dw_alternate_temp_dir, alttmpdir, MAX_PATH ); } #ifdef GDIPLUS /* Setup GDI+ */ si.GdiplusVersion = 1; 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; /* * Runs a message loop for Dynamic Windows. */ void API dw_main(void) { MSG msg; _dwtid = dw_thread_id(); /* 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); else { TranslateMessage(&msg); DispatchMessage(&msg); } } } /* * Causes running dw_main() to return. */ void API dw_main_quit(void) { _dw_main_running = FALSE; } /* * Runs a message loop for Dynamic Windows, for a period of milliseconds. * Parameters: * milliseconds: Number of milliseconds to run the loop for. */ void API dw_main_sleep(int milliseconds) { MSG msg; double start = (double)clock(); while(((clock() - start) / (CLOCKS_PER_SEC/1000)) <= milliseconds) { if(PeekMessage(&msg, NULL, 0, 0, PM_NOREMOVE)) { GetMessage(&msg, NULL, 0, 0); if(msg.hwnd == NULL && msg.message == WM_TIMER) _wndproc(msg.hwnd, msg.message, msg.wParam, msg.lParam); else { TranslateMessage(&msg); DispatchMessage(&msg); } } else Sleep(1); } } /* * Processes a single message iteration and returns. */ void API dw_main_iteration(void) { MSG msg; _dwtid = dw_thread_id(); if(GetMessage(&msg, NULL, 0, 0)) { if(msg.hwnd == NULL && msg.message == WM_TIMER) _wndproc(msg.hwnd, msg.message, msg.wParam, msg.lParam); else { TranslateMessage(&msg); DispatchMessage(&msg); } } } /* * Free's memory allocated by dynamic windows. * Parameters: * ptr: Pointer to dynamic windows allocated * memory to be free()'d. */ void API dw_free(void *ptr) { free(ptr); } /* * Allocates and initializes a dialog struct. * Parameters: * data: User defined data to be passed to functions. */ DWDialog * API dw_dialog_new(void *data) { DWDialog *tmp = malloc(sizeof(DWDialog)); tmp->eve = dw_event_new(); dw_event_reset(tmp->eve); tmp->data = data; tmp->done = FALSE; tmp->result = NULL; return tmp; } /* * Accepts a dialog struct and returns the given data to the * initial called of dw_dialog_wait(). * Parameters: * dialog: Pointer to a dialog struct aquired by dw_dialog_new). * result: Data to be returned by dw_dialog_wait(). */ int API dw_dialog_dismiss(DWDialog *dialog, void *result) { dialog->result = result; dw_event_post(dialog->eve); dialog->done = TRUE; return 0; } /* * Accepts a dialog struct waits for dw_dialog_dismiss() to be * called by a signal handler with the given dialog struct. * Parameters: * dialog: Pointer to a dialog struct aquired by dw_dialog_new). */ void * API dw_dialog_wait(DWDialog *dialog) { MSG msg; void *tmp; if(!dialog) return NULL; while (GetMessage(&msg,NULL,0,0)) { if(msg.hwnd == NULL && msg.message == WM_TIMER) _wndproc(msg.hwnd, msg.message, msg.wParam, msg.lParam); else { TranslateMessage(&msg); DispatchMessage(&msg); } if(dialog->done) break; } dw_event_close(&dialog->eve); tmp = dialog->result; free(dialog); return tmp; } /* * Displays a debug message on the console... * Parameters: * format: printf style format string. * ...: Additional variables for use in the format. */ void API dw_debug(char *format, ...) { va_list args; 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.. * Parameters: * title: The title of the message box. * format: printf style format string. * ...: Additional variables for use in the format. */ int API dw_messagebox(char *title, int flags, char *format, ...) { va_list args; char outbuf[1025] = { 0 }, *thisbuf = outbuf; int rc; va_start(args, format); vsnprintf(outbuf, 1024, format, args); va_end(args); rc = MessageBox(HWND_DESKTOP, UTF8toWide(thisbuf), UTF8toWide(title), flags); if(rc == IDOK) return DW_MB_RETURN_OK; else if(rc == IDYES) return DW_MB_RETURN_YES; else if(rc == IDNO) return DW_MB_RETURN_NO; else if(rc == IDCANCEL) return DW_MB_RETURN_CANCEL; else return 0; } /* * Minimizes or Iconifies a top-level window. * Parameters: * handle: The window handle to minimize. */ int API dw_window_minimize(HWND handle) { return ShowWindow(handle, SW_MINIMIZE); } /* * Makes the window topmost. * Parameters: * handle: The window handle to make topmost. */ int API dw_window_raise(HWND handle) { return SetWindowPos(handle, HWND_TOP, 0, 0, 0, 0, SWP_NOACTIVATE | SWP_NOMOVE | SWP_NOSIZE); } /* * Makes the window bottommost. * Parameters: * handle: The window handle to make bottommost. */ int API dw_window_lower(HWND handle) { return SetWindowPos(handle, HWND_BOTTOM, 0, 0, 0, 0, SWP_NOACTIVATE | SWP_NOMOVE | SWP_NOSIZE); } /* * Makes the window visible. * Parameters: * handle: The window handle to make visible. */ 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; } /* * Makes the window invisible. * Parameters: * handle: The window handle to make visible. */ int API dw_window_hide(HWND handle) { return ShowWindow(handle, SW_HIDE); } /* * Destroys a window and all of it's children. * Parameters: * handle: The window handle to destroy. */ int API dw_window_destroy(HWND handle) { HWND parent; HMENU menu; /* 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) { dw_box_unpack(handle); _free_window_memory(handle, 0); EnumChildWindows(handle, _free_window_memory, 0); } return DestroyWindow(handle); } /* Causes entire window to be invalidated and redrawn. * Parameters: * handle: Toplevel window handle to be redrawn. */ void API dw_window_redraw(HWND handle) { Box *mybox = (Box *)GetWindowLongPtr(handle, GWLP_USERDATA); if(mybox) { RECT rect; int istoplevel = (GetParent(handle) == HWND_DESKTOP); GetClientRect(handle, &rect); ShowWindow(istoplevel ? mybox->items[0].hwnd : handle, SW_HIDE); _do_resize(mybox, rect.right - rect.left, rect.bottom - rect.top); ShowWindow(istoplevel ? mybox->items[0].hwnd : handle, SW_SHOW); } } /* * Changes a window's parent to newparent. * Parameters: * handle: The window handle to destroy. * newparent: The window's new parent window. */ void API dw_window_reparent(HWND handle, HWND newparent) { SetParent(handle, newparent); } LOGFONT _get_logfont(HDC hdc, char *fontname) { char *Italic, *Bold, *myFontName = strchr(fontname, '.'); int size = atoi(fontname); LOGFONT lf = {0}; /* If we found a '.' use the location after the . */ if(myFontName) myFontName = _strdup(++myFontName); else /* Otherwise use the whole fontname and default size of 9 */ myFontName = _strdup(fontname); lf.lfHeight = -MulDiv(size ? size : 9, GetDeviceCaps(hdc, LOGPIXELSY), 72); Italic = strstr(myFontName, " Italic"); Bold = strstr(myFontName, " Bold"); lf.lfWidth = 0; lf.lfEscapement = 0; lf.lfOrientation = 0; lf.lfItalic = Italic ? TRUE : FALSE; lf.lfUnderline = 0; lf.lfStrikeOut = 0; lf.lfWeight = Bold ? FW_BOLD : FW_NORMAL; lf.lfCharSet = DEFAULT_CHARSET; lf.lfOutPrecision = 0; lf.lfClipPrecision = 0; lf.lfQuality = DEFAULT_QUALITY; lf.lfPitchAndFamily = DEFAULT_PITCH | FW_DONTCARE; if(Italic) *Italic = 0; if(Bold) *Bold = 0; _tcsncpy(lf.lfFaceName, UTF8toWide(myFontName), (sizeof(lf.lfFaceName)/sizeof(TCHAR))-1); free(myFontName); return lf; } /* Create a duplicate of an existing font handle * that is safe to call DeleteObject() on. */ HFONT _DupFontHandle(HFONT hfont) { LOGFONT lf = {0}; return GetObject(hfont, sizeof(lf), &lf) ? CreateFontIndirect(&lf) : NULL; } /* Create a font handle from specified font name.. * or return a handle to the default font. */ HFONT _acquire_font2(HDC hdc, char *fontname) { HFONT hfont = 0; if(fontname != DefaultFont && fontname[0]) { LOGFONT lf = _get_logfont(hdc, fontname); hfont = CreateFontIndirect(&lf); } if(!hfont && _DefaultFont) hfont = _DupFontHandle(_DefaultFont); if(!hfont) hfont = GetStockObject(DEFAULT_GUI_FONT); return hfont; } /* Create a font handle from specified font name.. * or return a handle to the default font. */ HFONT _acquire_font(HWND handle, char *fontname) { HDC hdc = GetDC(handle); HFONT hfont = _acquire_font2(hdc, fontname); ReleaseDC(handle, hdc); return hfont; } /* * Sets the default font used on text based widgets. * Parameters: * fontname: Font name in Dynamic Windows format. */ void API dw_font_set_default(char *fontname) { HFONT oldfont = _DefaultFont; _DefaultFont = _acquire_font(HWND_DESKTOP, fontname); if(oldfont) { DeleteObject(oldfont); } } /* Internal function to return a pointer to an item struct * 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) { int z; Item *thisitem = thisbox->items; for(z=0;z<thisbox->count;z++) { if(thisitem[z].hwnd == handle) return &thisitem[z]; } } } 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) * Ranged: 100x14 or 14x100 for vertical. * Buttons/Bitmaps: Size of text or image and border. */ void _control_size(HWND handle, int *width, int *height) { int thiswidth = 1, thisheight = 1, extrawidth = 0, extraheight = 0; TCHAR tmpbuf[100] = {0}; static char testtext[] = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"; HBITMAP hbm = 0; HICON hic = 0; ICONINFO ii = {0}; GetClassName(handle, tmpbuf, 99); /* 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) dw_font_text_extents_get(handle, NULL, buf, &thiswidth, &thisheight); else if(_tcsnicmp(tmpbuf, STATICCLASSNAME, _tcslen(STATICCLASSNAME)+1) == 0 || _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) { /* Vertical */ thiswidth = GetSystemMetrics(SM_CXVSCROLL); thisheight = 100; } else { /* Horizontal */ thiswidth = 100; thisheight = GetSystemMetrics(SM_CYHSCROLL); } } /* Spinbuttons */ else if(_tcsnicmp(tmpbuf, UPDOWN_CLASS, _tcslen(UPDOWN_CLASS)+1) == 0) { 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) minsize = 20; 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) thisheight = _DW_SCROLLED_MAX_HEIGHT; } /* Entryfields and MLE */ else if(_tcsnicmp(tmpbuf, EDITCLASSNAME, _tcslen(EDITCLASSNAME)+1) == 0 || _tcsnicmp(tmpbuf, RICHEDIT_CLASS, _tcslen(RICHEDIT_CLASS)+1) == 0 || _tcsnicmp(tmpbuf, MSFTEDIT_CLASS, _tcslen(MSFTEDIT_CLASS)+1) == 0) { LONG style = GetWindowLong(handle, GWL_STYLE); if((style & ES_MULTILINE)) { 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); } else { if(width > thiswidth) 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) thisheight = _DW_SCROLLED_MAX_HEIGHT; } else { /* Entryfield */ dw_font_text_extents_get(handle, NULL, testtext, NULL, &thisheight); thiswidth = 150; extraheight = 6; } } /* 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) thisheight = _DW_SCROLLED_MIN_HEIGHT; if(thisheight > _DW_SCROLLED_MAX_HEIGHT) thisheight = _DW_SCROLLED_MAX_HEIGHT; } /* Tree */ else if(_tcsnicmp(tmpbuf, WC_TREEVIEW, _tcslen(WC_TREEVIEW)+1)== 0) { thiswidth = (int)((_DW_SCROLLED_MAX_WIDTH + _DW_SCROLLED_MIN_WIDTH)/2); thisheight = (int)((_DW_SCROLLED_MAX_HEIGHT + _DW_SCROLLED_MIN_HEIGHT)/2); } /* Buttons */ else if(_tcsnicmp(tmpbuf, BUTTONCLASSNAME, _tcslen(BUTTONCLASSNAME)+1) == 0) { ULONG style = GetWindowLong(handle, GWL_STYLE); /* Bitmap buttons */ if(hbm) { extrawidth = 5; extraheight = 5; } /* Checkbox or radio button */ else if(style & BS_AUTOCHECKBOX || style & BS_AUTORADIOBUTTON) { extrawidth = 24; extraheight = 4; } /* Text buttons */ else { extrawidth = 8; extraheight = 8; } } else if(_tcsnicmp(tmpbuf, StatusbarClassName, _tcslen(StatusbarClassName)+1) == 0) { 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); } /* * Sets the font used by a specified window (widget) handle. * Parameters: * handle: The window (widget) handle. * fontname: Name and size of the font in the form "size.fontname" */ int API dw_window_set_font(HWND handle, char *fontname) { HFONT hfont, oldfont; ColorInfo *cinfo; TCHAR tmpbuf[100] = {0}; cinfo = (ColorInfo *)GetWindowLongPtr(handle, GWLP_USERDATA); GetClassName(handle, tmpbuf, 99); if ( _tcsnicmp( tmpbuf, FRAMECLASSNAME, _tcslen(FRAMECLASSNAME)+1) == 0 ) { /* groupbox */ Box *thisbox = (Box *)GetWindowLongPtr( handle, GWLP_USERDATA ); if ( thisbox && thisbox->grouphwnd != (HWND)NULL ) { handle = thisbox->grouphwnd; } } /* This needs to be after we get the correct handle */ oldfont = (HFONT)SendMessage(handle, WM_GETFONT, 0, 0); hfont = _acquire_font(handle, fontname); if(hfont && fontname) { if(cinfo) { strcpy(cinfo->fontname, fontname); if(!oldfont) oldfont = cinfo->hfont; cinfo->hfont = hfont; } else if(cinfo = calloc(1, sizeof(ColorInfo))) { cinfo->fore = cinfo->back = -1; strncpy(cinfo->fontname, fontname, 127); cinfo->pOldProc = SubclassWindow(handle, _colorwndproc); SetWindowLongPtr(handle, GWLP_USERDATA, (LONG_PTR)cinfo); } } /* 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; } return DW_ERROR_UNKNOWN; } /* Allows the user to choose a font using the system's font chooser dialog. * Parameters: * currfont: current font * Returns: * A malloced buffer with the selected font or NULL on error. */ char * API dw_font_choose(char *currfont) { CHOOSEFONT cf = { 0 }; LOGFONT lf = { 0 }; char *str = NULL; char *bold = ""; char *italic = ""; if(currfont && *currfont) lf = _get_logfont(NULL, currfont); cf.lStructSize = sizeof(cf); cf.Flags = CF_SCREENFONTS | CF_INITTOLOGFONTSTRUCT; cf.lpLogFont = &lf; if(ChooseFont(&cf)) { str = (char *)calloc( 101, 1 ); if ( str ) { int height; HDC hdc = GetDC(NULL); if ( lf.lfWeight > FW_MEDIUM ) bold = " Bold"; if ( lf.lfItalic ) italic = " Italic"; height = MulDiv(abs(lf.lfHeight), 72, GetDeviceCaps (hdc, LOGPIXELSY)); ReleaseDC(NULL, hdc); _snprintf( str, 100, "%d.%s%s%s", height, WideToUTF8(lf.lfFaceName), bold, italic ); } } return str; } /* * Gets the font used by a specified window (widget) handle. * Parameters: * handle: The window (widget) handle. * fontname: Name and size of the font in the form "size.fontname" */ char * API dw_window_get_font(HWND handle) { HFONT oldfont = NULL; char *str = NULL; char *bold = ""; char *italic = ""; LOGFONT lf = { 0 }; Box *thisbox; TCHAR tmpbuf[100] = {0}; GetClassName(handle, tmpbuf, 99); if ( _tcsnicmp( tmpbuf, FRAMECLASSNAME, _tcslen(FRAMECLASSNAME)+1) == 0 ) { /* groupbox */ thisbox = (Box *)GetWindowLongPtr( handle, GWLP_USERDATA ); if ( thisbox && thisbox->grouphwnd != (HWND)NULL ) { handle = thisbox->grouphwnd; } } oldfont = (HFONT)SendMessage(handle, WM_GETFONT, 0, 0); if ( GetObject( oldfont, sizeof(lf), &lf ) ) { str = (char *)calloc( 100, 1 ); if ( str ) { int height; HDC hdc = GetDC(handle); if ( lf.lfWeight > FW_MEDIUM ) bold = " Bold"; if ( lf.lfItalic ) italic = " Italic"; height = MulDiv(abs(lf.lfHeight), 72, GetDeviceCaps (hdc, LOGPIXELSY)); ReleaseDC(handle, hdc); _snprintf( str, 100, "%d.%s%s%s", height, WideToUTF8(lf.lfFaceName), bold, italic ); } } if ( oldfont ) DeleteObject( oldfont ); return str; } /* * Sets the colors used by a specified window (widget) handle. * Parameters: * handle: The window (widget) handle. * fore: Foreground color in RGB format. * back: Background color in RGB format. */ int API dw_window_set_color(HWND handle, ULONG fore, ULONG back) { ColorInfo *cinfo; Box *thisbox; TCHAR tmpbuf[100] = {0}; cinfo = (ColorInfo *)GetWindowLongPtr(handle, GWLP_USERDATA); GetClassName(handle, tmpbuf, 99); if(_tcsnicmp(tmpbuf, WC_LISTVIEW, _tcslen(WC_LISTVIEW))==0) { cinfo->fore = fore = _internal_color(fore); cinfo->back = back = _internal_color(back); ListView_SetTextColor(handle, RGB(DW_RED_VALUE(fore), DW_GREEN_VALUE(fore), DW_BLUE_VALUE(fore))); ListView_SetTextBkColor(handle, RGB(DW_RED_VALUE(back), DW_GREEN_VALUE(back), DW_BLUE_VALUE(back))); ListView_SetBkColor(handle, RGB(DW_RED_VALUE(back), DW_GREEN_VALUE(back), DW_BLUE_VALUE(back))); InvalidateRgn(handle, NULL, TRUE); return TRUE; } else if ( _tcsnicmp( tmpbuf, FRAMECLASSNAME, _tcslen(FRAMECLASSNAME)) == 0 ) { /* groupbox */ thisbox = (Box *)GetWindowLongPtr( handle, GWLP_USERDATA ); if ( thisbox && thisbox->grouphwnd != (HWND)NULL ) { thisbox->cinfo.fore = fore; thisbox->cinfo.back = back; } } if(cinfo) { cinfo->fore = fore; cinfo->back = back; } else if(cinfo = calloc(1, sizeof(ColorInfo))) { cinfo->fore = fore; cinfo->back = back; cinfo->pOldProc = SubclassWindow(handle, _colorwndproc); SetWindowLongPtr(handle, GWLP_USERDATA, (LONG_PTR)cinfo); } InvalidateRgn(handle, NULL, TRUE); return TRUE; } /* * Sets the font used by a specified window (widget) handle. * Parameters: * handle: The window (widget) handle. * border: Size of the window border in pixels. */ int API dw_window_set_border(HWND handle, int border) { return 0; } /* * Captures the mouse input to this window. * Parameters: * handle: Handle to receive mouse input. */ void API dw_window_capture(HWND handle) { SetCapture(handle); } /* * Releases previous mouse capture. */ void API dw_window_release(void) { ReleaseCapture(); } /* * Changes the appearance of the mouse pointer. * Parameters: * handle: Handle to widget for which to change. * cursortype: ID of the pointer you want. */ void API dw_window_set_pointer(HWND handle, int pointertype) { HCURSOR cursor = pointertype < 65536 ? LoadCursor(NULL, MAKEINTRESOURCE(pointertype)) : (HCURSOR)(intptr_t)pointertype; if(!pointertype) dw_window_set_data(handle, "_dw_cursor", 0); else { dw_window_set_data(handle, "_dw_cursor", DW_POINTER(cursor)); SetCursor(cursor); } } /* * Create a new Window Frame. * Parameters: * owner: The Owner's window handle or HWND_DESKTOP. * title: The Window title. * flStyle: Style flags, see the DW reference. */ HWND API dw_window_new(HWND hwndOwner, char *title, ULONG flStyle) { 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; newbox->vsize = newbox->hsize = SIZEEXPAND; newbox->cinfo.fore = newbox->cinfo.back = -1; if(!(flStyle & WS_CAPTION)) flStyle |= WS_POPUPWINDOW; if(flStyle & DW_FCF_TASKLIST || flStyle & WS_VSCROLL /* This is deprecated and should go away in version 3? */) { hwndframe = CreateWindowEx(flStyleEx, ClassName, UTF8toWide(title), (flStyle | WS_CLIPCHILDREN) & 0xffdf0000, CW_USEDEFAULT, CW_USEDEFAULT, 0, 0, hwndOwner, NULL, DWInstance, NULL); } else { flStyleEx |= WS_EX_TOOLWINDOW; hwndframe = CreateWindowEx(flStyleEx, ClassName, UTF8toWide(title), (flStyle | WS_CLIPCHILDREN) & 0xffff0000, CW_USEDEFAULT, CW_USEDEFAULT, 0, 0, hwndOwner, NULL, DWInstance, NULL); } SetWindowLongPtr(hwndframe, GWLP_USERDATA, (LONG_PTR)newbox); if(hwndOwner) SetParent(hwndframe, hwndOwner); #ifdef AEROGLASS /* Attempt to enable Aero glass background on the entire window */ if(_DwmExtendFrameIntoClientArea && _dw_composition && (flStyle & DW_FCF_COMPOSITED)) { SetLayeredWindowAttributes(hwndframe, _dw_transparencykey, 0, LWA_COLORKEY); _DwmExtendFrameIntoClientArea(hwndframe, &mar); } #endif return hwndframe; } /* * Create a new Box to be packed. * Parameters: * type: Either DW_VERT (vertical) or DW_HORZ (horizontal). * pad: Number of pixels to pad around the box. */ HWND API dw_box_new(int type, int pad) { Box *newbox = calloc(sizeof(Box), 1); HWND hwndframe; newbox->pad = pad; newbox->type = type; newbox->count = 0; newbox->grouphwnd = (HWND)NULL; newbox->cinfo.fore = newbox->cinfo.back = -1; hwndframe = CreateWindow(FRAMECLASSNAME, NULL, WS_VISIBLE | WS_CHILD | WS_CLIPCHILDREN, 0,0,0,0, DW_HWND_OBJECT, NULL, DWInstance, NULL); newbox->cinfo.pOldProc = SubclassWindow(hwndframe, _colorwndproc); newbox->cinfo.fore = newbox->cinfo.back = -1; SetWindowLongPtr(hwndframe, GWLP_USERDATA, (LONG_PTR)newbox); return hwndframe; } /* * Create a new scroll Box to be packed. * Parameters: * type: Either DW_VERT (vertical) or DW_HORZ (horizontal). * pad: Number of pixels to pad around the box. */ HWND API dw_scrollbox_new(int type, int pad) { ColorInfo *cinfo = calloc(sizeof(ColorInfo), 1); HWND hwndframe, box = dw_box_new(type, pad); HWND tmpbox = dw_box_new(DW_VERT, 0); dw_box_pack_start(tmpbox, box, 1, 1, TRUE, TRUE, 0); cinfo->fore = cinfo->back = -1; hwndframe = CreateWindow(ScrollClassName, NULL, WS_VISIBLE | WS_CHILD | WS_CLIPCHILDREN | WS_VSCROLL | WS_HSCROLL, 0,0,0,0, DW_HWND_OBJECT, NULL, DWInstance, NULL); cinfo->buddy = box; cinfo->combo = tmpbox; SetParent(tmpbox, hwndframe); SetWindowLongPtr(hwndframe, GWLP_USERDATA, (LONG_PTR)cinfo); return hwndframe; } /* * Returns the position of the scrollbar in the scrollbox * Parameters: * handle: Handle to the scrollbox to be queried. * orient: The vertical or horizontal scrollbar. */ int API dw_scrollbox_get_pos( HWND handle, int orient ) { SCROLLINFO si; int bar = SB_HORZ; if(orient == DW_VERT) { bar = SB_VERT; } si.cbSize = sizeof(SCROLLINFO); si.fMask = SIF_POS; /* Get the current scroll positions */ if(!GetScrollInfo(handle, bar, &si)) { return -1; } return si.nPos; } /* * Gets the range for the scrollbar in the scrollbox. * Parameters: * handle: Handle to the scrollbox to be queried. * orient: The vertical or horizontal scrollbar. */ int API dw_scrollbox_get_range( HWND handle, int orient ) { SCROLLINFO si; int bar = SB_HORZ; if(orient == DW_VERT) { bar = SB_VERT; } si.cbSize = sizeof(SCROLLINFO); si.fMask = SIF_RANGE; /* Get the current scroll positions */ if(!GetScrollInfo(handle, bar, &si)) { return -1; } return si.nMax; } /* * Create a new Group Box to be packed. * Parameters: * type: Either DW_VERT (vertical) or DW_HORZ (horizontal). * pad: Number of pixels to pad around the box. * title: Text to be displayined in the group outline. */ HWND API dw_groupbox_new(int type, int pad, char *title) { Box *newbox = calloc(sizeof(Box), 1); HWND hwndframe; newbox->pad = pad; newbox->type = type; newbox->count = 0; newbox->cinfo.fore = newbox->cinfo.back = -1; hwndframe = CreateWindow(FRAMECLASSNAME, NULL, WS_VISIBLE | WS_CHILD, 0,0,0,0, DW_HWND_OBJECT, NULL, DWInstance, NULL); newbox->grouphwnd = CreateWindow(BUTTONCLASSNAME, UTF8toWide(title), WS_CHILD | BS_GROUPBOX | WS_VISIBLE | WS_CLIPCHILDREN, 0,0,0,0, hwndframe, NULL, DWInstance, NULL); /* Disable visual styles by default */ if(_SetWindowTheme) _SetWindowTheme(newbox->grouphwnd, L"", L""); SetWindowLongPtr(hwndframe, GWLP_USERDATA, (LONG_PTR)newbox); newbox->cinfo.pOldProc = SubclassWindow(hwndframe, _colorwndproc); dw_window_set_font(hwndframe, DefaultFont); return hwndframe; } /* * Create a new MDI Frame to be packed. * Parameters: * id: An ID to be used with dw_window_from_id or 0L. */ HWND API dw_mdi_new(unsigned long id) { CLIENTCREATESTRUCT ccs; HWND hwndframe; ccs.hWindowMenu = NULL; ccs.idFirstChild = 0; hwndframe = CreateWindow(TEXT("MDICLIENT"), NULL, WS_VISIBLE | WS_CHILD | WS_CLIPSIBLINGS, 0,0,0,0, DW_HWND_OBJECT, (HMENU)(uintptr_t)id, DWInstance, &ccs); return hwndframe; } /* * Create a new HTML browser frame to be packed. * Parameters: * id: An ID to be used with dw_window_from_id or 0L. */ HWND API dw_html_new(unsigned long id) { #if (defined(BUILD_DLL) || defined(BUILD_HTML)) return CreateWindow(BrowserClassName, NULL, WS_VISIBLE | WS_CHILD | WS_CLIPSIBLINGS, 0,0,0,0, DW_HWND_OBJECT, (HMENU)(uintptr_t)id, DWInstance, NULL); #else dw_debug("HTML widget not available; Support not enabled in this build.\n"); return 0; #endif } #if (defined(BUILD_DLL) || defined(BUILD_HTML)) void _dw_html_action(HWND hwnd, int action); int _dw_html_raw(HWND hwnd, char *string); int _dw_html_url(HWND hwnd, char *url); #ifdef BUILD_EDGE void _dw_edge_action(HWND hwnd, int action); int _dw_edge_raw(HWND hwnd, LPCWSTR string); int _dw_edge_url(HWND hwnd, LPCWSTR url); #endif #endif /* * Causes the embedded HTML widget to take action. * Parameters: * handle: Handle to the window. * action: One of the DW_HTML_* constants. */ void API dw_html_action(HWND handle, int action) { #if (defined(BUILD_DLL) || defined(BUILD_HTML)) #ifdef BUILD_EDGE if (_DW_EDGE_DETECTED) _dw_edge_action(handle, action); else #endif _dw_html_action(handle, action); #endif } /* * Render raw HTML code in the embedded HTML widget.. * Parameters: * handle: Handle to the window. * string: String buffer containt HTML code to * be rendered. * Returns: * DW_ERROR_NONE (0) on success. */ int API dw_html_raw(HWND handle, char *string) { #if (defined(BUILD_DLL) || defined(BUILD_HTML)) #ifdef BUILD_EDGE if (_DW_EDGE_DETECTED) return _dw_edge_raw(handle, UTF8toWide(string)); #endif return _dw_html_raw(handle, string); #else return DW_ERROR_GENERAL; #endif } /* * Render file or web page in the embedded HTML widget.. * Parameters: * handle: Handle to the window. * url: Universal Resource Locator of the web or * file object to be rendered. * Returns: * DW_ERROR_NONE (0) on success. */ int API dw_html_url(HWND handle, char *url) { #if (defined(BUILD_DLL) || defined(BUILD_HTML)) #if BUILD_EDGE if (_DW_EDGE_DETECTED) return _dw_edge_url(handle, UTF8toWide(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: * handle: Handle to the HTML window. * script: Javascript code to execute. * scriptdata: Data passed to the signal handler. * Notes: A DW_SIGNAL_HTML_RESULT event will be raised with scriptdata. * Returns: * DW_ERROR_NONE (0) on success. */ int dw_html_javascript_run(HWND handle, char *script, void *scriptdata) { #if (defined(BUILD_DLL) || defined(BUILD_HTML)) #if BUILD_EDGE if (_DW_EDGE_DETECTED) return _dw_edge_javascript_run(handle, UTF8toWide(script), scriptdata); #endif return _dw_html_javascript_run(handle, script, scriptdata); #else return DW_ERROR_UNKNOWN; #endif } /* * Create a bitmap object to be packed. * Parameters: * id: An ID to be used with dw_window_from_id or 0L. */ HWND API dw_bitmap_new(ULONG id) { return CreateWindow(STATICCLASSNAME, NULL, SS_BITMAP | SS_CENTERIMAGE | WS_VISIBLE | WS_CHILD | WS_CLIPCHILDREN, 0,0,0,0, DW_HWND_OBJECT, (HMENU)(uintptr_t)id, DWInstance, NULL); } /* * Create a notebook object to be packed. * Parameters: * id: An ID to be used for getting the resource from the * resource file. */ HWND API dw_notebook_new(ULONG id, int top) { ULONG flags = 0; HWND tmp; NotebookPage **array = calloc(256, sizeof(NotebookPage *)); ColorInfo *cinfo = calloc(1, sizeof(ColorInfo)); if(!top) flags = TCS_BOTTOM; tmp = CreateWindow(WC_TABCONTROL, NULL, WS_VISIBLE | WS_CHILD | WS_CLIPCHILDREN | flags, 0,0,0,0, DW_HWND_OBJECT, (HMENU)(uintptr_t)id, DWInstance, NULL); cinfo->fore = cinfo->back = -1; cinfo->pOldProc = SubclassWindow(tmp, _simplewndproc); SetWindowLongPtr(tmp, GWLP_USERDATA, (LONG_PTR)cinfo); dw_window_set_data(tmp, "_dw_array", (void *)array); dw_window_set_font(tmp, DefaultFont); return tmp; } /* * Create a menu object to be popped up. * Parameters: * id: An ID to be used for getting the resource from the * resource file. */ HMENUI API dw_menu_new(ULONG id) { return (HMENUI)CreatePopupMenu(); } /* * Create a menubar on a window. * Parameters: * location: Handle of a window frame to be attached to. */ HMENUI API dw_menubar_new(HWND location) { HMENUI tmp; MENUINFO mi; tmp = (HMENUI)CreateMenu(); mi.cbSize = sizeof(MENUINFO); mi.fMask = MIM_MENUDATA; mi.dwMenuData = (ULONG_PTR)1; SetMenuInfo( (HMENU)tmp, &mi ); dw_window_set_data(location, "_dw_menu", (void *)tmp); SetMenu(location, (HMENU)tmp); return location; } /* * Destroys a menu created with dw_menubar_new or dw_menu_new. * Parameters: * menu: Handle of a menu. */ void API dw_menu_destroy(HMENUI *menu) { if(menu) { HMENU mymenu = (HMENU)*menu; if(IsWindow((HWND)mymenu) && !IsMenu(mymenu)) mymenu = (HMENU)dw_window_get_data((HWND)mymenu, "_dw_menu"); if(IsMenu(mymenu)) DestroyMenu(mymenu); } } /* Internal function to make sure menu ID isn't in use */ int _menuid_allocated(int id) { SignalHandler *tmp = Root; while(tmp) { if(tmp->id == id) return TRUE; tmp = tmp->next; } return FALSE; } /* * Adds a menuitem or submenu to an existing menu. * Parameters: * menu: The handle to the existing menu. * title: The title text on the menu item to be added. * id: An ID to be used for message passing. * end: If TRUE memu is positioned at the end of the menu. * check: If TRUE menu is "check"able. * flags: Extended attributes to set on the menu. * submenu: Handle to an existing menu to be a submenu or NULL. */ HWND API dw_menu_append_item(HMENUI menux, char *title, ULONG id, ULONG flags, int end, int check, HMENUI submenu) { MENUITEMINFO mii; HMENU mymenu = (HMENU)menux; char buffer[31] = {0}; int is_checked, is_disabled; char *menutitle = title; /* * Check if this is a menubar; if so get the menu object * for the menubar */ if (IsWindow(menux) && !IsMenu(mymenu)) mymenu = (HMENU)dw_window_get_data(menux, "_dw_menu"); memset( &mii, 0, sizeof(mii) ); mii.cbSize = sizeof(MENUITEMINFO); mii.fMask = MIIM_ID | MIIM_SUBMENU | MIIM_TYPE | MIIM_STATE; /* 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 == '~') *tmp = '&'; 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) { static ULONG menuid = 30000; do { menuid++; if(menuid > 60000) menuid = 30000; } while(_menuid_allocated(menuid)); id = menuid; } mii.fType = MFT_STRING; } else mii.fType = MFT_SEPARATOR; /* * Handle flags */ is_checked = (flags & DW_MIS_CHECKED) ? 1 : 0; if ( is_checked ) mii.fState |= MFS_CHECKED; else mii.fState |= MFS_UNCHECKED; is_disabled = (flags & DW_MIS_DISABLED) ? 1 : 0; if ( is_disabled ) mii.fState |= MFS_DISABLED; else mii.fState |= MFS_ENABLED; mii.wID = id; if (IsMenu((HMENU)submenu)) mii.hSubMenu = (HMENU)submenu; else mii.hSubMenu = 0; mii.dwTypeData = UTF8toWide(menutitle); mii.cch = (UINT)_tcslen(mii.dwTypeData); InsertMenuItem(mymenu, 65535, TRUE, &mii); _snprintf(buffer, 30, "_dw_id%ld", id); dw_window_set_data( DW_HWND_OBJECT, buffer, DW_POINTER(mymenu) ); _snprintf(buffer, 30, "_dw_checkable%ld", id); dw_window_set_data( DW_HWND_OBJECT, buffer, DW_INT_TO_POINTER(check) ); _snprintf(buffer, 30, "_dw_ischecked%ld", id); dw_window_set_data( DW_HWND_OBJECT, buffer, DW_INT_TO_POINTER(is_checked) ); _snprintf(buffer, 30, "_dw_isdisabled%ld", id); dw_window_set_data( DW_HWND_OBJECT, buffer, DW_INT_TO_POINTER(is_disabled) ); if (submenu) { MENUINFO mi; mi.cbSize = sizeof(MENUINFO); mi.fMask = MIM_MENUDATA; mi.dwMenuData = (ULONG_PTR)mymenu; SetMenuInfo( (HMENU)submenu, &mi ); } if (IsWindow(menux) && !IsMenu((HMENU)menux)) DrawMenuBar(menux); return (HWND)(uintptr_t)id; } /* * Sets the state of a menu item check. * Deprecated: use dw_menu_item_set_state() * Parameters: * menu: The handle to the existing menu. * id: Menuitem id. * check: TRUE for checked FALSE for not checked. */ void API dw_menu_item_set_check(HMENUI menux, unsigned long id, int check) { MENUITEMINFO mii; HMENU mymenu = (HMENU)menux; char buffer[30]; if (IsWindow(menux) && !IsMenu(mymenu)) mymenu = (HMENU)dw_window_get_data(menux, "_dw_menu"); /* * Get the current state of the menu item in case it already has some other state set on it */ memset( &mii, 0, sizeof(mii) ); GetMenuItemInfo( mymenu, id, FALSE, &mii); mii.cbSize = sizeof(MENUITEMINFO); mii.fMask = MIIM_STATE | MIIM_CHECKMARKS; if (check) mii.fState |= MFS_CHECKED; else mii.fState |= MFS_UNCHECKED; SetMenuItemInfo( mymenu, id, FALSE, &mii ); /* * Keep our internal state consistent */ _snprintf( buffer, 30, "_dw_ischecked%ld", id ); dw_window_set_data( DW_HWND_OBJECT, buffer, DW_INT_TO_POINTER(check) ); } /* * Sets the state of a menu item. * Parameters: * menu: The handle to the existing menu. * id: Menuitem id. * flags: DW_MIS_ENABLED/DW_MIS_DISABLED * DW_MIS_CHECKED/DW_MIS_UNCHECKED */ void API dw_menu_item_set_state( HMENUI menux, unsigned long id, unsigned long state) { MENUITEMINFO mii; HMENU mymenu = (HMENU)menux; char buffer1[31] = {0},buffer2[31] = {0}; int check; int disabled; if (IsWindow(menux) && !IsMenu(mymenu)) mymenu = (HMENU)dw_window_get_data(menux, "_dw_menu"); _snprintf( buffer1, 30, "_dw_ischecked%ld", id ); check = DW_POINTER_TO_INT(dw_window_get_data( DW_HWND_OBJECT, buffer1 )); _snprintf( buffer2, 30, "_dw_isdisabled%ld", id ); disabled = DW_POINTER_TO_INT(dw_window_get_data( DW_HWND_OBJECT, buffer2 )); memset( &mii, 0, sizeof(mii) ); mii.cbSize = sizeof(MENUITEMINFO); mii.fMask = MIIM_STATE | MIIM_CHECKMARKS; if ( (state & DW_MIS_CHECKED) || (state & DW_MIS_UNCHECKED) ) { /* * If we are changing state of "checked" base our setting on the passed flag... */ if ( state & DW_MIS_CHECKED ) { mii.fState |= MFS_CHECKED; check = 1; } else { mii.fState |= MFS_UNCHECKED; check = 0; } } else { /* * ...otherwise base our setting on the current "checked" state. */ if ( check ) { mii.fState |= MFS_CHECKED; } else { mii.fState |= MFS_UNCHECKED; } } if ( (state & DW_MIS_ENABLED) || (state & DW_MIS_DISABLED) ) { if ( state & DW_MIS_DISABLED ) { mii.fState |= MFS_DISABLED; disabled = 1; } else { mii.fState |= MFS_ENABLED; disabled = 0; } } else { /* * ...otherwise base our setting on the current "checked" state. */ if ( disabled ) { mii.fState |= MFS_DISABLED; } else { mii.fState |= MFS_ENABLED; } } SetMenuItemInfo( mymenu, id, FALSE, &mii ); /* * Keep our internal checked state consistent */ dw_window_set_data( DW_HWND_OBJECT, buffer1, DW_INT_TO_POINTER(check) ); dw_window_set_data( DW_HWND_OBJECT, buffer2, DW_INT_TO_POINTER(disabled) ); } /* * 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; } /* * Pops up a context menu at given x and y coordinates. * Parameters: * menu: The handle the the existing menu. * parent: Handle to the window initiating the popup. * x: X coordinate. * y: Y coordinate. */ void API dw_menu_popup(HMENUI *menu, HWND parent, int x, int y) { if(menu) { HMENU mymenu = (HMENU)*menu; if(IsWindow(*menu) && !IsMenu(mymenu)) mymenu = (HMENU)dw_window_get_data(*menu, "_dw_menu"); popup = parent; TrackPopupMenu(mymenu, 0, x, y, 0, parent, NULL); PostMessage(DW_HWND_OBJECT, WM_USER+5, (LPARAM)mymenu, 0); } } /* * Create a container object to be packed. * Parameters: * id: An ID to be used for getting the resource from the * resource file. */ HWND API dw_container_new(ULONG id, int multi) { HWND tmp = CreateWindow(WC_LISTVIEW, NULL, WS_VISIBLE | WS_CHILD | (multi ? 0 : LVS_SINGLESEL) | LVS_REPORT | LVS_SHOWSELALWAYS | LVS_SHAREIMAGELISTS | WS_BORDER | WS_CLIPCHILDREN, 0,0,0,0, DW_HWND_OBJECT, (HMENU)(uintptr_t)id, DWInstance, NULL); ContainerInfo *cinfo = (ContainerInfo *)calloc(1, sizeof(ContainerInfo)); if(!cinfo) { DestroyWindow(tmp); return NULL; } cinfo->cinfo.pOldProc = SubclassWindow(tmp, _containerwndproc); cinfo->cinfo.fore = cinfo->cinfo.back = -1; cinfo->odd = cinfo->even = DW_RGB_TRANSPARENT; SetWindowLongPtr(tmp, GWLP_USERDATA, (LONG_PTR)cinfo); dw_window_set_font(tmp, DefaultFont); /* If we are running XP or higher... */ if(IS_XPPLUS) { /* Enable double buffering to prevent flicker */ ListView_SetExtendedListViewStyleEx(tmp, LVS_EX_DOUBLEBUFFER, LVS_EX_DOUBLEBUFFER); } return tmp; } /* * Create a tree object to be packed. * Parameters: * id: An ID to be used for getting the resource from the * resource file. */ HWND API dw_tree_new(ULONG id) { HWND tmp = CreateWindow(WC_TREEVIEW, NULL, WS_VISIBLE | WS_CHILD | TVS_HASLINES | TVS_SHOWSELALWAYS | TVS_HASBUTTONS | TVS_LINESATROOT | WS_BORDER | WS_CLIPCHILDREN, 0,0,0,0, DW_HWND_OBJECT, (HMENU)(uintptr_t)id, DWInstance, NULL); ContainerInfo *cinfo = (ContainerInfo *)calloc(1, sizeof(ContainerInfo)); TreeView_SetItemHeight(tmp, 16); if(!cinfo) { DestroyWindow(tmp); return NULL; } cinfo->cinfo.pOldProc = SubclassWindow(tmp, _treewndproc); cinfo->cinfo.fore = cinfo->cinfo.back = -1; cinfo->odd = cinfo->even = DW_RGB_TRANSPARENT; SetWindowLongPtr(tmp, GWLP_USERDATA, (LONG_PTR)cinfo); dw_window_set_font(tmp, DefaultFont); return tmp; } /* * Returns the current X and Y coordinates of the mouse pointer. * Parameters: * x: Pointer to variable to store X coordinate. * y: Pointer to variable to store Y coordinate. */ void API dw_pointer_query_pos(long *x, long *y) { POINT ptl; GetCursorPos(&ptl); if(x && y) { *x = ptl.x; *y = ptl.y; } } /* * Sets the X and Y coordinates of the mouse pointer. * Parameters: * x: X coordinate. * y: Y coordinate. */ void API dw_pointer_set_pos(long x, long y) { SetCursorPos(x, y); } /* * Create a new static text window (widget) to be packed. * Parameters: * text: The text to be display by the static text widget. * id: An ID to be used with dw_window_from_id() or 0L. */ HWND API dw_text_new(char *text, ULONG id) { HWND tmp = CreateWindow(STATICCLASSNAME, UTF8toWide(text), SS_NOPREFIX | SS_NOTIFY | SS_LEFTNOWORDWRAP | WS_VISIBLE | WS_CHILD | WS_CLIPCHILDREN, 0,0,0,0, DW_HWND_OBJECT, (HMENU)(uintptr_t)id, DWInstance, NULL); #ifdef AEROGLASS ColorInfo *cinfo = calloc(1, sizeof(ColorInfo)); 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; } /* * Create a new status text window (widget) to be packed. * Parameters: * text: The text to be display by the static text widget. * id: An ID to be used with dw_window_from_id() or 0L. */ HWND API dw_status_text_new(char *text, ULONG id) { HWND tmp = CreateWindow(StatusbarClassName, UTF8toWide(text), WS_VISIBLE | WS_CHILD | WS_CLIPCHILDREN, 0,0,0,0, DW_HWND_OBJECT, (HMENU)(uintptr_t)id, DWInstance, NULL); dw_window_set_font(tmp, DefaultFont); return tmp; } /* * Create a new Multiline Editbox window (widget) to be packed. * Parameters: * id: An ID to be used with dw_window_from_id() or 0L. */ HWND API dw_mle_new(ULONG id) { HWND tmp = CreateWindowEx(WS_EX_CLIENTEDGE, hmsftedit ? MSFTEDIT_CLASS : (hrichedit ? RICHEDIT_CLASS : EDITCLASSNAME), NULL, WS_VISIBLE | WS_BORDER | WS_VSCROLL | ES_MULTILINE | ES_WANTRETURN | WS_CHILD | WS_CLIPCHILDREN, 0,0,0,0, DW_HWND_OBJECT, (HMENU)(uintptr_t)id, DWInstance, NULL); ContainerInfo *cinfo = (ContainerInfo *)calloc(1, sizeof(ContainerInfo)); if(!cinfo) { DestroyWindow(tmp); return NULL; } cinfo->cinfo.pOldProc = SubclassWindow(tmp, _simplewndproc); cinfo->cinfo.fore = cinfo->cinfo.back = -1; cinfo->odd = cinfo->even = DW_RGB_TRANSPARENT; SetWindowLongPtr(tmp, GWLP_USERDATA, (LONG_PTR)cinfo); dw_window_set_font(tmp, DefaultFont); return tmp; } /* * Create a new Entryfield window (widget) to be packed. * Parameters: * text: The default text to be in the entryfield widget. * id: An ID to be used with dw_window_from_id() or 0L. */ HWND API dw_entryfield_new(char *text, ULONG id) { HWND tmp = CreateWindowEx(WS_EX_CLIENTEDGE, EDITCLASSNAME, UTF8toWide(text), ES_WANTRETURN | WS_CHILD | WS_BORDER | ES_AUTOHSCROLL | WS_VISIBLE | WS_CLIPCHILDREN, 0,0,0,0, DW_HWND_OBJECT, (HMENU)(uintptr_t)id, DWInstance, NULL); ColorInfo *cinfo = calloc(1, sizeof(ColorInfo)); cinfo->back = cinfo->fore = -1; cinfo->pOldProc = SubclassWindow(tmp, _colorwndproc); SetWindowLongPtr(tmp, GWLP_USERDATA, (LONG_PTR)cinfo); dw_window_set_font(tmp, DefaultFont); return tmp; } /* * Create a new Entryfield passwird window (widget) to be packed. * Parameters: * text: The default text to be in the entryfield widget. * id: An ID to be used with dw_window_from_id() or 0L. */ HWND API dw_entryfield_password_new(char *text, ULONG id) { HWND tmp = CreateWindowEx(WS_EX_CLIENTEDGE, EDITCLASSNAME, UTF8toWide(text), ES_WANTRETURN | WS_CHILD | ES_PASSWORD | WS_BORDER | WS_VISIBLE | ES_AUTOHSCROLL | WS_CLIPCHILDREN, 0,0,0,0, DW_HWND_OBJECT, (HMENU)(uintptr_t)id, DWInstance, NULL); ColorInfo *cinfo = calloc(1, sizeof(ColorInfo)); cinfo->back = cinfo->fore = -1; cinfo->pOldProc = SubclassWindow(tmp, _colorwndproc); SetWindowLongPtr(tmp, GWLP_USERDATA, (LONG_PTR)cinfo); dw_window_set_font(tmp, DefaultFont); return tmp; } BOOL CALLBACK _subclass_child(HWND handle, LPARAM lp) { ColorInfo *cinfo = (ColorInfo *)lp; if(cinfo) { cinfo->buddy = handle; cinfo->pOldProc = SubclassWindow(handle, _colorwndproc); SetWindowLongPtr(handle, GWLP_USERDATA, (LONG_PTR)cinfo); } return FALSE; } /* * Create a new Combobox window (widget) to be packed. * Parameters: * text: The default text to be in the combpbox widget. * id: An ID to be used with dw_window_from_id() or 0L. */ HWND API dw_combobox_new(char *text, ULONG id) { HWND tmp = CreateWindow(COMBOBOXCLASSNAME, UTF8toWide(text), WS_CHILD | CBS_DROPDOWN | WS_VSCROLL | WS_CLIPCHILDREN | CBS_AUTOHSCROLL | WS_VISIBLE, 0,0,0,0, DW_HWND_OBJECT, (HMENU)(uintptr_t)id, DWInstance, NULL); ColorInfo *cinfo = (ColorInfo *)calloc(1, sizeof(ColorInfo)); ColorInfo *cinfo2 = (ColorInfo *)calloc(1, sizeof(ColorInfo)); if(!cinfo || !cinfo2) { if(cinfo) free(cinfo); if(cinfo2) free(cinfo2); DestroyWindow(tmp); return NULL; } 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; } /* * Create a new button window (widget) to be packed. * Parameters: * text: The text to be display by the static text widget. * id: An ID to be used with dw_window_from_id() or 0L. */ HWND API dw_button_new(char *text, ULONG id) { ColorInfo *cinfo = calloc(1, sizeof(ColorInfo)); HWND tmp = CreateWindow(BUTTONCLASSNAME, UTF8toWide(text), WS_CHILD | BS_PUSHBUTTON | WS_VISIBLE | WS_CLIPCHILDREN, 0,0,0,0, DW_HWND_OBJECT, (HMENU)(uintptr_t)id, DWInstance, NULL); cinfo->fore = cinfo->back = -1; cinfo->pOldProc = SubclassWindow(tmp, _BtProc); SetWindowLongPtr(tmp, GWLP_USERDATA, (LONG_PTR)cinfo); dw_window_set_font(tmp, DefaultFont); 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++) { for(x=0;x<width;x++) { COLORREF c = GetPixel(hdc, x, y); /* Use half-values then add 127 to make it look washed out */ int luma = (int)(GetRValue(c)*0.15 + GetGValue(c)*0.3+ GetBValue(c)*0.06) + 127; SetPixel(hdc, x, y, RGB(luma,luma,luma)); } } SelectBitmap(hdc, hbmPrev); DeleteDC(hdc); } } /* Internal function to create a toolbar based button */ HWND _create_toolbar(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); ImageList_Add(imlist, hbitmap, NULL); dimlist = ImageList_Create(bmi.bmWidth, bmi.bmHeight, ILC_COLOR32, 1, 0); _to_grayscale(hbitmap, bmi.bmWidth, bmi.bmHeight); ImageList_Add(dimlist, hbitmap, NULL); 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); _to_grayscale(iconinfo.hbmColor, bmi.bmWidth, bmi.bmHeight); ImageList_Add(dimlist, iconinfo.hbmColor, iconinfo.hbmMask); DeleteObject(iconinfo.hbmColor); DeleteObject(iconinfo.hbmMask); DestroyIcon(icon); } 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""); /* Insert the single bitmap and button into the toolbar */ SendMessage(tmp, TB_BUTTONSTRUCTSIZE, sizeof(TBBUTTON), 0); 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 /* * Create a new bitmap button window (widget) to be packed. * Parameters: * text: Bubble help text to be displayed. * id: An ID of a bitmap in the resource file. */ HWND API dw_bitmapbutton_new(char *text, ULONG id) { HWND tmp; ColorInfo *cinfo = calloc(1, sizeof(ColorInfo)); HICON icon = LoadImage(DWInstance, MAKEINTRESOURCE(id), IMAGE_ICON, 0, 0, 0); HBITMAP hbitmap = icon ? 0 : LoadBitmap(DWInstance, MAKEINTRESOURCE(id)); #ifdef TOOLBAR if((tmp = _create_toolbar(text, id, icon, hbitmap))) { cinfo->fore = cinfo->back = -1; cinfo->pOldProc = SubclassWindow(tmp, _simplewndproc); SetWindowLongPtr(tmp, GWLP_USERDATA, (LONG_PTR)cinfo); return tmp; } #endif tmp = CreateWindow(BUTTONCLASSNAME, NULL, WS_CHILD | BS_PUSHBUTTON | WS_VISIBLE | WS_CLIPCHILDREN | (icon ? BS_ICON : BS_BITMAP), 0,0,0,0, DW_HWND_OBJECT, (HMENU)(uintptr_t)id, DWInstance, NULL); cinfo->fore = cinfo->back = -1; cinfo->pOldProc = SubclassWindow(tmp, _BtProc); SetWindowLongPtr(tmp, GWLP_USERDATA, (LONG_PTR)cinfo); _create_tooltip(tmp, text); if(icon) { SendMessage(tmp, BM_SETIMAGE, (WPARAM) IMAGE_ICON, (LPARAM) icon); } else if(hbitmap) { SendMessage(tmp, BM_SETIMAGE, (WPARAM) IMAGE_BITMAP, (LPARAM) hbitmap); } return tmp; } /* * Create a new bitmap button window (widget) to be packed from a file. * Parameters: * text: Bubble help text to be displayed. * id: An ID to be used with dw_window_from_id() or 0L. * filename: Name of the file, omit extention to have * DW pick the appropriate file extension. * (BMP or ICO on OS/2 or Windows, XPM on Unix) */ HWND API dw_bitmapbutton_new_from_file(char *text, unsigned long id, char *filename) { HWND tmp; ColorInfo *cinfo = calloc(1, sizeof(ColorInfo)); HBITMAP hbitmap = 0; HANDLE hicon = 0; int windowtype = 0; if (!cinfo) return 0; #ifdef GDIPLUS if((hicon = _dw_load_icon(filename))) windowtype = BS_ICON; else { hbitmap = _dw_load_bitmap(filename, NULL); windowtype = BS_BITMAP; } #else windowtype = _dw_get_image_handle(filename, &hicon, &hbitmap); #endif #ifdef TOOLBAR if((tmp = _create_toolbar(text, id, hicon, hbitmap))) { cinfo->fore = cinfo->back = -1; cinfo->pOldProc = SubclassWindow(tmp, _simplewndproc); SetWindowLongPtr(tmp, GWLP_USERDATA, (LONG_PTR)cinfo); return tmp; } #endif tmp = CreateWindow( BUTTONCLASSNAME, NULL, windowtype | WS_CHILD | BS_PUSHBUTTON | WS_CLIPCHILDREN | WS_VISIBLE, 0,0,0,0, DW_HWND_OBJECT, (HMENU)(uintptr_t)id, DWInstance, NULL); cinfo->fore = cinfo->back = -1; cinfo->pOldProc = SubclassWindow(tmp, _BtProc); SetWindowLongPtr(tmp, GWLP_USERDATA, (LONG_PTR)cinfo); _create_tooltip(tmp, text); if (hicon) { SendMessage(tmp, BM_SETIMAGE,(WPARAM) IMAGE_ICON,(LPARAM) hicon); } else if (hbitmap) { SendMessage(tmp, BM_SETIMAGE,(WPARAM) IMAGE_BITMAP, (LPARAM) hbitmap); } return tmp; } /* * Create a new bitmap button window (widget) to be packed from data. * Parameters: * text: Bubble help text to be displayed. * id: An ID to be used with dw_window_from_id() or 0L. * data: The contents of the image * (BMP or ICO on OS/2 or Windows, XPM on Unix) * len: length of str */ HWND API dw_bitmapbutton_new_from_data(char *text, unsigned long id, char *data, int len) { HWND tmp; ColorInfo *cinfo = calloc(1, sizeof(ColorInfo)); HBITMAP hbitmap = 0; HANDLE hicon = 0; char *file; FILE *fp; int windowtype = BS_BITMAP; if (!cinfo) return 0; file = _tempnam( _dw_alternate_temp_dir, "dw" ); if ( file != NULL ) { fp = fopen( file, "wb" ); if ( fp != NULL ) { fwrite( data, 1, len, fp ); fclose( fp ); #ifdef GDIPLUS if((hicon = _dw_load_icon(file))) windowtype = BS_ICON; else hbitmap = _dw_load_bitmap(file, NULL); #else if ( len > 1 && data[0] == 'B' && data[1] == 'M' ) /* first 2 chars of data is BM, then its a BMP */ hbitmap = (HBITMAP)LoadImage( NULL, UTF8toWide(file), IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE ); else /* otherwise its assumed to be an ico */ { hicon = LoadImage( NULL, UTF8toWide(file), IMAGE_ICON, 0, 0, LR_LOADFROMFILE ); windowtype = BS_ICON; } #endif } else { _unlink( file ); free( file ); return 0; } _unlink( file ); free( file ); } #ifdef TOOLBAR if((tmp = _create_toolbar(text, id, hicon, hbitmap))) { cinfo->fore = cinfo->back = -1; cinfo->pOldProc = SubclassWindow(tmp, _simplewndproc); SetWindowLongPtr(tmp, GWLP_USERDATA, (LONG_PTR)cinfo); return tmp; } #endif tmp = CreateWindow( BUTTONCLASSNAME, NULL, WS_CHILD | BS_PUSHBUTTON | windowtype | WS_CLIPCHILDREN | WS_VISIBLE, 0,0,0,0, DW_HWND_OBJECT, (HMENU)(uintptr_t)id, DWInstance, NULL ); cinfo->fore = cinfo->back = -1; cinfo->pOldProc = SubclassWindow( tmp, _BtProc ); SetWindowLongPtr( tmp, GWLP_USERDATA, (LONG_PTR)cinfo ); _create_tooltip(tmp, text); if ( hicon ) { SendMessage( tmp, BM_SETIMAGE, (WPARAM) IMAGE_ICON, (LPARAM) hicon); } else if( hbitmap ) { SendMessage( tmp, BM_SETIMAGE, (WPARAM) IMAGE_BITMAP, (LPARAM) hbitmap); } return tmp; } /* * Create a new spinbutton window (widget) to be packed. * Parameters: * text: The text to be display by the static text widget. * id: An ID to be used with dw_window_from_id() or 0L. */ HWND API dw_spinbutton_new(char *text, ULONG id) { HWND buddy = CreateWindowEx(WS_EX_CLIENTEDGE, EDITCLASSNAME, UTF8toWide(text), WS_CHILD | WS_BORDER | WS_VISIBLE | ES_NUMBER | WS_CLIPCHILDREN, 0,0,0,0, DW_HWND_OBJECT, NULL, DWInstance, NULL); HWND tmp = CreateWindowEx(WS_EX_CLIENTEDGE, UPDOWN_CLASS, NULL, WS_CHILD | UDS_ALIGNRIGHT | WS_BORDER | UDS_ARROWKEYS | UDS_SETBUDDYINT | UDS_WRAP | UDS_NOTHOUSANDS | WS_VISIBLE, 0,0,0,0, DW_HWND_OBJECT, (HMENU)(uintptr_t)id, DWInstance, NULL); ColorInfo *cinfo = calloc(1, sizeof(ColorInfo)); SendMessage(tmp, UDM_SETRANGE32, (WPARAM)-65536,(LPARAM)65536); SendMessage(tmp, UDM_SETBUDDY, (WPARAM)buddy, 0); cinfo->back = cinfo->fore = -1; cinfo->buddy = tmp; 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); } SetWindowLongPtr(tmp, GWLP_USERDATA, (LONG_PTR)cinfo); dw_window_set_font(buddy, DefaultFont); return tmp; } /* * Create a new radiobutton window (widget) to be packed. * Parameters: * text: The text to be display by the static text widget. * id: An ID to be used with dw_window_from_id() or 0L. */ HWND API dw_radiobutton_new(char *text, ULONG id) { ColorInfo *cinfo; HWND tmp = CreateWindow(BUTTONCLASSNAME, UTF8toWide(text), WS_CHILD | BS_AUTORADIOBUTTON | WS_CLIPCHILDREN | WS_VISIBLE, 0,0,0,0, DW_HWND_OBJECT, (HMENU)(uintptr_t)id, DWInstance, NULL); /* Disable visual styles by default */ if(_SetWindowTheme) _SetWindowTheme(tmp, L"", L""); cinfo = calloc(1, sizeof(ColorInfo)); cinfo->fore = cinfo->back = -1; cinfo->pOldProc = SubclassWindow(tmp, _BtProc); SetWindowLongPtr(tmp, GWLP_USERDATA, (LONG_PTR)cinfo); dw_window_set_font(tmp, DefaultFont); dw_window_set_color(tmp, DW_CLR_DEFAULT, DW_RGB_TRANSPARENT); return tmp; } /* * Create a new slider window (widget) to be packed. * Parameters: * vertical: TRUE or FALSE if slider is vertical. * increments: Number of increments available. * id: An ID to be used with dw_window_from_id() or 0L. */ HWND API dw_slider_new(int vertical, int increments, ULONG id) { HWND tmp = CreateWindow(TRACKBAR_CLASS, NULL, WS_CHILD | WS_CLIPCHILDREN | WS_VISIBLE | (vertical ? TBS_VERT : TBS_HORZ), 0,0,0,0, DW_HWND_OBJECT, (HMENU)(uintptr_t)id, DWInstance, NULL); ColorInfo *cinfo = calloc(1, sizeof(ColorInfo)); cinfo->back = cinfo->fore = -1; cinfo->pOldProc = SubclassWindow(tmp, _colorwndproc); SetWindowLongPtr(tmp, GWLP_USERDATA, (LONG_PTR)cinfo); SendMessage(tmp, TBM_SETRANGE, (WPARAM)FALSE, MAKELPARAM(0, increments-1)); return tmp; } /* * Create a new scrollbar window (widget) to be packed. * Parameters: * vertical: TRUE or FALSE if scrollbar is vertical. * increments: Number of increments available. * id: An ID to be used with dw_window_from_id() or 0L. */ HWND API dw_scrollbar_new(int vertical, ULONG id) { HWND tmp = CreateWindow(SCROLLBARCLASSNAME, NULL, WS_CHILD | WS_CLIPCHILDREN | WS_VISIBLE | (vertical ? SBS_VERT : SBS_HORZ), 0,0,0,0, DW_HWND_OBJECT, (HMENU)(uintptr_t)id, DWInstance, NULL); ColorInfo *cinfo = calloc(1, sizeof(ColorInfo)); cinfo->back = cinfo->fore = -1; cinfo->pOldProc = SubclassWindow(tmp, _colorwndproc); SetWindowLongPtr(tmp, GWLP_USERDATA, (LONG_PTR)cinfo); dw_window_set_data(tmp, "_dw_scrollbar", (void *)1); return tmp; } /* * Create a new percent bar window (widget) to be packed. * Parameters: * id: An ID to be used with dw_window_from_id() or 0L. */ HWND API dw_percent_new(ULONG id) { return CreateWindow(PROGRESS_CLASS, NULL, WS_VISIBLE | WS_CHILD | WS_CLIPCHILDREN, 0,0,0,0, DW_HWND_OBJECT, (HMENU)(uintptr_t)id, DWInstance, NULL); } /* * Create a new checkbox window (widget) to be packed. * Parameters: * text: The text to be display by the static text widget. * id: An ID to be used with dw_window_from_id() or 0L. */ HWND API dw_checkbox_new(char *text, ULONG id) { ColorInfo *cinfo = calloc(1, sizeof(ColorInfo)); HWND tmp = CreateWindow(BUTTONCLASSNAME, UTF8toWide(text), WS_CHILD | BS_AUTOCHECKBOX | BS_TEXT | WS_CLIPCHILDREN | WS_VISIBLE, 0,0,0,0, DW_HWND_OBJECT, (HMENU)(uintptr_t)id, DWInstance, NULL); /* Disable visual styles by default */ if(_SetWindowTheme) _SetWindowTheme(tmp, L"", L""); cinfo->pOldProc = SubclassWindow(tmp, _BtProc); SetWindowLongPtr(tmp, GWLP_USERDATA, (LONG_PTR)cinfo); dw_window_set_data(tmp, "_dw_checkbox", DW_INT_TO_POINTER(1)); dw_window_set_font(tmp, DefaultFont); dw_window_set_color(tmp, DW_CLR_DEFAULT, DW_RGB_TRANSPARENT); return tmp; } /* * Create a new listbox window (widget) to be packed. * Parameters: * id: An ID to be used with dw_window_from_id() or 0L. * multi: Multiple select TRUE or FALSE. */ HWND API dw_listbox_new(ULONG id, int multi) { HWND tmp = CreateWindowEx(WS_EX_CLIENTEDGE, LISTBOXCLASSNAME, NULL, WS_VISIBLE | LBS_NOINTEGRALHEIGHT | WS_CHILD | LBS_HASSTRINGS | LBS_NOTIFY | WS_BORDER | WS_CLIPCHILDREN | WS_VSCROLL | (multi ? LBS_MULTIPLESEL : 0) , 0,0,0,0, DW_HWND_OBJECT, (HMENU)(uintptr_t)id, DWInstance, NULL); ContainerInfo *cinfo = (ContainerInfo *)calloc(1, sizeof(ContainerInfo)); if(!cinfo) { DestroyWindow(tmp); return NULL; } cinfo->cinfo.fore = cinfo->cinfo.back = -1; cinfo->odd = cinfo->even = DW_RGB_TRANSPARENT; cinfo->cinfo.pOldProc = SubclassWindow(tmp, _containerwndproc); SetWindowLongPtr(tmp, GWLP_USERDATA, (LONG_PTR)cinfo); dw_window_set_font(tmp, DefaultFont); return tmp; } /* * Sets the icon used for a given window. * Parameters: * handle: Handle to the window. * id: An ID to be used to specify the icon. */ void API dw_window_set_icon(HWND handle, HICN icon) { int iicon = DW_POINTER_TO_INT(icon); HICON hicon = iicon < 65536 ? LoadIcon(DWInstance, MAKEINTRESOURCE(iicon)) : (HICON)icon; SendMessage(handle, WM_SETICON, (WPARAM) IMAGE_ICON, (LPARAM) hicon); } /* Internal function to set bitmap for the next two functions */ 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); ImageList_Replace(dimlist, 0, hbitmap, NULL); 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.hbmColor); 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, (icon ? (WPARAM)IMAGE_ICON : (WPARAM)IMAGE_BITMAP), (icon ? (LPARAM)icon : (LPARAM)hbitmap)); } if(oldbitmap) DeleteObject(oldbitmap); if(oldicon) 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); } } } /* * Sets the bitmap used for a given static window. * Parameters: * handle: Handle to the window. * id: An ID to be used to specify the icon, * (pass 0 if you use the filename param) * filename: a path to a file (Bitmap on OS/2 or * Windows and a pixmap on Unix, pass * NULL if you use the id param) */ void API dw_window_set_bitmap(HWND handle, unsigned long id, char *filename) { HBITMAP hbitmap = 0; HANDLE icon = 0; if(id) { hbitmap = LoadImage(DWInstance, MAKEINTRESOURCE(id), IMAGE_BITMAP, 0, 0, LR_LOADMAP3DCOLORS | LR_SHARED); icon = LoadImage(DWInstance, MAKEINTRESOURCE(id), IMAGE_ICON, 0, 0, LR_SHARED); } else if(filename) { #ifdef GDIPLUS 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. * Parameters: * handle: Handle to the window. * id: An ID to be used to specify the icon, * (pass 0 if you use the data param) * data: the image from meory * Bitmap on Windows and a pixmap on Unix, pass * NULL if you use the id param) * len: length of data */ void API dw_window_set_bitmap_from_data(HWND handle, unsigned long id, char *data, int len) { HBITMAP hbitmap=0; HICON icon=0; char *file; FILE *fp; if (data) { file = _tempnam( _dw_alternate_temp_dir, "dw" ); if ( file != NULL ) { fp = fopen( file, "wb" ); if ( fp != NULL ) { fwrite( data, 1, len, fp ); fclose( fp ); #ifdef GDIPLUS hbitmap = _dw_load_bitmap(file, NULL); #else if ( len > 1 && data[0] == 'B' && data[1] == 'M' ) /* first 2 chars of data is BM, then its a BMP */ hbitmap = (HBITMAP)LoadImage( NULL, UTF8toWide(file), IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE ); else /* otherwise its assumed to be an ico */ icon = LoadImage( NULL, UTF8toWide(file), IMAGE_ICON, 0, 0, LR_LOADFROMFILE ); #endif } else { _unlink( file ); free( file ); return; } _unlink( file ); free( file ); } if (icon == 0 && hbitmap == 0) return; } else if ( id ) { hbitmap = LoadBitmap( DWInstance, MAKEINTRESOURCE(id) ); icon = LoadImage( DWInstance, MAKEINTRESOURCE(id), IMAGE_ICON, 0, 0, LR_SHARED ); } _dw_window_set_bitmap(handle, icon, hbitmap); } /* * Sets the text used for a given window. * Parameters: * handle: Handle to the window. * text: The text associsated with a given window. */ void API dw_window_set_text(HWND handle, char *text) { Box *thisbox; TCHAR tmpbuf[100] = {0}, *wtext = UTF8toWide(text); GetClassName(handle, tmpbuf, 99); SetWindowText(handle, wtext); /* Combobox */ if ( _tcsnicmp( tmpbuf, COMBOBOXCLASSNAME, _tcslen(COMBOBOXCLASSNAME)+1) == 0 ) SendMessage(handle, CB_SETEDITSEL, 0, MAKELPARAM(-1, 0)); else if ( _tcsnicmp( tmpbuf, UPDOWN_CLASS, _tcslen(UPDOWN_CLASS)+1) == 0 ) { ColorInfo *cinfo = (ColorInfo *)GetWindowLongPtr(handle, GWLP_USERDATA); if( cinfo && cinfo->buddy ) SetWindowText( cinfo->buddy, wtext ); } else if ( _tcsnicmp( tmpbuf, FRAMECLASSNAME, _tcslen(FRAMECLASSNAME)+1) == 0 ) { /* groupbox */ thisbox = (Box *)GetWindowLongPtr( handle, GWLP_USERDATA ); if ( thisbox && thisbox->grouphwnd != (HWND)NULL ) 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) item->width = newwidth; if(item->origheight == -1) item->height = newheight; /* Queue a redraw on the top-level window */ _dw_redraw(_toplevel_window(handle), TRUE); } } } } /* * Sets the text used for a given window's floating bubble help. * Parameters: * handle: Handle to the window (widget). * bubbletext: The text in the floating bubble tooltip. */ void API dw_window_set_tooltip(HWND handle, char *bubbletext) { ColorInfo *cinfo = (ColorInfo *)GetWindowLongPtr(handle, GWLP_USERDATA); if(cinfo && cinfo->buddy) _create_tooltip(cinfo->buddy, bubbletext); _create_tooltip(handle, bubbletext); } /* * Gets the text used for a given window. * Parameters: * handle: Handle to the window. * Returns: * text: The text associsated with a given window. */ char * API dw_window_get_text(HWND handle) { char *retbuf = NULL; TCHAR *tempbuf, tmpbuf[100] = { 0 }; int len; GetClassName(handle, tmpbuf, 99); if ( _tcsnicmp( tmpbuf, UPDOWN_CLASS, _tcslen(UPDOWN_CLASS)+1) == 0 ) { ColorInfo *cinfo = (ColorInfo *)GetWindowLongPtr(handle, GWLP_USERDATA); if( cinfo && cinfo->buddy ) handle = cinfo->buddy; else return NULL; } /* Figure out the wide length, allocate a temp buffer * 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); return retbuf; } /* * Disables given window (widget). * Parameters: * handle: Handle to the window. */ void API dw_window_disable(HWND handle) { 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); } /* * Enables given window (widget). * Parameters: * handle: Handle to the window. */ void API dw_window_enable(HWND handle) { 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); } static HWND _dw_wfid_hwnd = NULL; BOOL CALLBACK _wfid(HWND handle, LPARAM lParam) { if(GetWindowLong(handle, GWL_ID) == lParam) { _dw_wfid_hwnd = handle; return FALSE; } return TRUE; } /* * Gets the child window handle with specified ID. * Parameters: * handle: Handle to the parent window. * id: Integer ID of the child. */ HWND API dw_window_from_id(HWND handle, int id) { _dw_wfid_hwnd = NULL; EnumChildWindows(handle, _wfid, (LPARAM)id); return _dw_wfid_hwnd; } /* Internal box packing function called by the other 3 functions */ void _dw_box_pack(HWND box, HWND item, int index, int width, int height, int hsize, int vsize, int pad, char *funcname) { Box *thisbox = NULL; TCHAR tmpbuf[100] = {0}; /* * If you try and pack an item into itself VERY bad things can happen; like at least an * infinite loop on GTK! Lets be safe! */ if(box == item) { 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) { box = cinfo->buddy; thisbox = (Box *)GetWindowLongPtr(box, GWLP_USERDATA); } } else //if(_tcsnicmp(tmpbuf, FRAMECLASSNAME, _tcslen(FRAMECLASSNAME)+1)==0) thisbox = (Box *)GetWindowLongPtr(box, GWLP_USERDATA); if(thisbox) { int z, x = 0; Item *tmpitem, *thisitem = thisbox->items; /* Do some sanity bounds checking */ if(!thisitem) thisbox->count = 0; if(index < 0) index = 0; if(index > thisbox->count) index = thisbox->count; tmpitem = calloc(sizeof(Item), (thisbox->count+1)); for(z=0;z<thisbox->count;z++) { if(z == index) x++; tmpitem[x] = thisitem[z]; x++; } GetClassName(item, tmpbuf, 99); if(vsize && !height) height = 1; if(hsize && !width) width = 1; if(_tcsnicmp(tmpbuf, FRAMECLASSNAME, _tcslen(FRAMECLASSNAME)+1)==0) tmpitem[index].type = TYPEBOX; else { if(_tcsnicmp(tmpbuf, TEXT("SysMonthCal32"), 13)==0) { RECT rc; MonthCal_GetMinReqRect(item, &rc); width = 1 + rc.right - rc.left; height = 1 + rc.bottom - rc.top; tmpitem[index].type = TYPEITEM; } else { if ( width == 0 && hsize == FALSE ) dw_messagebox(funcname, DW_MB_OK|DW_MB_ERROR, "Width and expand Horizonal both unset for box: %x item: %x",box,item); if ( height == 0 && vsize == FALSE ) dw_messagebox(funcname, DW_MB_OK|DW_MB_ERROR, "Height and expand Vertical both unset for box: %x item: %x",box,item); tmpitem[index].type = TYPEITEM; } } tmpitem[index].hwnd = item; 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; if(thisitem) free(thisitem); thisbox->count++; #ifdef AEROGLASS AllowDarkModeForWindow(item, _DW_DARK_MODE_ENABLED); #endif SetParent(item, box); if(_tcsnicmp(tmpbuf, UPDOWN_CLASS, _tcslen(UPDOWN_CLASS)+1)==0) { ColorInfo *cinfo = (ColorInfo *)GetWindowLongPtr(item, GWLP_USERDATA); if(cinfo) { 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); } } /* * Remove windows (widgets) from the box they are packed into. * Parameters: * handle: Window handle of the packed item to be removed. * Returns: * 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; if(!thisitem) thisbox->count = 0; for(z=0;z<thisbox->count;z++) { if(thisitem[z].hwnd == handle) index = z; } if(index == -1) return DW_ERROR_GENERAL; if(thisbox->count > 1) { tmpitem = calloc(sizeof(Item), (thisbox->count-1)); /* Copy all but the current entry to the new list */ for(z=0;z<index;z++) { tmpitem[z] = thisitem[z]; } for(z=index+1;z<thisbox->count;z++) { tmpitem[z-1] = thisitem[z]; } } thisbox->items = tmpitem; if(thisitem) free(thisitem); if(tmpitem) thisbox->count--; else thisbox->count = 0; SetParent(handle, DW_HWND_OBJECT); /* Queue a redraw on the top-level window */ _dw_redraw(_toplevel_window(parent), TRUE); return DW_ERROR_NONE; } } return DW_ERROR_GENERAL; } /* * Remove windows (widgets) from a box at an arbitrary location. * Parameters: * box: Window handle of the box to be removed from. * index: 0 based index of packed items. * Returns: * 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; HWND handle = thisitem[index].hwnd; if(thisbox->count > 1) { tmpitem = calloc(sizeof(Item), (thisbox->count-1)); /* Copy all but the current entry to the new list */ for(z=0;z<index;z++) { tmpitem[z] = thisitem[z]; } for(z=index+1;z<thisbox->count;z++) { tmpitem[z-1] = thisitem[z]; } } thisbox->items = tmpitem; if(thisitem) free(thisitem); if(tmpitem) thisbox->count--; else thisbox->count = 0; /* If it isn't padding, reset the parent */ if(handle) SetParent(handle, DW_HWND_OBJECT); /* Queue a redraw on the top-level window */ _dw_redraw(_toplevel_window(box), TRUE); return handle; } return 0; } /* * Pack windows (widgets) into a box at an arbitrary location. * Parameters: * box: Window handle of the box to be packed into. * item: Window handle of the item to pack. * index: 0 based index of packed items. * width: Width in pixels of the item or -1 to be self determined. * height: Height in pixels of the item or -1 to be self determined. * hsize: TRUE if the window (widget) should expand horizontally to fill space given. * vsize: TRUE if the window (widget) should expand vertically to fill space given. * pad: Number of pixels of padding around the item. */ void API dw_box_pack_at_index(HWND box, HWND item, int index, int width, int height, int hsize, int vsize, int pad) { _dw_box_pack(box, item, index, width, height, hsize, vsize, pad, "dw_box_pack_at_index()"); } /* * Pack windows (widgets) into a box from the start (or top). * Parameters: * box: Window handle of the box to be packed into. * item: Window handle of the item to pack. * width: Width in pixels of the item or -1 to be self determined. * height: Height in pixels of the item or -1 to be self determined. * hsize: TRUE if the window (widget) should expand horizontally to fill space given. * vsize: TRUE if the window (widget) should expand vertically to fill space given. * pad: Number of pixels of padding around the item. */ void API dw_box_pack_start(HWND box, HWND item, int width, int height, int hsize, int vsize, int pad) { /* 65536 is the table limit on GTK... * seems like a high enough value we will never hit it here either. */ _dw_box_pack(box, item, 65536, width, height, hsize, vsize, pad, "dw_box_pack_start()"); } /* * Pack windows (widgets) into a box from the end (or bottom). * Parameters: * box: Window handle of the box to be packed into. * item: Window handle of the item to pack. * width: Width in pixels of the item or -1 to be self determined. * height: Height in pixels of the item or -1 to be self determined. * hsize: TRUE if the window (widget) should expand horizontally to fill space given. * vsize: TRUE if the window (widget) should expand vertically to fill space given. * pad: Number of pixels of padding around the item. */ void API dw_box_pack_end(HWND box, HWND item, int width, int height, int hsize, int vsize, int pad) { _dw_box_pack(box, item, 0, width, height, hsize, vsize, pad, "dw_box_pack_end()"); } /* * The following is an attempt to dynamically size a window based on the size of its * 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; } } /* * Sets the size of a given window (widget). * Parameters: * handle: Window (widget) handle. * width: New width in pixels. * height: New height in pixels. */ 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); } /* * Gets the size the system thinks the widget should be. * Parameters: * handle: Window handle of the item to be back. * width: Width in pixels of the item or NULL if not needed. * height: Height in pixels of the item or NULL if not needed. */ 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; } } else _control_size(handle, width, height); } /* * Returns the width of the screen. */ int API dw_screen_width(void) { return GetSystemMetrics(SM_CXSCREEN); } /* * Returns the height of the screen. */ int API dw_screen_height(void) { return GetSystemMetrics(SM_CYSCREEN); } /* This should return the current color depth */ unsigned long API dw_color_depth_get(void) { int bpp; HDC hdc = GetDC(HWND_DESKTOP); bpp = GetDeviceCaps(hdc, BITSPIXEL); ReleaseDC(HWND_DESKTOP, hdc); return bpp; } /* * Sets the gravity of a given window (widget). * Gravity controls which corner of the screen and window the position is relative to. * Parameters: * handle: Window (widget) handle. * horz: DW_GRAV_LEFT (default), DW_GRAV_RIGHT or DW_GRAV_CENTER. * vert: DW_GRAV_TOP (default), DW_GRAV_BOTTOM or DW_GRAV_CENTER. */ void API dw_window_set_gravity(HWND handle, int horz, int vert) { dw_window_set_data(handle, "_dw_grav_horz", DW_INT_TO_POINTER(horz)); dw_window_set_data(handle, "_dw_grav_vert", DW_INT_TO_POINTER(vert)); } /* 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) newx = dw_screen_width() - width - *x; /* 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) *x -= (mi.rcMonitor.right - mi.rcWork.right); } if(vert & DW_GRAV_OBSTACLES) { if((vert & 0xf) == DW_GRAV_TOP) *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: * handle: Window (widget) handle. * x: X location from the bottom left. * y: Y location from the bottom left. */ void API dw_window_set_pos(HWND handle, long x, long y) { unsigned long width, height; RECT rect; GetClientRect(handle, &rect); /* Can't position an unsized window, so attempt to auto-size */ if((rect.bottom - rect.top) == 0 || (rect.right - rect.left) == 0) dw_window_set_size(handle, 0, 0); dw_window_get_pos_size(handle, NULL, NULL, &width, &height); _handle_gravity(handle, &x, &y, width, height); SetWindowPos(handle, (HWND)NULL, x, y, 0, 0, SWP_NOSIZE | SWP_NOZORDER | SWP_NOACTIVATE); } /* * Sets the position and size of a given window (widget). * Parameters: * handle: Window (widget) handle. * x: X location from the bottom left. * y: Y location from the bottom left. * width: Width of the widget. * height: Height of the widget. */ 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); } /* * Gets the position and size of a given window (widget). * Parameters: * handle: Window (widget) handle. * x: X location from the bottom left. * y: Y location from the bottom left. * width: Width of the widget. * height: Height of the widget. */ void API dw_window_get_pos_size(HWND handle, long *x, long *y, ULONG *width, ULONG *height) { WINDOWPLACEMENT wp; wp.length = sizeof(WINDOWPLACEMENT); GetWindowPlacement(handle, &wp); if( wp.showCmd == SW_SHOWMAXIMIZED) { if(x) *x=0; if(y) *y=0; if(width) *width=dw_screen_width(); if(height) *height=dw_screen_height(); } else { if(x) *x = wp.rcNormalPosition.left; if(y) *y = wp.rcNormalPosition.top; if(width) *width = wp.rcNormalPosition.right - wp.rcNormalPosition.left; if(height) *height = wp.rcNormalPosition.bottom - wp.rcNormalPosition.top; } } /* * Sets the style of a given window (widget). * Parameters: * handle: Window (widget) handle. * width: New width in pixels. * height: New height in pixels. */ void API dw_window_set_style(HWND handle, ULONG style, ULONG mask) { ULONG tmp, currentstyle; ColorInfo *cinfo; TCHAR tmpbuf[100] = {0}; if(!handle || !mask) return; 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; if(mask & DW_DT_VCENTER) { if(style & DW_DT_VCENTER) { if(cinfo) cinfo->vcenter = 1; else { cinfo = calloc(1, sizeof(ColorInfo)); cinfo->fore = cinfo->back = -1; cinfo->vcenter = 1; cinfo->pOldProc = SubclassWindow(handle, _colorwndproc); SetWindowLongPtr(handle, GWLP_USERDATA, (LONG_PTR)cinfo); } } else if(cinfo) cinfo->vcenter = 0; } /* Alignment style is 0 for word wrap */ if((style & DW_DT_WORDBREAK) && (mask & DW_DT_WORDBREAK)) tmp &= ~(0xFL); else if(type == SS_LEFTNOWORDWRAP) tmp = (tmp & ~(0xFL)) | SS_LEFTNOWORDWRAP; else if(type == SS_CENTER) tmp = (tmp & ~(0xFL)) | SS_CENTER; else if(type == SS_RIGHT) tmp = (tmp & ~(0xFL)) | SS_RIGHT; } SetWindowLong(handle, GWL_STYLE, tmp); } /* Finds the physical ID from the reference ID */ int _findnotebookid(NotebookPage **array, int pageid) { int z; for(z=0;z<256;z++) { if(array[z] && array[z]->realid == pageid) return z; } return -1; } /* * Adds a new page to specified notebook. * Parameters: * handle: Window (widget) handle. * flags: Any additional page creation flags. * front: If TRUE page is added at the beginning. */ unsigned long API dw_notebook_page_new(HWND handle, ULONG flags, int front) { NotebookPage **array = (NotebookPage **)dw_window_get_data(handle, "_dw_array"); if(array) { int z, refid = -1; for(z=0;z<256;z++) { if(_findnotebookid(array, z) == -1) { refid = z; break; } } if(refid == -1) return -1; for(z=0;z<256;z++) { if(!array[z]) { array[z] = calloc(1, sizeof(NotebookPage)); array[z]->realid = refid; array[z]->item.mask = TCIF_TEXT; array[z]->item.iImage = -1; array[z]->item.pszText = TEXT(""); TabCtrl_InsertItem(handle, z, &(array[z]->item)); return refid; } } } return -1; } /* * Sets the text on the specified notebook tab. * Parameters: * handle: Notebook handle. * pageid: Page ID of the tab to set. * text: Pointer to the text to set. */ void API dw_notebook_page_set_text(HWND handle, ULONG pageidx, char *text) { NotebookPage **array = (NotebookPage **)dw_window_get_data(handle, "_dw_array"); int pageid; if(!array) return; pageid = _findnotebookid(array, pageidx); if(pageid > -1 && array[pageid]) { array[pageid]->item.mask = TCIF_TEXT; array[pageid]->item.pszText = UTF8toWide(text); TabCtrl_SetItem(handle, pageid, &(array[pageid]->item)); _resize_notebook_page(handle, pageid); } } /* * Sets the text on the specified notebook tab status area. * Parameters: * handle: Notebook handle. * pageid: Page ID of the tab to set. * text: Pointer to the text to set. */ void API dw_notebook_page_set_status_text(HWND handle, ULONG pageid, char *text) { } /* * Packs the specified box into the notebook page. * Parameters: * handle: Handle to the notebook to be packed. * pageid: Page ID in the notebook which is being packed. * page: Box handle to be packed. */ void API dw_notebook_pack(HWND handle, ULONG pageidx, HWND page) { NotebookPage **array = (NotebookPage **)dw_window_get_data(handle, "_dw_array"); int pageid; if(!array) return; pageid = _findnotebookid(array, pageidx); if(pageid > -1 && array[pageid]) { HWND tmpbox = dw_box_new(DW_VERT, 0); dw_box_pack_start(tmpbox, page, 0, 0, TRUE, TRUE, 0); if(array[pageid]->hwnd) dw_window_destroy(array[pageid]->hwnd); array[pageid]->hwnd = tmpbox; if(pageidx == dw_notebook_page_get(handle)) { ShowWindow(tmpbox, SW_HIDE); SetParent(tmpbox, handle); _resize_notebook_page(handle, pageid); } } } /* * Remove a page from a notebook. * Parameters: * handle: Handle to the notebook widget. * pageid: ID of the page to be destroyed. */ void API dw_notebook_page_destroy(HWND handle, unsigned int pageidx) { NotebookPage **array = (NotebookPage **)dw_window_get_data(handle, "_dw_array"); int newid = -1, z, pageid; HWND pagehwnd = 0; if(!array) return; pageid = _findnotebookid(array, pageidx); if(pageid < 0) return; if(array[pageid]) { SetParent(array[pageid]->hwnd, DW_HWND_OBJECT); pagehwnd = array[pageid]->hwnd; free(array[pageid]); array[pageid] = NULL; } TabCtrl_DeleteItem(handle, pageid); /* Shift the pages over 1 */ for(z=pageid;z<255;z++) array[z] = array[z+1]; array[255] = NULL; for(z=0;z<256;z++) { if(array[z]) { newid = z; break; } } if(newid > -1) { SetParent(array[newid]->hwnd, handle); _resize_notebook_page(handle, newid); dw_notebook_page_set(handle, array[newid]->realid); } if(pagehwnd) dw_window_destroy(pagehwnd); } /* * Queries the currently visible page ID. * Parameters: * handle: Handle to the notebook widget. */ unsigned long API dw_notebook_page_get(HWND handle) { NotebookPage **array = (NotebookPage **)dw_window_get_data(handle, "_dw_array"); int physid = TabCtrl_GetCurSel(handle); if(physid > -1 && physid < 256 && array && array[physid]) return array[physid]->realid; return -1; } /* * Sets the currently visible page ID. * Parameters: * handle: Handle to the notebook widget. * pageid: ID of the page to be made visible. */ void API dw_notebook_page_set(HWND handle, unsigned int pageidx) { NotebookPage **array = (NotebookPage **)dw_window_get_data(handle, "_dw_array"); int pageid; if(!array) return; pageid = _findnotebookid(array, pageidx); if(pageid > -1 && pageid < 256) { int oldpage = TabCtrl_GetCurSel(handle); if(oldpage > -1 && array && array[oldpage]) SetParent(array[oldpage]->hwnd, DW_HWND_OBJECT); TabCtrl_SetCurSel(handle, pageid); SetParent(array[pageid]->hwnd, handle); _resize_notebook_page(handle, pageid); } } /* * Appends the specified text to the listbox's (or combobox) entry list. * Parameters: * handle: Handle to the listbox to be appended to. * text: Text to append into listbox. */ void API dw_listbox_append(HWND handle, char *text) { TCHAR tmpbuf[100] = {0}; GetClassName(handle, tmpbuf, 99); if(_tcsnicmp(tmpbuf, COMBOBOXCLASSNAME, _tcslen(COMBOBOXCLASSNAME)+1)==0) SendMessage(handle, CB_ADDSTRING, 0, (LPARAM)UTF8toWide(text)); else SendMessage(handle, LB_ADDSTRING, 0, (LPARAM)UTF8toWide(text)); } /* * Appends the specified text items to the listbox's (or combobox) entry list. * Parameters: * handle: Handle to the listbox to be appended to. * text: Text strings to append into listbox. * count: Number of text strings to append */ void API dw_listbox_list_append(HWND handle, char **text, int count) { TCHAR tmpbuf[100] = {0}; int listbox_type; int i; GetClassName(handle, tmpbuf, 99); if(_tcsnicmp(tmpbuf, COMBOBOXCLASSNAME, _tcslen(COMBOBOXCLASSNAME)+1)==0) listbox_type = CB_ADDSTRING; else listbox_type = LB_ADDSTRING; for(i=0;i<count;i++) SendMessage(handle,(WPARAM)listbox_type,0,(LPARAM)UTF8toWide(text[i])); } /* * Inserts the specified text to the listbox's (or combobox) entry list. * Parameters: * handle: Handle to the listbox to be appended to. * text: Text to append into listbox. * pos: 0 based position to insert text */ void API dw_listbox_insert(HWND handle, char *text, int pos) { TCHAR tmpbuf[100] = {0}; GetClassName(handle, tmpbuf, 99); if(_tcsnicmp(tmpbuf, COMBOBOXCLASSNAME, _tcslen(COMBOBOXCLASSNAME)+1)==0) SendMessage(handle, CB_INSERTSTRING, pos, (LPARAM)UTF8toWide(text)); else SendMessage(handle, LB_INSERTSTRING, pos, (LPARAM)UTF8toWide(text)); } /* * Clears the listbox's (or combobox) list of all entries. * Parameters: * handle: Handle to the listbox to be cleared. */ void API dw_listbox_clear(HWND handle) { TCHAR tmpbuf[100] = {0}; GetClassName(handle, tmpbuf, 99); if(_tcsnicmp(tmpbuf, COMBOBOXCLASSNAME, _tcslen(COMBOBOXCLASSNAME)+1)==0) { char *buf = dw_window_get_text(handle); SendMessage(handle, CB_RESETCONTENT, 0L, 0L); if(buf) { dw_window_set_text(handle, buf); free(buf); } } else SendMessage(handle, LB_RESETCONTENT, 0L, 0L); } /* * Sets the text of a given listbox entry. * Parameters: * handle: Handle to the listbox to be queried. * index: Index into the list to be queried. * buffer: Buffer where text will be copied. */ void API dw_listbox_set_text(HWND handle, unsigned int index, char *buffer) { TCHAR tmpbuf[100] = {0}; GetClassName(handle, tmpbuf, 99); if(_tcsnicmp(tmpbuf, COMBOBOXCLASSNAME, _tcslen(COMBOBOXCLASSNAME)+1)==0) { SendMessage(handle, CB_DELETESTRING, (WPARAM)index, 0); SendMessage(handle, CB_INSERTSTRING, (WPARAM)index, (LPARAM)buffer); } else { unsigned int sel = (unsigned int)SendMessage(handle, LB_GETCURSEL, 0, 0); SendMessage(handle, LB_DELETESTRING, (WPARAM)index, 0); SendMessage(handle, LB_INSERTSTRING, (WPARAM)index, (LPARAM)buffer); SendMessage(handle, LB_SETCURSEL, (WPARAM)sel, 0); SendMessage(handle, LB_SETSEL, (WPARAM)TRUE, (LPARAM)sel); } } /* * Copies the given index item's text into buffer. * Parameters: * handle: Handle to the listbox to be queried. * index: Index into the list to be queried. * buffer: Buffer where text will be copied. * length: Length of the buffer (including NULL). */ void API dw_listbox_get_text(HWND handle, unsigned int index, char *buffer, unsigned int length) { TCHAR tmpbuf[100] = {0}, *wbuffer; unsigned int len; buffer[0] = 0; if(!buffer || !length) return; GetClassName(handle, tmpbuf, 99); if(_tcsnicmp(tmpbuf, COMBOBOXCLASSNAME, _tcslen(COMBOBOXCLASSNAME)+1)==0) { len = (int)SendMessage(handle, CB_GETLBTEXTLEN, (WPARAM)index, 0); if(len != CB_ERR && (wbuffer = _alloca((len+1)*sizeof(TCHAR)))) { SendMessage(handle, CB_GETLBTEXT, (WPARAM)index, (LPARAM)wbuffer); strncpy(buffer, WideToUTF8(wbuffer), length); } } else { len = (int)SendMessage(handle, LB_GETTEXTLEN, (WPARAM)index, 0); if(len != LB_ERR && (wbuffer = _alloca((len+1)*sizeof(TCHAR)))) { SendMessage(handle, LB_GETTEXT, (WPARAM)index, (LPARAM)wbuffer); strncpy(buffer, WideToUTF8(wbuffer), length); } } } /* * Returns the index to the item in the list currently selected. * Parameters: * handle: Handle to the listbox to be queried. */ int API dw_listbox_selected(HWND handle) { TCHAR tmpbuf[100] = {0}; GetClassName(handle, tmpbuf, 99); if(_tcsnicmp(tmpbuf, COMBOBOXCLASSNAME, _tcslen(COMBOBOXCLASSNAME)+1)==0) return (unsigned int)SendMessage(handle, CB_GETCURSEL, 0, 0); return (unsigned int)SendMessage(handle, LB_GETCURSEL, 0, 0); } /* * Returns the index to the current selected item or -1 when done. * Parameters: * handle: Handle to the listbox to be queried. * where: Either the previous return or -1 to restart. */ int API dw_listbox_selected_multi(HWND handle, int where) { int *array, count, z; TCHAR tmpbuf[100] = {0}; GetClassName(handle, tmpbuf, 99); /* This doesn't work on comboboxes */ if(_tcsnicmp(tmpbuf, COMBOBOXCLASSNAME, _tcslen(COMBOBOXCLASSNAME)+1)==0) return -1; count = (int)SendMessage(handle, LB_GETSELCOUNT, 0, 0); if(count > 0) { array = malloc(sizeof(int)*count); SendMessage(handle, LB_GETSELITEMS, (WPARAM)count, (LPARAM)array); if(where == -1) { int ret = array[0]; free(array); return ret; } for(z=0;z<count;z++) { if(array[z] == where && (z+1) < count) { int ret = array[z+1]; free(array); return ret; } } free(array); } return -1; } /* * Sets the selection state of a given index. * Parameters: * handle: Handle to the listbox to be set. * index: Item index. * state: TRUE if selected FALSE if unselected. */ void API dw_listbox_select(HWND handle, int index, int state) { TCHAR tmpbuf[100] = {0}; GetClassName(handle, tmpbuf, 99); if(_tcsnicmp(tmpbuf, COMBOBOXCLASSNAME, _tcslen(COMBOBOXCLASSNAME)+1)==0) SendMessage(handle, CB_SETCURSEL, (WPARAM)index, 0); else { SendMessage(handle, LB_SETCURSEL, (WPARAM)index, 0); SendMessage(handle, LB_SETSEL, (WPARAM)state, (LPARAM)index); } _wndproc(handle, WM_COMMAND, (WPARAM)(LBN_SELCHANGE << 16), (LPARAM)handle); } /* * Deletes the item with given index from the list. * Parameters: * handle: Handle to the listbox to be set. * index: Item index. */ void API dw_listbox_delete(HWND handle, int index) { TCHAR tmpbuf[100] = {0}; GetClassName(handle, tmpbuf, 99); if(_tcsnicmp(tmpbuf, COMBOBOXCLASSNAME, _tcslen(COMBOBOXCLASSNAME)+1)==0) SendMessage(handle, CB_DELETESTRING, (WPARAM)index, 0); else SendMessage(handle, LB_DELETESTRING, (WPARAM)index, 0); } /* * Returns the listbox's item count. * Parameters: * handle: Handle to the listbox to be cleared. */ int API dw_listbox_count(HWND handle) { TCHAR tmpbuf[100] = {0}; GetClassName(handle, tmpbuf, 99); if(_tcsnicmp(tmpbuf, COMBOBOXCLASSNAME, _tcslen(COMBOBOXCLASSNAME)+1)==0) return (int)SendMessage(handle, CB_GETCOUNT,0L, 0L); return (int)SendMessage(handle, LB_GETCOUNT,0L, 0L); } /* * Sets the topmost item in the viewport. * Parameters: * handle: Handle to the listbox to be cleared. * top: Index to the top item. */ void API dw_listbox_set_top(HWND handle, int top) { TCHAR tmpbuf[100] = {0}; GetClassName(handle, tmpbuf, 99); /* This doesn't work on comboboxes */ if(_tcsnicmp(tmpbuf, COMBOBOXCLASSNAME, _tcslen(COMBOBOXCLASSNAME)+1)==0) return; SendMessage(handle, LB_SETTOPINDEX, (WPARAM)top, 0); } /* * Adds text to an MLE box and returns the current point. * Parameters: * handle: Handle to the MLE to be queried. * buffer: Text buffer to be imported. * startpoint: Point to start entering text. */ unsigned int API dw_mle_import(HWND handle, char *buffer, int startpoint) { int textlen, len = GetWindowTextLength(handle); TCHAR *tmpbuf, *srcbuf = UTF8toWide(buffer); if(startpoint < 0) startpoint = 0; if(!buffer || (textlen = (int)_tcslen(srcbuf)) < 1) return startpoint; tmpbuf = calloc(sizeof(TCHAR), len + textlen + startpoint + 2); if(len) { TCHAR *dest, *start; int copylen = len - startpoint; GetWindowText(handle, tmpbuf, len+1); dest = &tmpbuf[startpoint+textlen]; start = &tmpbuf[startpoint]; if(copylen > 0) memcpy(dest, start, copylen*sizeof(TCHAR)); } memcpy(&tmpbuf[startpoint], srcbuf, textlen*sizeof(TCHAR)); SetWindowText(handle, tmpbuf); free(tmpbuf); return (startpoint + textlen); } /* * Grabs text from an MLE box. * Parameters: * handle: Handle to the MLE to be queried. * buffer: Text buffer to be exported. MUST allow for trailing nul character. * startpoint: Point to start grabbing text. * length: Amount of text to be grabbed. */ void API dw_mle_export(HWND handle, char *buffer, int startpoint, int length) { int max, len = GetWindowTextLength(handle); TCHAR *tmpbuf = calloc(sizeof(TCHAR), len+2); if(len) GetWindowText(handle, tmpbuf, len+1); buffer[0] = 0; if(startpoint < len) { max = MIN(length, len - startpoint); memcpy(buffer, WideToUTF8(&tmpbuf[startpoint]), max); buffer[max] = '\0'; } free(tmpbuf); } /* * Obtains information about an MLE box. * Parameters: * handle: Handle to the MLE to be queried. * bytes: A pointer to a variable to return the total bytes. * lines: A pointer to a variable to return the number of lines. */ void API dw_mle_get_size(HWND handle, unsigned long *bytes, unsigned long *lines) { if(bytes) *bytes = GetWindowTextLength(handle); if(lines) *lines = (unsigned long)SendMessage(handle, EM_GETLINECOUNT, 0, 0); } /* * Deletes text from an MLE box. * Parameters: * handle: Handle to the MLE to be deleted from. * startpoint: Point to start deleting text. * length: Amount of text to be deleted. */ void API dw_mle_delete(HWND handle, int startpoint, int length) { int len = GetWindowTextLength(handle); TCHAR *tmpbuf = calloc(sizeof(TCHAR), len+2); GetWindowText(handle, tmpbuf, len+1); if(startpoint + length < len) { _tcscpy(&tmpbuf[startpoint], &tmpbuf[startpoint+length]); SetWindowText(handle, tmpbuf); } free(tmpbuf); } /* * Clears all text from an MLE box. * Parameters: * handle: Handle to the MLE to be cleared. */ void API dw_mle_clear(HWND handle) { SetWindowText(handle, TEXT("")); } /* * Sets the visible line of an MLE box. * Parameters: * handle: Handle to the MLE. * line: Line to be visible. */ void API dw_mle_set_visible(HWND handle, int line) { int point = (int)SendMessage(handle, EM_LINEINDEX, (WPARAM)line, 0); dw_mle_set_cursor(handle, point); } /* * Sets the editablity of an MLE box. * Parameters: * handle: Handle to the MLE. * state: TRUE if it can be edited, FALSE for readonly. */ void API dw_mle_set_editable(HWND handle, int state) { SendMessage(handle, EM_SETREADONLY, (WPARAM)(state ? FALSE : TRUE), 0); } /* * Sets the word wrap state of an MLE box. * Parameters: * handle: Handle to the MLE. * state: TRUE if it wraps, FALSE if it doesn't. */ void API dw_mle_set_word_wrap(HWND handle, int state) { /* If ES_AUTOHSCROLL is not set and there is no * horizontal scrollbar it word wraps. */ if(state) dw_window_set_style(handle, 0, ES_AUTOHSCROLL); else dw_window_set_style(handle, ES_AUTOHSCROLL, ES_AUTOHSCROLL); /* If it is a rich edit control use the rich edit message */ if(hrichedit || hmsftedit) { if(state) SendMessage(handle, EM_SETOPTIONS, (WPARAM)ECOOP_AND, (LPARAM)~ECO_AUTOHSCROLL); else SendMessage(handle, EM_SETOPTIONS, (WPARAM)ECOOP_OR, (LPARAM)ECO_AUTOHSCROLL); } } /* * Sets the word auto complete state of an MLE box. * Parameters: * handle: Handle to the MLE. * state: Bitwise combination of DW_MLE_COMPLETE_TEXT/DASH/QUOTE */ void API dw_mle_set_auto_complete(HWND handle, int state) { } /* * Sets the current cursor position of an MLE box. * Parameters: * handle: Handle to the MLE to be positioned. * point: Point to position cursor. */ void API dw_mle_set_cursor(HWND handle, int point) { SendMessage(handle, EM_SETSEL, 0, MAKELPARAM(point,point)); SendMessage(handle, EM_SCROLLCARET, 0, 0); } /* * Finds text in an MLE box. * Parameters: * handle: Handle to the MLE to be cleared. * text: Text to search for. * point: Start point of search. * flags: Search specific flags. */ int API dw_mle_search(HWND handle, char *text, int point, unsigned long flags) { int len = GetWindowTextLength(handle); TCHAR *tmpbuf = calloc(sizeof(TCHAR), len+2); TCHAR *searchtext = UTF8toWide(text); int z, textlen, retval = 0; GetWindowText(handle, tmpbuf, len+1); textlen = (int)strlen(text); if(flags & DW_MLE_CASESENSITIVE) { for(z=point;z<(len-textlen) && !retval;z++) { if(_tcsncmp(&tmpbuf[z], searchtext, textlen) == 0) retval = z + textlen; } } else { for(z=point;z<(len-textlen) && !retval;z++) { if(_tcsnicmp(&tmpbuf[z], searchtext, textlen) == 0) retval = z + textlen; } } if(retval) { SendMessage(handle, EM_SETSEL, (WPARAM)retval - textlen, (LPARAM)retval); SendMessage(handle, EM_SCROLLCARET, 0, 0); } free(tmpbuf); return retval; } /* * Stops redrawing of an MLE box. * Parameters: * handle: Handle to the MLE to freeze. */ void API dw_mle_freeze(HWND handle) { } /* * Resumes redrawing of an MLE box. * Parameters: * handle: Handle to the MLE to thaw. */ void API dw_mle_thaw(HWND handle) { } /* * Sets the percent bar position. * Parameters: * handle: Handle to the percent bar to be set. * position: Position of the percent bar withing the range. */ void API dw_percent_set_pos(HWND handle, unsigned int position) { if(position == DW_PERCENT_INDETERMINATE) { /* If our common controls supports it... */ if((dwComctlVer >= PACKVERSION(6,0))) { /* Enable the style on the control */ SetWindowLong(handle, GWL_STYLE, GetWindowLong(handle, GWL_STYLE) | PBS_MARQUEE); /* Start the bar going */ SendMessage(handle, PBM_SETMARQUEE, 1, 100); } else SendMessage(handle, PBM_SETPOS, 0, 0); } 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 */ SetWindowLong(handle, GWL_STYLE, style & ~PBS_MARQUEE); } } /* Otherwise just set the position */ SendMessage(handle, PBM_SETPOS, (WPARAM)position, 0); } } /* * Returns the position of the slider. * Parameters: * handle: Handle to the slider to be queried. */ unsigned int API dw_slider_get_pos(HWND handle) { int max = (int)SendMessage(handle, TBM_GETRANGEMAX, 0, 0); ULONG currentstyle = GetWindowLong(handle, GWL_STYLE); if(currentstyle & TBS_VERT) return max - (unsigned int)SendMessage(handle, TBM_GETPOS, 0, 0); return (unsigned int)SendMessage(handle, TBM_GETPOS, 0, 0); } /* * Sets the slider position. * Parameters: * handle: Handle to the slider to be set. * position: Position of the slider withing the range. */ void API dw_slider_set_pos(HWND handle, unsigned int position) { int max = (int)SendMessage(handle, TBM_GETRANGEMAX, 0, 0); ULONG currentstyle = GetWindowLong(handle, GWL_STYLE); if(currentstyle & TBS_VERT) SendMessage(handle, TBM_SETPOS, (WPARAM)TRUE, (LPARAM)max - position); else SendMessage(handle, TBM_SETPOS, (WPARAM)TRUE, (LPARAM)position); } /* * Returns the position of the scrollbar. * Parameters: * handle: Handle to the scrollbar to be queried. */ unsigned int API dw_scrollbar_get_pos(HWND handle) { return (unsigned int)SendMessage(handle, SBM_GETPOS, 0, 0); } /* * Sets the scrollbar position. * Parameters: * handle: Handle to the scrollbar to be set. * position: Position of the scrollbar withing the range. */ void API dw_scrollbar_set_pos(HWND handle, unsigned int position) { dw_window_set_data(handle, "_dw_scrollbar_value", DW_UINT_TO_POINTER(position)); SendMessage(handle, SBM_SETPOS, (WPARAM)position, (LPARAM)TRUE); } /* * Sets the scrollbar range. * Parameters: * handle: Handle to the scrollbar to be set. * range: Maximum range value. * visible: Visible area relative to the range. */ void API dw_scrollbar_set_range(HWND handle, unsigned int range, unsigned int visible) { SCROLLINFO si; si.cbSize = sizeof(SCROLLINFO); si.fMask = SIF_RANGE | SIF_PAGE; si.nMin = 0; si.nMax = range - 1; si.nPage = visible; SendMessage(handle, SBM_SETSCROLLINFO, (WPARAM)TRUE, (LPARAM)&si); } /* * Sets the spinbutton value. * Parameters: * handle: Handle to the spinbutton to be set. * position: Current value of the spinbutton. */ void API dw_spinbutton_set_pos(HWND handle, long position) { TCHAR tmpbuf[101] = {0}; ColorInfo *cinfo = (ColorInfo *)GetWindowLongPtr(handle, GWLP_USERDATA); _sntprintf(tmpbuf, 100, TEXT("%ld"), position); if(cinfo && cinfo->buddy) SetWindowText(cinfo->buddy, tmpbuf); SendMessage(handle, UDM_SETPOS32, 0, (LPARAM)position); } /* * Sets the spinbutton limits. * Parameters: * handle: Handle to the spinbutton to be set. * position: Current value of the spinbutton. * position: Current value of the spinbutton. */ void API dw_spinbutton_set_limits(HWND handle, long upper, long lower) { SendMessage(handle, UDM_SETRANGE32, (WPARAM)lower,(LPARAM)upper); } /* * Sets the entryfield character limit. * Parameters: * handle: Handle to the spinbutton to be set. * limit: Number of characters the entryfield will take. */ void API dw_entryfield_set_limit(HWND handle, ULONG limit) { SendMessage(handle, EM_SETLIMITTEXT, (WPARAM)limit, 0); } /* * Returns the current value of the spinbutton. * Parameters: * handle: Handle to the spinbutton to be queried. */ long API dw_spinbutton_get_pos(HWND handle) { return (long)SendMessage(handle, UDM_GETPOS32, 0, 0); } /* * Returns the state of the checkbox. * Parameters: * handle: Handle to the checkbox to be queried. */ int API dw_checkbox_get(HWND handle) { if(SendMessage(handle, BM_GETCHECK, 0, 0) == BST_CHECKED) return (in_checkbox_handler ? FALSE : TRUE); return (in_checkbox_handler ? TRUE : FALSE); } /* This function unchecks all radiobuttons on a box */ BOOL CALLBACK _uncheck_radios(HWND handle, LPARAM lParam) { TCHAR tmpbuf[100] = {0}; GetClassName(handle, tmpbuf, 99); if(_tcsnicmp(tmpbuf, BUTTONCLASSNAME, _tcslen(BUTTONCLASSNAME)+1)==0) { if(!dw_window_get_data(handle, "_dw_checkbox")) SendMessage(handle, BM_SETCHECK, 0, 0); } return TRUE; } /* * Sets the state of the checkbox. * Parameters: * handle: Handle to the checkbox to be queried. * value: TRUE for checked, FALSE for unchecked. */ void API dw_checkbox_set(HWND handle, int value) { if(!dw_window_get_data(handle, "_dw_checkbox")) { HWND parent = GetParent(handle); if(parent) EnumChildWindows(parent, _uncheck_radios, 0); } SendMessage(handle, BM_SETCHECK, (WPARAM)value, 0); } /* * Inserts an item into a tree window (widget) after another item. * Parameters: * handle: Handle to the tree to be inserted. * item: Handle to the item to be positioned after. * title: The text title of the entry. * icon: Handle to coresponding icon. * parent: Parent handle or 0 if root. * itemdata: Item specific data. */ HTREEITEM API dw_tree_insert_after(HWND handle, HTREEITEM item, char *title, HICN icon, HTREEITEM parent, void *itemdata) { TVITEM tvi; TVINSERTSTRUCT tvins; HTREEITEM hti; tvi.mask = TVIF_TEXT | TVIF_IMAGE | TVIF_SELECTEDIMAGE | TVIF_PARAM; tvi.pszText = UTF8toWide(title); tvi.lParam = (LPARAM)itemdata; tvi.cchTextMax = (int)_tcslen(tvi.pszText); tvi.iSelectedImage = tvi.iImage = _lookup_icon(handle, (HICON)icon, 1); tvins.item = tvi; tvins.hParent = parent; tvins.hInsertAfter = item ? item : TVI_FIRST; hti = TreeView_InsertItem(handle, &tvins); return hti; } /* * Inserts an item into a tree window (widget). * Parameters: * handle: Handle to the tree to be inserted. * title: The text title of the entry. * icon: Handle to coresponding icon. * parent: Parent handle or 0 if root. * itemdata: Item specific data. */ HTREEITEM API dw_tree_insert(HWND handle, char *title, HICN icon, HTREEITEM parent, void *itemdata) { TVITEM tvi; TVINSERTSTRUCT tvins; HTREEITEM hti; tvi.mask = TVIF_TEXT | TVIF_IMAGE | TVIF_SELECTEDIMAGE | TVIF_PARAM; tvi.pszText = UTF8toWide(title); tvi.lParam = (LPARAM)itemdata; tvi.cchTextMax = (int)_tcslen(tvi.pszText); tvi.iSelectedImage = tvi.iImage = _lookup_icon(handle, (HICON)icon, 1); tvins.item = tvi; tvins.hParent = parent; tvins.hInsertAfter = TVI_LAST; hti = TreeView_InsertItem(handle, &tvins); return hti; } /* * Sets the text and icon of an item in a tree window (widget). * Parameters: * handle: Handle to the tree containing the item. * item: Handle of the item to be modified. * title: The text title of the entry. * icon: Handle to coresponding icon. */ void API dw_tree_item_change(HWND handle, HTREEITEM item, char *title, HICN icon) { TVITEM tvi; tvi.mask = TVIF_HANDLE; tvi.hItem = item; if(TreeView_GetItem(handle, &tvi)) { tvi.mask = TVIF_TEXT | TVIF_IMAGE | TVIF_SELECTEDIMAGE; tvi.pszText = UTF8toWide(title); tvi.cchTextMax = (int)_tcslen(tvi.pszText); tvi.iSelectedImage = tvi.iImage = _lookup_icon(handle, (HICON)icon, 1); tvi.hItem = (HTREEITEM)item; TreeView_SetItem(handle, &tvi); } } /* * Sets the item data of a tree item. * Parameters: * handle: Handle to the tree containing the item. * item: Handle of the item to be modified. * itemdata: User defined data to be associated with item. */ void API dw_tree_item_set_data(HWND handle, HTREEITEM item, void *itemdata) { TVITEM tvi; tvi.mask = TVIF_HANDLE | TVIF_PARAM; tvi.hItem = item; tvi.lParam = (LPARAM)itemdata; TreeView_SetItem(handle, &tvi); } /* * Gets the item data of a tree item. * Parameters: * handle: Handle to the tree containing the item. * item: Handle of the item to be modified. */ void * API dw_tree_item_get_data(HWND handle, HTREEITEM item) { TVITEM tvi; tvi.mask = TVIF_HANDLE | TVIF_PARAM; tvi.hItem = item; if(TreeView_GetItem(handle, &tvi)) { return (void *)tvi.lParam; } return NULL; } /* * Gets the text an item in a tree window (widget). * Parameters: * handle: Handle to the tree containing the item. * item: Handle of the item to be modified. */ char * API dw_tree_get_title(HWND handle, HTREEITEM item) { TVITEM tvi; TCHAR textbuf[1025] = {0}, *textptr = textbuf; tvi.mask = TVIF_HANDLE | TVIF_TEXT; tvi.hItem = item; tvi.pszText = textptr; tvi.cchTextMax = 1024; if(TreeView_GetItem(handle, &tvi)) return _strdup(WideToUTF8(textptr)); return NULL; } /* * Gets the text an item in a tree window (widget). * Parameters: * handle: Handle to the tree containing the item. * item: Handle of the item to be modified. */ HTREEITEM API dw_tree_get_parent(HWND handle, HTREEITEM item) { return TreeView_GetParent(handle, item); } /* * Sets this item as the active selection. * Parameters: * handle: Handle to the tree window (widget) to be selected. * item: Handle to the item to be selected. */ void API dw_tree_item_select(HWND handle, HTREEITEM item) { TreeView_SelectItem(handle, item); } /* * Removes all nodes from a tree. * Parameters: * handle: Handle to the window (widget) to be cleared. */ void API dw_tree_clear(HWND handle) { dw_window_set_data(handle, "_dw_select_item", DW_INT_TO_POINTER(1)); TreeView_DeleteAllItems(handle); dw_window_set_data(handle, "_dw_select_item", NULL); } /* * Expands a node on a tree. * Parameters: * handle: Handle to the tree window (widget). * item: Handle to node to be expanded. */ void API dw_tree_item_expand(HWND handle, HTREEITEM item) { TreeView_Expand(handle, item, TVE_EXPAND); } /* * Collapses a node on a tree. * Parameters: * handle: Handle to the tree window (widget). * item: Handle to node to be collapsed. */ void API dw_tree_item_collapse(HWND handle, HTREEITEM item) { TreeView_Expand(handle, item, TVE_COLLAPSE); } /* * Removes a node from a tree. * Parameters: * handle: Handle to the window (widget) to be cleared. * item: Handle to node to be deleted. */ void API dw_tree_item_delete(HWND handle, HTREEITEM item) { TreeView_DeleteItem(handle, item); } /* * Sets up the container columns. * Parameters: * handle: Handle to the container to be configured. * flags: An array of unsigned longs with column flags. * titles: An array of strings with column text titles. * count: The number of columns (this should match the arrays). * separator: The column number that contains the main separator. * (only used on OS/2 but must be >= 0 on all) */ int API dw_container_setup(HWND handle, unsigned long *flags, char **titles, int count, int separator) { ContainerInfo *cinfo = (ContainerInfo *)GetWindowLongPtr(handle, GWLP_USERDATA); int z, l = 0; unsigned long *tempflags = calloc(sizeof(unsigned long), count + 2); LVCOLUMN lvc; if(separator == -1) { tempflags[0] = DW_CFA_RESERVED; l = 1; } memcpy(&tempflags[l], flags, sizeof(unsigned long) * count); tempflags[count + l] = 0; cinfo->flags = tempflags; cinfo->columns = count + l; for(z=0;z<count;z++) { if(titles[z]) { lvc.mask = LVCF_TEXT | LVCF_WIDTH | LVCF_SUBITEM | LVCF_FMT; lvc.pszText = UTF8toWide(titles[z]); lvc.cchTextMax = (int)_tcslen(lvc.pszText); if(flags[z] & DW_CFA_RIGHT) lvc.fmt = LVCFMT_RIGHT; else if(flags[z] & DW_CFA_CENTER) lvc.fmt = LVCFMT_CENTER; else lvc.fmt = LVCFMT_LEFT; lvc.cx = 75; lvc.iSubItem = count; SendMessage(handle, LVM_INSERTCOLUMN, (WPARAM)z + l, (LPARAM)&lvc); } } ListView_SetExtendedListViewStyle(handle, LVS_EX_FULLROWSELECT | LVS_EX_SUBITEMIMAGES); return DW_ERROR_NONE; } /* * Configures the main filesystem column title for localization. * Parameters: * handle: Handle to the container to be configured. * title: The title to be displayed in the main column. */ void API dw_filesystem_set_column_title(HWND handle, char *title) { char *newtitle = _strdup(title ? title : ""); dw_window_set_data(handle, "_dw_coltitle", newtitle); } /* * Sets up the filesystem columns, note: filesystem always has an icon/filename field. * Parameters: * handle: Handle to the container to be configured. * flags: An array of unsigned longs with column flags. * titles: An array of strings with column text titles. * count: The number of columns (this should match the arrays). */ int API dw_filesystem_setup(HWND handle, unsigned long *flags, char **titles, int count) { char *coltitle = (char *)dw_window_get_data(handle, "_dw_coltitle"); LV_COLUMN lvc; lvc.mask = LVCF_TEXT | LVCF_WIDTH | LVCF_SUBITEM; lvc.pszText = coltitle ? UTF8toWide(coltitle) : TEXT("Filename"); lvc.cchTextMax = 8; lvc.fmt = 0; if(!count) lvc.cx = 300; else lvc.cx = 150; lvc.iSubItem = count; SendMessage(handle, LVM_INSERTCOLUMN, (WPARAM)0, (LPARAM)&lvc); dw_container_setup(handle, flags, titles, count, -1); if(coltitle) { dw_window_set_data(handle, "_dw_coltitle", NULL); free(coltitle); } return DW_ERROR_NONE; } /* * Obtains an icon from a module (or header in GTK). * Parameters: * module: Handle to module (DLL) in OS/2 and Windows. * id: A unsigned long id int the resources on OS/2 and * Windows, on GTK this is converted to a pointer * to an embedded XPM. */ HICN API dw_icon_load(unsigned long module, unsigned long id) { return (HICN)LoadIcon(DWInstance, MAKEINTRESOURCE(id)); } /* * Obtains an icon from a file. * Parameters: * filename: Name of the file, omit extention to have * DW pick the appropriate file extension. * (ICO on OS/2 or Windows, XPM on Unix) */ HICN API dw_icon_load_from_file(char *filename) { #ifdef GDIPLUS return _dw_load_icon(filename); #else char *file = malloc(strlen(filename) + 5); HANDLE icon; if(!file) return 0; strcpy(file, filename); /* check if we can read from this file (it exists and read permission) */ if(access(file, 04) != 0) { /* Try with .bmp extention */ strcat(file, ".ico"); if(access(file, 04) != 0) { free(file); return 0; } } icon = LoadImage(NULL, UTF8toWide(file), IMAGE_ICON, 0, 0, LR_LOADFROMFILE); free(file); return (HICN)icon; #endif } /* * Obtains an icon from data * Parameters: * data: Source of icon data * DW pick the appropriate file extension. * (ICO on OS/2 or Windows, XPM on Unix) */ HICN API dw_icon_load_from_data(char *data, int len) { HANDLE icon = 0; char *file; FILE *fp; if ( !data ) return 0; file = _tempnam( _dw_alternate_temp_dir, "dw" ); if ( file != NULL ) { fp = fopen( file, "wb" ); if ( fp != NULL ) { fwrite( data, 1, len, fp ); fclose( fp ); #ifdef GDIPLUS icon = _dw_load_icon(file); #else icon = LoadImage( NULL, UTF8toWide(file), IMAGE_ICON, 0, 0, LR_LOADFROMFILE ); #endif } else { _unlink( file ); free( file ); return 0; } _unlink( file ); free( file ); } return (HICN)icon; } /* * Frees a loaded resource in OS/2 and Windows. * Parameters: * handle: Handle to icon returned by dw_icon_load(). */ void API dw_icon_free(HICN handle) { DestroyIcon((HICON)handle); } /* * Allocates memory used to populate a container. * Parameters: * handle: Handle to the container window (widget). * rowcount: The number of items to be populated. */ void * API dw_container_alloc(HWND handle, int rowcount) { LV_ITEM lvi; int z, item; lvi.mask = LVIF_DI_SETITEM | LVIF_TEXT | LVIF_IMAGE; lvi.iSubItem = 0; /* Insert at the end */ lvi.iItem = 1000000; lvi.pszText = TEXT(""); lvi.cchTextMax = 1; lvi.iImage = -1; ShowWindow(handle, SW_HIDE); item = ListView_InsertItem(handle, &lvi); for(z=1;z<rowcount;z++) ListView_InsertItem(handle, &lvi); dw_window_set_data(handle, "_dw_insertitem", DW_INT_TO_POINTER(item)); return (void *)handle; } /* Finds a icon in the table, otherwise it adds it to the table * and returns the index in the table. */ int _lookup_icon(HWND handle, HICON hicon, int type) { int z; 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); } for(z=0;z<ICON_INDEX_LIMIT;z++) { if(!lookup[z]) { lookup[z] = hicon; ImageList_AddIcon(hSmall, hicon); ImageList_AddIcon(hLarge, hicon); if(type) { TreeView_SetImageList(handle, hSmall, TVSIL_NORMAL); } else { ListView_SetImageList(handle, hSmall, LVSIL_SMALL); ListView_SetImageList(handle, hLarge, LVSIL_NORMAL); } lasthwnd = handle; return z; } if(hicon == lookup[z]) { if(lasthwnd != handle) { if(type) { TreeView_SetImageList(handle, hSmall, TVSIL_NORMAL); } else { ListView_SetImageList(handle, hSmall, LVSIL_SMALL); ListView_SetImageList(handle, hLarge, LVSIL_NORMAL); } lasthwnd = handle; } return z; } } return -1; } /* * Sets an item in specified row and column to the given data. * Parameters: * handle: Handle to the container window (widget). * pointer: Pointer to the allocated memory in dw_container_alloc(). * column: Zero based column of data being set. * row: Zero based row of data being set. * data: Pointer to the data to be added. */ void API dw_filesystem_set_file(HWND handle, void *pointer, int row, char *filename, HICN icon) { LV_ITEM lvi; int item = 0; if(pointer) { item = DW_POINTER_TO_INT(dw_window_get_data(handle, "_dw_insertitem")); } lvi.iItem = row + item; lvi.iSubItem = 0; lvi.mask = LVIF_DI_SETITEM | LVIF_IMAGE | LVIF_TEXT; lvi.pszText = UTF8toWide(filename); lvi.cchTextMax = (int)_tcslen(lvi.pszText); lvi.iImage = _lookup_icon(handle, (HICON)icon, 0); ListView_SetItem(handle, &lvi); } /* * Sets an item in specified row and column to the given data. * Parameters: * handle: Handle to the container window (widget). * pointer: Pointer to the allocated memory in dw_container_alloc(). * column: Zero based column of data being set. * row: Zero based row of data being set. * data: Pointer to the data to be added. */ void API dw_filesystem_set_item(HWND handle, void *pointer, int column, int row, void *data) { dw_container_set_item(handle, pointer, column + 1, row, data); } /* * Sets an item in specified row and column to the given data. * Parameters: * handle: Handle to the container window (widget). * pointer: Pointer to the allocated memory in dw_container_alloc(). * column: Zero based column of data being set. * row: Zero based row of data being set. * data: Pointer to the data to be added. */ void API dw_container_set_item(HWND handle, void *pointer, int column, int row, void *data) { ContainerInfo *cinfo = (ContainerInfo *)GetWindowLongPtr(handle, GWLP_USERDATA); ULONG *flags; LV_ITEM lvi; TCHAR textbuffer[101] = {0}; int item = 0; if(pointer) { item = DW_POINTER_TO_INT(dw_window_get_data(handle, "_dw_insertitem")); } if(!cinfo || !cinfo->flags) return; flags = cinfo->flags; lvi.mask = LVIF_DI_SETITEM | LVIF_TEXT; lvi.iItem = row + item; lvi.iSubItem = column; lvi.pszText = textbuffer; lvi.cchTextMax = 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); } else lvi.iImage = -1; } else if(flags[column] & DW_CFA_STRING && data) { char *tmp = *((char **)data); if(!tmp) tmp = ""; lvi.pszText = UTF8toWide(tmp); lvi.cchTextMax = (int)_tcslen(lvi.pszText); } else if(flags[column] & DW_CFA_ULONG && data) { ULONG tmp = *((ULONG *)data); _sntprintf(textbuffer, 100, TEXT("%lu"), tmp); lvi.cchTextMax = (int)_tcslen(textbuffer); } else if(flags[column] & DW_CFA_DATE && data) { struct tm curtm; CDATE cdate = *((CDATE *)data); memset(&curtm, 0, sizeof(struct tm)); /* Safety check... zero dates are crashing * Visual Studio 2008. -Brian */ if(cdate.year > 1900 && cdate.year < 2100) { curtm.tm_mday = (cdate.day >= 0 && cdate.day < 32) ? cdate.day : 1; curtm.tm_mon = (cdate.month > 0 && cdate.month < 13) ? cdate.month - 1 : 0; curtm.tm_year = cdate.year - 1900; _tcsftime(textbuffer, 100, TEXT("%x"), &curtm); } lvi.cchTextMax = (int)_tcslen(textbuffer); } else if(flags[column] & DW_CFA_TIME && data) { struct tm curtm; CTIME ctime = *((CTIME *)data); curtm.tm_hour = (ctime.hours >= 0 && ctime.hours < 24) ? ctime.hours : 0; curtm.tm_min = (ctime.minutes >= 0 && ctime.minutes < 60) ? ctime.minutes : 0; curtm.tm_sec = (ctime.seconds >= 0 && ctime.seconds < 60) ? ctime.seconds : 0; _tcsftime(textbuffer, 100, TEXT("%X"), &curtm); lvi.cchTextMax = (int)_tcslen(textbuffer); } ListView_SetItem(handle, &lvi); } /* * Changes an existing item in specified row and column to the given data. * Parameters: * handle: Handle to the container window (widget). * column: Zero based column of data being set. * row: Zero based row of data being set. * data: Pointer to the data to be added. */ void API dw_container_change_item(HWND handle, int column, int row, void *data) { dw_container_set_item(handle, NULL, column, row, data); } /* * Changes an existing item in specified row and column to the given data. * Parameters: * handle: Handle to the container window (widget). * column: Zero based column of data being set. * row: Zero based row of data being set. * data: Pointer to the data to be added. */ void API dw_filesystem_change_item(HWND handle, int column, int row, void *data) { dw_filesystem_set_item(handle, NULL, column, row, data); } /* * Changes an item in specified row and column to the given data. * Parameters: * handle: Handle to the container window (widget). * pointer: Pointer to the allocated memory in dw_container_alloc(). * column: Zero based column of data being set. * row: Zero based row of data being set. * data: Pointer to the data to be added. */ void API dw_filesystem_change_file(HWND handle, int row, char *filename, HICN icon) { dw_filesystem_set_file(handle, NULL, row, filename, icon); } /* * Gets column type for a container column * Parameters: * handle: Handle to the container window (widget). * column: Zero based column. */ int API dw_container_get_column_type(HWND handle, int column) { ContainerInfo *cinfo = (ContainerInfo *)GetWindowLongPtr(handle, GWLP_USERDATA); ULONG *flags; int rc; if(!cinfo || !cinfo->flags) return 0; flags = cinfo->flags; if(flags[column] & DW_CFA_BITMAPORICON) rc = DW_CFA_BITMAPORICON; else if(flags[column] & DW_CFA_STRING) rc = DW_CFA_STRING; else if(flags[column] & DW_CFA_ULONG) rc = DW_CFA_ULONG; else if(flags[column] & DW_CFA_DATE) rc = DW_CFA_DATE; else if(flags[column] & DW_CFA_TIME) rc = DW_CFA_TIME; else rc = 0; return rc; } /* * Gets column type for a filesystem container column * Parameters: * handle: Handle to the container window (widget). * column: Zero based column. */ int API dw_filesystem_get_column_type(HWND handle, int column) { return dw_container_get_column_type( handle, column + 1 ); } /* * Sets the alternating row colors for container window (widget) handle. * Parameters: * handle: The window (widget) handle. * oddcolor: Odd row background color in DW_RGB format or a default color index. * evencolor: Even row background color in DW_RGB format or a default color index. * DW_RGB_TRANSPARENT will disable coloring rows. * DW_CLR_DEFAULT will use the system default alternating row colors. */ void API dw_container_set_stripe(HWND handle, unsigned long oddcolor, unsigned long evencolor) { ContainerInfo *cinfo = (ContainerInfo *)GetWindowLongPtr(handle, GWLP_USERDATA); /* Drop out on error */ if(!cinfo) return; /* Create new brushes or remove if transparent */ cinfo->odd = oddcolor; cinfo->even = evencolor; } /* * Sets the width of a column in the container. * Parameters: * handle: Handle to window (widget) of container. * column: Zero based column of width being set. * width: Width of column in pixels. */ void API dw_container_set_column_width(HWND handle, int column, int width) { ListView_SetColumnWidth(handle, column, width); } /* Internal version that handles both types */ void _dw_container_set_row_data(HWND handle, void *pointer, int row, int type, void *data) { LV_ITEM lvi; int item = 0; if(pointer) { 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 *)); lvi.lParam = (LPARAM)params; ListView_SetItem(handle, &lvi); } /* If type string, we need to duplicate the string... * 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); } /* Set the new data in the pointer array */ params[type] = newparam; } } /* * Sets the title of a row in the container. * Parameters: * pointer: Pointer to the allocated memory in dw_container_alloc(). * row: Zero based row of data being set. * title: String title of the item. */ void API dw_container_set_row_title(void *pointer, int row, char *title) { _dw_container_set_row_data(pointer, pointer, row, _DW_DATA_TYPE_STRING, title); } /* * Changes the title of a row already inserted in the container. * Parameters: * handle: Handle to the container window (widget). * row: Zero based row of data being set. * title: String title of the item. */ void API dw_container_change_row_title(HWND handle, int row, char *title) { _dw_container_set_row_data(handle, NULL, row, _DW_DATA_TYPE_STRING, title); } /* * Sets the data of a row in the container. * Parameters: * pointer: Pointer to the allocated memory in dw_container_alloc(). * row: Zero based row of data being set. * data: Data pointer. */ void API dw_container_set_row_data(void *pointer, int row, void *data) { _dw_container_set_row_data(pointer, pointer, row, _DW_DATA_TYPE_POINTER, data); } /* * Changes the data of a row already inserted in the container. * Parameters: * handle: Handle to the container window (widget). * row: Zero based row of data being set. * data: Data pointer. */ void API dw_container_change_row_data(HWND handle, int row, void *data) { _dw_container_set_row_data(handle, NULL, row, _DW_DATA_TYPE_POINTER, data); } /* * Sets the title of a row in the container. * Parameters: * handle: Handle to the container window (widget). * pointer: Pointer to the allocated memory in dw_container_alloc(). * rowcount: The number of rows to be inserted. */ void API dw_container_insert(HWND handle, void *pointer, int rowcount) { ShowWindow(handle, SW_SHOW); } /* * Removes all rows from a container. * Parameters: * handle: Handle to the window (widget) to be cleared. * redraw: TRUE to cause the container to redraw immediately. */ void API dw_container_clear(HWND handle, int redraw) { ListView_DeleteAllItems(handle); } /* * Removes the first x rows from a container. * Parameters: * handle: Handle to the window (widget) to be deleted from. * rowcount: The number of rows to be deleted. */ void API dw_container_delete(HWND handle, int rowcount) { int z, _index = DW_POINTER_TO_INT(dw_window_get_data(handle, "_dw_index")); for(z=0;z<rowcount;z++) { ListView_DeleteItem(handle, 0); } if(rowcount > _index) dw_window_set_data(handle, "_dw_index", 0); else dw_window_set_data(handle, "_dw_index", DW_INT_TO_POINTER((_index - rowcount))); } /* * Scrolls container up or down. * Parameters: * handle: Handle to the window (widget) to be scrolled. * direction: DW_SCROLL_UP, DW_SCROLL_DOWN, DW_SCROLL_TOP or * DW_SCROLL_BOTTOM. (rows is ignored for last two) * rows: The number of rows to be scrolled. */ void API dw_container_scroll(HWND handle, int direction, long rows) { switch(direction) { case DW_SCROLL_TOP: ListView_Scroll(handle, 0, -10000000); break; case DW_SCROLL_BOTTOM: ListView_Scroll(handle, 0, 10000000); break; } } /* * Starts a new query of a container. * Parameters: * handle: Handle to the window (widget) to be queried. * flags: If this parameter is DW_CRA_SELECTED it will only * return items that are currently selected. Otherwise * it will return all records in the container. */ char * API dw_container_query_start(HWND handle, unsigned long flags) { LV_ITEM lvi; int _index = ListView_GetNextItem(handle, -1, flags); void **params; 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 retval = (char *)params[type]; } dw_window_set_data(handle, "_dw_index", DW_INT_TO_POINTER(_index)); return retval; } /* * Continues an existing query of a container. * Parameters: * handle: Handle to the window (widget) to be queried. * flags: If this parameter is DW_CRA_SELECTED it will only * return items that are currently selected. Otherwise * it will return all records in the container. */ char * API dw_container_query_next(HWND handle, unsigned long flags) { LV_ITEM lvi; int _index = DW_POINTER_TO_INT(dw_window_get_data(handle, "_dw_index")); void **params; int type = _DW_DATA_TYPE_STRING; char *retval = NULL; _index = ListView_GetNextItem(handle, _index, flags); 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 retval = (char *)params[type]; } dw_window_set_data(handle, "_dw_index", DW_INT_TO_POINTER(_index)); return retval; } /* * Cursors the item with the text speficied, and scrolls to that item. * Parameters: * handle: Handle to the window (widget) to be queried. * text: Text usually returned by dw_container_query(). */ void API dw_container_cursor(HWND handle, char *text) { int index = ListView_GetNextItem(handle, -1, LVNI_ALL); while ( index != -1 ) { LV_ITEM lvi; void **params; memset(&lvi, 0, sizeof(LV_ITEM)); lvi.iItem = index; lvi.mask = LVIF_PARAM; ListView_GetItem( handle, &lvi ); 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 ); return; } index = ListView_GetNextItem( handle, index, LVNI_ALL ); } } /* * Cursors the item with the text speficied, and scrolls to that item. * Parameters: * handle: Handle to the window (widget) to be queried. * text: Text usually returned by dw_container_query(). */ void API dw_container_cursor_by_data(HWND handle, void *data) { int index = ListView_GetNextItem(handle, -1, LVNI_ALL); while ( index != -1 ) { LV_ITEM lvi; void **params; memset(&lvi, 0, sizeof(LV_ITEM)); lvi.iItem = index; lvi.mask = LVIF_PARAM; ListView_GetItem( handle, &lvi ); 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 ); return; } index = ListView_GetNextItem( handle, index, LVNI_ALL ); } } /* * Deletes the item with the text speficied. * Parameters: * handle: Handle to the window (widget). * text: Text usually returned by dw_container_query(). */ void API dw_container_delete_row(HWND handle, char *text) { int index = ListView_GetNextItem(handle, -1, LVNI_ALL); while(index != -1) { LV_ITEM lvi; void **params; memset(&lvi, 0, sizeof(LV_ITEM)); lvi.iItem = index; lvi.mask = LVIF_PARAM; ListView_GetItem(handle, &lvi); params = (void **)lvi.lParam; if ( params && params[_DW_DATA_TYPE_STRING] && strcmp( (char *)params[_DW_DATA_TYPE_STRING], text ) == 0 ) { int _index = DW_POINTER_TO_INT(dw_window_get_data(handle, "_dw_index")); if(index < _index) dw_window_set_data(handle, "_dw_index", DW_INT_TO_POINTER((_index - 1))); ListView_DeleteItem(handle, index); return; } index = ListView_GetNextItem(handle, index, LVNI_ALL); } } /* * Deletes the item with the text speficied. * Parameters: * handle: Handle to the window (widget). * text: Text usually returned by dw_container_query(). */ void API dw_container_delete_row_by_data(HWND handle, void *data) { int index = ListView_GetNextItem(handle, -1, LVNI_ALL); while(index != -1) { LV_ITEM lvi; void **params; memset(&lvi, 0, sizeof(LV_ITEM)); lvi.iItem = index; lvi.mask = LVIF_PARAM; ListView_GetItem(handle, &lvi); params = (void **)lvi.lParam; if ( params && params[_DW_DATA_TYPE_POINTER] == data ) { int _index = DW_POINTER_TO_INT(dw_window_get_data(handle, "_dw_index")); if(index < _index) dw_window_set_data(handle, "_dw_index", DW_INT_TO_POINTER((_index - 1))); ListView_DeleteItem(handle, index); return; } index = ListView_GetNextItem(handle, index, LVNI_ALL); } } /* * Optimizes the column widths so that all data is visible. * Parameters: * handle: Handle to the window (widget) to be optimized. */ void API dw_container_optimize(HWND handle) { ContainerInfo *cinfo = (ContainerInfo *)GetWindowLongPtr(handle, GWLP_USERDATA); if(cinfo && cinfo->columns == 1) { ListView_SetColumnWidth(handle, 0, LVSCW_AUTOSIZE); } else if(cinfo && cinfo->columns > 1) { ULONG *flags = cinfo->flags, *columns = calloc(sizeof(ULONG), cinfo->columns); TCHAR *text = calloc(sizeof(TCHAR), 1024); unsigned int z; int index; /* Initialize with sizes of column labels */ for(z=0;z<cinfo->columns;z++) { if(flags[z] & DW_CFA_BITMAPORICON) columns[z] = 5; else { LVCOLUMN lvc; lvc.mask = LVCF_TEXT; lvc.cchTextMax = 1023; lvc.pszText = text; if(ListView_GetColumn(handle, z, &lvc)) columns[z] = ListView_GetStringWidth(handle, lvc.pszText); if(flags[z] & DW_CFA_RESERVED) columns[z] += 20; } } index = ListView_GetNextItem(handle, -1, LVNI_ALL); /* Query all the item texts */ 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) width += 20; if(width > columns[z]) columns[z] = width; } 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); free(columns); free(text); } } /* * Inserts an icon into the taskbar. * Parameters: * handle: Window handle that will handle taskbar icon messages. * icon: Icon handle to display in the taskbar. * bubbletext: Text to show when the mouse is above the icon. */ void API dw_taskbar_insert(HWND handle, HICN icon, char *bubbletext) { NOTIFYICONDATA tnid; tnid.cbSize = sizeof(NOTIFYICONDATA); tnid.hWnd = handle; tnid.uID = (UINT)(uintptr_t)icon; tnid.uFlags = NIF_MESSAGE | NIF_ICON | NIF_TIP; tnid.uCallbackMessage = WM_USER+2; tnid.hIcon = (HICON)icon; if(bubbletext) _tcsncpy(tnid.szTip, UTF8toWide(bubbletext), sizeof(tnid.szTip)); else tnid.szTip[0] = 0; Shell_NotifyIcon(NIM_ADD, &tnid); } /* * Deletes an icon from the taskbar. * Parameters: * handle: Window handle that was used with dw_taskbar_insert(). * icon: Icon handle that was used with dw_taskbar_insert(). */ void API dw_taskbar_delete(HWND handle, HICN icon) { NOTIFYICONDATA tnid; tnid.cbSize = sizeof(NOTIFYICONDATA); tnid.hWnd = handle; tnid.uID = (UINT)(uintptr_t)icon; Shell_NotifyIcon(NIM_DELETE, &tnid); } /* * Creates a rendering context widget (window) to be packed. * Parameters: * id: An id to be used with dw_window_from_id. * Returns: * A handle to the widget or NULL on failure. */ HWND API dw_render_new(unsigned long id) { Box *newbox = calloc(sizeof(Box), 1); HWND tmp = CreateWindow(ObjectClassName, NULL, WS_VISIBLE | WS_CHILD | WS_CLIPCHILDREN, 0,0,0,0, DW_HWND_OBJECT, (HMENU)(uintptr_t)id, DWInstance, NULL); newbox->pad = 0; newbox->type = 0; newbox->count = 0; newbox->grouphwnd = (HWND)NULL; newbox->cinfo.pOldProc = SubclassWindow(tmp, _rendwndproc); newbox->cinfo.fore = newbox->cinfo.back = -1; SetWindowLongPtr( tmp, GWLP_USERDATA, (LONG_PTR)newbox ); return tmp; } /* Sets the current foreground drawing color. * Parameters: * red: red value. * green: green value. * blue: blue value. */ void API dw_color_foreground_set(unsigned long value) { HPEN hPen = TlsGetValue(_hPen); HBRUSH hBrush = TlsGetValue(_hBrush); COLORREF foreground; #ifdef GDIPLUS GpBrush *brush = TlsGetValue(_gpBrush); GpPen *pen = TlsGetValue(_gpPen); ARGB gpfore; #endif 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)); TlsSetValue(_hBrush, CreateSolidBrush(foreground)); } /* Sets the current background drawing color. * Parameters: * red: red value. * green: green value. * blue: blue value. */ void API dw_color_background_set(unsigned long value) { COLORREF background; value = _internal_color(value); background = RGB(DW_RED_VALUE(value), DW_GREEN_VALUE(value), DW_BLUE_VALUE(value)); if(value == DW_RGB_TRANSPARENT) TlsSetValue(_background, (LPVOID)DW_RGB_TRANSPARENT); else TlsSetValue(_background, (LPVOID)(uintptr_t)background); } /* Allows the user to choose a color using the system's color chooser dialog. * Parameters: * value: current color * Returns: * The selected color or the current color if cancelled. */ unsigned long API dw_color_choose(unsigned long value) { CHOOSECOLOR cc; unsigned long newcolor; COLORREF acrCustClr[16] = {0}; value = _internal_color(value); if(value == DW_RGB_TRANSPARENT) newcolor = DW_RGB_TRANSPARENT; else newcolor = RGB(DW_RED_VALUE(value), DW_GREEN_VALUE(value), DW_BLUE_VALUE(value)); ZeroMemory(&cc, sizeof(CHOOSECOLOR)); cc.lStructSize = sizeof(CHOOSECOLOR); cc.rgbResult = newcolor; cc.hwndOwner = HWND_DESKTOP; cc.lpCustColors = (LPDWORD)acrCustClr; cc.Flags = CC_FULLOPEN | CC_RGBINIT; if (ChooseColor(&cc) == TRUE) newcolor = DW_RGB(DW_RED_VALUE(cc.rgbResult), DW_GREEN_VALUE(cc.rgbResult), DW_BLUE_VALUE(cc.rgbResult)); return newcolor; } /* Draw a point on a window (preferably a render window). * Parameters: * handle: Handle to the window. * pixmap: Handle to the pixmap. (choose only one of these) * x: X coordinate. * 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) hdcPaint = pixmap->hdc; else 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. * pixmap: Handle to the pixmap. (choose only one of these) * x1: First X coordinate. * y1: First Y coordinate. * x2: Second X coordinate. * y2: Second Y coordinate. */ 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; HPEN oldPen; if(handle) hdcPaint = GetDC(handle); else if(pixmap) hdcPaint = pixmap->hdc; else return; oldPen = SelectObject(hdcPaint, TlsGetValue(_hPen)); MoveToEx(hdcPaint, x1, y1, NULL); LineTo(hdcPaint, x2, y2); SelectObject(hdcPaint, oldPen); /* For some reason Win98 (at least) fails * to draw the last pixel. So I do it myself. */ SetPixel(hdcPaint, x2, y2, (COLORREF)TlsGetValue(_foreground)); if(!pixmap) ReleaseDC(handle, hdcPaint); #endif } /* 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]; points[i].y = y[i]; } if ( !( points[0].x == points[(*npoints)-1].x && points[0].y == points[(*npoints)-1].y ) ) { /* set the last point to be the same as the first point... */ points[*npoints].x = points[0].x; points[*npoints].y = points[0].y; /* ... and increment the number of points */ (*npoints)++; } } return points; } /* Draw a closed polygon on a window (preferably a render window). * Parameters: * handle: Handle to the window. * pixmap: Handle to the pixmap. (choose only one of these) * flags: DW_DRAW_FILL (1) to fill the polygon or DW_DRAW_DEFAULT (0). * number of points * x[]: X coordinates. * 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). * Parameters: * handle: Handle to the window. * pixmap: Handle to the pixmap. (choose only one of these) * flags: DW_DRAW_FILL (1) to fill the box or DW_DRAW_DEFAULT (0). * x: X coordinate. * y: Y coordinate. * width: Width of rectangle. * height: Height of rectangle. */ 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; RECT Rect; if(handle) hdcPaint = GetDC(handle); else if(pixmap) hdcPaint = pixmap->hdc; else return; SetRect(&Rect, x, y, x + width , y + height ); if(flags & DW_DRAW_FILL) 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. * pixmap: Handle to the pixmap. (choose only one of these) * flags: DW_DRAW_FILL (1) to fill the arc or DW_DRAW_DEFAULT (0). * DW_DRAW_FULL will draw a complete circle/elipse. * xorigin: X coordinate of center of arc. * yorigin: Y coordinate of center of arc. * x1: X coordinate of first segment of arc. * y1: Y coordinate of first segment of arc. * x2: X coordinate of second segment of arc. * y2: Y coordinate of second segment of arc. */ 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)); } else { double a1 = atan2((y1-yorigin), (x1-xorigin)); double a2 = atan2((y2-yorigin), (x2-xorigin)); 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; double r = sqrt(dx*dx + dy*dy); int ri = (int)r; if(handle) 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) Ellipse(hdcPaint, x1, y1, x2, y2); else Arc(hdcPaint, xorigin-ri, yorigin-ri, xorigin+ri, yorigin+ri, x2, y2, x1, y1); 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. */ void _convert_dpi(HDC hdc, int *x, int *y, int mult) { int ratiox = (int)GetDeviceCaps(hdc, LOGPIXELSX)/96; int ratioy = (int)GetDeviceCaps(hdc, LOGPIXELSY)/96; if(ratiox > 1 && ratioy > 1) { if(mult) { if(x) *x *= ratiox; if(y) *y *= ratioy; } else { if(x) *x /= ratiox; if(y) *y /= ratioy; } } } #endif /* Draw text on a window (preferably a render window). * Parameters: * handle: Handle to the window. * pixmap: Handle to the pixmap. (choose only one of these) * x: X coordinate. * y: Y coordinate. * text: Text to be displayed. */ void API dw_draw_text(HWND handle, HPIXMAP pixmap, int x, int y, char *text) { HDC hdc; int mustdelete = 0; HFONT hFont = 0, oldFont = 0; ColorInfo *cinfo = NULL; COLORREF background; TCHAR *wtext = UTF8toWide(text); if(handle) hdc = GetDC(handle); else if(pixmap) hdc = pixmap->hdc; else return; if(handle) cinfo = (ColorInfo *)GetWindowLongPtr(handle, GWLP_USERDATA); else if(pixmap->font) hFont = pixmap->font; else if(pixmap->handle) cinfo = (ColorInfo *)GetWindowLongPtr(pixmap->handle, GWLP_USERDATA); if(cinfo) { hFont = _acquire_font(handle, cinfo->fontname); mustdelete = 1; } background = (COLORREF)(uintptr_t)TlsGetValue(_background); if(hFont) oldFont = SelectObject(hdc, hFont); SetTextColor(hdc, (COLORREF)(uintptr_t)TlsGetValue(_foreground)); if(background == DW_RGB_TRANSPARENT) SetBkMode(hdc, TRANSPARENT); else { SetBkMode(hdc, OPAQUE); SetBkColor(hdc, background); } #ifdef GDIPLUS _convert_dpi(hdc, &x, &y, TRUE); #endif TextOut(hdc, x, y, wtext, (int)_tcslen(wtext)); if(oldFont) SelectObject(hdc, oldFont); if(mustdelete) DeleteObject(hFont); if(!pixmap) ReleaseDC(handle, hdc); } /* Query the width and height of a text string. * Parameters: * handle: Handle to the window. * pixmap: Handle to the pixmap. (choose only one of these) * text: Text to be queried. * width: Pointer to a variable to be filled in with the width. * height Pointer to a variable to be filled in with the height. */ void API dw_font_text_extents_get(HWND handle, HPIXMAP pixmap, char *text, int *width, int *height) { HDC hdc; int mustdelete = 0; HFONT hFont = NULL, oldFont; SIZE sz; TCHAR *wtext = UTF8toWide(text); if(handle) hdc = GetDC(handle); else if(pixmap) hdc = pixmap->hdc; else return; if(pixmap && pixmap->font) { hFont = pixmap->font; } else { ColorInfo *cinfo; if(handle) cinfo = (ColorInfo *)GetWindowLongPtr(handle, GWLP_USERDATA); else cinfo = (ColorInfo *)GetWindowLongPtr(pixmap->handle, GWLP_USERDATA); if(cinfo) { hFont = _acquire_font(handle, cinfo->fontname); mustdelete = 1; } } oldFont = SelectObject(hdc, hFont); GetTextExtentPoint32(hdc, wtext, (int)_tcslen(wtext), &sz); if(width) *width = sz.cx; if(height) *height = sz.cy; #ifdef GDIPLUS _convert_dpi(hdc, width, height, FALSE); #endif SelectObject(hdc, oldFont); if(mustdelete) DeleteObject(hFont); if(!pixmap) ReleaseDC(handle, hdc); } /* Call this after drawing to the screen to make sure * anything you have drawn is visible. */ void API dw_flush(void) { } /* * Creates a pixmap with given parameters. * Parameters: * handle: Window handle the pixmap is associated with. * width: Width of the pixmap in pixels. * height: Height of the pixmap in pixels. * depth: Color depth of the pixmap. * Returns: * A handle to a pixmap or NULL on failure. */ HPIXMAP API dw_pixmap_new(HWND handle, unsigned long width, unsigned long height, int depth) { HPIXMAP pixmap; HDC hdc; if (!(pixmap = calloc(1,sizeof(struct _hpixmap)))) return NULL; hdc = GetDC(handle); pixmap->width = width; pixmap->height = height; pixmap->handle = handle; pixmap->hbm = CreateCompatibleBitmap(hdc, width, height); pixmap->hdc = CreateCompatibleDC(hdc); pixmap->transcolor = DW_RGB_TRANSPARENT; SelectObject(pixmap->hdc, pixmap->hbm); ReleaseDC(handle, hdc); return pixmap; } #ifndef GDIPLUS /* Read the file bitmap header ourselves... * apparently we can't check the depth once loaded... * since it seems to normalize it to our screen depth. */ unsigned long _read_bitmap_header(char *file) { BITMAPFILEHEADER header; BITMAPINFO *info; FILE *fp; int infosize; int depth = 0; /* Try opening the file; use "rb" mode to read this *binary* file. */ if((fp = fopen(file, "rb")) == NULL) return 0; /* Read the file header and any following bitmap information... */ if(fread(&header, sizeof(BITMAPFILEHEADER), 1, fp) < 1) { /* Couldn't read the file header */ fclose(fp); return 0; } if(header.bfType != 'MB') /* Check for BM reversed... */ { /* Not a bitmap file */ fclose(fp); return 0; } infosize = header.bfOffBits - sizeof(BITMAPFILEHEADER); if((info = (BITMAPINFO *)calloc(infosize, 1)) == NULL) { /* Couldn't allocate memory for bitmap info */ fclose(fp); return 0; } if(fread(info, 1, infosize, fp) == infosize) { /* Read the bitmap header */ depth = info->bmiHeader.biBitCount; } free(info); fclose(fp); return depth; } #endif /* * Creates a pixmap from a file. * Parameters: * handle: Window handle the pixmap is associated with. * filename: Name of the file, omit extention to have * DW pick the appropriate file extension. * (BMP on OS/2 or Windows, XPM on Unix) * Returns: * A handle to a pixmap or NULL on failure. */ HPIXMAP API dw_pixmap_new_from_file(HWND handle, char *filename) { HPIXMAP pixmap; BITMAP bm; HDC hdc; #ifndef GDIPLUS char *file; #endif if (!filename || !(pixmap = calloc(1,sizeof(struct _hpixmap)))) return NULL; #ifdef GDIPLUS pixmap->hbm = _dw_load_bitmap(filename, &pixmap->depth); #else file = _alloca(strlen(filename) + 5); strcpy(file, filename); /* check if we can read from this file (it exists and read permission) */ if(access(file, 04) != 0) { /* Try with .bmp extention */ strcat(file, ".bmp"); if(access(file, 04) != 0) { free(pixmap); free(file); return NULL; } } pixmap->hbm = (HBITMAP)LoadImage(NULL, UTF8toWide(file), IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE); pixmap->depth = _read_bitmap_header(file); #endif pixmap->handle = handle; if ( !pixmap->hbm ) { free(pixmap); return NULL; } hdc = GetDC(handle); pixmap->hdc = CreateCompatibleDC( hdc ); GetObject( pixmap->hbm, sizeof(bm), &bm ); pixmap->width = bm.bmWidth; pixmap->height = bm.bmHeight; SelectObject( pixmap->hdc, pixmap->hbm ); ReleaseDC( handle, hdc ); pixmap->transcolor = DW_RGB_TRANSPARENT; return pixmap; } /* * Creates a pixmap from memory. * Parameters: * handle: Window handle the pixmap is associated with. * data: Source of the image data * (BMP on OS/2 or Windows, XPM on Unix) * le: length of data * Returns: * A handle to a pixmap or NULL on failure. */ HPIXMAP API dw_pixmap_new_from_data(HWND handle, char *data, int len) { HPIXMAP pixmap; BITMAP bm; HDC hdc; char *file; FILE *fp; if ( !(pixmap = calloc(1,sizeof(struct _hpixmap))) ) { return NULL; } hdc = GetDC(handle); pixmap->handle = handle; file = _tempnam( _dw_alternate_temp_dir, "dw" ); if ( file != NULL ) { fp = fopen( file, "wb" ); if ( fp != NULL ) { fwrite( data, 1, len, fp ); fclose( fp ); #ifdef GDIPLUS pixmap->hbm = _dw_load_bitmap(file, NULL); #else pixmap->hbm = (HBITMAP)LoadImage( NULL, UTF8toWide(file), IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE ); pixmap->depth = _read_bitmap_header(file); #endif } else { _unlink( file ); free( file ); free( pixmap ); return NULL; } _unlink( file ); free( file ); } if ( !pixmap->hbm ) { free( pixmap ); ReleaseDC( handle, hdc ); return NULL; } pixmap->hdc = CreateCompatibleDC( hdc ); GetObject( pixmap->hbm, sizeof(bm), &bm ); pixmap->width = bm.bmWidth; pixmap->height = bm.bmHeight; SelectObject( pixmap->hdc, pixmap->hbm ); ReleaseDC( handle, hdc ); pixmap->transcolor = DW_RGB_TRANSPARENT; return pixmap; } /* * Creates a bitmap mask for rendering bitmaps with transparent backgrounds */ void API dw_pixmap_set_transparent_color( HPIXMAP pixmap, ULONG color ) { if ( pixmap && pixmap->depth < 32) { pixmap->transcolor = _internal_color(color); } } /* * Creates a pixmap from internal resource graphic specified by id. * Parameters: * handle: Window handle the pixmap is associated with. * id: Resource ID associated with requested pixmap. * Returns: * A handle to a pixmap or NULL on failure. */ HPIXMAP API dw_pixmap_grab(HWND handle, ULONG id) { HPIXMAP pixmap; BITMAP bm; HDC hdc; if (!(pixmap = calloc(1,sizeof(struct _hpixmap)))) return NULL; hdc = GetDC(handle); pixmap->hbm = LoadBitmap(DWInstance, MAKEINTRESOURCE(id)); pixmap->hdc = CreateCompatibleDC(hdc); GetObject(pixmap->hbm, sizeof(BITMAP), (void *)&bm); pixmap->width = bm.bmWidth; pixmap->height = bm.bmHeight; pixmap->depth = bm.bmBitsPixel; SelectObject(pixmap->hdc, pixmap->hbm); ReleaseDC(handle, hdc); pixmap->transcolor = DW_RGB_TRANSPARENT; return pixmap; } /* * Sets the font used by a specified pixmap. * Normally the pixmap font is obtained from the associated window handle. * However this can be used to override that, or for pixmaps with no window. * Parameters: * pixmap: Handle to a pixmap returned by dw_pixmap_new() or * passed to the application via a callback. * fontname: Name and size of the font in the form "size.fontname" * Returns: * DW_ERROR_NONE on success and DW_ERROR_GENERAL on failure. */ int API dw_pixmap_set_font(HPIXMAP pixmap, char *fontname) { if(pixmap) { HFONT hfont = _acquire_font2(pixmap->hdc, fontname); if(hfont) { HFONT oldfont = pixmap->font; pixmap->font = hfont; if(oldfont) DeleteObject(oldfont); return DW_ERROR_NONE; } } return DW_ERROR_GENERAL; } /* * Destroys an allocated pixmap. * Parameters: * pixmap: Handle to a pixmap returned by * dw_pixmap_new.. */ void API dw_pixmap_destroy(HPIXMAP pixmap) { if(pixmap) { DeleteDC(pixmap->hdc); DeleteObject(pixmap->hbm); if(pixmap->font) DeleteObject(pixmap->font); free(pixmap); } } /* * Copies from one item to another. * Parameters: * dest: Destination window handle. * destp: Destination pixmap. (choose only one). * xdest: X coordinate of destination. * ydest: Y coordinate of destination. * width: Width of area to copy. * height: Height of area to copy. * src: Source window handle. * srcp: Source pixmap. (choose only one). * xsrc: X coordinate of source. * ysrc: Y coordinate of source. */ void API dw_pixmap_bitblt(HWND dest, HPIXMAP destp, int xdest, int ydest, int width, int height, HWND src, HPIXMAP srcp, int xsrc, int ysrc) { dw_pixmap_stretch_bitblt(dest, destp, xdest, ydest, width, height, src, srcp, xsrc, ysrc, -1, -1); } /* * Copies from one surface to another allowing for stretching. * Parameters: * dest: Destination window handle. * destp: Destination pixmap. (choose only one). * xdest: X coordinate of destination. * ydest: Y coordinate of destination. * width: Width of the target area. * height: Height of the target area. * src: Source window handle. * srcp: Source pixmap. (choose only one). * xsrc: X coordinate of source. * ysrc: Y coordinate of source. * srcwidth: Width of area to copy. * srcheight: Height of area to copy. * Returns: * DW_ERROR_NONE on success and DW_ERROR_GENERAL on failure. */ int API dw_pixmap_stretch_bitblt(HWND dest, HPIXMAP destp, int xdest, int ydest, int width, int height, HWND src, HPIXMAP srcp, int xsrc, int ysrc, int srcwidth, int srcheight) { HDC hdcdest; HDC hdcsrc; static BLENDFUNCTION bf = { AC_SRC_OVER, 0, 0xFF, AC_SRC_ALPHA }; int swidth = srcwidth, sheight = srcheight; /* Do some sanity checks */ if ( dest ) hdcdest = GetDC( dest ); else if ( destp ) hdcdest = destp->hdc; else return DW_ERROR_GENERAL; if ( src ) hdcsrc = GetDC( src ); else if ( srcp ) hdcsrc = srcp->hdc; else return DW_ERROR_GENERAL; if((srcheight == -1 || srcwidth == -1) && srcheight != srcwidth) return DW_ERROR_GENERAL; if(srcheight == -1 && srcwidth == -1) { swidth = width; sheight = height; } #ifdef GDIPLUS /* Do conversion on all the coordinates */ _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 */ } /* Otherwise perform special bitblt with manual transparency */ else if ( srcp && srcp->transcolor != DW_RGB_TRANSPARENT ) { TransparentBlt( hdcdest, xdest, ydest, width, height, hdcsrc, xsrc, ysrc, swidth, sheight, RGB( DW_RED_VALUE(srcp->transcolor), DW_GREEN_VALUE(srcp->transcolor), DW_BLUE_VALUE(srcp->transcolor)) ); } else { /* Finally fall back to the classic BitBlt */ if( srcwidth == -1 && srcheight == -1) BitBlt( hdcdest, xdest, ydest, width, height, hdcsrc, xsrc, ysrc, SRCCOPY ); else StretchBlt( hdcdest, xdest, ydest, width, height, hdcsrc, xsrc, ysrc, swidth, sheight, SRCCOPY ); } if ( !destp ) ReleaseDC( dest, hdcdest ); if ( !srcp ) ReleaseDC( src, hdcsrc ); return DW_ERROR_NONE; } /* Run Beep() in a separate thread so it doesn't block */ void _beepthread(void *data) { int *info = (int *)data; if(data) { Beep(info[0], info[1]); free(data); } } /* * Emits a beep. * Parameters: * freq: Frequency. * dur: Duration. */ void API dw_beep(int freq, int dur) { int *info = malloc(sizeof(int) * 2); if(info) { info[0] = freq; info[1] = dur; _beginthread(_beepthread, 100, (void *)info); } } /* Open a shared library and return a handle. * Parameters: * name: Base name of the shared library. * handle: Pointer to a module handle, * will be filled in with the handle. */ int API dw_module_load(char *name, HMOD *handle) { if(!handle) return DW_ERROR_UNKNOWN; *handle = LoadLibrary(UTF8toWide(name)); return (NULL == *handle); } /* Queries the address of a symbol within open handle. * Parameters: * handle: Module handle returned by dw_module_load() * name: Name of the symbol you want the address of. * func: A pointer to a function pointer, to obtain * the address. */ int API dw_module_symbol(HMOD handle, char *name, void**func) { if(!func || !name) return DW_ERROR_UNKNOWN; if(0 == strlen(name)) return DW_ERROR_UNKNOWN; *func = (void*)GetProcAddress(handle, name); return (NULL == *func); } /* Frees the shared library previously opened. * Parameters: * handle: Module handle returned by dw_module_load() */ int API dw_module_close(HMOD handle) { return FreeLibrary(handle); } /* * Returns the handle to an unnamed mutex semaphore. */ HMTX API dw_mutex_new(void) { return (HMTX)CreateMutex(NULL, FALSE, NULL); } /* * Closes a semaphore created by dw_mutex_new(). * Parameters: * mutex: The handle to the mutex returned by dw_mutex_new(). */ void API dw_mutex_close(HMTX mutex) { CloseHandle((HANDLE)mutex); } /* * Tries to gain access to the semaphore, if it can't it blocks. * Parameters: * mutex: The handle to the mutex returned by dw_mutex_new(). */ void API dw_mutex_lock(HMTX mutex) { if(_dwtid == dw_thread_id()) { int rc = WaitForSingleObject((HANDLE)mutex, 0); while(rc == WAIT_TIMEOUT) { dw_main_sleep(1); rc = WaitForSingleObject((HANDLE)mutex, 0); } } else WaitForSingleObject((HANDLE)mutex, INFINITE); } /* * Tries to gain access to the semaphore. * Parameters: * mutex: The handle to the mutex returned by dw_mutex_new(). * Returns: * DW_ERROR_NONE on success, DW_ERROR_TIMEOUT if it is already locked. */ int API dw_mutex_trylock(HMTX mutex) { if(WaitForSingleObject((HANDLE)mutex, 0) == WAIT_OBJECT_0) return DW_ERROR_NONE; return DW_ERROR_TIMEOUT; } /* * Reliquishes the access to the semaphore. * Parameters: * mutex: The handle to the mutex returned by dw_mutex_new(). */ void API dw_mutex_unlock(HMTX mutex) { ReleaseMutex((HANDLE)mutex); } /* * Returns the handle to an unnamed event semaphore. */ HEV API dw_event_new(void) { return CreateEvent(NULL, TRUE, FALSE, NULL); } /* * Resets a semaphore created by dw_event_new(). * Parameters: * eve: The handle to the event returned by dw_event_new(). */ int API dw_event_reset(HEV eve) { if(ResetEvent(eve)) return DW_ERROR_NONE; return DW_ERROR_GENERAL; } /* * Posts a semaphore created by dw_event_new(). Causing all threads * waiting on this event in dw_event_wait to continue. * Parameters: * eve: The handle to the event returned by dw_event_new(). */ int API dw_event_post(HEV eve) { if(SetEvent(eve)) return DW_ERROR_NONE; return DW_ERROR_GENERAL; } /* * Waits on a semaphore created by dw_event_new(), until the * event gets posted or until the timeout expires. * Parameters: * eve: The handle to the event returned by dw_event_new(). */ int API dw_event_wait(HEV eve, unsigned long timeout) { int rc; rc = WaitForSingleObject(eve, timeout != -1 ? timeout : INFINITE); if(rc == WAIT_OBJECT_0) return DW_ERROR_NONE; if(rc == WAIT_TIMEOUT) return DW_ERROR_TIMEOUT; if(rc == WAIT_ABANDONED) return DW_ERROR_INTERRUPT; return DW_ERROR_GENERAL; } /* * Closes a semaphore created by dw_event_new(). * Parameters: * eve: The handle to the event returned by dw_event_new(). */ int API dw_event_close(HEV *eve) { if(eve && CloseHandle(*eve)) return DW_ERROR_NONE; return DW_ERROR_GENERAL; } /* Create a named event semaphore which can be * opened from other processes. * Parameters: * eve: Pointer to an event handle to receive handle. * name: Name given to semaphore which can be opened * by other processes. */ HEV API dw_named_event_new(char *name) { SECURITY_ATTRIBUTES sa; sa.nLength = sizeof( SECURITY_ATTRIBUTES); sa.lpSecurityDescriptor = &_dwsd; sa.bInheritHandle = FALSE; return CreateEvent(&sa, TRUE, FALSE, UTF8toWide(name)); } /* Destroy this semaphore. * Parameters: * eve: Handle to the semaphore obtained by * a create call. */ HEV API dw_named_event_get(char *name) { return OpenEvent(EVENT_ALL_ACCESS, FALSE, UTF8toWide(name)); } /* Resets the event semaphore so threads who call wait * on this semaphore will block. * Parameters: * eve: Handle to the semaphore obtained by * an open or create call. */ int API dw_named_event_reset(HEV eve) { if(ResetEvent(eve)) return DW_ERROR_NONE; return DW_ERROR_GENERAL; } /* Sets the posted state of an event semaphore, any threads * waiting on the semaphore will no longer block. * Parameters: * eve: Handle to the semaphore obtained by * an open or create call. */ int API dw_named_event_post(HEV eve) { if(SetEvent(eve)) return DW_ERROR_NONE; return DW_ERROR_GENERAL; } /* Waits on the specified semaphore until it becomes * posted, or returns immediately if it already is posted. * Parameters: * eve: Handle to the semaphore obtained by * an open or create call. * timeout: Number of milliseconds before timing out * or -1 if indefinite. */ int API dw_named_event_wait(HEV eve, unsigned long timeout) { int rc; rc = WaitForSingleObject(eve, timeout != -1 ? timeout : INFINITE); if(rc == WAIT_OBJECT_0) return DW_ERROR_NONE; if(rc == WAIT_TIMEOUT) return DW_ERROR_TIMEOUT; if(rc == WAIT_ABANDONED) return DW_ERROR_INTERRUPT; return DW_ERROR_GENERAL; } /* Release this semaphore, if there are no more open * handles on this semaphore the semaphore will be destroyed. * Parameters: * eve: Handle to the semaphore obtained by * an open or create call. */ int API dw_named_event_close(HEV eve) { if(CloseHandle(eve)) return DW_ERROR_NONE; return DW_ERROR_GENERAL; } /* * Allocates a shared memory region with a name. * Parameters: * handle: A pointer to receive a SHM identifier. * dest: A pointer to a pointer to receive the memory address. * size: Size in bytes of the shared memory region to allocate. * name: A string pointer to a unique memory name. */ HSHM API dw_named_memory_new(void **dest, int size, char *name) { SECURITY_ATTRIBUTES sa; HSHM handle; sa.nLength = sizeof(SECURITY_ATTRIBUTES); sa.lpSecurityDescriptor = &_dwsd; sa.bInheritHandle = FALSE; handle = CreateFileMapping(INVALID_HANDLE_VALUE, &sa, PAGE_READWRITE, 0, size, UTF8toWide(name)); if(!handle) return 0; *dest = MapViewOfFile(handle, FILE_MAP_ALL_ACCESS, 0, 0, 0); if(!*dest) { CloseHandle(handle); return 0; } return handle; } /* * Aquires shared memory region with a name. * Parameters: * dest: A pointer to a pointer to receive the memory address. * size: Size in bytes of the shared memory region to requested. * name: A string pointer to a unique memory name. */ HSHM API dw_named_memory_get(void **dest, int size, char *name) { HSHM handle = OpenFileMapping(FILE_MAP_ALL_ACCESS, FALSE, UTF8toWide(name)); if(!handle) return 0; *dest = MapViewOfFile(handle, FILE_MAP_ALL_ACCESS, 0, 0, 0); if(!*dest) { CloseHandle(handle); return 0; } return handle; } /* * Frees a shared memory region previously allocated. * Parameters: * handle: Handle obtained from DB_named_memory_allocate. * ptr: The memory address aquired with DB_named_memory_allocate. */ int API dw_named_memory_free(HSHM handle, void *ptr) { 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. */ void API _dw_init_thread(void) { COLORREF foreground = RGB(128,128,128); 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. */ void API _dw_deinit_thread(void) { 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. */ void _dwthreadstart(void *data) { void (* threadfunc)(void *) = NULL; void **tmp = (void **)data; _dw_init_thread(); threadfunc = (void (*)(void *))tmp[0]; threadfunc(tmp[1]); free(tmp); _dw_deinit_thread(); } /* * Creates a new thread with a starting point of func. * Parameters: * func: Function which will be run in the new thread. * data: Parameter(s) passed to the function. * stack: Stack size of new thread (OS/2 and Windows only). */ DWTID API dw_thread_new(void *func, void *data, int stack) { #if defined(__CYGWIN__) return 0; #else void **tmp = malloc(sizeof(void *) * 2); tmp[0] = func; tmp[1] = data; return (DWTID)_beginthread((void(*)(void *))_dwthreadstart, stack, tmp); #endif } /* * Ends execution of current thread immediately. */ void API dw_thread_end(void) { #if !defined(__CYGWIN__) _dw_deinit_thread(); _endthread(); #endif } /* * Returns the current thread's ID. */ DWTID API dw_thread_id(void) { #if defined(__CYGWIN__) return 0; #else return (DWTID)GetCurrentThreadId(); #endif } /* * Cleanly terminates a DW session, should be signal handler safe. */ void API dw_shutdown(void) { OleUninitialize(); #ifdef AEROGLASS /* Free any in use libraries */ FreeLibrary(hdwm); #endif FreeLibrary(huxtheme); DestroyWindow(hwndTooltip); } /* * Cleanly terminates a DW session, should be signal handler safe. * Parameters: * exitcode: Exit code reported to the operating system. */ void API dw_exit(int exitcode) { dw_shutdown(); exit(exitcode); } /* * Creates a splitbar window (widget) with given parameters. * Parameters: * type: Value can be DW_VERT or DW_HORZ. * topleft: Handle to the window to be top or left. * bottomright: Handle to the window to be bottom or right. * Returns: * A handle to a splitbar window or NULL on failure. */ HWND API dw_splitbar_new(int type, HWND topleft, HWND bottomright, unsigned long id) { HWND tmp = CreateWindow(SplitbarClassName, NULL, WS_VISIBLE | WS_CHILD | WS_CLIPCHILDREN, 0,0,0,0, DW_HWND_OBJECT, (HMENU)(uintptr_t)id, DWInstance, NULL); if(tmp) { HWND tmpbox = dw_box_new(DW_VERT, 0); float *percent = (float *)malloc(sizeof(float)); dw_box_pack_start(tmpbox, topleft, 1, 1, TRUE, TRUE, 0); SetParent(tmpbox, tmp); dw_window_set_data(tmp, "_dw_topleft", DW_POINTER(tmpbox)); tmpbox = dw_box_new(DW_VERT, 0); dw_box_pack_start(tmpbox, bottomright, 1, 1, TRUE, TRUE, 0); SetParent(tmpbox, tmp); dw_window_set_data(tmp, "_dw_bottomright", DW_POINTER(tmpbox)); *percent = 50.0; dw_window_set_data(tmp, "_dw_percent", DW_POINTER(percent)); dw_window_set_data(tmp, "_dw_type", DW_INT_TO_POINTER(type)); } return tmp; } /* * Sets the position of a splitbar (pecentage). * Parameters: * handle: The handle to the splitbar returned by dw_splitbar_new(). */ void API dw_splitbar_set(HWND handle, float percent) { float *mypercent = (float *)dw_window_get_data(handle, "_dw_percent"); int type = DW_POINTER_TO_INT(dw_window_get_data(handle, "_dw_type")); unsigned long width, height; if(mypercent) *mypercent = percent; dw_window_get_pos_size(handle, NULL, NULL, &width, &height); if(width > 0 && height > 0) _handle_splitbar_resize(handle, percent, type, width, height); } /* * Gets the position of a splitbar (pecentage). * Parameters: * handle: The handle to the splitbar returned by dw_splitbar_new(). */ float API dw_splitbar_get(HWND handle) { float *percent = (float *)dw_window_get_data(handle, "_dw_percent"); if(percent) return *percent; return 0.0; } /* * Creates a calendar window (widget) with given parameters. * Parameters: * type: Value can be DW_VERT or DW_HORZ. * topleft: Handle to the window to be top or left. * bottomright: Handle to the window to be bottom or right. * Classname: SysMonthCal32 * Returns: * A handle to a calendar window or NULL on failure. */ HWND API dw_calendar_new(unsigned long id) { RECT rc; MONTHDAYSTATE mds[3]; HWND tmp = CreateWindowEx(WS_EX_CLIENTEDGE, MONTHCAL_CLASS, NULL, WS_VISIBLE | WS_CHILD | WS_CLIPCHILDREN | MCS_DAYSTATE, 0,0,0,0, DW_HWND_OBJECT, (HMENU)(uintptr_t)id, DWInstance, NULL); if ( tmp ) { // Get the size required to show an entire month. MonthCal_GetMinReqRect(tmp, &rc); // Resize the control now that the size values have been obtained. SetWindowPos(tmp, NULL, 0, 0, rc.right, rc.bottom, SWP_NOZORDER | SWP_NOMOVE); mds[0] = mds[1] = mds[2] = (MONTHDAYSTATE)0; MonthCal_SetDayState(tmp,3,mds); return tmp; } else return NULL; } /* * Sets the current date of a calendar * Parameters: * handle: The handle to the calendar returned by dw_calendar_new(). * year: The year to set the date to * month: The month to set the date to * day: The day to set the date to */ void API dw_calendar_set_date(HWND handle, unsigned int year, unsigned int month, unsigned int day) { MONTHDAYSTATE mds[3]; SYSTEMTIME date; date.wYear = year; date.wMonth = month; date.wDay = day; if ( MonthCal_SetCurSel( handle, &date ) ) { } else { } mds[0] = mds[1] = mds[2] = (MONTHDAYSTATE)0; MonthCal_SetDayState(handle,3,mds); } /* * Gets the date from the calendar * Parameters: * handle: The handle to the calendar returned by dw_calendar_new(). * year: Pointer to the year to get the date to * month: Pointer to the month to get the date to * day: Pointer to the day to get the date to */ void API dw_calendar_get_date(HWND handle, unsigned int *year, unsigned int *month, unsigned int *day) { SYSTEMTIME date; if ( MonthCal_GetCurSel( handle, &date ) ) { *year = date.wYear; *month = date.wMonth; *day = date.wDay; } else { *year = *month = *day = 0; } } /* 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: * This is for use after showing the window/dialog. */ void API dw_window_set_focus(HWND handle) { if(_dwtid == (DWTID)-1) SetFocus(handle); else dw_window_function(handle, (void *)_dw_set_focus, handle); } /* * Sets the default focus item for a window/dialog. * Parameters: * window: Toplevel window or dialog. * defaultitem: Handle to the dialog item to be default. * Remarks: * This is for use before showing the window/dialog. */ void API dw_window_default(HWND window, HWND defaultitem) { Box *thisbox = (Box *)GetWindowLongPtr(window, GWLP_USERDATA); if(thisbox) thisbox->defaultitem = defaultitem; } /* * Sets window to click the default dialog item when an ENTER is pressed. * Parameters: * window: Window (widget) to look for the ENTER press. * next: Window (widget) to move to next (or click) */ void API dw_window_click_default(HWND window, HWND next) { ColorInfo *cinfo = (ColorInfo *)GetWindowLongPtr(window, GWLP_USERDATA); if (cinfo) { cinfo->clickdefault = next; } } /* * Gets the contents of the default clipboard as text. * Parameters: * None. * Returns: * Pointer to an allocated string of text or NULL if clipboard empty or contents could not * be converted to text. */ char * API dw_clipboard_get_text(void) { HANDLE handle; char *ret = NULL; TCHAR *tmp; #ifdef UNICODE int type = CF_UNICODETEXT; #else int type = CF_TEXT; #endif if ( !OpenClipboard( NULL ) ) return ret; if ( ( handle = GetClipboardData(type) ) == NULL ) { CloseClipboard(); return ret; } if ( (tmp = GlobalLock(handle)) && _tcslen(tmp) ) { ret = _strdup(WideToUTF8(tmp)); GlobalUnlock(handle); } CloseClipboard(); return ret; } /* * Sets the contents of the default clipboard to the supplied text. * Parameters: * Text. */ void API dw_clipboard_set_text( char *str, int len ) { HGLOBAL ptr1; LPTSTR ptr2; TCHAR *buf; #ifdef UNICODE int type = CF_UNICODETEXT; char *src = calloc(len + 1, 1); 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; ptr1 = GlobalAlloc( GMEM_MOVEABLE|GMEM_DDESHARE, (len + 1) * sizeof(TCHAR) ); if ( !ptr1 ) return; ptr2 = GlobalLock( ptr1 ); memcpy(ptr2, buf, (len + 1) * sizeof(TCHAR)); GlobalUnlock( ptr1 ); EmptyClipboard(); SetClipboardData( type, ptr1 ); CloseClipboard(); GlobalFree( ptr1 ); } /* * Returns some information about the current operating environment. * Parameters: * env: Pointer to a DWEnv struct. */ void API dw_environment_query(DWEnv *env) { if(!env) return; /* Get the Windows version. */ env->MajorVersion = (DWORD)(LOBYTE(LOWORD(dwVersion))); env->MinorVersion = (DWORD)(HIBYTE(LOWORD(dwVersion))); /* Get the build number for Windows NT/Windows 2000. */ env->MinorBuild = 0; if (dwVersion < 0x80000000) { if(env->MajorVersion == 5 && env->MinorVersion == 0) strcpy(env->osName, "Windows 2000"); else if(env->MajorVersion == 5 && env->MinorVersion > 0) strcpy(env->osName, "Windows XP"); else if(env->MajorVersion == 6 && env->MinorVersion == 0) strcpy(env->osName, "Windows Vista"); else if(env->MajorVersion == 6 && env->MinorVersion == 1) strcpy(env->osName, "Windows 7"); else if(env->MajorVersion == 6 && env->MinorVersion > 1) strcpy(env->osName, "Windows 8"); else if(env->MajorVersion == 10) strcpy(env->osName, "Windows 10"); else strcpy(env->osName, "Windows NT"); env->MajorBuild = (DWORD)(HIWORD(dwVersion)); } else { strcpy(env->osName, "Windows 95/98/ME"); env->MajorBuild = 0; } strcpy(env->buildDate, __DATE__); strcpy(env->buildTime, __TIME__); env->DWMajorVersion = DW_MAJOR_VERSION; env->DWMinorVersion = DW_MINOR_VERSION; #ifdef VER_REV env->DWSubVersion = VER_REV; #else env->DWSubVersion = DW_SUB_VERSION; #endif } /* 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 dst[x] = src[x]; x++; } dst[x] = 0; } #define BROWSEBUFSIZE 1000 /* * Opens a file dialog and queries user selection. * Parameters: * title: Title bar text for dialog. * defpath: The default path of the open dialog. * ext: Default file extention. * flags: DW_FILE_OPEN or DW_FILE_SAVE or DW_DIRECTORY_OPEN. * Returns: * NULL on error. A malloced buffer containing * the file path on success. * */ char * API dw_file_browse(char *title, char *defpath, char *ext, int flags) { OPENFILENAME of = {0}; TCHAR filenamebuf[BROWSEBUFSIZE+1] = {0}, *fbuf = filenamebuf; TCHAR filterbuf[BROWSEBUFSIZE+1] = {0}; TCHAR *exten = UTF8toWide(ext); TCHAR *dpath = UTF8toWide(defpath); int rc; if ( flags == DW_DIRECTORY_OPEN ) { /* If we aren't building a DLL, use the more simple browser */ #ifndef BUILD_DLL BROWSEINFO bi = {0}; TCHAR szDir[MAX_PATH]; LPITEMIDLIST pidl; LPMALLOC pMalloc; if (SUCCEEDED(SHGetMalloc(&pMalloc))) { bi.hwndOwner = NULL; bi.pszDisplayName = 0; bi.pidlRoot = 0; bi.lpszTitle = UTF8toWide(title); bi.ulFlags = BIF_RETURNONLYFSDIRS | BIF_STATUSTEXT; bi.lpfn = NULL; /*BrowseCallbackProc*/ pidl = SHBrowseForFolder(&bi); if (pidl) { if (SHGetPathFromIDList(pidl,szDir)) { _tcsncpy(filenamebuf,szDir,BROWSEBUFSIZE); } /* In C++: pMalloc->Free(pidl); pMalloc->Release(); */ pMalloc->lpVtbl->Free(pMalloc,pidl); pMalloc->lpVtbl->Release(pMalloc); return _strdup(WideToUTF8(filenamebuf)); } } #else if ( XBrowseForFolder( NULL, (LPCTSTR)dpath, -1, (LPCTSTR)UTF8toWide(title), (LPTSTR)filenamebuf, BROWSEBUFSIZE, FALSE ) ) { return _strdup( WideToUTF8(fbuf) ); } #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" */ int len; TCHAR *ptr = filterbuf; TCHAR *start = filterbuf; len = _sntprintf( ptr, BROWSEBUFSIZE - (ptr - start), TEXT("%s Files (*.%s)"), exten, exten ); ptr = ptr + len + 1; /* past first \0 */ len = _sntprintf( ptr, BROWSEBUFSIZE - (ptr - start), TEXT("*.%s"), exten ); ptr = ptr + len + 1; /* past next \0 */ len = _sntprintf( ptr, BROWSEBUFSIZE - (ptr - start), TEXT("All Files") ); ptr = ptr + len + 1; /* past next \0 */ len = _sntprintf( ptr, BROWSEBUFSIZE - (ptr - start), TEXT("*.*") ); } memset( &of, 0, sizeof(OPENFILENAME) ); of.lStructSize = sizeof(OPENFILENAME); of.hwndOwner = HWND_DESKTOP; of.hInstance = DWInstance; of.lpstrTitle = UTF8toWide(title); of.lpstrInitialDir = TEXT("."); if(att != INVALID_FILE_ATTRIBUTES && (att & FILE_ATTRIBUTE_DIRECTORY)) of.lpstrInitialDir = dpath; else if(defpath) _to_dos(filenamebuf, dpath); of.lpstrFile = filenamebuf; of.lpstrFilter = filterbuf; of.nFilterIndex = 1; of.nMaxFile = BROWSEBUFSIZE; /*of.lpstrDefExt = ext;*/ of.Flags = OFN_NOCHANGEDIR; if (flags & DW_FILE_SAVE) { of.Flags |= OFN_OVERWRITEPROMPT; rc = GetSaveFileName(&of); } else { of.Flags |= OFN_FILEMUSTEXIST; rc = GetOpenFileName(&of); } if (rc) return _strdup(WideToUTF8(of.lpstrFile)); } return NULL; } /* * Execute and external program in a seperate session. * Parameters: * program: Program name with optional path. * type: Either DW_EXEC_CON or DW_EXEC_GUI. * params: An array of pointers to string arguements. * Returns: * -1 on error. */ int API dw_exec(char *program, int type, char **params) { char **newparams; int retcode, count = 0, z; while(params[count]) { count++; } 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? */ retcode = (int)_spawnvp(P_NOWAIT, program, (const char * const *)newparams); for(z=0;z<count;z++) { free(newparams[z]); } free(newparams); return retcode; } /* * Loads a web browser pointed at the given URL. * Parameters: * url: Uniform resource locator. */ int API dw_browse(char *url) { char *browseurl = url; int retcode; if(strlen(url) > 7 && strncmp(url, "file://", 7) == 0) { int len, z; browseurl = &url[7]; len = (int)strlen(browseurl); for(z=0;z<len;z++) { if(browseurl[z] == '|') browseurl[z] = ':'; if(browseurl[z] == '/') browseurl[z] = '\\'; } } retcode = DW_POINTER_TO_INT(ShellExecute(NULL, TEXT("open"), UTF8toWide(browseurl), NULL, NULL, SW_SHOWNORMAL)); 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; unsigned long flags; } DWPrint; /* * Creates a new print object. * Parameters: * jobname: Name of the print job to show in the queue. * flags: Flags to initially configure the print object. * pages: Number of pages to print. * drawfunc: The pointer to the function to be used as the callback. * drawdata: User data to be passed to the handler function. * Returns: * A handle to the print object or NULL on failure. */ HPRINT API dw_print_new(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; print->pd.nCopies = 1; print->pd.nFromPage = 1; print->pd.nToPage = pages; print->pd.nMinPage = 1; print->pd.nMaxPage = pages; if(!PrintDlg(&(print->pd))) { free(print); return NULL; } print->di.cbSize = sizeof(DOCINFO); print->di.lpszDocName = jobname ? UTF8toWide(jobname) : TEXT("Dynamic Windows Print Job"); return print; } /* * Runs the print job, causing the draw page callbacks to fire. * Parameters: * print: Handle to the print object returned by dw_print_new(). * flags: Flags to run the print job. * Returns: * DW_ERROR_UNKNOWN on error or DW_ERROR_NONE on success. */ 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; #ifdef GDIPLUS /* Convert the size based on the DPI */ _convert_dpi(pixmap->hdc, &width, &height, FALSE); #endif pixmap->width = width; pixmap->height = height; 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); EndPage(p->pd.hDC); } if(p->drawfunc) { result = DW_ERROR_NONE; EndDoc(p->pd.hDC); } else AbortDoc(p->pd.hDC); /* Free memory */ dw_pixmap_destroy(pixmap); free(p); return result; } /* * Cancels the print job, typically called from a draw page callback. * Parameters: * 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; } /* * Returns a pointer to a static buffer which containes the * current user directory. Or the root directory (C:\ on * OS/2 and Windows). */ char * API dw_user_dir(void) { static char _user_dir[1024] = {0}; if(!_user_dir[0]) { HANDLE hToken = 0; /* Use the Windows API to get the user's profile directory */ if(OpenProcessToken(GetCurrentProcess(), TOKEN_QUERY, &hToken)) { DWORD BufSize = 1024; TCHAR TmpBuf[1024], *Buf = TmpBuf; GetUserProfileDirectory(hToken, Buf, &BufSize); CloseHandle(hToken); strncpy(_user_dir, WideToUTF8(Buf), 1023); } /* If it fails set it to the root directory */ if(!_user_dir[0]) { strcpy(_user_dir, "C:\\"); } } 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; } /* * Call a function from the window (widget)'s context. * Parameters: * handle: Window handle of the widget. * function: Function pointer to be called. * data: Pointer to the data to be passed to the function. */ void API dw_window_function(HWND handle, void *function, void *data) { SendMessage(_toplevel_window(handle), WM_USER, (WPARAM)function, (LPARAM)data); } /* Functions for managing the user data lists that are associated with * a given window handle. Used in dw_window_set_data() and * dw_window_get_data(). */ UserData *_find_userdata(UserData **root, char *varname) { UserData *tmp = *root; while(tmp) { if(_stricmp(tmp->varname, varname) == 0) return tmp; tmp = tmp->next; } return NULL; } int _new_userdata(UserData **root, char *varname, void *data) { UserData *new = _find_userdata(root, varname); if(new) { new->data = data; return TRUE; } else { new = malloc(sizeof(UserData)); if(new) { new->varname = _strdup(varname); new->data = data; new->next = NULL; if (!*root) *root = new; else { UserData *prev = *root, *tmp = prev->next; while(tmp) { prev = tmp; tmp = tmp->next; } prev->next = new; } return TRUE; } } return FALSE; } int _remove_userdata(UserData **root, char *varname, int all) { UserData *prev = NULL, *tmp = *root; while(tmp) { if(all || _stricmp(tmp->varname, varname) == 0) { if(!prev) { *root = tmp->next; free(tmp->varname); free(tmp); if(!all) return 0; tmp = *root; } else { /* If all is true we should * never get here. */ prev->next = tmp->next; free(tmp->varname); free(tmp); return 0; } } else { prev = tmp; tmp = tmp->next; } } return 0; } /* * Add a named user data item to a window handle. * Parameters: * window: Window handle of signal to be called back. * dataname: A string pointer identifying which signal to be hooked. * data: User data to be passed to the handler function. */ void API dw_window_set_data(HWND window, char *dataname, void *data) { ColorInfo *cinfo = (ColorInfo *)GetWindowLongPtr(window, GWLP_USERDATA); if(!cinfo) { if(!dataname) return; cinfo = calloc(1, sizeof(ColorInfo)); cinfo->fore = cinfo->back = -1; SetWindowLongPtr(window, GWLP_USERDATA, (LONG_PTR)cinfo); } if(cinfo) { if(data) _new_userdata(&(cinfo->root), dataname, data); else { if(dataname) _remove_userdata(&(cinfo->root), dataname, FALSE); else _remove_userdata(&(cinfo->root), NULL, TRUE); } } } /* * Gets a named user data item to a window handle. * Parameters: * window: Window handle of signal to be called back. * dataname: A string pointer identifying which signal to be hooked. * data: User data to be passed to the handler function. */ void * API dw_window_get_data(HWND window, char *dataname) { ColorInfo *cinfo = (ColorInfo *)GetWindowLongPtr(window, GWLP_USERDATA); if(cinfo && cinfo->root && dataname) { UserData *ud = _find_userdata(&(cinfo->root), dataname); if(ud) return ud->data; } return NULL; } /* * Add a callback to a timer event. * Parameters: * interval: Milliseconds to delay between calls. * sigfunc: The pointer to the function to be used as the callback. * data: User data to be passed to the handler function. * Returns: * Timer ID for use with dw_timer_disconnect(), 0 on error. */ int API dw_timer_connect(int interval, void *sigfunc, void *data) { if(sigfunc) { /* Warning: This seems to return UINT_PTR on some systems... * which may exceed the storage of int that our API uses. */ int timerid = (int)SetTimer(NULL, 0, interval, _TimerProc); if(timerid) { _new_signal(WM_TIMER, NULL, timerid, sigfunc, NULL, data); return timerid; } } return 0; } /* * Removes timer callback. * Parameters: * id: Timer ID returned by dw_timer_connect(). */ void API dw_timer_disconnect(int id) { SignalHandler *prev = NULL, *tmp = Root; /* 0 is an invalid timer ID */ if(!id) return; KillTimer(NULL, id); while(tmp) { if(tmp->id == id) { if(prev) { prev->next = tmp->next; free(tmp); tmp = prev->next; } else { Root = tmp->next; free(tmp); tmp = Root; } } else { prev = tmp; tmp = tmp->next; } } } /* * Add a callback to a window event. * Parameters: * window: Window handle of signal to be called back. * signame: A string pointer identifying which signal to be hooked. * sigfunc: The pointer to the function to be used as the callback. * data: User data to be passed to the handler function. */ void API dw_signal_connect(HWND window, char *signame, void *sigfunc, void *data) { dw_signal_connect_data(window, signame, sigfunc, NULL, data); } /* * Add a callback to a window event with a closure callback. * Parameters: * window: Window handle of signal to be called back. * signame: A string pointer identifying which signal to be hooked. * sigfunc: The pointer to the function to be used as the callback. * discfunc: The pointer to the function called when this handler is removed. * data: User data to be passed to the handler function. */ void API dw_signal_connect_data(HWND window, char *signame, void *sigfunc, void *discfunc, void *data) { ULONG message = 0, id = 0; if (window && signame && sigfunc) { if (_stricmp(signame, DW_SIGNAL_SET_FOCUS) == 0) window = _normalize_handle(window); if ((message = _findsigmessage(signame)) != 0) { /* Handle special case of the menu item */ if (message == WM_COMMAND && window < (HWND)65536) { char buffer[16]; HWND owner; _snprintf(buffer, 15, "_dw_id%d", (int)(intptr_t)window); owner = (HWND)dw_window_get_data(DW_HWND_OBJECT, buffer); /* Make sure there are no dupes from popups */ dw_signal_disconnect_by_window(window); if (owner) { id = (ULONG)(uintptr_t)window; window = owner; } } _new_signal(message, window, id, sigfunc, discfunc, data); } } } /* * Removes callbacks for a given window with given name. * Parameters: * window: Window handle of callback to be removed. */ void API dw_signal_disconnect_by_name(HWND window, char *signame) { SignalHandler *prev = NULL, *tmp = Root; ULONG message; if(!window || !signame || (message = _findsigmessage(signame)) == 0) return; 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; } else { Root = tmp->next; free(tmp); tmp = Root; } } else { prev = tmp; tmp = tmp->next; } } } /* * Removes all callbacks for a given window. * Parameters: * window: Window handle of callback to be removed. */ void API dw_signal_disconnect_by_window(HWND window) { SignalHandler *prev = NULL, *tmp = Root; 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; } else { Root = tmp->next; free(tmp); tmp = Root; } } else { prev = tmp; tmp = tmp->next; } } } /* * Removes all callbacks for a given window with specified data. * Parameters: * window: Window handle of callback to be removed. * data: Pointer to the data to be compared against. */ void API dw_signal_disconnect_by_data(HWND window, void *data) { SignalHandler *prev = NULL, *tmp = Root; 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; } else { Root = tmp->next; free(tmp); tmp = Root; } } else { prev = tmp; tmp = tmp->next; } } } /* * Converts a UTF-8 encoded string into a wide string. * Parameters: * utf8string: UTF-8 encoded source string. * Returns: * Wide string that needs to be freed with dw_free() * or NULL on failure. */ wchar_t * API dw_utf8_to_wchar(char *utf8string) { #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: * wstring: Wide source string. * Returns: * UTF-8 encoded string that needs to be freed with dw_free() * or NULL on failure. */ char * API dw_wchar_to_utf8(wchar_t *wstring) { #ifdef UNICODE return _myWideToUTF8(wstring, malloc(WideCharToMultiByte(CP_UTF8, 0, wstring, -1, NULL, 0, NULL, NULL))); #else return NULL; #endif }