What: Fixed MASK.DCU file.

Why: Fixes lockup problem on Fast Pentiums ( 100MHZ+)
     machines running Win 3.x or WFWG


To use:
--------------------------------------------------
1) Rename your existing /delphi/lib/mask.dcu file, copy
   this one into that dir.

2) Just for safety sake, make a copy of your current
   library (Default name is /Delphi/bin/complib.dcl ).
   If it ever gets corrupted, or if something goes wierd
   when rebuilding, delphi won't start.  If it happens,
   copy the backup of the library back, and your fixed!

3) From delphi, choose Options | Rebuild Library.


What Changed:
-----------------------------------------------------------
NOTE: Removed code here copyright Borland.

mask.pas, line 867

{ cjg 6/30/97 to prevent keyboard lockup on Fast machines }
 	SetSel(SelStart, SelStop); {cjg added 3/12/96}

{ cjg removed 3/12/96 
    SetSel(SelStop, SelStop);

    if SelStart <> SelStop then
    begin
      GetKeyboardState(KeyState);
      for I := Low(NewKeyState) to High(NewKeyState) do
        NewKeyState[I] := 0;
      NewKeyState [VK_SHIFT] := $81;
      NewKeyState [VK_LEFT] := $81;
      SetKeyboardState(NewKeyState);
      SendMessage(Handle, WM_KEYDOWN, VK_LEFT, 1);
      SendMessage(Handle, WM_KEYUP, VK_LEFT, 1);
      SetKeyboardState(KeyState);
    end;
end of removed code }