mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: Clone functions to TBriefFileView

Browse source
This commit is contained in:
Alexander Koblov 2012-04-30 07:51:41 +00:00
commit b7435435bf
1 changed files with 28 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

28
src/fileviews/ubrieffileview.pas
View file

@ -76,8 +76,12 @@ type
procedure SetSorting(const NewSortings: TFileSortings); override;
public
constructor Create(AOwner: TWinControl; AConfig: TXmlConfig; ANode: TXmlNode; AFlags: TFileViewFlags = []); override;
constructor Create(AOwner: TWinControl; AFileView: TFileView; AFlags: TFileViewFlags = []); override;
destructor Destroy; override;
function Clone(NewParent: TWinControl): TBriefFileView; override;
procedure CloneTo(FileView: TFileView); override;
procedure AddFileSource(aFileSource: IFileSource; aPath: String); override;
procedure LoadConfiguration(AConfig: TXmlConfig; ANode: TXmlNode); override;
@ -687,11 +691,35 @@ begin
inherited Create(AOwner, AConfig, ANode, AFlags);
end;
constructor TBriefFileView.Create(AOwner: TWinControl; AFileView: TFileView;
AFlags: TFileViewFlags);
begin
inherited Create(AOwner, AFileView, AFlags);
end;
destructor TBriefFileView.Destroy;
begin
inherited Destroy;
end;
function TBriefFileView.Clone(NewParent: TWinControl): TBriefFileView;
begin
Result := TBriefFileView.Create(NewParent, Self);
end;
procedure TBriefFileView.CloneTo(FileView: TFileView);
begin
if Assigned(FileView) then
begin
inherited CloneTo(FileView);
with FileView as TBriefFileView do
begin
TabHeader.UpdateSorting(Self.Sorting);
end;
end;
end;
procedure TBriefFileView.AddFileSource(aFileSource: IFileSource; aPath: String);
begin
inherited AddFileSource(aFileSource, aPath);