From 823b51e2b59d1b927739e01acdb3fcb15c0f8476 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 11 Aug 2018 10:55:08 +0000
Subject: [PATCH] spready: Add commands to show grid lines and grid headers.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6594 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 applications/spready/smain.lfm | 32 ++++++++++++++++++++++++++++----
 applications/spready/smain.pas | 34 ++++++++++++++++++++++++++++++++++
 2 files changed, 62 insertions(+), 4 deletions(-)

diff --git a/applications/spready/smain.lfm b/applications/spready/smain.lfm
index fb2d789ea..08239822f 100644
--- a/applications/spready/smain.lfm
+++ b/applications/spready/smain.lfm
@@ -1934,6 +1934,22 @@ object MainForm: TMainForm
       Caption = 'Update row heights after loading'
       OnExecute = AcSettingsAutoUpdateRowheightsExecute
     end
+    object AcWorksheetShowGrid: TAction
+      Category = 'Worksheet'
+      AutoCheck = True
+      Caption = 'Show grid lines'
+      Checked = True
+      OnExecute = AcWorksheetShowGridExecute
+      OnUpdate = AcWorksheetShowGridUpdate
+    end
+    object AcWorksheetShowHeaders: TAction
+      Category = 'Worksheet'
+      AutoCheck = True
+      Caption = 'Show headers'
+      Checked = True
+      OnExecute = AcWorksheetShowHeadersExecute
+      OnUpdate = AcWorksheetShowHeadersUpdate
+    end
   end
   object ImageList: TImageList
     left = 176
@@ -4423,10 +4439,6 @@ object MainForm: TMainForm
       object MenuItem106: TMenuItem
         Action = AcWorksheetProtection
       end
-      object MenuItem164: TMenuItem
-        Action = AcWorksheetRTL
-        AutoCheck = True
-      end
       object MenuItem165: TMenuItem
         Caption = '-'
       end
@@ -4463,6 +4475,18 @@ object MainForm: TMainForm
           Action = AcZoom300
         end
       end
+      object MenuItem193: TMenuItem
+        Action = AcWorksheetShowGrid
+        AutoCheck = True
+      end
+      object MenuItem194: TMenuItem
+        Action = AcWorksheetShowHeaders
+        AutoCheck = True
+      end
+      object MenuItem164: TMenuItem
+        Action = AcWorksheetRTL
+        AutoCheck = True
+      end
     end
     object MenuItem166: TMenuItem
       Caption = 'Row'
diff --git a/applications/spready/smain.pas b/applications/spready/smain.pas
index 1e5e639d2..df0d1e056 100644
--- a/applications/spready/smain.pas
+++ b/applications/spready/smain.pas
@@ -39,6 +39,8 @@ type
     AcColWidth: TAction;
     AcSettingsReadFormulas: TAction;
     AcSettingsAutoUpdateRowheights: TAction;
+    AcWorksheetShowHeaders: TAction;
+    AcWorksheetShowGrid: TAction;
     AcWorksheetProtection: TAction;
     AcWorksheetRTL: TAction;
     AcViewInspector: TAction;
@@ -95,6 +97,8 @@ type
     MenuItem190: TMenuItem;
     MenuItem191: TMenuItem;
     MenuItem192: TMenuItem;
+    MenuItem193: TMenuItem;
+    MenuItem194: TMenuItem;
     MenuItem2: TMenuItem;
     MenuItem3: TMenuItem;
     MenuItem4: TMenuItem;
@@ -467,6 +471,10 @@ type
     procedure AcShowHeadersExecute(Sender: TObject);
     procedure AcShowHeadersUpdate(Sender: TObject);
     procedure AcViewInspectorExecute(Sender: TObject);
+    procedure AcWorksheetShowGridExecute(Sender: TObject);
+    procedure AcWorksheetShowGridUpdate(Sender: TObject);
+    procedure AcWorksheetShowHeadersExecute(Sender: TObject);
+    procedure AcWorksheetShowHeadersUpdate(Sender: TObject);
     procedure EditCut1Execute(Sender: TObject);
     procedure ColorComboboxAddColors(Sender: TObject);
     procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
@@ -925,6 +933,32 @@ begin
   UpdateInspectorColumns;
 end;
 
+procedure TMainForm.AcWorksheetShowGridExecute(Sender: TObject);
+begin
+  WorksheetGrid.ShowGridLines := AcWorksheetShowGrid.Checked;
+end;
+
+procedure TMainForm.AcWorksheetShowGridUpdate(Sender: TObject);
+begin
+  with AcWorksheetShowGrid do begin
+    Enabled := WorkbookSource.Worksheet <> nil;
+    Checked := soShowGridLines in WorkbookSource.Worksheet.Options;
+  end;
+end;
+
+procedure TMainForm.AcWorksheetShowHeadersExecute(Sender: TObject);
+begin
+  WorksheetGrid.ShowHeaders := AcWorksheetShowHeaders.Checked;
+end;
+
+procedure TMainForm.AcWorksheetShowHeadersUpdate(Sender: TObject);
+begin
+  with AcWorksheetShowHeaders do begin
+    Enabled := WorkbookSource.Worksheet <> nil;
+    Checked := soShowHeaders in WorkbookSource.Worksheet.Options;
+  end;
+end;
+
 procedure TMainForm.AcWorksheetProtectionExecute(Sender: TObject);
 var
   F: TWorksheetProtectionForm;