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

Spready: Add menu item to turn off reading formulas.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6212 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-02-22 09:48:29 +00:00
parent 0282943962
commit 1de4037030
2 changed files with 33 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
applications/spready/smain.lfm
View File

@ -347,7 +347,7 @@ object MainForm: TMainForm
Width = 130 Width = 130
WorkbookSource = WorkbookSource WorkbookSource = WorkbookSource
DropDownCount = 24 DropDownCount = 24
ItemIndex = 44 ItemIndex = 46
TabOrder = 0 TabOrder = 0
Text = 'Arial' Text = 'Arial'
end end
@ -1905,6 +1905,13 @@ object MainForm: TMainForm
OnExecute = AcWorksheetProtectionExecute OnExecute = AcWorksheetProtectionExecute
OnUpdate = AcWorksheetProtectionUpdate OnUpdate = AcWorksheetProtectionUpdate
end end
object AcSettingsReadFormulas: TAction
Category = 'Settings'
AutoCheck = True
Caption = 'Read formulas'
Checked = True
OnExecute = AcSettingsReadFormulasExecute
end
end end
object ImageList: TImageList object ImageList: TImageList
left = 176 left = 176
@ -4708,6 +4715,13 @@ object MainForm: TMainForm
object MenuItem108: TMenuItem object MenuItem108: TMenuItem
Action = AcSettingsCurrency Action = AcSettingsCurrency
end end
object MenuItem179: TMenuItem
Caption = '-'
end
object MenuItem180: TMenuItem
Action = AcSettingsReadFormulas
AutoCheck = True
end
end end
object MnuHelp: TMenuItem object MnuHelp: TMenuItem
Caption = 'Help' Caption = 'Help'

18
applications/spready/smain.pas
View File

@ -37,6 +37,7 @@ type
AcSortColAsc: TAction; AcSortColAsc: TAction;
AcRowHeight: TAction; AcRowHeight: TAction;
AcColWidth: TAction; AcColWidth: TAction;
AcSettingsReadFormulas: TAction;
AcWorksheetProtection: TAction; AcWorksheetProtection: TAction;
AcWorksheetRTL: TAction; AcWorksheetRTL: TAction;
AcViewInspector: TAction; AcViewInspector: TAction;
@ -79,6 +80,8 @@ type
MenuItem176: TMenuItem; MenuItem176: TMenuItem;
MenuItem177: TMenuItem; MenuItem177: TMenuItem;
MenuItem178: TMenuItem; MenuItem178: TMenuItem;
MenuItem179: TMenuItem;
MenuItem180: TMenuItem;
MenuItem2: TMenuItem; MenuItem2: TMenuItem;
MenuItem3: TMenuItem; MenuItem3: TMenuItem;
MenuItem4: TMenuItem; MenuItem4: TMenuItem;
@ -431,6 +434,7 @@ type
procedure AcRowAddExecute(Sender: TObject); procedure AcRowAddExecute(Sender: TObject);
procedure AcRowDeleteExecute(Sender: TObject); procedure AcRowDeleteExecute(Sender: TObject);
procedure AcRowHeightExecute(Sender: TObject); procedure AcRowHeightExecute(Sender: TObject);
procedure AcSettingsReadFormulasExecute(Sender: TObject);
procedure AcSortColAscExecute(Sender: TObject); procedure AcSortColAscExecute(Sender: TObject);
procedure AcSortExecute(Sender: TObject); procedure AcSortExecute(Sender: TObject);
procedure ActionListUpdate(AAction: TBasicAction; var Handled: Boolean); procedure ActionListUpdate(AAction: TBasicAction; var Handled: Boolean);
@ -805,6 +809,14 @@ begin
end; end;
end; end;
procedure TMainForm.AcSettingsReadFormulasExecute(Sender: TObject);
begin
if AcSettingsReadFormulas.Checked then
WorkbookSource.Options := WorkbookSource.Options + [boReadFormulas]
else
WorkbookSource.Options := WorkbookSource.Options - [boReadFormulas];
end;
procedure TMainForm.AcShowGridLinesExecute(Sender: TObject); procedure TMainForm.AcShowGridLinesExecute(Sender: TObject);
begin begin
WorksheetGrid.ShowGridLines := AcShowGridLines.Checked; WorksheetGrid.ShowGridLines := AcShowGridLines.Checked;
@ -1130,6 +1142,10 @@ begin
b := ini.ReadBool('Inspector', 'Visible', false); b := ini.ReadBool('Inspector', 'Visible', false);
AcViewInspector.Checked := b; AcViewInspector.Checked := b;
AcviewInspectorExecute(nil); AcviewInspectorExecute(nil);
AcSettingsReadFormulas.Checked := ini.ReadBool('Settings', 'ReadFormulas', true);
AcSettingsReadFormulasExecute(nil);
finally finally
ini.Free; ini.Free;
end; end;
@ -1206,6 +1222,8 @@ begin
ini.WriteInteger('Inspector', 'Width', InspectorTabControl.Width); ini.WriteInteger('Inspector', 'Width', InspectorTabControl.Width);
ini.WriteString('Inspector', 'Page', InspectorTabControl.Tabs[InspectorTabControl.TabIndex]); ini.WriteString('Inspector', 'Page', InspectorTabControl.Tabs[InspectorTabControl.TabIndex]);
ini.WriteBool('Inspector', 'Visible', InspectorTabControl.Visible); ini.WriteBool('Inspector', 'Visible', InspectorTabControl.Visible);
ini.WriteBool('Settings', 'ReadFormulas', AcSettingsReadFormulas.Checked);
finally finally
ini.Free; ini.Free;
end; end;