home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / windows / ms / programm / 7392 < prev    next >
Encoding:
Internet Message Format  |  1992-07-28  |  2.2 KB
  1. Path: sparky!uunet!mcsun!uknet!keele!seq1.kl.ac.uk!ggp08
  2. From: ggp08@seq1.kl.ac.uk (Y. Lan)
  3. Newsgroups: comp.windows.ms.programmer
  4. Subject: Problem with MakeProcInstance. Help...
  5. Message-ID: <3641@keele.keele.ac.uk>
  6. Date: 28 Jul 92 14:00:06 GMT
  7. Sender: ggp08@seq1.keele.ac.uk
  8. Reply-To: ggp08@seq1.kl.ac.uk (Y. Lan)
  9. Organization: University of Keele, England
  10. Lines: 80
  11.  
  12. Hi! my honourable friends:
  13.  
  14. Could anybody tell me why I can not MakeProcInstance the following
  15. FARPROC ? I can compiler it, but when I run it, it causes
  16. "Unrecoverabale Error".
  17.  
  18. I checked with Turbo Debugger, the message is 
  19.  
  20. Exception 13 Exit code 0.
  21.  
  22. What does this mean? (I can not understand the help)
  23.  
  24. Is anything wrong with INITDIALOG ?
  25.  
  26. Please help !!
  27.  
  28. Lan
  29.  
  30.  
  31.  
  32. BOOL FAR PASCAL DwinProc(HWND hdlg, WORD message,
  33.                 WORD wParam, LONG lParam)
  34.    {
  35.      HWND hctrl;
  36.      char str[12];
  37.      short cid; // control id
  38.      float prmden ; // prism density
  39.      switch(message)
  40.        {
  41.      case WM_INITDIALOG:
  42.         hctrl = GetDlgItem(hdlg,101);
  43.         SetScrollRange(hctrl,SB_CTL,1000,8000,FALSE);
  44.         SetScrollPos(hctrl,SB_CTL,2500,FALSE);
  45.         hctrl = GetDlgItem(hdlg,102);
  46.         SetScrollRange(hctrl,SB_CTL,1000,8000,FALSE);
  47.         SetScrollPos(hctrl,SB_CTL,2500,FALSE);
  48.         hctrl = GetDlgItem(hdlg,105);
  49.         sprintf(str,"%f5.1",bkden);
  50.         SetDlgItemText(hdlg,105,str);
  51.         return TRUE;
  52.  
  53.      case WM_HSCROLL:
  54.         hctrl = HIWORD(lParam);
  55.         cid = GetWindowWord(hctrl,GWW_ID);
  56.         if(cid == 103 ){   // the background density scroll
  57.            switch(wParam)
  58.          {
  59.             case SB_LINEUP :
  60.               bkden -=1;
  61.               break;
  62.  
  63.             case SB_LINEDOWN :
  64.               bkden += 1;
  65.               break;
  66.  
  67.             case SB_PAGEUP :
  68.               bkden -= 8;
  69.               break;
  70.  
  71.             case SB_PAGEDOWN :
  72.               bkden += 8;
  73.               break;
  74.  
  75.             case SB_THUMBPOSITION :
  76.               bkden = LOWORD(lParam);
  77.               break;
  78.            }
  79.            if(bkden < 1000) bkden = 1000;
  80.            if(bkden > 8000) bkden = 8000;
  81.            if(bkden !=GetScrollPos(hctrl,SB_CTL)){
  82.              SetScrollPos(hctrl,SB_CTL,bkden,TRUE);
  83.              hctrl = GetDlgItem(hdlg,105);
  84.              sprintf(str,"%f5.1",bkden);
  85.              SetDlgItemText(hdlg,105,str);
  86.            }
  87.          }
  88.        // another scroll bar message should be processed  below:
  89.             return TRUE;
  90.          } //switch message
  91.       }    // DwinProc
  92.