Pārlūkot izejas kodu

added / to shrink and * for original zoom

circular17 5 gadi atpakaļ
vecāks
revīzija
d1be8c8082
1 mainītis faili ar 10 papildinājumiem un 0 dzēšanām
  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);