소스 검색

added / to shrink and * for original zoom

circular17 5 년 전
부모
커밋
d1be8c8082
1개의 변경된 파일10개의 추가작업 그리고 0개의 파일을 삭제
  1. 10 0
      lazpaint/lazpaintmainform.pas

+ 10 - 0
lazpaint/lazpaintmainform.pas

@@ -2434,6 +2434,16 @@ begin
          ViewZoomOut.Execute;
          UTF8Key := '';
       end else
+      if toolProcessKey and (UTF8Key = '*') then
+      begin
+         ViewZoomOriginal.Execute;
+         UTF8Key := '';
+      end else
+      if toolProcessKey and (UTF8Key = '/') then
+      begin
+         ViewZoomFit.Execute;
+         UTF8Key := '';
+      end else
       begin
         selectedTool := ToolManager.GetCurrentToolType;
         FLayout.Menu.CycleTool(selectedTool, UTF8Key);