#include "ImgPF.h"

static L_BOOL TVSpiral_OnInitDialog (HWND hWnd, HWND hWndFocus, LPARAM lParam);
static L_VOID TVSpiral_OnCommand    (HWND hWnd, L_INT nID, HWND hWndCtl, L_UINT uCodeNotify);
static L_VOID TVSpiral_OnHScroll    (HWND hWnd, HWND hWndCtl, L_UINT nCode, L_INT nPos);
static L_VOID TVSpiral_OnTimer      (HWND hWnd, L_INT nID);
static L_BOOL TVSpiral_OnPaint      (HWND hWnd);
static L_VOID L_ApplyFilter         (HWND hWnd);

L_BOOL CALLBACK TVSpiralDlgProc(HWND hWnd, L_UINT uMessage, WPARAM wParam, LPARAM lParam)
{
   switch(uMessage)
   {
      HANDLE_MSG(hWnd, WM_INITDIALOG, TVSpiral_OnInitDialog);
      HANDLE_MSG(hWnd, WM_COMMAND   , TVSpiral_OnCommand);
      HANDLE_MSG(hWnd, WM_HSCROLL   , TVSpiral_OnHScroll);
      HANDLE_MSG(hWnd, WM_PAINT     , TVSpiral_OnPaint);
      HANDLE_MSG(hWnd, WM_TIMER     , TVSpiral_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) 
{
   LPTVSPIRALDLGDATA pTVSpiralDlgData;
   LPMOUSEHOOKSTRUCT pMouseHook;
   HWND              hWndParent;
   pCHILDDATA        pData;
   RECT              rcRect;
   POINT             TmpPoint;
   DWORD             dwStyle;   
   
   hWndParent       = FORWARD_WM_MDIGETACTIVE(hWndClient,SendMessage);
   pData            = LOCKCHILDDATA (hWndParent);
   pTVSpiralDlgData = (LPTVSPIRALDLGDATA)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 (pTVSpiralDlgData->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 (pTVSpiralDlgData->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(pTVSpiralDlgData->hMouseHook , nCode, wParam, lParam); 
            }

            pData->ptCenter.x = pTVSpiralDlgData->nXOrgn = pMouseHook->pt.x + pData->nHScrollPos;
            pData->ptCenter.y = pTVSpiralDlgData->nYOrgn = pMouseHook->pt.y + pData->nVScrollPos;

            SetDlgItemInt(hGlobalWnd, IDC_SPRL_XPOS_EDT, pTVSpiralDlgData->nXOrgn, TRUE);
            SetDlgItemInt(hGlobalWnd, IDC_SPRL_YPOS_EDT, pTVSpiralDlgData->nYOrgn, 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 (pTVSpiralDlgData->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 (pTVSpiralDlgData)
   {
      if (LOWORD(wParam) >= WM_NCMOUSEMOVE && LOWORD(wParam) <= WM_NCMBUTTONDBLCLK)
         return TRUE;
      else
         return CallNextHookEx(pTVSpiralDlgData->hMouseHook , nCode, wParam, lParam); 
   }
   else
      return FALSE;
}

static L_BOOL TVSpiral_OnInitDialog(HWND hWnd, HWND hWndFocus, LPARAM Data)
{
   HWND              hWndParent;
   pCHILDDATA        pData;
   LPTVSPIRALDLGDATA pTVSpiralDlgData;
   L_INT             nIndex;
   RECT              rcRgn;
   L_INT             nRangeMax[] = {0, 0, 0, 0, 18000 , 500};
   L_INT             nRangeMin[] = {0, 0, 2, 1, -18000, 1};
   L_INT             nPosInit [] = {0, 0, 0, 0, 0     , 1};

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

   MoveDialogToMiddle(hWnd);
   SetWindowLong(hWnd, GWL_USERDATA, (LONG)pTVSpiralDlgData);
   MemorizeAndCopyBitmap (hWndParent, &pTVSpiralDlgData->LeadBitmap);
   L_GetBitmapRgnBounds(&pTVSpiralDlgData->LeadBitmap, NULL, &rcRgn);
   
   nRangeMin[0] = rcRgn.left;
   nRangeMin[1] = rcRgn.top;

   nRangeMax[0] = rcRgn.right  - 1;
   nRangeMax[1] = rcRgn.bottom - 1;
   nRangeMax[2] = (L_INT)hypot((rcRgn.right - rcRgn.left), (rcRgn.bottom - rcRgn.top));
   nRangeMax[3] = nRangeMax[2] >> 1;
   
   nPosInit[0] = pData->ptCenter.x = (rcRgn.right + rcRgn.left) >> 1;
   nPosInit[1] = pData->ptCenter.y = (rcRgn.bottom + rcRgn.top) >> 1;
   nPosInit[2] = max(2, nRangeMax[2] / 4);
   nPosInit[3] = max(1, nRangeMax[3] / 4);
   nPosInit[4] = 200;

   pTVSpiralDlgData->nXOrgn     = nPosInit[0];
   pTVSpiralDlgData->nYOrgn     = nPosInit[1];
   pTVSpiralDlgData->nMaxRadius = nPosInit[2];
   pTVSpiralDlgData->nRingCount = nPosInit[3];
   pTVSpiralDlgData->nEdtBaseID = IDC_SPRL_XPOS_EDT;
   pTVSpiralDlgData->nSldBaseID = IDC_SPRL_XPOS_SLD;
   pTVSpiralDlgData->nSlideNum  = 6;
   pTVSpiralDlgData->nAngle     = nPosInit[4];
   pTVSpiralDlgData->uRandomize = nPosInit[5];
   pTVSpiralDlgData->crColor    = RGB(0, 0, 0);
   pTVSpiralDlgData->uFlags     = RING_FIXEDANGLE | RING_COLOR | RING_MAXRADIUS;

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

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

   ComboBox_AddString(GetDlgItem(hWnd, IDC_SPRL_UNDEF_COM), TEXT("Fill Color"));
   ComboBox_AddString(GetDlgItem(hWnd, IDC_SPRL_UNDEF_COM), TEXT("Repeat Edge"));
   ComboBox_AddString(GetDlgItem(hWnd, IDC_SPRL_UNDEF_COM), TEXT("No Change"));
   ComboBox_SetCurSel(GetDlgItem(hWnd, IDC_SPRL_UNDEF_COM), 0);

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

   Button_SetCheck(GetDlgItem(hWnd, IDC_SPRL_ANGL_CHK), TRUE);
   EnableWindow(GetDlgItem(hWnd, IDC_SPRL_RND_BTN), FALSE);

   EnableWindow(GetDlgItem(hWnd, IDC_SPRL_RNDF_SLD), FALSE);
   EnableWindow(GetDlgItem(hWnd, IDC_SPRL_RNDF_EDT), FALSE);


   pTVSpiralDlgData->bPushed = FALSE;
   pTVSpiralDlgData->hIcon   = LoadIcon(hInst, MAKEINTRESOURCE(IDI_MOUSE));
   pTVSpiralDlgData->hMouseHook = SetWindowsHookEx(WH_MOUSE, Mouse, hInst, GetCurrentThreadId());
   SendMessage(GetDlgItem(hWnd, IDC_SPRL_POS_BTN), BM_SETIMAGE, IMAGE_ICON, (LPARAM)(HICON)pTVSpiralDlgData->hIcon);
   pData->uTimerID = SetTimer(hWnd, 1, 100, NULL);
   ShowWindow(hWnd, SW_SHOW);
   UpdateWindow(hWnd);
   L_ApplyFilter(hWnd);
   return TRUE;
}

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

static L_BOOL TVSpiral_OnPaint(HWND hWnd)
{
   HBRUSH            hBrush;
   LPTVSPIRALDLGDATA pTVSpiralDlgData;
   PAINTSTRUCT       ps;
   HDC               hDC;
   RECT              rcRect;

   pTVSpiralDlgData = (LPTVSPIRALDLGDATA)GetWindowLong(hWnd, GWL_USERDATA);
   GetClientRect(GetDlgItem(hWnd, IDC_SPRL_COLOR_TXT), &rcRect);

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

static L_VOID TVSpiral_OnCommand(HWND hWnd, L_INT nID, HWND hWndCtl, L_UINT uCodeNotify)
{
   HWND               hWndParent;
   LPTVSPIRALDLGDATA  pTVSpiralDlgData;
   pCHILDDATA         pData;
   L_INT              nValue;
   L_INT              nIndex;
   COLORREF           crColor;

   hWndParent       = FORWARD_WM_MDIGETACTIVE(hWndClient, SendMessage);
   pData            = LOCKCHILDDATA(hWndParent);
   pTVSpiralDlgData = (LPTVSPIRALDLGDATA)GetWindowLong(hWnd, GWL_USERDATA);

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

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

   case IDC_SPRL_RNDF_CHK:
      pTVSpiralDlgData->uFlags &= 0xFF0F;
      EnableWindow(GetDlgItem(hWnd, IDC_SPRL_RND_BTN),  Button_GetCheck(hWndCtl));
      EnableWindow(GetDlgItem(hWnd, IDC_SPRL_RNDF_SLD), Button_GetCheck(hWndCtl));
      EnableWindow(GetDlgItem(hWnd, IDC_SPRL_RNDF_EDT), Button_GetCheck(hWndCtl));
      EnableWindow(GetDlgItem(hWnd, IDC_SPRL_ANGL_SLD), FALSE);
      EnableWindow(GetDlgItem(hWnd, IDC_SPRL_ANGL_EDT), FALSE);
      pTVSpiralDlgData->uRandomize = GetDlgItemInt(hWnd, IDC_SPRL_RNDF_EDT, NULL, 0);
      L_ApplyFilter(hWnd);
      break;
      
   case IDC_SPRL_POS_BTN:
      pTVSpiralDlgData->bPushed = Button_GetCheck(hWndCtl);
      break;

   case IDC_SPRL_RND_BTN:
      L_ApplyFilter(hWnd);
      break;

   case IDC_SPRL_MAXRAD_CHK:
      pTVSpiralDlgData->uFlags &= 0xF0FF;
      if(Button_GetCheck(hWndCtl) == BST_CHECKED)
      {
         pTVSpiralDlgData->uFlags |= RING_MAXRADIUS;
         SetWindowText(GetDlgItem(hWnd, IDC_SPRL_RAD_TXT), TEXT(" Max Radius"));
      }
      else
      {
         pTVSpiralDlgData->uFlags |= RING_RADIUS;
         SetWindowText(GetDlgItem(hWnd, IDC_SPRL_RAD_TXT), TEXT(" Radius "));
      }
      L_ApplyFilter(hWnd);
      break;

   case IDC_SPRL_COLOR_BTN:
      crColor = pTVSpiralDlgData->crColor;
      pTVSpiralDlgData->crColor = ShowColorDialog(hWnd, crColor);

      if (crColor != pTVSpiralDlgData->crColor)
      {
         InvalidateRect(hWnd, NULL, FALSE);
         L_ApplyFilter(hWnd);
      }
      break;

   case IDC_SPRL_UNDEF_COM:
      if (uCodeNotify == CBN_SELCHANGE)
      {
         nIndex = (ComboBox_GetCurSel(GetDlgItem(hWnd, IDC_SPRL_UNDEF_COM)));
         if ( !(pTVSpiralDlgData->uFlags & (L_UINT)nIndex))
         {
            EnableWindow(GetDlgItem(hWnd, IDC_SPRL_COLOR_BTN), !ComboBox_GetCurSel(hWndCtl));
            pTVSpiralDlgData->uFlags &= 0xFFF0;
            pTVSpiralDlgData->uFlags |= nIndex;
            InvalidateRect(hWnd, NULL, FALSE); 
            InvalidateRect(hWndCtl, NULL, FALSE);
            L_ApplyFilter(hWnd);
         }
      }
      break;

   case IDC_SPRL_ANGL_CHK:
      pTVSpiralDlgData->uFlags |= RING_FIXEDANGLE;

      EnableWindow(GetDlgItem(hWnd, IDC_SPRL_RND_BTN),  Button_GetCheck(hWndCtl));
      EnableWindow(GetDlgItem(hWnd, IDC_SPRL_ANGL_SLD), Button_GetCheck(hWndCtl));
      EnableWindow(GetDlgItem(hWnd, IDC_SPRL_ANGL_EDT), Button_GetCheck(hWndCtl));

      EnableWindow(GetDlgItem(hWnd, IDC_SPRL_RNDF_SLD), FALSE);
      EnableWindow(GetDlgItem(hWnd, IDC_SPRL_RNDF_EDT), FALSE);

      L_ApplyFilter(hWnd);
      break;
   }

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

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

         switch(nIndex)
         {
         case 0:
            if(pTVSpiralDlgData->nXOrgn == nValue)
               return;
            pTVSpiralDlgData->nXOrgn = nValue;
            pData->ptCenter.x        = nValue;
            break;
         case 1:
            if(pTVSpiralDlgData->nYOrgn == nValue)
               return;
            pTVSpiralDlgData->nYOrgn = nValue;
            pData->ptCenter.y        = nValue;
            break;
         case 2:
            if(pTVSpiralDlgData->nMaxRadius == nValue)
               return;
            pTVSpiralDlgData->nMaxRadius = nValue;
            break;
         case 3:
            if(pTVSpiralDlgData->nRingCount == nValue)
               return;
            pTVSpiralDlgData->nRingCount = nValue;
            break;
         case 4 :
            if(pTVSpiralDlgData->nAngle == nValue)
               return;
            pTVSpiralDlgData->nAngle = nValue;
            break;

         case 5:
            if(pTVSpiralDlgData->uRandomize == (L_UINT) nValue)
               return;
            pTVSpiralDlgData->uRandomize = (L_UINT) nValue;
            break;

         }
         L_ApplyFilter(hWnd);
      }
   }
}

static L_VOID TVSpiral_OnHScroll(HWND hWnd, HWND hWndCtl, L_UINT nCode, L_INT nPos)
{
   LPTVSPIRALDLGDATA  pTVSpiralDlgData = (LPTVSPIRALDLGDATA) GetWindowLong(hWnd, GWL_USERDATA);
   SetDlgItemInt(hWnd, GetDlgCtrlID(hWndCtl) - pTVSpiralDlgData->nSlideNum, Trackbar_GetPos(hWndCtl), TRUE);
}

static L_VOID L_ApplyFilter(HWND hWnd)
{
  pCHILDDATA         pData;
   L_INT              nRet = 0;
   HWND               hWndParent;
   LPTVSPIRALDLGDATA  pTVSpiralDlgData;

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

   pTVSpiralDlgData = (LPTVSPIRALDLGDATA) GetWindowLong(hWnd, GWL_USERDATA);
   hWndParent       = FORWARD_WM_MDIGETACTIVE(hWndClient, SendMessage);
   pData            = (pCHILDDATA)GetWindowLong(hWndParent, GWL_USERDATA);

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

   nRet = L_RingEffectBitmap(&pData->LeadBitmap,
                             pTVSpiralDlgData->nXOrgn,
                             pTVSpiralDlgData->nYOrgn,
                             pTVSpiralDlgData->nMaxRadius,
                             pTVSpiralDlgData->nRingCount,
                             pTVSpiralDlgData->uRandomize,
                             pTVSpiralDlgData->crColor,
                             pTVSpiralDlgData->nAngle,
                             pTVSpiralDlgData->uFlags);

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