pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

spready: Add commands to show grid lines and grid headers.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6594 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-08-11 10:55:08 +00:00
parent c3a67dc576
commit 823b51e2b5
2 changed files with 62 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
applications/spready/smain.lfm
View File

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

34
applications/spready/smain.pas
View File

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