home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / lang / pascal / 5179 < prev    next >
Encoding:
Text File  |  1992-09-02  |  1.3 KB  |  45 lines
  1. Newsgroups: comp.lang.pascal
  2. Path: sparky!uunet!decwrl!csus.edu!netcom.com!gabriel
  3. From: gabriel@netcom.com (Gabriel Beccar-Varela)
  4. Subject: Re: Question about tWindow in TVision
  5. Message-ID: <9+ln!lk.gabriel@netcom.com>
  6. Date: Thu, 03 Sep 92 04:34:14 GMT
  7. Organization: Netcom - Online Communication Services (408 241-9760 guest)
  8. References: <1992Sep2.122445.22682@rz.uni-karlsruhe.de>
  9. Lines: 34
  10.  
  11. In article <1992Sep2.122445.22682@rz.uni-karlsruhe.de> ul1f@hp850.uni-karlsruhe.de writes:
  12. >Hi everybody,
  13. >
  14. >today, i've a question about Turbo Pascal 6.0 Turbo Vision. I tryed to
  15. >open a window _without_ a frame.
  16. >
  17. >First, i set the Options to _no_ Frame (Options := Options and not ofFramed;)
  18. >within the init-constructor. Nothing happens (the Option ofFramed is never set
  19. >in my opinion).
  20. >
  21. >Second, i defined a new object tMyWindow = object(tWindow) with the method
  22. >InitFrame.
  23. >
  24. >procedure tMyWindow.InitFrame;
  25. >begin
  26. >  Frame := nil;
  27. >end;
  28. >
  29. >but something happy was the result. I got a frame, but not a full one. The botton
  30. >line was not there (only corrupted).
  31. >
  32. >Now, my question. How is the right way to open a Window _without_ a frame.
  33.        Make sure that you set the Options flag AFTER you call the
  34.        ancestor's constructor:
  35.  
  36.     constructor TMyWindow.init;
  37.     begin
  38.     TWindow.init;
  39.     Options := Options and not ofFramed;
  40.     end;
  41.  
  42.       That should work.
  43.  
  44.     Gabriel. 
  45.