/****************************************************************************
    PROGRAM: DaDCli.c
    PURPOSE: Malliohjelma Drag- and Drop käytöstä
    Editor:  Vesa Lappalainen  typistänyt malliohjelmista.
****************************************************************************/
#include <windows.h>            /* Tarvitaan kaikissa Windows C-ohjelmissa */
#include <string.h>
#include <shellapi.h> /* Drag and Drop, ks. BC esx. DragDrop */     /* dad */
#include "dropfile.h"

#define MAX_FILES 20
static char FileStr[MAX_FILES+1][40] =
  { "Nyt ei tiedostoja!","Ota FileManagerista","ja pudota tähän",""};

HWND lhWnd;

/***************************************************************************/
int TakeFiles(HDROP hDrop)
{
   int i,n = min(DragQueryFile(hDrop,-1,NULL,0),MAX_FILES); /* Nimien määrä*/
   for (i=0; i<n; i++) {
     DragQueryFile(hDrop,i,FileStr[i],sizeof(FileStr[i]));  /* i:s nimi    */
   }
   FileStr[n][0]=0;
   DragFinish(hDrop);   /* Muistilohkon vapautus!                          */
   return n;
}

/***************************************************************************/
LONG FAR PASCAL _export MainWndProc(HWND hWnd, unsigned message,
                                    WPARAM wParam, LPARAM lParam)
{
  PAINTSTRUCT ps;

  switch (message)
  {
    case WM_CREATE:
      DragAcceptFiles(hWnd,TRUE);                                   /* dad */
      break;

    case WM_DROPFILES:                                              /* dad */
/*      TakeFiles((HDROP)wParam);       /* Oma funktio nimien ottamiseksi    */
/*      InvalidateRect(hWnd,NULL,TRUE); /* Huono tapa,mutta sopii lyhyeen mal*/
        DropFilesToListBox((HDROP)wParam,hWnd,100,0);
      break;

    case WM_PAINT:            /* Viesti: Piirrä ikkuna uudelleen           */
      if ( BeginPaint(hWnd,&ps) ) {
        int i,y=0;
        int dy = HIWORD(GetTextExtent(ps.hdc,"X",1));
        for (i=0; FileStr[i][0]; i++)
          TextOut(ps.hdc, 10, y+=dy, FileStr[i],strlen(FileStr[i]));
      }
      EndPaint(hWnd,&ps);
      return NULL;

    case WM_MBUTTONDOWN:
      SendDlgItemMessage(hWnd,100,LB_RESETCONTENT,0,0);
      return NULL;

    case WM_LBUTTONDOWN:
      DropListBoxFiles(hWnd,100,"");
      return NULL;

    case WM_RBUTTONDOWN:
      DropSelectFiles(hWnd);
      return NULL;

    case WM_DESTROY:          /* Viesti: ikkuna hävitetään                 */
      DragAcceptFiles(hWnd,FALSE);                                  /* dad */
      PostQuitMessage(0);
      return NULL;
    default:                  /* Antaa Windowsin käsitellä muut            */
      break;
  }
  return (DefWindowProc(hWnd, message, wParam, lParam));
}


/***************************************************************************/
int PASCAL WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
                   LPSTR lpCmdLine, int nCmdShow)
{
#pragma argsused
    WNDCLASS  wc;   /* Ikkunaluokka                                        */
    HWND    hWnd;   /* Pääikkunan kahva                                    */
    MSG msg;        /* Viesti                                              */

    if (!hPrevInstance) {       /* Onko muita esiintymiä käynnisssä?       */
      wc.style         = NULL;           wc.lpfnWndProc    = MainWndProc;
      wc.cbClsExtra    = 0;              wc.cbWndExtra     = 0;
      wc.hInstance     = hInstance;
      wc.hIcon         = LoadIcon(NULL, IDI_APPLICATION);
      wc.hCursor       = LoadCursor(NULL, IDC_ARROW);
      wc.hbrBackground = GetStockObject(WHITE_BRUSH);
      wc.lpszMenuName  = NULL;           wc.lpszClassName  = "DADWClass";
      if (!RegisterClass(&wc)) return (FALSE);
    }

    hWnd = CreateWindow("DADWClass","Drag and Drop",WS_OVERLAPPEDWINDOW,
                        300,200,400,300,
                        NULL,NULL,hInstance,NULL);
    if (!hWnd) return (FALSE);
#if 1
    lhWnd = CreateWindow("Listbox","Kissa",
     WS_BORDER | LBS_MULTIPLESEL | WS_CHILD | WS_VISIBLE
     | WS_HSCROLL | WS_VSCROLL |LBS_EXTENDEDSEL,
                 100,10,280,250,
                 hWnd,(HMENU)100,hInstance,NULL);
#endif

    ShowWindow(hWnd, nCmdShow);     /* Näytetään ikkuna                    */

    UpdateWindow(hWnd);             /* Lähetetään WM_PAINT viesti          */

    while (GetMessage(&msg,NULL,NULL,NULL)) {
        TranslateMessage(&msg);     /* Tulkitaan virtuaaliset näp. koodit  */
        DispatchMessage(&msg);      /* Lähetetään viesti ikkunalle         */
    }
    return (msg.wParam);      /* Palautetaan PostQuitMessage-funktion arvo */
}