fix, options not saved when set from context menu

This commit is contained in:
Basile Burg 2015-03-08 18:23:13 +01:00
parent 4175d8a5e2
commit 399c4b38a1
1 changed files with 3 additions and 0 deletions

View File

@ -411,16 +411,19 @@ end;
procedure TCESymbolListWidget.actAutoRefreshExecute(Sender: TObject); procedure TCESymbolListWidget.actAutoRefreshExecute(Sender: TObject);
begin begin
autoRefresh := fActAutoRefresh.Checked; autoRefresh := fActAutoRefresh.Checked;
fOptions.Assign(self);
end; end;
procedure TCESymbolListWidget.actRefreshOnChangeExecute(Sender: TObject); procedure TCESymbolListWidget.actRefreshOnChangeExecute(Sender: TObject);
begin begin
refreshOnChange := fActRefreshOnChange.Checked; refreshOnChange := fActRefreshOnChange.Checked;
fOptions.Assign(self);
end; end;
procedure TCESymbolListWidget.actRefreshOnFocusExecute(Sender: TObject); procedure TCESymbolListWidget.actRefreshOnFocusExecute(Sender: TObject);
begin begin
refreshOnFocus := fActRefreshOnFocus.Checked; refreshOnFocus := fActRefreshOnFocus.Checked;
fOptions.Assign(self);
end; end;
procedure TCESymbolListWidget.actCopyIdentExecute(Sender: TObject); procedure TCESymbolListWidget.actCopyIdentExecute(Sender: TObject);