// 16 may 2016 #include "uipriv_windows.hpp" // TODO should the d2dscratch programs capture mouse? struct colorDialog { HWND hwnd; HWND svChooser; HWND hSlider; HWND preview; HWND opacitySlider; HWND editH; HWND editS; HWND editV; HWND editRDouble, editRInt; HWND editGDouble, editGInt; HWND editBDouble, editBInt; HWND editADouble, editAInt; HWND editHex; double h; double s; double v; double a; struct colorDialogRGBA *out; BOOL updating; }; // both of these are from the wikipedia page on HSV // TODO what to do about negative h? static void rgb2HSV(double r, double g, double b, double *h, double *s, double *v) { double M, m; int whichmax; double c; M = r; whichmax = 0; if (M < g) { M = g; whichmax = 1; } if (M < b) { M = b; whichmax = 2; } m = r; if (m > g) m = g; if (m > b) m = b; c = M - m; if (c == 0) *h = 0; else { switch (whichmax) { case 0: *h = ((g - b) / c); *h = fmod(*h, 6); break; case 1: *h = ((b - r) / c) + 2; break; case 2: *h = ((r - g) / c) + 4; break; } *h /= 6; // put in range [0,1) } *v = M; if (c == 0) *s = 0; else *s = c / *v; } // TODO negative R values? static void hsv2RGB(double h, double s, double v, double *r, double *g, double *b) { double c; double hPrime; int h60; double x; double m; double c1, c2; c = v * s; hPrime = h * 6; h60 = (int) hPrime; // equivalent to splitting into 60° chunks x = c * (1.0 - fabs(fmod(hPrime, 2) - 1.0)); m = v - c; switch (h60) { case 0: *r = c + m; *g = x + m; *b = m; return; case 1: *r = x + m; *g = c + m; *b = m; return; case 2: *r = m; *g = c + m; *b = x + m; return; case 3: *r = m; *g = x + m; *b = c + m; return; case 4: *r = x + m; *g = m; *b = c + m; return; case 5: *r = c + m; *g = m; *b = x + m; return; } // TODO } #define hexd L"0123456789ABCDEF" static void rgba2Hex(uint8_t r, uint8_t g, uint8_t b, uint8_t a, WCHAR *buf) { buf[0] = L'#'; buf[1] = hexd[(a >> 4) & 0xF]; buf[2] = hexd[a & 0xF]; buf[3] = hexd[(r >> 4) & 0xF]; buf[4] = hexd[r & 0xF]; buf[5] = hexd[(g >> 4) & 0xF]; buf[6] = hexd[g & 0xF]; buf[7] = hexd[(b >> 4) & 0xF]; buf[8] = hexd[b & 0xF]; buf[9] = L'\0'; } static int convHexDigit(WCHAR c) { if (c >= L'0' && c <= L'9') return c - L'0'; if (c >= L'A' && c <= L'F') return c - L'A' + 0xA; if (c >= L'a' && c <= L'f') return c - L'a' + 0xA; return -1; } // TODO allow #NNN shorthand static BOOL hex2RGBA(WCHAR *buf, double *r, double *g, double *b, double *a) { uint8_t component; int i; if (*buf == L'#') buf++; component = 0; i = convHexDigit(*buf++); if (i < 0) return FALSE; component |= ((uint8_t) i) << 4; i = convHexDigit(*buf++); if (i < 0) return FALSE; component |= ((uint8_t) i); *a = ((double) component) / 255; component = 0; i = convHexDigit(*buf++); if (i < 0) return FALSE; component |= ((uint8_t) i) << 4; i = convHexDigit(*buf++); if (i < 0) return FALSE; component |= ((uint8_t) i); *r = ((double) component) / 255; component = 0; i = convHexDigit(*buf++); if (i < 0) return FALSE; component |= ((uint8_t) i) << 4; i = convHexDigit(*buf++); if (i < 0) return FALSE; component |= ((uint8_t) i); *g = ((double) component) / 255; if (*buf == L'\0') { // #NNNNNN syntax *b = *g; *g = *r; *r = *a; *a = 1; return TRUE; } component = 0; i = convHexDigit(*buf++); if (i < 0) return FALSE; component |= ((uint8_t) i) << 4; i = convHexDigit(*buf++); if (i < 0) return FALSE; component |= ((uint8_t) i); *b = ((double) component) / 255; return *buf == L'\0'; } static void updateDouble(HWND hwnd, double d, HWND whichChanged) { WCHAR *str; if (whichChanged == hwnd) return; str = ftoutf16(d); setWindowText(hwnd, str); uiprivFree(str); } static void updateDialog(struct colorDialog *c, HWND whichChanged) { double r, g, b; uint8_t rb, gb, bb, ab; WCHAR *str; WCHAR hexbuf[16]; // more than enough c->updating = TRUE; updateDouble(c->editH, c->h, whichChanged); updateDouble(c->editS, c->s, whichChanged); updateDouble(c->editV, c->v, whichChanged); hsv2RGB(c->h, c->s, c->v, &r, &g, &b); updateDouble(c->editRDouble, r, whichChanged); updateDouble(c->editGDouble, g, whichChanged); updateDouble(c->editBDouble, b, whichChanged); updateDouble(c->editADouble, c->a, whichChanged); rb = (uint8_t) (r * 255); gb = (uint8_t) (g * 255); bb = (uint8_t) (b * 255); ab = (uint8_t) (c->a * 255); if (whichChanged != c->editRInt) { str = itoutf16(rb); setWindowText(c->editRInt, str); uiprivFree(str); } if (whichChanged != c->editGInt) { str = itoutf16(gb); setWindowText(c->editGInt, str); uiprivFree(str); } if (whichChanged != c->editBInt) { str = itoutf16(bb); setWindowText(c->editBInt, str); uiprivFree(str); } if (whichChanged != c->editAInt) { str = itoutf16(ab); setWindowText(c->editAInt, str); uiprivFree(str); } if (whichChanged != c->editHex) { rgba2Hex(rb, gb, bb, ab, hexbuf); setWindowText(c->editHex, hexbuf); } // TODO TRUE? invalidateRect(c->svChooser, NULL, TRUE); invalidateRect(c->hSlider, NULL, TRUE); invalidateRect(c->preview, NULL, TRUE); invalidateRect(c->opacitySlider, NULL, TRUE); c->updating = FALSE; } // this imitates http://blogs.msdn.com/b/wpfsdk/archive/2006/10/26/uncommon-dialogs--font-chooser-and-color-picker-dialogs.aspx static void drawGrid(ID2D1RenderTarget *rt, D2D1_RECT_F *fillRect) { D2D1_SIZE_F size; D2D1_PIXEL_FORMAT pformat; ID2D1BitmapRenderTarget *brt; D2D1_COLOR_F color; D2D1_BRUSH_PROPERTIES bprop; ID2D1SolidColorBrush *brush; D2D1_RECT_F rect; ID2D1Bitmap *bitmap; D2D1_BITMAP_BRUSH_PROPERTIES bbp; ID2D1BitmapBrush *bb; HRESULT hr; // mind the divisions; they represent the fact the original uses a viewport size.width = 100 / 10; size.height = 100 / 10; // yay more ABI bugs #ifdef _MSC_VER pformat = rt->GetPixelFormat(); #else { typedef D2D1_PIXEL_FORMAT *(__stdcall ID2D1RenderTarget::* GetPixelFormatF)(D2D1_PIXEL_FORMAT *); GetPixelFormatF gpf; gpf = (GetPixelFormatF) (&(rt->GetPixelFormat)); (rt->*gpf)(&pformat); } #endif hr = rt->CreateCompatibleRenderTarget(&size, NULL, &pformat, D2D1_COMPATIBLE_RENDER_TARGET_OPTIONS_NONE, &brt); if (hr != S_OK) logHRESULT(L"error creating render target for grid", hr); brt->BeginDraw(); color.r = 1.0; color.g = 1.0; color.b = 1.0; color.a = 1.0; brt->Clear(&color); color = D2D1::ColorF(D2D1::ColorF::LightGray, 1.0); ZeroMemory(&bprop, sizeof (D2D1_BRUSH_PROPERTIES)); bprop.opacity = 1.0; bprop.transform._11 = 1; bprop.transform._22 = 1; hr = brt->CreateSolidColorBrush(&color, &bprop, &brush); if (hr != S_OK) logHRESULT(L"error creating brush for grid", hr); rect.left = 0; rect.top = 0; rect.right = 50 / 10; rect.bottom = 50 / 10; brt->FillRectangle(&rect, brush); rect.left = 50 / 10; rect.top = 50 / 10; rect.right = 100 / 10; rect.bottom = 100 / 10; brt->FillRectangle(&rect, brush); brush->Release(); hr = brt->EndDraw(NULL, NULL); if (hr != S_OK) logHRESULT(L"error finalizing render target for grid", hr); hr = brt->GetBitmap(&bitmap); if (hr != S_OK) logHRESULT(L"error getting bitmap for grid", hr); brt->Release(); ZeroMemory(&bbp, sizeof (D2D1_BITMAP_BRUSH_PROPERTIES)); bbp.extendModeX = D2D1_EXTEND_MODE_WRAP; bbp.extendModeY = D2D1_EXTEND_MODE_WRAP; bbp.interpolationMode = D2D1_BITMAP_INTERPOLATION_MODE_NEAREST_NEIGHBOR; hr = rt->CreateBitmapBrush(bitmap, &bbp, &bprop, &bb); if (hr != S_OK) logHRESULT(L"error creating bitmap brush for grid", hr); rt->FillRectangle(fillRect, bb); bb->Release(); bitmap->Release(); } // this interesting approach comes from http://blogs.msdn.com/b/wpfsdk/archive/2006/10/26/uncommon-dialogs--font-chooser-and-color-picker-dialogs.aspx static void drawSVChooser(struct colorDialog *c, ID2D1RenderTarget *rt) { D2D1_SIZE_F size; D2D1_RECT_F rect; double rTop, gTop, bTop; D2D1_GRADIENT_STOP stops[2]; ID2D1GradientStopCollection *collection; D2D1_LINEAR_GRADIENT_BRUSH_PROPERTIES lprop; D2D1_BRUSH_PROPERTIES bprop; ID2D1LinearGradientBrush *brush; ID2D1LinearGradientBrush *opacity; ID2D1Layer *layer; D2D1_LAYER_PARAMETERS layerparams; D2D1_ELLIPSE mparam; D2D1_COLOR_F mcolor; ID2D1SolidColorBrush *markerBrush; HRESULT hr; size = realGetSize(rt); rect.left = 0; rect.top = 0; rect.right = size.width; rect.bottom = size.height; drawGrid(rt, &rect); // first, draw a vertical gradient from the current hue at max S/V to black // the source example draws it upside down; let's do so too just to be safe hsv2RGB(c->h, 1.0, 1.0, &rTop, &gTop, &bTop); stops[0].position = 0; stops[0].color.r = 0.0; stops[0].color.g = 0.0; stops[0].color.b = 0.0; stops[0].color.a = 1.0; stops[1].position = 1; stops[1].color.r = rTop; stops[1].color.g = gTop; stops[1].color.b = bTop; stops[1].color.a = 1.0; hr = rt->CreateGradientStopCollection(stops, 2, D2D1_GAMMA_2_2, D2D1_EXTEND_MODE_CLAMP, &collection); if (hr != S_OK) logHRESULT(L"error making gradient stop collection for first gradient in SV chooser", hr); ZeroMemory(&lprop, sizeof (D2D1_LINEAR_GRADIENT_BRUSH_PROPERTIES)); lprop.startPoint.x = size.width / 2; lprop.startPoint.y = size.height; lprop.endPoint.x = size.width / 2; lprop.endPoint.y = 0; // TODO decide what to do about the duplication of this ZeroMemory(&bprop, sizeof (D2D1_BRUSH_PROPERTIES)); bprop.opacity = c->a; // note this part; we also use it below for the layer bprop.transform._11 = 1; bprop.transform._22 = 1; hr = rt->CreateLinearGradientBrush(&lprop, &bprop, collection, &brush); if (hr != S_OK) logHRESULT(L"error making gradient brush for first gradient in SV chooser", hr); rt->FillRectangle(&rect, brush); brush->Release(); collection->Release(); // second, create an opacity mask for the third step: a horizontal gradientthat goes from opaque to translucent stops[0].position = 0; stops[0].color.r = 0.0; stops[0].color.g = 0.0; stops[0].color.b = 0.0; stops[0].color.a = 1.0; stops[1].position = 1; stops[1].color.r = 0.0; stops[1].color.g = 0.0; stops[1].color.b = 0.0; stops[1].color.a = 0.0; hr = rt->CreateGradientStopCollection(stops, 2, D2D1_GAMMA_2_2, D2D1_EXTEND_MODE_CLAMP, &collection); if (hr != S_OK) logHRESULT(L"error making gradient stop collection for opacity mask gradient in SV chooser", hr); ZeroMemory(&lprop, sizeof (D2D1_LINEAR_GRADIENT_BRUSH_PROPERTIES)); lprop.startPoint.x = 0; lprop.startPoint.y = size.height / 2; lprop.endPoint.x = size.width; lprop.endPoint.y = size.height / 2; ZeroMemory(&bprop, sizeof (D2D1_BRUSH_PROPERTIES)); bprop.opacity = 1.0; bprop.transform._11 = 1; bprop.transform._22 = 1; hr = rt->CreateLinearGradientBrush(&lprop, &bprop, collection, &opacity); if (hr != S_OK) logHRESULT(L"error making gradient brush for opacity mask gradient in SV chooser", hr); collection->Release(); // finally, make a vertical gradient from white at the top to black at the bottom (right side up this time) and with the previous opacity mask stops[0].position = 0; stops[0].color.r = 1.0; stops[0].color.g = 1.0; stops[0].color.b = 1.0; stops[0].color.a = 1.0; stops[1].position = 1; stops[1].color.r = 0.0; stops[1].color.g = 0.0; stops[1].color.b = 0.0; stops[1].color.a = 1.0; hr = rt->CreateGradientStopCollection(stops, 2, D2D1_GAMMA_2_2, D2D1_EXTEND_MODE_CLAMP, &collection); if (hr != S_OK) logHRESULT(L"error making gradient stop collection for second gradient in SV chooser", hr); ZeroMemory(&lprop, sizeof (D2D1_LINEAR_GRADIENT_BRUSH_PROPERTIES)); lprop.startPoint.x = size.width / 2; lprop.startPoint.y = 0; lprop.endPoint.x = size.width / 2; lprop.endPoint.y = size.height; ZeroMemory(&bprop, sizeof (D2D1_BRUSH_PROPERTIES)); bprop.opacity = 1.0; bprop.transform._11 = 1; bprop.transform._22 = 1; hr = rt->CreateLinearGradientBrush(&lprop, &bprop, collection, &brush); if (hr != S_OK) logHRESULT(L"error making gradient brush for second gradient in SV chooser", hr); // oh but wait we can't use FillRectangle() with an opacity mask // and we can't use FillGeometry() with both an opacity mask and a non-bitmap // layers it is! hr = rt->CreateLayer(&size, &layer); if (hr != S_OK) logHRESULT(L"error making layer for second gradient in SV chooser", hr); ZeroMemory(&layerparams, sizeof (D2D1_LAYER_PARAMETERS)); layerparams.contentBounds = rect; // TODO make sure these are right layerparams.geometricMask = NULL; layerparams.maskAntialiasMode = D2D1_ANTIALIAS_MODE_PER_PRIMITIVE; layerparams.maskTransform._11 = 1; layerparams.maskTransform._22 = 1; layerparams.opacity = c->a; // here's the other use of c->a to note layerparams.opacityBrush = opacity; layerparams.layerOptions = D2D1_LAYER_OPTIONS_NONE; rt->PushLayer(&layerparams, layer); rt->FillRectangle(&rect, brush); rt->PopLayer(); layer->Release(); brush->Release(); collection->Release(); opacity->Release(); // and now we just draw the marker ZeroMemory(&mparam, sizeof (D2D1_ELLIPSE)); mparam.point.x = c->s * size.width; mparam.point.y = (1 - c->v) * size.height; mparam.radiusX = 7; mparam.radiusY = 7; // TODO make the color contrast? mcolor.r = 1.0; mcolor.g = 1.0; mcolor.b = 1.0; mcolor.a = 1.0; bprop.opacity = 1.0; // the marker should always be opaque hr = rt->CreateSolidColorBrush(&mcolor, &bprop, &markerBrush); if (hr != S_OK) logHRESULT(L"error creating brush for SV chooser marker", hr); rt->DrawEllipse(&mparam, markerBrush, 2, NULL); markerBrush->Release(); } static LRESULT CALLBACK svChooserSubProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam, UINT_PTR uIdSubclass, DWORD_PTR dwRefData) { ID2D1RenderTarget *rt; struct colorDialog *c; D2D1_POINT_2F *pos; D2D1_SIZE_F *size; c = (struct colorDialog *) dwRefData; switch (uMsg) { case msgD2DScratchPaint: rt = (ID2D1RenderTarget *) lParam; drawSVChooser(c, rt); return 0; case msgD2DScratchLButtonDown: pos = (D2D1_POINT_2F *) wParam; size = (D2D1_SIZE_F *) lParam; c->s = pos->x / size->width; c->v = 1 - (pos->y / size->height); updateDialog(c, NULL); return 0; case WM_NCDESTROY: if (RemoveWindowSubclass(hwnd, svChooserSubProc, uIdSubclass) == FALSE) logLastError(L"error removing color dialog SV chooser subclass"); break; } return DefSubclassProc(hwnd, uMsg, wParam, lParam); } static void drawArrow(ID2D1RenderTarget *rt, D2D1_POINT_2F center, double hypot) { double leg; D2D1_RECT_F rect; D2D1_MATRIX_3X2_F oldtf, rotate; D2D1_COLOR_F color; D2D1_BRUSH_PROPERTIES bprop; ID2D1SolidColorBrush *brush; HRESULT hr; // to avoid needing a geometry, this will just be a rotated square // compute the length of each side; the diagonal of the square is 2 * offset to gradient // a^2 + a^2 = c^2 -> 2a^2 = c^2 // a = sqrt(c^2/2) hypot *= hypot; hypot /= 2; leg = sqrt(hypot); rect.left = center.x - leg; rect.top = center.y - leg; rect.right = center.x + leg; rect.bottom = center.y + leg; // now we need to rotate the render target 45° (either way works) about the center point rt->GetTransform(&oldtf); rotate = oldtf * D2D1::Matrix3x2F::Rotation(45, center); rt->SetTransform(&rotate); // and draw color.r = 0.0; color.g = 0.0; color.b = 0.0; color.a = 1.0; ZeroMemory(&bprop, sizeof (D2D1_BRUSH_PROPERTIES)); bprop.opacity = 1.0; bprop.transform._11 = 1; bprop.transform._22 = 1; hr = rt->CreateSolidColorBrush(&color, &bprop, &brush); if (hr != S_OK) logHRESULT(L"error creating brush for arrow", hr); rt->FillRectangle(&rect, brush); brush->Release(); // clean up rt->SetTransform(&oldtf); } // the gradient stuff also comes from http://blogs.msdn.com/b/wpfsdk/archive/2006/10/26/uncommon-dialogs--font-chooser-and-color-picker-dialogs.aspx #define nStops (30) #define degPerStop (360 / nStops) #define stopIncr (1.0 / ((double) nStops)) static void drawHSlider(struct colorDialog *c, ID2D1RenderTarget *rt) { D2D1_SIZE_F size; D2D1_RECT_F rect; D2D1_GRADIENT_STOP stops[nStops]; double r, g, b; int i; double h; ID2D1GradientStopCollection *collection; D2D1_LINEAR_GRADIENT_BRUSH_PROPERTIES lprop; D2D1_BRUSH_PROPERTIES bprop; ID2D1LinearGradientBrush *brush; double hypot; D2D1_POINT_2F center; HRESULT hr; size = realGetSize(rt); rect.left = size.width / 6; // leftmost sixth for arrow rect.top = 0; rect.right = size.width; rect.bottom = size.height; for (i = 0; i < nStops; i++) { h = ((double) (i * degPerStop)) / 360.0; if (i == (nStops - 1)) h = 0; hsv2RGB(h, 1.0, 1.0, &r, &g, &b); stops[i].position = ((double) i) * stopIncr; stops[i].color.r = r; stops[i].color.g = g; stops[i].color.b = b; stops[i].color.a = 1.0; } // and pin the last one stops[i - 1].position = 1.0; hr = rt->CreateGradientStopCollection(stops, nStops, // note that in this case this gamma is explicitly specified by the original D2D1_GAMMA_2_2, D2D1_EXTEND_MODE_CLAMP, &collection); if (hr != S_OK) logHRESULT(L"error creating stop collection for H slider gradient", hr); ZeroMemory(&lprop, sizeof (D2D1_LINEAR_GRADIENT_BRUSH_PROPERTIES)); lprop.startPoint.x = (rect.right - rect.left) / 2; lprop.startPoint.y = 0; lprop.endPoint.x = (rect.right - rect.left) / 2; lprop.endPoint.y = size.height; ZeroMemory(&bprop, sizeof (D2D1_BRUSH_PROPERTIES)); bprop.opacity = 1.0; bprop.transform._11 = 1; bprop.transform._22 = 1; hr = rt->CreateLinearGradientBrush(&lprop, &bprop, collection, &brush); if (hr != S_OK) logHRESULT(L"error creating gradient brush for H slider", hr); rt->FillRectangle(&rect, brush); brush->Release(); collection->Release(); // now draw a black arrow center.x = 0; center.y = c->h * size.height; hypot = rect.left; drawArrow(rt, center, hypot); } static LRESULT CALLBACK hSliderSubProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam, UINT_PTR uIdSubclass, DWORD_PTR dwRefData) { ID2D1RenderTarget *rt; struct colorDialog *c; D2D1_POINT_2F *pos; D2D1_SIZE_F *size; c = (struct colorDialog *) dwRefData; switch (uMsg) { case msgD2DScratchPaint: rt = (ID2D1RenderTarget *) lParam; drawHSlider(c, rt); return 0; case msgD2DScratchLButtonDown: pos = (D2D1_POINT_2F *) wParam; size = (D2D1_SIZE_F *) lParam; c->h = pos->y / size->height; updateDialog(c, NULL); return 0; case WM_NCDESTROY: if (RemoveWindowSubclass(hwnd, hSliderSubProc, uIdSubclass) == FALSE) logLastError(L"error removing color dialog H slider subclass"); break; } return DefSubclassProc(hwnd, uMsg, wParam, lParam); } static void drawPreview(struct colorDialog *c, ID2D1RenderTarget *rt) { D2D1_SIZE_F size; D2D1_RECT_F rect; double r, g, b; D2D1_COLOR_F color; D2D1_BRUSH_PROPERTIES bprop; ID2D1SolidColorBrush *brush; HRESULT hr; size = realGetSize(rt); rect.left = 0; rect.top = 0; rect.right = size.width; rect.bottom = size.height; drawGrid(rt, &rect); hsv2RGB(c->h, c->s, c->v, &r, &g, &b); color.r = r; color.g = g; color.b = b; color.a = c->a; ZeroMemory(&bprop, sizeof (D2D1_BRUSH_PROPERTIES)); bprop.opacity = 1.0; bprop.transform._11 = 1; bprop.transform._22 = 1; hr = rt->CreateSolidColorBrush(&color, &bprop, &brush); if (hr != S_OK) logHRESULT(L"error creating brush for preview", hr); rt->FillRectangle(&rect, brush); brush->Release(); } static LRESULT CALLBACK previewSubProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam, UINT_PTR uIdSubclass, DWORD_PTR dwRefData) { ID2D1RenderTarget *rt; struct colorDialog *c; c = (struct colorDialog *) dwRefData; switch (uMsg) { case msgD2DScratchPaint: rt = (ID2D1RenderTarget *) lParam; drawPreview(c, rt); return 0; case WM_NCDESTROY: if (RemoveWindowSubclass(hwnd, previewSubProc, uIdSubclass) == FALSE) logLastError(L"error removing color dialog previewer subclass"); break; } return DefSubclassProc(hwnd, uMsg, wParam, lParam); } // once again, this is based on the Microsoft sample above static void drawOpacitySlider(struct colorDialog *c, ID2D1RenderTarget *rt) { D2D1_SIZE_F size; D2D1_RECT_F rect; D2D1_GRADIENT_STOP stops[2]; ID2D1GradientStopCollection *collection; D2D1_LINEAR_GRADIENT_BRUSH_PROPERTIES lprop; D2D1_BRUSH_PROPERTIES bprop; ID2D1LinearGradientBrush *brush; double hypot; D2D1_POINT_2F center; HRESULT hr; size = realGetSize(rt); rect.left = 0; rect.top = 0; rect.right = size.width; rect.bottom = size.height * (5.0 / 6.0); // bottommost sixth for arrow drawGrid(rt, &rect); stops[0].position = 0.0; stops[0].color.r = 0.0; stops[0].color.g = 0.0; stops[0].color.b = 0.0; stops[0].color.a = 1.0; stops[1].position = 1.0; stops[1].color.r = 1.0; // this is the XAML color Transparent, as in the source stops[1].color.g = 1.0; stops[1].color.b = 1.0; stops[1].color.a = 0.0; hr = rt->CreateGradientStopCollection(stops, 2, // note that in this case this gamma is explicitly specified by the original D2D1_GAMMA_2_2, D2D1_EXTEND_MODE_CLAMP, &collection); if (hr != S_OK) logHRESULT(L"error creating stop collection for opacity slider gradient", hr); ZeroMemory(&lprop, sizeof (D2D1_LINEAR_GRADIENT_BRUSH_PROPERTIES)); lprop.startPoint.x = 0; lprop.startPoint.y = (rect.bottom - rect.top) / 2; lprop.endPoint.x = size.width; lprop.endPoint.y = (rect.bottom - rect.top) / 2; ZeroMemory(&bprop, sizeof (D2D1_BRUSH_PROPERTIES)); bprop.opacity = 1.0; bprop.transform._11 = 1; bprop.transform._22 = 1; hr = rt->CreateLinearGradientBrush(&lprop, &bprop, collection, &brush); if (hr != S_OK) logHRESULT(L"error creating gradient brush for opacity slider", hr); rt->FillRectangle(&rect, brush); brush->Release(); collection->Release(); // now draw a black arrow center.x = (1 - c->a) * size.width; center.y = size.height; hypot = size.height - rect.bottom; drawArrow(rt, center, hypot); } static LRESULT CALLBACK opacitySliderSubProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam, UINT_PTR uIdSubclass, DWORD_PTR dwRefData) { ID2D1RenderTarget *rt; struct colorDialog *c; D2D1_POINT_2F *pos; D2D1_SIZE_F *size; c = (struct colorDialog *) dwRefData; switch (uMsg) { case msgD2DScratchPaint: rt = (ID2D1RenderTarget *) lParam; drawOpacitySlider(c, rt); return 0; case msgD2DScratchLButtonDown: pos = (D2D1_POINT_2F *) wParam; size = (D2D1_SIZE_F *) lParam; c->a = 1 - (pos->x / size->width); updateDialog(c, NULL); return 0; case WM_NCDESTROY: if (RemoveWindowSubclass(hwnd, opacitySliderSubProc, uIdSubclass) == FALSE) logLastError(L"error removing color dialog opacity slider subclass"); break; } return DefSubclassProc(hwnd, uMsg, wParam, lParam); } // TODO extract into d2dscratch.cpp, use in font dialog HWND replaceWithD2DScratch(HWND parent, int id, SUBCLASSPROC subproc, void *data) { HWND replace; RECT r; replace = getDlgItem(parent, id); uiWindowsEnsureGetWindowRect(replace, &r); mapWindowRect(NULL, parent, &r); uiWindowsEnsureDestroyWindow(replace); return newD2DScratch(parent, &r, (HMENU) id, subproc, (DWORD_PTR) data); // TODO preserve Z-order } // a few issues: // - some controls are positioned wrong; see http://stackoverflow.com/questions/37263267/why-are-some-of-my-controls-positioned-slightly-off-in-a-dialog-template-in-a-re // - labels are too low; need to adjust them by the font's internal leading // fixupControlPositions() and the following helper routines fix that for us static LONG offsetTo(HWND a, HWND b) { RECT ra, rb; uiWindowsEnsureGetWindowRect(a, &ra); uiWindowsEnsureGetWindowRect(b, &rb); return rb.top - ra.bottom; } static void moveWindowsUp(struct colorDialog *c, LONG by, ...) { va_list ap; HWND cur; RECT r; va_start(ap, by); for (;;) { cur = va_arg(ap, HWND); if (cur == NULL) break; uiWindowsEnsureGetWindowRect(cur, &r); mapWindowRect(NULL, c->hwnd, &r); r.top -= by; r.bottom -= by; // TODO this isn't technically during a resize uiWindowsEnsureMoveWindowDuringResize(cur, r.left, r.top, r.right - r.left, r.bottom - r.top); } va_end(ap); } static void fixupControlPositions(struct colorDialog *c) { HWND labelH; HWND labelS; HWND labelV; HWND labelR; HWND labelG; HWND labelB; HWND labelA; HWND labelHex; LONG offset; uiWindowsSizing sizing; labelH = getDlgItem(c->hwnd, rcHLabel); labelS = getDlgItem(c->hwnd, rcSLabel); labelV = getDlgItem(c->hwnd, rcVLabel); labelR = getDlgItem(c->hwnd, rcRLabel); labelG = getDlgItem(c->hwnd, rcGLabel); labelB = getDlgItem(c->hwnd, rcBLabel); labelA = getDlgItem(c->hwnd, rcALabel); labelHex = getDlgItem(c->hwnd, rcHexLabel); offset = offsetTo(c->editH, c->editS); moveWindowsUp(c, offset, labelS, c->editS, labelG, c->editGDouble, c->editGInt, NULL); offset = offsetTo(c->editS, c->editV); moveWindowsUp(c, offset, labelV, c->editV, labelB, c->editBDouble, c->editBInt, NULL); offset = offsetTo(c->editBDouble, c->editADouble); moveWindowsUp(c, offset, labelA, c->editADouble, c->editAInt, NULL); getSizing(c->hwnd, &sizing, (HFONT) SendMessageW(labelH, WM_GETFONT, 0, 0)); offset = sizing.InternalLeading; moveWindowsUp(c, offset, labelH, labelS, labelV, labelR, labelG, labelB, labelA, labelHex, NULL); } static struct colorDialog *beginColorDialog(HWND hwnd, LPARAM lParam) { struct colorDialog *c; c = uiprivNew(struct colorDialog); c->hwnd = hwnd; c->out = (struct colorDialogRGBA *) lParam; // load initial values now rgb2HSV(c->out->r, c->out->g, c->out->b, &(c->h), &(c->s), &(c->v)); c->a = c->out->a; // TODO set up d2dscratches // TODO prefix all these with rcColor instead of just rc c->editH = getDlgItem(c->hwnd, rcH); c->editS = getDlgItem(c->hwnd, rcS); c->editV = getDlgItem(c->hwnd, rcV); c->editRDouble = getDlgItem(c->hwnd, rcRDouble); c->editRInt = getDlgItem(c->hwnd, rcRInt); c->editGDouble = getDlgItem(c->hwnd, rcGDouble); c->editGInt = getDlgItem(c->hwnd, rcGInt); c->editBDouble = getDlgItem(c->hwnd, rcBDouble); c->editBInt = getDlgItem(c->hwnd, rcBInt); c->editADouble = getDlgItem(c->hwnd, rcADouble); c->editAInt = getDlgItem(c->hwnd, rcAInt); c->editHex = getDlgItem(c->hwnd, rcHex); c->svChooser = replaceWithD2DScratch(c->hwnd, rcColorSVChooser, svChooserSubProc, c); c->hSlider = replaceWithD2DScratch(c->hwnd, rcColorHSlider, hSliderSubProc, c); c->preview = replaceWithD2DScratch(c->hwnd, rcPreview, previewSubProc, c); c->opacitySlider = replaceWithD2DScratch(c->hwnd, rcOpacitySlider, opacitySliderSubProc, c); fixupControlPositions(c); // and get the ball rolling updateDialog(c, NULL); return c; } static void endColorDialog(struct colorDialog *c, INT_PTR code) { if (EndDialog(c->hwnd, code) == 0) logLastError(L"error ending color dialog"); uiprivFree(c); } // TODO make this void on the font dialog too static void tryFinishDialog(struct colorDialog *c, WPARAM wParam) { // cancelling if (LOWORD(wParam) != IDOK) { endColorDialog(c, 1); return; } // OK hsv2RGB(c->h, c->s, c->v, &(c->out->r), &(c->out->g), &(c->out->b)); c->out->a = c->a; endColorDialog(c, 2); } static double editDouble(HWND hwnd) { WCHAR *s; double d; s = windowText(hwnd); d = _wtof(s); uiprivFree(s); return d; } static void hChanged(struct colorDialog *c) { double h; h = editDouble(c->editH); if (h < 0 || h >= 1.0) // note the >= return; c->h = h; updateDialog(c, c->editH); } static void sChanged(struct colorDialog *c) { double s; s = editDouble(c->editS); if (s < 0 || s > 1) return; c->s = s; updateDialog(c, c->editS); } static void vChanged(struct colorDialog *c) { double v; v = editDouble(c->editV); if (v < 0 || v > 1) return; c->v = v; updateDialog(c, c->editV); } static void rDoubleChanged(struct colorDialog *c) { double r, g, b; hsv2RGB(c->h, c->s, c->v, &r, &g, &b); r = editDouble(c->editRDouble); if (r < 0 || r > 1) return; rgb2HSV(r, g, b, &(c->h), &(c->s), &(c->v)); updateDialog(c, c->editRDouble); } static void gDoubleChanged(struct colorDialog *c) { double r, g, b; hsv2RGB(c->h, c->s, c->v, &r, &g, &b); g = editDouble(c->editGDouble); if (g < 0 || g > 1) return; rgb2HSV(r, g, b, &(c->h), &(c->s), &(c->v)); updateDialog(c, c->editGDouble); } static void bDoubleChanged(struct colorDialog *c) { double r, g, b; hsv2RGB(c->h, c->s, c->v, &r, &g, &b); b = editDouble(c->editBDouble); if (b < 0 || b > 1) return; rgb2HSV(r, g, b, &(c->h), &(c->s), &(c->v)); updateDialog(c, c->editBDouble); } static void aDoubleChanged(struct colorDialog *c) { double a; a = editDouble(c->editADouble); if (a < 0 || a > 1) return; c->a = a; updateDialog(c, c->editADouble); } static int editInt(HWND hwnd) { WCHAR *s; int i; s = windowText(hwnd); i = _wtoi(s); uiprivFree(s); return i; } static void rIntChanged(struct colorDialog *c) { double r, g, b; int i; hsv2RGB(c->h, c->s, c->v, &r, &g, &b); i = editInt(c->editRInt); if (i < 0 || i > 255) return; r = ((double) i) / 255.0; rgb2HSV(r, g, b, &(c->h), &(c->s), &(c->v)); updateDialog(c, c->editRInt); } static void gIntChanged(struct colorDialog *c) { double r, g, b; int i; hsv2RGB(c->h, c->s, c->v, &r, &g, &b); i = editInt(c->editGInt); if (i < 0 || i > 255) return; g = ((double) i) / 255.0; rgb2HSV(r, g, b, &(c->h), &(c->s), &(c->v)); updateDialog(c, c->editGInt); } static void bIntChanged(struct colorDialog *c) { double r, g, b; int i; hsv2RGB(c->h, c->s, c->v, &r, &g, &b); i = editInt(c->editBInt); if (i < 0 || i > 255) return; b = ((double) i) / 255.0; rgb2HSV(r, g, b, &(c->h), &(c->s), &(c->v)); updateDialog(c, c->editBInt); } static void aIntChanged(struct colorDialog *c) { int a; a = editInt(c->editAInt); if (a < 0 || a > 255) return; c->a = ((double) a) / 255; updateDialog(c, c->editAInt); } static void hexChanged(struct colorDialog *c) { WCHAR *buf; double r, g, b, a; BOOL is; buf = windowText(c->editHex); is = hex2RGBA(buf, &r, &g, &b, &a); uiprivFree(buf); if (!is) return; rgb2HSV(r, g, b, &(c->h), &(c->s), &(c->v)); c->a = a; updateDialog(c, c->editHex); } // TODO change fontdialog to use this // note that if we make this const, we get lots of weird compiler errors static std::map changed = { { rcH, hChanged }, { rcS, sChanged }, { rcV, vChanged }, { rcRDouble, rDoubleChanged }, { rcGDouble, gDoubleChanged }, { rcBDouble, bDoubleChanged }, { rcADouble, aDoubleChanged }, { rcRInt, rIntChanged }, { rcGInt, gIntChanged }, { rcBInt, bIntChanged }, { rcAInt, aIntChanged }, { rcHex, hexChanged }, }; static INT_PTR CALLBACK colorDialogDlgProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam) { struct colorDialog *c; c = (struct colorDialog *) GetWindowLongPtrW(hwnd, DWLP_USER); if (c == NULL) { if (uMsg == WM_INITDIALOG) { c = beginColorDialog(hwnd, lParam); SetWindowLongPtrW(hwnd, DWLP_USER, (LONG_PTR) c); return TRUE; } return FALSE; } switch (uMsg) { case WM_COMMAND: SetWindowLongPtrW(c->hwnd, DWLP_MSGRESULT, 0); // just in case switch (LOWORD(wParam)) { case IDOK: case IDCANCEL: if (HIWORD(wParam) != BN_CLICKED) return FALSE; tryFinishDialog(c, wParam); return TRUE; case rcH: case rcS: case rcV: case rcRDouble: case rcGDouble: case rcBDouble: case rcADouble: case rcRInt: case rcGInt: case rcBInt: case rcAInt: case rcHex: if (HIWORD(wParam) != EN_CHANGE) return FALSE; if (c->updating) // prevent infinite recursion during an update return FALSE; (*(changed[LOWORD(wParam)]))(c); return TRUE; } return FALSE; } return FALSE; } BOOL showColorDialog(HWND parent, struct colorDialogRGBA *c) { switch (DialogBoxParamW(hInstance, MAKEINTRESOURCE(rcColorDialog), parent, colorDialogDlgProc, (LPARAM) c)) { case 1: // cancel return FALSE; case 2: // ok // make the compiler happy by putting the return after the switch break; default: logLastError(L"error running color dialog"); } return TRUE; }