FIX: Bug [ 1870809 ] F3 F4 в Editor-e и Viewer-е

fviewer.pas

@@ -17,14 +17,13 @@ contributors:
   Dmitry Kolomiets
   15.03.08
   changes:
-    - Added WLX api (TC WLX api v 1.8)
+    - Added WLX api support (TC WLX api v 1.8)
 
 }
 
 unit fViewer;
 {$mode objfpc}{$H+}
 
-//{$I interface.inc}
 interface
 
 uses
@@ -297,7 +296,12 @@ begin
     ViewerControl.PageDown;
     
   if (Key=VK_F3) or ((Key=VK_F) and (Shift=[ssCtrl])) then
+  begin
     DoSearch;
+    Key:=0;
+  end;
+// To prevent editor open on key F4 in viewer
+  if (Key=VK_F4) then  Key:=0;
 
   UpDateScrollBar;
 end;