mirror of https://gitlab.com/basile.b/dexed.git
handle option editor event selcat
This commit is contained in:
parent
e7420ebf98
commit
01cd367c0c
|
@ -89,6 +89,19 @@ begin
|
||||||
SaveToMaster;
|
SaveToMaster;
|
||||||
fBackup.Clear;
|
fBackup.Clear;
|
||||||
DockMaster.SaveSettingsToConfig(fBackup);
|
DockMaster.SaveSettingsToConfig(fBackup);
|
||||||
|
end
|
||||||
|
// reload
|
||||||
|
else if anEvent = oeeSelectCat then
|
||||||
|
begin
|
||||||
|
fBackup.Clear;
|
||||||
|
DockMaster.SaveSettingsToConfig(fBackup);
|
||||||
|
LoadFromMaster;
|
||||||
|
end
|
||||||
|
//change
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
SaveToMaster;
|
||||||
|
doChanged(nil);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
|
@ -316,10 +316,11 @@ begin
|
||||||
self.Assign(fBackup);
|
self.Assign(fBackup);
|
||||||
D2Syn.Assign(fBackup.fD2Syn);
|
D2Syn.Assign(fBackup.fD2Syn);
|
||||||
TxtSyn.Assign(fBackup.fTxtSyn);
|
TxtSyn.Assign(fBackup.fTxtSyn);
|
||||||
end;
|
end
|
||||||
// apply, if change/accept event
|
// apply, if change/accept event
|
||||||
// to get a live preview
|
// to get a live preview
|
||||||
applyChangesFromSelf;
|
else if anEvent <> oeeSelectCat then
|
||||||
|
applyChangesFromSelf;
|
||||||
// new backup values based on accepted values.
|
// new backup values based on accepted values.
|
||||||
if anEvent = oeeAccept then
|
if anEvent = oeeAccept then
|
||||||
begin
|
begin
|
||||||
|
|
|
@ -368,7 +368,7 @@ end;
|
||||||
procedure TCEMessagesWidget.optionedEvent(anEvent: TOptionEditorEvent);
|
procedure TCEMessagesWidget.optionedEvent(anEvent: TOptionEditorEvent);
|
||||||
begin
|
begin
|
||||||
case anEvent of
|
case anEvent of
|
||||||
oeeAccept:
|
oeeAccept, oeeSelectCat:
|
||||||
fOptionsBackup.assign(fOptions);
|
fOptionsBackup.assign(fOptions);
|
||||||
oeeCancel:
|
oeeCancel:
|
||||||
fOptions.assign(fOptionsBackup);
|
fOptions.assign(fOptionsBackup);
|
||||||
|
|
|
@ -190,6 +190,9 @@ end;
|
||||||
|
|
||||||
procedure TCEShortcutEditor.optionedEvent(anEvent: TOptionEditorEvent);
|
procedure TCEShortcutEditor.optionedEvent(anEvent: TOptionEditorEvent);
|
||||||
begin
|
begin
|
||||||
|
case anEvent of
|
||||||
|
oeeSelectCat: updateFromObservers;
|
||||||
|
end;
|
||||||
// TODO-cfeature: pass new shortcut to observer
|
// TODO-cfeature: pass new shortcut to observer
|
||||||
end;
|
end;
|
||||||
{$ENDREGION}
|
{$ENDREGION}
|
||||||
|
|
Loading…
Reference in New Issue