home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / comp / lang / pascal / 6476 < prev    next >
Encoding:
Text File  |  1992-11-10  |  3.2 KB  |  75 lines
  1. Newsgroups: comp.lang.pascal
  2. Path: sparky!uunet!europa.asd.contel.com!darwin.sura.net!spool.mu.edu!sdd.hp.com!swrinde!elroy.jpl.nasa.gov!ames!purdue!mentor.cc.purdue.edu!pf@bilbo.bio.purdue.edu
  3. From: pf@bilbo.bio.purdue.edu (Paul Furbacher)
  4. Subject: Re: Question about scroll bars in TPW 1.0
  5. Message-ID: <BxJK8x.3nt@mentor.cc.purdue.edu>
  6. Sender: news@mentor.cc.purdue.edu (USENET News)
  7. Organization: Purdue University
  8. References: <92315.090438F0O@psuvm.psu.edu>
  9. Distribution: comp.lang.pascal
  10. Date: Wed, 11 Nov 1992 07:46:09 GMT
  11. Lines: 62
  12.  
  13. In article <92315.090438F0O@psuvm.psu.edu>, 
  14.   <F0O@psuvm.psu.edu> writes: [my *emphasis* added]
  15. > 
  16. >    I've found what *seems* to be a quirk with the scroll bar controls.  In
  17. > the scroll app example program, if I change the XRange and YRange values
  18. > to 0 in the init constructor, the scroll bars don't show up.  So far all
  19. > is ok.  I've read this is what is supposed to happen.  However, when I
  20. > set the XRange and YRange values to 0 in the init method in a program I
  21. > wrote, the scroll bars still appear!  My code is:
  22. > 
  23. >      Scroller := New(PScroller, Init(@Self, 0, 0, 0, 0));
  24. > 
  25. >    I set them all to 0's at the start since I don't yet know what they
  26. > should be until the user loads a file.  When I try this same line of code
  27. > in the scrollapp example program, they don't show up.
  28.  
  29. Though there is no way to know what else you do in your program, 
  30. my advice is this:
  31.  
  32. Make sure that none of the code you borrowed from OWLDEMOS, etc. has
  33. a call to the TScroller.SetRange() method.  The SCROLAPP.PAS code 
  34. does not call the SetRange() method and therefore you don't experience
  35. the problem in saying "..., Init(@Self, 0,0,0,0));".  As a comparison,
  36. do the same in BSCRLAPP.PAS and you'll find that sometimes you'll 
  37. get scrollbar(s) and sometimes you won't.  (The behavior shows up if  
  38. you've done something in between runs to alter the contents
  39. of the memory location where "TBitScrollWindow.PixelWidth" and 
  40. ".PixelHeight" reside.)  Until you open a bitmap file, the values of 
  41. PixelWidth and PixelHeight are undefined in calls to the
  42. TBitScrollWindow.AdjustScroller method.  [The latter method calls
  43. "Scroller^.SetRange(...)".]
  44.  
  45. If you play with BSCRLAPP.PAS, try assigning values to 
  46. PixelWidth and PixelHeight in the TBitScrollWindow.Init() 
  47. constructor before the call to "Scroller := New(PScroller, Init(...);".  
  48. If you use "Scroller^.SetRange(...)", then call this 
  49. *after* init'ing the "Scroller" instance.  
  50.  
  51. Note that once you open a bitmap file, PixelWidth&Height are 
  52. set (see lines 260 ff.).  If the bitmap is small, there 
  53. is no need for scrollbars.  Resize the window to crop the 
  54. bitmap and you'll get scrollbars.
  55.  
  56. Hopefully, these explanations lead to a solution of the problem.  
  57.  
  58. Try altering the various demos provided with TPW, making one 
  59. small change at a time, in order to study the behavior of an object.
  60.  
  61. In general, when using a complicated library like OWL or TVision,
  62. cross-reference the demos until you understand how the    
  63. methods and fields of a particular object are used.  
  64.  
  65. Do this by using the GREP utility which comes 
  66. on the distribution diskettes.  If you're going to 
  67. get up to speed with OWL, you'll have to "grep" 'til you drop.
  68.  
  69. Have fun.
  70.  
  71. PF
  72.  
  73.  
  74.  
  75.