瀏覽代碼

FIX: Warnings

Alexander Koblov 2 月之前
父節點
當前提交
fcab889b63
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      src/fviewer.pas

+ 2 - 2
src/fviewer.pas

@@ -1903,12 +1903,12 @@ end;
 
 
 function TfrmViewer.DoZoomIn: Boolean;
 function TfrmViewer.DoZoomIn: Boolean;
 begin
 begin
-  DoZoom( 1.1, 1 );
+  Result:= DoZoom( 1.1, 1 );
 end;
 end;
 
 
 function TfrmViewer.DoZoomOut: Boolean;
 function TfrmViewer.DoZoomOut: Boolean;
 begin
 begin
-  DoZoom( 0.909, -1 );
+  Result:= DoZoom( 0.909, -1 );
 end;
 end;
 
 
 procedure TfrmViewer.RotateImage(AGradus: integer);
 procedure TfrmViewer.RotateImage(AGradus: integer);