paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-27 00:17:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix for buggy behaviour with Tabs without shortcuts

Browse Source
This commit is contained in:
Tomas Hajny 2005-05-15 15:23:28 +00:00
parent 7ad61bd290
commit b0041b5951
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fv/tabs.pas
View File

@ -397,7 +397,8 @@ begin
else else
for I:=0 to DefCount-1 do for I:=0 to DefCount-1 do
begin begin
if Upcase(GetAltChar(Event.KeyCode))=AtTab(I)^.ShortCut if (AtTab (I)^.ShortCut <> #0) and
(Upcase(GetAltChar(Event.KeyCode)) = AtTab(I)^.ShortCut)
then begin then begin
Index:=I; Index:=I;
ClearEvent(Event); ClearEvent(Event);
@ -731,7 +732,10 @@ begin
end. end.
{ {
$Log$ $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 * truncate log
} }