Преглед на файлове

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);