From cdd13309aa31f03c4d2dc2784f5cefa4c547836d Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 11 Aug 2018 08:25:01 +0000
Subject: [PATCH] spready: Add menu commands for zooming current worksheet.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6591 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 applications/spready/smain.lfm   |  39 ++++++++++++++++++++++++++++---
 applications/spready/smain.pas   |  11 +++++++++
 applications/spready/spready.lpi |   9 ++++++-
 applications/spready/spready.res | Bin 102088 -> 102088 bytes
 4 files changed, 55 insertions(+), 4 deletions(-)

diff --git a/applications/spready/smain.lfm b/applications/spready/smain.lfm
index bf5abd5fa..24e8a1018 100644
--- a/applications/spready/smain.lfm
+++ b/applications/spready/smain.lfm
@@ -4417,13 +4417,46 @@ object MainForm: TMainForm
       object MenuItem106: TMenuItem
         Action = AcWorksheetProtection
       end
-      object MenuItem165: TMenuItem
-        Caption = '-'
-      end
       object MenuItem164: TMenuItem
         Action = AcWorksheetRTL
         AutoCheck = True
       end
+      object MenuItem165: TMenuItem
+        Caption = '-'
+      end
+      object MenuItem181: TMenuItem
+        Caption = 'Zoom'
+        object MenuItem184: TMenuItem
+          Action = AcZoom30
+        end
+        object MenuItem185: TMenuItem
+          Action = AcZoom50
+        end
+        object MenuItem186: TMenuItem
+          Action = AcZoom75
+        end
+        object MenuItem188: TMenuItem
+          Action = AcZoom90
+        end
+        object MenuItem183: TMenuItem
+          Caption = '-'
+        end
+        object MenuItem182: TMenuItem
+          Action = AcZoom100
+        end
+        object MenuItem187: TMenuItem
+          Caption = '-'
+        end
+        object MenuItem189: TMenuItem
+          Action = AcZoom150
+        end
+        object MenuItem190: TMenuItem
+          Action = AcZoom200
+        end
+        object MenuItem191: TMenuItem
+          Action = AcZoom300
+        end
+      end
     end
     object MenuItem166: TMenuItem
       Caption = 'Row'
diff --git a/applications/spready/smain.pas b/applications/spready/smain.pas
index bd313d9f6..b27582c28 100644
--- a/applications/spready/smain.pas
+++ b/applications/spready/smain.pas
@@ -82,6 +82,17 @@ type
     MenuItem178: TMenuItem;
     MenuItem179: TMenuItem;
     MenuItem180: TMenuItem;
+    MenuItem181: TMenuItem;
+    MenuItem182: TMenuItem;
+    MenuItem183: TMenuItem;
+    MenuItem184: TMenuItem;
+    MenuItem185: TMenuItem;
+    MenuItem186: TMenuItem;
+    MenuItem187: TMenuItem;
+    MenuItem188: TMenuItem;
+    MenuItem189: TMenuItem;
+    MenuItem190: TMenuItem;
+    MenuItem191: TMenuItem;
     MenuItem2: TMenuItem;
     MenuItem3: TMenuItem;
     MenuItem4: TMenuItem;
diff --git a/applications/spready/spready.lpi b/applications/spready/spready.lpi
index e489f1a40..bb8651104 100644
--- a/applications/spready/spready.lpi
+++ b/applications/spready/spready.lpi
@@ -20,7 +20,7 @@
       <AutoIncrementBuild Value="True"/>
       <MajorVersionNr Value="1"/>
       <MinorVersionNr Value="7"/>
-      <BuildNr Value="4"/>
+      <BuildNr Value="5"/>
       <StringTable InternalName="Spready" ProductName="Spready" ProductVersion="0.0.0.0"/>
     </VersionInfo>
     <BuildModes Count="2">
@@ -185,6 +185,13 @@
     </SearchPaths>
     <CodeGeneration>
       <SmartLinkUnit Value="True"/>
+      <Checks>
+        <IOChecks Value="True"/>
+        <RangeChecks Value="True"/>
+        <OverflowChecks Value="True"/>
+        <StackChecks Value="True"/>
+      </Checks>
+      <VerifyObjMethodCallValidity Value="True"/>
     </CodeGeneration>
     <Linking>
       <Debugging>
diff --git a/applications/spready/spready.res b/applications/spready/spready.res
index 8dffc3f56a2345783d8751002734597cf5fd5ccf..d728bcce4861015180e5732951f059e878b47f82 100644
GIT binary patch
delta 27
jcmX>xm+iz{whbQajI5hI+4~t8O`C6WY`@9D_`VeYi~|Z5

delta 27
jcmX>xm+iz{whbQaj4Ycy+4~t8O`30VY`@9D_`VeYi|7gz