/*[]=====================================================================[]*/
/*[]     LeadTools Run Time Library - Version 14                         []*/
/*[]                                                                     []*/
/*[]                                                                     []*/
/*[]     Copyright (c) 1991-2004 LEAD Technologies, Inc.                 []*/
/*[]     All Rights Reserved.                                            []*/
/*[]=====================================================================[]*/

#include "ImgPF.h"

static L_BOOL TunnelDlg_OnCommand    (HWND hWnd, L_INT nID, HWND hWndCtl, L_UINT uCodeNotify);
static L_BOOL TunnelDlg_OnHScroll    (HWND hWnd, HWND hWndCtl, L_UINT nCode, L_INT nPos);
static L_BOOL TunnelDlg_OnInitDialog (HWND hWnd, HWND hWndFocus, LPARAM lParam);
static L_BOOL TunnelDlg_OnPaint      (HWND hWnd);
static L_VOID TunnelDlg_OnTimer      (HWND hWnd, L_INT nID);
static L_VOID L_ApplyFilter          (HWND hWnd);

L_BOOL CALLBACK TunnelDlgProc (HWND hWnd, L_UINT uMessage, WPARAM wParam, LPARAM lParam)
{
   switch(uMessage)
   {
      HANDLE_MSG (hWnd, WM_COMMAND,    TunnelDlg_OnCommand);
      HANDLE_MSG (hWnd, WM_INITDIALOG, TunnelDlg_OnInitDialog);
      HANDLE_MSG (hWnd, WM_HSCROLL,    TunnelDlg_OnHScroll);
      HANDLE_MSG (hWnd, WM_PAINT,      TunnelDlg_OnPaint);
      HANDLE_MSG (hWnd, WM_TIMER,      TunnelDlg_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) 
{
   LPTUNDLGDATA      pTunDlgData;
   LPMOUSEHOOKSTRUCT pMouseHook;
   HWND              hWndParent;
   pCHILDDATA        pData;
   RECT              rcRect;
   POINT             TmpPoint;
   DWORD             dwStyle;   
   
   hWndParent  = FORWARD_WM_MDIGETACTIVE(hWndClient,SendMessage);
   pData       = LOCKCHILDDATA (hWndParent);
   pTunDlgData = (LPTUNDLGDATA)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 (pTunDlgData->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 (pTunDlgData->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(pTunDlgData->hMouseHook , nCode, wParam, lParam); 
            }

            pData->ptCenter.x = pTunDlgData->ptCenterPoint.x = pMouseHook->pt.x + pData->nHScrollPos;
            pData->ptCenter.y = pTunDlgData->ptCenterPoint.y = pMouseHook->pt.y + pData->nVScrollPos;
            
            SetDlgItemInt(hGlobalWnd, IDC_TUN_XCT_EDT, pTunDlgData->ptCenterPoint.x, TRUE);
            SetDlgItemInt(hGlobalWnd, IDC_TUN_YCT_EDT, pTunDlgData->ptCenterPoint.y, 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 (pTunDlgData->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 (pTunDlgData)
   {
      if (LOWORD(wParam) >= WM_NCMOUSEMOVE && LOWORD(wParam) <= WM_NCMBUTTONDBLCLK)
         return TRUE;
      else
         return CallNextHookEx(pTunDlgData->hMouseHook , nCode, wParam, lParam); 
   }
   else
      return FALSE;
}

static L_BOOL TunnelDlg_OnInitDialog (HWND hWnd, HWND hWndFocus, LPARAM lParam)
{
   LPTUNDLGDATA pTunDlgData;
   HWND         hWndParent;
   pCHILDDATA   pData;
   L_INT        nRangeMax[] = { 0, 0, 100, 0, 400, 0, 0, 0, 100, 100, 500};
   L_INT        nRangeMin[] = { 1, 1,  -1, 0,   1, 0, 0, 0,   0,   0,   1};
   L_INT        nPosInit [] = { 0, 0,  -1, 0, 100, 0, 0, 0,   0,   0,  50};
   L_INT        nSlider;
   RECT         rcRgn;

   hWndParent    = FORWARD_WM_MDIGETACTIVE(hWndClient,SendMessage);
   pData         = LOCKCHILDDATA (hWndParent);
   pTunDlgData   = (LPTUNDLGDATA)lParam;
   hGlobalWnd    = hWnd;
   pData->bCross = TRUE;
   MoveDialogToMiddle(hWnd);

   SetWindowLong(hWnd,GWL_USERDATA,(LONG)pTunDlgData);

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

   Progress_SetRange(StatusProc.ProgWnd, 0, 100);
   Progress_SetPos(StatusProc.ProgWnd, 0);

   //MEMDISK...//
   MemorizeAndCopyBitmap (hWndParent, &pTunDlgData->Bitmap);
   L_CopyBitmap(&pTunDlgData->Bitmap, &pData->LeadBitmap, sizeof(BITMAPHANDLE));

   L_GetBitmapRgnBoundsClip(&pTunDlgData->Bitmap, NULL, &rcRgn);

   pTunDlgData->nSlideNum    = 11;
   pTunDlgData->nEdtBaseID   = IDC_TUN_OFS_EDT;
   pTunDlgData->nSldBaseID   = IDC_TUN_OFS_SLD;

   nRangeMax[0] = max((rcRgn.bottom - rcRgn.top), (rcRgn.right - rcRgn.left));
   nRangeMax[1] = max((rcRgn.bottom - rcRgn.top), (rcRgn.right - rcRgn.left));
   nRangeMax[5] = 3 * (rcRgn.right - rcRgn.left) / 2 + rcRgn.left;
   nRangeMin[5] = -3 * (rcRgn.right - rcRgn.left) / 2 + rcRgn.left;
   nRangeMax[6] = 3 * (rcRgn.bottom - rcRgn.top) / 2 + rcRgn.top;
   nRangeMin[6] = -3 * (rcRgn.bottom - rcRgn.top) / 2 + rcRgn.top;
   nRangeMax[7] = max((rcRgn.bottom - rcRgn.top), (rcRgn.right - rcRgn.left));
   nRangeMax[3] = max((rcRgn.bottom - rcRgn.top), (rcRgn.right - rcRgn.left));
   nPosInit[0]  = min((rcRgn.bottom - rcRgn.top), (rcRgn.right - rcRgn.left))/2;
   nPosInit[1]  = min((rcRgn.bottom - rcRgn.top), (rcRgn.right - rcRgn.left))/2;
   nPosInit[5]  = (rcRgn.right + rcRgn.left) / 2;
   nPosInit[6]  = (rcRgn.bottom + rcRgn.top) / 2;

   pTunDlgData->uPlaneOffset    = nPosInit[0];
   pTunDlgData->nDistance       = nPosInit[1];
   pTunDlgData->nRepeat         = nPosInit[2];
   pTunDlgData->nRotationAngle  = nPosInit[3];
   pTunDlgData->uStretch        = nPosInit[4];
   pTunDlgData->ptCenterPoint.x = pData->ptCenter.x = nPosInit[5];
   pTunDlgData->ptCenterPoint.y = pData->ptCenter.y = nPosInit[6];
   pTunDlgData->uZValue         = nPosInit[7];
   pTunDlgData->uStartBright    = nPosInit[8];
   pTunDlgData->uEndBright      = nPosInit[9];
   pTunDlgData->uBrightLength   = nPosInit[10];

   pTunDlgData->crFill     = RGB(255, 255, 255);
   pTunDlgData->crBright   = RGB(255, 255, 255);
   pTunDlgData->uFlags     = TUN_AXIS_WIDTH ;
   pTunDlgData->uColorFlag = PLANE_FILL_CLR;

   UpdateWindow(hWnd);
   ShowWindow  (hWnd, SW_SHOW);

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

   Button_SetCheck(GetDlgItem(hWnd, IDC_TUN_COL_RAD ), TRUE);
   Button_SetCheck(GetDlgItem(hWnd, IDC_TUN_WDT_RAD), TRUE);

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

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

static L_BOOL TunnelDlg_OnPaint(HWND hWnd)
{
   HDC            hDC;
   PAINTSTRUCT    ps;
   RECT           rcRect;
   HBRUSH         hBrush;
   LPTUNDLGDATA   pTunDlgData;

   pTunDlgData = (LPTUNDLGDATA) GetWindowLong(hWnd, GWL_USERDATA);

   GetClientRect(GetDlgItem(hWnd , IDC_TUN_COL_TXT), &rcRect);
   hDC = BeginPaint(GetDlgItem(hWnd, IDC_TUN_COL_TXT),&ps);

   hBrush = CreateSolidBrush(pTunDlgData->crFill);
   FillRect(hDC, &rcRect,hBrush);
   DeleteObject (hBrush);
   EndPaint(GetDlgItem(hWnd, IDC_TUN_COL_TXT), &ps);


   GetClientRect(GetDlgItem(hWnd , IDC_TUN_BRG_COL_TXT), &rcRect);
   hDC = BeginPaint(GetDlgItem(hWnd, IDC_TUN_BRG_COL_TXT),&ps);

   hBrush = CreateSolidBrush(pTunDlgData->crBright);
   FillRect(hDC, &rcRect,hBrush);
   DeleteObject (hBrush);
   EndPaint(GetDlgItem(hWnd, IDC_TUN_BRG_COL_TXT), &ps);

   return FALSE;
}

static L_BOOL TunnelDlg_OnCommand (HWND hWnd, L_INT nID, HWND hWndCtl, L_UINT uCodeNotify)
{
   LPTUNDLGDATA   pTunDlgData;
   HWND           hWndParent;
   L_INT          nRangeMax[] = { 0, 0, 100, 0, 400, 0, 0, 0, 100, 100, 500};
   L_INT          nRangeMin[] = { 1, 1,-1  ,0, 1  , 0, 0, 0, 0  , 0  , 1  };
   pCHILDDATA     pData;
   L_INT          nValue;
   L_INT          nIndex;
   RECT           rcRgn;
   COLORREF       crColor;

   hWndParent  = FORWARD_WM_MDIGETACTIVE(hWndClient,SendMessage);
   pData       = LOCKCHILDDATA (hWndParent);
   pTunDlgData = (LPTUNDLGDATA) GetWindowLong(hWnd, GWL_USERDATA);

   L_GetBitmapRgnBoundsClip(&pTunDlgData->Bitmap, NULL, &rcRgn);
   
   nRangeMax[0] = max((rcRgn.bottom - rcRgn.top), (rcRgn.right - rcRgn.left));
   nRangeMax[1] = max((rcRgn.bottom - rcRgn.top), (rcRgn.right - rcRgn.left));
   nRangeMax[5] =  3 * (rcRgn.right - rcRgn.left) / 2 + rcRgn.left;
   nRangeMin[5] = -3 * (rcRgn.right - rcRgn.left) / 2 + rcRgn.left;
   nRangeMax[6] =  3 * (rcRgn.bottom - rcRgn.top) / 2 + rcRgn.top;
   nRangeMin[6] = -3 * (rcRgn.bottom - rcRgn.top) / 2 + rcRgn.top;
   nRangeMax[7] = max((rcRgn.bottom - rcRgn.top), (rcRgn.right - rcRgn.left));
   nRangeMax[3] = max((rcRgn.bottom - rcRgn.top), (rcRgn.right - rcRgn.left));

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

         switch (nIndex)
         {
         case 0:
            if(pTunDlgData->uPlaneOffset == (L_UINT)nValue)
               return TRUE;
            pTunDlgData->uPlaneOffset = nValue;
            break;
         case 1:
            if(pTunDlgData->nDistance  == nValue)
               return TRUE;
            pTunDlgData->nDistance = nValue;
            break;
         case 2:
            if(pTunDlgData->nRepeat == nValue)
               return TRUE;
            pTunDlgData->nRepeat = nValue;
            break;

         case 3:
            if(pTunDlgData->nRotationAngle == nValue)
               return TRUE;
            pTunDlgData->nRotationAngle = nValue;
            break;

         case 4:
            if(pTunDlgData->uStretch == (L_UINT)nValue)
               return TRUE;
            pTunDlgData->uStretch = nValue;
            break;

         case 5:
            if(pTunDlgData->ptCenterPoint.x == nValue)
               return TRUE;
            pTunDlgData->ptCenterPoint.x = nValue;
            pData->ptCenter.x = nValue;
            break;

         case 6:
            if(pTunDlgData->ptCenterPoint.y== nValue)
               return TRUE;
            pTunDlgData->ptCenterPoint.y = nValue;
            pData->ptCenter.y = nValue;
            break;

         case 7:
            if(pTunDlgData->uZValue == (L_UINT)nValue)
               return TRUE;
            pTunDlgData->uZValue = nValue;
            break;

         case 8:
            if(pTunDlgData->uStartBright == (L_UINT)nValue)
               return TRUE;
            pTunDlgData->uStartBright = nValue;
            break;

         case 9:
            if(pTunDlgData->uEndBright == (L_UINT)nValue)
               return TRUE;
            pTunDlgData->uEndBright = nValue;
            break;

         case 10:
            if(pTunDlgData->uBrightLength == (L_UINT)nValue)
               return TRUE;
            pTunDlgData->uBrightLength = nValue;
            break;
         }
         L_ApplyFilter(hWnd);
      }
   }

   switch (nID)
   {
   case IDC_TUN_POS_BUT:
      pTunDlgData->bPushed = Button_GetCheck(hWndCtl);
      break;

   case IDC_TUN_WDT_RAD:
      pTunDlgData->uFlags = TUN_AXIS_WIDTH;
      L_ApplyFilter(hWnd);
      break;
   case IDC_TUN_HIG_RAD:
      pTunDlgData->uFlags = TUN_AXIS_HEIGHT;
      L_ApplyFilter(hWnd);
      break;
      
   case IDC_TUN_COL_BUT:
      crColor = pTunDlgData->crFill;
      pTunDlgData->crFill = ShowColorDialog(hWnd, crColor);

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

   case IDC_TUN_BRG_COL_BUT:
      crColor = pTunDlgData->crBright;
      pTunDlgData->crBright = ShowColorDialog(hWnd, crColor);

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

   case IDC_TUN_NOC_RAD:
      EnableWindow(GetDlgItem(hWnd, IDC_TUN_COL_BUT), FALSE);
      pTunDlgData->uColorFlag = PLANE_NO_CHG;
      L_ApplyFilter(hWnd);
      break;

   case IDC_TUN_COL_RAD:
      EnableWindow(GetDlgItem(hWnd, IDC_TUN_COL_BUT), TRUE);
      pTunDlgData->uColorFlag = PLANE_FILL_CLR;
      L_ApplyFilter(hWnd);
      break;

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

   case IDOK:
      pData->bCross = FALSE;
      ShowStatusWindow(FALSE);
      StatusProc.bStillWork  = TRUE;
      StatusProc.bInvalidate = TRUE;
      StatusProc.bEnd        = TRUE;
      UnhookWindowsHookEx(pTunDlgData->hMouseHook);
      DestroyIcon(pTunDlgData->hIcon);
      EndDialog(hWnd, TRUE);
      break;
   }
   return TRUE;
}

static L_BOOL TunnelDlg_OnHScroll (HWND hWnd, HWND hWndCtl, L_UINT nCode, L_INT nPos)
{
   LPTUNDLGDATA pTunDlgData = (LPTUNDLGDATA) GetWindowLong(hWnd,GWL_USERDATA);
   SetDlgItemInt(hWnd, GetDlgCtrlID(hWndCtl) - pTunDlgData->nSlideNum, Trackbar_GetPos(hWndCtl), TRUE);
   return TRUE;
}

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

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

   pTunDlgData = (LPTUNDLGDATA) GetWindowLong(hWnd,GWL_USERDATA);
   hWndParent  = FORWARD_WM_MDIGETACTIVE(hWndClient,SendMessage);
   pData       = LOCKCHILDDATA (hWndParent);

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

   nRet = L_TunnelBitmap(&pData->LeadBitmap,
                          pTunDlgData->ptCenterPoint,
                          pTunDlgData->uZValue,
                          pTunDlgData->nDistance,
                          pTunDlgData->uPlaneOffset,
                          pTunDlgData->nRepeat,
                          pTunDlgData->nRotationAngle,
                          pTunDlgData->uStretch,
                          pTunDlgData->uStartBright,
                          pTunDlgData->uEndBright,
                          pTunDlgData->uBrightLength,
                          pTunDlgData->crBright,
                          pTunDlgData->crFill,
                          pTunDlgData->uFlags | pTunDlgData->uColorFlag);

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