Bladeren bron

added / to shrink and * for original zoom

circular17 5 jaren geleden
bovenliggende
commit
d1be8c8082
1 gewijzigde bestanden met toevoegingen van 10 en 0 verwijderingen
  1. 10 0
      lazpaint/lazpaintmainform.pas

+ 10 - 0
lazpaint/lazpaintmainform.pas

@@ -2434,6 +2434,16 @@ begin
          ViewZoomOut.Execute;
          ViewZoomOut.Execute;
          UTF8Key := '';
          UTF8Key := '';
       end else
       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
       begin
         selectedTool := ToolManager.GetCurrentToolType;
         selectedTool := ToolManager.GetCurrentToolType;
         FLayout.Menu.CycleTool(selectedTool, UTF8Key);
         FLayout.Menu.CycleTool(selectedTool, UTF8Key);