#include "ImgPF.h"

static L_BOOL Vignt_OnInitDialog (HWND hWnd, HWND hWndFocus, LPARAM lParam);
static L_VOID Vignt_OnCommand    (HWND hWnd, L_INT nID, HWND hWndCtl, L_UINT uCodeNotify);
static L_VOID Vignt_OnHScroll    (HWND hWnd, HWND hWndCtl, L_UINT nCode, L_INT nPos);
static L_VOID Vignt_OnTimer      (HWND hWnd, L_INT nID);
static L_BOOL Vignt_OnPaint      (HWND hWnd);
static L_VOID L_ApplyFilter      (HWND hWnd);

L_BOOL CALLBACK VignetteDlgProc(HWND hWnd, L_UINT uMessage, WPARAM wParam, LPARAM lParam)
{
   switch(uMessage)
   {
      HANDLE_MSG(hWnd, WM_INITDIALOG, Vignt_OnInitDialog);
      HANDLE_MSG(hWnd, WM_COMMAND,    Vignt_OnCommand);
      HANDLE_MSG(hWnd, WM_PAINT,      Vignt_OnPaint);
      HANDLE_MSG(hWnd, WM_HSCROLL,    Vignt_OnHScroll);
      HANDLE_MSG(hWnd, WM_TIMER,      Vignt_OnTimer);

   case WM_USER_UPDATEVIEW:
      StatusProc.ProgressValue = 100;
      L_ApplyFilter(hWnd);
      break;
   }
   return FALSE;
}

static LRESULT CALLBACK Mouse(L_INT nCode, WPARAM wParam, LPARAM lParam) 
{
   LPVIGNTDLGDATA    pVigntDlgData;
   LPMOUSEHOOKSTRUCT pMouseHook;
   HWND              hWndParent;
   pCHILDDATA        pData;
   RECT              rcRect;
   POINT             TmpPoint;
   DWORD             dwStyle;   
   
   hWndParent    = FORWARD_WM_MDIGETACTIVE(hWndClient, SendMessage);
   pData         = LOCKCHILDDATA (hWndParent);
   pVigntDlgData = (LPVIGNTDLGDATA)GetWindowLong(hGlobalWnd, GWL_USERDATA);
   pMouseHook    = (LPMOUSEHOOKSTRUCT)lParam;

   GetWindowRect(hGlobalWnd, &rcRect);
   if (PtInRect(&rcRect, pMouseHook->pt))
      return 0;

   switch(LOWORD(wParam))
   {
   case WM_NCMOUSEMOVE:
      TmpPoint = pMouseHook->pt;
      if (PtInRect(&rcRect, TmpPoint))
         break;
      if (pVigntDlgData->bPushed) 
      {
         PostMessage (hWndParent, WM_USER_CHANGECURSOR, 0, (LONG)IDC_CROSS);
      }
      else
      {
         dwStyle  = GetWindowLong (hWndParent, GWL_STYLE);
         if ((WS_VSCROLL & dwStyle) || (WS_HSCROLL & dwStyle))
            PostMessage(hWndParent, WM_USER_CHANGECURSOR, (WPARAM)hInst, (LONG)MAKEINTRESOURCE(IDC_CURS11));
         ScreenToClient(hWndParent, &pMouseHook->pt);
         GetClientRect(hGlobalWnd, &rcRect);
         if (!PtInRect(&rcRect, pMouseHook->pt))
            SendMessage((hWndParent), WM_MOUSEMOVE, wParam, MAKELPARAM((pMouseHook->pt.x), (pMouseHook->pt.y)));
      }
      break;

   case WM_NCLBUTTONDOWN:
      TmpPoint = pMouseHook->pt;
      if (PtInRect(&rcRect, TmpPoint))
         break;
      if (pVigntDlgData->bPushed)
      {
         PostMessage (hWndParent, WM_USER_CHANGECURSOR, 0, (LONG)IDC_CROSS);
         ScreenToClient(hWndParent, &pMouseHook->pt);
         GetClientRect(hWndParent, &rcRect);
         if (PtInRect(&pData->rcView, pMouseHook->pt))
         {
            if (L_BitmapHasRgn(&pData->LeadBitmap))
            {
               L_GetBitmapRgnBounds(&pData->LeadBitmap, NULL, &rcRect);
               TmpPoint.x = pMouseHook->pt.x + pData->nHScrollPos;
               TmpPoint.y = pMouseHook->pt.y + pData->nVScrollPos;
               if (!PtInRect(&rcRect, TmpPoint))
                  return CallNextHookEx(pVigntDlgData->hMouseHook , nCode, wParam, lParam); 
            }

            pData->ptCenter.x = pVigntDlgData->uxCenter = pMouseHook->pt.x + pData->nHScrollPos;
            pData->ptCenter.y = pVigntDlgData->uyCenter = pMouseHook->pt.y + pData->nVScrollPos;
            
            SetDlgItemInt(hGlobalWnd, IDC_VGNT_XCNR_EDT, pVigntDlgData->uxCenter, TRUE);
            SetDlgItemInt(hGlobalWnd, IDC_VGNT_YCNR_EDT, pVigntDlgData->uyCenter, TRUE);
            InvalidateRect(hWndParent, NULL, FALSE);
            L_ApplyFilter (hGlobalWnd);
            PostMessage (hWndParent, WM_USER_CHANGECURSOR, 0, (LONG)IDC_CROSS);
         }
         else
         {
            PostMessage (hWndParent, WM_USER_CHANGECURSOR, 0, (LONG)IDC_ARROW);
         }
      }
      else
      {
         dwStyle  = GetWindowLong (hWndParent, GWL_STYLE);
         if ((WS_VSCROLL & dwStyle) || (WS_HSCROLL & dwStyle))
            PostMessage(hWndParent, WM_USER_CHANGECURSOR, (WPARAM)hInst, (LONG)MAKEINTRESOURCE(IDC_CURS11));
         ScreenToClient(hWndParent, &pMouseHook->pt);
         SendMessage(hWndParent, WM_LBUTTONDOWN, wParam, MAKELPARAM((pMouseHook->pt.x), (pMouseHook->pt.y)));
      }
      break;

   case WM_NCLBUTTONUP:
      TmpPoint = pMouseHook->pt;
      if (PtInRect(&rcRect, TmpPoint))
         break;
      if (pVigntDlgData->bPushed)
      {
         PostMessage (hWndParent, WM_USER_CHANGECURSOR, 0, (LONG)IDC_CROSS);
      }
      else
      {
         dwStyle  = GetWindowLong (hWndParent, GWL_STYLE);
         if ((WS_VSCROLL & dwStyle) || (WS_HSCROLL & dwStyle))
            PostMessage(hWndParent, WM_USER_CHANGECURSOR, (WPARAM)hInst, (LONG)MAKEINTRESOURCE(IDC_CURS11));
         ScreenToClient(hWndParent, &pMouseHook->pt);
         GetClientRect(hGlobalWnd, &rcRect);
         if (!PtInRect(&rcRect, pMouseHook->pt))
            SendMessage(hWndParent, WM_LBUTTONUP, wParam, MAKELPARAM((pMouseHook->pt.x), (pMouseHook->pt.y)));
      }
      break;
   }

   if (pVigntDlgData)
   {
      if (LOWORD(wParam) >= WM_NCMOUSEMOVE && LOWORD(wParam) <= WM_NCMBUTTONDBLCLK)
         return TRUE;
      else
         return CallNextHookEx(pVigntDlgData->hMouseHook , nCode, wParam, lParam); 
   }
   else
      return FALSE;
}

static L_BOOL Vignt_OnInitDialog(HWND hWnd, HWND hWndFocus, LPARAM Data)
{
   HWND            hWndParent;
   pCHILDDATA      pData;
   LPVIGNTDLGDATA  pVigntDlgData;
   L_INT           nIndex;
   RECT            rcRgn;
   L_INT           nRangeMin[] = {1, 1, 1, -100, 0, 0, 0};
   L_INT           nRangeMax[] = {2, 2, 1,  100, 0, 0, 100};
   L_INT           nPosInit[]  = {1, 1, 1,   50, 0, 0, 50};

   hWndParent     = FORWARD_WM_MDIGETACTIVE(hWndClient, SendMessage);
   pData          = LOCKCHILDDATA(hWndParent);
   pVigntDlgData  = (LPVIGNTDLGDATA)Data;
   hGlobalWnd     = hWnd;
   pData->bCross  = TRUE;

   SetWindowLong(hWnd, GWL_USERDATA, (LONG)pVigntDlgData);
   MemorizeAndCopyBitmap (hWndParent, &pVigntDlgData->LeadBitmap);
   L_GetBitmapRgnBounds(&pVigntDlgData->LeadBitmap, NULL, &rcRgn);
   MoveDialogToMiddle(hWnd);
   
   nRangeMax[1] = (rcRgn.right - rcRgn.left);
   nRangeMax[2] = (rcRgn.bottom - rcRgn.top);
   nRangeMax[0] = min(nRangeMax[1], nRangeMax[2]);
   nPosInit[0] = max(1, nRangeMax[0] / 2);
   nRangeMax[4] = nRangeMax[1] - 1;
   nRangeMax[5] = nRangeMax[2] - 1;

   nPosInit[1] = nRangeMax[1] / 2;
   nPosInit[2] = nRangeMax[2] / 2;
   nPosInit[4] = nRangeMax[4] / 2;
   nPosInit[5] = nRangeMax[5] / 2;


   pData->ptCenter.x = (rcRgn.right + rcRgn.left) / 2;
   pData->ptCenter.y = (rcRgn.bottom + rcRgn.top) / 2;
   pVigntDlgData->nSldBaseID = IDC_VGNT_RDS_SLD;
   pVigntDlgData->nEdtBaseID = IDC_VGNT_RDS_EDT;
   pVigntDlgData->nSlideNum = 7;
   pVigntDlgData->crColor = RGB(255, 255, 255);
   pVigntDlgData->uRadius = nPosInit[0];
   pVigntDlgData->uWidth = nPosInit[1];
   pVigntDlgData->uHeight = nPosInit[2];
   pVigntDlgData->nFading = nPosInit[3];
   pVigntDlgData->uxCenter = nPosInit[4];
   pVigntDlgData->uyCenter = nPosInit[5];
   pVigntDlgData->uFPower = nPosInit[6];
   pVigntDlgData->uShape  = 3;
   pVigntDlgData->uFillType = 1;

   StatusProc.bProgress     = TRUE;
   StatusProc.bInvalidate   = FALSE;
   StatusProc.bKillProgress = FALSE;
   StatusProc.bEnd          = FALSE;
   StatusProc.DlgWnd        = hWnd;
   StatusProc.ProgressValue = 100;
   StatusProc.ProgWnd       = GetDlgItem(hWnd, IDC_VGNT_PROG);

   Progress_SetRange(GetDlgItem(hWnd, IDC_VGNT_PROG), 0, 100);
   Progress_SetPos  (GetDlgItem(hWnd, IDC_VGNT_PROG), 0);

   ComboBox_AddString(GetDlgItem(hWnd, IDC_VGNT_SHP_COM), "Square");
   ComboBox_AddString(GetDlgItem(hWnd, IDC_VGNT_SHP_COM), "Rectangle");
   ComboBox_AddString(GetDlgItem(hWnd, IDC_VGNT_SHP_COM), "Circle");
   ComboBox_AddString(GetDlgItem(hWnd, IDC_VGNT_SHP_COM), "Ellipse");
   ComboBox_SetCurSel(GetDlgItem(hWnd, IDC_VGNT_SHP_COM), 3);

   ComboBox_AddString(GetDlgItem(hWnd, IDC_VGNT_FIL_COM), "Fill-In");
   ComboBox_AddString(GetDlgItem(hWnd, IDC_VGNT_FIL_COM), "Fill-Out");
   ComboBox_SetCurSel(GetDlgItem(hWnd, IDC_VGNT_FIL_COM), 1);

   for(nIndex = 0; nIndex < pVigntDlgData->nSlideNum; nIndex++)
   {
      Trackbar_SetTheRange(GetDlgItem(hWnd, pVigntDlgData->nSldBaseID + nIndex), TRUE, nRangeMin[nIndex], nRangeMax[nIndex]);
      SetNumericEditBox(GetDlgItem(hWnd, pVigntDlgData->nEdtBaseID + nIndex), nRangeMin[nIndex], nRangeMax[nIndex], 1, 0, FALSE);
      SetDlgItemInt(hWnd, pVigntDlgData->nEdtBaseID + nIndex, nPosInit[nIndex], TRUE);
   }

 
   pVigntDlgData->bPushed = FALSE;
   pVigntDlgData->hIcon   = LoadIcon(hInst, MAKEINTRESOURCE(IDI_MOUSE));
   SendMessage(GetDlgItem(hWnd, IDC_VGNT_POS_BTN), BM_SETIMAGE, IMAGE_ICON, (LPARAM)(HICON)pVigntDlgData->hIcon);
   pVigntDlgData->hMouseHook = SetWindowsHookEx(WH_MOUSE, Mouse, hInst, GetCurrentThreadId());
   pData->uTimerID = SetTimer(hWnd, 1, 100, NULL);
   EnableWindow(GetDlgItem(hWnd, IDC_VGNT_RDS_SLD), FALSE);
   EnableWindow(GetDlgItem(hWnd, IDC_VGNT_RDS_TXT), FALSE);
   EnableWindow(GetDlgItem(hWnd, IDC_VGNT_RDS_EDT), FALSE);
   ShowWindow(hWnd, SW_SHOW);
   UpdateWindow(hWnd);
   L_ApplyFilter(hWnd);

   return TRUE;
}

static L_VOID Vignt_OnTimer (HWND hWnd, L_INT nID)
{
   Dialog_Timer(nID);
}

static L_VOID Vignt_OnCommand(HWND hWnd, L_INT nID, HWND hWndCtl, L_UINT uCodeNotify)
{
   HWND            hWndParent;
   LPVIGNTDLGDATA  pVigntDlgData;
   pCHILDDATA      pData;
   RECT            rcRgn;
   L_INT           nValue, nIndex;
   COLORREF        crColor;

   hWndParent     = FORWARD_WM_MDIGETACTIVE(hWndClient, SendMessage);
   pData          = LOCKCHILDDATA(hWndParent);
   pVigntDlgData  = (LPVIGNTDLGDATA)GetWindowLong(hWnd, GWL_USERDATA);

   L_GetBitmapRgnBounds(&pVigntDlgData->LeadBitmap, NULL, &rcRgn);

   switch(nID)
   {
   case IDOK:
      pData->bCross = FALSE;
      ShowStatusWindow(FALSE);
      StatusProc.bStillWork  = TRUE;
      StatusProc.bInvalidate = TRUE;
      StatusProc.bEnd = TRUE;
      UnhookWindowsHookEx(pVigntDlgData->hMouseHook);
      DestroyIcon(pVigntDlgData->hIcon);
      InvalidateRect(hWndParent, NULL, FALSE);
      EndDialog(hWnd, TRUE);
      break;

   case IDCANCEL:
      pData->bCross = FALSE;
      StatusProc.bProgress     = FALSE;
      StatusProc.bKillProgress = TRUE ;
      StatusProc.ProgressValue = 100 ;
      UnhookWindowsHookEx(pVigntDlgData->hMouseHook);
      DestroyIcon(pVigntDlgData->hIcon);
      EndDialog(hWnd, FALSE);
      break;

   case IDC_VGNT_FIL_COM:
      if (uCodeNotify == CBN_SELCHANGE)
      {
         nIndex = ComboBox_GetCurSel(hWndCtl);
         if (pVigntDlgData->uFillType == (L_UINT)nIndex)
            break;

         pVigntDlgData->uFillType = nIndex;
         L_ApplyFilter(hWnd);
      }
      break;

   case IDC_VGNT_SHP_COM:
      if (uCodeNotify == CBN_SELCHANGE)
      {
         L_BOOL bEqual;
         nIndex = ComboBox_GetCurSel(hWndCtl);
         if (pVigntDlgData->uShape == (L_UINT)nIndex)
            break;

         pVigntDlgData->uShape = (L_UINT)nIndex;
         bEqual = ((nIndex == 1) || (nIndex == 3));

         EnableWindow(GetDlgItem(hWnd, IDC_VGNT_RDS_SLD), !bEqual);
         EnableWindow(GetDlgItem(hWnd, IDC_VGNT_RDS_TXT), !bEqual);
         EnableWindow(GetDlgItem(hWnd, IDC_VGNT_RDS_EDT), !bEqual);
         EnableWindow(GetDlgItem(hWnd, IDC_VGNT_WDT_SLD), bEqual);
         EnableWindow(GetDlgItem(hWnd, IDC_VGNT_WDT_TXT), bEqual);
         EnableWindow(GetDlgItem(hWnd, IDC_VGNT_WDT_EDT), bEqual);
         EnableWindow(GetDlgItem(hWnd, IDC_VGNT_HGT_SLD), bEqual);
         EnableWindow(GetDlgItem(hWnd, IDC_VGNT_HGT_EDT), bEqual);
         EnableWindow(GetDlgItem(hWnd, IDC_VGNT_HGT_TXT), bEqual);

         L_ApplyFilter(hWnd);
      }
      break;

   case IDC_VGNT_POS_BTN:
      pVigntDlgData->bPushed = Button_GetCheck(hWndCtl);
      
      break;

   case IDC_VGNT_CLR_BTN:
      UnhookWindowsHookEx(pVigntDlgData->hMouseHook);
      crColor = pVigntDlgData->crColor;
      pVigntDlgData->crColor = ShowColorDialog(hWnd, crColor);
      pVigntDlgData->hMouseHook = SetWindowsHookEx(WH_MOUSE, Mouse, hInst, GetCurrentThreadId());
      if (crColor != pVigntDlgData->crColor)
      {
         InvalidateRect(hWnd, NULL, FALSE);
         L_ApplyFilter(hWnd);
      }
      break;
   }

   if(nID >= (L_INT)pVigntDlgData->nEdtBaseID && nID <(L_INT)(pVigntDlgData->nEdtBaseID + pVigntDlgData->nSlideNum))
   {
      if(uCodeNotify == EN_CHANGE)
      {
         nIndex = nID - pVigntDlgData->nEdtBaseID;
         nValue = GetDlgItemInt(hWnd, nID, NULL, TRUE);

         Trackbar_SetPos(GetDlgItem(hWnd, nID + pVigntDlgData->nSlideNum), TRUE, nValue);

         switch(nIndex)
         {
         case 0:
            if(pVigntDlgData->uRadius == (L_UINT)nValue)
               return;
            pVigntDlgData->uRadius = (L_UINT)nValue;
            break;
         case 1:
            if(pVigntDlgData->uWidth == (L_UINT)nValue)
               return;
            pVigntDlgData->uWidth = (L_UINT)nValue;
            break;
         case 2:
            if(pVigntDlgData->uHeight == (L_UINT)nValue)
               return;
            pVigntDlgData->uHeight = (L_UINT)nValue;
            break;
         
         case 3:
             if(pVigntDlgData->nFading == nValue)
               return;
            pVigntDlgData->nFading = nValue;
            break;

         case 4:
             if(pVigntDlgData->uxCenter == (L_UINT)nValue)
               return;
            pData->ptCenter.x = pVigntDlgData->uxCenter = (L_UINT)nValue;
            
            break;

         case 5:
             if(pVigntDlgData->uyCenter == (L_UINT)nValue)
               return;
            pData->ptCenter.y = pVigntDlgData->uyCenter = (L_UINT)nValue;
            break;

         case 6:
             if(pVigntDlgData->uFPower == (L_UINT)nValue)
               return;
            pVigntDlgData->uFPower = (L_UINT)nValue;
            break;
         }
         L_ApplyFilter(hWnd);
      }
   }
}

static L_BOOL Vignt_OnPaint(HWND hWnd)
{
   HBRUSH          hBrush;
   LPVIGNTDLGDATA  pVigntDlgData;
   PAINTSTRUCT     ps;
   HDC             hDC;
   RECT            rcRect;

   pVigntDlgData = (LPVIGNTDLGDATA) GetWindowLong(hWnd, GWL_USERDATA);
   GetClientRect(GetDlgItem(hWnd, IDC_VGNT_CLR_TXT), &rcRect);

   hDC    = BeginPaint(GetDlgItem(hWnd, IDC_VGNT_CLR_TXT), &ps);
   hBrush = CreateSolidBrush(pVigntDlgData->crColor);
   FillRect(hDC, &rcRect, hBrush);
   DeleteBrush(hBrush);
   EndPaint(GetDlgItem(hWnd, IDC_VGNT_CLR_TXT), &ps);
   return FALSE;
}

static L_VOID Vignt_OnHScroll(HWND hWnd, HWND hWndCtl, L_UINT uCode, L_INT nPos)
{
   LPVIGNTDLGDATA pVigntDlgData = (LPVIGNTDLGDATA) GetWindowLong(hWnd, GWL_USERDATA);
   SetDlgItemInt(hWnd, GetDlgCtrlID(hWndCtl) - pVigntDlgData->nSlideNum, Trackbar_GetPos(hWndCtl), TRUE);
}

static L_VOID L_ApplyFilter(HWND hWnd)
{
   pCHILDDATA      pData;
   L_INT           nRet = 0;
   HWND            hWndParent;
   LPVIGNTDLGDATA  pVigntDlgData;
   VIGNETTEINFO    VignetteParams;
   L_UINT          uShape = ComboBox_GetCurSel(GetDlgItem(hWnd, IDC_VGNT_SHP_COM));
   L_BOOL          bEqual = ((uShape == 1) || (uShape == 3));

   if ( 100 != StatusProc.ProgressValue )
   {
      StatusProc.bKillProgress = TRUE ;
      return ;
   }

   hWndParent     = FORWARD_WM_MDIGETACTIVE(hWndClient, SendMessage);
   pData          = LOCKCHILDDATA(hWndParent);
   pVigntDlgData  = (LPVIGNTDLGDATA) GetWindowLong(hWnd, GWL_USERDATA);

   FreeMemorizedBitmap (hWndParent); //MEMDISK//
   L_CopyBitmap(&pData->LeadBitmap, &pVigntDlgData->LeadBitmap, sizeof(BITMAPHANDLE));

   VignetteParams.uStructSize = sizeof(VIGNETTEINFO);

   if (bEqual)
   {
      VignetteParams.uWidth = pVigntDlgData->uWidth;
      VignetteParams.uHeight = pVigntDlgData->uHeight;
   }
   else
      VignetteParams.uWidth = pVigntDlgData->uRadius; 

   VignetteParams.nFading = pVigntDlgData->nFading;
   VignetteParams.ptCenter.x = pVigntDlgData->uxCenter;
   VignetteParams.ptCenter.y = pVigntDlgData->uyCenter;
   VignetteParams.uFadingRate = pVigntDlgData->uFPower;
   VignetteParams.uFlags = (pVigntDlgData->uShape | (pVigntDlgData->uFillType << 4));
   VignetteParams.crVigColor = pVigntDlgData->crColor;

   nRet = L_VignetteBitmap(&pData->LeadBitmap, &VignetteParams);

   if(nRet == SUCCESS)
   {
      InvalidateRect(hWndParent, NULL, TRUE);
      StatusProc.ProgressValue = 100;
      Progress_SetPos(StatusProc.ProgWnd , 0);
      if(StatusProc.bEnd)
      {
         StatusProc.bProgress     = FALSE;
         StatusProc.bKillProgress = TRUE ;
      }
   }
}