forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

removed projects and files MRU from centralized settings system

This commit is contained in:
Basile Burg 2015-05-11 08:57:52 +02:00
parent 9fc711f7c3
commit 0a73c2f9af
1 changed files with 51 additions and 53 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

104
src/ce_main.pas
View File

@ -235,14 +235,6 @@ type
procedure sesoptBeforeSave; procedure sesoptBeforeSave;
procedure sesoptDeclareProperties(aFiler: TFiler); procedure sesoptDeclareProperties(aFiler: TFiler);
procedure sesoptAfterLoad; procedure sesoptAfterLoad;
procedure optget_FileMRUItems(aWriter: TWriter);
procedure optset_FileMRUItems(aReader: TReader);
procedure optget_FileMRULimit(aWriter: TWriter);
procedure optset_FileMRULimit(aReader: TReader);
procedure optget_ProjMRUItems(aWriter: TWriter);
procedure optset_ProjMRUItems(aReader: TReader);
procedure optget_ProjMRULimit(aWriter: TWriter);
procedure optset_ProjMRULimit(aReader: TReader);
procedure optset_RunnableSw(aReader: TReader); procedure optset_RunnableSw(aReader: TReader);
procedure optget_RunnableSw(aWriter: Twriter); procedure optget_RunnableSw(aWriter: Twriter);
@ -324,6 +316,19 @@ type
procedure assignTo(aValue: TPersistent); override; procedure assignTo(aValue: TPersistent); override;
end; end;
TCEPersistentMainMrus = class(TWritableLfmTextComponent)
private
fProjMruPt: TCEMRUFileList;
fFileMruPt: TCEMRUFileList;
procedure setProjMru(aValue: TCEMRUFileList);
procedure setFileMru(aValue: TCEMRUFileList);
published
property mostRecentFiles: TCEMRUFileList read fFileMruPt write setFileMru;
property mostRecentprojects: TCEMRUFileList read fProjMruPt write setProjMru;
public
procedure setTargets(projs: TCEMRUFileList; files: TCEMRUFileList);
end;
var var
CEMainForm: TCEMainForm; CEMainForm: TCEMainForm;
@ -389,6 +394,27 @@ begin
end; end;
{$ENDREGION} {$ENDREGION}
{$REGION TCEPersistentMainMrus -------------------------------------------------}
//fProjMru: TCEMRUFileList;
//fFileMru: TCEMRUFileList;
procedure TCEPersistentMainMrus.setProjMru(aValue: TCEMRUFileList);
begin
fProjMruPt.assign(aValue);
end;
procedure TCEPersistentMainMrus.setFileMru(aValue: TCEMRUFileList);
begin
fFileMruPt.assign(aValue);
end;
procedure TCEPersistentMainMrus.setTargets(projs: TCEMRUFileList; files: TCEMRUFileList);
begin
fFileMruPt := files;
fProjMruPt := projs;
end;
{$ENDREGION}
{$REGION Standard Comp/Obj------------------------------------------------------} {$REGION Standard Comp/Obj------------------------------------------------------}
constructor TCEMainForm.create(aOwner: TComponent); constructor TCEMainForm.create(aOwner: TComponent);
begin begin
@ -631,6 +657,15 @@ begin
finally finally
opts.Free; opts.Free;
end; end;
// project and files MRU
fname1 := getCoeditDocPath + 'mostrecent.txt';
if fileExists(fname1) then with TCEPersistentMainMrus.create(nil) do
try
setTargets(fFileMru, fProjMru);
loadFromFile(fname1);
finally
Free;
end;
// shortcuts for the actions standing in the main action list // shortcuts for the actions standing in the main action list
fname1 := getCoeditDocPath + 'mainshortcuts.txt'; fname1 := getCoeditDocPath + 'mainshortcuts.txt';
if fileExists(fname1) then with TCEPersistentMainShortcuts.create(nil) do if fileExists(fname1) then with TCEPersistentMainShortcuts.create(nil) do
@ -656,6 +691,14 @@ begin
finally finally
opts.Free; opts.Free;
end; end;
// project and files MRU
with TCEPersistentMainMrus.create(nil) do
try
setTargets(fFileMru, fProjMru);
saveToFile(getCoeditDocPath + 'mostrecent.txt');
finally
Free;
end;
// shortcuts for the actions standing in the main action list // shortcuts for the actions standing in the main action list
with TCEPersistentMainShortcuts.create(nil) do with TCEPersistentMainShortcuts.create(nil) do
try try
@ -1840,11 +1883,6 @@ end;
procedure TCEMainForm.sesoptDeclareProperties(aFiler: TFiler); procedure TCEMainForm.sesoptDeclareProperties(aFiler: TFiler);
begin begin
aFiler.DefineProperty('Menu_FileMRU_Items', @optset_FileMRUItems, @optget_FileMRUItems, true);
aFiler.DefineProperty('Menu_FileMRU_Limit', @optset_FileMRULimit, @optget_FileMRULimit, true);
aFiler.DefineProperty('Menu_ProjMRU_Items', @optset_ProjMRUItems, @optget_ProjMRUItems, true);
aFiler.DefineProperty('Menu_ProjMRU_Limit', @optset_ProjMRULimit, @optget_ProjMRULimit, true);
//
aFiler.DefineProperty('Runnable_Switches', @optset_RunnableSw, @optget_RunnableSw, true); aFiler.DefineProperty('Runnable_Switches', @optset_RunnableSw, @optget_RunnableSw, true);
end; end;
@ -1852,46 +1890,6 @@ procedure TCEMainForm.sesoptAfterLoad;
begin begin
end; end;
procedure TCEMainForm.optget_FileMRUItems(aWriter: TWriter);
begin
aWriter.WriteString(fFileMru.DelimitedText);
end;
procedure TCEMainForm.optset_FileMRUItems(aReader: TReader);
begin
fFileMru.DelimitedText := aReader.ReadString;
end;
procedure TCEMainForm.optget_FileMRULimit(aWriter: TWriter);
begin
aWriter.WriteInteger(fFileMru.maxCount);
end;
procedure TCEMainForm.optset_FileMRULimit(aReader: TReader);
begin
fFileMru.maxCount := aReader.ReadInteger;
end;
procedure TCEMainForm.optget_ProjMRUItems(aWriter: TWriter);
begin
aWriter.WriteString(fProjMru.DelimitedText);
end;
procedure TCEMainForm.optset_ProjMRUItems(aReader: TReader);
begin
fProjMru.DelimitedText := aReader.ReadString;
end;
procedure TCEMainForm.optget_ProjMRULimit(aWriter: TWriter);
begin
aWriter.WriteInteger(fProjMru.maxCount);
end;
procedure TCEMainForm.optset_ProjMRULimit(aReader: TReader);
begin
fProjMru.maxCount := aReader.ReadInteger;
end;
procedure TCEMainForm.optset_RunnableSw(aReader: TReader); procedure TCEMainForm.optset_RunnableSw(aReader: TReader);
begin begin
fRunnableSw := aReader.ReadString; fRunnableSw := aReader.ReadString;