paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki 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
Show Stats 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
WorkbookSource = WorkbookSource
DropDownCount = 24
ItemIndex = 44
ItemIndex = 46
TabOrder = 0
Text = 'Arial'
end
@ -1905,6 +1905,13 @@ object MainForm: TMainForm
OnExecute = AcWorksheetProtectionExecute
OnUpdate = AcWorksheetProtectionUpdate
end
object AcSettingsReadFormulas: TAction
Category = 'Settings'
AutoCheck = True
Caption = 'Read formulas'
Checked = True
OnExecute = AcSettingsReadFormulasExecute
end
end
object ImageList: TImageList
left = 176
@ -4708,6 +4715,13 @@ object MainForm: TMainForm
object MenuItem108: TMenuItem
Action = AcSettingsCurrency
end
object MenuItem179: TMenuItem
Caption = '-'
end
object MenuItem180: TMenuItem
Action = AcSettingsReadFormulas
AutoCheck = True
end
end
object MnuHelp: TMenuItem
Caption = 'Help'

18
applications/spready/smain.pas
View File

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