mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
UPD: replace with fspSaveableLoadable for better compatibility with various FileSources in TFileView.SaveConfiguration()
This commit is contained in:
parent
5ccb678297
commit
733fb94cd7
4 changed files with 9 additions and 4 deletions
|
|
@ -818,7 +818,8 @@ end;
|
|||
function TFileSystemFileSource.GetProperties: TFileSourceProperties;
|
||||
begin
|
||||
Result := [
|
||||
fspDirectAccess, fspListFlatView, fspNoneParent, fspSearchable
|
||||
fspDirectAccess, fspListFlatView, fspNoneParent,
|
||||
fspSearchable, fspSaveableLoadable
|
||||
{$IFDEF UNIX}
|
||||
, fspCaseSensitive
|
||||
{$ENDIF}
|
||||
|
|
|
|||
|
|
@ -115,7 +115,7 @@ end;
|
|||
function TSearchResultFileSource.GetProperties: TFileSourceProperties;
|
||||
begin
|
||||
Result := inherited GetProperties;
|
||||
Result -= [fspNoneParent, fspListFlatView];
|
||||
Result -= [fspNoneParent, fspListFlatView, fspSaveableLoadable];
|
||||
Result += [fspDontChangePath, fspDontCreateDirectory, fspSearchable];
|
||||
if (fspDirectAccess in Result) then Result+= [fspLinksToLocalFiles];
|
||||
end;
|
||||
|
|
|
|||
|
|
@ -89,6 +89,11 @@ type
|
|||
}
|
||||
fspSearchable,
|
||||
|
||||
{en
|
||||
Set, if the file source supports save to ConfigFile and load from ConfigFile.
|
||||
}
|
||||
fspSaveableLoadable,
|
||||
|
||||
{en
|
||||
Set, if the file source has default columns view
|
||||
}
|
||||
|
|
|
|||
|
|
@ -2843,8 +2843,7 @@ begin
|
|||
|
||||
for i := 0 to FileSourcesCount - 1 do
|
||||
begin
|
||||
// Currently saves only FileSystem.
|
||||
if FHistory.FileSource[i].IsClass(TFileSystemFileSource) then
|
||||
if fspSaveableLoadable in FHistory.FileSource[i].Properties then
|
||||
begin
|
||||
EntryNode := AConfig.AddNode(HistoryNode, 'Entry');
|
||||
if FHistory.CurrentFileSourceIndex = i then
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue