source: trunk/dll/seticon.c@ 907

/***********************************************************************

  $Id: seticon.c 907 2008-01-06 07:26:17Z stevenhl $

  Edit ICON EA

  Copyright (c) 1993-98 M. Kimes
  Copyright (c) 2006, 2007 Steven H.Levine

  17 Jul 06 SHL Use Runtime_Error
  22 Mar 06 GKY Use QWL_USER
  20 Aug 07 GKY Move #pragma alloc_text to end for OpenWatcom compat

***********************************************************************/

#include <stdlib.h>
#include <string.h>
#include <share.h>

#define INCL_WIN
#define INCL_LONGLONG                   // dircnrs.h

#include "fm3dlg.h"
#include "errutil.h"                    // Dos_Error...
#include "fm3dll.h"

#pragma data_seg(DATA2)

static PSZ pszSrcFile = __FILE__;

MRESULT EXPENTRY SetIconDlgProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
{
  switch (msg) {
  case WM_INITDLG:
    WinSetWindowPtr(hwnd, QWL_USER, (PVOID) mp2);
    WinCheckButton(hwnd, SETICON_SPTR_ARROW, TRUE);
    break;

  case WM_CONTROL:
    return 0;

  case WM_COMMAND:
    switch (SHORT1FROMMP(mp1)) {
    case DID_OK:
      {
        CHAR *filename = WinQueryWindowPtr(hwnd, QWL_USER), *buff = NULL;
        ICONINFO icf;
        ULONG icid = SPTR_ARROW;
        INT x;
        HWND hwndDeskTop;
        FILE *fp;

        hwndDeskTop = WinQueryDesktopWindow(WinQueryAnchorBlock(hwnd),
                                            NULLHANDLE);
        memset(&icf, 0, sizeof(ICONINFO));
        icf.cb = sizeof(ICONINFO);
        icf.fFormat = ICON_DATA;
        if (filename && *filename) {
          fp = xfsopen(filename, "rb", SH_DENYNO, pszSrcFile, __LINE__);
          if (!fp)
            break;
          else {
            fseek(fp, 0, SEEK_END);
            icf.cbIconData = ftell(fp);
            fseek(fp, 0, SEEK_SET);
            buff = xmalloc(icf.cbIconData, pszSrcFile, __LINE__);
            if (!buff) {
              fclose(fp);
              break;
            }
            fread(buff, icf.cbIconData, 1, fp);
            icf.pIconData = (PVOID) buff;
            fclose(fp);
          }
        }
        for (x = 1; x < 15; x++) {
          if (WinQueryButtonCheckstate(hwnd, SETICON_FRAME + x)) {
            icid = (ULONG) x;
            break;
          }
        }
        for (x = 18; x < 23; x++) {
          if (WinQueryButtonCheckstate(hwnd, SETICON_FRAME + x)) {
            icid = (ULONG) x;
            break;
          }
        }
        if (!WinSetSysPointerData(hwndDeskTop, icid,
                                  (PICONINFO) ((filename && *filename) ?
                                               &icf : NULL))) {
          Win_Error(hwnd, hwnd, pszSrcFile, __LINE__, "WinSetSysPointerData");
        }
        if (buff)
          free(buff);
      }
      WinDismissDlg(hwnd, 1);
      break;

    case IDM_HELP:
      if (hwndHelp)
        WinSendMsg(hwndHelp,
                   HM_DISPLAY_HELP,
                   MPFROM2SHORT(HELP_SETICON, 0), MPFROMSHORT(HM_RESOURCEID));
      break;

    case DID_CANCEL:
      WinDismissDlg(hwnd, 0);
      break;
    }
    return 0;
  }
  return WinDefDlgProc(hwnd, msg, mp1, mp2);
}

#pragma alloc_text(MENU,SetIconDlgProc)