home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / lang / pascal / 6723 < prev    next >
Encoding:
Text File  |  1992-11-19  |  1.3 KB  |  43 lines
  1. Newsgroups: comp.lang.pascal
  2. Path: sparky!uunet!cis.ohio-state.edu!zaphod.mps.ohio-state.edu!cs.utexas.edu!torn!news.ccs.queensu.ca!slip204.telnet1.QueensU.CA!dmurdoch
  3. From: dmurdoch@mast.queensu.ca (Duncan Murdoch)
  4. Subject: First BP 7 bug :-)
  5. Message-ID: <dmurdoch.177.722181338@mast.queensu.ca>
  6. Lines: 32
  7. Sender: news@knot.ccs.queensu.ca (Netnews control)
  8. Organization: Queen's University
  9. Date: Thu, 19 Nov 1992 13:55:39 GMT
  10.  
  11. Here's my first bug report on BP 7.  File dialogs created using the STDDLG 
  12. unit's TFileDialog don't work.  You can't select a file in any directory 
  13. except the current directory.  
  14.  
  15. Interestingly, there aren't any problems in the file dialogs in the BP 
  16. or TURBO IDEs.  I guess the distributed versions of the units aren't the 
  17. ones used to build these programs.  I wonder what other differences there 
  18. are?
  19.  
  20. Here's the official Borland fix, from Compuserve.
  21.  
  22. #: 177943 S1/Turbo Vision  [BPASCAL]
  23.     18-Nov-92  16:27:17
  24. Sb: #177813-TFileDialog broken?
  25. Fm: Mark Edington (Borland) 75140,2240
  26. To: dj murdoch 71631,122
  27.  
  28. Duncan,
  29.  
  30.    Here is a fix which you can apply to STDDLG.PAS:
  31.  
  32. On line 947:
  33.  
  34. Change:
  35.  
  36.   RelativePath := not (S <> '') and ((S[1] = '\') or (S[2] = ':'));
  37.  
  38. to:
  39.  
  40.   RelativePath := not ((S <> '') and ((S[1] = '\') or (S[2] = ':')));
  41.  
  42. Mark
  43.