* fix for buggy behaviour with Tabs without shortcuts

fv/tabs.pas

@@ -397,7 +397,8 @@ begin
        else
        for I:=0 to DefCount-1 do
            begin
-             if Upcase(GetAltChar(Event.KeyCode))=AtTab(I)^.ShortCut
+             if (AtTab (I)^.ShortCut <> #0) and
+                      (Upcase(GetAltChar(Event.KeyCode)) = AtTab(I)^.ShortCut)
                 then begin
                        Index:=I;
                        ClearEvent(Event);
@@ -731,7 +732,10 @@ begin
 end.
 {
  $Log$
- Revision 1.6  2005-02-14 17:13:18  peter
+ Revision 1.7  2005-05-15 15:23:28  hajny
+   * fix for buggy behaviour with Tabs without shortcuts
+
+ Revision 1.6  2005/02/14 17:13:18  peter
    * truncate log
 
 }