home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / sys / mac / programm / 14844 < prev    next >
Encoding:
Text File  |  1992-09-01  |  1.7 KB  |  30 lines

  1. Newsgroups: comp.sys.mac.programmer
  2. Path: sparky!uunet!gatech!darwin.sura.net!convex!news.utdallas.edu!corpgate!bnrgate!nrcnet0!cunews!torn!csd.unb.ca!morgan.ucs.mun.ca!nstn.ns.ca!dragon.acadiau.ca!881571s
  3. From: 881571s@dragon.acadiau.ca (Arnold Spence)
  4. Subject: MacApp(Think Pascal) DoIdle question.
  5. Message-ID: <1992Sep1.174835.27573@dragon.acadiau.ca>
  6. Organization: Acadia University
  7. Date: Tue, 1 Sep 1992 17:48:35 GMT
  8. Lines: 20
  9.  
  10. I am using MacApp 2.0 with Think Pascal 4.0. I am working on a program to
  11. move pict resources around in a window. I tried using TPicture and managed to
  12. get one picture moving around but I would like to have more than one. When I
  13. create the view layout with view edit I can only specify one pict as the
  14. target and therefore only one receives its DoIdle method. Is there and easy
  15. way to get all of them to receive DoIdle? Another way to do it I figure is to
  16. use the windows list of picture objects and send them their move methods 
  17. directly. This is giving me problems however because I can't seem to get
  18. TList.Each to work. (basically I don't know how to call it, can anyone give
  19. me an example of the syntax required to use it?). Also I find that when I
  20. used DoIdle to animate one picture it didn't move very fast (I have a MacIIfx).
  21. Would there be a better way to implement a procedure that needs to be called
  22. as frequently as possible? The animation stopped noticably following a keypress
  23. or mouse click and sometimes because of some unseen system activity. If anyone
  24. is experienced in this type of programming please let me know if I'm on the 
  25. right track. Thank you for your time...
  26.  
  27. if end_of_message then 
  28. writeln('Arnold B. Spence : arnold.spence@dragon.acadiau.ca');
  29.  
  30.