Subversion Repositories filter_foundry

/*

    This file is part of "Filter Foundry", a filter plugin for Adobe Photoshop

    Copyright (C) 2003-2009 Toby Thain, toby@telegraphics.com.au

    Copyright (C) 2018-2021 Daniel Marschall, ViaThinkSoft

    This program is free software; you can redistribute it and/or modify

    it under the terms of the GNU General Public License as published by

    the Free Software Foundation; either version 2 of the License, or

    (at your option) any later version.

    This program is distributed in the hope that it will be useful,

    but WITHOUT ANY WARRANTY; without even the implied warranty of

    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License

    along with this program; if not, write to the Free Software

    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

*/

/* Win32 user interface routines */

#include "world.h"

#include "PIAbout.h"

#include <windows.h>

#include <commctrl.h>

#include "ff.h"

#include "slider_win.h"

#include "version.h"

HWND preview_hwnd;

HCURSOR hCurHandOpen;

HCURSOR hCurHandGrab;

HCURSOR hCurHandQuestion;

HICON hIconCautionSign;

extern HINSTANCE hDllInstance;

void DoAbout(AboutRecordPtr pb){

        char text[1000];

        char title[200];

        PlatformData *p = (PlatformData*)pb->platformData;

        if (gdata && gdata->standalone) {

                sprintf(title, "About %s", gdata->parm.szTitle);

                sprintf(text,  "%s by %s\n" /* {Title} by {Author} */

                               "%s\n" /* {Copyright} */

                               "\n"

                               "This plugin was built using Filter Foundry " VERSION_STR

                                #ifdef _WIN64

                               " (64 bit)\n"

                                #else

                               " (32 bit)\n"

                                #endif

                               "(C) 2003-2009 Toby Thain, 2018-" RELEASE_YEAR " Daniel Marschall\n"

                               "available from " PROJECT_URL,

                               gdata->parm.szTitle,

                               gdata->parm.szAuthor,

                               gdata->parm.szCopyright);

        } else {

                sprintf(title, "About Filter Foundry");

                sprintf(text,  "Filter Foundry " VERSION_STR

                                #ifdef _WIN64

                               " (64 bit)\n"

                                #else

                               " (32 bit)\n"

                                #endif

                               "(C) 2003-2009 Toby Thain, 2018-" RELEASE_YEAR " Daniel Marschall\n"

                               "\n"

                               "Latest version available from\n"

                               PROJECT_URL "\n"

                               "\nPlease contact the author with any bug reports,\n"

                               "suggestions or comments.\n"

                               "If you use this program and like it, please consider\n"

                               "making a donation.");

        }

        MessageBoxA((HWND)p->hwnd, text, title, MB_TASKMODAL|MB_ICONINFORMATION|MB_OK);

}

Boolean simplealert(TCHAR* s){

        HWND hwnd;

        TCHAR title[256] = { 0 };

        if (gdata && gdata->standalone) {

                #ifdef UNICODE

                mbstowcs(&title[0], (const char*)gdata->parm.szTitle, 256);

                #else

                strcpy(&title[0], gdata->parm.szTitle);

                #endif

        }

        else {

                xstrcpy(&title[0], (TCHAR*)TEXT("Filter Foundry"));

        }

        hwnd = gdata ? gdata->hWndMainDlg : NULL;

        return MessageBox(hwnd, s, title, MB_TASKMODAL|MB_ICONERROR|MB_OK) == IDOK;

}

Boolean simplewarning(TCHAR* s) {

        HWND hwnd;

        TCHAR title[256] = { 0 };

        if (gdata && gdata->standalone) {

                #ifdef UNICODE

                mbstowcs(&title[0], (const char*)gdata->parm.szTitle, 256);

                #else

                strcpy(&title[0], gdata->parm.szTitle);

                #endif

        } else {

                xstrcpy(&title[0], (TCHAR*)TEXT("Filter Foundry"));

        }

        hwnd = gdata ? gdata->hWndMainDlg : NULL;

        return MessageBox(hwnd,s,title,MB_TASKMODAL|MB_ICONEXCLAMATION|MB_OK) == IDOK;

}

Boolean showmessage(TCHAR *s) {

        HWND hwnd;

        TCHAR title[256] = { 0 };

        if (gdata && gdata->standalone) {

                #ifdef UNICODE

                mbstowcs(&title[0], (const char*)gdata->parm.szTitle, 256);

                #else

                strcpy(&title[0], gdata->parm.szTitle);

                #endif

        }

        else {

                xstrcpy(&title[0], (TCHAR*)TEXT("Filter Foundry"));

        }

        hwnd = gdata ? gdata->hWndMainDlg : NULL;

        return MessageBox(hwnd,s,title,MB_TASKMODAL|MB_ICONINFORMATION|MB_OK) == IDOK;

}

INT_PTR CALLBACK maindlgproc(HWND hDlg, UINT wMsg, WPARAM wParam, LPARAM lParam);

// Description:

//   Creates a tooltip for an item in a dialog box.

// Parameters:

//   idTool - identifier of an dialog box item.

//   nDlg - window handle of the dialog box.

//   pszText - string to use as the tooltip text.

// Returns:

//   The handle to the tooltip.

//

HWND CreateToolTip(int toolID, HWND hDlg, LPTSTR pszText) {

        // Source: https://docs.microsoft.com/en-us/windows/win32/controls/create-a-tooltip-for-a-control (modified)

        HWND hwndTool, hwndTip;

        TOOLINFO toolInfo;

        if (!toolID || !hDlg || !pszText) {

                return FALSE;

        }

        // Get the window of the tool.

        hwndTool = GetDlgItem(hDlg, toolID);

        // Create the tooltip. g_hInst is the global instance handle.

        hwndTip = CreateWindowEx(0, TOOLTIPS_CLASS, NULL,

                WS_POPUP | TTS_ALWAYSTIP /* | TTS_BALLOON*/,

                CW_USEDEFAULT, CW_USEDEFAULT,

                CW_USEDEFAULT, CW_USEDEFAULT,

                hDlg, NULL,

                hDllInstance, NULL);

        if (!hwndTool || !hwndTip) {

                return (HWND)NULL;

        }

        // Associate the tooltip with the tool.

        memset(&toolInfo, 0, sizeof(TOOLINFO)); // toolInfo = { 0 };

        toolInfo.cbSize = sizeof(toolInfo);

        toolInfo.hwnd = hDlg;

        toolInfo.uFlags = TTF_IDISHWND | TTF_SUBCLASS;

        toolInfo.uId = (UINT_PTR)hwndTool;

        toolInfo.lpszText = pszText;

        SendMessage(hwndTip, TTM_ADDTOOL, 0, (LPARAM)&toolInfo);

        return hwndTip;

}

#define IDT_TIMER_INITPREVIEW_DRAW 1111

WNDPROC lpControlEditWndProc[8];

LRESULT CALLBACK ControlTextWndProc(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam) {

        extern Boolean doupdates;

        int sliderNum;

        for (sliderNum = 0; sliderNum < 8; sliderNum++) {

                if (hWnd == GetDlgItem(gdata->hWndMainDlg, FIRSTCTLTEXTITEM + sliderNum)) {

                        if ((uMsg == WM_KEYDOWN) && (wParam == VK_UP) && doupdates)

                        {

                                uint8_t sliderVal = slider[sliderNum] < 255 ? slider[sliderNum] + 1 : slider[sliderNum];

                                slider[sliderNum] = sliderVal;

                                SETCTLTEXTINT(gdata->hWndMainDlg, FIRSTCTLTEXTITEM + sliderNum, sliderVal, false);

                                REPAINTCTL(gdata->hWndMainDlg, FIRSTCTLTEXTITEM + sliderNum);

                                recalc_preview(gpb, gdata->hWndMainDlg);

                                return 0;

                        }

                        if ((uMsg == WM_KEYDOWN) && (wParam == VK_DOWN) && doupdates)

                        {

                                uint8_t sliderVal = slider[sliderNum] > 0 ? slider[sliderNum] - 1 : slider[sliderNum];

                                slider[sliderNum] = sliderVal;

                                SETCTLTEXTINT(gdata->hWndMainDlg, FIRSTCTLTEXTITEM + sliderNum, sliderVal, false);

                                REPAINTCTL(gdata->hWndMainDlg, FIRSTCTLTEXTITEM + sliderNum);

                                recalc_preview(gpb, gdata->hWndMainDlg);

                                return 0;

                        }

                        return CallWindowProc(lpControlEditWndProc[sliderNum], hWnd, uMsg, wParam, lParam);

                }

        }

        return 0; // should not happen

}

INT_PTR CALLBACK maindlgproc(HWND hDlg, UINT wMsg, WPARAM wParam, LPARAM lParam){

        static POINT origpos;

        static Point origscroll;

        static Boolean panning = false;

        int item,i;

        POINT newpos;

        DRAWITEMSTRUCT *pdi;

        Point newscroll = { 0, 0 };

        HGDIOBJ hfnt;

        extern Boolean doupdates;

        extern Handle preview_handle;

        WNDPROC wndProcStatic, wndProcButton;

        if ((gdata->pluginDllSliderMessageId != 0) && (wMsg == gdata->pluginDllSliderMessageId)) {

                // This is for the PLUGIN.DLL sliders only

                if (doupdates) {

                        int sliderNum = (int)wParam - FIRSTCTLITEM;

                        int sliderVal = (lParam & 0xFFFF);

                        if (sliderVal < 0) sliderVal = 0;

                        else if (sliderVal > 255) sliderVal = 255;

                        slider[sliderNum] = (uint8_t)sliderVal;

                        SETCTLTEXTINT(hDlg, FIRSTCTLTEXTITEM + sliderNum, sliderVal, false);

                        REPAINTCTL(hDlg, FIRSTCTLTEXTITEM + sliderNum);

                        recalc_preview(gpb, hDlg);

                }

                return true;

        }

        switch (wMsg) {

        case WM_TIMER:

                switch (wParam)

                {

                case IDT_TIMER_INITPREVIEW_DRAW:

                        KillTimer(hDlg, IDT_TIMER_INITPREVIEW_DRAW);

                        recalc_preview(gpb, hDlg);

                        return 0;

                }

                break;

        case WM_INITDIALOG:

                gdata->hWndMainDlg = hDlg;

                if(gdata->standalone){

                        SetWindowTextA(hDlg,gdata->parm.szTitle); // window title bar

                }

                centre_window(hDlg);

                hfnt = GetStockObject(ANSI_FIXED_FONT);

                hCurHandOpen = LoadCursorA(hDllInstance, "HAND_OPEN");

                hCurHandGrab = LoadCursorA(hDllInstance, "HAND_GRAB");

                hCurHandQuestion = LoadCursorA(hDllInstance, "HAND_QUESTION");

                hIconCautionSign = LoadIconA(hDllInstance, "CAUTION_ICO");

                // Note: The whole class "Preview" gets the mouse cursor, not just the single item!

                preview_hwnd = GetDlgItem(hDlg, PREVIEWITEM);

                GetClientRect(preview_hwnd, &preview_rect);

                SetClassLongPtr(preview_hwnd, GCLP_HCURSOR, (LONG_PTR)hCurHandOpen);

                // Note: The whole class "Caution" gets the mouse cursor, not just the single item!

                SetClassLongPtr(GetDlgItem(hDlg, FIRSTICONITEM), GCLP_HCURSOR, (LONG_PTR)hCurHandQuestion);

                for(i = 0; i < 4; ++i){

                        CreateToolTip(FIRSTICONITEM + i, hDlg, (TCHAR*)TEXT("Error in expression! Click to see details."));

                }

                CreateToolTip(ZOOMINITEM, hDlg, (TCHAR*)TEXT("Zoom in"));

                CreateToolTip(ZOOMOUTITEM, hDlg, (TCHAR*)TEXT("Zoom out"));

                CreateToolTip(ZOOMLEVELITEM, hDlg, (TCHAR*)TEXT("Fully zoom in/out"));

                for(i = 0; i < 8; ++i){

                        if (gdata->pluginDllSliderMessageId == 0) {

                                // Non PLUGIN.DLL sliders

                                SetWindowLongPtr(GetDlgItem(hDlg, FIRSTCTLITEM + i), GWL_STYLE, TBS_HORZ | TBS_AUTOTICKS | WS_CHILD | WS_VISIBLE);

                                SendDlgItemMessage(hDlg, FIRSTCTLITEM + i, TBM_SETRANGE, TRUE, MAKELONG(0, 255));

                                SendDlgItemMessage(hDlg, FIRSTCTLITEM + i, TBM_SETTICFREQ, SLIDERPAGE, 0);

                                SendDlgItemMessage(hDlg, FIRSTCTLITEM + i, TBM_SETPAGESIZE, 0, SLIDERPAGE);

                        }

                        else {

                                // PLUGIN.DLL sliders

                                SetSliderRange(GetDlgItem(hDlg, FIRSTCTLITEM + i), 0, 255);

                        }

                        SendDlgItemMessage(hDlg,FIRSTCTLTEXTITEM+i,     EM_SETLIMITTEXT,3,0);

                }

                for(i = 0; i < 4; ++i){

                        SendDlgItemMessage(hDlg,FIRSTEXPRITEM+i,        EM_SETLIMITTEXT,MAXEXPR-1,0); // we need 1 byte as NUL terminator, so our formula can be max 1023

                        SendDlgItemMessage(hDlg,FIRSTEXPRITEM+i,        WM_SETFONT,(WPARAM)hfnt,false);

                }

                // Implement "up" and "down" keys for the edit controls

                // TODO: Better use a spin-edit?

                for (i = 0; i < 8; ++i) {

                        #ifdef _WIN64

                        lpControlEditWndProc[i] = (WNDPROC)SetWindowLongPtr(GetDlgItem(hDlg, FIRSTCTLTEXTITEM + i), GWLP_WNDPROC, (LONG_PTR)&ControlTextWndProc);

                        #else

                        lpControlEditWndProc[i] = (WNDPROC)SetWindowLongPtr(GetDlgItem(hDlg, FIRSTCTLTEXTITEM + i), GWL_WNDPROC, (LONG_PTR)&ControlTextWndProc);

                        #endif

                }

                maindlginit(hDlg);

                // Win32s (Win3.11) compatibility fix: Since GetClassInfo("Button") and GetClassInfo("Static") won't work,

                // we had replaced the WndProc by a dummy. Now, we find out the real Button and Static WndProcs and give them

                // to our classes, making them the intended superclasses. Messages which have been sent in between were lost,

                // though...

                wndProcStatic = (WNDPROC)GetWindowLongPtr(GetDlgItem(hDlg, FIRSTCTLLABELITEM), GWLP_WNDPROC);

                SetWindowLongPtr(GetDlgItem(hDlg, PREVIEWITEM), GWLP_WNDPROC, (LONG)wndProcStatic);

                wndProcButton = (WNDPROC)GetWindowLongPtr(GetDlgItem(hDlg, OPENITEM), GWLP_WNDPROC);

                SetWindowLongPtr(GetDlgItem(hDlg, FIRSTICONITEM), GWLP_WNDPROC, (LONG)wndProcButton);

                SetWindowLongPtr(GetDlgItem(hDlg, FIRSTICONITEM + 1), GWLP_WNDPROC, (LONG)wndProcButton);

                SetWindowLongPtr(GetDlgItem(hDlg, FIRSTICONITEM + 2), GWLP_WNDPROC, (LONG)wndProcButton);

                SetWindowLongPtr(GetDlgItem(hDlg, FIRSTICONITEM + 3), GWLP_WNDPROC, (LONG)wndProcButton);

                // Some versions of Windows (NT 3.x) won't show the preview if it is calculated here.

                // So we need to put it in a timer.

                // Note that 1 millisecond is enough, even if the window needs longer than 1 millisecond to load.

                //recalc_preview(gpb, hDlg);

                SetTimer(hDlg, IDT_TIMER_INITPREVIEW_DRAW, 1, (TIMERPROC)NULL);

                break;

        case WM_DESTROY:

                gdata->hWndMainDlg = 0;

                DestroyCursor(hCurHandOpen);

                DestroyCursor(hCurHandGrab);

                DestroyCursor(hCurHandQuestion);

                DestroyIcon(hIconCautionSign);

                break;

        case WM_DRAWITEM:

                pdi = (DRAWITEMSTRUCT*)lParam;

                if(pdi->itemAction == ODA_DRAWENTIRE){

                        switch(pdi->CtlID){

                        case PREVIEWITEM:

                                drawpreview(hDlg,pdi->hDC,PILOCKHANDLE(preview_handle,false));

                                PIUNLOCKHANDLE(preview_handle);

                                break;

                        case FIRSTICONITEM:

                        case FIRSTICONITEM + 1:

                        case FIRSTICONITEM + 2:

                        case FIRSTICONITEM + 3:

                                DrawIcon(pdi->hDC, 0, 0, hIconCautionSign);

                                break;

                        default:

                                return false;

                        }

                }else

                        return false; // we couldn't handle the message

                break;

        case WM_COMMAND:

                item = LOWORD(wParam);

                switch(HIWORD(wParam)){

                //case BN_CLICKED:

                case STN_CLICKED:

                        // BN_CLICKED = Button clicked

                        // STN_CLICKED = Static controls with SS_NOTIFY clicked

                        // Both have the same ordinal number

                        if(item==PREVIEWITEM && GetCursorPos(&origpos)){

                                panning = true;

                                origscroll = preview_scroll;

                                SetCursor(hCurHandGrab);

                                SetCapture(hDlg);

                                break;

                        }

                /* ... falls through ... */

                case EN_CHANGE:

                        if(doupdates && !maindlgitem(hDlg,item))

                                EndDialog(hDlg,item);

                }

                break;

//      case WM_LBUTTONDOWN: break;

        case WM_MOUSEMOVE:

                if(panning && GetCursorPos(&newpos)){

                        newscroll.h = (int16)(origscroll.h - zoomfactor*((double)newpos.x - (double)origpos.x));

                        newscroll.v = (int16)(origscroll.v - zoomfactor*((double)newpos.y - (double)origpos.y));

                        if( newscroll.h != preview_scroll.h || newscroll.v != preview_scroll.v ){

                                preview_scroll = newscroll;

                                recalc_preview(gpb,hDlg);

                        }

                }

                break;

        case WM_LBUTTONUP:

                ReleaseCapture();

                panning = false;

                break;

        case WM_HSCROLL:

                // Only for non-Plugin.dll-sliders

                item = GetDlgCtrlID((HWND)lParam);

                if(doupdates && gdata->pluginDllSliderMessageId == 0 && item>=FIRSTCTLITEM && item<=FIRSTCTLITEM+7)

                        slidermoved(hDlg,item);

                break;

        default:

                return false;

        }

        return true;

}

Boolean maindialog(FilterRecordPtr pb){

        PlatformData *p;

        INT_PTR res;

        // First try to use the sliders from PLUGIN.DLL (only Photoshop)

        if (!Slider_Init_PluginDll(TEXT("FoundrySlider"))) {

                // If we couldn't get the sliders from PLUGIN.DLL (probably not running in Photoshop),

                // then try the Microsoft Trackbar Control instead

                if (!Slider_Init_MsTrackbar(TEXT("FoundrySlider"))) {

                        // This will happen if we neither have PLUGIN.DLL, nor the Microsoft Trackbar Control (msctls_trackbar32).

                        // "msctls_trackbar32" is not included in Windows NT 3.1, and since there is no OCX or RegSvr32.

                        // It is included in Windows NT 3.5x.

                        //simplealert((TCHAR*)TEXT("This plugin requires Photoshop's PLUGIN.DLL or the Microsoft Trackbar Control (msctls_trackbar32) which was not found on your system."));

                        //return false;

                        // We simply hide the sliders and let the user enter the numeric values in the edit-box.

                        simplewarning((TCHAR*)TEXT("Visual sliders are not available because neither PLUGIN.DLL, nor the Microsoft Trackbar Control (msctls_trackbar32) was found on your system."));

                        Slider_Init_None(TEXT("FoundrySlider"));

                }

        }

        // For the preview image and caution symbols, we register subclasses, so that we can assign a mouse cursor to this class.

        MakeSimpleSubclass(TEXT("Preview"), WC_STATIC);

        MakeSimpleSubclass(TEXT("Caution"), WC_BUTTON);

        // Now show the dialog

        p = (PlatformData*)pb->platformData;

        // Note: "Invalid Cursor Handle" is the error when an unrecognized control class is detected

        res = DialogBoxParam(hDllInstance,MAKEINTRESOURCE(gdata->standalone ? ID_PARAMDLG : ID_MAINDLG),

                             (HWND)p->hwnd,maindlgproc,0);

        if (res == 0) {

                simplealert((TCHAR*)TEXT("DialogBoxParam invalid parent window handle"));

        }

        if (res == -1) {

                TCHAR s[0x300];

                xstrcpy(s, (TCHAR*)TEXT("DialogBoxParam failed: "));

                FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, NULL, GetLastError(), 0, s + xstrlen(s), 0x300 - (DWORD)xstrlen(s), NULL);

                dbg(&s[0]);

        }

        // Clean up after the dialog has been closed

        UnregisterClass(TEXT("Preview"), hDllInstance);

        UnregisterClass(TEXT("Caution"), hDllInstance);

        UnregisterClass(TEXT("FoundrySlider"), hDllInstance);

        Slider_Uninit_PluginDll();

        return res == IDOK;

}