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

#include "ImgPF.h"

static L_BOOL HTPatternDlg_OnCommand    (HWND hWnd, L_INT nID, HWND hWndCtl, L_UINT uCodeNotify);
static L_BOOL HTPatternDlg_OnHScroll    (HWND hWnd, HWND hWndCtl, L_UINT nCode, L_INT nPos);
static L_BOOL HTPatternDlg_OnInitDialog (HWND hWnd, HWND hWndFocus, LPARAM lParam);
static L_VOID HTPatternDlg_OnTimer      (HWND hWnd, L_INT nID);
static L_BOOL HTPatternDlg_OnPaint      (HWND hWnd);
static L_VOID L_ApplyFilter             (HWND hWnd);

L_BOOL CALLBACK HTPatternDlgProc (HWND hWnd, L_UINT uMessage, WPARAM wParam, LPARAM lParam)
{
   switch(uMessage)
   {
      HANDLE_MSG (hWnd, WM_COMMAND,    HTPatternDlg_OnCommand);
      HANDLE_MSG (hWnd, WM_INITDIALOG, HTPatternDlg_OnInitDialog);
      HANDLE_MSG (hWnd, WM_HSCROLL,    HTPatternDlg_OnHScroll);
      HANDLE_MSG (hWnd, WM_PAINT,      HTPatternDlg_OnPaint);
      HANDLE_MSG (hWnd, WM_TIMER,      HTPatternDlg_OnTimer);

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

static L_BOOL HTPatternDlg_OnInitDialog (HWND hWnd, HWND hWndFocus, LPARAM lParam)
{
   LPHTPATTERNDLGDATA pHtpDlgData;
   HWND               hWndParent;
   pCHILDDATA         pData;
   L_INT              nRangeMax[] = {500, 20000, 100, 10, 360};
   L_INT              nRangeMin[] = {  1,     1,   1,  1,   0};
   L_INT              nPosInit [] = {100, 16000,  50,  5, 315};
   L_INT              nSlider;

   hWndParent  = FORWARD_WM_MDIGETACTIVE(hWndClient,SendMessage);
   pData       = LOCKCHILDDATA (hWndParent);
   pHtpDlgData = (LPHTPATTERNDLGDATA)lParam;
   MoveDialogToMiddle(hWnd);

   SetWindowLong(hWnd,GWL_USERDATA,(LONG)pHtpDlgData);
   //MEMDISK...//
   MemorizeAndCopyBitmap (hWndParent, &pHtpDlgData->LeadBitmap);

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

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

   pHtpDlgData->nSldBaseID        = IDC_HTP_CNS_SLD;
   pHtpDlgData->nEdtBaseID        = IDC_HTP_CNS_EDT;
   pHtpDlgData->nSlideNum         = 4;
   pHtpDlgData->uContrast         = nPosInit[0];
   pHtpDlgData->uRipple           = nPosInit[1];
   pHtpDlgData->uAngleContrast    = nPosInit[2];
   pHtpDlgData->uAngleRipple      = nPosInit[3];
   pHtpDlgData->uAngleOffset      = nPosInit[4];
   pHtpDlgData->crBackgroundColor = RGB(0, 0, 255);
   pHtpDlgData->crForegroundColor = RGB(255, 255, 255);
   pHtpDlgData->uFlags            = HTPATTERN_ELLIPSE;

   ComboBox_AddString(GetDlgItem(hWnd, IDC_HTP_TYP_COM), "Dot");
   ComboBox_AddString(GetDlgItem(hWnd, IDC_HTP_TYP_COM), "Line");
   ComboBox_AddString(GetDlgItem(hWnd, IDC_HTP_TYP_COM), "Circle");
   ComboBox_AddString(GetDlgItem(hWnd, IDC_HTP_TYP_COM), "Ellipse");
   ComboBox_SetCurSel(GetDlgItem(hWnd, IDC_HTP_TYP_COM), 3);

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

   CreateAngleControl(GetDlgItem(hWnd, IDC_HTP_ANG_TXT), IDC_HTP_ANG_EDT, FROM_0_TO_360, 1, APPLY_ON_MOVE);
   SetNumericEditBox(GetDlgItem(hWnd, IDC_HTP_ANG_EDT), nRangeMin[nSlider], nRangeMax[nSlider], 1, 0, FALSE);
   SetDlgItemInt(hWnd, IDC_HTP_ANG_EDT, nPosInit[4], FALSE);
   ShowWindow(hWnd, SW_SHOW);
   UpdateWindow(hWnd);
   pData->uTimerID = SetTimer(hWnd, 1, 100, NULL);
   L_ApplyFilter (hWnd);
   return ( TRUE );
}

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

static L_BOOL HTPatternDlg_OnPaint(HWND hWnd)
{
   HDC         hdc;
   PAINTSTRUCT ps;
   RECT        Rect;
   HBRUSH      hBrush;
   LPHTPATTERNDLGDATA pHtpDlgData = (LPHTPATTERNDLGDATA) GetWindowLong(hWnd, GWL_USERDATA);

   GetClientRect(GetDlgItem(hWnd , IDC_HTP_FCLR_TXT), &Rect);
   hdc = BeginPaint(GetDlgItem(hWnd, IDC_HTP_FCLR_TXT),&ps);
   hBrush = CreateSolidBrush(pHtpDlgData->crForegroundColor);
   FillRect(hdc, &Rect,hBrush);
   DeleteObject (hBrush);
   EndPaint(GetDlgItem(hWnd, IDC_HTP_FCLR_TXT), &ps);


   GetClientRect(GetDlgItem(hWnd , IDC_HTP_BCLR_TXT), &Rect);
   hdc = BeginPaint(GetDlgItem(hWnd, IDC_HTP_BCLR_TXT),&ps);
   hBrush = CreateSolidBrush(pHtpDlgData->crBackgroundColor);
   FillRect(hdc, &Rect,hBrush);
   DeleteObject (hBrush);
   EndPaint(GetDlgItem(hWnd, IDC_HTP_BCLR_TXT), &ps);

   return FALSE;
}

static L_BOOL HTPatternDlg_OnCommand (HWND hWnd, L_INT nID, HWND hWndCtl, L_UINT uCodeNotify)
{
   HWND               hWndParent;
   pCHILDDATA         pData;
   L_INT              nValue;
   L_INT              nIndex;
   LPHTPATTERNDLGDATA pHtpDlgData;
   COLORREF           crColor;

   pHtpDlgData = (LPHTPATTERNDLGDATA) GetWindowLong(hWnd, GWL_USERDATA);
   hWndParent  = FORWARD_WM_MDIGETACTIVE(hWndClient,SendMessage);
   pData       = LOCKCHILDDATA (hWndParent);

   switch (nID)
   {
   case IDC_HTP_ANG_EDT:
      nValue = GetDlgItemInt(hWnd, nID, NULL, TRUE);
      if (nValue == 360) nValue = 0;
      DrawAngleControl(GetDlgItem(hWnd, IDC_HTP_ANG_TXT), nValue);

      if ((uCodeNotify == EN_CHANGE) && nValue != (L_INT)pHtpDlgData->uAngleOffset)
      {
         pHtpDlgData->uAngleOffset = nValue;
         L_ApplyFilter(hWnd);
      }
      return TRUE;

   case IDC_HTP_FCLR_BTN:
      crColor = pHtpDlgData->crForegroundColor;
      pHtpDlgData->crForegroundColor = ShowColorDialog(hWnd, crColor);
      if (crColor != pHtpDlgData->crForegroundColor)
      {
         InvalidateRect(hWnd, NULL, FALSE);
         L_ApplyFilter (hWnd);
      }
      break;

   case IDC_HTP_BCLR_BTN:
      crColor = pHtpDlgData->crBackgroundColor;
      pHtpDlgData->crBackgroundColor = ShowColorDialog(hWnd, crColor);
      if (crColor != pHtpDlgData->crBackgroundColor)
      {
         InvalidateRect(hWnd, NULL, FALSE);
         L_ApplyFilter (hWnd);
      }
      break;

   case IDC_HTP_TYP_COM:
      if (uCodeNotify == CBN_SELCHANGE)
      {
         if (pHtpDlgData->uFlags == (L_UINT)(ComboBox_GetCurSel(hWndCtl) + 1))
            return TRUE;
         pHtpDlgData->uFlags = ComboBox_GetCurSel(hWndCtl) + 1;
         EnableWindow(GetDlgItem(hWnd, IDC_HTP_ARPL_EDT), (pHtpDlgData->uFlags > 2));
         EnableWindow(GetDlgItem(hWnd, IDC_HTP_ARPL_SLD), (pHtpDlgData->uFlags > 2));
         EnableWindow(GetDlgItem(hWnd, IDC_HTP_ACNS_EDT), (pHtpDlgData->uFlags > 2));
         EnableWindow(GetDlgItem(hWnd, IDC_HTP_ACNS_SLD), (pHtpDlgData->uFlags > 2));
         EnableWindow(GetDlgItem(hWnd, IDC_HTP_ANG_EDT),  (pHtpDlgData->uFlags > 2));
         EnableWindow(GetDlgItem(hWnd, IDC_HTP_ANG_TXT),  (pHtpDlgData->uFlags > 2));
         InvalidateRect(hWndCtl, 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;
   }

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

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

         switch (nIndex)
         {
         case 0:
            if(pHtpDlgData->uContrast == (L_UINT)nValue)
               return TRUE;
            pHtpDlgData->uContrast = nValue;
            break;
         case 1:
            if(pHtpDlgData->uRipple == (L_UINT)nValue)
               return TRUE;
            pHtpDlgData->uRipple = nValue;
            break;
         case 2:
            if(pHtpDlgData->uAngleContrast == (L_UINT)nValue)
               return TRUE;
            pHtpDlgData->uAngleContrast = nValue;
            break;
         case 3:
            if(pHtpDlgData->uAngleRipple == (L_UINT)nValue)
               return TRUE;
            pHtpDlgData->uAngleRipple = nValue;
            break;
         default:
            return TRUE;
         }
         L_ApplyFilter (hWnd);
      }
   }

   return TRUE;
}

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

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

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

   pHtpDlgData = (LPHTPATTERNDLGDATA) GetWindowLong(hWnd,GWL_USERDATA);
   hWndParent  = FORWARD_WM_MDIGETACTIVE(hWndClient,SendMessage);
   pData       = LOCKCHILDDATA (hWndParent);

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

   nRet = L_HalfTonePatternBitmap(&pData->LeadBitmap,
                                   pHtpDlgData->uContrast,
                                   pHtpDlgData->uRipple,
                                   pHtpDlgData->uAngleContrast,
                                   pHtpDlgData->uAngleRipple,
                                   pHtpDlgData->uAngleOffset * 100,
                                   pHtpDlgData->crForegroundColor,
                                   pHtpDlgData->crBackgroundColor,
                                   pHtpDlgData->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 ;
      }
   }
}