home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / comp / lang / pascal / 7888 < prev    next >
Encoding:
Text File  |  1993-01-06  |  1.7 KB  |  41 lines
  1. Newsgroups: comp.lang.pascal
  2. Path: sparky!uunet!think.com!spool.mu.edu!agate!usenet.ins.cwru.edu!wariat!sjsobol
  3. From: sjsobol@wariat.org (Steven J. Sobol)
  4. Subject: Re: TPW 1.5 Problem with making a TDlgWindow Iconic
  5. Message-ID: <1993Jan6.055832.14608@wariat.org>
  6. Organization: APK Public Access Unix * Cleveland, OH
  7. X-Newsreader: TIN [version 1.1 PL7]
  8. References: <93003.203333CDF1@psuvm.psu.edu>
  9. Date: Wed, 6 Jan 1993 05:58:32 GMT
  10. Lines: 29
  11.  
  12. Carl Fago (CDF1@psuvm.psu.edu) wrote:
  13.  
  14. : I'm having a problem with a program I am having.  I have the following code
  15. : for the main window (TDlgWindow type) of a program but when I minimize it
  16. : I don't get the neat little icon I developed for it...
  17. : 
  18. : PROCEDURE TASLWindow.GetWindowCLass (VAR AWndClass : TWndClass);
  19. : BEGIN
  20. :   TDlgWindow.GetWindowClass (AWndClass);
  21. :   AWndClass.hIcon := LoadIcon(HInstance, AName);
  22. : END;
  23. : 
  24. : Now, AName is passed to the Init procedure for TASLWindow from the
  25. : application's InitMainWindow procedure.  Also, I have checked to ensure that
  26. : the value for AName is identical to the name of the icon in the loaded
  27. : resource. 
  28. : When I try to minimize the program I get the upper left hand portion of the
  29. : TDlgWindow. 
  30. : Is there anything else that I can look for to see what I am doing wrong?
  31.  
  32. Make sure the class name in the dialog resource is the same as the class
  33. name in the program's source code.
  34. -- 
  35. Steve Sobol   Head Cheerleader, APK Public Access *nix/Internet
  36. (216) 481-9436 <2400 baud>     (216) 481-9425 <v.32bis, TurboPEP>
  37. Telnet: wariat.org   To register: send e-mail to info@wariat.org, or
  38. log in to BBS and download file 'user.new' from file area 2.
  39.  
  40. Also President of The Tiny Software Co.   E-Mail Address: sjsobol@tiny.com
  41.