home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / lang / pascal / 7734 < prev    next >
Encoding:
Internet Message Format  |  1992-12-30  |  883 b 
  1. Path: sparky!uunet!dtix!darwin.sura.net!spool.mu.edu!olivea!charnel!sifon!thunder.mcrcim.mcgill.edu!poly-vlsi!music.mus.polymtl.ca
  2. From: CT80@music.mus.polymtl.ca (Steph)
  3. Newsgroups: comp.lang.pascal
  4. Subject: TVision : BUG in my head or in TV?
  5. Message-ID: <30DEC92.02775797.0033@music.mus.polymtl.ca>
  6. Date: 30 Dec 92 07:34:12 GMT
  7. Sender: usenet@music.mus.polymtl.ca
  8. Organization: Ecole Polytechnique de Montreal
  9. Lines: 18
  10.  
  11. Stumbled on something weird tonight.  I'd like to know if it's
  12. my fault, and if so, why.  Quite scary.  Here's some parts of
  13. the actual code..
  14.  
  15. PSmartText     = ^TSmartText;
  16. TSmartText     = OBJECT(TStaticText)
  17.   EndOfStatic     : WORD;
  18.  
  19.   CONSTRUCTOR  Init(VAR Bounds : TRect; AText : STRING; MyUpdate : WORD)
  20.   . . .
  21. END;
  22.  
  23. Now, here's the catch :
  24.  
  25. CONSTRUCTOR  TSmartText.Init(...);
  26. BEGIN
  27.   EndOfStatic := LENGTH(AText);
  28.   .. add spaces at the end of AText;
  29.