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


#include "ImgPF.h"

static L_BOOL BricksDlg_OnInitDialog (HWND hWnd, HWND hWndFocus, LPARAM lParam);
static L_BOOL BricksDlg_OnCommand    (HWND hWnd, L_INT nID, HWND hWndCtl, L_UINT codeNotify);
static L_BOOL BricksDlg_OnHScroll    (HWND hWnd, HWND hWndCtl, L_UINT nCode, L_INT nPos);
static L_VOID BricksDlg_OnTimer      (HWND hWnd, L_INT nID);
static L_VOID BricksDlg_OnPaint      (HWND hWnd);
static L_VOID L_ApplyFilter          (HWND hWnd);

L_BOOL CALLBACK BricksDlgProc (HWND hWnd, L_UINT uMessage, WPARAM wParam, LPARAM lParam)
{
   switch(uMessage)
   {
      HANDLE_MSG (hWnd, WM_COMMAND,     BricksDlg_OnCommand);
      HANDLE_MSG (hWnd, WM_INITDIALOG,  BricksDlg_OnInitDialog);
      HANDLE_MSG (hWnd, WM_HSCROLL,     BricksDlg_OnHScroll);
      HANDLE_MSG (hWnd, WM_PAINT,       BricksDlg_OnPaint);
      HANDLE_MSG (hWnd, WM_TIMER,       BricksDlg_OnTimer);

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

static L_BOOL BricksDlg_OnInitDialog (HWND hWnd, HWND hWndFocus, LPARAM lParam)
{
   LPBRICKSDLGDATA pBricksDlgData;
   HWND            hWndParent;
   pCHILDDATA      pData;
   L_INT           nRangeMax[] = {0, 0,  0,  0, 0, 0, 0, 300, 300, 10, 10};
   L_INT           nRangeMin[] = {0, 0,  0,  0, 0, 0, 0,   0,   0,  0,  0};
   L_INT           nPosInit [] = {0, 0,  60, 20,4, 3, 35, 50,  50,  2,  2};
   L_INT           nSlider;

   hWndParent     = FORWARD_WM_MDIGETACTIVE(hWndClient,SendMessage);
   pData          = LOCKCHILDDATA (hWndParent);
   pBricksDlgData = (LPBRICKSDLGDATA)lParam;

   SetWindowLong(hWnd,GWL_USERDATA,(LONG)pBricksDlgData);
   ShowWindow(hWnd, SW_SHOW);

   MoveDialogToMiddle(hWnd);

   nRangeMax[2] = pData->LeadBitmap.Width;
   nRangeMax[3] = pData->LeadBitmap.Height;
   nRangeMax[4] = max(pData->LeadBitmap.Width - 1, pData->LeadBitmap.Height - 1);
   nRangeMax[5] = max(pData->LeadBitmap.Width - 1, pData->LeadBitmap.Height - 1);
   nRangeMax[6] = max(pData->LeadBitmap.Width - 1, pData->LeadBitmap.Height - 1);
   nRangeMax[7] = max(pData->LeadBitmap.Width - 1, pData->LeadBitmap.Height - 1);
   nRangeMax[0] = nRangeMax[3] + 2 * nRangeMax[5] + nRangeMax[6];
   nRangeMax[1] = nRangeMax[4] + 2 * nRangeMax[5] + nRangeMax[6];

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

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

   ComboBox_AddString(GetDlgItem(hWnd, IDC_BRICKS_STYLE_COM), TEXT("Solid"));
   ComboBox_AddString(GetDlgItem(hWnd, IDC_BRICKS_STYLE_COM), TEXT("Smooth out"));
   ComboBox_AddString(GetDlgItem(hWnd, IDC_BRICKS_STYLE_COM), TEXT("Smooth In"));
   ComboBox_SetCurSel(GetDlgItem(hWnd, IDC_BRICKS_STYLE_COM), 1);

   //MEMDISK...//
   MemorizeAndCopyBitmap (hWndParent, &pBricksDlgData->LeadBitmap);

   pBricksDlgData->nSlideNum             = 11;
   pBricksDlgData->nSldBaseID            = IDC_BRICKS_HIG_SLD;
   pBricksDlgData->nEdtBaseID            = IDC_BRICKS_HIG_EDT;
   pBricksDlgData->uOffsetX              = nPosInit[0];
   pBricksDlgData->uOffsetY              = nPosInit[1];
   pBricksDlgData->uBricksWidth          = nPosInit[2];
   pBricksDlgData->uBricksHeight         = nPosInit[3];
   pBricksDlgData->uEdgeWidth            = nPosInit[4];
   pBricksDlgData->uGroutWidth           = nPosInit[5];
   pBricksDlgData->uSecondBlockDistance  = nPosInit[6];
   pBricksDlgData->crGroutColor          = RGB(200, 200, 200);
   pBricksDlgData->uBricksRoutness       = nPosInit[7];
   pBricksDlgData->uAngle                = 315;
   pBricksDlgData->uGroutRoutness        = nPosInit[8];
   pBricksDlgData->uBricksRoutnessSmooth = nPosInit[9];
   pBricksDlgData->uGroutRoutnessSmooth  = nPosInit[10];
   pBricksDlgData->uFlags                = BRICKS_SMOOTHEDOUT;

   Button_SetCheck(GetDlgItem(hWnd, IDC_BRICKS_CLR_CHK), BST_UNCHECKED);
   CreateAngleControl(GetDlgItem(hWnd, IDC_BRICKS_ANG_TXT), IDC_BRICKS_ANG_EDT, FROM_0_TO_360, 1, APPLY_ON_MOVE);

   SetNumericEditBox(GetDlgItem(hWnd, IDC_BRICKS_ANG_EDT), 0, 360, 1, 0, FALSE);
   SetDlgItemInt(hWnd, IDC_BRICKS_ANG_EDT, 315, TRUE);

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

   ShowWindow(hWnd, SW_SHOW);
   UpdateWindow(hWnd);
   L_ApplyFilter (hWnd);
   pData->uTimerID = SetTimer(hWnd, 1, 100, NULL);
   return ( TRUE );
}

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

static L_BOOL BricksDlg_OnCommand (HWND hWnd, L_INT nID, HWND hWndCtl, L_UINT uCodeNotify)
{
   LPBRICKSDLGDATA pBricksDlgData;
   HWND            hWndParent;
   L_INT           nIndex;
   L_INT           nValue;
   pCHILDDATA      pData;
   COLORREF        crColor;

   hWndParent     = FORWARD_WM_MDIGETACTIVE(hWndClient,SendMessage);
   pData          = LOCKCHILDDATA (hWndParent);
   pBricksDlgData = (LPBRICKSDLGDATA) GetWindowLong(hWnd, GWL_USERDATA);

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

      Trackbar_SetPos(GetDlgItem(hWnd, nID + pBricksDlgData->nSlideNum), TRUE, nValue);
   
      switch (nIndex)
      {
      case 0:
         if (pBricksDlgData->uOffsetX == (L_UINT)nValue)
            return FALSE;
         pBricksDlgData->uOffsetX = nValue;
         break;
      case 1:
         if (pBricksDlgData->uOffsetY == (L_UINT)nValue)
            return FALSE;
         pBricksDlgData->uOffsetY = nValue;
         break;
      case 2:
         if (pBricksDlgData->uBricksWidth == (L_UINT) nValue)
            return FALSE;
         pBricksDlgData->uBricksWidth = nValue;
         break;
      case 3:
         if (pBricksDlgData->uBricksHeight == (L_UINT) nValue)
            return FALSE;
         pBricksDlgData->uBricksHeight  = nValue;
         break;
      case 4:
         if (pBricksDlgData->uEdgeWidth == (L_UINT) nValue)
            return FALSE;
         pBricksDlgData->uEdgeWidth  = nValue;
         break;
      case 5:
         if (pBricksDlgData->uGroutWidth == (L_UINT) nValue)
            return FALSE;
         pBricksDlgData->uGroutWidth  = nValue;
         break;
      case 6: 
         if (pBricksDlgData->uSecondBlockDistance == (L_UINT) nValue)
            return FALSE;
         pBricksDlgData->uSecondBlockDistance = nValue;
         break;

      case 8:
         if (pBricksDlgData->uBricksRoutness == (L_UINT) nValue)
            return FALSE;
         pBricksDlgData->uBricksRoutness = nValue;
         break;

      case 7:
         if (pBricksDlgData->uGroutRoutness == (L_UINT) nValue)
            return FALSE;
         pBricksDlgData->uGroutRoutness  = nValue;
         break;

      case 10:
         if (pBricksDlgData->uBricksRoutnessSmooth == (L_UINT) nValue)
            return FALSE;
         pBricksDlgData->uBricksRoutnessSmooth = nValue;
         break;

      case 9:
         if (pBricksDlgData->uGroutRoutnessSmooth == (L_UINT) nValue)
            return FALSE;
         pBricksDlgData->uGroutRoutnessSmooth = nValue;
         break;
      }
      L_ApplyFilter (hWnd);
   }

   switch(nID)
   {
   case IDC_BRICKS_STYLE_COM:
      if (uCodeNotify == CBN_SELCHANGE)
      {
         if ((pBricksDlgData->uFlags & 0x3) == ComboBox_GetCurSel(hWndCtl))
            break;
         pBricksDlgData->uFlags = (pBricksDlgData->uFlags & 0x10) | ComboBox_GetCurSel(hWndCtl);
         InvalidateRect(hWndCtl, NULL, FALSE);
         L_ApplyFilter(hWnd);
      }
      break;

   case IDC_BRICKS_CLR_CHK:
      {
         pBricksDlgData->uFlags ^= BRICKS_COLOREDMORTAR;
         Button_Enable(GetDlgItem(hWnd, IDC_BRICKS_GRT_BTN), Button_GetCheck(hWndCtl));
         InvalidateRect(hWnd, NULL, FALSE);
         L_ApplyFilter(hWnd);
      }
      break;

   case IDC_BRICKS_ANG_EDT:
      nValue = GetDlgItemInt(hWnd, nID, NULL, TRUE);

      DrawAngleControl(GetDlgItem(hWnd, IDC_BRICKS_ANG_TXT), nValue);
      if ((uCodeNotify == EN_CHANGE) && nValue != (L_INT)pBricksDlgData->uAngle)
      {
         pBricksDlgData->uAngle = nValue;
         L_ApplyFilter(hWnd);
      }
      break;

   case IDC_BRICKS_GRT_BTN:
      crColor = pBricksDlgData->crGroutColor;
      pBricksDlgData->crGroutColor = ShowColorDialog(hWnd, crColor);
      if (pBricksDlgData->crGroutColor != crColor)
      {
         InvalidateRect(hWnd, NULL, FALSE);
         L_ApplyFilter(hWnd);
      }
      break;

   case IDCANCEL:
      StatusProc.bProgress     = FALSE;
      StatusProc.bKillProgress = TRUE;
      StatusProc.ProgressValue = 100;
      EndDialog(hWnd, FALSE);
      break;

   case IDOK:
      ShowStatusWindow(FALSE);
      StatusProc.bStillWork  = TRUE;
      StatusProc.bInvalidate = TRUE;
      StatusProc.bEnd        = TRUE;
      EndDialog(hWnd, TRUE);
      break;

   }
   return TRUE;
}

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

static L_VOID BricksDlg_OnPaint(HWND hWnd)
{
   HDC             hDC;
   PAINTSTRUCT     ps;
   RECT            rcRect;
   HBRUSH          hBrush;
   LPBRICKSDLGDATA pBricksDlgData = (LPBRICKSDLGDATA) GetWindowLong(hWnd, GWL_USERDATA);

   hDC = BeginPaint(GetDlgItem(hWnd, IDC_BRICKS_GRT_TXT), &ps);
   GetClientRect(GetDlgItem(hWnd, IDC_BRICKS_GRT_TXT), &rcRect);
   hBrush = CreateSolidBrush(pBricksDlgData->crGroutColor);
   FillRect(hDC, &rcRect, Button_GetCheck(GetDlgItem(hWnd, IDC_BRICKS_CLR_CHK)) ? hBrush :(HBRUSH)COLOR_WINDOW);
   DeleteBrush(hBrush);
   EndPaint(GetDlgItem(hWnd, IDC_BRICKS_GRT_TXT), &ps);
}

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

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

   pBricksDlgData = (LPBRICKSDLGDATA)GetWindowLong(hWnd,GWL_USERDATA);
   hWndParent     = FORWARD_WM_MDIGETACTIVE(hWndClient,SendMessage);
   pData          = LOCKCHILDDATA(hWndParent);

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

   nRet = L_BricksTextureBitmap(&pData->LeadBitmap,
                                 pBricksDlgData->uBricksWidth,
                                 pBricksDlgData->uBricksHeight,
                                 pBricksDlgData->uOffsetX,
                                 pBricksDlgData->uOffsetY,
                                 pBricksDlgData->uEdgeWidth,
                                 pBricksDlgData->uGroutWidth,
                                 pBricksDlgData->uAngle,
                                 pBricksDlgData->uSecondBlockDistance,
                                 pBricksDlgData->uGroutRoutness,
                                 pBricksDlgData->uGroutRoutnessSmooth,
                                 pBricksDlgData->uBricksRoutness,
                                 pBricksDlgData->uBricksRoutnessSmooth,
                                 pBricksDlgData->crGroutColor,
                                 pBricksDlgData->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 ;
      }
   }
}