home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / lang / pascal / 7826 < prev    next >
Encoding:
Internet Message Format  |  1993-01-03  |  1.3 KB
  1. Path: sparky!uunet!gatech!destroyer!sol.ctr.columbia.edu!hamblin.math.byu.edu!yvax.byu.edu!cunyvm!psuvm!cdf1
  2. Newsgroups: comp.lang.pascal
  3. Subject: TPW 1.5 Problem with making a TDlgWindow Iconic
  4. Message-ID: <93003.203333CDF1@psuvm.psu.edu>
  5. From: Carl Fago <CDF1@psuvm.psu.edu>
  6. Date: Sun, 3 Jan 1993 20:33:33 EST
  7. Organization: Penn State University
  8. Lines: 26
  9.  
  10. I'm having a problem with a program I am having.  I have the following code
  11. for the main window (TDlgWindow type) of a program but when I minimize it
  12. I don't get the neat little icon I developed for it...
  13.  
  14. PROCEDURE TASLWindow.GetWindowCLass (VAR AWndClass : TWndClass);
  15. BEGIN
  16.   TDlgWindow.GetWindowClass (AWndClass);
  17.   AWndClass.hIcon := LoadIcon(HInstance, AName);
  18. END;
  19.  
  20. Now, AName is passed to the Init procedure for TASLWindow from the
  21. application's InitMainWindow procedure.  Also, I have checked to ensure that
  22. the value for AName is identical to the name of the icon in the loaded
  23. resource.
  24.  
  25. When I try to minimize the program I get the upper left hand portion of the
  26. TDlgWindow.
  27.  
  28. Is there anything else that I can look for to see what I am doing wrong?
  29.  
  30. Thanks in advance for any help!
  31.  
  32.  *-=Carl=-*  INTERNET - cdf1@psuvm.psu.edu | In battle, you can do   |
  33.              GEnie - C.FAGO1               | everything right...     |
  34.  Carl Fago   State College, PA             | and _still_ lose!       |
  35.  
  36.