home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / lang / pascal / 4507 < prev    next >
Encoding:
Internet Message Format  |  1992-07-22  |  2.1 KB
  1. Path: sparky!uunet!ogicse!psgrain!hippo!ucthpx!uctvax.uct.ac.za!drvsim01
  2. From: drvsim01@uctvax.uct.ac.za (Simon Driver)
  3. Newsgroups: comp.lang.pascal
  4. Subject: Re: I need help with TVISION (StatusLine)
  5. Message-ID: <1992Jul22.111504.202068@uctvax.uct.ac.za>
  6. Date: 22 Jul 92 13:15:04 GMT
  7. Article-I.D.: uctvax.1992Jul22.111504.202068
  8. References: <92203.123606LOPEZJ@EVALUN11.BITNET>
  9. Organization: University of Cape Town
  10. Lines: 36
  11.  
  12. In article below <LOPEZJ@EVALUN11.BITNET> writes:
  13.  
  14. >      -How can I do that StatusLine show help messages (like IDE of Turbo
  15. >  Pascal). I think that I would use the Hint function but I don't know do
  16. >  it.
  17.  
  18.  
  19. I asked this question a while back and got a few replies (thank you) but all
  20. involved the hint. You just place a global variable in your hint function and
  21. this takes care of this, but you get the following problem.
  22.  
  23. F1 Help | Please wait while loading C:\TP6\TEST.TXT
  24.  
  25. This doesn't help much because if it is a large file, or it is being formated,
  26. the user might think (s)he can press F1 to get help during the loading process.
  27.  
  28. What I did was to do a hack job. Just before and after the loading process, you
  29. cheat a bit and get the statusline to point to your own bit of text, then
  30. update the statusline. I can post the source if anyone is interested.
  31.  
  32. BTW : I'm still looking for a TVision Word Wrap editor object.
  33.  
  34. Cheers,
  35.        Simon.
  36. -- 
  37. *****************************************************************
  38. \*****                                                          *\      
  39.  *****   Simon Driver                                           **
  40.  \****                                                          **\
  41.   ****   InterNet : DRVSIM01@UCTVAX.UCT.AC.ZA                   ***   
  42.   \***   FidoNet  : 5:7102/120.1                                ***\   
  43.    ***              Simon.Driver@p1.f120.n7102.z5.fidonet.org   ****
  44.    \**                                                          ****\
  45.     **   Comment  : Pascal Programmers Do It With Indentation   *****
  46.     \*                                                          *****\
  47.      *****************************************************************
  48.