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

@@ -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'

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;

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>