home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / TP6BUGS6.ZIP / EDITORS.FIX < prev    next >
Encoding:
Internet Message Format  |  1992-02-02  |  1.9 KB
  1. From: Dj Murdoch                                #15811 Date: 10 Dec 91  07:54:21
  2. To:   Tony Phillips                                                      Rec Loc
  3. Subj: Re: Fix For TP 6.0 Editer
  4.  TP> Does anyone have the fix for sample text editer that comes with Tp 6.0?
  5.  TP> I've noticed a few of the number keys don't work. Any help 
  6.  TP> would be appreciated!
  7.  
  8. Here's the Borland patch for that bug.  But beware:  there are lots of other
  9. bugs in the Editors unit.  Don't blame me for the ugly formatting - this is
  10. exactly the way it was posted on Compuserve.
  11.  
  12. -------------------------------------------------------
  13.  
  14. The following patch fixes the problem of not being able to enter numbers 3 
  15. thru 6 into the editor of the EDITORS.PAS example shipped with Turbo Pascal 
  16. 6.0. 
  17.  
  18. Open EDITORS.PAS in the TURBO editor and search for the EXISTING code.   Once
  19. that is found change the EXISTING code to the CHANGE TO code.  Save your changes
  20. and recompile EDITORS.PAS.
  21.  
  22.  
  23. EXISTING:                EXISTING:
  24.  
  25. LODSW                    var
  26. OR      BL,BL              Key: Word;
  27. JE      @@2
  28. CMP     BL,DL            CHANGE TO:
  29.  
  30. CHANGE TO:               var
  31.                            ShiftState: Byte absolute
  32. LODSW                        $40:$17;
  33. CMP     BL,DL              Key: Word;
  34.  
  35. ---------------------------------------------------
  36.  
  37. EXISTING:                EXISTING:
  38.  
  39. JE      @@4              begin
  40. @@2:    CMP     BH,DH      Key := Event.KeyCode;
  41. JE      @@4
  42.                          CHANGE TO:
  43. CHANGE TO:
  44.                          begin
  45. JE      @@4                if (ShiftState and $03 <> 0)
  46. CMP     BH,DH               and (Event.ScanCode >= $47)
  47. JE      @@4                  and (Event.ScanCode <= $51)
  48.                          then
  49. --------------------------   Event.CharCode := #0;
  50.                            Key := Event.KeyCode;
  51.  
  52.  
  53.  
  54.  
  55. --- Msg V3.2
  56.  * Origin: Murdoch's Point: Ottawa, Ontario, Canada  (1:163/140.3)
  57.  
  58.  
  59. ------
  60.