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

#include "ImgPF.h"

static L_BOOL CmbStDialog_OnCommand    (HWND hWnd, L_INT nID, HWND hWndCtl, L_UINT codeNotify);
static L_BOOL CmbStDialog_OnHScroll    (HWND hWnd, HWND hWndCtl, L_UINT nCode, L_INT nPos);
static L_BOOL CmbStDialog_OnInitDialog (HWND hWnd, HWND hWndFocus, LPARAM lParam);
static L_BOOL CmbStDialog_OnPaint      (HWND hWnd);
static L_VOID CmbStDialog_OnTimer      (HWND hWnd, L_INT nID);
static L_VOID L_ApplyFilter            (HWND hWnd);

L_BOOL CALLBACK ComStDlgProc (HWND hWnd, L_UINT message, WPARAM wParam, LPARAM lParam)
{
   switch(message)
   {
      HANDLE_MSG (hWnd, WM_COMMAND,    CmbStDialog_OnCommand);
      HANDLE_MSG (hWnd, WM_INITDIALOG, CmbStDialog_OnInitDialog);
      HANDLE_MSG (hWnd, WM_HSCROLL,    CmbStDialog_OnHScroll);
      HANDLE_MSG (hWnd, WM_PAINT,      CmbStDialog_OnPaint);
      HANDLE_MSG (hWnd, WM_TIMER,      CmbStDialog_OnTimer);

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

static L_BOOL CmbStDialog_OnInitDialog (HWND hWnd, HWND hWndFocus, LPARAM lParam)
{
   LPCSTDLGDATA pCstDlgData;
   HWND         hWndParent;
   pCHILDDATA   pData;
   L_INT        nRangeMax[] = {100, 255};
   L_INT        nRangeMin[] = {  1,   0};
   L_INT        nPosInit [] = {  1, 128};
   L_INT        nSlider;

   hWndParent  = FORWARD_WM_MDIGETACTIVE(hWndClient,SendMessage);
   pData       = LOCKCHILDDATA (hWndParent);
   pCstDlgData = (LPCSTDLGDATA)lParam;
   MoveDialogToMiddle(hWnd);

   if (Is16Bit(&pData->LeadBitmap))
   {
      if (pData->LeadBitmap.BitsPerPixel == 12)
      {
         nRangeMax[1] = 0xFFF;
         nPosInit[1]  = 0x7FF;
      }
      else
      {
         nRangeMax[1] = 0xFFFF;
         nPosInit[1]  = 0x7FFF;
      }

   }

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

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

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

   //MEMDISK...//
   MemorizeAndCopyBitmap (hWndParent, &pCstDlgData->Bitmap);

   pCstDlgData->nSlideNum    = 2;
   pCstDlgData->nEdtBaseID   = IDC_CST_UDIM_EDT;
   pCstDlgData->nSldBaseID   = IDC_CST_UDIM_SLD;
   pCstDlgData->uDim         = nPosInit[0];
   pCstDlgData->uThresh      = nPosInit[1];
   pCstDlgData->crEdgeColor  = RGB(255, 255, 255);
   pCstDlgData->crBkColor    = RGB(0,0,0);

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

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

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

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

static L_BOOL CmbStDialog_OnPaint(HWND hWnd)
{
   HDC            hdc;
   PAINTSTRUCT    ps;
   RECT           Rect;
   HBRUSH         hbrush;
   LPCSTDLGDATA   pCstDlgData;

   pCstDlgData = (LPCSTDLGDATA) GetWindowLong(hWnd, GWL_USERDATA);

   GetClientRect(GetDlgItem(hWnd , IDC_CST_EDG_TXT), &Rect);
   hdc = BeginPaint(GetDlgItem(hWnd, IDC_CST_EDG_TXT),&ps);

   hbrush = CreateSolidBrush(pCstDlgData->crEdgeColor);
   FillRect(hdc, &Rect,hbrush);
   DeleteObject (hbrush);
   EndPaint(GetDlgItem(hWnd, IDC_CST_EDG_TXT), &ps);


   GetClientRect(GetDlgItem(hWnd , IDC_CST_BKG_TXT), &Rect);
   hdc = BeginPaint(GetDlgItem(hWnd, IDC_CST_BKG_TXT),&ps);

   hbrush = CreateSolidBrush(pCstDlgData->crBkColor);
   FillRect(hdc, &Rect,hbrush);
   DeleteObject (hbrush);
   EndPaint(GetDlgItem(hWnd, IDC_CST_BKG_TXT), &ps);

   return FALSE;
}

static L_BOOL CmbStDialog_OnCommand (HWND hWnd, L_INT nID, HWND hWndCtl, L_UINT codeNotify)
{
   LPCSTDLGDATA   pCstDlgData;
   HWND           hWndParent;
   HWND           hCtl;
   pCHILDDATA     pData;
   L_INT          nValue;
   L_INT          nIndex;
   COLORREF       crColor;

   hWndParent  = FORWARD_WM_MDIGETACTIVE(hWndClient,SendMessage);
   pData       = LOCKCHILDDATA (hWndParent);
   pCstDlgData = (LPCSTDLGDATA) GetWindowLong(hWnd, GWL_USERDATA);

   if (nID >= pCstDlgData->nEdtBaseID && nID < (pCstDlgData->nEdtBaseID + pCstDlgData->nSlideNum))
   {
      if(codeNotify == EN_CHANGE)
      {
         nValue = GetDlgItemInt(hWnd, nID, NULL, FALSE);
         hCtl = GetDlgItem(hWnd, nID + pCstDlgData->nSlideNum);
         nIndex = nID - pCstDlgData->nEdtBaseID;

         Trackbar_SetPos  (hCtl, TRUE, nValue);

         switch (nIndex)
         {
         case 0:
            if(pCstDlgData->uDim == (L_UINT)nValue)
               return TRUE;
            pCstDlgData->uDim = nValue;
            break;
         case 1:
            if(pCstDlgData->uThresh == (L_UINT)nValue)
               return TRUE;
            pCstDlgData->uThresh = nValue;
            break;
         }
         L_ApplyFilter (hWnd);
      }
   }
   switch (nID)
   {
   case IDC_CST_EDG_BUT:
      crColor = pCstDlgData->crEdgeColor;
      pCstDlgData->crEdgeColor = ShowColorDialog(hWnd, crColor);

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

   case IDC_CST_BKG_BUT:
      crColor = pCstDlgData->crBkColor;
      pCstDlgData->crBkColor = ShowColorDialog(hWnd, crColor);

      if (crColor != pCstDlgData->crBkColor)
      {
         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 CmbStDialog_OnHScroll (HWND hWnd, HWND hWndCtl, L_UINT nCode, L_INT nPos)
{
   LPCSTDLGDATA pCstDlgData = (LPCSTDLGDATA) GetWindowLong(hWnd,GWL_USERDATA);
   SetDlgItemInt(hWnd, GetDlgCtrlID(hWndCtl) - pCstDlgData->nSlideNum, Trackbar_GetPos(hWndCtl), TRUE);
   return TRUE;
}

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

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

   pCstDlgData = (LPCSTDLGDATA) GetWindowLong(hWnd,GWL_USERDATA);
   hWndParent  = FORWARD_WM_MDIGETACTIVE(hWndClient,SendMessage);
   pData       = LOCKCHILDDATA (hWndParent);

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

   nRet = L_EdgeDetectStatisticalBitmap(&pData->LeadBitmap,
                                         pCstDlgData->uDim,
                                         pCstDlgData->uThresh,
                                         pCstDlgData->crEdgeColor,
                                         pCstDlgData->crBkColor);

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